0 PRINT@42,"Alarm Power Ver:200 By Gary Sullivan":OPEN"NOTE.DO"FORAPPENDAS1:PRINT@132,DATE$" "TIME$:PRINT 1 INPUT" What day (or CR for today) ";D$:PRINT 2 INPUT" Time for alarm ";T$:PRINT 3 INPUT" Message(add .BA to RUN) ";M$:IFD$=""THEND$=DATE$ 4 IFLEFT$(RIGHT$(M$,3),1)="."THENPOWERT$,D$,M$:MENU 5 PRINT#1,D$","T$",A,"M$:MENU