10 CLS:CLEAR
20 B$="                                                                       ":W$="00:00:00":S=9
30 LOCATE 10,1
40 PRINT "               ÉÍËÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍ»"
50 PRINT "               º º     ALARM          TIME IS              º º"
60 PRINT "               ÌÍÎÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÎ͹"
70 PRINT "               º º  WAKE UP TIME      SNOOZE (SPACE BAR)   º º"
80 PRINT "               º º                    IS SET FOR    MIN    º º"
90 PRINT "               ÈÍÊÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊͼ"
100 LOCATE 14,49: PRINT S;
110 LOCATE 11,17
120 IF O=1 THEN PRINT"X"; ELSE PRINT" ";
130 LOCATE 14,23:PRINT W$;
140 LOCATE 20,1
150 PRINT"       PRESS 'A' TO RESET ALARM TIME, PRESS 'S' TO RESET SNOOZE TIME                   PRESS 'F' TO FLIP ALARM SWITCH, PRESS '0' TO SHUT OFF ALARM"
160 A$=INKEY$
170 T$=TIME$
180 LOCATE 11,48:PRINT T$;
190 IF T$=W$ AND O=1 THEN A=1
200 IF A=1 THEN BEEP:FOR X=1 TO 25000:NEXT X
210 IF A$="A" OR A$="a" THEN LOCATE 1,1:INPUT"INPUT WAKE UP TIME (hh:mm:ss) ";W$:LOCATE 1,1:PRINT B$:GOTO 130
220 IF A$<>"S" AND A$<> "s" THEN 250
230 LOCATE 1,1:INPUT"INPUT MINUTES OF SNOOZE TIME (LESS THAN 60) ";S:LOCATE 1,1:PRINT B$
240 IF S<1 OR S>60 OR S<>INT(S) THEN 230 ELSE 100
250 IF A$="0" THEN A=0
255 IF A$="q" THEN END
260 IF A$<>"F" AND A$<>"f" THEN 290
270 IF O=1 THEN O=0:A=0:ST=0:LOCATE 11,61:PRINT" ";:GOTO 110
280 O=1:GOTO 110
290 IF TIMER >= ST AND ST<>0 THEN A=1:ST=0:LOCATE 11,61:PRINT" ";
300 IF A$=" " AND A=1 THEN ST=TIMER+(S*60):A=0:LOCATE 11,61:PRINT"S";
310 GOTO 160