Data commit

Task/Take-notes-on-the-command-line/HicEst/take-notes-on-the-command-line.hicest

@@ -0,0 +1,20 @@
+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