Home » Personal collection » Acorn tapes » Commercial_Releases » box04_tape12b_acorn_eu_ten_of_the_best_3.wav » INVASION

INVASION

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn tapes » Commercial_Releases » box04_tape12b_acorn_eu_ten_of_the_best_3.wav
Filename: INVASION
Read OK:
File size: 24A4 bytes
Load address: FFFF1900
Exec address: FFFF8023
File contents
   10REM Invasion Force
   20REM By S.Martin
   30REM (c) Electron User
   40MODE4:ENVELOPE1,129,-50,-6,-12,11,17,172,126,0,0,-126,126,126:ENVELOPE2,2,13,-2,42,71,24,112,126,0,0,-126,126,126:ENVELOPE3,1,1,-2,1,5,5,12,126,0,0,-126,126,126
   50VDU23,224,0,0,0,0,15,127,127,31,23,225,24,24,126,126,255,255,255,255,23,226,0,0,0,0,240,254,254,248,23,227,0,24,24,24,24,24,24,24,0,23,228,16,64,28,97,8,40,148,16,23,229,255,255,255,255,255,255,255,255
   60VDU23,230,0,99,255,241,57,79,67,48,23,231,0,198,255,143,156,242,194,12,23,232,96,147,15,49,25,15,17,12,23,233,6,201,240,140,152,240,136,48
   70VDU23,238,0,31,57,121,255,255,199,114,23,239,126,255,36,36,255,153,60,0,23,240,0,248,156,158,255,255,227,78,19,0,4;0;23,1;0;0;0;0;
   80statusa=&900:statusb=&904:statusc=&908:statusd=&90D:DIM Q% 2150:HI%=500:FORT=0TO2STEP2:P%=Q%:[OPTT
   90.start:JSRinit:JSRreset:.start2:JSRscreen:JSRprintscore:.mainloop
  100JSRbase:JSRbigmumma:LDA#19:JSR&FFF4:JSRmissile:JSRbase:JSRbombs:LDA&8C:CMP#1:BNEhg1:JMPnoland:.hg1:JSRerowa:JSRcalca:JSRrowa:JSRlanded
  110JSRbase:LDA#19:JSR&FFF4:JSRbigmumma:JSRmissile:JSRbase:JSRbombs:LDA&8C:CMP#1:BNEhg2:JMPnoland:.hg2:JSRerowb:JSRcalcb:JSRrowb
  120JSRbase:LDA#19:JSR&FFF4:JSRbigmumma:JSRmissile:JSRbase:JSRbombs:LDA&8C:CMP#1:BNEhg3:JMPnoland:.hg3:JSRerowc:JSRcalcc:JSRrowc
  130JSRbase:LDA#19:JSR&FFF4:JSRbigmumma:JSRmissile:JSRbase:JSRbombs:LDA&8C:CMP#1:BNEhg4:JMPnoland:.hg4:JSRerowd:JSRcalcd:JSRrowd
  140LDA&B4:CMP#1:BNEnoland:RTS:.noland:LDA&8C:CMP#1:BNEnotdead:RTS:.notdead:LDA&85:CMP#16:BNEsquirm:RTS:.squirm:JMPmainloop
  150.pause:LDA#21:LDX#1:JSR&FFF4:JSR&FFE0:RTS
  160.init:LDA#11:STA&70:STA&72:STA&74:STA&76:LDA#1:STA&78:STA&79:STA&7A:STA&7B:LDA#27:STA&84:LDA#0:STA&85:STA&8F:STA&83:STA&8C:STA&8B:STA&B4:LDA#15:STA&80:LDA&90:STA&71:CLC:ADC#2:STA&73:CLC:ADC#2:STA&75:CLC:ADC#2:STA&77
  170LDX#16:LDA#1:.lii:STA&900,X:DEX:BPL lii:LDA#5:STA&8A:LDA#3:STA&B3:RTS:.base:LDX#&C8:JSRinkey:TYA:BNEpause:LDA&80:STA&82:LDX#&BD:JSRinkey:TYA:BEQbaseleft:INC&80:.baseleft:LDX#&9E:JSRinkey:TYA
  180BEQprintbase:DEC&80:.printbase:LDA&80:CMP#1:BEQrestore:CMP#35:BEQrestore:JMPskip:.restore:LDA&82:STA&80:JMPfinish:.skip:LDA#31:JSR&FFEE:LDA&80:JSR&FFEE:LDA#27:JSR&FFEE:LDA#32:JSR&FFEE:LDA#224:JSR&FFEE:LDA#225:JSR&FFEE:LDA#226
  190JSR&FFEE:LDA#32:JSR&FFEE:.finish:RTS:.inkey:LDA#129:LDY#255:JMP&FFF4:RTS
  200.rowa:LDA#31:JSR&FFEE:LDA&70:JSR&FFEE:LDA&71:JSR&FFEE:LDY#0:.loopa:LDAstatusa,Y:CMP#1:BNEovera:LDA#230:JSR&FFEE:LDA#231:JSR&FFEE:JMPab:.overa:LDA#32:JSR&FFEE:JSR&FFEE:.ab:LDA#32:JSR&FFEE:INY:CPY#4:BNEloopa:RTS
  210.rowb:LDA#31:JSR&FFEE:LDA&72:JSR&FFEE:LDA&73:JSR&FFEE:LDY#0:.loopb:LDAstatusb,Y:CMP#1:BNEoverb:LDA#230:JSR&FFEE:LDA#231:JSR&FFEE:JMPbc:.overb:LDA#32:JSR&FFEE:JSR&FFEE:.bc:LDA#32:JSR&FFEE:INY:CPY#4:BNEloopb:RTS
  220.rowc:LDA#31:JSR&FFEE:LDA&74:JSR&FFEE:LDA&75:JSR&FFEE:LDY#0:.loopc:LDAstatusc,Y:CMP#1:BNEoverc:LDA#232:JSR&FFEE:LDA#233:JSR&FFEE:JMPcd:.overc:LDA#32:JSR&FFEE:JSR&FFEE:.cd:LDA#32:JSR&FFEE:INY:CPY#4:BNEloopc:RTS
  230.rowd:LDA#31:JSR&FFEE:LDA&76:JSR&FFEE:LDA&77:JSR&FFEE:LDY#0:.loopd:LDAstatusd,Y:CMP#1:BNEoverd:LDA#232:JSR&FFEE:LDA#233:JSR&FFEE:JMPde:.overd:LDA#32:JSR&FFEE:JSR&FFEE:.de:LDA#32:JSR&FFEE:INY:CPY#4:BNEloopd:RTS
  240.erowa:LDA#31:JSR&FFEE:LDA&70:JSR&FFEE:LDA&71:JSR&FFEE:LDY#0:.loopa:LDAstatusa,Y:CMP#1:BNEovere:LDA#32:JSR&FFEE:JSR&FFEE:JMPq:.overe:LDA#32:JSR&FFEE:JSR&FFEE:.q:LDA#32:JSR&FFEE:INY:CPY#4:BNEloopa:RTS
  250.erowb:LDA#31:JSR&FFEE:LDA&72:JSR&FFEE:LDA&73:JSR&FFEE:LDY#0:.loopb:LDAstatusb,Y:CMP#1:BNEoverf:LDA#32:JSR&FFEE:JSR&FFEE:JMPw:.overf:LDA#32:JSR&FFEE:JSR&FFEE:.w:LDA#9:JSR&FFEE:INY:CPY#4:BNEloopb:RTS
  260.erowc:LDA#31:JSR&FFEE:LDA&74:JSR&FFEE:LDA&75:JSR&FFEE:LDY#0:.loopc:LDAstatusc,Y:CMP#1:BNEoverg:LDA#32:JSR&FFEE:JSR&FFEE:JMPr:.overg:LDA#32:JSR&FFEE:JSR&FFEE:.r:LDA#9:JSR&FFEE:INY:CPY#4:BNEloopc:RTS
  270.erowd:LDA#31:JSR&FFEE:LDA&76:JSR&FFEE:LDA&77:JSR&FFEE:LDY#0:.loopd:LDAstatusd,Y:CMP#1:BNEover:LDA#32:JSR&FFEE:JSR&FFEE:JMPt:.over:LDA#32:JSR&FFEE:JSR&FFEE:.t:LDA#9:JSR&FFEE:INY:CPY#4:BNEloopd:RTS
  280.calca:LDA&78:CMP#1:BNElefta:INC&70:.lefta:CMP#2:BNEchecka:DEC&70:.checka:LDA&70:CMP#26:BNEcheck2a:LDA#2:STA&78:INC&71:.check2a:LDA&70:CMP#3:BNEnoturna:LDA#1:STA&78:INC&71:.noturna:RTS
  290.calcb:LDA&79:CMP#1:BNEyy:INC&72:.yy:CMP#2:BNEff:DEC&72:.ff:LDA&72:CMP#26:BNEoo:LDA#2:STA&79:INC&73:.oo:LDA&72:CMP#3:BNEll:LDA#1:STA&79:INC&73:.ll:RTS
  300.calcc:LDA&7A:CMP#1:BNEdd:INC&74:.dd:CMP#2:BNEkk:DEC&74:.kk:LDA&74:CMP#26:BNEop:LDA#2:STA&7A:INC&75:.op:LDA&74:CMP#3:BNEkl:LDA#1:STA&7A:INC&75:.kl:RTS
  310.calcd:LDA&7B:CMP#1:BNEleftd:INC&76:.leftd:CMP#2:BNEcheckd:DEC&76:.checkd:LDA&76:CMP#26:BNEcheck2d:LDA#2:STA&7B:INC&77:.check2d:LDA&76:CMP#3:BNEnoturnd:LDA#1:STA&7B:INC&77:.noturnd:RTS
  320.table:EQUB&1:EQUB&1:EQUB&0:EQUB&2:EQUB&2:EQUB&0:EQUB&3:EQUB&3:EQUB&0:EQUB&4:EQUB&4:.missile:LDA&84:CMP#27:BEQnofire:JMPfirering:.nofire:LDX#&FF:JSRinkey:TYA:BEQback:LDX#fah MOD 256:LDY#fah DIV 256:LDA#7:JSR&FFF1:JMPbasefire:.back:RTS
  330.basefire:LDA&80:STA&83:INC&83:INC&83:.firering:LDA#31:JSR&FFEE:LDA&83:JSR&FFEE:LDA&84:JSR&FFEE:LDA#32:JSR&FFEE:DEC&84:LDA&84:CMP#4:BNEnottop:LDA#27:STA&84:RTS:.nottop:LDA#31:JSR&FFEE:LDA&83:JSR&FFEE:LDA&84
  340JSR&FFEE:LDA#135:JSR&FFF4:TXA:CMP#134:BEQhit2:CMP#135:BEQhit2:CMP#136:BEQhit1:CMP#137:BEQhit1:CMP#133:BEQyepi:LDA#227:JSR&FFEE:RTS:.yepi:LDA#32:JSR&FFEE:JMPnorm:.hit2:JSRadd200:JMPpengo:.hit1:JSRadd100:JMPpengo
  350.nnn:JSRadd200:.pengo:LDA&84:CMP&77:BNEnof:SEC:LDA&83:SBC&76:TAY:LDA table,Y:STA&8E:LDX&8E:LDA#0:STA&90C,X:JMPreturn:.nof:LDA&84:CMP&75:BNEsecond:SEC:LDA&83:SBC&74:TAY:LDA table,Y:STA&8E
  360LDX&8E:LDA#0:STA&907,X:JMPreturn:.second:LDA&84:CMP&73:BNEfirst:SEC:LDA&83:SBC&72:TAY:LDA table,Y:STA&8E:LDX&8E:LDA#0:STA&903,X:JMPreturn:.first:LDA&84:CMP&71:BNEreturn:SEC:LDA&83:SBC&70:TAY:LDA table,Y:STA&8E:LDX&8E:LDA#0:STA&8FF,X
  370.return:LDA#31:JSR&FFEE:LDA&83:JSR&FFEE:LDA&84:JSR&FFEE:LDA#228:JSR&FFEE:LDX#explo MOD 256:LDY#explo DIV 256:LDA#7:JSR&FFF1:INC&85:.norm:LDA#27:STA&84
  380JMPprintbase:.screen:LDA#31:JSR&FFEE:LDA#7:JSR&FFEE:LDA#22:JSR&FFEE:LDX#0:.output1:LDAbunker,X:JSR&FFE3:INX:CMP#13:BNEoutput1:LDA#31:JSR&FFEE:LDA#19:JSR&FFEE:LDA#22:JSR&FFEE:LDX#0:.output2:LDAbunker,X:JSR&FFE3:INX
  390CMP#13:BNEoutput2:LDA#31:JSR&FFEE:LDA#31:JSR&FFEE:LDA#22:JSR&FFEE:LDX#0:.output3:LDAbunker,X:JSR&FFE3:INX:CMP#13:BNEoutput3:JMPrest:.bunker:EQUS CHR$229+CHR$229+CHR$229+CHR$10+CHR$8+CHR$8+CHR$8+CHR$8+CHR$229+CHR$229+CHR$229+CHR$229
  400EQUS CHR$229+CHR$10+CHR$8+CHR$8+CHR$8+CHR$8+CHR$8+CHR$229+CHR$229+CHR$229+CHR$229+CHR$229+CHR$10+CHR$8+CHR$8+CHR$8+CHR$8+CHR$8+CHR$229+CHR$229+CHR$32+CHR$229+CHR$229+CHR$13
  410.explo EQUD&00020011:EQUD&000A0004:.fah:EQUD&00010011:EQUD&000500FF
  420.rest:LDX#0:.ou:LDAstat,X:JSR&FFE3:INX:CMP#13:BNEou:RTS:.stat:EQUS CHR$31+CHR$7+CHR$1+"LEVEL     SCORE     LIVES"+CHR$31+CHR$17+CHR$2+"00000"+CHR$13
  430.bombs:LDA#31:JSR&FFEE:LDA&7C:JSR&FFEE:LDA&7D:JSR&FFEE:INC&7D:LDA&7D:CMP#28:BEQreset:LDA#32:JSR&FFEE:LDA#31:JSR&FFEE:LDA&7C:JSR&FFEE:LDA&7D:JSR&FFEE:LDA#135:JSR&FFF4:TXA:CMP#133:BEQreset:CMP#128:BEQboom:CMP#129:BEQboom:CMP#130:BEQboom
  440LDA#227:JSR&FFEE:RTS:.reset:LDA#32:JSR&FFEE:LDA&8A:STA&7C:INC&7C:LDA#4:STA&7D:RTS:.boom:LDA#31:JSR&FFEE:LDA&80:JSR&FFEE:LDA#27:JSR&FFEE:LDA#32:JSR&FFEE:LDA#228:JSR&FFEE:JSR&FFEE:JSR&FFEE:LDA#1:STA&8C:RTS
  450.bigmumma:LDA#31:JSR&FFEE:LDA&8A:JSR&FFEE:LDA#4:JSR&FFEE:LDA#32:JSR&FFEE:JSR&FFEE:JSR&FFEE:LDA&8B:CMP#1:BEQscrag:INC&8A:JMPpang:.scrag:DEC&8A:.pang:LDA&8A:CMP#2:BEQfrak:CMP#34:BEQzalaga:.mumma:LDA#31:JSR&FFEE:LDA&8A:JSR&FFEE:LDA#4
  460JSR&FFEE:LDA#238:JSR&FFEE:LDA#239:JSR&FFEE:LDA#240:JSR&FFEE:RTS:.frak:INC&8A:LDA#0:STA&8B:JMPmumma:.zalaga:DEC&8A:LDA#1:STA&8B:JMPmumma
  470.printscore:LDA#31:JSR&FFEE:LDA#17:JSR&FFEE:LDA#2:JSR&FFEE:LDA&87:LSRA:LSRA:LSRA:LSRA:CLC:ADC#48:JSR&FFEE:LDA&87:AND#&0F:CLC:ADC#48:JSR&FFEE:LDA&88:LSRA:LSRA:LSRA:LSRA:CLC:ADC#48:JSR&FFEE:LDA&88:AND#&0F:CLC:ADC#48:JSR&FFEE:RTS
  480.add100:SED:CLC:LDA&88:ADC#10:STA&88:LDA&87:ADC#0:STA&87:CLD:JMPprintscore:.add200:SED:CLC:LDA&88:ADC#32:STA&88:LDA&87:ADC#0:STA&87:CLD:JMPprintscore:.landed:LDA&71:CMP#20:BEQhagar:RTS:.hagar:JSRboom:LDA#1:STA&B4:RTS
  490RTS:]:NEXT
  500CLS:PROCmsk("INVASION FORCE",10,1):PRINTTAB(7,10)"Z    -   FOR    -   LEFT":PRINTTAB(7,12)"X    -   FOR    -   RIGHT":PRINTTAB(5,14)"SHIFT  -   FOR    -   FIRE":PRINTTAB(7,16)"P    -   FOR    -   PAUSE"
  510PRINTTAB(11,5)"HI SCORE=":PRINTTAB(21,5);HI%;"0":PRINTTAB(7,19)"S    -   FOR    -   SOUND":PRINTTAB(7,21)"Q    -   FOR    -   QUIET":PRINTTAB(11,25)"SOUND STATUS=ON":PROCmsk("SPACE TO START",11,28):*FX21,0
  520*FX210,0
  530REPEAT:A$=GET$:IFA$="Q":PRINTTAB(24,25);"OFF";:*FX210,10
  540IFA$="S":PRINTTAB(24,25);"ON ";:*FX210,0
  550UNTIL A$=" ":PROCtune("98765432106677:8:899:;:;:::::::",3,2)
  560LEV%=0:L%=3:?&90=5:?&87=0:?&88=0:CLS:PRINTTAB(9,2);LEV%:PRINTTAB(29,2);L%
  570REPEAT
  580CALLQ%
  590IF?&B4=1:?&B4=0:PROClanded:GOTO500
  600IF?&85=16THENLEV%=LEV%+1:PROCsetscreen:PROCmessage:GOTO580
  610L%=L%-1:SOUND0,-10,15,20:PROCsetscreen:FORT=1TO2000:NEXT
  620IF?&8C=1 AND L%>1:?&8C=0:CALLstart2:GOTO600
  630UNTIL L%=0
  640SC%=1000*((?&87 AND &F0)DIV &10)+100*(?&87 AND &F)+10*((?&88 AND &F0) DIV &10)+(?&88 AND &F):IF SC%>HI%:PROCnewhigh
  650GOTO500
  660DEFPROCsetscreen:PRINTTAB(9,2);LEV%:PRINTTAB(29,2);L%:GCOL0,0:FORI%=0TO1280STEP4:MOVEI%,100:DRAWI%,930:NEXT:GCOL0,1:ENDPROC 
  670DEFPROCmessage:PRINTTAB(10,10);"FORCE ";LEV%;" DESTROYED":FORT=1TO1000:NEXT:GCOL0,0:FORI%=0TO1280STEP4:MOVEI%,600:DRAWI%,700:NEXT:GCOL0,1
  680?&90=?&90+1:IF?&90=16:?&90=5
  690ENDPROC
  700DEFPROClanded:SOUND0,-10,15,15:PROCsetscreen:PRINTTAB(13,10);"FORCE HAS LANDED":FORT=1TO1000:NEXT:PROCtune("677:8:899:;:;:::::::",3,2):GCOL0,0:FORI%=0TO1280STEP4:MOVEI%,600:DRAWI%,700:NEXT:GCOL0,1:ENDPROC
  710DEFPROCtune(S$,C%,D%):FORV%=1TOLEN(S$):N%=(ASC(MID$(S$,V%,1))-43)*8:SOUND1,C%,N%,D%:NEXT:ENDPROC
  720DEFPROCnewhigh:HI%=SC%:CLS:PRINTTAB(12,10);"NEW HIGH SCORE!":VDU19,1,8;0;:PROCtune("1234567890123456789677:8:899:;:;:::::::",3,2):FORT=1TO3000:NEXT:VDU19,1,7;0;:ENDPROC
  730DEFPROCmsk(A$,XC%,YC%):LOCAL X%,Y%,P%,Z%:X%=XC%:Y%=YC%:Z%=X%+LENA$:FORT=1TOLENA$:X%=X%+1:F$=MID$(A$,T,1):FORP%=Z%TOX%STEP-1:PRINTTAB(P%,Y%);F$:NEXT:NEXT:ENDPROC

� Invasion Force
� By S.Martin
� (c) Electron User
(��4:�1,129,-50,-6,-12,11,17,172,126,0,0,-126,126,126:�2,2,13,-2,42,71,24,112,126,0,0,-126,126,126:�3,1,1,-2,1,5,5,12,126,0,0,-126,126,126
2��23,224,0,0,0,0,15,127,127,31,23,225,24,24,126,126,255,255,255,255,23,226,0,0,0,0,240,254,254,248,23,227,0,24,24,24,24,24,24,24,0,23,228,16,64,28,97,8,40,148,16,23,229,255,255,255,255,255,255,255,255
<��23,230,0,99,255,241,57,79,67,48,23,231,0,198,255,143,156,242,194,12,23,232,96,147,15,49,25,15,17,12,23,233,6,201,240,140,152,240,136,48
F��23,238,0,31,57,121,255,255,199,114,23,239,126,255,36,36,255,153,60,0,23,240,0,248,156,158,255,255,227,78,19,0,4;0;23,1;0;0;0;0;
P^statusa=&900:statusb=&904:statusc=&908:statusd=&90D:� Q% 2150:HI%=500:�T=0�2�2:P%=Q%:[OPTT
ZE.start:JSRinit:JSRreset:.start2:JSRscreen:JSRprintscore:.mainloop
d�JSRbase:JSRbigmumma:LDA#19:JSR&FFF4:JSRmissile:JSRbase:JSRbombs:LDA&8C:CMP#1:BNEhg1:JMPnoland:.hg1:JSRerowa:JSRcalca:JSRrowa:JSRlanded
n�JSRbase:LDA#19:JSR&FFF4:JSRbigmumma:JSRmissile:JSRbase:JSRbombs:LDA&8C:CMP#1:BNEhg2:JMPnoland:.hg2:JSRerowb:JSRcalcb:JSRrowb
x�JSRbase:LDA#19:JSR&FFF4:JSRbigmumma:JSRmissile:JSRbase:JSRbombs:LDA&8C:CMP#1:BNEhg3:JMPnoland:.hg3:JSRerowc:JSRcalcc:JSRrowc
��JSRbase:LDA#19:JSR&FFF4:JSRbigmumma:JSRmissile:JSRbase:JSRbombs:LDA&8C:CMP#1:BNEhg4:JMPnoland:.hg4:JSRerowd:JSRcalcd:JSRrowd
�{LDA&B4:CMP#1:BNEnoland:RTS:.noland:LDA&8C:CMP#1:BNEnotdead:RTS:.notdead:LDA&85:CMP#16:BNEsquirm:RTS:.squirm:JMPmainloop
�-.pause:LDA#21:LDX#1:JSR&FFF4:JSR&FFE0:RTS
��.init:LDA#11:STA&70:STA&72:STA&74:STA&76:LDA#1:STA&78:STA&79:STA&7A:STA&7B:LDA#27:STA&84:LDA#0:STA&85:STA&8F:STA&83:STA&8C:STA&8B:STA&B4:LDA#15:STA&80:LDA&90:STA&71:CLC:ADC#2:STA&73:CLC:ADC#2:STA&75:CLC:ADC#2:STA&77
��LDX#16:LDA#1:.lii:STA&900,X:DEX:BPL lii:LDA#5:STA&8A:LDA#3:STA&B3:RTS:.base:LDX#&C8:JSRinkey:TYA:BNEpause:LDA&80:STA&82:LDX#&BD:JSRinkey:TYA:BEQbaseleft:INC&80:.baseleft:LDX#&9E:JSRinkey:TYA
��BEQprintbase:DEC&80:.printbase:LDA&80:CMP#1:BEQrestore:CMP#35:BEQrestore:JMPskip:.restore:LDA&82:STA&80:JMPfinish:.skip:LDA#31:JSR&FFEE:LDA&80:JSR&FFEE:LDA#27:JSR&FFEE:LDA#32:JSR&FFEE:LDA#224:JSR&FFEE:LDA#225:JSR&FFEE:LDA#226
�LJSR&FFEE:LDA#32:JSR&FFEE:.finish:RTS:.inkey:LDA#129:LDY#255:JMP&FFF4:RTS
��.rowa:LDA#31:JSR&FFEE:LDA&70:JSR&FFEE:LDA&71:JSR&FFEE:LDY#0:.loopa:LDAstatusa,Y:CMP#1:BNEovera:LDA#230:JSR&FFEE:LDA#231:JSR&FFEE:JMPab:.overa:LDA#32:JSR&FFEE:JSR&FFEE:.ab:LDA#32:JSR&FFEE:INY:CPY#4:BNEloopa:RTS
��.rowb:LDA#31:JSR&FFEE:LDA&72:JSR&FFEE:LDA&73:JSR&FFEE:LDY#0:.loopb:LDAstatusb,Y:CMP#1:BNEoverb:LDA#230:JSR&FFEE:LDA#231:JSR&FFEE:JMPbc:.overb:LDA#32:JSR&FFEE:JSR&FFEE:.bc:LDA#32:JSR&FFEE:INY:CPY#4:BNEloopb:RTS
��.rowc:LDA#31:JSR&FFEE:LDA&74:JSR&FFEE:LDA&75:JSR&FFEE:LDY#0:.loopc:LDAstatusc,Y:CMP#1:BNEoverc:LDA#232:JSR&FFEE:LDA#233:JSR&FFEE:JMPcd:.overc:LDA#32:JSR&FFEE:JSR&FFEE:.cd:LDA#32:JSR&FFEE:INY:CPY#4:BNEloopc:RTS
��.rowd:LDA#31:JSR&FFEE:LDA&76:JSR&FFEE:LDA&77:JSR&FFEE:LDY#0:.loopd:LDAstatusd,Y:CMP#1:BNEoverd:LDA#232:JSR&FFEE:LDA#233:JSR&FFEE:JMPde:.overd:LDA#32:JSR&FFEE:JSR&FFEE:.de:LDA#32:JSR&FFEE:INY:CPY#4:BNEloopd:RTS
��.erowa:LDA#31:JSR&FFEE:LDA&70:JSR&FFEE:LDA&71:JSR&FFEE:LDY#0:.loopa:LDAstatusa,Y:CMP#1:BNEovere:LDA#32:JSR&FFEE:JSR&FFEE:JMPq:.overe:LDA#32:JSR&FFEE:JSR&FFEE:.q:LDA#32:JSR&FFEE:INY:CPY#4:BNEloopa:RTS
��.erowb:LDA#31:JSR&FFEE:LDA&72:JSR&FFEE:LDA&73:JSR&FFEE:LDY#0:.loopb:LDAstatusb,Y:CMP#1:BNEoverf:LDA#32:JSR&FFEE:JSR&FFEE:JMPw:.overf:LDA#32:JSR&FFEE:JSR&FFEE:.w:LDA#9:JSR&FFEE:INY:CPY#4:BNEloopb:RTS
�.erowc:LDA#31:JSR&FFEE:LDA&74:JSR&FFEE:LDA&75:JSR&FFEE:LDY#0:.loopc:LDAstatusc,Y:CMP#1:BNEoverg:LDA#32:JSR&FFEE:JSR&FFEE:JMPr:.overg:LDA#32:JSR&FFEE:JSR&FFEE:.r:LDA#9:JSR&FFEE:INY:CPY#4:BNEloopc:RTS
�.erowd:LDA#31:JSR&FFEE:LDA&76:JSR&FFEE:LDA&77:JSR&FFEE:LDY#0:.loopd:LDAstatusd,Y:CMP#1:BNEover:LDA#32:JSR&FFEE:JSR&FFEE:JMPt:.over:LDA#32:JSR&FFEE:JSR&FFEE:.t:LDA#9:JSR&FFEE:INY:CPY#4:BNEloopd:RTS
�.calca:LDA&78:CMP#1:BNElefta:INC&70:.lefta:CMP#2:BNEchecka:DEC&70:.checka:LDA&70:CMP#26:BNEcheck2a:LDA#2:STA&78:INC&71:.check2a:LDA&70:CMP#3:BNEnoturna:LDA#1:STA&78:INC&71:.noturna:RTS
"�.calcb:LDA&79:CMP#1:BNEyy:INC&72:.yy:CMP#2:BNEff:DEC&72:.ff:LDA&72:CMP#26:BNEoo:LDA#2:STA&79:INC&73:.oo:LDA&72:CMP#3:BNEll:LDA#1:STA&79:INC&73:.ll:RTS
,�.calcc:LDA&7A:CMP#1:BNEdd:INC&74:.dd:CMP#2:BNEkk:DEC&74:.kk:LDA&74:CMP#26:BNEop:LDA#2:STA&7A:INC&75:.op:LDA&74:CMP#3:BNEkl:LDA#1:STA&7A:INC&75:.kl:RTS
6�.calcd:LDA&7B:CMP#1:BNEleftd:INC&76:.leftd:CMP#2:BNEcheckd:DEC&76:.checkd:LDA&76:CMP#26:BNEcheck2d:LDA#2:STA&7B:INC&77:.check2d:LDA&76:CMP#3:BNEnoturnd:LDA#1:STA&7B:INC&77:.noturnd:RTS
@�.table:EQUB&1:EQUB&1:EQUB&0:EQUB&2:EQUB&2:EQUB&0:EQUB&3:EQUB&3:EQUB&0:EQUB&4:EQUB&4:.missile:LDA&84:CMP#27:BEQnofire:JMPfirering:.nofire:LDX#&FF:JSRinkey:TYA:BEQback:LDX#fah � 256:LDY#fah � 256:LDA#7:JSR&FFF1:JMPbasefire:.back:RTS
J�.basefire:LDA&80:STA&83:INC&83:INC&83:.firering:LDA#31:JSR&FFEE:LDA&83:JSR&FFEE:LDA&84:JSR&FFEE:LDA#32:JSR&FFEE:DEC&84:LDA&84:CMP#4:BNEnottop:LDA#27:STA&84:RTS:.nottop:LDA#31:JSR&FFEE:LDA&83:JSR&FFEE:LDA&84
T�JSR&FFEE:LDA#135:JSR&FFF4:TXA:CMP#134:BEQhit2:CMP#135:BEQhit2:CMP#136:BEQhit1:CMP#137:BEQhit1:CMP#133:BEQyepi:LDA#227:JSR&FFEE:RTS:.yepi:LDA#32:JSR&FFEE:JMPnorm:.hit2:JSRadd200:JMPpengo:.hit1:JSRadd100:JMPpengo
^�.nnn:JSRadd200:.pengo:LDA&84:CMP&77:BNEnof:SEC:LDA&83:SBC&76:TAY:LDA table,Y:STA&8E:LDX&8E:LDA#0:STA&90C,X:JMPreturn:.nof:LDA&84:CMP&75:BNEsecond:SEC:LDA&83:SBC&74:TAY:LDA table,Y:STA&8E
h�LDX&8E:LDA#0:STA&907,X:JMPreturn:.second:LDA&84:CMP&73:BNEfirst:SEC:LDA&83:SBC&72:TAY:LDA table,Y:STA&8E:LDX&8E:LDA#0:STA&903,X:JMPreturn:.first:LDA&84:CMP&71:BNEreturn:SEC:LDA&83:SBC&70:TAY:LDA table,Y:STA&8E:LDX&8E:LDA#0:STA&8FF,X
r�.return:LDA#31:JSR&FFEE:LDA&83:JSR&FFEE:LDA&84:JSR&FFEE:LDA#228:JSR&FFEE:LDX#explo � 256:LDY#explo � 256:LDA#7:JSR&FFF1:INC&85:.norm:LDA#27:STA&84
|�JMPprintbase:.screen:LDA#31:JSR&FFEE:LDA#7:JSR&FFEE:LDA#22:JSR&FFEE:LDX#0:.output1:LDAbunker,X:JSR&FFE3:INX:CMP#13:BNEoutput1:LDA#31:JSR&FFEE:LDA#19:JSR&FFEE:LDA#22:JSR&FFEE:LDX#0:.output2:LDAbunker,X:JSR&FFE3:INX
��CMP#13:BNEoutput2:LDA#31:JSR&FFEE:LDA#31:JSR&FFEE:LDA#22:JSR&FFEE:LDX#0:.output3:LDAbunker,X:JSR&FFE3:INX:CMP#13:BNEoutput3:JMPrest:.bunker:EQUS �229+�229+�229+�10+�8+�8+�8+�8+�229+�229+�229+�229
�hEQUS �229+�10+�8+�8+�8+�8+�8+�229+�229+�229+�229+�229+�10+�8+�8+�8+�8+�8+�229+�229+�32+�229+�229+�13
�G.explo EQUD&00020011:EQUD&000A0004:.fah:EQUD&00010011:EQUD&000500FF
��.rest:LDX#0:.ou:LDAstat,X:JSR&FFE3:INX:CMP#13:BNEou:RTS:.stat:EQUS �31+�7+�1+"LEVEL     SCORE     LIVES"+�31+�17+�2+"00000"+�13
��.bombs:LDA#31:JSR&FFEE:LDA&7C:JSR&FFEE:LDA&7D:JSR&FFEE:INC&7D:LDA&7D:CMP#28:BEQreset:LDA#32:JSR&FFEE:LDA#31:JSR&FFEE:LDA&7C:JSR&FFEE:LDA&7D:JSR&FFEE:LDA#135:JSR&FFF4:TXA:CMP#133:BEQreset:CMP#128:BEQboom:CMP#129:BEQboom:CMP#130:BEQboom
��LDA#227:JSR&FFEE:RTS:.reset:LDA#32:JSR&FFEE:LDA&8A:STA&7C:INC&7C:LDA#4:STA&7D:RTS:.boom:LDA#31:JSR&FFEE:LDA&80:JSR&FFEE:LDA#27:JSR&FFEE:LDA#32:JSR&FFEE:LDA#228:JSR&FFEE:JSR&FFEE:JSR&FFEE:LDA#1:STA&8C:RTS
��.bigmumma:LDA#31:JSR&FFEE:LDA&8A:JSR&FFEE:LDA#4:JSR&FFEE:LDA#32:JSR&FFEE:JSR&FFEE:JSR&FFEE:LDA&8B:CMP#1:BEQscrag:INC&8A:JMPpang:.scrag:DEC&8A:.pang:LDA&8A:CMP#2:BEQfrak:CMP#34:BEQzalaga:.mumma:LDA#31:JSR&FFEE:LDA&8A:JSR&FFEE:LDA#4
̋JSR&FFEE:LDA#238:JSR&FFEE:LDA#239:JSR&FFEE:LDA#240:JSR&FFEE:RTS:.frak:INC&8A:LDA#0:STA&8B:JMPmumma:.zalaga:DEC&8A:LDA#1:STA&8B:JMPmumma
��.printscore:LDA#31:JSR&FFEE:LDA#17:JSR&FFEE:LDA#2:JSR&FFEE:LDA&87:LSRA:LSRA:LSRA:LSRA:CLC:ADC#48:JSR&FFEE:LDA&87:�#&0F:CLC:ADC#48:JSR&FFEE:LDA&88:LSRA:LSRA:LSRA:LSRA:CLC:ADC#48:JSR&FFEE:LDA&88:�#&0F:CLC:ADC#48:JSR&FFEE:RTS
��.add100:SED:CLC:LDA&88:ADC#10:STA&88:LDA&87:ADC#0:STA&87:CLD:JMPprintscore:.add200:SED:CLC:LDA&88:ADC#32:STA&88:LDA&87:ADC#0:STA&87:CLD:JMPprintscore:.landed:LDA&71:CMP#20:BEQhagar:RTS:.hagar:JSRboom:LDA#1:STA&B4:RTS
�RTS:]:�
��:�msk("INVASION FORCE",10,1):�7,10)"Z    -   FOR    -   LEFT":�7,12)"X    -   FOR    -   RIGHT":�5,14)"SHIFT  -   FOR    -   FIRE":�7,16)"P    -   FOR    -   PAUSE"
���11,5)"HI SCORE=":�21,5);HI%;"0":�7,19)"S    -   FOR    -   SOUND":�7,21)"Q    -   FOR    -   QUIET":�11,25)"SOUND STATUS=ON":�msk("SPACE TO START",11,28):*FX21,0
*FX210,0
,�:A$=�:�A$="Q":�24,25);"OFF";:*FX210,10
$�A$="S":�24,25);"ON ";:*FX210,0
&9� A$=" ":�tune("98765432106677:8:899:;:;:::::::",3,2)
0=LEV%=0:L%=3:?&90=5:?&87=0:?&88=0:�:�9,2);LEV%:�29,2);L%
:�
D�Q%
N �?&B4=1:?&B4=0:�landed:�dtA
X2�?&85=16�LEV%=LEV%+1:�setscreen:�message:�DDB
b/L%=L%-1:�0,-10,15,20:�setscreen:�T=1�2000:�
l'�?&8C=1 � L%>1:?&8C=0:�start2:�DXB
v
� L%=0
�gSC%=1000*((?&87 � &F0)� &10)+100*(?&87 � &F)+10*((?&88 � &F0) � &10)+(?&88 � &F):� SC%>HI%:�newhigh
�	�dtA
�R��setscreen:�9,2);LEV%:�29,2);L%:�0,0:�I%=0�1280�4:�I%,100:�I%,930:�:�0,1:� 
�f��message:�10,10);"FORCE ";LEV%;" DESTROYED":�T=1�1000:�:�0,0:�I%=0�1280�4:�I%,600:�I%,700:�:�0,1
�?&90=?&90+1:�?&90=16:?&90=5
��
����landed:�0,-10,15,15:�setscreen:�13,10);"FORCE HAS LANDED":�T=1�1000:�:�tune("677:8:899:;:;:::::::",3,2):�0,0:�I%=0�1280�4:�I%,600:�I%,700:�:�0,1:�
�G��tune(S$,C%,D%):�V%=1��(S$):N%=(�(�S$,V%,1))-43)*8:�1,C%,N%,D%:�:�
Ћ��newhigh:HI%=SC%:�:�12,10);"NEW HIGH SCORE!":�19,1,8;0;:�tune("1234567890123456789677:8:899:;:;:::::::",3,2):�T=1�3000:�:�19,1,7;0;:�
�w��msk(A$,XC%,YC%):� X%,Y%,P%,Z%:X%=XC%:Y%=YC%:Z%=X%+�A$:�T=1��A$:X%=X%+1:F$=�A$,T,1):�P%=Z%�X%�-1:�P%,Y%);F$:�:�:�
�
00000000  0d 00 0a 14 f4 20 49 6e  76 61 73 69 6f 6e 20 46  |..... Invasion F|
00000010  6f 72 63 65 0d 00 14 11  f4 20 42 79 20 53 2e 4d  |orce..... By S.M|
00000020  61 72 74 69 6e 0d 00 1e  17 f4 20 28 63 29 20 45  |artin..... (c) E|
00000030  6c 65 63 74 72 6f 6e 20  55 73 65 72 0d 00 28 8c  |lectron User..(.|
00000040  eb 34 3a e2 31 2c 31 32  39 2c 2d 35 30 2c 2d 36  |.4:.1,129,-50,-6|
00000050  2c 2d 31 32 2c 31 31 2c  31 37 2c 31 37 32 2c 31  |,-12,11,17,172,1|
00000060  32 36 2c 30 2c 30 2c 2d  31 32 36 2c 31 32 36 2c  |26,0,0,-126,126,|
00000070  31 32 36 3a e2 32 2c 32  2c 31 33 2c 2d 32 2c 34  |126:.2,2,13,-2,4|
00000080  32 2c 37 31 2c 32 34 2c  31 31 32 2c 31 32 36 2c  |2,71,24,112,126,|
00000090  30 2c 30 2c 2d 31 32 36  2c 31 32 36 2c 31 32 36  |0,0,-126,126,126|
000000a0  3a e2 33 2c 31 2c 31 2c  2d 32 2c 31 2c 35 2c 35  |:.3,1,1,-2,1,5,5|
000000b0  2c 31 32 2c 31 32 36 2c  30 2c 30 2c 2d 31 32 36  |,12,126,0,0,-126|
000000c0  2c 31 32 36 2c 31 32 36  0d 00 32 cb ef 32 33 2c  |,126,126..2..23,|
000000d0  32 32 34 2c 30 2c 30 2c  30 2c 30 2c 31 35 2c 31  |224,0,0,0,0,15,1|
000000e0  32 37 2c 31 32 37 2c 33  31 2c 32 33 2c 32 32 35  |27,127,31,23,225|
000000f0  2c 32 34 2c 32 34 2c 31  32 36 2c 31 32 36 2c 32  |,24,24,126,126,2|
00000100  35 35 2c 32 35 35 2c 32  35 35 2c 32 35 35 2c 32  |55,255,255,255,2|
00000110  33 2c 32 32 36 2c 30 2c  30 2c 30 2c 30 2c 32 34  |3,226,0,0,0,0,24|
00000120  30 2c 32 35 34 2c 32 35  34 2c 32 34 38 2c 32 33  |0,254,254,248,23|
00000130  2c 32 32 37 2c 30 2c 32  34 2c 32 34 2c 32 34 2c  |,227,0,24,24,24,|
00000140  32 34 2c 32 34 2c 32 34  2c 32 34 2c 30 2c 32 33  |24,24,24,24,0,23|
00000150  2c 32 32 38 2c 31 36 2c  36 34 2c 32 38 2c 39 37  |,228,16,64,28,97|
00000160  2c 38 2c 34 30 2c 31 34  38 2c 31 36 2c 32 33 2c  |,8,40,148,16,23,|
00000170  32 32 39 2c 32 35 35 2c  32 35 35 2c 32 35 35 2c  |229,255,255,255,|
00000180  32 35 35 2c 32 35 35 2c  32 35 35 2c 32 35 35 2c  |255,255,255,255,|
00000190  32 35 35 0d 00 3c 8c ef  32 33 2c 32 33 30 2c 30  |255..<..23,230,0|
000001a0  2c 39 39 2c 32 35 35 2c  32 34 31 2c 35 37 2c 37  |,99,255,241,57,7|
000001b0  39 2c 36 37 2c 34 38 2c  32 33 2c 32 33 31 2c 30  |9,67,48,23,231,0|
000001c0  2c 31 39 38 2c 32 35 35  2c 31 34 33 2c 31 35 36  |,198,255,143,156|
000001d0  2c 32 34 32 2c 31 39 34  2c 31 32 2c 32 33 2c 32  |,242,194,12,23,2|
000001e0  33 32 2c 39 36 2c 31 34  37 2c 31 35 2c 34 39 2c  |32,96,147,15,49,|
000001f0  32 35 2c 31 35 2c 31 37  2c 31 32 2c 32 33 2c 32  |25,15,17,12,23,2|
00000200  33 33 2c 36 2c 32 30 31  2c 32 34 30 2c 31 34 30  |33,6,201,240,140|
00000210  2c 31 35 32 2c 32 34 30  2c 31 33 36 2c 34 38 0d  |,152,240,136,48.|
00000220  00 46 84 ef 32 33 2c 32  33 38 2c 30 2c 33 31 2c  |.F..23,238,0,31,|
00000230  35 37 2c 31 32 31 2c 32  35 35 2c 32 35 35 2c 31  |57,121,255,255,1|
00000240  39 39 2c 31 31 34 2c 32  33 2c 32 33 39 2c 31 32  |99,114,23,239,12|
00000250  36 2c 32 35 35 2c 33 36  2c 33 36 2c 32 35 35 2c  |6,255,36,36,255,|
00000260  31 35 33 2c 36 30 2c 30  2c 32 33 2c 32 34 30 2c  |153,60,0,23,240,|
00000270  30 2c 32 34 38 2c 31 35  36 2c 31 35 38 2c 32 35  |0,248,156,158,25|
00000280  35 2c 32 35 35 2c 32 32  37 2c 37 38 2c 31 39 2c  |5,255,227,78,19,|
00000290  30 2c 34 3b 30 3b 32 33  2c 31 3b 30 3b 30 3b 30  |0,4;0;23,1;0;0;0|
000002a0  3b 30 3b 0d 00 50 5e 73  74 61 74 75 73 61 3d 26  |;0;..P^statusa=&|
000002b0  39 30 30 3a 73 74 61 74  75 73 62 3d 26 39 30 34  |900:statusb=&904|
000002c0  3a 73 74 61 74 75 73 63  3d 26 39 30 38 3a 73 74  |:statusc=&908:st|
000002d0  61 74 75 73 64 3d 26 39  30 44 3a de 20 51 25 20  |atusd=&90D:. Q% |
000002e0  32 31 35 30 3a 48 49 25  3d 35 30 30 3a e3 54 3d  |2150:HI%=500:.T=|
000002f0  30 b8 32 88 32 3a 50 25  3d 51 25 3a 5b 4f 50 54  |0.2.2:P%=Q%:[OPT|
00000300  54 0d 00 5a 45 2e 73 74  61 72 74 3a 4a 53 52 69  |T..ZE.start:JSRi|
00000310  6e 69 74 3a 4a 53 52 72  65 73 65 74 3a 2e 73 74  |nit:JSRreset:.st|
00000320  61 72 74 32 3a 4a 53 52  73 63 72 65 65 6e 3a 4a  |art2:JSRscreen:J|
00000330  53 52 70 72 69 6e 74 73  63 6f 72 65 3a 2e 6d 61  |SRprintscore:.ma|
00000340  69 6e 6c 6f 6f 70 0d 00  64 8a 4a 53 52 62 61 73  |inloop..d.JSRbas|
00000350  65 3a 4a 53 52 62 69 67  6d 75 6d 6d 61 3a 4c 44  |e:JSRbigmumma:LD|
00000360  41 23 31 39 3a 4a 53 52  26 46 46 46 34 3a 4a 53  |A#19:JSR&FFF4:JS|
00000370  52 6d 69 73 73 69 6c 65  3a 4a 53 52 62 61 73 65  |Rmissile:JSRbase|
00000380  3a 4a 53 52 62 6f 6d 62  73 3a 4c 44 41 26 38 43  |:JSRbombs:LDA&8C|
00000390  3a 43 4d 50 23 31 3a 42  4e 45 68 67 31 3a 4a 4d  |:CMP#1:BNEhg1:JM|
000003a0  50 6e 6f 6c 61 6e 64 3a  2e 68 67 31 3a 4a 53 52  |Pnoland:.hg1:JSR|
000003b0  65 72 6f 77 61 3a 4a 53  52 63 61 6c 63 61 3a 4a  |erowa:JSRcalca:J|
000003c0  53 52 72 6f 77 61 3a 4a  53 52 6c 61 6e 64 65 64  |SRrowa:JSRlanded|
000003d0  0d 00 6e 80 4a 53 52 62  61 73 65 3a 4c 44 41 23  |..n.JSRbase:LDA#|
000003e0  31 39 3a 4a 53 52 26 46  46 46 34 3a 4a 53 52 62  |19:JSR&FFF4:JSRb|
000003f0  69 67 6d 75 6d 6d 61 3a  4a 53 52 6d 69 73 73 69  |igmumma:JSRmissi|
00000400  6c 65 3a 4a 53 52 62 61  73 65 3a 4a 53 52 62 6f  |le:JSRbase:JSRbo|
00000410  6d 62 73 3a 4c 44 41 26  38 43 3a 43 4d 50 23 31  |mbs:LDA&8C:CMP#1|
00000420  3a 42 4e 45 68 67 32 3a  4a 4d 50 6e 6f 6c 61 6e  |:BNEhg2:JMPnolan|
00000430  64 3a 2e 68 67 32 3a 4a  53 52 65 72 6f 77 62 3a  |d:.hg2:JSRerowb:|
00000440  4a 53 52 63 61 6c 63 62  3a 4a 53 52 72 6f 77 62  |JSRcalcb:JSRrowb|
00000450  0d 00 78 80 4a 53 52 62  61 73 65 3a 4c 44 41 23  |..x.JSRbase:LDA#|
00000460  31 39 3a 4a 53 52 26 46  46 46 34 3a 4a 53 52 62  |19:JSR&FFF4:JSRb|
00000470  69 67 6d 75 6d 6d 61 3a  4a 53 52 6d 69 73 73 69  |igmumma:JSRmissi|
00000480  6c 65 3a 4a 53 52 62 61  73 65 3a 4a 53 52 62 6f  |le:JSRbase:JSRbo|
00000490  6d 62 73 3a 4c 44 41 26  38 43 3a 43 4d 50 23 31  |mbs:LDA&8C:CMP#1|
000004a0  3a 42 4e 45 68 67 33 3a  4a 4d 50 6e 6f 6c 61 6e  |:BNEhg3:JMPnolan|
000004b0  64 3a 2e 68 67 33 3a 4a  53 52 65 72 6f 77 63 3a  |d:.hg3:JSRerowc:|
000004c0  4a 53 52 63 61 6c 63 63  3a 4a 53 52 72 6f 77 63  |JSRcalcc:JSRrowc|
000004d0  0d 00 82 80 4a 53 52 62  61 73 65 3a 4c 44 41 23  |....JSRbase:LDA#|
000004e0  31 39 3a 4a 53 52 26 46  46 46 34 3a 4a 53 52 62  |19:JSR&FFF4:JSRb|
000004f0  69 67 6d 75 6d 6d 61 3a  4a 53 52 6d 69 73 73 69  |igmumma:JSRmissi|
00000500  6c 65 3a 4a 53 52 62 61  73 65 3a 4a 53 52 62 6f  |le:JSRbase:JSRbo|
00000510  6d 62 73 3a 4c 44 41 26  38 43 3a 43 4d 50 23 31  |mbs:LDA&8C:CMP#1|
00000520  3a 42 4e 45 68 67 34 3a  4a 4d 50 6e 6f 6c 61 6e  |:BNEhg4:JMPnolan|
00000530  64 3a 2e 68 67 34 3a 4a  53 52 65 72 6f 77 64 3a  |d:.hg4:JSRerowd:|
00000540  4a 53 52 63 61 6c 63 64  3a 4a 53 52 72 6f 77 64  |JSRcalcd:JSRrowd|
00000550  0d 00 8c 7b 4c 44 41 26  42 34 3a 43 4d 50 23 31  |...{LDA&B4:CMP#1|
00000560  3a 42 4e 45 6e 6f 6c 61  6e 64 3a 52 54 53 3a 2e  |:BNEnoland:RTS:.|
00000570  6e 6f 6c 61 6e 64 3a 4c  44 41 26 38 43 3a 43 4d  |noland:LDA&8C:CM|
00000580  50 23 31 3a 42 4e 45 6e  6f 74 64 65 61 64 3a 52  |P#1:BNEnotdead:R|
00000590  54 53 3a 2e 6e 6f 74 64  65 61 64 3a 4c 44 41 26  |TS:.notdead:LDA&|
000005a0  38 35 3a 43 4d 50 23 31  36 3a 42 4e 45 73 71 75  |85:CMP#16:BNEsqu|
000005b0  69 72 6d 3a 52 54 53 3a  2e 73 71 75 69 72 6d 3a  |irm:RTS:.squirm:|
000005c0  4a 4d 50 6d 61 69 6e 6c  6f 6f 70 0d 00 96 2d 2e  |JMPmainloop...-.|
000005d0  70 61 75 73 65 3a 4c 44  41 23 32 31 3a 4c 44 58  |pause:LDA#21:LDX|
000005e0  23 31 3a 4a 53 52 26 46  46 46 34 3a 4a 53 52 26  |#1:JSR&FFF4:JSR&|
000005f0  46 46 45 30 3a 52 54 53  0d 00 a0 db 2e 69 6e 69  |FFE0:RTS.....ini|
00000600  74 3a 4c 44 41 23 31 31  3a 53 54 41 26 37 30 3a  |t:LDA#11:STA&70:|
00000610  53 54 41 26 37 32 3a 53  54 41 26 37 34 3a 53 54  |STA&72:STA&74:ST|
00000620  41 26 37 36 3a 4c 44 41  23 31 3a 53 54 41 26 37  |A&76:LDA#1:STA&7|
00000630  38 3a 53 54 41 26 37 39  3a 53 54 41 26 37 41 3a  |8:STA&79:STA&7A:|
00000640  53 54 41 26 37 42 3a 4c  44 41 23 32 37 3a 53 54  |STA&7B:LDA#27:ST|
00000650  41 26 38 34 3a 4c 44 41  23 30 3a 53 54 41 26 38  |A&84:LDA#0:STA&8|
00000660  35 3a 53 54 41 26 38 46  3a 53 54 41 26 38 33 3a  |5:STA&8F:STA&83:|
00000670  53 54 41 26 38 43 3a 53  54 41 26 38 42 3a 53 54  |STA&8C:STA&8B:ST|
00000680  41 26 42 34 3a 4c 44 41  23 31 35 3a 53 54 41 26  |A&B4:LDA#15:STA&|
00000690  38 30 3a 4c 44 41 26 39  30 3a 53 54 41 26 37 31  |80:LDA&90:STA&71|
000006a0  3a 43 4c 43 3a 41 44 43  23 32 3a 53 54 41 26 37  |:CLC:ADC#2:STA&7|
000006b0  33 3a 43 4c 43 3a 41 44  43 23 32 3a 53 54 41 26  |3:CLC:ADC#2:STA&|
000006c0  37 35 3a 43 4c 43 3a 41  44 43 23 32 3a 53 54 41  |75:CLC:ADC#2:STA|
000006d0  26 37 37 0d 00 aa c2 4c  44 58 23 31 36 3a 4c 44  |&77....LDX#16:LD|
000006e0  41 23 31 3a 2e 6c 69 69  3a 53 54 41 26 39 30 30  |A#1:.lii:STA&900|
000006f0  2c 58 3a 44 45 58 3a 42  50 4c 20 6c 69 69 3a 4c  |,X:DEX:BPL lii:L|
00000700  44 41 23 35 3a 53 54 41  26 38 41 3a 4c 44 41 23  |DA#5:STA&8A:LDA#|
00000710  33 3a 53 54 41 26 42 33  3a 52 54 53 3a 2e 62 61  |3:STA&B3:RTS:.ba|
00000720  73 65 3a 4c 44 58 23 26  43 38 3a 4a 53 52 69 6e  |se:LDX#&C8:JSRin|
00000730  6b 65 79 3a 54 59 41 3a  42 4e 45 70 61 75 73 65  |key:TYA:BNEpause|
00000740  3a 4c 44 41 26 38 30 3a  53 54 41 26 38 32 3a 4c  |:LDA&80:STA&82:L|
00000750  44 58 23 26 42 44 3a 4a  53 52 69 6e 6b 65 79 3a  |DX#&BD:JSRinkey:|
00000760  54 59 41 3a 42 45 51 62  61 73 65 6c 65 66 74 3a  |TYA:BEQbaseleft:|
00000770  49 4e 43 26 38 30 3a 2e  62 61 73 65 6c 65 66 74  |INC&80:.baseleft|
00000780  3a 4c 44 58 23 26 39 45  3a 4a 53 52 69 6e 6b 65  |:LDX#&9E:JSRinke|
00000790  79 3a 54 59 41 0d 00 b4  e5 42 45 51 70 72 69 6e  |y:TYA....BEQprin|
000007a0  74 62 61 73 65 3a 44 45  43 26 38 30 3a 2e 70 72  |tbase:DEC&80:.pr|
000007b0  69 6e 74 62 61 73 65 3a  4c 44 41 26 38 30 3a 43  |intbase:LDA&80:C|
000007c0  4d 50 23 31 3a 42 45 51  72 65 73 74 6f 72 65 3a  |MP#1:BEQrestore:|
000007d0  43 4d 50 23 33 35 3a 42  45 51 72 65 73 74 6f 72  |CMP#35:BEQrestor|
000007e0  65 3a 4a 4d 50 73 6b 69  70 3a 2e 72 65 73 74 6f  |e:JMPskip:.resto|
000007f0  72 65 3a 4c 44 41 26 38  32 3a 53 54 41 26 38 30  |re:LDA&82:STA&80|
00000800  3a 4a 4d 50 66 69 6e 69  73 68 3a 2e 73 6b 69 70  |:JMPfinish:.skip|
00000810  3a 4c 44 41 23 33 31 3a  4a 53 52 26 46 46 45 45  |:LDA#31:JSR&FFEE|
00000820  3a 4c 44 41 26 38 30 3a  4a 53 52 26 46 46 45 45  |:LDA&80:JSR&FFEE|
00000830  3a 4c 44 41 23 32 37 3a  4a 53 52 26 46 46 45 45  |:LDA#27:JSR&FFEE|
00000840  3a 4c 44 41 23 33 32 3a  4a 53 52 26 46 46 45 45  |:LDA#32:JSR&FFEE|
00000850  3a 4c 44 41 23 32 32 34  3a 4a 53 52 26 46 46 45  |:LDA#224:JSR&FFE|
00000860  45 3a 4c 44 41 23 32 32  35 3a 4a 53 52 26 46 46  |E:LDA#225:JSR&FF|
00000870  45 45 3a 4c 44 41 23 32  32 36 0d 00 be 4c 4a 53  |EE:LDA#226...LJS|
00000880  52 26 46 46 45 45 3a 4c  44 41 23 33 32 3a 4a 53  |R&FFEE:LDA#32:JS|
00000890  52 26 46 46 45 45 3a 2e  66 69 6e 69 73 68 3a 52  |R&FFEE:.finish:R|
000008a0  54 53 3a 2e 69 6e 6b 65  79 3a 4c 44 41 23 31 32  |TS:.inkey:LDA#12|
000008b0  39 3a 4c 44 59 23 32 35  35 3a 4a 4d 50 26 46 46  |9:LDY#255:JMP&FF|
000008c0  46 34 3a 52 54 53 0d 00  c8 d5 2e 72 6f 77 61 3a  |F4:RTS.....rowa:|
000008d0  4c 44 41 23 33 31 3a 4a  53 52 26 46 46 45 45 3a  |LDA#31:JSR&FFEE:|
000008e0  4c 44 41 26 37 30 3a 4a  53 52 26 46 46 45 45 3a  |LDA&70:JSR&FFEE:|
000008f0  4c 44 41 26 37 31 3a 4a  53 52 26 46 46 45 45 3a  |LDA&71:JSR&FFEE:|
00000900  4c 44 59 23 30 3a 2e 6c  6f 6f 70 61 3a 4c 44 41  |LDY#0:.loopa:LDA|
00000910  73 74 61 74 75 73 61 2c  59 3a 43 4d 50 23 31 3a  |statusa,Y:CMP#1:|
00000920  42 4e 45 6f 76 65 72 61  3a 4c 44 41 23 32 33 30  |BNEovera:LDA#230|
00000930  3a 4a 53 52 26 46 46 45  45 3a 4c 44 41 23 32 33  |:JSR&FFEE:LDA#23|
00000940  31 3a 4a 53 52 26 46 46  45 45 3a 4a 4d 50 61 62  |1:JSR&FFEE:JMPab|
00000950  3a 2e 6f 76 65 72 61 3a  4c 44 41 23 33 32 3a 4a  |:.overa:LDA#32:J|
00000960  53 52 26 46 46 45 45 3a  4a 53 52 26 46 46 45 45  |SR&FFEE:JSR&FFEE|
00000970  3a 2e 61 62 3a 4c 44 41  23 33 32 3a 4a 53 52 26  |:.ab:LDA#32:JSR&|
00000980  46 46 45 45 3a 49 4e 59  3a 43 50 59 23 34 3a 42  |FFEE:INY:CPY#4:B|
00000990  4e 45 6c 6f 6f 70 61 3a  52 54 53 0d 00 d2 d5 2e  |NEloopa:RTS.....|
000009a0  72 6f 77 62 3a 4c 44 41  23 33 31 3a 4a 53 52 26  |rowb:LDA#31:JSR&|
000009b0  46 46 45 45 3a 4c 44 41  26 37 32 3a 4a 53 52 26  |FFEE:LDA&72:JSR&|
000009c0  46 46 45 45 3a 4c 44 41  26 37 33 3a 4a 53 52 26  |FFEE:LDA&73:JSR&|
000009d0  46 46 45 45 3a 4c 44 59  23 30 3a 2e 6c 6f 6f 70  |FFEE:LDY#0:.loop|
000009e0  62 3a 4c 44 41 73 74 61  74 75 73 62 2c 59 3a 43  |b:LDAstatusb,Y:C|
000009f0  4d 50 23 31 3a 42 4e 45  6f 76 65 72 62 3a 4c 44  |MP#1:BNEoverb:LD|
00000a00  41 23 32 33 30 3a 4a 53  52 26 46 46 45 45 3a 4c  |A#230:JSR&FFEE:L|
00000a10  44 41 23 32 33 31 3a 4a  53 52 26 46 46 45 45 3a  |DA#231:JSR&FFEE:|
00000a20  4a 4d 50 62 63 3a 2e 6f  76 65 72 62 3a 4c 44 41  |JMPbc:.overb:LDA|
00000a30  23 33 32 3a 4a 53 52 26  46 46 45 45 3a 4a 53 52  |#32:JSR&FFEE:JSR|
00000a40  26 46 46 45 45 3a 2e 62  63 3a 4c 44 41 23 33 32  |&FFEE:.bc:LDA#32|
00000a50  3a 4a 53 52 26 46 46 45  45 3a 49 4e 59 3a 43 50  |:JSR&FFEE:INY:CP|
00000a60  59 23 34 3a 42 4e 45 6c  6f 6f 70 62 3a 52 54 53  |Y#4:BNEloopb:RTS|
00000a70  0d 00 dc d5 2e 72 6f 77  63 3a 4c 44 41 23 33 31  |.....rowc:LDA#31|
00000a80  3a 4a 53 52 26 46 46 45  45 3a 4c 44 41 26 37 34  |:JSR&FFEE:LDA&74|
00000a90  3a 4a 53 52 26 46 46 45  45 3a 4c 44 41 26 37 35  |:JSR&FFEE:LDA&75|
00000aa0  3a 4a 53 52 26 46 46 45  45 3a 4c 44 59 23 30 3a  |:JSR&FFEE:LDY#0:|
00000ab0  2e 6c 6f 6f 70 63 3a 4c  44 41 73 74 61 74 75 73  |.loopc:LDAstatus|
00000ac0  63 2c 59 3a 43 4d 50 23  31 3a 42 4e 45 6f 76 65  |c,Y:CMP#1:BNEove|
00000ad0  72 63 3a 4c 44 41 23 32  33 32 3a 4a 53 52 26 46  |rc:LDA#232:JSR&F|
00000ae0  46 45 45 3a 4c 44 41 23  32 33 33 3a 4a 53 52 26  |FEE:LDA#233:JSR&|
00000af0  46 46 45 45 3a 4a 4d 50  63 64 3a 2e 6f 76 65 72  |FFEE:JMPcd:.over|
00000b00  63 3a 4c 44 41 23 33 32  3a 4a 53 52 26 46 46 45  |c:LDA#32:JSR&FFE|
00000b10  45 3a 4a 53 52 26 46 46  45 45 3a 2e 63 64 3a 4c  |E:JSR&FFEE:.cd:L|
00000b20  44 41 23 33 32 3a 4a 53  52 26 46 46 45 45 3a 49  |DA#32:JSR&FFEE:I|
00000b30  4e 59 3a 43 50 59 23 34  3a 42 4e 45 6c 6f 6f 70  |NY:CPY#4:BNEloop|
00000b40  63 3a 52 54 53 0d 00 e6  d5 2e 72 6f 77 64 3a 4c  |c:RTS.....rowd:L|
00000b50  44 41 23 33 31 3a 4a 53  52 26 46 46 45 45 3a 4c  |DA#31:JSR&FFEE:L|
00000b60  44 41 26 37 36 3a 4a 53  52 26 46 46 45 45 3a 4c  |DA&76:JSR&FFEE:L|
00000b70  44 41 26 37 37 3a 4a 53  52 26 46 46 45 45 3a 4c  |DA&77:JSR&FFEE:L|
00000b80  44 59 23 30 3a 2e 6c 6f  6f 70 64 3a 4c 44 41 73  |DY#0:.loopd:LDAs|
00000b90  74 61 74 75 73 64 2c 59  3a 43 4d 50 23 31 3a 42  |tatusd,Y:CMP#1:B|
00000ba0  4e 45 6f 76 65 72 64 3a  4c 44 41 23 32 33 32 3a  |NEoverd:LDA#232:|
00000bb0  4a 53 52 26 46 46 45 45  3a 4c 44 41 23 32 33 33  |JSR&FFEE:LDA#233|
00000bc0  3a 4a 53 52 26 46 46 45  45 3a 4a 4d 50 64 65 3a  |:JSR&FFEE:JMPde:|
00000bd0  2e 6f 76 65 72 64 3a 4c  44 41 23 33 32 3a 4a 53  |.overd:LDA#32:JS|
00000be0  52 26 46 46 45 45 3a 4a  53 52 26 46 46 45 45 3a  |R&FFEE:JSR&FFEE:|
00000bf0  2e 64 65 3a 4c 44 41 23  33 32 3a 4a 53 52 26 46  |.de:LDA#32:JSR&F|
00000c00  46 45 45 3a 49 4e 59 3a  43 50 59 23 34 3a 42 4e  |FEE:INY:CPY#4:BN|
00000c10  45 6c 6f 6f 70 64 3a 52  54 53 0d 00 f0 cb 2e 65  |Eloopd:RTS.....e|
00000c20  72 6f 77 61 3a 4c 44 41  23 33 31 3a 4a 53 52 26  |rowa:LDA#31:JSR&|
00000c30  46 46 45 45 3a 4c 44 41  26 37 30 3a 4a 53 52 26  |FFEE:LDA&70:JSR&|
00000c40  46 46 45 45 3a 4c 44 41  26 37 31 3a 4a 53 52 26  |FFEE:LDA&71:JSR&|
00000c50  46 46 45 45 3a 4c 44 59  23 30 3a 2e 6c 6f 6f 70  |FFEE:LDY#0:.loop|
00000c60  61 3a 4c 44 41 73 74 61  74 75 73 61 2c 59 3a 43  |a:LDAstatusa,Y:C|
00000c70  4d 50 23 31 3a 42 4e 45  6f 76 65 72 65 3a 4c 44  |MP#1:BNEovere:LD|
00000c80  41 23 33 32 3a 4a 53 52  26 46 46 45 45 3a 4a 53  |A#32:JSR&FFEE:JS|
00000c90  52 26 46 46 45 45 3a 4a  4d 50 71 3a 2e 6f 76 65  |R&FFEE:JMPq:.ove|
00000ca0  72 65 3a 4c 44 41 23 33  32 3a 4a 53 52 26 46 46  |re:LDA#32:JSR&FF|
00000cb0  45 45 3a 4a 53 52 26 46  46 45 45 3a 2e 71 3a 4c  |EE:JSR&FFEE:.q:L|
00000cc0  44 41 23 33 32 3a 4a 53  52 26 46 46 45 45 3a 49  |DA#32:JSR&FFEE:I|
00000cd0  4e 59 3a 43 50 59 23 34  3a 42 4e 45 6c 6f 6f 70  |NY:CPY#4:BNEloop|
00000ce0  61 3a 52 54 53 0d 00 fa  ca 2e 65 72 6f 77 62 3a  |a:RTS.....erowb:|
00000cf0  4c 44 41 23 33 31 3a 4a  53 52 26 46 46 45 45 3a  |LDA#31:JSR&FFEE:|
00000d00  4c 44 41 26 37 32 3a 4a  53 52 26 46 46 45 45 3a  |LDA&72:JSR&FFEE:|
00000d10  4c 44 41 26 37 33 3a 4a  53 52 26 46 46 45 45 3a  |LDA&73:JSR&FFEE:|
00000d20  4c 44 59 23 30 3a 2e 6c  6f 6f 70 62 3a 4c 44 41  |LDY#0:.loopb:LDA|
00000d30  73 74 61 74 75 73 62 2c  59 3a 43 4d 50 23 31 3a  |statusb,Y:CMP#1:|
00000d40  42 4e 45 6f 76 65 72 66  3a 4c 44 41 23 33 32 3a  |BNEoverf:LDA#32:|
00000d50  4a 53 52 26 46 46 45 45  3a 4a 53 52 26 46 46 45  |JSR&FFEE:JSR&FFE|
00000d60  45 3a 4a 4d 50 77 3a 2e  6f 76 65 72 66 3a 4c 44  |E:JMPw:.overf:LD|
00000d70  41 23 33 32 3a 4a 53 52  26 46 46 45 45 3a 4a 53  |A#32:JSR&FFEE:JS|
00000d80  52 26 46 46 45 45 3a 2e  77 3a 4c 44 41 23 39 3a  |R&FFEE:.w:LDA#9:|
00000d90  4a 53 52 26 46 46 45 45  3a 49 4e 59 3a 43 50 59  |JSR&FFEE:INY:CPY|
00000da0  23 34 3a 42 4e 45 6c 6f  6f 70 62 3a 52 54 53 0d  |#4:BNEloopb:RTS.|
00000db0  01 04 ca 2e 65 72 6f 77  63 3a 4c 44 41 23 33 31  |....erowc:LDA#31|
00000dc0  3a 4a 53 52 26 46 46 45  45 3a 4c 44 41 26 37 34  |:JSR&FFEE:LDA&74|
00000dd0  3a 4a 53 52 26 46 46 45  45 3a 4c 44 41 26 37 35  |:JSR&FFEE:LDA&75|
00000de0  3a 4a 53 52 26 46 46 45  45 3a 4c 44 59 23 30 3a  |:JSR&FFEE:LDY#0:|
00000df0  2e 6c 6f 6f 70 63 3a 4c  44 41 73 74 61 74 75 73  |.loopc:LDAstatus|
00000e00  63 2c 59 3a 43 4d 50 23  31 3a 42 4e 45 6f 76 65  |c,Y:CMP#1:BNEove|
00000e10  72 67 3a 4c 44 41 23 33  32 3a 4a 53 52 26 46 46  |rg:LDA#32:JSR&FF|
00000e20  45 45 3a 4a 53 52 26 46  46 45 45 3a 4a 4d 50 72  |EE:JSR&FFEE:JMPr|
00000e30  3a 2e 6f 76 65 72 67 3a  4c 44 41 23 33 32 3a 4a  |:.overg:LDA#32:J|
00000e40  53 52 26 46 46 45 45 3a  4a 53 52 26 46 46 45 45  |SR&FFEE:JSR&FFEE|
00000e50  3a 2e 72 3a 4c 44 41 23  39 3a 4a 53 52 26 46 46  |:.r:LDA#9:JSR&FF|
00000e60  45 45 3a 49 4e 59 3a 43  50 59 23 34 3a 42 4e 45  |EE:INY:CPY#4:BNE|
00000e70  6c 6f 6f 70 63 3a 52 54  53 0d 01 0e c8 2e 65 72  |loopc:RTS.....er|
00000e80  6f 77 64 3a 4c 44 41 23  33 31 3a 4a 53 52 26 46  |owd:LDA#31:JSR&F|
00000e90  46 45 45 3a 4c 44 41 26  37 36 3a 4a 53 52 26 46  |FEE:LDA&76:JSR&F|
00000ea0  46 45 45 3a 4c 44 41 26  37 37 3a 4a 53 52 26 46  |FEE:LDA&77:JSR&F|
00000eb0  46 45 45 3a 4c 44 59 23  30 3a 2e 6c 6f 6f 70 64  |FEE:LDY#0:.loopd|
00000ec0  3a 4c 44 41 73 74 61 74  75 73 64 2c 59 3a 43 4d  |:LDAstatusd,Y:CM|
00000ed0  50 23 31 3a 42 4e 45 6f  76 65 72 3a 4c 44 41 23  |P#1:BNEover:LDA#|
00000ee0  33 32 3a 4a 53 52 26 46  46 45 45 3a 4a 53 52 26  |32:JSR&FFEE:JSR&|
00000ef0  46 46 45 45 3a 4a 4d 50  74 3a 2e 6f 76 65 72 3a  |FFEE:JMPt:.over:|
00000f00  4c 44 41 23 33 32 3a 4a  53 52 26 46 46 45 45 3a  |LDA#32:JSR&FFEE:|
00000f10  4a 53 52 26 46 46 45 45  3a 2e 74 3a 4c 44 41 23  |JSR&FFEE:.t:LDA#|
00000f20  39 3a 4a 53 52 26 46 46  45 45 3a 49 4e 59 3a 43  |9:JSR&FFEE:INY:C|
00000f30  50 59 23 34 3a 42 4e 45  6c 6f 6f 70 64 3a 52 54  |PY#4:BNEloopd:RT|
00000f40  53 0d 01 18 bc 2e 63 61  6c 63 61 3a 4c 44 41 26  |S.....calca:LDA&|
00000f50  37 38 3a 43 4d 50 23 31  3a 42 4e 45 6c 65 66 74  |78:CMP#1:BNEleft|
00000f60  61 3a 49 4e 43 26 37 30  3a 2e 6c 65 66 74 61 3a  |a:INC&70:.lefta:|
00000f70  43 4d 50 23 32 3a 42 4e  45 63 68 65 63 6b 61 3a  |CMP#2:BNEchecka:|
00000f80  44 45 43 26 37 30 3a 2e  63 68 65 63 6b 61 3a 4c  |DEC&70:.checka:L|
00000f90  44 41 26 37 30 3a 43 4d  50 23 32 36 3a 42 4e 45  |DA&70:CMP#26:BNE|
00000fa0  63 68 65 63 6b 32 61 3a  4c 44 41 23 32 3a 53 54  |check2a:LDA#2:ST|
00000fb0  41 26 37 38 3a 49 4e 43  26 37 31 3a 2e 63 68 65  |A&78:INC&71:.che|
00000fc0  63 6b 32 61 3a 4c 44 41  26 37 30 3a 43 4d 50 23  |ck2a:LDA&70:CMP#|
00000fd0  33 3a 42 4e 45 6e 6f 74  75 72 6e 61 3a 4c 44 41  |3:BNEnoturna:LDA|
00000fe0  23 31 3a 53 54 41 26 37  38 3a 49 4e 43 26 37 31  |#1:STA&78:INC&71|
00000ff0  3a 2e 6e 6f 74 75 72 6e  61 3a 52 54 53 0d 01 22  |:.noturna:RTS.."|
00001000  9a 2e 63 61 6c 63 62 3a  4c 44 41 26 37 39 3a 43  |..calcb:LDA&79:C|
00001010  4d 50 23 31 3a 42 4e 45  79 79 3a 49 4e 43 26 37  |MP#1:BNEyy:INC&7|
00001020  32 3a 2e 79 79 3a 43 4d  50 23 32 3a 42 4e 45 66  |2:.yy:CMP#2:BNEf|
00001030  66 3a 44 45 43 26 37 32  3a 2e 66 66 3a 4c 44 41  |f:DEC&72:.ff:LDA|
00001040  26 37 32 3a 43 4d 50 23  32 36 3a 42 4e 45 6f 6f  |&72:CMP#26:BNEoo|
00001050  3a 4c 44 41 23 32 3a 53  54 41 26 37 39 3a 49 4e  |:LDA#2:STA&79:IN|
00001060  43 26 37 33 3a 2e 6f 6f  3a 4c 44 41 26 37 32 3a  |C&73:.oo:LDA&72:|
00001070  43 4d 50 23 33 3a 42 4e  45 6c 6c 3a 4c 44 41 23  |CMP#3:BNEll:LDA#|
00001080  31 3a 53 54 41 26 37 39  3a 49 4e 43 26 37 33 3a  |1:STA&79:INC&73:|
00001090  2e 6c 6c 3a 52 54 53 0d  01 2c 9a 2e 63 61 6c 63  |.ll:RTS..,..calc|
000010a0  63 3a 4c 44 41 26 37 41  3a 43 4d 50 23 31 3a 42  |c:LDA&7A:CMP#1:B|
000010b0  4e 45 64 64 3a 49 4e 43  26 37 34 3a 2e 64 64 3a  |NEdd:INC&74:.dd:|
000010c0  43 4d 50 23 32 3a 42 4e  45 6b 6b 3a 44 45 43 26  |CMP#2:BNEkk:DEC&|
000010d0  37 34 3a 2e 6b 6b 3a 4c  44 41 26 37 34 3a 43 4d  |74:.kk:LDA&74:CM|
000010e0  50 23 32 36 3a 42 4e 45  6f 70 3a 4c 44 41 23 32  |P#26:BNEop:LDA#2|
000010f0  3a 53 54 41 26 37 41 3a  49 4e 43 26 37 35 3a 2e  |:STA&7A:INC&75:.|
00001100  6f 70 3a 4c 44 41 26 37  34 3a 43 4d 50 23 33 3a  |op:LDA&74:CMP#3:|
00001110  42 4e 45 6b 6c 3a 4c 44  41 23 31 3a 53 54 41 26  |BNEkl:LDA#1:STA&|
00001120  37 41 3a 49 4e 43 26 37  35 3a 2e 6b 6c 3a 52 54  |7A:INC&75:.kl:RT|
00001130  53 0d 01 36 bc 2e 63 61  6c 63 64 3a 4c 44 41 26  |S..6..calcd:LDA&|
00001140  37 42 3a 43 4d 50 23 31  3a 42 4e 45 6c 65 66 74  |7B:CMP#1:BNEleft|
00001150  64 3a 49 4e 43 26 37 36  3a 2e 6c 65 66 74 64 3a  |d:INC&76:.leftd:|
00001160  43 4d 50 23 32 3a 42 4e  45 63 68 65 63 6b 64 3a  |CMP#2:BNEcheckd:|
00001170  44 45 43 26 37 36 3a 2e  63 68 65 63 6b 64 3a 4c  |DEC&76:.checkd:L|
00001180  44 41 26 37 36 3a 43 4d  50 23 32 36 3a 42 4e 45  |DA&76:CMP#26:BNE|
00001190  63 68 65 63 6b 32 64 3a  4c 44 41 23 32 3a 53 54  |check2d:LDA#2:ST|
000011a0  41 26 37 42 3a 49 4e 43  26 37 37 3a 2e 63 68 65  |A&7B:INC&77:.che|
000011b0  63 6b 32 64 3a 4c 44 41  26 37 36 3a 43 4d 50 23  |ck2d:LDA&76:CMP#|
000011c0  33 3a 42 4e 45 6e 6f 74  75 72 6e 64 3a 4c 44 41  |3:BNEnoturnd:LDA|
000011d0  23 31 3a 53 54 41 26 37  42 3a 49 4e 43 26 37 37  |#1:STA&7B:INC&77|
000011e0  3a 2e 6e 6f 74 75 72 6e  64 3a 52 54 53 0d 01 40  |:.noturnd:RTS..@|
000011f0  ea 2e 74 61 62 6c 65 3a  45 51 55 42 26 31 3a 45  |..table:EQUB&1:E|
00001200  51 55 42 26 31 3a 45 51  55 42 26 30 3a 45 51 55  |QUB&1:EQUB&0:EQU|
00001210  42 26 32 3a 45 51 55 42  26 32 3a 45 51 55 42 26  |B&2:EQUB&2:EQUB&|
00001220  30 3a 45 51 55 42 26 33  3a 45 51 55 42 26 33 3a  |0:EQUB&3:EQUB&3:|
00001230  45 51 55 42 26 30 3a 45  51 55 42 26 34 3a 45 51  |EQUB&0:EQUB&4:EQ|
00001240  55 42 26 34 3a 2e 6d 69  73 73 69 6c 65 3a 4c 44  |UB&4:.missile:LD|
00001250  41 26 38 34 3a 43 4d 50  23 32 37 3a 42 45 51 6e  |A&84:CMP#27:BEQn|
00001260  6f 66 69 72 65 3a 4a 4d  50 66 69 72 65 72 69 6e  |ofire:JMPfirerin|
00001270  67 3a 2e 6e 6f 66 69 72  65 3a 4c 44 58 23 26 46  |g:.nofire:LDX#&F|
00001280  46 3a 4a 53 52 69 6e 6b  65 79 3a 54 59 41 3a 42  |F:JSRinkey:TYA:B|
00001290  45 51 62 61 63 6b 3a 4c  44 58 23 66 61 68 20 83  |EQback:LDX#fah .|
000012a0  20 32 35 36 3a 4c 44 59  23 66 61 68 20 81 20 32  | 256:LDY#fah . 2|
000012b0  35 36 3a 4c 44 41 23 37  3a 4a 53 52 26 46 46 46  |56:LDA#7:JSR&FFF|
000012c0  31 3a 4a 4d 50 62 61 73  65 66 69 72 65 3a 2e 62  |1:JMPbasefire:.b|
000012d0  61 63 6b 3a 52 54 53 0d  01 4a d2 2e 62 61 73 65  |ack:RTS..J..base|
000012e0  66 69 72 65 3a 4c 44 41  26 38 30 3a 53 54 41 26  |fire:LDA&80:STA&|
000012f0  38 33 3a 49 4e 43 26 38  33 3a 49 4e 43 26 38 33  |83:INC&83:INC&83|
00001300  3a 2e 66 69 72 65 72 69  6e 67 3a 4c 44 41 23 33  |:.firering:LDA#3|
00001310  31 3a 4a 53 52 26 46 46  45 45 3a 4c 44 41 26 38  |1:JSR&FFEE:LDA&8|
00001320  33 3a 4a 53 52 26 46 46  45 45 3a 4c 44 41 26 38  |3:JSR&FFEE:LDA&8|
00001330  34 3a 4a 53 52 26 46 46  45 45 3a 4c 44 41 23 33  |4:JSR&FFEE:LDA#3|
00001340  32 3a 4a 53 52 26 46 46  45 45 3a 44 45 43 26 38  |2:JSR&FFEE:DEC&8|
00001350  34 3a 4c 44 41 26 38 34  3a 43 4d 50 23 34 3a 42  |4:LDA&84:CMP#4:B|
00001360  4e 45 6e 6f 74 74 6f 70  3a 4c 44 41 23 32 37 3a  |NEnottop:LDA#27:|
00001370  53 54 41 26 38 34 3a 52  54 53 3a 2e 6e 6f 74 74  |STA&84:RTS:.nott|
00001380  6f 70 3a 4c 44 41 23 33  31 3a 4a 53 52 26 46 46  |op:LDA#31:JSR&FF|
00001390  45 45 3a 4c 44 41 26 38  33 3a 4a 53 52 26 46 46  |EE:LDA&83:JSR&FF|
000013a0  45 45 3a 4c 44 41 26 38  34 0d 01 54 d6 4a 53 52  |EE:LDA&84..T.JSR|
000013b0  26 46 46 45 45 3a 4c 44  41 23 31 33 35 3a 4a 53  |&FFEE:LDA#135:JS|
000013c0  52 26 46 46 46 34 3a 54  58 41 3a 43 4d 50 23 31  |R&FFF4:TXA:CMP#1|
000013d0  33 34 3a 42 45 51 68 69  74 32 3a 43 4d 50 23 31  |34:BEQhit2:CMP#1|
000013e0  33 35 3a 42 45 51 68 69  74 32 3a 43 4d 50 23 31  |35:BEQhit2:CMP#1|
000013f0  33 36 3a 42 45 51 68 69  74 31 3a 43 4d 50 23 31  |36:BEQhit1:CMP#1|
00001400  33 37 3a 42 45 51 68 69  74 31 3a 43 4d 50 23 31  |37:BEQhit1:CMP#1|
00001410  33 33 3a 42 45 51 79 65  70 69 3a 4c 44 41 23 32  |33:BEQyepi:LDA#2|
00001420  32 37 3a 4a 53 52 26 46  46 45 45 3a 52 54 53 3a  |27:JSR&FFEE:RTS:|
00001430  2e 79 65 70 69 3a 4c 44  41 23 33 32 3a 4a 53 52  |.yepi:LDA#32:JSR|
00001440  26 46 46 45 45 3a 4a 4d  50 6e 6f 72 6d 3a 2e 68  |&FFEE:JMPnorm:.h|
00001450  69 74 32 3a 4a 53 52 61  64 64 32 30 30 3a 4a 4d  |it2:JSRadd200:JM|
00001460  50 70 65 6e 67 6f 3a 2e  68 69 74 31 3a 4a 53 52  |Ppengo:.hit1:JSR|
00001470  61 64 64 31 30 30 3a 4a  4d 50 70 65 6e 67 6f 0d  |add100:JMPpengo.|
00001480  01 5e be 2e 6e 6e 6e 3a  4a 53 52 61 64 64 32 30  |.^..nnn:JSRadd20|
00001490  30 3a 2e 70 65 6e 67 6f  3a 4c 44 41 26 38 34 3a  |0:.pengo:LDA&84:|
000014a0  43 4d 50 26 37 37 3a 42  4e 45 6e 6f 66 3a 53 45  |CMP&77:BNEnof:SE|
000014b0  43 3a 4c 44 41 26 38 33  3a 53 42 43 26 37 36 3a  |C:LDA&83:SBC&76:|
000014c0  54 41 59 3a 4c 44 41 20  74 61 62 6c 65 2c 59 3a  |TAY:LDA table,Y:|
000014d0  53 54 41 26 38 45 3a 4c  44 58 26 38 45 3a 4c 44  |STA&8E:LDX&8E:LD|
000014e0  41 23 30 3a 53 54 41 26  39 30 43 2c 58 3a 4a 4d  |A#0:STA&90C,X:JM|
000014f0  50 72 65 74 75 72 6e 3a  2e 6e 6f 66 3a 4c 44 41  |Preturn:.nof:LDA|
00001500  26 38 34 3a 43 4d 50 26  37 35 3a 42 4e 45 73 65  |&84:CMP&75:BNEse|
00001510  63 6f 6e 64 3a 53 45 43  3a 4c 44 41 26 38 33 3a  |cond:SEC:LDA&83:|
00001520  53 42 43 26 37 34 3a 54  41 59 3a 4c 44 41 20 74  |SBC&74:TAY:LDA t|
00001530  61 62 6c 65 2c 59 3a 53  54 41 26 38 45 0d 01 68  |able,Y:STA&8E..h|
00001540  ec 4c 44 58 26 38 45 3a  4c 44 41 23 30 3a 53 54  |.LDX&8E:LDA#0:ST|
00001550  41 26 39 30 37 2c 58 3a  4a 4d 50 72 65 74 75 72  |A&907,X:JMPretur|
00001560  6e 3a 2e 73 65 63 6f 6e  64 3a 4c 44 41 26 38 34  |n:.second:LDA&84|
00001570  3a 43 4d 50 26 37 33 3a  42 4e 45 66 69 72 73 74  |:CMP&73:BNEfirst|
00001580  3a 53 45 43 3a 4c 44 41  26 38 33 3a 53 42 43 26  |:SEC:LDA&83:SBC&|
00001590  37 32 3a 54 41 59 3a 4c  44 41 20 74 61 62 6c 65  |72:TAY:LDA table|
000015a0  2c 59 3a 53 54 41 26 38  45 3a 4c 44 58 26 38 45  |,Y:STA&8E:LDX&8E|
000015b0  3a 4c 44 41 23 30 3a 53  54 41 26 39 30 33 2c 58  |:LDA#0:STA&903,X|
000015c0  3a 4a 4d 50 72 65 74 75  72 6e 3a 2e 66 69 72 73  |:JMPreturn:.firs|
000015d0  74 3a 4c 44 41 26 38 34  3a 43 4d 50 26 37 31 3a  |t:LDA&84:CMP&71:|
000015e0  42 4e 45 72 65 74 75 72  6e 3a 53 45 43 3a 4c 44  |BNEreturn:SEC:LD|
000015f0  41 26 38 33 3a 53 42 43  26 37 30 3a 54 41 59 3a  |A&83:SBC&70:TAY:|
00001600  4c 44 41 20 74 61 62 6c  65 2c 59 3a 53 54 41 26  |LDA table,Y:STA&|
00001610  38 45 3a 4c 44 58 26 38  45 3a 4c 44 41 23 30 3a  |8E:LDX&8E:LDA#0:|
00001620  53 54 41 26 38 46 46 2c  58 0d 01 72 96 2e 72 65  |STA&8FF,X..r..re|
00001630  74 75 72 6e 3a 4c 44 41  23 33 31 3a 4a 53 52 26  |turn:LDA#31:JSR&|
00001640  46 46 45 45 3a 4c 44 41  26 38 33 3a 4a 53 52 26  |FFEE:LDA&83:JSR&|
00001650  46 46 45 45 3a 4c 44 41  26 38 34 3a 4a 53 52 26  |FFEE:LDA&84:JSR&|
00001660  46 46 45 45 3a 4c 44 41  23 32 32 38 3a 4a 53 52  |FFEE:LDA#228:JSR|
00001670  26 46 46 45 45 3a 4c 44  58 23 65 78 70 6c 6f 20  |&FFEE:LDX#explo |
00001680  83 20 32 35 36 3a 4c 44  59 23 65 78 70 6c 6f 20  |. 256:LDY#explo |
00001690  81 20 32 35 36 3a 4c 44  41 23 37 3a 4a 53 52 26  |. 256:LDA#7:JSR&|
000016a0  46 46 46 31 3a 49 4e 43  26 38 35 3a 2e 6e 6f 72  |FFF1:INC&85:.nor|
000016b0  6d 3a 4c 44 41 23 32 37  3a 53 54 41 26 38 34 0d  |m:LDA#27:STA&84.|
000016c0  01 7c d9 4a 4d 50 70 72  69 6e 74 62 61 73 65 3a  |.|.JMPprintbase:|
000016d0  2e 73 63 72 65 65 6e 3a  4c 44 41 23 33 31 3a 4a  |.screen:LDA#31:J|
000016e0  53 52 26 46 46 45 45 3a  4c 44 41 23 37 3a 4a 53  |SR&FFEE:LDA#7:JS|
000016f0  52 26 46 46 45 45 3a 4c  44 41 23 32 32 3a 4a 53  |R&FFEE:LDA#22:JS|
00001700  52 26 46 46 45 45 3a 4c  44 58 23 30 3a 2e 6f 75  |R&FFEE:LDX#0:.ou|
00001710  74 70 75 74 31 3a 4c 44  41 62 75 6e 6b 65 72 2c  |tput1:LDAbunker,|
00001720  58 3a 4a 53 52 26 46 46  45 33 3a 49 4e 58 3a 43  |X:JSR&FFE3:INX:C|
00001730  4d 50 23 31 33 3a 42 4e  45 6f 75 74 70 75 74 31  |MP#13:BNEoutput1|
00001740  3a 4c 44 41 23 33 31 3a  4a 53 52 26 46 46 45 45  |:LDA#31:JSR&FFEE|
00001750  3a 4c 44 41 23 31 39 3a  4a 53 52 26 46 46 45 45  |:LDA#19:JSR&FFEE|
00001760  3a 4c 44 41 23 32 32 3a  4a 53 52 26 46 46 45 45  |:LDA#22:JSR&FFEE|
00001770  3a 4c 44 58 23 30 3a 2e  6f 75 74 70 75 74 32 3a  |:LDX#0:.output2:|
00001780  4c 44 41 62 75 6e 6b 65  72 2c 58 3a 4a 53 52 26  |LDAbunker,X:JSR&|
00001790  46 46 45 33 3a 49 4e 58  0d 01 86 c7 43 4d 50 23  |FFE3:INX....CMP#|
000017a0  31 33 3a 42 4e 45 6f 75  74 70 75 74 32 3a 4c 44  |13:BNEoutput2:LD|
000017b0  41 23 33 31 3a 4a 53 52  26 46 46 45 45 3a 4c 44  |A#31:JSR&FFEE:LD|
*
000017d0  41 23 32 32 3a 4a 53 52  26 46 46 45 45 3a 4c 44  |A#22:JSR&FFEE:LD|
000017e0  58 23 30 3a 2e 6f 75 74  70 75 74 33 3a 4c 44 41  |X#0:.output3:LDA|
000017f0  62 75 6e 6b 65 72 2c 58  3a 4a 53 52 26 46 46 45  |bunker,X:JSR&FFE|
00001800  33 3a 49 4e 58 3a 43 4d  50 23 31 33 3a 42 4e 45  |3:INX:CMP#13:BNE|
00001810  6f 75 74 70 75 74 33 3a  4a 4d 50 72 65 73 74 3a  |output3:JMPrest:|
00001820  2e 62 75 6e 6b 65 72 3a  45 51 55 53 20 bd 32 32  |.bunker:EQUS .22|
00001830  39 2b bd 32 32 39 2b bd  32 32 39 2b bd 31 30 2b  |9+.229+.229+.10+|
00001840  bd 38 2b bd 38 2b bd 38  2b bd 38 2b bd 32 32 39  |.8+.8+.8+.8+.229|
00001850  2b bd 32 32 39 2b bd 32  32 39 2b bd 32 32 39 0d  |+.229+.229+.229.|
00001860  01 90 68 45 51 55 53 20  bd 32 32 39 2b bd 31 30  |..hEQUS .229+.10|
00001870  2b bd 38 2b bd 38 2b bd  38 2b bd 38 2b bd 38 2b  |+.8+.8+.8+.8+.8+|
00001880  bd 32 32 39 2b bd 32 32  39 2b bd 32 32 39 2b bd  |.229+.229+.229+.|
00001890  32 32 39 2b bd 32 32 39  2b bd 31 30 2b bd 38 2b  |229+.229+.10+.8+|
000018a0  bd 38 2b bd 38 2b bd 38  2b bd 38 2b bd 32 32 39  |.8+.8+.8+.8+.229|
000018b0  2b bd 32 32 39 2b bd 33  32 2b bd 32 32 39 2b bd  |+.229+.32+.229+.|
000018c0  32 32 39 2b bd 31 33 0d  01 9a 47 2e 65 78 70 6c  |229+.13...G.expl|
000018d0  6f 20 45 51 55 44 26 30  30 30 32 30 30 31 31 3a  |o EQUD&00020011:|
000018e0  45 51 55 44 26 30 30 30  41 30 30 30 34 3a 2e 66  |EQUD&000A0004:.f|
000018f0  61 68 3a 45 51 55 44 26  30 30 30 31 30 30 31 31  |ah:EQUD&00010011|
00001900  3a 45 51 55 44 26 30 30  30 35 30 30 46 46 0d 01  |:EQUD&000500FF..|
00001910  a4 83 2e 72 65 73 74 3a  4c 44 58 23 30 3a 2e 6f  |...rest:LDX#0:.o|
00001920  75 3a 4c 44 41 73 74 61  74 2c 58 3a 4a 53 52 26  |u:LDAstat,X:JSR&|
00001930  46 46 45 33 3a 49 4e 58  3a 43 4d 50 23 31 33 3a  |FFE3:INX:CMP#13:|
00001940  42 4e 45 6f 75 3a 52 54  53 3a 2e 73 74 61 74 3a  |BNEou:RTS:.stat:|
00001950  45 51 55 53 20 bd 33 31  2b bd 37 2b bd 31 2b 22  |EQUS .31+.7+.1+"|
00001960  4c 45 56 45 4c 20 20 20  20 20 53 43 4f 52 45 20  |LEVEL     SCORE |
00001970  20 20 20 20 4c 49 56 45  53 22 2b bd 33 31 2b bd  |    LIVES"+.31+.|
00001980  31 37 2b bd 32 2b 22 30  30 30 30 30 22 2b bd 31  |17+.2+"00000"+.1|
00001990  33 0d 01 ae ee 2e 62 6f  6d 62 73 3a 4c 44 41 23  |3.....bombs:LDA#|
000019a0  33 31 3a 4a 53 52 26 46  46 45 45 3a 4c 44 41 26  |31:JSR&FFEE:LDA&|
000019b0  37 43 3a 4a 53 52 26 46  46 45 45 3a 4c 44 41 26  |7C:JSR&FFEE:LDA&|
000019c0  37 44 3a 4a 53 52 26 46  46 45 45 3a 49 4e 43 26  |7D:JSR&FFEE:INC&|
000019d0  37 44 3a 4c 44 41 26 37  44 3a 43 4d 50 23 32 38  |7D:LDA&7D:CMP#28|
000019e0  3a 42 45 51 72 65 73 65  74 3a 4c 44 41 23 33 32  |:BEQreset:LDA#32|
000019f0  3a 4a 53 52 26 46 46 45  45 3a 4c 44 41 23 33 31  |:JSR&FFEE:LDA#31|
00001a00  3a 4a 53 52 26 46 46 45  45 3a 4c 44 41 26 37 43  |:JSR&FFEE:LDA&7C|
00001a10  3a 4a 53 52 26 46 46 45  45 3a 4c 44 41 26 37 44  |:JSR&FFEE:LDA&7D|
00001a20  3a 4a 53 52 26 46 46 45  45 3a 4c 44 41 23 31 33  |:JSR&FFEE:LDA#13|
00001a30  35 3a 4a 53 52 26 46 46  46 34 3a 54 58 41 3a 43  |5:JSR&FFF4:TXA:C|
00001a40  4d 50 23 31 33 33 3a 42  45 51 72 65 73 65 74 3a  |MP#133:BEQreset:|
00001a50  43 4d 50 23 31 32 38 3a  42 45 51 62 6f 6f 6d 3a  |CMP#128:BEQboom:|
00001a60  43 4d 50 23 31 32 39 3a  42 45 51 62 6f 6f 6d 3a  |CMP#129:BEQboom:|
00001a70  43 4d 50 23 31 33 30 3a  42 45 51 62 6f 6f 6d 0d  |CMP#130:BEQboom.|
00001a80  01 b8 cf 4c 44 41 23 32  32 37 3a 4a 53 52 26 46  |...LDA#227:JSR&F|
00001a90  46 45 45 3a 52 54 53 3a  2e 72 65 73 65 74 3a 4c  |FEE:RTS:.reset:L|
00001aa0  44 41 23 33 32 3a 4a 53  52 26 46 46 45 45 3a 4c  |DA#32:JSR&FFEE:L|
00001ab0  44 41 26 38 41 3a 53 54  41 26 37 43 3a 49 4e 43  |DA&8A:STA&7C:INC|
00001ac0  26 37 43 3a 4c 44 41 23  34 3a 53 54 41 26 37 44  |&7C:LDA#4:STA&7D|
00001ad0  3a 52 54 53 3a 2e 62 6f  6f 6d 3a 4c 44 41 23 33  |:RTS:.boom:LDA#3|
00001ae0  31 3a 4a 53 52 26 46 46  45 45 3a 4c 44 41 26 38  |1:JSR&FFEE:LDA&8|
00001af0  30 3a 4a 53 52 26 46 46  45 45 3a 4c 44 41 23 32  |0:JSR&FFEE:LDA#2|
00001b00  37 3a 4a 53 52 26 46 46  45 45 3a 4c 44 41 23 33  |7:JSR&FFEE:LDA#3|
00001b10  32 3a 4a 53 52 26 46 46  45 45 3a 4c 44 41 23 32  |2:JSR&FFEE:LDA#2|
00001b20  32 38 3a 4a 53 52 26 46  46 45 45 3a 4a 53 52 26  |28:JSR&FFEE:JSR&|
00001b30  46 46 45 45 3a 4a 53 52  26 46 46 45 45 3a 4c 44  |FFEE:JSR&FFEE:LD|
00001b40  41 23 31 3a 53 54 41 26  38 43 3a 52 54 53 0d 01  |A#1:STA&8C:RTS..|
00001b50  c2 ea 2e 62 69 67 6d 75  6d 6d 61 3a 4c 44 41 23  |...bigmumma:LDA#|
00001b60  33 31 3a 4a 53 52 26 46  46 45 45 3a 4c 44 41 26  |31:JSR&FFEE:LDA&|
00001b70  38 41 3a 4a 53 52 26 46  46 45 45 3a 4c 44 41 23  |8A:JSR&FFEE:LDA#|
00001b80  34 3a 4a 53 52 26 46 46  45 45 3a 4c 44 41 23 33  |4:JSR&FFEE:LDA#3|
00001b90  32 3a 4a 53 52 26 46 46  45 45 3a 4a 53 52 26 46  |2:JSR&FFEE:JSR&F|
00001ba0  46 45 45 3a 4a 53 52 26  46 46 45 45 3a 4c 44 41  |FEE:JSR&FFEE:LDA|
00001bb0  26 38 42 3a 43 4d 50 23  31 3a 42 45 51 73 63 72  |&8B:CMP#1:BEQscr|
00001bc0  61 67 3a 49 4e 43 26 38  41 3a 4a 4d 50 70 61 6e  |ag:INC&8A:JMPpan|
00001bd0  67 3a 2e 73 63 72 61 67  3a 44 45 43 26 38 41 3a  |g:.scrag:DEC&8A:|
00001be0  2e 70 61 6e 67 3a 4c 44  41 26 38 41 3a 43 4d 50  |.pang:LDA&8A:CMP|
00001bf0  23 32 3a 42 45 51 66 72  61 6b 3a 43 4d 50 23 33  |#2:BEQfrak:CMP#3|
00001c00  34 3a 42 45 51 7a 61 6c  61 67 61 3a 2e 6d 75 6d  |4:BEQzalaga:.mum|
00001c10  6d 61 3a 4c 44 41 23 33  31 3a 4a 53 52 26 46 46  |ma:LDA#31:JSR&FF|
00001c20  45 45 3a 4c 44 41 26 38  41 3a 4a 53 52 26 46 46  |EE:LDA&8A:JSR&FF|
00001c30  45 45 3a 4c 44 41 23 34  0d 01 cc 8b 4a 53 52 26  |EE:LDA#4....JSR&|
00001c40  46 46 45 45 3a 4c 44 41  23 32 33 38 3a 4a 53 52  |FFEE:LDA#238:JSR|
00001c50  26 46 46 45 45 3a 4c 44  41 23 32 33 39 3a 4a 53  |&FFEE:LDA#239:JS|
00001c60  52 26 46 46 45 45 3a 4c  44 41 23 32 34 30 3a 4a  |R&FFEE:LDA#240:J|
00001c70  53 52 26 46 46 45 45 3a  52 54 53 3a 2e 66 72 61  |SR&FFEE:RTS:.fra|
00001c80  6b 3a 49 4e 43 26 38 41  3a 4c 44 41 23 30 3a 53  |k:INC&8A:LDA#0:S|
00001c90  54 41 26 38 42 3a 4a 4d  50 6d 75 6d 6d 61 3a 2e  |TA&8B:JMPmumma:.|
00001ca0  7a 61 6c 61 67 61 3a 44  45 43 26 38 41 3a 4c 44  |zalaga:DEC&8A:LD|
00001cb0  41 23 31 3a 53 54 41 26  38 42 3a 4a 4d 50 6d 75  |A#1:STA&8B:JMPmu|
00001cc0  6d 6d 61 0d 01 d6 e2 2e  70 72 69 6e 74 73 63 6f  |mma.....printsco|
00001cd0  72 65 3a 4c 44 41 23 33  31 3a 4a 53 52 26 46 46  |re:LDA#31:JSR&FF|
00001ce0  45 45 3a 4c 44 41 23 31  37 3a 4a 53 52 26 46 46  |EE:LDA#17:JSR&FF|
00001cf0  45 45 3a 4c 44 41 23 32  3a 4a 53 52 26 46 46 45  |EE:LDA#2:JSR&FFE|
00001d00  45 3a 4c 44 41 26 38 37  3a 4c 53 52 41 3a 4c 53  |E:LDA&87:LSRA:LS|
00001d10  52 41 3a 4c 53 52 41 3a  4c 53 52 41 3a 43 4c 43  |RA:LSRA:LSRA:CLC|
00001d20  3a 41 44 43 23 34 38 3a  4a 53 52 26 46 46 45 45  |:ADC#48:JSR&FFEE|
00001d30  3a 4c 44 41 26 38 37 3a  80 23 26 30 46 3a 43 4c  |:LDA&87:.#&0F:CL|
00001d40  43 3a 41 44 43 23 34 38  3a 4a 53 52 26 46 46 45  |C:ADC#48:JSR&FFE|
00001d50  45 3a 4c 44 41 26 38 38  3a 4c 53 52 41 3a 4c 53  |E:LDA&88:LSRA:LS|
00001d60  52 41 3a 4c 53 52 41 3a  4c 53 52 41 3a 43 4c 43  |RA:LSRA:LSRA:CLC|
00001d70  3a 41 44 43 23 34 38 3a  4a 53 52 26 46 46 45 45  |:ADC#48:JSR&FFEE|
00001d80  3a 4c 44 41 26 38 38 3a  80 23 26 30 46 3a 43 4c  |:LDA&88:.#&0F:CL|
00001d90  43 3a 41 44 43 23 34 38  3a 4a 53 52 26 46 46 45  |C:ADC#48:JSR&FFE|
00001da0  45 3a 52 54 53 0d 01 e0  dc 2e 61 64 64 31 30 30  |E:RTS.....add100|
00001db0  3a 53 45 44 3a 43 4c 43  3a 4c 44 41 26 38 38 3a  |:SED:CLC:LDA&88:|
00001dc0  41 44 43 23 31 30 3a 53  54 41 26 38 38 3a 4c 44  |ADC#10:STA&88:LD|
00001dd0  41 26 38 37 3a 41 44 43  23 30 3a 53 54 41 26 38  |A&87:ADC#0:STA&8|
00001de0  37 3a 43 4c 44 3a 4a 4d  50 70 72 69 6e 74 73 63  |7:CLD:JMPprintsc|
00001df0  6f 72 65 3a 2e 61 64 64  32 30 30 3a 53 45 44 3a  |ore:.add200:SED:|
00001e00  43 4c 43 3a 4c 44 41 26  38 38 3a 41 44 43 23 33  |CLC:LDA&88:ADC#3|
00001e10  32 3a 53 54 41 26 38 38  3a 4c 44 41 26 38 37 3a  |2:STA&88:LDA&87:|
00001e20  41 44 43 23 30 3a 53 54  41 26 38 37 3a 43 4c 44  |ADC#0:STA&87:CLD|
00001e30  3a 4a 4d 50 70 72 69 6e  74 73 63 6f 72 65 3a 2e  |:JMPprintscore:.|
00001e40  6c 61 6e 64 65 64 3a 4c  44 41 26 37 31 3a 43 4d  |landed:LDA&71:CM|
00001e50  50 23 32 30 3a 42 45 51  68 61 67 61 72 3a 52 54  |P#20:BEQhagar:RT|
00001e60  53 3a 2e 68 61 67 61 72  3a 4a 53 52 62 6f 6f 6d  |S:.hagar:JSRboom|
00001e70  3a 4c 44 41 23 31 3a 53  54 41 26 42 34 3a 52 54  |:LDA#1:STA&B4:RT|
00001e80  53 0d 01 ea 0b 52 54 53  3a 5d 3a ed 0d 01 f4 ad  |S....RTS:]:.....|
00001e90  db 3a f2 6d 73 6b 28 22  49 4e 56 41 53 49 4f 4e  |.:.msk("INVASION|
00001ea0  20 46 4f 52 43 45 22 2c  31 30 2c 31 29 3a f1 8a  | FORCE",10,1):..|
00001eb0  37 2c 31 30 29 22 5a 20  20 20 20 2d 20 20 20 46  |7,10)"Z    -   F|
00001ec0  4f 52 20 20 20 20 2d 20  20 20 4c 45 46 54 22 3a  |OR    -   LEFT":|
00001ed0  f1 8a 37 2c 31 32 29 22  58 20 20 20 20 2d 20 20  |..7,12)"X    -  |
00001ee0  20 46 4f 52 20 20 20 20  2d 20 20 20 52 49 47 48  | FOR    -   RIGH|
00001ef0  54 22 3a f1 8a 35 2c 31  34 29 22 53 48 49 46 54  |T":..5,14)"SHIFT|
00001f00  20 20 2d 20 20 20 46 4f  52 20 20 20 20 2d 20 20  |  -   FOR    -  |
00001f10  20 46 49 52 45 22 3a f1  8a 37 2c 31 36 29 22 50  | FIRE":..7,16)"P|
00001f20  20 20 20 20 2d 20 20 20  46 4f 52 20 20 20 20 2d  |    -   FOR    -|
00001f30  20 20 20 50 41 55 53 45  22 0d 01 fe ab f1 8a 31  |   PAUSE"......1|
00001f40  31 2c 35 29 22 48 49 20  53 43 4f 52 45 3d 22 3a  |1,5)"HI SCORE=":|
00001f50  f1 8a 32 31 2c 35 29 3b  48 49 25 3b 22 30 22 3a  |..21,5);HI%;"0":|
00001f60  f1 8a 37 2c 31 39 29 22  53 20 20 20 20 2d 20 20  |..7,19)"S    -  |
00001f70  20 46 4f 52 20 20 20 20  2d 20 20 20 53 4f 55 4e  | FOR    -   SOUN|
00001f80  44 22 3a f1 8a 37 2c 32  31 29 22 51 20 20 20 20  |D":..7,21)"Q    |
00001f90  2d 20 20 20 46 4f 52 20  20 20 20 2d 20 20 20 51  |-   FOR    -   Q|
00001fa0  55 49 45 54 22 3a f1 8a  31 31 2c 32 35 29 22 53  |UIET":..11,25)"S|
00001fb0  4f 55 4e 44 20 53 54 41  54 55 53 3d 4f 4e 22 3a  |OUND STATUS=ON":|
00001fc0  f2 6d 73 6b 28 22 53 50  41 43 45 20 54 4f 20 53  |.msk("SPACE TO S|
00001fd0  54 41 52 54 22 2c 31 31  2c 32 38 29 3a 2a 46 58  |TART",11,28):*FX|
00001fe0  32 31 2c 30 0d 02 08 0c  2a 46 58 32 31 30 2c 30  |21,0....*FX210,0|
00001ff0  0d 02 12 2c f5 3a 41 24  3d be 3a e7 41 24 3d 22  |...,.:A$=.:.A$="|
00002000  51 22 3a f1 8a 32 34 2c  32 35 29 3b 22 4f 46 46  |Q":..24,25);"OFF|
00002010  22 3b 3a 2a 46 58 32 31  30 2c 31 30 0d 02 1c 24  |";:*FX210,10...$|
00002020  e7 41 24 3d 22 53 22 3a  f1 8a 32 34 2c 32 35 29  |.A$="S":..24,25)|
00002030  3b 22 4f 4e 20 22 3b 3a  2a 46 58 32 31 30 2c 30  |;"ON ";:*FX210,0|
00002040  0d 02 26 39 fd 20 41 24  3d 22 20 22 3a f2 74 75  |..&9. A$=" ":.tu|
00002050  6e 65 28 22 39 38 37 36  35 34 33 32 31 30 36 36  |ne("987654321066|
00002060  37 37 3a 38 3a 38 39 39  3a 3b 3a 3b 3a 3a 3a 3a  |77:8:899:;:;::::|
00002070  3a 3a 3a 22 2c 33 2c 32  29 0d 02 30 3d 4c 45 56  |:::",3,2)..0=LEV|
00002080  25 3d 30 3a 4c 25 3d 33  3a 3f 26 39 30 3d 35 3a  |%=0:L%=3:?&90=5:|
00002090  3f 26 38 37 3d 30 3a 3f  26 38 38 3d 30 3a db 3a  |?&87=0:?&88=0:.:|
000020a0  f1 8a 39 2c 32 29 3b 4c  45 56 25 3a f1 8a 32 39  |..9,2);LEV%:..29|
000020b0  2c 32 29 3b 4c 25 0d 02  3a 05 f5 0d 02 44 07 d6  |,2);L%..:....D..|
000020c0  51 25 0d 02 4e 20 e7 3f  26 42 34 3d 31 3a 3f 26  |Q%..N .?&B4=1:?&|
000020d0  42 34 3d 30 3a f2 6c 61  6e 64 65 64 3a e5 8d 64  |B4=0:.landed:..d|
000020e0  74 41 0d 02 58 32 e7 3f  26 38 35 3d 31 36 8c 4c  |tA..X2.?&85=16.L|
000020f0  45 56 25 3d 4c 45 56 25  2b 31 3a f2 73 65 74 73  |EV%=LEV%+1:.sets|
00002100  63 72 65 65 6e 3a f2 6d  65 73 73 61 67 65 3a e5  |creen:.message:.|
00002110  8d 44 44 42 0d 02 62 2f  4c 25 3d 4c 25 2d 31 3a  |.DDB..b/L%=L%-1:|
00002120  d4 30 2c 2d 31 30 2c 31  35 2c 32 30 3a f2 73 65  |.0,-10,15,20:.se|
00002130  74 73 63 72 65 65 6e 3a  e3 54 3d 31 b8 32 30 30  |tscreen:.T=1.200|
00002140  30 3a ed 0d 02 6c 27 e7  3f 26 38 43 3d 31 20 80  |0:...l'.?&8C=1 .|
00002150  20 4c 25 3e 31 3a 3f 26  38 43 3d 30 3a d6 73 74  | L%>1:?&8C=0:.st|
00002160  61 72 74 32 3a e5 8d 44  58 42 0d 02 76 0a fd 20  |art2:..DXB..v.. |
00002170  4c 25 3d 30 0d 02 80 67  53 43 25 3d 31 30 30 30  |L%=0...gSC%=1000|
00002180  2a 28 28 3f 26 38 37 20  80 20 26 46 30 29 81 20  |*((?&87 . &F0). |
00002190  26 31 30 29 2b 31 30 30  2a 28 3f 26 38 37 20 80  |&10)+100*(?&87 .|
000021a0  20 26 46 29 2b 31 30 2a  28 28 3f 26 38 38 20 80  | &F)+10*((?&88 .|
000021b0  20 26 46 30 29 20 81 20  26 31 30 29 2b 28 3f 26  | &F0) . &10)+(?&|
000021c0  38 38 20 80 20 26 46 29  3a e7 20 53 43 25 3e 48  |88 . &F):. SC%>H|
000021d0  49 25 3a f2 6e 65 77 68  69 67 68 0d 02 8a 09 e5  |I%:.newhigh.....|
000021e0  8d 64 74 41 0d 02 94 52  dd f2 73 65 74 73 63 72  |.dtA...R..setscr|
000021f0  65 65 6e 3a f1 8a 39 2c  32 29 3b 4c 45 56 25 3a  |een:..9,2);LEV%:|
00002200  f1 8a 32 39 2c 32 29 3b  4c 25 3a e6 30 2c 30 3a  |..29,2);L%:.0,0:|
00002210  e3 49 25 3d 30 b8 31 32  38 30 88 34 3a ec 49 25  |.I%=0.1280.4:.I%|
00002220  2c 31 30 30 3a df 49 25  2c 39 33 30 3a ed 3a e6  |,100:.I%,930:.:.|
00002230  30 2c 31 3a e1 20 0d 02  9e 66 dd f2 6d 65 73 73  |0,1:. ...f..mess|
00002240  61 67 65 3a f1 8a 31 30  2c 31 30 29 3b 22 46 4f  |age:..10,10);"FO|
00002250  52 43 45 20 22 3b 4c 45  56 25 3b 22 20 44 45 53  |RCE ";LEV%;" DES|
00002260  54 52 4f 59 45 44 22 3a  e3 54 3d 31 b8 31 30 30  |TROYED":.T=1.100|
00002270  30 3a ed 3a e6 30 2c 30  3a e3 49 25 3d 30 b8 31  |0:.:.0,0:.I%=0.1|
00002280  32 38 30 88 34 3a ec 49  25 2c 36 30 30 3a df 49  |280.4:.I%,600:.I|
00002290  25 2c 37 30 30 3a ed 3a  e6 30 2c 31 0d 02 a8 1f  |%,700:.:.0,1....|
000022a0  3f 26 39 30 3d 3f 26 39  30 2b 31 3a e7 3f 26 39  |?&90=?&90+1:.?&9|
000022b0  30 3d 31 36 3a 3f 26 39  30 3d 35 0d 02 b2 05 e1  |0=16:?&90=5.....|
000022c0  0d 02 bc 99 dd f2 6c 61  6e 64 65 64 3a d4 30 2c  |......landed:.0,|
000022d0  2d 31 30 2c 31 35 2c 31  35 3a f2 73 65 74 73 63  |-10,15,15:.setsc|
000022e0  72 65 65 6e 3a f1 8a 31  33 2c 31 30 29 3b 22 46  |reen:..13,10);"F|
000022f0  4f 52 43 45 20 48 41 53  20 4c 41 4e 44 45 44 22  |ORCE HAS LANDED"|
00002300  3a e3 54 3d 31 b8 31 30  30 30 3a ed 3a f2 74 75  |:.T=1.1000:.:.tu|
00002310  6e 65 28 22 36 37 37 3a  38 3a 38 39 39 3a 3b 3a  |ne("677:8:899:;:|
00002320  3b 3a 3a 3a 3a 3a 3a 3a  22 2c 33 2c 32 29 3a e6  |;:::::::",3,2):.|
00002330  30 2c 30 3a e3 49 25 3d  30 b8 31 32 38 30 88 34  |0,0:.I%=0.1280.4|
00002340  3a ec 49 25 2c 36 30 30  3a df 49 25 2c 37 30 30  |:.I%,600:.I%,700|
00002350  3a ed 3a e6 30 2c 31 3a  e1 0d 02 c6 47 dd f2 74  |:.:.0,1:....G..t|
00002360  75 6e 65 28 53 24 2c 43  25 2c 44 25 29 3a e3 56  |une(S$,C%,D%):.V|
00002370  25 3d 31 b8 a9 28 53 24  29 3a 4e 25 3d 28 97 28  |%=1..(S$):N%=(.(|
00002380  c1 53 24 2c 56 25 2c 31  29 29 2d 34 33 29 2a 38  |.S$,V%,1))-43)*8|
00002390  3a d4 31 2c 43 25 2c 4e  25 2c 44 25 3a ed 3a e1  |:.1,C%,N%,D%:.:.|
000023a0  0d 02 d0 8b dd f2 6e 65  77 68 69 67 68 3a 48 49  |......newhigh:HI|
000023b0  25 3d 53 43 25 3a db 3a  f1 8a 31 32 2c 31 30 29  |%=SC%:.:..12,10)|
000023c0  3b 22 4e 45 57 20 48 49  47 48 20 53 43 4f 52 45  |;"NEW HIGH SCORE|
000023d0  21 22 3a ef 31 39 2c 31  2c 38 3b 30 3b 3a f2 74  |!":.19,1,8;0;:.t|
000023e0  75 6e 65 28 22 31 32 33  34 35 36 37 38 39 30 31  |une("12345678901|
000023f0  32 33 34 35 36 37 38 39  36 37 37 3a 38 3a 38 39  |23456789677:8:89|
00002400  39 3a 3b 3a 3b 3a 3a 3a  3a 3a 3a 3a 22 2c 33 2c  |9:;:;:::::::",3,|
00002410  32 29 3a e3 54 3d 31 b8  33 30 30 30 3a ed 3a ef  |2):.T=1.3000:.:.|
00002420  31 39 2c 31 2c 37 3b 30  3b 3a e1 0d 02 da 77 dd  |19,1,7;0;:....w.|
00002430  f2 6d 73 6b 28 41 24 2c  58 43 25 2c 59 43 25 29  |.msk(A$,XC%,YC%)|
00002440  3a ea 20 58 25 2c 59 25  2c 50 25 2c 5a 25 3a 58  |:. X%,Y%,P%,Z%:X|
00002450  25 3d 58 43 25 3a 59 25  3d 59 43 25 3a 5a 25 3d  |%=XC%:Y%=YC%:Z%=|
00002460  58 25 2b a9 41 24 3a e3  54 3d 31 b8 a9 41 24 3a  |X%+.A$:.T=1..A$:|
00002470  58 25 3d 58 25 2b 31 3a  46 24 3d c1 41 24 2c 54  |X%=X%+1:F$=.A$,T|
00002480  2c 31 29 3a e3 50 25 3d  5a 25 b8 58 25 88 2d 31  |,1):.P%=Z%.X%.-1|
00002490  3a f1 8a 50 25 2c 59 25  29 3b 46 24 3a ed 3a ed  |:..P%,Y%);F$:.:.|
000024a0  3a e1 0d ff                                       |:...|
000024a4
INVASION.m0
INVASION.m1
INVASION.m2
INVASION.m4
INVASION.m5