0 'This program will check the NOTE.DO file for any records on today's events.
10 CLS
20 OPEN"NOTE"FOR INPUT AS 1
30 INPUT#1,A$
40 IF INSTR(1,A$,DATE$)THEN60
50 IF EOF(1)THEN MENU ELSE30
60 CLS:SCREEN0,0
70 PRINTCHR$(7)
80 PRINTA$
90 PRINT@0,DATE$;" ";TIME$;" ";DAY$;STRING$(16,32);STRING$(16,8);" [PRESS ANY KEY]";
100 IF INKEY$>""THEN50ELSE90