20 lines
581 B
Text
20 lines
581 B
Text
SYSTEM(RUN) ! start this script in RUN-mode
|
|
|
|
CHARACTER notes="Notes.txt", txt*1000
|
|
|
|
! Remove file name from the global variable $CMD_LINE:
|
|
EDIT(Text=$CMD_LINE, Mark1, Right=".hic ", Right=4, Mark2, Delete)
|
|
|
|
IF($CMD_LINE == ' ') THEN
|
|
READ(FIle=notes, LENgth=Lnotes)
|
|
IF( Lnotes ) THEN
|
|
WINDOW(WINdowhandle=hdl, TItle=notes)
|
|
WRITE(Messagebox="?Y") "Finished ?"
|
|
ENDIF
|
|
ELSE
|
|
WRITE(Text=txt, Format="UWWW CCYY-MM-DD HH:mm:SS, A") 0, $CRLF//$TAB//TRIM($CMD_LINE)//$CRLF
|
|
OPEN(FIle=notes, APPend)
|
|
WRITE(FIle=notes, CLoSe=1) txt
|
|
ENDIF
|
|
|
|
ALARM(999) ! quit HicEst immediately
|