5 lines
244 B
Text
5 lines
244 B
Text
If[Length[$CommandLine < 11], str = OpenRead["NOTES.TXT"];
|
|
Print[ReadString[str, EndOfFile]]; Close[str],
|
|
str = OpenAppend["NOTES.TXT"]; WriteLine[str, DateString[]];
|
|
WriteLine[str, "\t" <> StringRiffle[$CommandLine[[11 ;;]]]];
|
|
Close[str]]
|