DEFINE Tm_create_1
  store_work_xxx
  Sm_create_1
END_DEFINE


DEFINE Max_auto_save
  6	{7 x wird das Workfile gesichert}
END_DEFINE

DEFINE Store_work_xxx
  LOCAL Time_
  LOCAL Numstr
  LET Time_ (TIME)
  IF ((Time_ - Start_time)>Max_def_time)
    DISPLAY_NO_WAIT 'Automatische Sicherung !!!'
    IF (Nume<Max_auto_save)
      LET Nume (Nume+1)
    ELSE
      LET Nume 0
    END_IF
    LET Numstr (STR (Nume))
    STORE MI ALL DEL_OLD (Workfile+'-'+Numstr+'.mi')
    LET Start_time (TIME)
  END_IF
END_DEFINE

DEFINE Max_def_time
  600
END_DEFINE

let    Start_time    (time)

let    Nume  0

let    Workfile  'c:\tmp\xxx'

DEFINE Tron
  TRACE DEL_OLD 'c:/tmp/trace_on'
END_DEFINE

DEFINE Troff
  TRACE OFF
  EDIT_FILE 'c:/tmp/trace_on'
END_DEFINE

{ statt der xxx kann auch ein Name stehen }


{Bei jedem Druch auf erstellen 1 wird die Zeit und die Sicherung abgefragt}