10 TIME=0:INTERVAL ON:ON INTERVAL=60 GOSUB 100
20 GOTO 20 'Место для основной программы.
100 WIDTH 28:T1=INT(TIME/3600):T2=T2+1:IF T2=60 THEN T2=0
110 FOR J=0 TO 1
120 VPOKE 40+J,ASC(MID$(RIGHT$("0"+MID$(STR$(T1),2),2),J+1)):VPOKE 42,ASC(":")
130 VPOKE 43+J,ASC(MID$(RIGHT$("0"+MID$(STR$(T2),2),2),J+1)):NEXT:RETURN