10REM Sixty Six Loader V.2.21 20MODE1:VDU23;8202;0;0;0;19,2,2;0;:*L .KQJdata B00 30PROCassemble 40VDU23,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,1 27,107,8,28,23,228,206,219,219,219,219,2 19,206,0 50VDU23,229,240,240,240,240,240,240,0 ;23,239,160,160,160,160,160,160,0; 60VDU23,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;76 9;7;23,247,65535;40639;57536;240; 70VDU23,248,256;1795;7951;32575;23,24 9,49280;61664;64760;65534;23,250,7999;18 07;259;0;23,251,64766;61688;49376;128;23 ,252,256;771;7427;16190;23,253,49152;575 68;56544;65214;23,254,7230;257;1795;0;23 ,255,40126;49344;61664;0; 80ENVELOPE 1,1,0,0,0,0,0,0,126,-1,0,- 1,88,0 90ENVELOPE 2,2,33,-33,33,2,2,2,127,0, 0,-20,88,0 100ENVELOPE 3,2,1,1,1,50,50,50,63,-10, 0,-63,63,63 110ENVELOPE 4,3,1,-1,1,1,2,1,75,0,0,-7 5,75,0 120GCOL0,130:CLG:MOVE0,0:DRAW1276,0:DR AW1276,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:DR AW0,795 130VDU5:GCOL0,1:Z%=1:FORX%=140 TO 1100 STEP 192:MOVE X%,204:PRINT;Z%;:Z%=Z%+1: NEXT:VDU4 140GCOL0,128:VDU24,8;8;1268;148;16:GCO L0,129:VDU24,8;803;1268;1015;16:GCOL0,3 150MOVE732,803:DRAW732,1023:DRAW736,10 23:DRAW736,803:VDU5:MOVE928,1007:PRINT"L ast":MOVE912,971:PRINT"Round":MOVE1088,1 007:PRINT"Total":MOVE1088,971:PRINT"Scor e":VDU4:COLOUR3:COLOUR129:PRINTTAB(24,3) "You 0 0"TAB(24,5)"Comp 0 0"' :COLOUR130 160PROCtitle("SIXTY",3,24,991):PROCtit le("SIX",3,456,991) 170A%=&900:C%=&920:P%=&928:W%=&930 180W%?1=11:W%?2=10:W%?3=4:W%?4=3:W%?5= 2:W%?6=0 190: 200CHAIN"66GB" 210: 220DEF PROCtitle(A$,C%,H%,V%) 230GCOL 0,C%:FOR K%=1 TO LENA$ 240?&70=ASCMID$(A$,K%,1) 250A%=10:X%=&70:Y%=0:CALL &FFF1 260Y%=V%:FOR J%=0 TO 7:B%=J%?&71 270FOR I%=7 TO 0 STEP-1:Z%=2^I% 280IF B%DIVZ% X%=7-I%:VDU5:MOVE H%+X%* 12,Y%:VDU239,4 290B%=B%MODZ% 300NEXT:Y%=Y%-24 310NEXT:H%=H%+80 320NEXT:ENDPROC 330: 340DEF PROCassemble 350addr=&70:x=&72:y=&74:col=&76:count= &77:scr=&78:data=&7A:oswrch=&FFEE 360FOR pass=0 TO 2 STEP 2 370P%=&938:[OPT pass 380LDX #230 390.loop1 400LDA #23:JSR oswrch:TXA:JSR oswrch 410LDY #0 420.loop2 430LDA (addr),Y:JSR oswrch 440INY:CPY #8:BNE loop2 450CLC:TYA:ADC addr:STA addr 460INX:CPX #239:BNE loop1 470LDA #25:JSR oswrch:LDA #4:JSR oswrc h 480LDA x:JSR oswrch:LDA x+1:JSR oswrch 490LDA y:JSR oswrch:LDA y+1:JSR oswrch 500LDX #0 510.loop3 520LDA vdu,X:JSR oswrch 530INX:CPX #17:BNE loop3 540RTS 550.vdu 560EQUB 230:EQUB 231:EQUB 232 570EQUB 8:EQUB 8:EQUB 8:EQUB 10 580EQUB 233:EQUB 234:EQUB 235 590EQUB 8:EQUB 8:EQUB 8:EQUB 10 600EQUB 236:EQUB 237:EQUB 238:EQUB 0 610: 710.card 720LDA #blank MOD 256:STA data 730LDA #blank DIV 256:STA data+1 740JSR line 750LDA #0:STA count 760.loop1 770JSR line:JSR ddata 780INC count:LDA count:CMP #4:BNE loop 1 790JSR line 800JSR line 810RTS 820.line 830JSR draw 840JSR idata 850LDX #9 860.loop2 870JSR draw 880DEX:BPL loop2 890JSR idata 900JSR draw 910CLC:LDA scr:ADC #&20:STA scr 920LDA scr+1:ADC #2:STA scr+1 930JSR idata 940RTS 950: 960.draw 970LDY #0 980.dloop 990LDA (data),Y:STA (scr),Y 1000INY:CPY #8:BNE dloop 1010CLC:TYA:ADC scr:STA scr 1020BCC nocarry:INC scr+1 1030.nocarry 1040RTS 1050.idata 1060CLC:LDA data:ADC #8:STA data 1070BCC nocarry2:INC data+1 1080.nocarry2 1090RTS 1100.ddata 1110SEC:LDA data:SBC #24:STA data 1120BCS carry:DEC data+1 1130.carry 1140RTS 1150.blank 1160EQUD &77773380:EQUD &77777777:EQUD &FFFFFF00:EQUD &FFFFFFFF:EQUD &B8B83070: EQUD &B8B8B8B8 1170EQUD &77777777:EQUD &77777777:EQUD &FFFFFFFF:EQUD &FFFFFFFF:EQUD &B8B8B8B8: EQUD &B8B8B8B8 1180EQUD &77777777:EQUD &80337777:EQUD &FFFFFFFF:EQUD &00FFFFFF:EQUD &B8B8B8B8: EQUD &7030B8B8 1190] 1200NEXT:ENDPROC