16 lines
332 B
Text
16 lines
332 B
Text
IF LEN(COMMAND$) THEN
|
|
OPEN "notes.txt" FOR APPEND AS 1
|
|
PRINT #1, DATE$, TIME$
|
|
PRINT #1, CHR$(9); COMMAND$
|
|
CLOSE
|
|
ELSE
|
|
d$ = DIR$("notes.txt")
|
|
IF LEN(d$) THEN
|
|
OPEN d$ FOR INPUT AS 1
|
|
WHILE NOT EOF(1)
|
|
LINE INPUT #1, i$
|
|
PRINT i$
|
|
WEND
|
|
CLOSE
|
|
END IF
|
|
END IF
|