100 REM **** Read MAX80 RTC ****
110 DIM T%(8%)
120 OUT 1%,54%
130 I%=0%
140 IF I%>8% THEN 340
150 IF (INP(1%) AND 130%)=2% THEN 190
160 Z%=INP(0%)
170 I%=I%+1%
180 GOTO 140
190 IF INP(0%)<>211% THEN 340
200 OUT 2%,128%
210 IF (INP(1%) AND 130%)<>128% THEN 340
220 FOR I%=0% TO 7%
230 T%(I%)=INP(0%)
240 NEXT I%
250 D$=""
260 FOR I%=0% TO 7%
270 IF T%(I%)<10% D$=D$+"0"
280 D$=D$+RIGHT$(NUM$(T%(I%)),2%)
290 S0$=MID$("_-- ::._",I%+1%,1%)
300 IF S0$<>"_" THEN D$=D$+S0$
310 NEXT I%
320 ; D$
330 END
340 ; "No MAX80 RTC detected"
350 END