10REPEATCLS:PRINT''"Would you like 8 new screens? (Y/N) ";:A$=GET$:UNTILA$="Y "ORA$="N":REPEATCLS:PRINT''"Fast, Normal or Slow ? (F/N/S) ";:S%=GET:UNTILS%=70O RS%=78ORS%=83:S%=(S%-66)/4:REPEATCLS:INP UT''" Start Level (1-255) "L%:UNTIL L%>0ANDL%<256:REPEATCLS:INPUT''"Number o f lives(1-999999999)",B:UNTILB>0ANDB<999 9999991 20*FX15,0 30REPEATCLS:P%=&880:[OPT0:LDA&3CA:AND #&FE:STA&3CA:JMP(&80):.C:SEI:LDA#&80:STA &204:LDA#08:STA&205:CLI:RTS:.D:SEI:LDA&8 0:STA&204:LDA&81:STA&205:CLI:RTS:]:IF?&2 05<>8?&80=?&204:?&81=?&205:CALLC 40?&38F8=0:*L.CH`EGG 1100 50IF?&205=8CALLD 60*T. 70IF?&38F8<>0 T%=&1BA0:M%=&2CDE:Z%=&2 A6E:Y%=&2010:X%=&2800ELSET%=&1B20:M%=&2B F9:Z%=&29AB:Y%=&1F95:X%=&2700:IF?&2BF9<> 0 M%=&2C03 80?&2BFD=B:?T%=S%:?M%=L%-1:IFA$="Y"PR OCA 90IFA%<&1100PROCB:CALLZ% 100MODE4:VDU7:PRINT''''"Your Screens a re ";A%-&10FE;" bytes too big":STOP 110DEFPROCA:A%=&CD0:FORI%=1TO9:PROCC(I %):NEXT:RESTORE160:PROCC(1):PROCD:RESTOR E220:PROCC(2):PROCD:RESTORE360:PROCC(3): PROCD:RESTORE450:PROCC(4):PROCD:RESTORE5 10:PROCC(5):PROCD:RESTORE590:PROCC(6):PR OCD:RESTORE680:PROCC(7):PROCD:RESTORE290 :PROCC(8):PROCD:ENDPROC 120DEFPROCD:A%=A%+X%:REPEATREADB%:IFB% <>&FF?A%=B%:A%=A%+1:UNTILB%=&FF 130A%=A%-X%:ENDPROC 140DEFPROCC(B%):B%=((B%-1)*2)+&CC0+X%: ?B%=A%MOD256:B%=B%+1:?B%=A%DIV256:ENDPRO C 150DEFPROCB:FORA%=0TO2STEP2:P%=&880:[O PTA%:.E PHA:TXA:PHA:LDA#2:STA&47:LDX&5D: LDA&24,X:CMP#8:BCCF:LDA&60:AND#8:BEQG:IN C&47:.G LDA&24,X:CMP#16:BCCF:LDA&60:AND# 4:BEQF:INC&47:.F PLA:TAX:PLA:SEC:ADC&47: RTS:]:P%=Y%:[OPTA%:JSRE:]:NEXT:ENDPROC 160DATA 5,7,0,5,2 170DATA 0,0,19, 5,0,19, 10,0,19, 15,0, 19, 20,5,19 180DATA 3,1,7, 15,1,7, 1,6,12, 17,6,12 , 8,11,17, 13,11,17, 10,16,22 190DATA 2,1, 5,1, 19,21, 2,16, 4,6, 11 ,21, 18,6, 2,11, 4,11, 16,11, 19,16, 5,2 1 200DATA 7,1, 8,6, 9,11, 6,21, 9,16 210DATA 4,1, 16,21, 18,1, 17,7, 22,10 220DATA 12,6,1,5,3 230DATA 0,0,3, 0,6,17, 10,0,0, 18,0,1, 6,6,9, 6,12,19, 11,6,10, 11,13,19, 16,6 ,11, 16,14,19, 21,6,13, 21,16,19 240DATA 3,1,18, 6,1,23, 19,1,23, 10,17 ,23, 15,1,3, 17,12,18 250DATA 4 260DATA 0,19, 0,11, 1,1, 8,22, 7,17, 7 ,12, 16,12, 8,1, 10,1, 17,7, 15,7, 17,22 270DATA 1,19, 0,1, 8,12, 8,17, 14,17 280DATA 18,22, 17,1, 3,10, 18,22, 3,15 , &FF 290DATA 3,16,0,13,3 300DATA 1,0,8, 1,13,13, 1,13,13 310DATA 0,2,8, 7,2,23, 11,4,15, 15,4,1 5, 3,2,11, 0,10,16, 3,14,17, 10,18,23 320DATA13,18,23, 16,18,23, 19,18,23, 1 0,1,4, 12,1,4, 14,1,4, 16,1,4, 19,1,4 330DATA 1,2, 18,3, 13,6, 0,9, 10,9, 3, 13, 6,16, 16,14, 9,18, 12,20, 15,21, 18, 23 340DATA 2,2, 5,2, 4,2, 6,2, 11,3, 13,3 , 15,3, 19,5, 3,12, 11,16, 15,16, 0,17, 3,18 350DATA 7,12, 15,4, 0,7, 11,4, 19,21, &FF 360 370DATA 15,8,1,9,3 380DATA 1,0,3, 1,7,8, 2,13,14, 3,16,18 , 4,8,11, 4,18,19, 6,0,2, 8,18,19 390DATA 11,0,4, 12,16,19, 14,8,14, 16, 0,4, 16,16,16, 17,18,19, 19,9,14 400DATA 0,1,8, 18,1,10, 8,5,16, 11,5,1 6, 16,9,14, 2,12,18, 14,12,21, 18,13,19 410DATA 5 420DATA 3,2, 14,3, 19,5, 1,7, 9,5, 14, 7, 3,12, 19,13, 12,15, 16,17, 0,17, 9,20 430DATA 2,2, 13,3, 10,5, 19,9, 0,12, 1 7,13, 9,15, 10,15, 13,20 440DATA 11,10, 4,17, 19,18, 18,9, 10,2 0,&FF 450DATA 9,8,0,10,4 460DATA 1,7,8, 20,0,19, 23,12,18, 5,0, 7, 10,0,7, 15,0,7, 6,7,19, 11,7,19, 16,7 ,19 470DATA 7,2,22, 12,21,25, 2,6,17, 4,11 ,17, 10,7,13, 15,7,13, 13,12,18, 18,17,2 5 480DATA 4,21, 9,21, 1,16, 14,17, 16,12 , 18,12, 4,6, 16,7, 14,24, 17,21, 9,12, 11,1 490DATA 19,12, 8,12, 19,7, 8,7, 1,6, 1 0,17, 1,11, 12,7, 15,21, 6,21 500DATA 15,21, 19,17, 1,16, 1,11, 19,1 2,&FF 510DATA 13,5,1,11,2 520DATA 1,0,2, 1,5,19, 5,0,1, 6,5,12, 6,15,17, 7,13,14, 7,18,19 530DATA 11,0,1, 11,10,19, 16,5,19, 17, 0,1, 21,6,12, 21,14,19 540DATA 7,2,8, 16,7,13, 6,12,17, 10,12 ,18, 16,15,23 550DATA 3 560DATA 1,2, 10,2, 16,2, 0,6, 13,8, 0, 12, 18,12, 8,13, 13,17, 0,18, 10,22, 18, 22 570DATA 2,2, 11,2, 17,2, 1,6, 14,8, 1, 12, 17,12, 12,17, 1,18, 11,22, 19,22 580DATA 13,2, 8,17, 10,7, 6,22, 15,22, &FF 590DATA 18,5,1,12,3 600DATA 1,0,1, 1,7,8, 1,11,12, 1,15,16 , 5,6,7, 5,10,11 610DATA 5,14,15, 5,18,19, 6,0,1, 10,6, 12, 10,14,15, 10,17,19, 11,0,1 620DATA 15,12,19, 16,0,0, 16,5,7, 20,7 ,16, 20,18,19 630DATA 19,1,7, 10,6,23, 7,11,22, 19,1 1,17, 15,16,22 640DATA 3 650DATA 0,2, 16,2, 7,6, 18,6, 8,11, 17 ,11, 0,12, 17,16, 5,17, 12,18, 8,21, 19, 21 660DATA 1,2, 11,2, 15,2, 11,6, 14,6, 7 ,2, 9,11, 14,11, 1,12, 13,16, 13,21,18,2 1 670DATA 12,11, 18,11, 12,16, 6,17,12,2 1,&FF 680 690DATA 27,7,0,14,3 700DATA 1,0,2, 1,6,9, 1,13,14, 1,17,18 , 2,6,6, 2,9,9, 3,6,6, 3,9,9, 4,6,6 710DATA 4,9,9, 5,6,6, 5,9,9, 6,0,3, 6, 6,9, 6,12,13, 6,18,19, 11,0,3, 11,6,13 720DATA 11,16,19, 16,3,5, 16,8,10, 16, 13,14, 16,17,19, 20,3,11, 20,13,14 730DATA 20,13,14, 20,16,19 740DATA 0,1,8, 19,1,8, 3,4,8, 0,11,13, 19,11,13, 9,12,18, 19,16,22 750DATA 2,2, 14,2, 6,12, 8,7, 18,7, 1, 12, 13,12, 1,17, 5,17, 18,17, 4,21, 10,2 1 760DATA 1,2, 13,2, 18,2, 2,7, 7,7, 13, 7, 2,12, 12,12, 17,12, 4,17, 14,17, 17,7 , 6,21, 18,21 770DATA 1,7, 3,12, 8,17, 7,21, 16,21,& FF