10 REM Sixty Six Loader V.2.21 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,160,160,160,160,160,160,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 150 MOVE732,803:DRAW732,1023:DRAW736,1023:DRAW736,803:VDU5:MOVE928,1007:PRINT"Last":MOVE912,971:PRINT"Round":MOVE1088,1007:PRINT"Total":MOVE1088,971:PRINT"Score":VDU4:COLOUR3:COLOUR129:PRINTTAB(24,3)"You 0 0"TAB(24,5)"Comp 0 0"':COLOUR130 160 PROCtitle("SIXTY",3,24,991):PROCtitle("SIX",3,456,991) 170 A%=&900:C%=&920:P%=&928:W%=&930 180 W%?1=11:W%?2=10:W%?3=4:W%?4=3:W%?5=2:W%?6=0 190 : 200 CHAIN"66GB" 210 : 220 DEF PROCtitle(A$,C%,H%,V%) 230 GCOL 0,C%:FOR K%=1 TO LENA$ 240 ?&70=ASCMID$(A$,K%,1) 250 A%=10:X%=&70:Y%=0:CALL &FFF1 260 Y%=V%:FOR J%=0 TO 7:B%=J%?&71 270 FOR I%=7 TO 0 STEP-1:Z%=2^I% 280 IF B%DIVZ% X%=7-I%:VDU5:MOVE H%+X%*12,Y%:VDU239,4 290 B%=B%MODZ% 300 NEXT:Y%=Y%-24 310 NEXT:H%=H%+80 320 NEXT:ENDPROC 330 : 340 DEF PROCassemble 350 addr=&70:x=&72:y=&74:col=&76:count=&77:scr=&78:data=&7A:oswrch=&FFEE 360 FOR pass=0 TO 2 STEP 2 370 P%=&938:[OPT pass 380 LDX #230 390 .loop1 400 LDA #23:JSR oswrch:TXA:JSR oswrch 410 LDY #0 420 .loop2 430 LDA (addr),Y:JSR oswrch 440 INY:CPY #8:BNE loop2 450 CLC:TYA:ADC addr:STA addr 460 INX:CPX #239:BNE loop1 470 LDA #25:JSR oswrch:LDA #4:JSR oswrch 480 LDA x:JSR oswrch:LDA x+1:JSR oswrch 490 LDA y:JSR oswrch:LDA y+1:JSR oswrch 500 LDX #0 510 .loop3 520 LDA vdu,X:JSR oswrch 530 INX:CPX #17:BNE loop3 540 RTS 550 .vdu 560 EQUB 230:EQUB 231:EQUB 232 570 EQUB 8:EQUB 8:EQUB 8:EQUB 10 580 EQUB 233:EQUB 234:EQUB 235 590 EQUB 8:EQUB 8:EQUB 8:EQUB 10 600 EQUB 236:EQUB 237:EQUB 238:EQUB 0 610 : 710 .card 720 LDA #blank MOD 256:STA data 730 LDA #blank DIV 256:STA data+1 740 JSR line 750 LDA #0:STA count 760 .loop1 770 JSR line:JSR ddata 780 INC count:LDA count:CMP #4:BNE loop1 790 JSR line 800 JSR line 810 RTS 820 .line 830 JSR draw 840 JSR idata 850 LDX #9 860 .loop2 870 JSR draw 880 DEX:BPL loop2 890 JSR idata 900 JSR draw 910 CLC:LDA scr:ADC #&20:STA scr 920 LDA scr+1:ADC #2:STA scr+1 930 JSR idata 940 RTS 950 : 960 .draw 970 LDY #0 980 .dloop 990 LDA (data),Y:STA (scr),Y 1000 INY:CPY #8:BNE dloop 1010 CLC:TYA:ADC scr:STA scr 1020 BCC nocarry:INC scr+1 1030 .nocarry 1040 RTS 1050 .idata 1060 CLC:LDA data:ADC #8:STA data 1070 BCC nocarry2:INC data+1 1080 .nocarry2 1090 RTS 1100 .ddata 1110 SEC:LDA data:SBC #24:STA data 1120 BCS carry:DEC data+1 1130 .carry 1140 RTS 1150 .blank 1160 EQUD &77773380:EQUD &77777777:EQUD &FFFFFF00:EQUD &FFFFFFFF:EQUD &B8B83070:EQUD &B8B8B8B8 1170 EQUD &77777777:EQUD &77777777:EQUD &FFFFFFFF:EQUD &FFFFFFFF:EQUD &B8B8B8B8:EQUD &B8B8B8B8 1180 EQUD &77777777:EQUD &80337777:EQUD &FFFFFFFF:EQUD &00FFFFFF:EQUD &B8B8B8B8:EQUD &7030B8B8 1190 ] 1200 NEXT:ENDPROC