[SAMPLE31] SAMPLE
100 CLS:FLG=0
110 PRINT "目覚まし時計"
120 LOCATE 0,10:PRINT "現在の時刻は ";TIME$
130 LOCATE 0,2:INPUT "セット時刻は(HH:MM:SS)";ST$
140 ON TIME$=ST$ GOSUB 200
160 LOCATE 13,10:PRINT TIME$
170 IF FLG=0 THEN 160
180 CLS:LOCATE 30,10:PRINT "おはよう!!!"
190 END
200 PRINT
210 COLOR 7:BEEP 1
220 PRINT "もう起きる時間ですよ!!!"
230 IF INKEY$ ="" THEN 230
240 BEEP 0:FLG=1
250 RETURN