10 VIDEO3:CLS:P=#703:OUT5,1:WAIT60
20 LOCATE0,0:PRINT"-ALARM SETTING-
30 LOCATE4,3:PRINT"HH : MM"
40 A=ANA(2)/43
50 LOCATE4,4:PRINT A/10;A%10
60 IF IN(1)<>1 GOTO40
70 GOSUB 170
80 A=ANA(2)/17-1:IF A<0 THEN A=0
90 LOCATE9,4:PRINT A/10;A%10
100 IF IN(1)<>1 GOTO80
110 GOSUB 170
120 LOCATE0,7:PRINT"ALARM ENABLE:"
130 A=ANA(2)/100:IF A%2=0 THEN A=0 ELSE A=1
135 LOCATE13,7
140 IF A=0 PRINT"NO " ELSE PRINT"YES"
150 IF IN(1)<>1 GOTO130
160 GOSUB 170
165 GOTO 180
170 OUT5,0:A=A/10*16+A%10:POKE P,A:P=P-1:WAIT30:OUT5,1:RETURN
180 POKE #700,#07
190 IF I2CW(#68,#700,1,#701,3) ERR
200 LOCATEO,9:PRINT"SET CAL/TIME?"
210 A=ANA(2)/100:IF A%2=1 THEN A=0 ELSE A=1
220 LOCATE13,9
230 IF A=0 PRINT"NO " ELSE PRINT"YES"
240 IF IN(1)<>1 GOTO210
250 OUT5,0:WAIT30:IF A=1 GOTO270 ELSE GOTO260
260 VIDEO1:CLV:LRUN0
270 VIDEO1:CLV:LRUN1
