100 POKE#700,0:VIDEO5:OUT6,1
110 IF I2CR(#68,#700,1,#701,10) ERR
120 UART1:BPS9600
130 PRINT CHR$(#AA,#18,#01,#00,#C3)
140 PRINT CHR$(#AA,#02,#00,#AC)
150 FORI=0TO9
160  [I]=PEEK(#70A-I)
170  [I]=[I]>>4*10+[I]&15
180 NEXT
190 IF N%2 VIDEO5 ELSE VIDEO6
195 IF N%2 OUT5,1 ELSE OUT5,0
200 LOCATE0,0:PRINT""
210 LOCATE0,1:PRINT"ALARM"
220 LOCATE0,2:PRINT"ACTIVATE"
230 LOCATE1,4:PRINT DEC$([0],2);":";[1]/10;[1]%10
240 LOCATE0,5:PRINT"";
250 N=N+1
260 WAIT 30
270 IF IN(1)GOTO290
280 GOTO190
290 VIDEO1
300 PRINT CHR$(#AA,#04,#00,#AE):BPS0:UART0
310 OUT6,0:OUT5,0:WAIT30:CLV:LRUN0
