2 REM  # REAL TIME CLOCK MK2
 4 REM  # John Honniball
 6 REM  # 14/03/80
 10 PRINTCHR$(12);
 20 GOSUB9000
 90 POKE752,0:POKE753,0:POKE754,0
 100 P=53784
 110 TI$=STR$(256*PEEK(753)+PEEK(752))+"."
 120 TI$=TI$+RIGHT$("0"+MID$(STR$(PEEK(754)),2),2)
 150 GOSUB1000
 200 GOTO110
 1000 FORK=1TOLEN(TI$)
 1010 POKEP+K,ASC(MID$(TI$,K,1))
 1020 NEXT
 1030 RETURN
 9000 REM **** REAL TIME CLOCK ****
 9001 REM ** Connect 100Hz clock **
 9002 REM ** to NMI input on CPU.**
 9005 REM ** Located at $0130    **
 9006 REM ** for old NMI vector. **
 9007 REM ** Code is relocatable **
 9008 REM *************************
 9010 FORA=304TO331:READB:POKEA,B:NEXT:RETURN
 9020 DATA72,216,24,238,242,2,169,100,205,242,2,208,13,169,0
 9030 DATA141,242,2,238,240,2,208,3,238,241,2,104,64