6 lines
244 B
Text
6 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]]
|