Listing of file='CLOCK' on disk='vmedia/701-2294O.wvd.zip'
# Sector 1110, program filename = 'CLOCK' 0010 DIM T$7,Y$1 0020 D=0 0030 DIM A$(11)7,B$(11)7,C$(11)7,D$(11)7,E$(11)7,F$(11)7,G$(11)7 0040 INIT(20)A$(),B$(),C$(),D$(),E$(),F$(),G$() 0050 A$(1)=" 11" 0060 B$(1)=" 111" 0070 C$(1)=" 11" 0080 D$(1)=" 11" 0090 E$(1)=" 11" 0100 F$(1)=" 11" 0110 G$(1)=" 1111" 0120 A$(2)=" 22222" 0130 B$(2)="22 22" 0140 C$(2)=" 22" 0150 D$(2)=" 22" 0160 E$(2)=" 22" 0170 F$(2)=" 22" 0180 G$(2)="2222222" 0190 A$(3)="333333" 0200 B$(3)=" 33" 0210 C$(3)=" 33" 0220 D$(3)=" 3333" 0230 E$(3)=" 33" 0240 F$(3)=" 33" 0250 G$(3)="333333" 0260 A$(4)=" 444" 0270 B$(4)=" 4444" 0280 C$(4)=" 44 44" 0290 D$(4)="44 44" 0300 E$(4)="4444444" 0310 F$(4)=" 44" 0320 G$(4)=" 44" 0330 A$(5)="5555555" 0340 B$(5)="55" 0350 C$(5)="55" 0360 D$(5)="555555" 0370 E$(5)=" 55" 0380 F$(5)=" 55" 0390 G$(5)="555555" 0400 A$(6)=" 66" 0410 B$(6)=" 66" 0420 C$(6)=" 66" 0430 D$(6)=" 66666" 0440 E$(6)="66 66" 0450 F$(6)="66 66" 0460 G$(6)=" 66666" 0470 A$(7)="7777777" 0480 B$(7)=" 77" 0490 C$(7)=" 77" 0500 D$(7)=" 77" 0510 E$(7)=" 77" 0520 F$(7)=" 77" 0530 G$(7)="77" 0540 A$(8)=" 88888" 0550 B$(8)="88 88" 0560 C$(8)="88 88" 0570 D$(8)=" 88888" 0580 E$(8)="88 88" 0590 F$(8)="88 88" 0600 G$(8)=" 88888" 0610 A$(9)=" 99999" 0620 B$(9)="99 99" 0630 C$(9)="99 99" 0640 D$(9)=" 99999" 0650 E$(9)=" 99" 0660 F$(9)=" 99" 0670 G$(9)=" 99" 0680 A$(10)=" 00000" 0690 B$(10)="00 00" 0700 C$(10)="00 00" 0710 D$(10)="00 00" 0720 E$(10)="00 00" 0730 F$(10)="00 00" 0740 G$(10)=" 00000" 0750 A$(11)=HEX(20202020202020) 0760 B$(11)=HEX(20202020202020) 0770 C$(11)=HEX(20202020202020) 0780 D$(11)=HEX(20202020202020) 0790 E$(11)=HEX(20202020202020) 0800 F$(11)=HEX(20202020202020) 0810 G$(11)=HEX(20202020202020) 0820 PRINT HEX(0306) 0830 PRINT AT(6,0);BOX(9,78) 0840 PRINT AT(8,26);"##" 0850 PRINT AT(9,26);"##" 0860 PRINT AT(11,26);"##" 0870 PRINT AT(12,26);"##" 0880 PRINT AT(8,52);"##" 0890 PRINT AT(9,52);"##" 0900 PRINT AT(11,52);"##" 0910 PRINT AT(12,52);"##" 0920 T$=TIME 0930 CONVERT STR(T$,5,2) TO T1 0940 IF T3=T1 THEN 920 0950 T3=T1 0960 CONVERT STR(T$,3,2) TO T2 0970 Z=5 0980 IF T1=00 THEN Z=3 0990 IF T2=00 THEN Z=1 1000 IF D=0 THEN Z=1 1010 D=1 1020 FOR X=Z TO 6 1030 CONVERT STR(T$,X,1) TO A 1040 IF A=0 THEN A=10 1050 PRINT AT(7,((X-1)*13)+4); : FOR Y=1 TO 7 : PRINT HEX(20); : NEXT Y 1060 PRINT AT(7,((X-1)*13)+4);A$(A) 1070 PRINT AT(8,((X-1)*13)+4); : FOR Y=1 TO 7 : PRINT HEX(20); : NEXT Y 1080 PRINT AT(8,((X-1)*13)+4);B$(A) 1090 PRINT AT(9,((X-1)*13)+4); : FOR Y=1 TO 7 : PRINT HEX(20); : NEXT Y 1100 PRINT AT(9,((X-1)*13)+4);C$(A) 1110 PRINT AT(10,((X-1)*13)+4); : FOR Y=1 TO 7 : PRINT HEX(20); : NEXT Y 1120 PRINT AT(10,((X-1)*13)+4);D$(A) 1130 PRINT AT(11,((X-1)*13)+4); : FOR Y=1 TO 7 : PRINT HEX(20); : NEXT Y 1140 PRINT AT(11,((X-1)*13)+4);E$(A) 1150 PRINT AT(12,((X-1)*13)+4); : FOR Y=1 TO 7 : PRINT HEX(20); : NEXT Y 1160 PRINT AT(12,((X-1)*13)+4);F$(A) 1170 PRINT AT(13,((X-1)*13)+4); : FOR Y=1 TO 7 : PRINT HEX(20); : NEXT Y 1180 PRINT AT(13,((X-1)*13)+4);G$(A) 1190 NEXT X 1200 GOTO 920