11 OPEN"alarm.do"FORINPUTAS1:TG$=INPUT$(1,#1):CLOSE:IFINSTR(TG$,"F")<>0THENXT=7ELSEXT=1
15 GOSUB90:PRINT@280,"view entr phon alrm calc caln togl menu";:PRINT@1,H;"  Appointments & To-Dos  ";I
25 IFINSTR(TG$,"T")<>0ORINSTR(L,MID$(DATE$,1,5))<>0ORINSTR(L,"TO-DO")>0THENPRINT@P,MID$(L,XT,23):P=P+40:GOTO20:ELSEGOTO20
700 CLOSE:OPEN"alarm.do"FORINPUTAS1:TG$=INPUT$(1,1)
710 OPEN"temp.do"FOROUTPUTAS2
715 IFINSTR(TG$,"F")<>0THENTG$="T"ELSETG$="F"
716 PRINT#2,TG$;
720 IFEOF(1)THENGOTO730ELSES$=INPUT$(1,1):PRINT#2,S$;:GOTO720
730 CLOSE:KILL"alarm.do":NAME"temp.do"AS"alarm.do":RUN