10 REM Thousand Loader V.1.02 20 MODE1:VDU23;8202;0;0;0;19,2,2;0;:*L.KQJdata B00 30 PROCassemble 40 VDU23,224,0,54,127,127,127,62,28,8,23,225,0,8,28,62,127,127,28,62,23,226,0,8,28,62,127,62,28,8,23,227,0,28,28,107,127,107,8,28,23,228,206,219,219,219,219,219,206,0 50 VDU23,229,240,240,240,240,240,240,0;23,239,224,0,224,0,224,0,0; 60 VDU23,240,7950;32575;32639;32639;23,241,31800;65534;65535;65535;23,242,7999;1807;259;0;23,243,64766;61688;49376;128;23,244,256;1795;7951;32575;23,245,49280;61664;64760;65534;23,246,32639;15486;769;7;23,247,65535;40639;57536;240; 70 VDU23,248,256;1795;7951;32575;23,249,49280;61664;64760;65534;23,250,7999;1807;259;0;23,251,64766;61688;49376;128;23,252,256;771;7427;16190;23,253,49152;57568;56544;65214;23,254,7230;257;1795;0;23,255,40126;49344;61664;0; 80 ENVELOPE 1,1,0,0,0,0,0,0,126,-1,0,-1,88,0 90 ENVELOPE 2,2,33,-33,33,2,2,2,127,0,0,-20,88,0 100 ENVELOPE 3,2,1,1,1,50,50,50,63,-10,0,-63,63,63 110 ENVELOPE 4,3,1,-1,1,1,2,1,75,0,0,-75,75,0 120 GCOL0,130:CLG:MOVE0,0:DRAW1276,0:DRAW1276,1023:DRAW0,1023:DRAW0,4:DRAW1272,4:DRAW1272,1019:DRAW4,1019:DRAW4,4:MOVE0,152:DRAW1276,152:DRAW1276,156:DRAW0,156:MOVE 0,799:DRAW1276,799:DRAW1276,795:DRAW0,795 130 VDU5:GCOL0,1:Z%=1:FORX%=140 TO 1100 STEP 192:MOVE X%,204:PRINT;Z%;:Z%=Z%+1:NEXT:VDU4 140 GCOL0,128:VDU24,8;8;1268;148;16:GCOL0,129:VDU24,8;803;1268;1015;16:GCOL0,3:MOVE732,803:DRAW732,1023:DRAW736,1023:DRAW736,803:VDU5:MOVE912,1007:PRINT"Last":MOVE896,971:PRINT"Round":MOVE1088,1007:PRINT"Total":MOVE1088,971:PRINT"Score" 150 MOVE 756,927:PRINT"You":MOVE 756,863:PRINT"Comp":VDU4:GCOL0,130:PROCtitle("THOUSAND",3,12,991):GCOL0,131:VDU24,892;831;1248;931;16 160 A%=&900:C%=&920:P%=&928:W%=&930 170 W%?1=11:W%?2=10:W%?3=4:W%?4=3:W%?5=2:W%?6=0 180 PAGE=&1100:CHAIN"T305" 190 : 200 DEF PROCtitle(A$,C%,H%,V%) 210 GCOL 0,C%:FOR K%=1 TO LENA$ 220 ?&70=ASCMID$(A$,K%,1) 230 A%=10:X%=&70:Y%=0:CALL &FFF1 240 Y%=V%:FOR J%=0 TO 7:B%=J%?&71 250 FOR I%=7 TO 0 STEP-1:Z%=2^I% 260 IF B%DIVZ% X%=7-I%:VDU5:MOVE H%+X%*12,Y%:VDU239,4 270 B%=B%MODZ% 280 NEXT:Y%=Y%-24 290 NEXT:H%=H%+88 300 NEXT:ENDPROC 310 : 320 DEF PROCassemble 330 addr=&70:x=&72:y=&74:col=&76:count=&77:scr=&78:data=&7A:oswrch=&FFEE 340 FOR pass=0 TO 2 STEP 2 350 P%=&938:[OPT pass 360 LDX #230 370 .loop1 380 LDA #23:JSR oswrch:TXA:JSR oswrch 390 LDY #0 400 .loop2 410 LDA (addr),Y:JSR oswrch 420 INY:CPY #8:BNE loop2 430 CLC:TYA:ADC addr:STA addr 440 INX:CPX #239:BNE loop1 450 LDA #25:JSR oswrch:LDA #4:JSR oswrch 460 LDA x:JSR oswrch:LDA x+1:JSR oswrch 470 LDA y:JSR oswrch:LDA y+1:JSR oswrch 480 LDX #0 490 .loop3 500 LDA vdu,X:JSR oswrch 510 INX:CPX #17:BNE loop3 520 RTS 530 .vdu 540 EQUB 230:EQUB 231:EQUB 232 550 EQUB 8:EQUB 8:EQUB 8:EQUB 10 560 EQUB 233:EQUB 234:EQUB 235 570 EQUB 8:EQUB 8:EQUB 8:EQUB 10 580 EQUB 236:EQUB 237:EQUB 238:EQUB 0 590 : 600 .card 610 LDA #blank MOD 256:STA data 620 LDA #blank DIV 256:STA data+1 630 JSR line 640 LDA #0:STA count 650 .loop1 660 JSR line:JSR ddata 670 INC count:LDA count:CMP #4:BNE loop1 680 JSR line 690 JSR line 700 RTS 710 .line 720 JSR draw 730 JSR idata 740 LDX #9 750 .loop2 760 JSR draw 770 DEX:BPL loop2 780 JSR idata 790 JSR draw 800 CLC:LDA scr:ADC #&20:STA scr 810 LDA scr+1:ADC #2:STA scr+1 820 JSR idata 830 RTS 840 : 850 .draw 860 LDY #0 870 .dloop 880 LDA (data),Y:STA (scr),Y 890 INY:CPY #8:BNE dloop 900 CLC:TYA:ADC scr:STA scr 910 BCC nocarry:INC scr+1 920 .nocarry 930 RTS 940 .idata 950 CLC:LDA data:ADC #8:STA data 960 BCC nocarry2:INC data+1 970 .nocarry2 980 RTS 990 .ddata 1000 SEC:LDA data:SBC #24:STA data 1010 BCS carry:DEC data+1 1020 .carry 1030 RTS 1040 .blank 1050 EQUD &77773380:EQUD &77777777:EQUD &FFFFFF00:EQUD &FFFFFFFF:EQUD &B8B83070:EQUD &B8B8B8B8 1060 EQUD &77777777:EQUD &77777777:EQUD &FFFFFFFF:EQUD &FFFFFFFF:EQUD &B8B8B8B8:EQUD &B8B8B8B8 1070 EQUD &77777777:EQUD &80337777:EQUD &FFFFFFFF:EQUD &00FFFFFF:EQUD &B8B8B8B8:EQUD &7030B8B8 1080 ] 1090 NEXT:ENDPROC