The anxious faces of the six member crew of space station Z64 stared silently into the circular radar scope as the once distant blips approached their location with high velocity. In the emptiness of space, the possibility of an attack from the Atitrons became an unspoken concern. Gazing into the pulsing monitor, they began to think that the attempts of the Earth Federation to avoid a war must have failed. Yet the fact that no message had been received from headquarters, notifying of any danger, puzzled them.
    Suddenly C.A.T., the central computer system, sounded an alert. The once quiet bridge now buzzed with the noise of people rushing to their assigned positions. C.A.T. automatically displayed normally hidden weapon panels and illuminated the interior of the station with pulsing yellow lights. Consumed with nervous energy, the crew frantically began to prepare their defense systems. Because they were a minor installation, no aid from Earth Federation was expected. Being isolated and located near Atitron territory, they all knew that they would become easy prey for the enemy forces, should war break-out. The blips were drawing closer.
    The only significant defense would be their mobile missile launcher. Mounted on guide rails that extend the length of the station, this weapon would be able to fire horizontally upon oncoming spacecraft. Although missiles could be fired with deadly accuracy, the rate of launching is relatively slow, partically if the target is a distance away.
    C.A.T. was now automatically transmitting messages to recall all the one-man research pods. These pods were used by scientists to study the surrounding space. Unfortunely, because no immediate attack was previously expected, they had been sent out to do research. As a result of the pods distance from the Space Station, they would not be able to return until the Atitrons had arrived. They will need to be recovered by the mobile missile launcher, the pods will be recovered, and the keyboard speaker will "click" and your score will be increased.One does not need to worry about destroying the pods before they reach the station. The pods are equiped with special defence shields that neutralize the effects of friendly missiles.
    Taking controls of the missile launcher, C.A.T. briefs you on typical Atitron strategies. The best way to destroy the Station is to severe the central power cable that runs vertically along the middle of the structure. This cable supplies all the weapon systems with power. Without it the Station would have no means of defending itself and as a result become completely neutralized. Knowing this, the Atitrons will attempt to have their ships crash into the cable. The early waves of an Atitron attack are usually ineffective. Using slow and obsolete spacecraft , these are usually handled even by the most inexperienced player. The attacking spacecraft are little more than easy points and a means to practice skills. However, each wave becomes increasingly dangerous. With growing speed and intensity , Atitrons will become more than a match for anyone. The only thing a player can do is delay the destruction of the Space Station, thus maximizing his or her score.
    The blips were nearly upon them. All was quiet and ready. You sit silently in the missile laucher gazing into the black emptiness of space. Suddenly, you get a visual on the first wave of the attack. Thumb hovering over the fire button, you take aim. GOOD LUCK!

Basic Listing

1 REM * REQUIRES 48K AND ONE JOYSTICK*
2 GRAPHICS O:SETCOLOR 2,16,1:POKE 752,1:POSITION 11,8:? "Loading Machine Data":DIM RAN1$(20),YN$(4)
3 POSITION 11,10:? "Please Wait 1:45 min"
4 FOR X=1 TO 3355
5 READ D:IF X>180 THEN POKE 34000-181+X,D
6 NEXT X
7 C=20:PLAY=1:LIVES=1:LVL1=0:LVL2=O:LVL3=0:LVL4=0:LEVEL=1:LVEL1=1:LVEL2=1:LVEL3=1:LVEL4=1:POKE 752,0:RESTORE
8 NON1=5:NON2=5:NON3=5:NON4=5:ESP1=27:ESP2=27:ESP3=27:ESP4=27:CH1=0:CH2=0:CH3=0:CH4=0:SC1=0:SC2=0:SC3=0:SC4=0
9 POKE 88,64:POKE 89,156:POKE 106,160
10 GRAPHICS 1:SETCOLOR 2,16,1
11 ? "Use OPTION & SELECT buttons or START to continue"
12 POSITION 1,4:? #6;"How many players?"
13 POSITION 18,4:? #6;PLAY
14 IF PEEK(53279)=3 AND PLAY<4 THEN PLAY=PLAY+1
15 IF PEEK(53279)=5 AND PLAY>1 THEN PLAY=PLAY-1
17 FOR X=1 TO 100:NEXT X
18 IF PEEK(53279)<>6 THEN 13
20 POSITION 1,6:? #6;"How many lives?"
22 POSITION 18,6:? #6;LIVES
24 IF PEEK(53279)=3 AND LIVES<5 THEN LIVES=LIVES+1
26 IF PEEK(53279)=5 AND LIVES>1 THEN LIVES=LIVES-1
28 FOR X=1 TO 100:NEXT X
30 IF PEEK(53279)<>6 THEN 22
40 LV1=LIVES:LV2=LIVES:LV3=LIVES:LV4=LIVES
99 REM *CHARACTER BASE FOR THE ROM SET
100 ROMSET=57344
105 REM*SET BASE VALUE OF THE NEW SET
110 RAMT=156
120 NSET=RAMT*256
125 REM * RESERVE MEMORY SPACE
130 POKE 106,PEEK(106)-5
140 GRAPHICS 0
141 POKE 752,1:SETCOLOR 2,16,1
142 POSITION 15,4:? "Please WAIT"
144 POSITION 8,6:? "(Loading Character Data)"
145 REM * MOVE ROM SET TO NESET LOCATION
150 FOR L=1 TO 1024
155 POKE NSET+L-1,PEEK(ROMSET+L-1
160 NEXT L
165 REM * SET CHARACTER BASE REGISTER TO NEW SET LOCATION
166 POKE 752,0
170 POKE 756,NSET/256
175 REM * POKE IN VALUES FOR MODIFIED CHARACTERS
180 FOR L1=1 TO 20
190 READ LOC
200 SET=NSET+LOC*8
210 FOR L2=0 TO 7:READ D
220 POKE SET+L2,D
230 NEXT L2
240 NEXT L1
500 GOTO 2000
1000 POKE 88,64:POKE 89,156
1001 GRAPHICS O:SETCOLOR 2,16,1
1002 POKE 752,1
1005 POKE 756,NSET/256
1010 POSITION C,1:? "K":POSITION C,2:? "K":POSITION C,3:? "J":POSTTION C-1,3:? "N":POSITION C+1,3:? "M"
1015 POSITION C,0:? "K"
1020 POSITION C,4:? "L":POSITION C,5:? "L":POSITION C-1,6:? "K":POSITION C,6:? "K":POSITION C+1,6:? "K"
1030 POSITION C-2,6:? "L":POSITION C+2,6:? "L":POSITION C-3,6:? "N":POSITION C+3,6:? "M"
1040 POSITION C,7:? "K":POSITION C-2,8:? "C":POSITION C-1,8:? "I":POSITION C,8:? "I":POSITION C+1,8:? "I"
1050 POSITION C+2,8:? "D"
1060 POSITION C-1,9:? "J":POSITION C,9:? "J":POSITION C+1,9:? "J"
1070 POSITION C,10:? "K"
1080 POSITION C,11:7 "K"
1090 POSITION C,12:? "Q"
1100 POSITION C-1,13:? "E":POSITION C,13:? "J":POSITION C+1,13:? "F"
1110 POSITION C,14:? "Q"
1120 POSITION C,15:? "K"
1130 POSITION C-1,15:? "H":POSITION C,15:? "J":POSITION C+1,15:? "G"
1140 POSITION C,16:? "K"
1150 POSITION C,17:? "K"
1160 POSITION C-1,18:? "N":POSITION C,18:? "J":POSITION C+1,18:? "M"
1170 POSITION C,19:? "K"
1180 POSITION C,20:? "K"
1190 POSITION C-1,21:? "E":POSITION C,21:? "K":POSITION C+1,21:? "F"
1200 POSITION C,22:? "K"
1299 REM * DRAW BACKGROUND*
1300 POSITION 10,15:? "S":POSITION 15,5:? "S":POSITION 7,12:? "S":POSITION 8,8:? "S"
1305 POSITION 25,10:? "S":POSITION 28,18:? "S":POSITION 35,4:? "S":POSITION 36,20:? "S":POSITION 24,8
1310 POSITION 18,7:? "S":POSITION 17,14:? "S"
1315 POSITION 5,11:? "T":POSITION 25,6:? "T":POSITION 25,10:? "T":POSITION 30,10:? "O":POSITION 34,10:? "T"
1325 POSITION 17,4:? "T":POSITION 12,1:? "S":POSITION 17,1:? "T"
1330 POSITION 1,20:? "S":POSITION 2,18:? "S":POSITION 5,17:? "T":POSITION 7,20:? "T"
1335 POSITION 1,1:? "O":POSITION 5,10:? "O":POSITION 15,20:? "O":POSITION 25,21:? "O":POSITION 28,1:? "O"
1340 POSITION 25,10:? "R":POSITION 35,18:? "T":POSITION 30,2:? "S":POSITION 38,2:? "S":POSITION 38,12:? "T"
1345 POSITION 25,14:? "T":POSITION 3,5:? "S":POSITION 31,15:?"R":POSITION 7,3:? "T":POSITION 14,10:? "T"
1490 POKE 77,0
1500 X=USR(33999)
1501 POKE 752,0
1505 SCR1=PEEK(1607)*2*LEVEL5+(PEEK(1545)*LEVEL5+INT(RND(0)*5+1))
1520 IF P=1 THEN SC1=SC1+SCR1
1525 IF P=2 THEN SC2=SC2+SCR1
1530 IF P=3 THEN SC3=SC3+SCR1
1535 IF P=4 THEN SC4=SC4+SCR1
1599 GOTO 4040
1999 REM * STATUS SECTION
2000 FOR P=1 TO PLAY
2002 IF P=1 AND LV1<1 THEN 4120
2003 IF P=2 AND LV2<1 THEN 4120
2004 IF P=3 AND LV3<1 THEN 4120
2005 IF P=4 AND LV4<1 THEN 4120
2007 SOUND 0,0,0,0:SOUND 1,0,0,0:SOUND 2,0,0,0:SOUND 3,0,0,0
2008 POKE 53248,0:POKE 53249,0:POKE 53250,0:POKE 53251,0:POKE 53252,0:POKE 53253,0:POKE 53254,0:POKE 53255,0
2009 GRAPHICS 1:SETCOLOR 2,16,1
2010 POSITION 7,7:? #6;"PLAYER";:? #6;P
2012 IF P=1 THEN L5=LV1
2013 IF P=2 THEN L5=LV2
2014 IF P=3 THEN L5=LV3
2015 IF P=4 THEN L5=LV4
2020 POSITION 7,9:? #6;"LIVES ? #6;L5
2022 IF P=1 THEN LEVEL5=LVEL1
2024 IF P=2 THEN LEVEL5=LVEL2
2026 IF P=3 THEN LEVEL5=LVEL3
2028 IF P=4 THEN LEVEL5=LVEL4
2030 POSITION 7,11:? #6;"LEVEL";:? #6;LEVEL5
2040 FOR X=1 TO 200:NEXT X
2100 IF CH1=1 AND ESP1>2 THEN NON1=NON1+2:ESP1=ESP1-2:CH1=0:POKE 1608,NON1:POKE 1609,ESP1
2110 IF CH2=1 AND ESP2>2 THEN NON2=NON2+2:ESP2=ESP2-2:CH2=0:POKE 1608,NON2:POKE 1609,ESP2
2120 IF CH3=1 AND ESP3>2 THEN NON3=NON3+2:ESP3=ESP3-2:CH3=0:POKE 1608,NON3:POKE 1609,ESP3
2130 IF CH4=1 AND ESP4>2 THEN NON4=NON4+2:ESP4=ESP4-2:CH4=0:POKE 1608,NON4:POKE 1609,ESP4
2180 IF P=1 THEN POKE 1608,NON1:POKE 1609,ESP1
2182 IF P=2 THEN POKE 1608,NON2:POKE 1609,ESP2
2184 IF P=3 THEN POKE 1608,NON3:POKE 1609,ESP3
2186 IF P=4 THEN POKE 1608,NON4:POKE 1609,ESP4
4020 POKE 33999,104
4030 GOTO 1000
4040 IF PEEK(1621)<>1 THEN 4100
4050 IF P=1 AND LV1>0 THEN LV1=LV1-1
4060 IF P=2 AND LV2>0 THEN LV2=LV2-1
4070 IF P=3 AND LV3>0 THEN LV3=LV3-1
4080 IF P=4 AND LV4>0 THEN LV4=LV4-1
4090 GOTO 4120
4100 IF P=1 THEN LVEL1=LVEL1+1:CH1=1
4104 IF P=2 THEN LVEL2=LVEL2+1:CH2=1
4106 IF P=3 THEN LVEL3=LVEL3+1:CH3=1
4108 IF P=4 THEN LVEL4=LVEL4+1:CH4=1
4120 NEXT P
4122 IF PLAY=1 AND LV1<1 THEN 7000
4124 IF PLAY=2 AND LV1<1 AND LV2<1 THEN 7000
4126 IF PLAY=3 AND LV1<1 AND LV2<1 AND LV3<1 THEN 7000
4128 IF PLAY=4 AND LV1<1 AND LV2<1 AND LV3<1 AND LV4<1 THEN 7000
4130 P=1:GOTO 2000
7000 POKE 53248,O:POKE 53249,0:POKE 53250,0:POKE 53251,0:POKE 53252,0 :POKE 53253,0:POKE 53254,0:POKE 53255,0
7002 SOUND 0,0,0,0:SOUND 1,0,0,0:
SOUND 2,0,0,0:SOUND 3,0,0,0
7005 GRAPHICS 0
7010 SETCOLOR 2,16,1
7020 POSITION 15,2:? "Score Results"
7030 POSITION 3,4:? "Player":POSITION 13,4:? "Score":POSITION 25,4:? "Rank"
7045 Y=8
7050 FOR X=1 TO PLAY
7060 IF X=1 THEN SE=SC1
7070 IF X=2 THEN SE=SC2
7080 IF X=3 THEN SE=SC3
7090 IF X=4 THEN SE=SC4
7100 IF SE<750 THEN RAN1$="Laser Waster"
7110 IF SE>749 THEN RAN1$="Station Steward"
7120 IF SE>1500 THEN RAN1$="Rookie"
7130 IF SE>2000 THEN RAN1$="Crew Member"
7140 IF SE>2500 THEN RAN1$="Station Technician "
7150 IF SE>3000 THEN RAN1$="Star Centurion"
7160 IF SE>4000 THEN RAN1$="STATION STAR MASTER"
7170 POSITION 2,Y:? "PLAYER";:? X
7180 POSITION 14,Y:? SE
7190 POSITION 21,Y:?.RAN1$
7200 Y=Y+2
7210 NEXT X
8000 ? :? "Do you want to play again?"
8010 INPUT YN$
8020 IF YN$="Y" THEN 7
10250 DATA 33,96,48,56,255,56,48,96,0
10260 DATA 34,6,12,28,255,28,12,6,0
10270 DATA 35,3,15,63,255,255,63,15,3
10280 DATA 36,192,240,252,255,255,252,240,192
10290 DATA 37,3,15,15,31,31,15,15,3
10300 DATA 38,192,240,240,248,248,240,240,192
10310 DATA 39,128,132,142,255,142,132,128,0
10320 DATA 40,1,33,113,255,113,33,1,0
10330 DATA 41,255,255,255,195,195,255,255,255
10340 DATA 42,255,255,255,231,231,255,255,255
10350 DATA 43,255,195,165,153,153,165,195,255
10360 DATA 44,60,126,255,231,231,255,126,60
10370 DATA 45,8,8,8,255,8,8,8,0
10380 DATA 46,16,16,16,255,16,16,16,0
10390 DATA 47,0,16,16,56,254,56,16,16
10400 DATA 48,0,0,24,126,255,255,126,24
10410 DATA 49,170,170,170,170,170,170,170,170
10420 DATA 50,13,16,28,50,38,28,4,88
10430 DATA 51,0,0,0,24,24,0,0,0
10432 DATA 52,0,0,16,24,24,8,0,0
20000 DATA 169,62,141,47,2,169,88,141,192,2,169,60,141,193,2,169,112,141, 194,2,169,150,141,195
20005 DATA 2,169,64,141,7,212,169,3,141,29,208,169,127,141,1,6,169,125,141,0,6,169,1,141
20010 DATA 30,208,169,0,160,0,153,58,6,153,62,6,153,67,6,200,192,4,208,242,141,57,6,141
20015 DATA 9,6,141,7,6,141,2,6,141,11,6,141,9,6,141,71,6,173,1,6,141,0,208,162
20020 DATA 0,169,0,141,55,6,141,56,6,157,28,6,157,45,6,232,224,4,208,245,165,106,160,0
20025 DATA 169,0,141,85,6,153,0,67,153,0,68,153,0,69,153,0,70,153,0,71,200,192,255,208
20030 DATA 236,169,0,141,8,210,169,3,141,15,210,169,100,141,79,6,169,80,141,78,6,169,60,141
20035 DATA 77,6,169,40,141,76,6,169,20,141,75,6,169,10,141,74,6,169,4,141,80,6,76,32
20040 DATA 135,173,71,6,205,72,6,208,1,96,169,0,141,13,6,24,105,1,162,0,232,224,255,208
20045 DATA 251,205,80,6,208,241,173,120,2,141,10,6,201,6,208,3,76,227,133,201,7,208,5,208
20050 DATA 222,76,227,133,201,5,208,3,76,227,133,201,10,208,3,76,235,133,201,11,208,3,76,235
20055 DATA 133,201,9,208,3,76,235,133,76,243,133,169,0,141,2,6,76,243,133,169,1,141,2,6
20060 DATA 76,243,133,173,10,6,201,10,208,3,76,35,134,201,14,208,3,76,35,134,201,6,208,3
20065 DATA 76,35,134,201,9,208,3,76,48,134,201,13,208,3,76,48,134,201,5,208,3,76,48,134
20070 DATA 76,61,134,172,0,6,192,24,240,3,206,0,6,76,61,134,172,0,6,192,215,240,3,238
20075 DATA 0,6,76,61,134,76,139,138,173,11,6,201,0,240,6,173,8,6,76,130,134,173,132,2
20080 DATA 201,0,240,11,169,0,141,0,210,141,1,210,76,142,133,173,120,2,201,13,240,246,201,14
20085 DATA 240,242,201,15,240,238,141,8,6,174,0,6,142,4,6,174,1,6,142,5,6,162,1,142
20090 DATA 11,6,169,90,141,0,210,169,166,141,1,210,174,57,6,224,0,208,10,238,7,6,172,7
20095 DATA 6,192,75,208,25,160,0,140,5,6,174,4,6,140,4,6,140,11,6,140,7,6,169,0
20100 DATA 141,57,6,157,4,67,173,8,6,201,10,208,3,76,230,134,201,11,208,3,76,230,134,201
20105 DATA 9,208,3,76,230,134,201,6,208,3,76,242,134,201,7,208,3,76,242,134,201,5,208,3
20110 DATA 76,242,134,76,142,133,206,5,6,173,5,6,141,4,208,76,254,134,238,5,6,173,5,6
20115 DATA 141,4,208,76,254,134,173,13,6,24,105,3,141,13,6,172,4,6,169,0,153,2,67,153
20120 DATA 3,67,153,5,67,153,6,67,169,3,153,4,67,76,142,133,238,55,6,162,0,232,224,4
20125 DATA 208,16,173,55,6,205,73,6,208,5,169,0,141,55,6,76,241,138,189,58,6,201,0,240
20130 DATA 3,76,206,140,173,55,6,205,73,6,240,3,76,37,135,189,28,6,201,0,208,3,76,99
20135 DATA 135,160,0,200,192,200,208,251,76,179,135,238,71,6,169,1,157,28,6,173,10,210,157,19
20140 DATA 6,160,0,152,221,19,6,240,21,200,192,29,208,245,160,255,152,221,19,6,240,16,136,192
20145 DATA 215,208,245,76,158,135,169,29,157,19,6,76,158,135,169,215,157,19,6,76,158,135,173,10
20150 DATA 210,16,8,169,30,157,146,76,179,135,169,230,157,14,6,76,179,135,189,14,6,201,127
20155 DATA 208,3,76,216,135,48,3,76,205,135,254,14,6,169,1,157,32,6,76,216,135,222,14,6
20160 DATA 169,2,157,32,6,76,216,135,189,14,6,201,127,208,6,169,1,141,85,6,96,189,14,6
20165 DATA 157,0,208,224,1,208,3,76,252,135,224,2,208,3,76,53,137,76,99,138,169,60,141,193
20170 DATA 2,189,23,6,24,105,80,157,23,6,189,23,6,74,74,74,74,74,74,201,0,208,3,76
20175 DATA 43,136,201,2,208,3,76,252,136,201,3,208,3,76,177,136,76,106,136,189,19,6,168,169
20180 DATA 0,153,255,68,153,10,69,169,125,153,0,69,169,232,153,1,69,169,128,153,2,69,153,3
20185 DATA 69,169,236,153,4,69,169,126,153,5,69,169,50,153,6,69,169,2,153,7,69,169,22,153
20190 DATA 8,69,169,188,153,9,69,76,37,135,189,19,6,168,169,0,153,254,68,153,11,69,169,10
20195 DATA 153,255,68,169,24,153,0,69,169,32,153,1,69,153,2,69,153,10,69,169,198,153,3,69
20200 DATA 169,155,153,4,69,169,225,153,5,69,169,83,153,6,69,169,5,153,7,69,169,4,153,8
20205 DATA 69,169,26,153,9,69,76,37,135,189,19,6,168,169,0,153,254,68,153,11,69,169,8,153
20210 DATA 255,68,169,116,153,0,69,169,38,153,1,69,169,98,153,2,69,169,49,153,3,69,169,24
20215 DATA 153,4,69,169,142,153,5,69,169,4,153,6,69,169,166,153,7,69,169,104,153,8,69,169
20220 DATA 52,153,9,69,169,96,153,10,69,76,37,135,189,19,6,168,169,0,153,255,68,153,10,69
20225 DATA 153,9,69,153,0,69,153,1,69,169,134,153,2,69,169,11,153,3,69,169,201,153,4,69
20230 DATA 153,6,69,169,147,153,5,69,169,104,153,7,69,169,49,153,8,69,76,37,135,169,117,141
20235 DATA 194,2,189,23,6,24,105,35,157,23,6,189,32,6,201,1,208,3,76,216,137,189,23,6
20240 DATA 74,74,74,74,74,74,201,0,208,3,76,110,137,201,2,208,3,76,154,137,201,3,208,3
20245 DATA 76,182,137,76,182,137,189,19,6,168,169,0,153,255,69,153,7,70,169,1,153,0,70,153
20250 DATA 6,70,169,7,153,1,70,153,5,70,169,110,153,2,70,153,4,70,169,248,153,3,70,76
20255 DATA 37,135,189,19,6,168,169,0,153,1,70,153,5,70,169,96,153,2,70,153,4,70,169,255
20260 DATA 153,3,70,76,37,135,189,19,6,168,169,0,153,0,70,153,1,70,153,5,70,153,6,70
20265 DATA 169,111,153,2,70,153,4,70,169,248,153,3,70,76,37,135,189,23,6,74,74,74,74,74
20270 DATA 74,201,0,208,3,76,249,137,201,2,208,3,76,71,138,201,3,208,3,76,37,138,76,37
20275 DATA 138,189,19,6,168,169,0,153,255,69,153,7,70,169,128,153,0,70,153,6,70,169,224,153
20280 DATA 1,70,153,5,70,169,118,153,2,70,153,4,70,169,31,153,3,70,76,37,135,189,19,6
20285 DATA 168,169,0,153,1,70,153,5,70,153,0,70,153,6,70,169,246,153,2,70,153,4,70,169
20290 DATA 31,153,3,70,76,37,135,189,19,6,168,169,0,153,1,70,153,5,70,169,6,153,2,70
20295 DATA 153,4,70,169,255,153,3,70,76,37,135,169,150,141,195,2,189,19,6,168,169,0,153,255
20300 DATA 70,153,4,71,169,8,153,0,71,169,28,153,1,71,169,119,153,2,71,169,62,153,3,71
20305 DATA 76,37,135,173,2,6,201,0,208,3,76,192,138,172,0,6,169,0,153,0,68,153,8,68
20310 DATA 169,4,153,1,68,153,7,68,169,12,153,2,68,153,6,68,169,254,153,3,68,153,5,68
20315 DATA 169,31,153,4,68,76,64,134,172,0,6,169,0,153,0,68,153,8,68,153,255,67,153,9
20320 DATA 68,169,32,153,1,68,153,7,68,169,48,153,2,68,153,6,68,169,127,153,3,68,153,5
20325 DATA 68,169,248,153,4,68,76,64,134,238,56,6,173,56,6,201,8,240,3,76,40,140,169,0
20330 DATA 141,56,6,162,0,232,224,4,208,3,76,40,140,189,45,6,201,0,208,3,76,26,139,76
20335 DATA 124,139,169,1,157,45,6,173,10,210,157,37,6,74,74,74,74,201,0,208,8,169,29,157
20340 DATA 37,6,76,62,139,201,5,208,5,169,210,157,37,6,173,10,210,16,15,173,10,210,16,5
20345 DATA 169,26,76,94,139,169,19,76,94,139,173,10,210,16,5,169,228,76,94,139,169,235,157,41
20350 DATA 6,76,100,139,189,41,6,48,11,76,108,139,169,2,157,50,6,76,124,139,169,1,157,50
20355 DATA 6,76,124,139,189,41,6,201,10,240,7,201,245,240,3,76,161,139,169,0,157,45,6,189
20360 DATA 37,6,168,169,0,153,0,67,153,1,67,153,2,67,76,5,139,189,50,6,201,2,208,6
20365 DATA 254,41,6,76,177,139,222,41,6,189,41,6,157,4,208,224,1,208,3,76,200,139,224,2
20370 DATA 208,3,76,232,139,76,8,140,189,37,6,168,189,50,6,201,2,208,5,169,8,76,218,139
20375 DATA 169,4,153,0,67,153,2,67,169,12,153,1,67,76,5,139,189,37,6,168,189,50,6,201
20380 DATA 2,208,5,169,32,76,250,139,169,16,153,0,67,153,2,67,169,48,153,1,67,76,5,139
20385 DATA 189,37,6,168,189,50,6,201,2,208,5,169,128,76,26,140,169,64,153,0,67,153,2,67
20390 DATA 169,192,153,1,67,76,5,139,173,8,208,74,74,74,201,0,240,28,162,3,169,0,157,28
20395 DATA 6,142,57,6,189,19,6,168,169,1,157,58,6,173,8,208,56,233,8,76,81,140,173,8
20400 DATA 208,74,201,2,240,11,201,1,240,31,201,0,208,3,76,139,140,162,2,168,169,1,157,58
20405 DATA 6,169,0,157,28,6,142,57,6,152,201,3,240,3,76,139,140,162,1,169,1,157,58,6
20410 DATA 169,0,157,28,6,142,57,6,76 ,139,140,173,9,208,201,1,208,5,162,1,76,172,140,173
20415 DATA 10,208,201,1,208,5,162,2,76,172,140,173,11,208,201,1,208,28,162,3,238,9,6,169
20420 DATA 0,157,45,6,141,31,208,189,37,6,168,169,0,153,0,67,153,1,67,153,2,67,169,1
20425 DATA 141,30,208,76,145,133,189,62,6,205,79,6,208,14,169,0,157,58,6,157,62,6,157,67
20430 DATA 6,76,52,145,224,1,208,3,76,245,140,224,2,208,3,76,112,142,76,206,143,254,62,6
20435 DATA 189,62,6,205,78,6,208,8,1 69,5,157,67,6,76,77,142,205,77,6,208,8,169,4,157
20440 DATA 67,6,76,22,142,205,76,6,208,8,169,3,157,67,6,76,220,141,205,75,6,208,8,169
20445 DATA 2,157,67,6,76,160,141,205,74,6,208,8,169,1,157,67,6,76,94,141,189,67,6,201
20450 DATA 5,208,3,76,77,142,201,4,208,3,76,22,142,201,3,208,3,76,220,141,201,2,208,3
20455 DATA 76,160,141,76,94,141,169,62,141,193,2,189,19,6,168,169,42,153,2,69,153,6,69,169
20460 DATA 28,153,3,69,153,5,69,169,126,153,4,69,169,0,153,7,69,153,8,69,153,9,69,153
20465 DATA 10,69,153,0,69,153,1,69,153,255,68,169,24,141,2,210,169,14,141,3,210,76,52,145
20470 DATA 169,60,141,193,2,189,19,6,168,169,42,153,1,69,169,73,153,2,69,169,28,153,3,69
20475 DATA 153,5,69,169,247,153,4,69,169,8,153,6,69,169,65,153,7,69,169,34,153,8,69,169
20480 DATA 32,141,2,210,169,14,141,3,210,76,52,145,169,58,141,193,2,189,19,6,168,169,24,153
20485 DATA 1,69,153,6,69,169,36,153,2,69,153,5,69,169.,67,153,3,69,169,194,153,4,69,169
20490 DATA 8,153,7,69,169,0,153,8,69,169,100,141,2,210,169,5,141,3,210,76,52,145,169,55
20495 DATA 141,193,2,189,19,6,168,169,66,153,0,69,153,7,69,169,129,153,1,69,153,6,69,169
20500 DATA 0,153,2,69,153,3,69,153,4,69,153,5,69,153,8,69,169,60,141,2,210,169,10,141
20505 DATA 3,210,76,52,145,189,19,6,168,169,52,141,193,2,169,0,153,255,68,153,0,69,153,1
20510 DATA 69,153,6,69,153,7,69,141,2,210,141,3,210,76,52,145,254,62,6,189,62,6,205,78
20515 DATA 6,208,8,169,5,157,67,6,76,174,143,205,77,6,208,8,169,4,157,67,6,76,122,143
20520 DATA 205,76,6,208,8,169,3,157,67,6,76,64,143,205,75,6,208,8,169,2,157,67,6,76
20525 DATA 4,143,205,74,6,208,8,169,1,157,67,6,76,217,142,189,67,6,201,5,208,3,76,174
20530 DATA 143,201,4,208,3,76,122,143,201,3,208,3,76,64,143,201,2,208,3,76,4,143,76,217
20535 DATA 142,169,62,141,194,2,189,19,6,168,169,42,153,2,70,153,6,70,169,28,153,3,70,153
20540 DATA 5,70,169,126,153,4,70,169,24,141,4,210,169,14,141,5,210,76,52,145,169,60,141,194
20545 DATA 2,189,19,6,168,169,42,153,1,70,169,73,153,2,70,169,28,153,3,70,153,5,70,169
20550 DATA 247,153,4,70,169,8,153,6,70,169,65,153,7,70,169,34,153,8,70 ,169,32,141,4,210
20555 DATA 169,14,141,5,210,76,52,145,169,58,141,194,2,189,19,6,168,169,24,153,1,70,153,6
20560 DATA 70,169,36,153,2,70,153,5,70,169,67,153,3,70,169,194,153,4,70,169,8,153,7,70
20565 DATA 169,0,153,8,70,169,100,141,4,210,169,5,141,5,210,76,52,145,169,55,141,194,2,189
20570 DATA 19,6,168,169,66,153,0,70,153,7,70,169,129,153,1,70,153,6,70,169,0,153,2,70
20575 DATA 153,3,70,153,4,70,153,5,70,169,60,141,4,210,169,10,141,5,210,76,52,145,189,19
20580 DATA 6,168,169,52,141,194,2,169,0,153,0,70,153,1,70,153,6,70,153,7,70,141,4,210
20585 DATA 141,5,210,76,52,145,254,62,6,189,62,6,205,78,6,208,8,169,5,157,67,6,76,20
20590 DATA 145,205,77,6,208,8,169,4,157,67,6,76,224,144,205,76,6,208,8,169,3,157,67,6
20595 DATA 76,166,144,205,75,6,208,8,169,2,157,67,6,76,106,144,205,74,6,208,8,169,1,157
20600 DATA 67,6,76,55,144,189,67,6,201,5,208,3,76,20,145,201,4,208,3,76,224,144,201,3
20605 DATA 208,3,76,166,144,201,2,208,3,76,106,144,76,55,144,169,62,141,195,2,189,19,6,168
20610 DATA 169,42,153,2,71,153,6,71,169,28,153,3,71,153,5,71,169,126,153,4,71,169,0,153
20615 DATA 1,71,153,0,71,169,24,141,6,210,169,14,141,7,210,76,52,145,169,60,141,195,2,189
20620 DATA 19,6,168,169,42,153,1,71,169,73,153,2,71,169,28,153,3,71,153,5,71,169,247,153
20625 DATA 4,71,169,8,153,6,71,169,65,153,7,71,169,34,153,8,71,169,32,141,6,210,169,14
20630 DATA 141,7,210,76,52,145,169,58,141,195,2,189,19,6,168,169,24,153,1,71,153,6,71,169
20635 DATA 36,153,2,71,153,5,71,169,67,153,3,71,169,194,153,4,71,169,8,153,7,71,169,0
20640 DATA 153,8,71,169,100,141,6,210,1 69,5,141,7,210,76,52,145,169,55,141,195,2,189,19,6
20645 DATA 168,169,66,153,0,71,153,7,71,169,129,153,1,71,153,6,71,169,0,J-53,2,71,153,3
20650 DATA 71,153,4,71,153,5,71,169,60,141,6,210,169,10,141,7,210,76,52,145,189,19,6,168
20655 DATA 169,52,141,195,2,169,0,153 ,0,71,153,1,71,153,6,71,153,7,71 ,141,6,210,141,7
20660 DATA 210,76,52,145,76,37,135

    If this program seems too long to type in then send us a blank disk or cassette and $3.00 and we'll send you a copy.Send it to:ROM Magazine
    P.O. BOX 252
    MAPLE RIDGE,B.C.
    V2X 7G1 CANADA

Assembler Listing

00010   .LI OFF
00011   .OR $84DO
00012   .TA $2600
00014   .TF "D:SPST.OBJ"
00020 VERT .EQ 4600 ;VERT POS MML
00021 HORZ .EQ 4601 ;HORZ POS MML
00022 HDIR .EQ 4602 ;HORZ DIR PLO
00023 STICK .EQ 4603
00025 PLAYERO .EQ 44000 ;LOC PLAYERO
00026 PLAYER1 .EQ 44100 ;LOC PLAYER1
00027 PLAYER2 .EQ 44200 ;LOC PLAYER2
00028 PLAYER3 .EQ 44300 ;LOC PLAYER3
00029 MVERT .EQ 4604 ;VERT POS F MISSILE
00030 MHORZ .EQ 4605 ;HORZ F MISSILE
00031 MCOUNT .EQ 4607 ;MISSILE DIST COUNTER
00032 MSTICK .EQ 4608 ;MISSILE DIRECTION
00033 SCORE .EQ 4609
00034 PSTICK .EQ 460A ;PLAYER DIRECTION
00035 NIP .EQ $60B ;MISSILE IN PROGRESS FLAG
00037 MADD .EQ $60D
00038 STRIG .EQ 4284 ;BUTTON 0
00040 HPLAY .EQ 460E    ;HORZ PUS PLAYER
00042 VPLAY .EQ 4613 ;VERT POS PLAYER
00044 CFRA .EQ 4617 ;FRAME COUNTER
00046 LIV .EQ $61C ;LIFE FLAG
00050 RND .EQ $D20A ;RANDOMIZER
00052 WAY .EQ 4620    ;E SHIP DIR
00054 MLI .EQ $62D ;MISSILE LIFE FLAG
00055 MVPLA .EQ 4625 ;POD VERT PUS
00056 MHPLA .EQ 4629 ;POD HORZ POS
00057 MWAY .EQ 4632    ;POD DIR
00058 ECON .EQ 4637    ;E SHIP COUNTER
00059 EMMC .EQ 4638    ;POD SPEED
00060 MCOL .EQ $D008 ;MISSILE COL
00061 DNS .EQ 4639 ;DESTROYED SHIP FLAG
00062 EPR .EQ $63A ;EXP COUNTER
00063 EXC .EQ 463E    ;EXPLOSION COUNTER
00064 EXT .EQ 4643 ;EXPLOSION TYPE
00065 SCOREI .EQ 4647
00066 NOM .EQ 4648    ;NUMBER OF E SHIPS
00067 ECS .EQ 4649 ;E SHIP COUNTER
00068 EXSP1 .EQ 464A ;EXP VAR1
00069 EXSP2 .EQ $64B    ;EXP VAR2
00070 EXSP3 .EQ $64C    ;EXP VAR3
00071 EXSP4 .EQ $64D    ;EXP VAR4
00072 EXSP5 .EQ 464E    ;EXP VAR5
00073 EXSP6 .EQ $64F ;EXP VAR6
00074 GAMS .EQ 4650 ;GAME SPEED
00076 DBUS .EQ 4655
00500 BEGIN LDA #62    ;SET UP PM GRAPHICS
00505  STA 422F
00510  LDA #88
00520  STA $2CO    ;COLOR PLO
00522  LDA #60
00525  STA $2C1    ;COLOR PL1
00526  LDA #112
00530  STA $2C2    ;COLOR PL2
00532  LDA #150
00535  STA $2C3    ;COLOR PL3
00545  LDA /PLAYER0
00550  STA $D407
00555  LDA #3
00560  STA $D01D
00565  LDA #127
00570  STA HORZ    ;HORZ POS MML
00575  LDA #125
00580  STA VERT    ;VERT POS MML
00581  LDA #1
00582  STA $DOLE    ;CLEAR COLLISIONS
00583  LDA #0
00584  LDY #0
00585 DD52 STA EPX,Y    ;EXP COUNTER
00586  STA EXC,Y ;EXPLOSION COUNTER
00587  STA EXT,Y    ;EXPLOSION TYPE
00590  INY
00591  CPY #4
00592  BNE DD52
00596  STA DMS ;DESTROYED SHIP FLAG
00600  STA SCORE
00601  STA MCOUNT ;MISSILE DIST COUNTER
00602  STA HDIR    ;HORZ DIR PLO
00604  STA HIP ;MISSILE IN PROGRESS FLAG
00605  STA SCORE
00606  STA SCOREI
00607  LDA HORZ    ;HORZ POS MML
00610  STA $D000
00620  LDX #0
00625  LDA #0
00626  STA ECON    ;E SHIP COUNTER
00627  STA EMMC
00630 LL40 STA LIV,X ;LIFE FLAG
00631  STA MLI,X    ;MISSILE LIFE FLAG
00632  INX
00635  CPX #4
00640  BNE LL40
00767  LDA $6A
00800  LDY #0
00805  LDA #0
00806  STA DBUS
00810 L60 STA PLAYERO+$300,Y ;CLEAR PLAYERS
00815  STA PLAYERO+$400,Y
00820  STA PLAYERI+$400,Y
00830  STA PLAYER2+$400,Y
00835  STA PLAYER3+$400,Y
00840  INY
00845  CPY #255
00850  BNE L60
00910  LDA #0
00915  STA $D208
00920  LDA #3
00925  STA $D20F
00936  LDA #100
00938  STA EXSP6    ;EXP VAR6
00940  LDA #80
00942  STA EXSP5    ;EXP VAR5
00944  LDA #60
00946  STA EXSP4    ;EXP VAR4
00948  LDA #40
00950  STA EXSP3    ;EXP VAR3
00952  LDA #20
00954  STA EXSP2    ;EXP VAR2
00956  LDA #10
00958  STA EXSP1    ;EXP VAR1
00960  LDA #4
00962  STA GAMS
00999 *
01000 START JMP ENC    ;CONTROL SECTION
01001 START1 LDA SCORE1
01004  CMP NOM    ;NUMBER OF E SHIPS
01005  BNE DD85
01007  RTS
01019 DD85 LDA #0
01020  STA MADD
01040 DD7 CLC
01042  ADC #1
01050  LDX #0
01060 DD8 INX
01070  CPX #255
01080  BNE DDB
01090  CMP GAMS
01100  BNE DD7
01110  LDA $278    ;CHECK STICK
01120  STA PSTICK ;PLAYER DIRECTION
01130  CMP #6
01140  BNE L1
01150  JMP L2
01160 L1 CMP #7
01170  BNE L3
01180  BNE DD7
01190  JMP L2
01200 L3 CMP #5
01210  BNE L4
01220  JMP L2
01230 L4 CMP #10
01240  BNE L5
01250  JMP L6
01260 L5 CMP #11
01270  BNE L7
01280  JMP L6
01290 L7 CMP #9
01300  BNE L8
01310  JMP L6
01320 L8 JMP L9
01330 *
01340 L2 LDA #0
01350  STA HDIR    ;HORZ DIR PLO
01360  JMP L9
01370 *
01380 L6 LDA #1
01390  STA HDIR    ;HORZ DIR PLO
01400  JMP L9
01410 *
01420 L9 LDA PSTICK ;PLAYER DIRECTION
01430  CMP #10
01440  BNE L10
01450  JMP UPM
01460 L10 CMP #14
01470  BNE L11
01480  JMP UPM
01490 L11 CMP #6
01500  BNE L12
01510  JMP UPM
01520 L12 CMP #9
01530  BNE L13
01540  JMP DOWNM
01550 L13 CMP #13
01560  BNE L14
01570  JMP DOWNM
01580 L14 CMP #5
01590  BNE L15
01600  JMP DOWNM
01610 L15 JMP CONT
01620 *
01630 UPM LDY VERT    ;VERT POS MML
01640  CPY #24
01650  BEQ L17
01660  DEC VERT
01670 L17 JMP CONT
01680 *
01690 DOWNM LDY VERT ;VERT POS MML
01700  CPY #215
01710  BEQ L18
01720  INC VERT
01730 L18 JMP CONT
01740 *
01750 CONT JMP DRAWP
01760 *
01770 MISS LDA NIP    ;MISSILE SECTION
01780  CMP #0
01790  BEQ L29
01800  LDA MSTICK ;MISSILE DIRECTION
01810  JMP L28
01820 L29 LDA $284
01830  CMP #0
01840  BEQ L27
01842  LDA #0
01844  STA $D200
01846  STA $D201
01850 DD80 JMP START
01860 L27 LDA $278
01861  CMP #13
01862  BEQ DD80
01863  CMP #14
01864  BEQ DD80
01865  CMP #15
01866  BEQ DD80
01870  STA MSTICK ;MISSILE DIRECTION
01880  LDX VERT    ;VERT PUS MML
01890  STX MVERT ;VERT POS F MISSILE
01900  LDX HORZ    ;HORZ POS MML
01901  STX MHORZ    ;HORZ F MISSILE
01902  LDX #1
01903  STX NIP ;MISSILE IN PROGRESS FLAG
01905 L28 LDA #90
01925  STA $D100
01926  LDA #166
01927  STA tD201
01932  LDX DMS ;DESTROYED SHIP FLAG
01934  CPX #0
01936  BNE DD20
01940  INC MCOUNT ;MISSILE DIST COUNTER
01950  LDY MCOUNT
01960  CPY #50
01970  BNE L30
01990 DD20 LDY #0
02000  STY MHORZ
02005  LDX MVERT
02010  STY MVERT ;VERT POS F MISSILE
02020  STY MIP
02030  STY MCOUNT ;MISSILE DIST COUNTER
02040  LDA #0
02042  STA DMS ;DESTROYED SHIP FLAG
02050  STA PLAYERO+$304,X
02060 L30 LDA MSTICK ;MISSILE DIRECTION
02070  CMP #10
02080  BNE L31
02090  JMP MLEFT
02100 L31 CMP #11
02110  BNE L32
02120  JMP MLEFT
02130 L32 CMP #9
02140  BNE L33
02150  JMP MLEFT
02160 L33 CMP #6
02170  BNE L34
02180  JMP MRI&HT
02190 L34 CMP #7
02200  BNE L35
02210  JMP MRIGHT
02220 L35 CMP #5
02230  BNE L50
02240  JMP MRIGHT
02250 L50 JMP START
02260 *
02270 MLEFT DEC MHORZ    ;HORZ F MISSILE
02280  LDA MHORZ
02290  STA $DO04
02300  JMP MDRAW
02310 *
02320 MRIGHT INC MHORZ ;HORZ F MISSILE
02330  LDA MHORZ
02340  STA $D004
02350  JMP MDRAW
02360 *
02370 MDRAW LDA MADD
02380  CLC
02390  ADC #3
02400  STA MADD
02410  LDY MVERT ;VERT POS F MISSILE
02420  LDA #0
02430  STA PLAYERO+=302,7
02440  STA PLAYERO+$303,7
02450  STA PLAYERO+3305,7
02460  STA PLAYERO+=306,7
02470  LDA #3
02480  STA PLAYERO+;304,7
02490  JMP START
02500 *
02510 ENC INC ECON    ;E SHIP COUNTER
02580 *
02590 ENSECP LDX #0
02600 ENSECP1 INX
02610  CPX #4
02620  BNE LPLAYER
02622  LDA ECON    ;E SHIP COUNTER
02623  CMP ECS    ;E SHIP COUNTER
02624  BNE DD88
02625  LDA #0
02626  STA ECON
02630 DD88 JMP EMM
02640 *
02650 *
02660 LPLAYER LDA EPX,X
02662 CMP #0
02664  BEQ DD50
02668  JMP EXPL
02670 DD50 LDA ECON ;E SHIP COUNTER
02671  CMP ECS
02672  BEQ DD5
02673  JMP ENSECP1
02674 DD5 LDA LIV,X    ;LIFE FLAG
02680  CMP #0
02690  BNE LLS
02700  JMP GEN
02710 LL1 LDY #0
02720 LLL1 INY
02730  CPY #200
02740  BNE LLL1
02750  JMP MOVPLAY
02760 *
02770 GEN INC SCORES
02775  LDA #1
02780  STA LIV,X    ;LIFE FLAG
02790  LDA RND    ;RANDOMIZER
02800  STA VPLAY,X    ;VERT POS PLAYER
02810  LDY #0
02820 LL3 TYA
02830  CMP VPLAY,X
02840  BEQ LL2
02850  INY
02860  CPY #29
02870  BNE LL3
02880  LDY #255
02890 LL5 TYA
02900  CMP VPLAY,X    ;VERT POS PLAYER
02910  BEQ LL4
02920  DEY
02930  CPY #215
02940  BNE LL5
02950  JMP GEN1
02960 *
02970 LL2 LDA #20
02980  STA VPLAY,X    ;VERT PUS PLAYER
02990  JMP GE141
03000 *
03010 LL4 LDA #215
03020  STA VPLAY,X    ;VERT PUS PLAYER
03030  JMP GEN1
03040 *
03050 GEN1 LDA RND
03060  BPL LL7
03070  LDA #30
03080  STA HPLAY,X    ;HORZ PUS PLAYER
03090  JMP MOVPLAY
03100 LL7 LDA #230
03110  STA HPLAY,X    ;HORZ POS PLAYER
03120  JMP MOVPLAY
03130 *
03140 MOVPLAY LDA HPLAY,X ;HORZ POS PLAYER
03150  CMP #127
03160  BNE LL9
03170  JMP CHECK
03180 LL9 BMI MRIGHTP
03190  JMP MLEFTP
03200 *
03210 *
03220 MRIGHTP INC HPLAY,X ;HORZ POS PLAYER
03230  LDA #1
03240  STA WAY,X    ;E SHIP DIR
03250  JMP CHECK
03260 *
03270 MLEFTP DEC HPLAY,X    ;HORZ POS PLAYER
03280  LDA #2
03290  STA WAY,X    ;E SHIP DIR
03300  JMP CHECK
03310 *
03320 CHECK LDA HPLAY,X    ;HORZ PUS PLAYER
03330  CMP #127
03340  BNE DRPLAY
03342  LDA #1
03344  STA DBUS
03350  RTS
03360 *
03370 DRPLAY LDA HPLAY,X    ;HORZ POS PLAYER
03380  STA $DOOO,X
03390  CPX #1
03400  BNE LL21
03410  JMP EPL1
03420 LL21 CPX #2
03430  BNE LL22
03440  JMP EPL2
03450 LL22 JMP EPL3
03460 *
03470 EPL1 LDA #60
03472  STA $2C1
03480  LDA CFRA,X ;FRAME COUNTER
03482  CLC
03490  ADC #80
03500  STA CFRA,X ;FRAME COUNTER
03530  LDA CFRA,X ;FRAME COUNTER
03540  LSR
03550  LSR
03560  LSR
03570  LSR
03580  LSR
03590  LSR
03600  CMP #0
03610  BNE LL25
03620  JMP EPLlF1
03630 LL25 CMP #2
03640  BNE LL26
03650  JMP EPLlF3
03660 LL26 CMP #3
03670  BNE LL27
03680  JMP EPLIF4
03690 LL27 JMP EPLIF2
03700 *
03710 *
03720 *
03730 EPLlF1 LDA VPLAY,X    ;DRAW PLAYERS F1
03740  TAY
03750  LDA #0
03760  STA PLAYER1+$3FF,Y
03770  STA PLAYERS+$40A,Y
03780  LDA #125
03790  STA PLAYERS+;400,7
03800  LDA #232
03810  STA PLAYERS+$401,7
03820  LDA #128
03830  STA PLAYER1+$402,Y
03840  STA PLAYERS+;403,7
03850  LDA #236
03860  STA PLAYERS+$404,7
03870  LDA #126
03880  STA PLAYERS+$405,Y
03890  LDA #50
03900  STA PLAYERS+;406,7
03910  LDA #2
03920  STA PLAYER1+$407,Y
03930  LDA #22
03940  STA PLAYERS+$408,Y
03950  LDA #188
03960  STA FLAYERI+$409,Y
03970  JMP ENSECP1
03980 *
03990 EPLlF2 LDA VPLAY,X    ;DRAW PLAYERI F2
04000  TAY
04010  LDA #0
04020  STA PLAYERS+$3FE,Y
04030  STA PLAYERI+$40B,Y
04040  LDA #10
04050  STA PLAYER1+$3FF,Y
04060  LDA #24
04070  STA PLAYERI+$400,Y
04080  LDA #32
04090  STA PLAYERS+$401,Y
04100  STA PLAYERI+$402,Y
04110  STA PLAYERI+$40A,Y
04120  LDA #198
04130  STA PLAYERS+$403,Y
04140  LDA #155
04150  STA PLAYERS+$404,Y
04160  LDA #225
04170  STA PLAYERI+$405,Y
04180  LDA #83
04190  STA PLAYERI+$406,Y
04200  LDA #5
04210  STA PLAYERS+$407,Y
04220  LDA #4
04230  STA PLAYERI+$408,Y
04240  LDA #26
04250  STA PLAYERI+$409,Y
04260  JMP ENSECPS
04270 *
04280 EPLlF4 LDA VPLAY,X    ;DRAW PLAYERS F4
04290  TAY
04300  LDA #0
04310  STA PLAYERI+$3FE,Y
04320  STA PLAYERS+$40B,Y
04330  LDA #8
04340  STA PLAYERS+$3FF,Y
04350  LDA #116
04360  STA PLAYERS+$400,Y
04370  LDA #36
04380  STA PLAYERS+i401,Y
04390  LDA #98
04400  STA PLAYERS+$402,Y
04410  LDA #49
04420  STA PLAYERS+$403,Y
04430  LDA #24
04440  STA PLAYERS+$404,Y
04450  LDA #142
04460  STA PLAYERS+$405,Y
04470  LDA #4
04480  STA PLAYER1+$406,Y
04490  LDA #466
04500  STA PLAYERS+;407,7
04510  LDA #104
04520  STA PLAYERS+;408,7
04530  LDA #52
04540  STA PLAYER1+$409,Y
04550  LDA #96
04560  STA PLAYERS+$40A,Y
04570  JMP ENSECP1
04580 *
04590 EPL1F3 LDA VPLAY,X    ;DRAW PLAYERS F3 a
04600  TAY
04610  LDA #0
04620  STA PLAYERS+$3FF,Y
04630  STA PLAYER1+$40A,Y
04640  STA PLAYERS+;409,7
04650  STA PLAYER1+$400,Y
04660  STA PLAYERS+$401,7
04670  LDA #134
04680  STA PLAYERS+$402,7
04690  LDA #11
04700  STA PLAYERS+;403,7
04710  LDA #201
04720  STA PLAYERS+$404,Y
04730  STA PLAYERS+;406,7
04740  LDA #147
04750  STA PLAYERS+$405,Y
04760  LDA #104
04770  STA PLAYER1+$407,Y
04780  LDA #49
04790  STA PLAYERS+;408,7
04800  JMP ENSECPS
04810 *
04820 EPL2 LDA #117
04821  STA $2C2
04822  LDA CFRA,X ;FRAME COUNTER
04823  CLC
04824  ADC #35
04825  STA CFRA,X
04830  LDA WAY,X    ;E SHIP DIR
04840  CMP #1
04850  BNE LL60
04860  JMP WAY2
04870 LL60 LDA CFRA,X ;FRAME COUNTER
04880  LSR
04890  LSR
04900  LSR
04910  LSR
04920  LSR
04930  LSR
04940  CMP #0
04950  BNE LL32
04960  JMP EPL2F1
04970 LL32 CMP #2
04980  BNE LL33
04990  JMP EPL2F3
05000 LL33 CMP 03
05010  BNE LL34
05020  JMP EPL2F2
05030 LL34 JMP EPL2F2
05040 *
05050 EPL2F1 LDA VPLAY,X    ;DRAW PLAYER2 F1
05060  TAY
05070  LDA #0
05080  STA PLAYER2+$3FF,Y
05090  STA PLAYER2+$407,Y
05100  LDA #1
05110  STA PLAYER2+$400,Y
05120  STA PLAYER2+$406,Y
05130  LDA #7
05140  STA PLAYER2+$401,Y
05150  STA PLAYER2+$405,Y
05160  LDA #110
05170  STA PLAYER2+$402,Y
05180  STA PLAYER2+$404,Y
05190  LDA #248
05200  STA PLAYER2+$403,Y
05210  JMP ENSECP1
05220 EPL2F3 LDA VPLAY,X    ;DRAW PLAYER2 F3
05230  TAY
05240  LDA #0
05250  STA PLAYER2+$401,Y
05260  STA PLAYER2+$405,Y
05270  LDA #96
05280  STA PLAYER2+$402,Y
05290  STA PLAYER2+$404,Y
05300  LDA #255
05310  STA PLAYER2+$403,Y
05320  JMP ENSECPI
05330 EPL2F2 LDA VPLAY,X    ;DRAW PLAYER2 F2
05340  TAY
05350  LDA #0
05360  STA PLAYER2+$400,Y
05370  STA PLAYER2+$401,Y
05380  STA PLAYER2+$405,Y
05390  STA PLAYER2+$406,Y
05400  LDA #111
05410  STA PLAYER2+$402,Y
05420  STA PLAYER2+$404,Y
05430  LDA #248
05440  STA PLAYER2+$403,Y
05450  JMP ENSECP1
05460 *
05470 *
05480 WAY2 LDA CFRA,X ;FRAME COUNTER
05490  LSR
05500  LSR
05510  LSR
05520  LSR
05530  LSR
05540  LSR
05550  CMP #0
05560  BNE LL50
05570  JMP EPL2W1
05580 LL50 CMP #2
05590  BNE LL51
05600  JMP EPL2W3
05610 LL51 CMP #3
05620  BNE LL52
05630  JMP EPL2W2
05640 LL52 JMP EPL2W2
05650 *
05660 EPL2W1 LDA VPLAY,X    ;DRAW PLAYER2 FlW
05670  TAY
05680  LDA #0
05690  STA PLAYER2+$3FF,Y
05700  STA PLAYER2+$407,Y
05710  LDA #128
05720  STA PLAYER2+$400,Y
05730  STA PLAYER2+$406,Y
05740  LDA #224
05750  STA PLAYER2+$401,Y
05760  STA PLAYER2+$405,Y
05770  LDA #118
05780  STA PLAYER2+$402,Y
05790  STA PLAYER2+$404,Y
05800  LDA #31
05810  STA PLAYER2+$403,Y
05820  JMP ENSECP1
05830 EPL2W2 LDA VPLAY,X    ;DRAW PLAYER2 F2W
05840  TAY
05850  LDA #0
05860  STA PLAYER2+$401,Y
05870  STA PLAYER2+$405,Y
05880  STA PLAYER2+$400,Y
05890  STA PLAYER2+4406,Y
05900  LDA #246
05910  STA PLAYER2+$402,Y
05920  STA PLAYER2+$404,Y
05930  LDA #31
05940  STA PLAYER2+$403,Y
05950  JMP ENSECPI
05960 EPL2W3 LDA VPLAY,X    ;DRAW PLAYER2 F2W
05970  TAY
05980  LDA #0
05990  STA PLAYER2+$401,Y
06000  STA PLAYER2+$405,Y
06010  LDA #6
06020  STA PLAYER2+$402,Y
06030  STA PLAYER2+$404,Y
06040  LDA #255
06050  STA PLAYER2+$403,Y
06060  JMP ENSECPI
06070 *
06080 *
06090 *
06100 EPL3 LDA #150
06102  STA $2C3
06108  LDA VPLAY,X ;VERT POS PLAYER
06110  TAY
06120  LDA #0
06130  STA PLAYER3+$3FF,Y
06140  STA PLAYER3+$404,Y
06150  LDA #8
06160  STA PLAYER3+$400,Y
06170  LDA #28
06180  STA PLAYER3+$401,Y
06190  LDA #119
06200  STA PLAYER3+$402,Y
06210  LDA #62
06220  STA PLAYER3+$403,Y
06230  JMP ENSECP1
06240 *
06250 DRAWP LDA HDIR ;HORZ DIR PLO
06260  CMP #0
06270  BNE L20
06280  JMP DRAWPF2
06290 L20 LDY VERT    ;VERT POS MML
06300  LDA #0
06310  STA PLAYERO+$400,Y
06320  STA PLAYERO+$408,Y
06330  LDA #4
06340  STA PLAYERO+$401,Y
06350  STA PLAYERO+$407,Y
06360  LDA #12
06370  STA PLAYERO+$402,Y
06380  STA PLAYERO+$406,Y
06390  LDA #254
06400  STA PLAYERO+$403,Y
06410  STA PLAYERO+$405,Y
06420  LDA #31
06430  STA PLAYERO+$404,Y
06440  JMP MISS
06450 DRAWPF2 LDY VERT ;VERT POS MML
06460  LDA #0
06470  STA PLAYERO+$400,Y
06480  STA PLAYERO+$408,Y
06490  STA PLAYERO+$3FF,Y
06500  STA PLAYERO+$409,Y
06510  LDA #32
06520  STA PLAYERO+$401,Y
06530  STA PLAYERO+$407,Y
06540  LDA #48
06550  STA PLAYERO+$402,Y
06560  STA PLAYERO+$406,Y
06570  LDA #127
06580  STA PLAYERO+$403,Y
06590  STA PLAYERO+$405,Y
06600  LDA #248
06610  STA PLAYERO+$404,Y
06620  JMP MISS
06630 *
06640 EMM INC EMMC
06650  LDA EMMC
06660  CMP #8
06670  BEQ DD6
06680  JMP COL
06690 DD6 LDA #0
06700  STA EMMC
06710 *
06720 MISEC LDX #0    ;MISSILE SECTION
06730 MISECI INX
06740  CPX #4
06750  BNE MSLI
06760  JMP COL
06770 *
06780 MSLI LDA MLI,X ;MISSILE LIFE FLAG
06790  CMP #0
06800  BNE M1
06810  JMP MGEN
06820 M1 JMP MCH
06830 *
06840 MGEN LDA #1
06850  STA MLI,X    ;MISSILE LIFE FLAG
06860  LDA RND    ;RANDOMIZER
06870  STA MVPLA,X ;POD VERT POS
06880  LSR
06890  LSR
06900  LSR
06910  LSR
06920  CMP #0
06930  BNE M2
06940  LDA #29
06950  STA MVPLA,X ;POD VERT POS
06960  JMP MGEN1
06970 M2 CMP #5
06980  BNE MGENS
06990  LDA #210
07000  STA MVPLA,X ;POD VERT POS
07010 *
07020 MGEN1 LDA RND
07030  BPL M6
07040  LDA RND    ;RANDOMIZER
07050  BPL DD2
07060  LDA #26
07070  JMP DD3
07080 DD2 LDA #19
07090  JMP DD3
07100 M6 LDA RND ;RANDOMIZER
07110  BPL DD4
07120  LDA #228
07130  JMP DD3
07140 DD4 LDA #235
07150 DD3 STA MHPLA,X ;POD HORZ POS
07160  JMP MMOV
07170 *
07180 MMOV LDA MHPLA,X ;POD HORZ POS
07190  BMI MML
07200  JMP MMR
07210 *
07220 MMR LDA #2
07230  STA MWAY,X ;POD DIR
07240  JMP MCH
07250 *
07260 MML LDA #1
07270  STA MWAY,X
07280  JMP MCH
07290 *
07300 MCH LDA MHPLA,X    ;POD HORZ POS
07310  CMP #10
07320  BEQ DD
07330 CMP #245
07340  BEQ DD
07350  JMP MDRA
07360 DD LDA #0
07370  STA MLI,X    ;MISSILE LIFE FLAG
07380  LDA MVPLA,X ;POD VERT POS
07390  TAY
07400  LDA #0
07410  STA PLAYERO+$300,Y
07420  STA PLAYERO+$301,Y
07430  STA PLAYERO+$302,Y
07440  JMP MISECI
07450 *
07460 MDRA LDA MWAY,X
07470  CMP #2
07480  BNE DD1
07490  INC MHPLA,X    ;POD HORZ POS
07500  JMP MDRA1
07510 DD1 DEC MHPLA,X    ;POD HORZ POS
07520 MDRAI LDA MHPLA,X
07530  STA $DO04,X
07540  CPX #1
07550  BNE M8
07560  JMP MSL1
07570 M8 CPR #2
07580  BNE M9
07590  JMP MSL2
07600 M9 JMP MSL3
07610 *
07620 MSL1 LDA MVPLA,X
07630  TAY
07640  LDA MWAY,X ;POD DIR
07650  CMP #2
07660  BNE M10
07670  LDA #8
07680  JMP M11
07690 M10 LDA #4
07700 M11 STA PLAYERO+$300,Y ;DRAW MISSILE
07710  STA PLAYERO+$302,Y
07720  LDA #12
07730  STA PLAYERO+$301,Y
07740  JMP MISEC1
07750 *
07760 MSL2 LDA MVPLA,X
07770  TAY
07780  LDA MWAY,X
07790  CMP #2
07800  BNE M12
07810  LDA #32
07820  JMP M14
07830 M12 LDA #16
07840 M14 STA PLAYERO+$300,Y
07850  STA PLAYERO+$302,Y
07860  LDA #48
07870  STA PLAYERO+$301,Y
07880  JMP MISEC1
07890 *
07900 MSL3 LDA MVPLA,X
07910  TAY
07920  LDA MWAY,X ;POD DIR
07930  CMP #2
07940  BNE M15
07950  LDA #128
07960  JMP M16
07970 M15 LDA #64
07980 M16 STA PLAYERO+$300,Y
07990  STA PLAYERO+$302,Y
08000  LDA #192
08010  STA PLAYERO+$301,Y
08020  JMP MISEC1
08030 *
08040 *
08050 COL LDA MCOL    ;COLL
08060  LSR
08070  LSR
08080  LSR
08090  CMP #0
08100  BEQ W1
08110  LDX #3
08120  LDA #0
08121  STA LIV,X    ;LIFE FLAG
08122  STX DMS ;DESTROYED SHIP FLAG
08123  LDA VPLAY,X ;VERT POS PLAYER
08124  TAY
08132  LDA #1
08133  STA EPX,X ;EXP COUNTER
08140  LDA MCOL ;MISSILE COL
08150  SEC
08160  SBC #8
08170  JMP W2
08180 W1 LDA MCOL ;MISSILE COL
08190 W2 LSR
08200  CMP #2
08210  BEQ W3
08220  CMP #1
08230  BEQ W4
08240  CMP #0
08250  BNE W3
08260  JMP POD
08270 W3 LDX #2
08280  TAY
08282  LDA #1
08283  STA EPX,X ;EXP COUNTER
08290  LDA #0
08291  STA LIV,X    ;LIFE FLAG
08292  STX DMS ;DESTROYED SHIP FLAG
08310  TYA
08320  CMP #3
08330  BEQ W4
08340  JMP POD
08350 *
08360 W4 LDX #1
08362  LDA #1
08363  STA EPX,X ;EXP COUNTER
08370  LDA #0
08380  STA LIV,X    ;LIFE FLAG
08385  STX DMS ;DESTROYED SHIP FLAG
08399  JMP POD
08400 *
08410 POD LDA $0009
08420  CMP #1
08430  BNE W5
08440  LDX #1
08450  JMP W6
08460 W5 LDA $D00A
08470  CMP #1
08480  BNE W7
08490  LDX #2
08500  JMP W6
08510 W7 LDA $D00B
08520  CMP #1
08530  BNE WS
08540  LDX #3
08550 *
08560 W6 INC SCORE
08570  LDA #0
08580  STA MLI,X    ;MISSILE LIFE FLAG
08585  STA $DOlF
08590  LDA MVPLA,X ;POD VERT POS
08600  TAY
08610  LDA #0
08620  STA PLAYERO+$300,Y
08630  STA PLAYERO+$301,Y
08640  STA PLAYERO+$302,Y
08650 W8 LDA #1
08660  STA $DOLE
08670  JMP STARTS
20340 EXPL LDA EXC,X    ;EXPLOSION SECTION
20341  CMP EXSP6    ;EXP VAR6
20342  BNE DD51
20343  LDA #0
20344  STA EPX,X ;EXP COUNTER
20345  STA EXC,X ;EXPLOSION COUNTER
20346  STA EXT,X    ;EXPLOSION TYPE
20347  JMP WNG
20350 DD51 CPR #1
20360  BNE A1
20370  JMP B1
20380 A1 CPR #2
20390  BNE A2
20400  JMP B2
20410 A2 JMP B3
20420 *
20430 B1 INC EXC,X ;EXPLOSION COUNTER
20440  LDA EXC,X
20470  CMP EXSP5    ;EXP VAR5
20480  BNE A4
20490  LDA #5
20500  STA EXT,X    ;EXPLOSION TYPE
20510  JMP EXlF5
20520 A4 CMP EXSP4    ;EXP VAR4
20530  BNE A5
20540  LDA #4
20550  STA EXT,X
20560  JMP EXIF4
20570 A5 CMP EXSP3    ;EXP VAR3
20580  BNE A6
20590  LDA #3
20600  STA EXT,X    ;EXPLOSION TYPE
20610  JMP EXlF3
20620 A6 CMP EXSP2    ;EXP VAR2
20630  BNE A7
20640  LDA #2
20650  STA EXT,X    ;EXPLOSION TYPE
20660  JMP EXIF2
20670 A7 CMP EXSP1    ;EXP VAR1
20680  BNE A8
20690  LDA #1
20700  STA EXT,X    ;EXPLOSION TYPE
20710  JMP EXlF1
20720 A8 LDA EXT,X
20730  CMP #5
20740  BNE A60
20750  JMP EXSF5
20760 A60 CMP #4
20770  BNE A61
20780  JMP EXlF4
20790 A61 CMP #3
20800  BNE A62
20810  JMP EXlF3
20820 A62 CMP #2
20830  BNE A63
20840  JMP EXlF2
20850 A63 JMP EXSF1
20860 *
20870 EXlF1 LDA #62 ;EXPLOSION FRAMES
20880  STA $2C1
20890  LDA VPLAY,X ;VERT POS PLAYER
20900  TAY
20910  LDA #42
20920  STA PLAYERS+$402,Y
20930  STA PLAYERS+$406,Y
20940  LDA #28
20950  STA PLAYERS+$403,Y
20960  STA PLAYER1+$405,Y
20970  LDA #126
20980  STA PLAYERS+$404,Y
20981  LDA #0
20982  STA PLAYERS+$407,Y
20983  STA PLAYERS+j408,Y
20984  STA PLAYERS+$409,Y
20985  STA PLAYERS+$40A,Y
20986  STA PLAYERS+$400,Y
20987  STA PLAYERS+$401,Y
20988  STA PLAYER1+$3FF,Y
20990  LDA #24
21000  STA $0202
21010  LDA #14
21020  STA $D203
21030  JMP WNG
21040 *
21050 EXSF2 LDA #60 ;EXPLOSION FRAME2
21060  STA $2C1
21070  LDA VPLAY,X ;VERT POS PLAYER
21080  TAY
21090  LDA #42
21100  STA PLAYERS+$401,Y
21110  LDA #73
21120  STA PLAYERS+$402,Y
21130  LDA #28
21140  STA PLAYERS+$403,Y
21150  STA PLAYERS+$405,Y
21160  LDA #247
21170  STA PLAYERS+$404,Y
21180  LDA #8
21190  STA PLAYERS+$406,Y
21200  LDA #65
21210  STA PLAYERS+$407,Y
21212  LDA #34
21213  STA PLAYER1+$408,Y
21220  LDA #32
21230  STA ;0202
21240  LDA #14
21250  STA $0203
21260  JMP WNG
21270 *
21280 EXlF3 LDA #58 ;EXPLOSION FRAME3
21290  STA $2C1
21300  LDA VPLAY,X ;VERT POS PLAYER
21310  TAY
21320  LDA #14
21330  STA PLAYERS+$401,Y
21340  STA PLAYERS+$406,Y
21350  LDA #36
21360  STA PLAYERS+$402,Y
21370  STA PLAYERS+$405,Y
21380  LDA #67
21390  STA PLAYERS+$403,Y
21400  LDA #194
21410  STA PLAYERS+$404,Y
21420  LDA #8
21430  STA PLAYERS+$407,Y
21432  LDA #0
21433  STA PLAYERS+j408,Y
21440  LDA #100
21450  STA $D202
21460  LDA #5
21470  STA $D203
21480  JMP WNG
21490 *
21500 EXlF4 LDA #55 ;EXPLOSION PRAME4
21510  STA $2C1
21520  LDA VPLAY,X ;VERT POS PLAYER
21530  TAY
21540  LDA #66
21550  STA PLAYERS+$400,Y
21560  STA PLAYERI+$407,Y
21570  LDA #129
21580  STA PLAYERS+$401,Y
21590  STA PLAYERI+$406,Y
21600  LDA #0
21610  STA PLAYERS+$402,Y
21620  STA PLAYERI+$403,Y
21630  STA PLAYERS+$404,Y
21640  STA PLAYERI+$405,Y
21642  STA PLAYERI+$408,Y
21650  LDA #60
21660  STA $D202
21670  LDA #10
21680  STA $D203
21690  JMP WNG
21700 *
21710 EXIF5 LDA VPLAY,X ;EXPLOSION FRAMES
21720  TAY
21730  LDA #52
21740  STA $2C1
21750  LDA #0
21752  STA PLAYERI+$3FF,Y
21760  STA PLAYERS+$400,Y
21770  STA PLAYERI+$401,Y
21780  STA PLAYERS+$406,Y
21790  STA PLAYER1+$407,Y
21800  STA $D202
21810  STA $D203
21820  JMP WNG
21830 *
21840 *
21850 B2 INC EXC,X ;EXPLOSION COUNTER
21860  LDA EXC,X
21890  CMP EXSP5    ;EXP VAR5
21900  BNE A10
21910  LDA #5
21920  STA EXT,X    ;EXPLOSION TYPE
21930  JMP EX2F5
21940 A10 CMP EXSP4    ;EXP VAR4
21950  BNE All
21960  LDA #4
21970  STA EXT,X
21980  JMP EX2F4
21990 All CMP EXSP3    ;EXP VAR3
22000  BNE A12
22010  LDA #3
22020  STA EXT,X    ;EXPLOSION TYPE
22030  JMP EX2F3
22040 A12 CMP EXSP2 ;EXP VAR2
22050  BNE A13
22060  LDA #2
22070  STA EXT,X
22080  JMP EX2F2
22090 A13 CMP EXSP1 ;EXP VAR1
22100  BNE A14
22110  LDA #1
22120  STA EXT,X    ;EXPLOSION TYPE
22130  JMP EX2F1
22140 A14 LDA EXT,X
22150  CMP #5
22160  BNE A50
22170  JMP EX2F5
22180 A50 CMP #4
22190  BNE A51
22200  JMP EX2F4
22210 A51 CMP #3
22220  BNE A52
22230  JMP EX2F3
22240 A52 CMP #2
22250  BNE A53
22260  JMP EX2F2
22270 A53 JMP EX2F1
22280 *
22290 EX2F1 LDA #62    ;EXPLOSION FRAMES
22300  STA $2C2
22310  LDA VPLAY,X ;VERT POS PLAYER
22320  TAY
22330  LDA #42
22340  STA PLAYER2+$402,Y
22350  STA PLAYER2+$406,Y
22360  LDA #28
22370  STA PLAYER2+$403,Y
22380  STA PLAYER2+$405,Y
22390  LDA #126
22400  STA PLAYER2+$404,Y
22410  LDA #24
22420  STA ;0204
22430  LDA #14
22440  STA ;0205
22450  JMP WNG
22460 *
22470 EX2F2 LDA #60    ;EXPLOSION FRAME2
22480  STA ;2C2
22490  LDA VPLAY,X ;VERT POS PLAYER
22500  TAY
22510  LDA #42
22520  STA PLAYER2+1401.,Y
22530  LDA #73
22540  STA PLAYER2+$402,Y
22550  LDA #28
22560  STA PLAYER2+$403,Y
22570  STA PLAYER2+$405,Y
22580  LDA #247
22590  STA PLAYER2+$404,Y
22600  LDA #8
22610  STA PLAYER2+$406,Y
22620  LDA #65
22630  STA PLAYER2+$407,Y
22632  LDA #34
22634  STA PLAYER2+$408,Y
22640  LDA #32
22650  STA $D204
22660  LDA #14
22670  STA $D205
22680  JMP WNG
22690 *
22700 EX2F3 LDA #58    ;EXPLOSION FRAME3
22710  STA $2C2
22720  LDA VPLAY,X ;VERT POS PLAYER
22730  TAY
22740  LDA #24
22750  STA PLAYER2+$401,Y
22760  STA PLAYER2+$406,Y
22770  LDA #36
22780  STA PLAYER2+$402,Y
22790  STA PLAYER2+$405,Y
22800  LDA #67
22810  STA PLAYER2+$403,Y
22820  LDA #194
22830  STA PLAYER2+$404,Y
22840  LDA #8
22850  STA PLAYER2+$407,Y
22855  LDA #0
22856  STA PLAYER2+$408,Y
22860  LDA #100
22870  STA $D204
22880  LDA #5
22890  STA $11205
22900  JMP WNG
22910 *
22920 EX2F4 LDA #55    ;EXPLOSION FRAME4
22930  STA $2C2
22940  LDA VPLAY,X ;VERT POS PLAYER
22950  TAY
22960  LDA #66
22970  STA PLAYER2+$400,Y
22980  STA PLAYER2+$407,Y
22990  LDA #129
23000  STA PLAYER2+=401,2
23010  STA PLAYER2+$406,Y
23020  LDA #0
23030  STA PLAYER2+$402,Y
23040  STA PLAYER2+$403,1
23050  STA PLAYER2+$404,Y
23060  STA PLAYER2+;405,1
23070  LDA #60
23080  STA $D204
23090  LDA #10
23100  STA $D205
23110  JMP WNG
23120 *
23130 EX2F5 LDA VPLAY,X
23140  TAY
23150  LDA #52
23160  STA $2C2
23170  LDA #0
23180  STA PLAYER2+$400,Y
23190  STA PLAYER2+;401,1
23200  STA PLAYER2+=406,1
23210  STA PLAYER2+$407,Y
23220  STA $D204
23230  STA $D205
23240  JMP WNG
23250 *
23260 *
23270 B3 INC EXC,X ;EXPLOSION COUNTER
23280  LDA EXC,X
23290  CMP EXSP5    ;EXP VAR5
23300  BNE A114
23310  LDA #5
23320  STA EXT,X    ;EXPLOSION TYPE
23330  JMP EX3F5
23340 A114 CMP EXSP4    ;EXP VAR4
23350  BNE X15
23360  LDA #4
23370  STA EXT,X
23380  JMP EX3F4
23390 A15 CMP EXSP3    ;EXP VAR3
23400  BNE A16
23410  LDA #3
23420  STA EXT,X    ;EXPLOSION TYPE
23430  JMP EX3F3
23440 A16 CMP EXSP2 ;EXP VAR2
23450  BNE A17
23460  LDA #2
23470  STA EXT,X
23480  JMP EX3F2
23490 A17 CMP EXSP1 ;EXP VAR1
23500  BNE A18
23510  LDA #1
23520  STA EXT,X    ;EXPLOSION TYPE
23530  JMP EX3F1
23540 A18 LDA EXT,X
23550  CMP #5
23560  BNE A70
23570  JMP EX3F5
23580 A70 CMP #4
23590  BNE A71
23600  JMP EX3F4
23610  A71 CMP #3
23620  BNE A72
23630  JMP EX3F3
23640 A72 CMP #2
23650  BNE A73
23660  JMP EX3F2
23670 A73 JMP EX3F1
23680 *
23690 EX3F1 LDA #62    ;EXPLOSION FRAME1
23700  STA $2C3
23710  LDA VPLAY,X ;VERT POS PLAYER
23720  TAY
23730  LDA #42
23740  STA PLAYERS+;402,1
23750  STA PLAYERS+=406,1
23760  LDA #28
23770  STA PLAYER3+$403,Y
23780  STA PLAYERS+=405,1
23790  LDA #126
23800  STA PLAYER3+$404,Y
23802  LDA #0
23803  STA PLAYER3+$401,Y
23804  STA PLAYERS+$400,1
23810  LDA #24
23820  STA $D206
23830  LDA #14
23840  STA $D207
23850  JMP WNG
23860 *
23870 EX3F2 LDA #60    ;EXPLOSION FRAME2
23880  STA $2C3
23890  LDA VPLAY,X ;VERT POS PLAYER
23900  TAY
23910  LDA #42
23920  STA PLAYER3+$401,Y
23930  LDA #73
23940  STA PLAYERS+;402,1
23950  LDA #28
23960  STA PLAYERS+}403,1
23970  STA PLAYERS+$405,1
23980  LDA #247
23990  STA PLAYERS+;404,1
24000  LDA #8
24010  STA PLAYERS+;406,1
24020  LDA #65
24030  STA PLAYERS+;407,1
24032  LDA #34
24034  STA PLAYERS+¢408,1
24040  LDA #32
24050  STA $D206
24060  LDA #14
24070  STA $D207
24080  JMP WNG
24090 *
24100 EX3F3 LDA #58    ;EXPLOSION FRAMES
24110  STA $2C3
24120  LDA VPLAY,X ;VERT POS PLAYER
24130  TAY
24140  LDA #24
24150  STA PLAYER3+$401,Y
24160  STA PLAYER3+$406,Y
24170  LDA #36
24180  STA PLAYERS+;402,1
24190  STA PLAYERS+;405,1
24200  LDA #67
24210  STA PLAYERS+;403,1
24220  LDA #194
24230  STA PLAYERS+:404,1
24240  LDA #8
24250  STA PLAYER3+$407,Y
24252  LDA #0
24254  STA PLAYER3+$408,Y
24260  LDA #100
24270  STA $D206
24280  LDA #5
24290  STA $D207
24300  JMP WNG
24310 *
24320 EX3F4 LDA #55    ;EXPLOSION FRAME4
24330  STA $2C3
24340  LDA VPLAY,X ;VERT POS PLAYER
24350  TAY
24360  LDA #66
24370  STA PLAYERS+;400,1
24380  STA PLAYERS+i407,Y
24390  LDA #129
24400  STA PLAYER3+$401,Y
24410  STA PLAYER3+$406,Y
24420  LDA #0
24430  STA PLAYERS+;402,1
24440  STA PLAYERS+;403,1
24450  STA PLAYERS+$404,1
24460  STA PLAYERS+;405,1
24470  LDA #60
24480  STA $D206
24490  LDA #10
24500  STA $D207
24510  JMP WNG
24520 *
24530 EX3F5 LDA VPLAY,X ;EXPLOSION FRAMES
24540  TAY
24550  LDA #52
24560  STA 42C3
24570  LDA #0
24580  STA PLAYERS+¢400,1
24590  STA PLAYER3+$401,Y
24600  STA PLAYERS+;406,1
24603  STA PLAYERS+;407,1
24610  STA $D206
24620  STA $D207
24630  JMP WNG
24640 *
24650 WNG JMP ENSECPI