1 ! CLOCKVID
2 ! PROGRAM # 71-00004 PAGE 3 OF 4
3 ! TAPE NAME "CLOCKDSP"
10 PRINTER IS :DISPLAY @ DISPLAY IS *
20 PWIDTH INF @ DELAY 0 @ DESTROY ALL
30 CLEAR :DISPLAY
40 T$="     "
50 M$="  "
60 U$=TIME$ @ T=VAL(U$[1,2])
70 IF T<12 THEN N$="am" ELSE N$="pm"
80 T=MOD(T-1,12)+1
90 U$[1,1]=" "
100 IF T<10 THEN U$[2,2]=STR$(T) ELSE U$[1,2]=STR$(T)
110 DISP U$[1,5]&" "&N$
120 FOR I=1 TO 5
130 IF T$[I,I]#U$[I,I] THEN CALL DSPDGT(U$[I,I],I,0)
140 NEXT I
150 T$=U$
160 FOR I=1 TO 2
170 IF M$[I,I]#N$[I,I] THEN CALL DSPDGT(N$[I,I],I+1.5,7)
180 NEXT I
190 M$=N$
200 ON TIMER #1,60-MOD(TIME,60) GOTO 60 @ OFF
210 SUB DSPDGT(D$,P,S)
220 DIM Z9$[96]
230 Z9$=BANNER$(D$[1,1]&CHR$(160))
240 FOR Z9=1 TO 8
250 PRINT CHR$(27)&"%"&CHR$(6*(P-1))&CHR$(Z9+S-1);
260 PRINT Z9$[Z9*6-5,Z9*6-1]&CHR$(27)&"<"
270 NEXT Z9
280 END SUB