image of READY prompt

Wang2200.org

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