1 ON ERROR GOTO 1000 10 MODE1 11 PRINTTAB(5,0);"CLOCK by D.Chester 10/12/95" 12 PRINTTAB(9,2);"Press ESCAPE to continue" 20 REM CLOCK 22 VDU 23;8202;0;0;0; 30 S=140 35 TT$="" 40 X=-S:Y=400 50 T$=MID$(TIME$,17,2):T$=T$+MID$(TIME$,20,2):T$=T$+MID$(TIME$,23,2) 51 IFTT$=T$ THEN 50 60 FOR Z=1TO6 70 IFZ=3 OR Z=5 THEN X=X+(S+100) ELSE X=X+(S+40) 90 A$=MID$(T$,Z,1) 100 A=VAL(A$) 110 IFA=0THENA$="1101111" 120 IFA=1THENA$="0100100" 130 IFA=2THENA$="1110011" 140 IFA=3THENA$="1110110" 150 IFA=4THENA$="0111100" 160 IFA=5THENA$="1011110" 170 IFA=6THENA$="1011111" 180 IFA=7THENA$="1100100" 190 IFA=8THENA$="1111111" 200 IFA=9THENA$="1111110" 210 GOSUB 240 220 NEXT Z 225 TT$=T$ 230 GOTO 40 240 IFMID$(A$,1,1)="1"THEN GCOL0,1 ELSE GCOL0,0 250 MOVEX,Y+S*2:DRAWX+S,Y+S*2 260 IFMID$(A$,2,1)="1"THEN GCOL0,1 ELSE GCOL0,0 270 DRAWX+S,Y+S 280 IFMID$(A$,3,1)="1"THEN GCOL0,1 ELSE GCOL0,0 290 DRAWX,Y+S 300 IFMID$(A$,4,1)="1"THEN GCOL0,1 ELSE GCOL0,0 310 DRAWX,Y+S*2 320 IFMID$(A$,5,1)="1"THEN GCOL0,1 ELSE GCOL0,0 330 MOVEX+S,Y+S:DRAWX+S,Y 340 IFMID$(A$,6,1)="1"THEN GCOL0,1 ELSE GCOL0,0 350 DRAWX,Y 360 IFMID$(A$,7,1)="1"THEN GCOL0,1 ELSE GCOL0,0 370 DRAWX,Y+S 380 RETURN 1000 MODE7 1005 PRINT"MASTER ONLY" 1010 END