A.N.A.L.O.G. ISSUE 67 / JANUARY 1989 / PAGE 9
You and your copilot are cruising back to Star Base Headquarters, having completed a rather uneventful—actually, boring—mission. As you are passing near the planet Khiv, your instruments show strong electronic interference. You look at your copilot; he looks at you. You are both thinking the same thing! You have heard of the huge electronic arena of the planet Khiv: What better chance to try it? Without speaking a word, the decision has been made. You begin landing preparations, anticipating the challenge of the famous Stellar Arena of Khiv.
You silently recall the things you’ve heard about the arena: that it is the ultimate of challenges; that once inside its electrified walls, you will be bombarded by laser shots, attacking robots, pulsar beams and fast-moving spikes; that you are given three chances to rack up an enviable score and are awarded bonus lives if you survive long enough; that you can challenge the arena alone or with another player.
Stellar Arena is a one- or two-player game for preteens and older. It keeps the high score for each session, so you can try to outscore even yourself. Stellar Arena requires excellent joystick agility. Its 15 levels of difficulty will not be mastered easily and will provide many hours of challenge.
To create your copy of Stellar Arena, type in Listing 1 using the M/L Editor found elsewhere in this issue.
After Stellar Arena executes, you will get a brief look at the program title, and then the first display screen will appear. You will see an empty arena and, above it, the scoring information including the high score; Player 1 and Player 2’s scores and lives, the level of difficulty, the time left on the level and the number of players.
Selection—to choose a difficulty level. You may begin on any level A through I. (You may not begin at levels J through O). Level A is the easiest, O is the hardest.
Option—to choose a one-player or two-player game.
Start—to begin the game or to start over with options intact.
System Reset—to return to title page, but this does not erase the high score.
Pause—to pause any time, you press the space bar or any letter key. A joystick movement by either player will bring you out of pause.
In Stellar Arena you will use the joystick for three reasons: to move your player, fire your weapon and determine the direction of the shot. To move your player, simply move the joystick in any of eight directions. To fire your weapon, press the red fire button and, at the same time, move the joystick in the direction you wish to shoot.
You may shoot as often as you like, but each new shot erases the one before it; so give your shot time to hit its target before you shoot again.
The challenge of Stellar Arena is to score as many points as possible by both dodging and shooting the obstacles inside. You earn points as long as you stay alive, but to get a good score you must knock out as many obstacles as you can.
The arena is divided into five different zones, each with its own color and three levels of difficulty. (Each level is slightly faster than the one before it.)
Zone blue contains four cybernetic robots. The robots always appear at either the top or bottom wall of the arena. They move within the arena in one direction until they are deflected by a wall or another robot, when shot it is automatically replaced; so there are always four robots present. Shooting a robot gets you ten points times the level (Level A=10 pts., Level B=10 pts. × 2; through Level O=10 pts. × 15). Zone blue, like all other zones, contains a laser gun in each corner which moves randomly back and forth across the corner. The laser guns get 50 times the level points, but if it is shot, it is out of commission for the remainder of that level.
Zone green contains five cybernetic robots, four laser guns and one pulsar. The pulsar moves up and down along the left side of the arena. Before releasing its deadly beam horizontally across the entire arena, it will hum for a second or two—your warning to get out of its path. The pulsar is too powerful to be knocked out.
Zone purple contains six robots, four lasers, two pulsars (one at each side that shoot at the same time, but not in the same place) and one spike. Spikes move around randomly, can be shot for 100 times the level points and are out for the rest of the level once shot.
Zone gold has seven robots, four lasers, two pulsars and one fast spike. You also move twice as fast in this zone.
Zone red has eight robots, four lasers, two pulsars and two speedy spikes—good luck! This zone moves you twice as fast as the previous one.
In all zones, collision with anything, including the electrified walls, results in immediate death. You are given three lives to start and earn an additional one every 10,000 points.
In a two-player game, the players should agree beforehand whether they will fight each other or not. Shooting another player, planned or accidentally, earns 250 times the level points. Collision with the other player (unless he is in suspended animation) results in the death of both players.
When you are ready to enter the arena, press Start. You will be positioned in the left center of the arena (in a two-player game, the other player is in the right center of the arena). You will see the robots and the laser guns. You are now in suspended animation and invulnerable to any attack. You will always start this way when getting a new life, but, as soon as you press the fire button, you’re under attack and should move. While you are invulnerable your score does not advance, but the timer is running; so it is to your advantage to get in as quickly as possible.
Ready? Press Start and the fire button, and good luck in the Stellar Arena of Khiv.
1000 DATA 255,255,32,65,27,66,0,9,31,7,44,7,169,60,141,2,8825 1010 DATA 211,24,96,169,179,133,10,169 ,70,133,11,96,0,0,0,179,1445 1020 DATA 180,165,172,172,161,178,0,0, 161,178,165,174,161,0,0,0,3832 1030 DATA 0,0,0,35,47,48,57,50,41,39,4 0,52,0,209,217,216,3952 1040 DATA 211,0,0,0,0,0,0,0,0,106,111, 104,110,0,111,114,9699 1050 DATA 116,105,122,0,0,0,0,0,0,104, 105,103,104,0,0,115,8365 1060 DATA 99,111,114,101,90,16,16,16,1 6,16,16,0,0,240,236,225,3893 1070 DATA 249,229,242,0,17,0,0,240,236 ,225,249,229,242,0,18,0,7785 1080 DATA 0,115,90,16,16,16,16,16,16,0 ,0,115,90,16,16,16,5474 1090 DATA 16,16,16,0,0,236,218,16,0,23 6,33,0,244,218,25,25,3978 1100 DATA 0,240,18,0,236,218,16,0,112, 112,112,112,112,112,71,54,3891 1110 DATA 65,112,112,112,112,70,74,65, 112,112,70,94,65,65,194,65,3932 1120 DATA 112,112,112,70,200,57,6,70,2 00,58,134,70,0,57,6,6,9694 1130 DATA 6,6,6,6,6,6,6,70,0,58,6,6,6, 6,6,6,2924 1140 DATA 6,6,6,65,218,65,0,0,0,0,0,0, 0,0,0,0,2916 1150 DATA 0,0,0,0,0,0,255,255,255,255, 255,255,255,255,240,240,10 1160 DATA 240,240,28,66,23,67,240,240, 240,240,15,15,15,15,15,15,2120 1170 DATA 15,15,3,7,14,28,56,112,224,1 92,192,224,112,56,28,14,4398 1180 DATA 7,3,3,12,28,60,124,124,128,1 28,192,48,56,60,62,62,2220 1190 DATA 1,1,1,1,62,62,60,56,48,192,1 28,128,124,124,60,28,2742 1200 DATA 12,3,128,64,0,0,0,0,0,0,0,0, 32,16,0,0,2498 1210 DATA 0,0,0,0,0,0,8,4,0,0,0,0,0,0, 0,0,1298 1220 DATA 2,1,1,2,0,0,0,0,0,0,0,0,4,8, 0,0,1399 1230 DATA 0,0,0,0,0,0,16,32,0,0,0,0,0, 0,0,0,1598 1240 DATA 64,128,0,85,170,0,85,170,0,0 ,66,165,90,60,60,90,1761 1250 DATA 165,66,0,0,24,60,60,24,0,0,0 ,0,34,20,0,20,3681 1260 DATA 34,0,0,0,8,8,62,8,8,0,0,16,3 6,26,88,36,4872 1270 DATA 8,0,240,96,126,240,240,126,9 6,240,15,6,126,15,15,126,4730 1280 DATA 6,15,0,0,0,255,1,255,1,0,1,1 ,0,1,255,1,8780 1290 DATA 255,0,255,255,0,235,236,237, 1,21,20,19,255,120,72,138,7238 1300 DATA 72,169,66,162,0,69,79,37,78, 141,10,212,141,9,212,142,5996 1310 DATA 26,208,104,170,104,88,64,230 ,178,230,229,230,206,230,207,230,7944 1320 DATA 212,230,24,67,19,68,219,230, 224,162,7,189,193,2,157,19,7385 1330 DATA 208,202,208,247,173,244,2,14 1,9,212,169,192,141,14,212,169,1302 1340 DATA 0,162,4,213,214,240,2,214,21 4,202,208,247,138,172,2,6,290 1350 DATA 136,153,0,60,172,3,6,136,153 ,0,61,174,8,6,189,0,1199 1360 DATA 59,41,252,157,0,59,174,9,6,1 89,0,59,41,243,157,0,3471 1370 DATA 59,169,0,133,205,174,4,6,173 ,0,6,24,125,216,66,141,4250 1380 DATA 0,6,141,0,208,232,173,2,6,24 ,125,216,66,141,2,6,2693 1390 DATA 165,176,201,10,144,8,230,205 ,165,205,201,1,240,215,174,10,1226 1400 DATA 6,173,6,6,24,125,216,66,24,1 25,216,66,141,6,6,141,3601 1410 DATA 4,208,232,173,8,6,24,125,216 ,66,24,125,216,66,141,8,4805 1420 DATA 6,170,189,0,59,9,1,157,0,59, 165,205,201,1,240,10,5197 1430 DATA 165,177,201,1,240,89,169,0,1 33,205,174,5,6,173,1,6,3305 1440 DATA 24,125,216,66,141,1,6,141,1, 208,232,173,3,6,24,125,3707 1450 DATA 216,66,141,3,6,165,176,201,1 0,144,8,230,205,165,205,201,1737 1460 DATA 1,240,215,174,11,6,173,7,6,2 4,125,216,66,24,125,216,5426 1470 DATA 66,141,7,6,141,5,208,232,173 ,9,6,24,125,216,66,24,3934 1480 DATA 125,216,20,68,15,69,66,141,9 ,6,170,189,0,59,9,4,9752 1490 DATA 157,0,59,165,176,201,7,176,3 ,76,154,68,169,0,133,201,6732 1500 DATA 174,16,6,173,12,6,24,125,216 ,66,141,12,6,141,2,208,3389 1510 DATA 232,173,14,6,24,125,216,66,1 41,14,6,168,162,8,189,191,6664 1520 DATA 66,153,0,62,136,202,208,246, 230,201,165,176,201,10,144,60,1336 1530 DATA 165,201,201,1,240,202,165,17 6,201,13,144,48,174,17,6,173,7136 1540 DATA 13,6,24,125,216,66,141,13,6, 141,3,208,232,173,15,6,4456 1550 DATA 24,125,216,66,141,15,6,168,1 62,8,189,191,66,153,0,63,4834 1560 DATA 136,202,208,246,230,201,165, 201,201,3,240,208,165,212,201,17,4202 1570 DATA 208,26,169,0,133,212,160,8,1 62,8,165,178,201,2,240,2,7220 1580 DATA 162,16,189,159,66,153,7,66,2 02,136,208,246,169,0,133,205,692 1590 DATA 162,2,189,1,6,149,202,202,20 8,248,165,178,201,2,240,47,1577 1600 DATA 169,90,141,18,208,141,192,2, 169,134,141,19,208,141,193,2,7935 1610 DATA 162,8,189,175,66,164,203,153 ,0,60,198,203,164,204,153,0,9511 1620 DATA 61,198,204,202,230,205,165,2 05,201,9,144,230,76,95,228,169,3357 1630 DATA 134,141,18,208,141,192,2,169 ,90,141,19,208,141,193,2,169,8349 1640 DATA 0,133,16,69,11,70,178,162,16 ,76,224,68,138,72,166,230,8403 1650 DATA 224,3,240,31,166,227,224,0,2 40,16,202,202,202,134,227,142,3629 1660 DATA 2,210,169,172,141,3,210,76,8 7,69,230,230,169,252,133,227,4193 1670 DATA 76,87,69,166,189,224,200,176 ,15,232,232,134,189,142,2,210,2338 1680 DATA 169,166,141,3,210,76,87,69,1 69,0,141,3,210,173,230,58,7921 1690 DATA 201,16,208,60,162,51,134,191 ,166,225,224,1,240,25,166,228,2197 1700 DATA 224,70,176,19,232,232,134,22 8,142,6,210,169,164,141,7,210,1229 1710 DATA 169,0,133,225,76,159,69,169, 1,133,225,166,228,224,10,144,707 1720 DATA 221,202,202,134,228,142,6,21 0,169,164,141,7,210,76,159,69,9280 1730 DATA 169,0,141,7,210,166,190,224, 252,176,23,224,251,240,14,232,5032 1740 DATA 134,190,142,4,210,169,168,14 1,5,210,76,188,69,169,0,141,7820 1750 DATA 5,210,166,191,224,51,240,21, 176,14,232,134,191,142,6,210,516 1760 DATA 169,138,141,7,210,76,215,69, 169,0,141,7,210,104,170,104,7775 1770 DATA 64,162,0,160,9,217,133,70,24 0,5,232,232,136,208,246,96,3088 1780 DATA 173,10,210,41,6,201,0,208,2, 9,2,96,166,176,202,189,7625 1790 DATA 51,70,141,198,2,189,66,70,13 3,183,189,82,70,133,182,189,9978 1800 DATA 98,70,12,70,7,71,133,180,189 ,114,70,133,181,138,24,105,6718 1810 DATA 33,141,226,58,32,11,81,96,22 4,2,240,6,162,2,56,233,6046 1820 DATA 200,96,162,0,24,105,200,96,1 40,92,136,14,48,136,138,140,6298 1830 DATA 216,218,220,104,106,108,248, 250,252,72,74,76,4,4,4,5,3434 1840 DATA 5,5,6,6,6,7,7,7,8,8,8,0,10,1 2,14,16,3078 1850 DATA 18,20,22,24,26,28,30,32,34,3 6,38,0,38,36,34,32,5938 1860 DATA 30,28,26,24,22,20,18,16,14,1 2,10,0,42,40,38,36,5212 1870 DATA 34,32,30,28,26,24,22,20,18,1 6,14,0,42,57,157,142,9205 1880 DATA 10,11,9,13,5,7,6,14,15,19,23 7,21,235,71,72,73,1693 1890 DATA 74,133,134,133,134,21,19,235 ,237,203,207,206,210,207,211,207,6990 1900 DATA 211,203,207,203,207,206,210, 203,207,60,201,252,51,169,194,141,5208 1910 DATA 48,2,169,65,141,49,2,169,0,1 70,157,0,6,202,208,250,8547 1920 DATA 133,20,133,19,169,1,133,176, 133,177,133,226,169,17,141,111,9226 1930 DATA 2,169,56,141,7,212,169,3,141 ,29,208,169,62,141,47,2,4908 1940 DATA 169,243,141,0,2,169,66,141,1 ,2,169,192,141,14,212,169,7737 1950 DATA 6,162,67,160,13,32,92,228,32 ,101,228,169,38,133,180,169,9440 1960 DATA 0,141,8,71,3,72,8,210,141,1, 210,169,200,141,0,210,8284 1970 DATA 169,22,141,16,2,169,69,141,1 7,2,165,16,9,1,133,16,9867 1980 DATA 141,14,210,169,2,133,220,162 ,4,189,174,70,149,187,202,208,2692 1990 DATA 248,165,19,201,1,144,250,169 ,218,141,48,2,169,65,141,49,7330 2000 DATA 2,169,0,170,157,0,6,157,0,59 ,157,0,60,157,0,61,1374 2010 DATA 157,0,62,157,0,63,202,208,23 5,172,11,212,192,112,144,249,3145 2020 DATA 157,0,57,157,0,58,202,208,24 7,169,0,141,5,210,133,186,9983 2030 DATA 133,187,169,3,133,185,162,40 ,189,113,65,157,199,57,189,153,383 2040 DATA 65,157,199,58,202,208,241,16 9,16,141,223,58,141,238,58,165,1923 2050 DATA 177,24,105,16,141,234,58,162 ,10,169,130,157,4,57,157,184,7708 2060 DATA 58,202,208,247,162,119,160,5 ,169,132,157,0,57,157,156,57,7577 2070 DATA 138,56,233,19,170,169,131,15 7,0,57,157,156,57,138,24,105,6014 2080 DATA 39,170,136,208,227,160,5,162 ,4,169,133,157,0,57,157,115,7191 2090 DATA 58,169,64,232,157,115,58,202 ,202,157,0,57,232,138,24,105,8163 2100 DATA 19,170,136,208,228,160,5,162 ,15,169,134,157,0,57,157,85,6826 2110 DATA 58,169,64,232,157,0,57,202,2 02,157,85,58,232,138,24,105,8433 2120 DATA 21,170,4,72,255,72,136,208,2 28,162,131,142,100,57,232,142,1771 2130 DATA 99,58,169,0,162,16,157,255,6 5,202,208,250,162,5,189,45,521 2140 DATA 70,157,195,2,202,208,247,169 ,30,141,194,2,141,195,2,165,9527 2150 DATA 226,133,176,32,246,69,162,57 ,134,198,232,134,200,165,179,201,4689 2160 DATA 1,240,101,173,31,208,141,2,2 08,141,3,208,201,6,240,77,9382 2170 DATA 201,3,240,28,201,5,240,3,76, 65,72,166,176,232,224,10,9122 2180 DATA 144,2,162,1,134,176,134,226, 134,77,32,246,69,76,135,72,7708 2190 DATA 166,177,134,77,224,1,240,13, 202,134,177,138,24,105,16,141,7369 2200 DATA 234,58,76,135,72,232,76,119, 72,165,20,24,105,9,162,0,3281 2210 DATA 142,2,208,142,3,208,197,20,2 40,169,76,142,72,165,226,133,1504 2220 DATA 176,169,1,133,179,76,67,71,1 69,0,133,179,133,184,169,19,7933 2230 DATA 141,223,58,166,177,224,1,240 ,3,141,238,58,169,100,141,0,8274 2240 DATA 6,169,130,141,2,6,224,1,240, 6,141,3,6,169,156,141,6007 2250 DATA 1,6,162,10,169,0,149,211,202 ,208,249,173,10,210,41,15,9003 2260 DATA 24,105,3,133,213,165,176,201 ,7,144,20,162,1,134,186,160,8836 2270 DATA 10,141,16,6,201,10,144,7,134 ,187,160,12,141,17,6,164,4528 2280 DATA 183,32,0,73,251,73,91,76,136 ,208,250,160,6,169,16,153,8863 2290 DATA 202,58,153,212,58,153,156,65 ,153,166,65,136,208,241,165,176,3488 2300 DATA 133,226,173,31,208,201,6,208 ,3,76,155,72,201,7,176,3,6235 2310 DATA 76,67,71,169,0,133,77,169,13 0,141,186,58,165,224,201,45,436 2320 DATA 144,3,32,49,80,32,212,80,173 ,252,2,201,255,240,3,76,9925 2330 DATA 124,81,165,185,74,176,65,173 ,120,2,32,219,69,224,0,240,9069 2340 DATA 52,173,132,2,201,1,240,45,16 9,0,141,10,6,141,4,6,1593 2350 DATA 172,8,6,185,0,59,41,252,153, 0,59,173,0,6,105,3,1762 2360 DATA 141,6,6,173,2,6,233,3,141,8, 6,142,10,6,169,0,792 2370 DATA 133,189,76,146,73,142,4,6,16 5,177,201,2,208,71,165,185,9609 2380 DATA 74,74,176,65,173,121,2,32,21 9,69,224,0,240,52,173,133,8947 2390 DATA 2,201,1,240,45,169,0,141,11, 6,141,5,6,172,9,6,611 2400 DATA 185,0,59,41,243,153,0,59,173 ,1,6,105,3,141,7,6,638 2410 DATA 173,3,6,233,3,141,9,6,142,11 ,6,169,0,133,189,76,3906 2420 DATA 223,73,142,5,6,165,207,197,1 80,176,3,76,87,74,169,0,6307 2430 DATA 133,207,160,4,185,17,6,201,0 ,208,6,136,208,246,76,87,8608 2440 DATA 74,162,252,73,247,74,2,192,3 ,176,2,162,0,149,197,185,8869 2450 DATA 150,70,129,197,134,195,173,1 0,210,41,1,192,3,240,7,192,8237 2460 DATA 1,240,3,24,105,2,24,105,1,13 3,194,170,185,17,6,24,3221 2470 DATA 125,142,70,166,195,149,197,1 61,197,217,150,70,240,19,166,194,3702 2480 DATA 224,1,240,9,224,3,240,5,202, 138,76,31,74,232,76,61,7052 2490 DATA 74,181,197,153,17,6,185,146, 70,129,197,76,245,73,76,231,755 2500 DATA 74,165,214,201,1,176,247,165 ,176,201,4,144,241,165,206,197,5511 2510 DATA 180,144,235,169,0,133,206,16 5,213,201,0,240,2,198,213,172,3471 2520 DATA 22,6,174,24,6,148,197,169,13 1,129,197,152,201,180,208,13,1742 2530 DATA 169,236,141,22,6,162,2,142,2 4,6,76,156,74,201,80,208,7122 2540 DATA 5,162,0,142,24,6,173,22,6,24 ,105,20,141,22,6,149,1284 2550 DATA 197,169,89,129,197,165,176,2 01,7,144,163,172,23,6,174,25,7436 2560 DATA 6,148,197,169,132,129,197,15 2,201,19,208,13,162,0,142,25,7237 2570 DATA 6,169,219,141,23,6,76,216,74 ,201,119,208,5,162,2,142,7662 2580 DATA 25,6,173,23,6,56,233,20,141, 23,6,149,197,169,90,129,7079 2590 DATA 197,165,176,201,4,176,3,76,1 25,75,165,213,201,0,240,3,8661 2600 DATA 76,125,248,74,243,75,75,165, 214,201,1,240,27,201,2,240,1338 2610 DATA 99,230,214,169,50,133,215,16 9,200,141,5,210,169,163,141,4,835 2620 DATA 210,169,252,133,190,76,125,7 5,165,215,201,0,240,3,76,125,9485 2630 DATA 75,169,30,133,215,230,214,16 9,211,133,196,174,24,6,172,22,9771 2640 DATA 6,200,148,197,152,160,18,165 ,196,129,197,246,197,136,208,249,7186 2650 DATA 169,0,133,190,165,176,201,7, 176,3,76,125,75,174,25,6,5154 2660 DATA 172,23,6,136,148,197,160,18, 165,196,129,197,214,197,136,208,4762 2670 DATA 249,76,125,75,165,215,201,0, 208,17,133,196,133,214,173,10,605 2680 DATA 210,41,15,24,105,3,133,213,7 6,45,75,165,176,201,7,176,8253 2690 DATA 3,76,218,75,160,0,185,12,6,2 01,51,144,31,201,196,176,9316 2700 DATA 36,185,14,6,201,217,176,7,20 1,79,144,34,76,207,75,32,6881 2710 DATA 234,69,201,6,208,30,24,105,1 0,76,198,75,32,234,69,24,4976 2720 DATA 105,2,76,198,75,32,234,69,24 ,105,10,76,198,75,32,234,6742 2730 DATA 69,24,105,6,182,186,224,0,24 0,3,153,16,6,165,176,201,9089 2740 DATA 13,144,5,200,192,1,240,174,1 65,219,197,181,176,3,76,183,2306 2750 DATA 76,169,0,133,219,164,183,185 ,25,6,201,0,240,21,190,43,7984 2760 DATA 6,149,244,75,239,76,197,161, 197,201,1,240,16,169,0,153,110 2770 DATA 25,6,153,43,6,198,184,136,20 8,225,76,183,76,190,69,6,8965 2780 DATA 185,25,6,24,125,234,66,190,4 3,6,201,200,144,3,32,30,5072 2790 DATA 70,149,197,161,197,201,0,240 ,14,173,10,210,41,7,24,105,5661 2800 DATA 1,153,69,6,76,5,76,181,197,1 33,195,134,194,185,25,6,8167 2810 DATA 190,43,6,149,197,169,0,129,1 97,165,195,166,194,149,197,153,4302 2820 DATA 25,6,138,153,43,6,169,1,129, 197,76,5,76,165,184,197,8562 2830 DATA 183,144,1,96,169,5,133,195,1 85,25,6,201,0,240,1,96,6358 2840 DATA 173,10,210,41,2,170,153,43,6 ,173,10,210,41,7,224,2,4709 2850 DATA 240,9,24,105,26,153,25,6,76, 143,76,24,105,166,153,25,4493 2860 DATA 6,149,197,161,197,201,0,240, 25,169,0,153,25,6,198,195,8760 2870 DATA 165,195,201,0,208,202,173,10 ,210,41,7,24,105,1,153,69,5014 2880 DATA 6,96,230,184,169,1,129,197,9 6,164,183,32,91,76,136,208,350 2890 DATA 250,160,4,185,61,6,201,0,240 ,6,136,208,246,76,250,76,1400 2900 DATA 185,17,6,201,0,240,243,24,12 1,154,70,162,0,192,3,144,7654 2910 DATA 2,162,2,149,197,161,197,201, 0,208,223,181,197,153,61,6,1195 2920 DATA 138,153,240,76,235,77,65,6,1 85,158,70,129,197,76,200,76,9932 2930 DATA 165,216,201,0,240,3,76,143,7 7,162,5,160,3,196,176,176,9551 2940 DATA 7,200,200,200,202,76,7,77,13 4,216,160,4,190,65,6,185,8482 2950 DATA 61,6,149,197,161,197,217,162 ,70,144,14,169,0,153,61,6,6465 2960 DATA 153,65,6,136,208,230,76,143, 77,217,166,70,176,3,76,37,7492 2970 DATA 77,217,170,70,240,20,192,3,1 76,8,24,105,1,129,197,76,6137 2980 DATA 45,77,56,233,1,129,197,76,45 ,77,169,0,129,197,185,61,8265 2990 DATA 6,24,121,154,70,190,65,6,201 ,200,144,3,32,30,70,149,5715 3000 DATA 197,161,197,201,0,240,3,76,3 7,77,138,153,65,6,181,197,8236 3010 DATA 153,61,6,185,166,70,192,3,17 6,5,129,197,76,45,77,24,5235 3020 DATA 105,3,76,132,77,169,0,133,19 2,173,4,208,201,0,240,6,8657 3030 DATA 141,0,6,32,162,79,173,12,208 ,201,0,240,6,141,0,6,4818 3040 DATA 32,162,79,173,5,208,201,0,24 0,6,141,1,6,32,233,79,6073 3050 DATA 173,13,208,201,0,240,6,141,1 ,6,32,233,79,160,0,185,6731 3060 DATA 0,208,201,0,240,74,74,72,144 ,18,32,76,79,169,0,129,5014 3070 DATA 197,162,10,134,222,32,107,80 ,169,25,133,191,104,74,144,38,7530 3080 DATA 32,76,236,77,231,78,79,161,1 97,201,75,176,29,56,233,71,256 3090 DATA 170,189,151,70,72,169,0,157, 18,6,104,166,193,129,197,162,221 3100 DATA 50,134,222,32,107,80,169,25, 133,191,230,192,169,0,153,10,9203 3110 DATA 6,153,6,6,200,192,1,240,170, 160,0,185,8,208,74,72,8171 3120 DATA 144,28,192,1,208,24,165,185, 74,176,19,140,0,6,32,162,5190 3130 DATA 79,160,1,162,250,134,222,32, 107,80,169,25,133,191,104,74,9113 3140 DATA 72,144,27,192,0,208,23,165,1 85,74,74,176,17,140,1,6,4701 3150 DATA 32,233,79,162,250,134,222,32 ,107,80,169,25,133,191,104,74,9466 3160 DATA 72,144,41,169,0,141,16,6,141 ,12,6,141,14,6,133,186,3709 3170 DATA 153,6,6,153,10,6,162,100,134 ,222,32,107,80,169,25,133,6956 3180 DATA 191,162,0,138,157,0,62,202,2 08,250,230,192,104,74,144,41,1492 3190 DATA 169,0,141,17,6,141,13,6,141, 15,6,133,187,141,7,6,2552 3200 DATA 141,11,6,162,100,134,222,32, 107,80,169,25,133,191,162,0,7898 3210 DATA 138,157,0,63,202,208,250,230 ,192,200,192,1,208,3,76,33,28 3220 DATA 78,165,192,201,0,240,0,141,3 0,208,165,20,201,16,176,3,7506 3230 DATA 76,15,79,169,0,133,20,173,23 1,58,201,16,240,6,206,231,1623 3240 DATA 58,76,232,78,227,79,15,79,17 3,230,58,201,16,240,11,206,740 3250 DATA 230,58,169,25,141,231,58,76, 15,79,165,176,201,15,176,2,7655 3260 DATA 230,176,32,246,69,169,25,141 ,230,58,141,231,58,173,238,58,2231 3270 DATA 201,16,240,3,76,35,79,173,22 3,58,201,16,208,3,76,214,9062 3280 DATA 81,162,2,189,5,6,201,47,144, 21,201,204,176,17,189,7,7929 3290 DATA 6,201,67,144,10,201,223,176, 6,202,208,231,76,28,73,169,1013 3300 DATA 0,157,9,6,157,5,6,76,59,79,1 69,0,153,10,6,230,4209 3310 DATA 192,185,6,6,56,233,47,162,0, 201,8,144,7,56,233,8,5541 3320 DATA 232,76,91,79,134,194,185,8,6 ,56,233,64,162,0,201,8,6680 3330 DATA 144,7,56,233,8,232,76,112,79 ,134,195,224,10,176,21,169,9945 3340 DATA 0,133,193,165,194,224,0,240, 6,24,105,20,202,208,250,166,2712 3350 DATA 193,149,197,96,169,2,133,193 ,138,56,233,10,170,76,133,79,9166 3360 DATA 230,192,165,185,74,176,58,16 9,0,133,224,133,191,174,223,58,2975 3370 DATA 224,16,240,44,202,142,223,58 ,165,185,9,1,133,185,172,2,8786 3380 DATA 6,162,8,169,0,153,0,60,136,2 02,208,249,141,4,6,174,9091 3390 DATA 223,58,224,16,240,10,169,100 ,141,0,6,169,130,141,2,6,4861 3400 DATA 96,169,228,79,223,80,100,141 ,0,6,96,230,192,165,185,74,898 3410 DATA 74,176,58,169,0,133,224,133, 191,174,238,58,224,16,240,44,2329 3420 DATA 202,142,238,58,165,185,9,2,1 33,185,172,3,6,162,8,169,7011 3430 DATA 0,153,0,61,136,202,208,249,1 41,5,6,174,238,58,224,16,315 3440 DATA 240,10,169,156,141,1,6,169,1 30,141,3,6,96,169,156,141,7831 3450 DATA 1,6,96,165,185,74,144,20,173 ,223,58,201,17,144,13,173,8985 3460 DATA 132,2,201,0,208,6,165,185,41 ,2,133,185,165,177,201,2,9652 3470 DATA 208,26,165,185,74,74,144,20, 173,238,58,201,17,144,13,173,9134 3480 DATA 133,2,201,0,208,6,165,185,41 ,1,133,185,96,72,152,72,7681 3490 DATA 201,1,240,45,160,6,132,221,1 65,176,72,185,202,58,201,25,1231 3500 DATA 176,36,105,1,153,202,58,192, 12,240,70,192,2,240,40,164,178 3510 DATA 221,202,208,231,166,222,198, 176,208,225,104,133,176,104,168,104,54 29 3520 DATA 96,160,16,76,116,80,169,16,1 53,202,58,192,11,240,3,136,8722 3530 DATA 208,201,164,221,76,121,80,16 0,0,185,223,58,201,25,240,14,248 3540 DATA 24,105,1,153,223,58,169,252, 133,227,169,0,133,230,76,141,2722 3550 DATA 80,160,15,76,183,80,165,218, 201,0,240,1,96,165,20,201,128 3560 DATA 4,240,224,80,219,81,9,201,8, 240,5,201,12,240,1,96,8294 3570 DATA 169,1,133,218,165,185,74,72, 176,9,162,1,160,0,134,222,9151 3580 DATA 32,107,80,104,74,176,9,162,1 ,160,1,134,222,32,107,80,6714 3590 DATA 96,162,4,189,17,6,201,0,240, 6,202,208,246,76,35,81,9327 3600 DATA 189,129,70,157,17,6,76,20,81 ,165,176,201,4,144,82,173,8491 3610 DATA 22,6,201,0,208,12,173,24,6,2 01,2,240,5,169,100,141,7915 3620 DATA 22,6,165,176,201,7,144,57,17 3,23,6,201,0,208,10,169,7395 3630 DATA 99,141,23,6,169,2,141,25,6,1 62,0,189,12,6,201,0,3345 3640 DATA 208,20,169,72,157,14,6,169,1 28,157,12,6,169,1,149,186,7294 3650 DATA 141,2,208,141,3,208,232,224, 2,176,6,165,176,201,10,176,1554 3660 DATA 218,96,169,255,141,252,2,165 ,190,72,169,251,133,190,165,176,6129 3670 DATA 72,169,1,133,176,169,0,174,1 0,6,172,11,6,141,10,6,2373 3680 DATA 141,11,6,173,31,208,201,6,20 8,7,104,133,176,104,76,155,9457 3690 DATA 72,201,7,176,7,104,133,176,1 04,76,67,71,173,121,2,201,8361 3700 DATA 15,240,3,76,199,81,173,120,2 ,201,15,240,214,142,10,6,8249 3710 DATA 140,11,6,104,133,176,104,133 ,190,76,76,73,160,0,185,203,104 3720 DATA 58,217,220,81,45,82,213,57,1 44,7,208,25,200,192,6,144,9496 3730 DATA 241,160,0,185,213,58,217,213 ,57,144,41,208,25,200,192,6,668 3740 DATA 144,241,76,26,82,160,6,185,2 02,58,153,212,57,153,126,65,28 3750 DATA 136,208,244,76,231,81,160,6, 185,212,58,153,212,57,153,126,2271 3760 DATA 65,136,208,244,160,6,185,202 ,58,153,156,65,185,212,58,153,2683 3770 DATA 166,65,136,208,241,76,67,71, 226,2,227,2,179,70,0,0,5886
; STELLAR ARENA ; COPYRIGHT 1988 ; BY ANALOG COMPUTING .OPT NOLIST ;CAS=$71F *= $4120 ;CAS=$7FF CH = $41FF S = $C5 ;CAS=$8E7 PCH = $42AF HPO = $0600 VPO = $0602 APO = $0604 HMO = $0606 VMO = $0608 AMO = $060A HSP = $060C VSP = $060E ASP = $0610 XLA = $0612 XPL = $0616 BPL = $0618 XPO = $0619 BIT = $062B XSH = $063D BSH = $0641 DIR = $0645 ;BOOT .BYTE 0,9,$1F,7,$2C,7 LDA #60 STA $D302 CLC RTS LDA #<RUN STA 10 LDA #>RUN STA 11 RTS ;WORD DATA .DBYTE 0,$B3,$B4A5,$ACAC,$A1B2,0,$A1B2,$A5AE,$A100,0 .DBYTE 0,$23,$2F30,$3932,$2927,$2834,$D1,$D9D8,$D300,0 .DBYTE 0,0,$6A,$6F68,$6E00,$6F72,$7469,$7A00,0,0 TS1 .DBYTE $68,$6967,$6800,$73,$636F,$7265,$5A10,$1010,$1010,$1000 .DBYTE $F0,$ECE1,$F9E5,$F200,$1100,$F0,$ECE1,$F9E5,$F200,$1200 TS2 .DBYTE $73,$5A10,$1010,$1010,$1000,$73,$5A10,$1010,$1010,$1000 .DBYTE $EC,$DA10,$EC,$2100,$F4DA,$1919,$F0,$1200,$ECDA,$1000 ;DL#1 C* .BYTE 112,112,112,112,112,112,71,$36,$41,112,112,112 .BYTE 112,70,$4A,$41,112,112,70,$5E,$41,65,$C2,$41 ;DL#2 C* .BYTE 112,112,112,70,200,$39,6,70,200,$3A,134 .BYTE 70,0,$39,6,6,6,6,6,6,6,6,6,70,0 .BYTE $3A,6,6,6,6,6,6,6,6,6,65,$DA,$41 ;CHSET .DBYTE 0,0,0,0,0,0,0,0 .BYTE 255,255,255,255,255,255,255,255 .BYTE 240,240,240,240,240,240,240,240 .BYTE 15,15,15,15,15,15,15,15 .BYTE 3,7,14,28,56,112,224,192 .BYTE 192,224,112,56,28,14,7,3 .BYTE 3,12,28,60,124,124,128,128 .BYTE 192,48,56,60,62,62,1,1 .BYTE 1,1,62,62,60,56,48,192 .BYTE 128,128,124,124,60,28,12,3 .BYTE 128,64,0,0,0,0,0,0 .BYTE 0,0,32,16,0,0,0,0 .BYTE 0,0,0,0,8,4,0,0 .BYTE 0,0,0,0,0,0,2,1 .BYTE 1,2,0,0,0,0,0,0 .BYTE 0,0,4,8,0,0,0,0 .BYTE 0,0,0,0,16,32,0,0 .BYTE 0,0,0,0,0,0,64,128 .BYTE 0,85,170,0,85,170,0,0 .BYTE 66,165,90,60,60,90,165,66 .BYTE 0,0,24,60,60,24,0,0 .BYTE 0,0,34,20,0,20,34,0 .BYTE 0,0,8,8,62,8,8,0 .BYTE 0,16,36,26,88,36,8,0 .BYTE 240,96,126,240,240,126,96,240 .BYTE 15,6,126,15,15,126,6,15 ;VC1 VC1 .BYTE 0,0,0,255,1,255,1,0,1,1 .BYTE 0,1,255,1,255,0,255,255 ;VC2 VC2 .BYTE 0,235,236,237,1,21,20,19,255 ;DLI#1 DLI1 SEI PHA TXA PHA LDA #$42 ;C* LDX #0 EOR $4F AND $4E STA $D40A STA $D409 STX $D01A PLA TAX PLA CLI RTI ;VBI VBI INC $B2 INC $E5 INC $CE INC $CF INC $D4 INC $DB INC $E0 LDX #7 A1 LDA 705,X STA 53267,X DEX BNE A1 LDA 756 STA $D409 LDA #192 STA 54286 LDA #0 LDX #4 E5 CMP $D6,X BEQ E5+6 DEC $D6,X DEX BNE E5 TXA LDY VPO DEY STA $3C00,Y LDY VPO+1 DEY STA $3D00,Y LDX VMO LDA $3B00,X AND #252 STA $3B00,X LDX VMO+1 LDA $3B00,X AND #243 STA $3B00,X LDA #0 STA $CD G2 LDX APO LDA HPO CLC ADC VC1,X STA HPO STA 53248 INX LDA VPO CLC ADC VC1,X STA VPO LDA $B0 CMP #10 BCC G1 INC $CD LDA $CD CMP #1 BEQ G2 G1 LDX AMO LDA HMO CLC ADC VC1,X CLC ADC VC1,X STA HMO STA 53252 INX LDA VMO CLC ADC VC1,X CLC ADC VC1,X STA VMO TAX LDA $3B00,X ORA #1 STA $3B00,X LDA $CD CMP #1 BEQ G4 LDA $B1 CMP #1 BEQ C6 LDA #0 STA $CD G4 LDX APO+1 LDA HPO+1 CLC ADC VC1,X STA HPO+1 STA 53249 INX LDA VPO+1 CLC ADC VC1,X STA VPO+1 LDA $B0 CMP #10 BCC G3 INC $CD LDA $CD CMP #1 BEQ G4 G3 LDX AMO+1 LDA HMO+1 CLC ADC VC1,X CLC ADC VC1,X STA HMO+1 STA 53253 INX LDA VMO+1 CLC ADC VC1,X CLC ADC VC1,X STA VMO+1 TAX LDA $3B00,X ORA #4 STA $3B00,X ;SPIKES C6 LDA $B0 CMP #7 BCS D2-4 JMP D6 LDA #0 STA $C9 D2 LDX ASP LDA HSP CLC ADC VC1,X STA HSP STA 53250 INX LDA VSP CLC ADC VC1,X STA VSP TAY LDX #8 D3 LDA PCH+16,X STA $3E00,Y DEY DEX BNE D3 INC $C9 LDA $B0 CMP #10 BCC D6 LDA $C9 CMP #1 BEQ D2 LDA $B0 CMP #13 BCC D6 D5 LDX ASP+1 LDA HSP+1 CLC ADC VC1,X STA HSP+1 STA 53251 INX LDA VSP+1 CLC ADC VC1,X STA VSP+1 TAY LDX #8 D4 LDA PCH+16,X STA $3F00,Y DEY DEX BNE D4 INC $C9 LDA $C9 CMP #3 BEQ D5 ;XENOPODS D6 LDA $D4 CMP #17 BNE A4 LDA #0 STA $D4 LDY #8 LDX #8 LDA $B2 CMP #2 BEQ D7 LDX #16 D7 LDA PCH-16,X STA CH+8,Y DEX DEY BNE D7 A4 LDA #0 STA $CD LDX #2 LDA VPO-1,X STA $CA,X DEX BNE A4+6 LDA $B2 CMP #2 BEQ A5 LDA #90 STA $D012 STA 704 LDA #134 STA $D013 STA 705 LDX #8 LDA PCH,X LDY $CB STA $3C00,Y DEC $CB LDY $CC STA $3D00,Y DEC $CC DEX INC $CD LDA $CD CMP #9 BCC A4+38 JMP $E45F A5 LDA #134 STA $D012 STA 704 LDA #90 STA $D013 STA 705 LDA #0 STA $B2 LDX #16 JMP A4+38 ;IRQ IRQ TXA PHA LDX $E6 CPX #3 BEQ Q2 LDX $E3 CPX #0 BEQ P9 DEX DEX DEX STX $E3 STX $D202 LDA #172 STA $D203 JMP J3+5 P9 INC $E6 LDA #252 STA $E3 JMP J3+5 Q2 LDX $BD CPX #200 BCS J3 INX INX STX $BD STX $D202 LDA #166 STA $D203 JMP J3+5 J3 LDA #0 STA $D203 LDA $3AE6 CMP #16 BNE Q3-5 LDX #51 STX $BF LDX $E1 CPX #1 BEQ Q5 LDX $E4 CPX #70 BCS Q5 INX INX STX $E4 STX $D206 LDA #164 STA $D207 LDA #0 STA $E1 JMP Q3 Q5 LDA #1 STA $E1 LDX $E4 CPX #10 BCC J3+22 DEX DEX STX $E4 STX $D206 LDA #164 STA $D207 JMP Q3 LDA #0 STA $D207 Q3 LDX $BE CPX #252 BCS J4+5 CPX #251 BEQ J4 INX STX $BE STX $D204 LDA #168 STA $D205 JMP J4+5 J4 LDA #0 STA $D205 LDX $BF CPX #51 BEQ J5+5 BCS J5 INX STX $BF STX $D206 LDA #138 STA $D207 JMP J5+5 J5 LDA #0 STA $D207 PLA TAX PLA RTI ;JOY JOY LDX #0 LDY #9 CMP JOD-1,Y BEQ JOY+14 INX INX DEY BNE JOY+4 RTS ;SP CHEC FA LDA 53770 AND #6 CMP #0 BNE FA+11 ORA #2 RTS ;LEVEL CHANGE LEVC LDX $B0 DEX LDA LCT,X STA 710 LDA ATD,X STA $B7 LDA MTD,X STA $B6 LDA LPD,X STA $B4 LDA XMO,X STA $B5 TXA CLC ADC #33 STA $3AE2 JSR PUT RTS ;CHECK BIT H3 CPX #2 BEQ H3+10 LDX #2 SEC SBC #200 RTS LDX #0 CLC ADC #200 RTS ;COLORS CTB .BYTE $8C,$5C,$88,$0E,$30 LCT .BYTE $88,$8A,$8C,$D8,$DA,$DC,$68,$6A,$6C .BYTE $F8,$FA,$FC,$48,$4A,$4C ;LEVEL DATA ATD .DBYTE $0404,$0405,$0505,$0606,$0607,$0707,$0808,$0800 MTD .DBYTE $0A0C,$0E10,$1214,$1618,$1A1C,$1E20,$2224,$2600 LPD .DBYTE $2624,$2220,$1E1C,$1A18,$1614,$1210,$0E0C,$0A00 XMO .DBYTE $2A28,$2624,$2220,$1E1C,$1A18,$1614,$1210,$0E00 XAL .BYTE 42,57,157,142 ;JOY DATA JOD .BYTE 10,11,9,13,5,7,6,14,15 ;LAS VECS LVC .BYTE 19,237,21,235 LMN .BYTE 71,72,73,74,133,134,133,134 LSV .BYTE 21,19,235,237,203,207,206,210 CLS .BYTE 207,211,207,211,203,207,203,207,206,210,203,207 ;SOUND DATA STB .BYTE 60,201,252,51 ;RUN RUN LDA #$C2 STA 560 LDA #$41 ;C* STA 561 LDA #0 TAX STA $0600,X DEX BNE RUN+13 STA 20 STA 19 LDA #1 STA $B0 STA $B1 STA $E2 LDA #17 STA 623 LDA #56 STA 54279 LDA #3 STA 53277 LDA #62 STA 559 LDA #<DLI1 STA 512 LDA #>DLI1 STA 513 LDA #192 STA 54286 LDA #6 LDX #>VBI LDY #<VBI JSR $E45C JSR $E465 LDA #38 STA $B4 ;SET IRQ LDA #0 STA $D208 STA $D201 LDA #200 STA $D200 LDA #<IRQ STA $0210 LDA #>IRQ STA $0211 LDA 16 ORA #1 STA 16 STA $D20E LDA #2 STA $DC LDX #4 J6 LDA STB-1,X STA $BB,X DEX BNE J6 A7 LDA 19 CMP #1 BCC A7 LDA #$DA STA 560 LDA #$41 ;C* STA 561 ;CLEAR LDA #0 TAX A6 STA $0600,X STA $3B00,X STA $3C00,X STA $3D00,X STA $3E00,X STA $3F00,X DEX BNE A6 LDY 54283 CPY #$70 BCC A6+21 STA $3900,X STA $3A00,X DEX BNE A6+28 LDA #0 STA $D205 STA $BA STA $BB LDA #3 STA $B9 ;UPLOAD LDX #40 A8 LDA TS1-1,X STA $39C7,X LDA TS2-1,X STA $3AC7,X DEX BNE A8 LDA #16 STA $3ADF STA $3AEE LDA $B1 CLC ADC #16 STA $3AEA ;WALLS LDX #10 LDA #130 STA $3904,X STA $3AB8,X DEX BNE A8+35 LDX #119 LDY #5 LDA #132 STA $3900,X STA $399C,X TXA SEC SBC #19 TAX LDA #131 STA $3900,X STA $399C,X TXA CLC ADC #39 TAX DEY BNE A8+48 LDY #5 LDX #4 A9 LDA #133 STA $3900,X STA $3A73,X LDA #64 INX STA $3A73,X DEX DEX STA $3900,X INX TXA CLC ADC #19 TAX DEY BNE A9 LDY #5 LDX #15 LDA #134 STA $3900,X STA $3A55,X LDA #64 INX STA $3900,X DEX DEX STA $3A55,X INX TXA CLC ADC #21 TAX DEY BNE A9+32 LDX #131 STX $3964 INX STX $3A63 LDA #0 LDX #16 STA CH,X DEX BNE A9+73 ;COLORS LDX #5 LDA CTB-1,X STA 707,X DEX BNE A9+81 LDA #$1E STA 706 STA 707 LDA $E2 STA $B0 JSR LEVC LDX #$39 STX S+1 INX STX S+3 LDA $B3 CMP #1 BEQ START+11 ;LOOP B1 LDA 53279 STA 53250 STA 53251 CMP #6 BEQ START CMP #3 BEQ OPT CMP #5 BEQ SEL JMP B1 SEL LDX $B0 INX CPX #10 BCC C3 LDX #1 C3 STX $B0 STX $E2 STX 77 JSR LEVC JMP B2 OPT LDX $B1 STX 77 CPX #1 BEQ B2-4 DEX STX $B1 TXA CLC ADC #16 STA $3AEA JMP B2 INX JMP OPT+9 B2 LDA 20 CLC ADC #9 LDX #0 STX 53250 STX 53251 CMP 20 BEQ B1 JMP B2+7 ;START START LDA $E2 STA $B0 LDA #1 STA $B3 JMP A6-3 LDA #0 STA $B3 STA $B8 LDA #19 STA $3ADF LDX $B1 CPX #1 BEQ B3 STA $3AEE B3 LDA #100 STA HPO LDA #130 STA VPO CPX #1 BEQ B3+20 STA VPO+1 LDA #156 STA HPO+1 LDX #10 LDA #0 STA $D3,X DEX BNE B3+24 LDA 53770 AND #15 CLC ADC #3 STA $D5 LDA $B0 CMP #7 BCC G5-2 LDX #1 STX $BA LDY #10 STA ASP CMP #10 BCC G5-2 STX $BB LDY #12 STA ASP+1 LDY $B7 G5 JSR PX DEY BNE G5 LDY #6 LDA #16 STA $3ACA,Y STA $3AD4,Y STA TS2+2,Y STA TS2+12,Y DEY BNE G5+10 LDA $B0 STA $E2 ;MAIN LOOP ML LDA 53279 CMP #6 BNE ML+10 JMP START CMP #7 BCS ML+17 JMP A6-3 LDA #0 STA 77 LDA #$82 STA $3ABA LDA $E0 CMP #45 BCC Q1 JSR SE Q1 JSR SUV LDA 764 CMP #255 BEQ N9 JMP PAUSE N9 LDA $B9 LSR A BCS B5+3 LDA $0278 JSR JOY CPX #0 BEQ B5 LDA $0284 CMP #1 BEQ B5 LDA #0 STA AMO STA APO LDY VMO LDA $3B00,Y AND #252 STA $3B00,Y LDA HPO ADC #3 STA HMO LDA VPO SBC #3 STA VMO STX AMO LDA #0 STA $BD JMP B5+3 B5 STX APO LDA $B1 CMP #2 BNE B6+3 LDA $B9 LSR A LSR A BCS B6+3 LDA $0279 JSR JOY CPX #0 BEQ B6 LDA $0285 CMP #1 BEQ B6 LDA #0 STA AMO+1 STA APO+1 LDY VMO+1 LDA $3B00,Y AND #243 STA $3B00,Y LDA HPO+1 ADC #3 STA HMO+1 LDA VPO+1 SBC #3 STA VMO+1 STX AMO+1 LDA #0 STA $BD JMP B6+3 B6 STX APO+1 LDA $CF CMP $B4 BCS MLA-4 JMP C2 LDA #0 STA $CF ;LASER MOVE MLA LDY #4 LDA XLA-1,Y CMP #0 BNE I1 DEY BNE MLA+2 JMP C2 I1 LDX #2 CPY #3 BCS I1+8 LDX #0 STA S,X LDA LMN+3,Y STA (S,X) STX $C3 LDA 53770 AND #1 CPY #3 BEQ I2 CPY #1 BEQ I2 CLC ADC #2 I2 CLC ADC #1 STA $C2 TAX LDA XLA-1,Y CLC ADC LVC-1,X LDX $C3 STA S,X LDA (S,X) CMP LMN+3,Y BEQ I4+4 LDX $C2 CPX #1 BEQ I4 CPX #3 BEQ I4 DEX TXA JMP I2+3 I4 INX JMP I4-6 LDA S,X STA XLA-1,Y LDA LMN-1,Y STA (S,X) JMP MLA+9 C9 JMP E4 ;PULSAR MOVE C2 LDA $D6 CMP #1 BCS C9 LDA $B0 CMP #4 BCC C9 LDA $CE CMP $B4 BCC C9 LDA #0 STA $CE LDA $D5 CMP #0 BEQ C2+30 DEC $D5 LDY XPL LDX BPL STY S,X LDA #131 STA (S,X) TYA CMP #180 BNE C7 LDA #236 STA XPL LDX #2 STX BPL JMP C7+9 C7 CMP #80 BNE C7+9 LDX #0 STX BPL LDA XPL CLC ADC #20 STA XPL STA S,X LDA #89 STA (S,X) LDA $B0 CMP #7 BCC C9 LDY XPL+1 LDX BPL+1 STY S,X LDA #132 STA (S,X) TYA CMP #19 BNE C8 LDX #0 STX BPL+1 LDA #219 STA XPL+1 JMP C8+9 C8 CMP #119 BNE C8+9 LDX #2 STX BPL+1 LDA XPL+1 SEC SBC #20 STA XPL+1 STA S,X LDA #90 STA (S,X) ;PULSAR FIRE E4 LDA $B0 CMP #4 BCS D8-9 JMP CS LDA $D5 CMP #0 BEQ D8 JMP CS D8 LDA $D6 CMP #1 BEQ D9 CMP #2 BEQ E1 INC $D6 LDA #50 STA $D7 LDA #200 STA $D205 LDA #163 STA $D204 LDA #252 STA $BE JMP CS D9 LDA $D7 CMP #0 BEQ D9+9 JMP CS LDA #30 STA $D7 INC $D6 LDA #211 STA $C4 E2 LDX BPL LDY XPL INY STY S,X TYA LDY #18 LDA $C4 STA (S,X) INC S,X DEY BNE E2+14 LDA #0 STA $BE LDA $B0 CMP #7 BCS B4 JMP CS B4 LDX BPL+1 LDY XPL+1 DEY STY S,X LDY #18 LDA $C4 STA (S,X) DEC S,X DEY BNE B4+13 JMP CS E1 LDA $D7 CMP #0 BNE CS STA $C4 STA $D6 LDA 53770 AND #15 CLC ADC #3 STA $D5 JMP E2 ;SPIKE CHECK CS LDA $B0 CMP #7 BCS CS+9 JMP E3 LDY #0 LDA HSP,Y CMP #$33 BCC E7 CMP #$C4 BCS E7+9 LDA VSP,Y CMP #$D9 BCS E7-13 CMP #$4F BCC E7+18 JMP E6+9 JSR FA CMP #6 BNE E6 CLC ADC #10 JMP E6 E7 JSR FA CLC ADC #2 JMP E6 JSR FA CLC ADC #10 JMP E6 JSR FA CLC ADC #6 E6 LDX $BA,Y CPX #0 BEQ E6+9 STA ASP,Y LDA $B0 CMP #13 BCC E3 INY CPY #1 BEQ CS+11 ;XENO MOVE E3 LDA $DB CMP $B5 BCS F1 JMP E8 F1 LDA #0 STA $DB LDY $B7 LDA XPO,Y CMP #0 BEQ F2-6 LDX BIT,Y STA S,X LDA (S,X) CMP #1 BEQ F2 LDA #0 STA XPO,Y STA BIT,Y DEC $B8 DEY BNE F1+6 JMP E8 F2 LDX DIR,Y LDA XPO,Y CLC ADC VC2,X LDX BIT,Y CMP #200 BCC F3 JSR H3 F3 STA S,X LDA (S,X) CMP #0 BEQ F5 LDA 53770 AND #7 CLC ADC #1 STA DIR,Y JMP F2-6 F5 LDA S,X STA $C3 STX $C2 LDA XPO,Y LDX BIT,Y STA S,X LDA #0 STA (S,X) LDA $C3 LDX $C2 STA S,X STA XPO,Y TXA STA BIT,Y LDA #1 STA (S,X) JMP F2-6 ;PUT XENO PX LDA $B8 CMP $B7 BCC G6 RTS G6 LDA #5 STA $C3 LDA XPO,Y CMP #0 BEQ G6+12 RTS LDA 53770 AND #2 TAX STA BIT,Y LDA 53770 AND #7 CPX #2 BEQ F6 CLC ADC #26 STA XPO,Y JMP F6+6 F6 CLC ADC #166 STA XPO,Y STA S,X LDA (S,X) CMP #0 BEQ F7 LDA #0 STA XPO,Y DEC $C3 LDA $C3 CMP #0 BNE G6+12 LDA 53770 AND #7 CLC ADC #1 STA DIR,Y RTS F7 INC $B8 LDA #1 STA (S,X) RTS E8 LDY $B7 JSR PX DEY BNE E8+2 ;PUT LAS SHOT PLS LDY #4 LDA XSH,Y CMP #0 BEQ H4 DEY BNE PLS+2 JMP CMLS H4 LDA XLA-1,Y CMP #0 BEQ PLS+9 CLC ADC LSV-1,Y LDX #0 CPY #3 BCC H5 LDX #2 H5 STA S,X LDA (S,X) CMP #0 BNE PLS+9 LDA S,X STA XSH,Y TXA STA BSH,Y LDA LSV+3,Y STA (S,X) JMP PLS+9 ;CH LAS MOVE CMLS LDA $D8 CMP #0 BEQ CMLS+9 JMP CC LDX #5 LDY #3 G7 CPY $B0 BCS MLS-2 INY INY INY DEX JMP G7 STX $D8 ;MOVE LAS SHOT MLS LDY #4 LDX BSH,Y LDA XSH,Y STA S,X LDA (S,X) CMP CLS-1,Y BCC H6 LDA #0 STA XSH,Y STA BSH,Y DEY BNE MLS+2 JMP CC H6 CMP CLS+3,Y BCS H6+8 JMP H6-14 CMP CLS+7,Y BEQ H7 CPY #3 BCS H7-8 CLC ADC #1 STA (S,X) JMP H6-6 SEC SBC #1 STA (S,X) JMP H6-6 H7 LDA #0 STA (S,X) LDA XSH,Y CLC ADC LSV-1,Y LDX BSH,Y CMP #200 BCC H8 JSR H3 H8 STA S,X LDA (S,X) CMP #0 BEQ H8+11 JMP H6-14 TXA STA BSH,Y LDA S,X STA XSH,Y LDA CLS+3,Y CPY #3 BCS H9 STA (S,X) JMP H6-6 H9 CLC ADC #3 JMP H9-5 ;CHECK COLIS CC LDA #0 STA $C0 LDA 53252 CMP #0 BEQ K1 STA HPO JSR K6 K1 LDA 53260 CMP #0 BEQ K2 STA HPO JSR K6 K2 LDA 53253 CMP #0 BEQ K2+13 STA HPO+1 JSR K8 LDA 53261 CMP #0 BEQ K3 STA HPO+1 JSR K8 K3 LDY #0 LDA 53248,Y CMP #0 BEQ M1-5 LSR A PHA BCC K4 JSR LOC LDA #0 STA (S,X) LDX #10 STX $DE JSR ADS LDA #25 STA $BF K4 PLA LSR A BCC K5 JSR LOC LDA (S,X) CMP #75 BCS K5 SEC SBC #71 TAX LDA LMN+4,X PHA LDA #0 STA XLA,X PLA LDX $C1 STA (S,X) LDX #50 STX $DE JSR ADS LDA #25 STA $BF K5 INC $C0 LDA #0 STA AMO,Y STA HMO,Y INY CPY #1 BEQ K3+2 M1 LDY #0 LDA 53256,Y LSR A PHA BCC M2 CPY #1 BNE M2 LDA $B9 LSR A BCS M2 STY HPO JSR K6 LDY #1 LDX #250 STX $DE JSR ADS LDA #25 STA $BF M2 PLA LSR A PHA BCC M3 CPY #0 BNE M3 LDA $B9 LSR A LSR A BCS M3 STY HPO+1 JSR K8 LDX #250 STX $DE JSR ADS LDA #25 STA $BF M3 PLA LSR A PHA BCC M4 LDA #0 STA ASP STA HSP STA VSP STA $BA STA HMO,Y STA AMO,Y LDX #100 STX $DE JSR ADS LDA #25 STA $BF LDX #0 TXA STA $3E00,X DEX BNE M4-8 INC $C0 M4 PLA LSR A BCC M5 LDA #0 STA ASP+1 STA HSP+1 STA VSP+1 STA $BB STA HMO+1 STA AMO+1 LDX #100 STX $DE JSR ADS LDA #25 STA $BF LDX #0 TXA STA $3F00,X DEX BNE M5-8 INC $C0 M5 INY CPY #1 BNE M5+8 JMP M1+2 LDA $C0 CMP #0 BEQ M5+14 STA 53278 ;TIMER&CD LDA 20 CMP #16 BCS O7 JMP CD O7 LDA #0 STA 20 LDA $3AE7 CMP #16 BEQ O8 DEC $3AE7 JMP CD O8 LDA $3AE6 CMP #16 BEQ O9 DEC $3AE6 LDA #25 STA $3AE7 JMP CD O9 LDA $B0 CMP #15 BCS O9+8 INC $B0 JSR LEVC LDA #25 STA $3AE6 STA $3AE7 CD LDA $3AEE CMP #16 BEQ CD+10 JMP P3-2 LDA $3ADF CMP #16 BNE P3-2 JMP BD LDX #2 P3 LDA HMO-1,X CMP #$2F BCC P2 CMP #$CC BCS P2 LDA VMO-1,X CMP #$43 BCC P2 CMP #$DF BCS P2 DEX BNE P3 JMP ML P2 LDA #0 STA AMO-1,X STA HMO-1,X JMP P2-6 ;LOCATE LOC LDA #0 STA AMO,Y INC $C0 LDA HMO,Y SEC SBC #47 LDX #0 L1 CMP #8 BCC L2 SEC SBC #8 INX JMP L1 L2 STX $C2 LDA VMO,Y SEC SBC #64 LDX #0 CMP #8 BCC L3 SEC SBC #8 INX JMP L2+10 L3 STX $C3 CPX #10 BCS L4 LDA #0 STA $C1 LDA $C2 CPX #0 BEQ L4-5 L5 CLC ADC #20 DEX BNE L5 LDX $C1 STA S,X RTS L4 LDA #2 STA $C1 TXA SEC SBC #10 TAX JMP L5-6 ;HIT PLAYER K6 INC $C0 LDA $B9 LSR A BCS K7+28 LDA #0 STA $E0 STA $BF LDX $3ADF CPX #16 BEQ K7+27 DEX STX $3ADF LDA $B9 ORA #1 STA $B9 LDY VPO LDX #8 LDA #0 K7 STA $3C00,Y DEY DEX BNE K7 STA APO LDX $3ADF CPX #16 BEQ K7+27 LDA #100 STA HPO LDA #130 STA VPO RTS LDA #100 STA HPO RTS K8 INC $C0 LDA $B9 LSR A LSR A BCS K9+28 LDA #0 STA $E0 STA $BF LDX $3AEE CPX #16 BEQ K9+27 DEX STX $3AEE LDA $B9 ORA #2 STA $B9 LDY VPO+1 LDX #8 LDA #0 K9 STA $3D00,Y DEY DEX BNE K9 STA APO+1 LDX $3AEE CPX #16 BEQ K9+27 LDA #156 STA HPO+1 LDA #130 STA VPO+1 RTS LDA #156 STA HPO+1 RTS ;STAT EXIS SE LDA $B9 LSR A BCC L7 LDA $3ADF CMP #17 BCC L7 LDA $0284 CMP #0 BNE L7 LDA $B9 AND #2 STA $B9 L7 LDA $B1 CMP #2 BNE L6 LDA $B9 LSR A LSR A BCC L6 LDA $3AEE CMP #17 BCC L6 LDA $0285 CMP #0 BNE L6 LDA $B9 AND #1 STA $B9 L6 RTS ;ADS ADS PHA TYA PHA CMP #1 BEQ N1 LDY #6 STY $DD N2 LDA $B0 PHA LDA $3ACA,Y CMP #25 BCS N3 ADC #1 STA $3ACA,Y CPY #12 BEQ N6+3 CPY #2 BEQ N5 LDY $DD DEX BNE N2+3 LDX $DE DEC $B0 BNE N2+3 PLA STA $B0 PLA TAY PLA RTS N1 LDY #16 JMP N2-2 N3 LDA #16 STA $3ACA,Y CPY #11 BEQ N3+12 DEY BNE N2+3 LDY $DD JMP N2+3 N5 LDY #0 LDA $3ADF,Y CMP #25 BEQ N6 CLC ADC #1 STA $3ADF,Y LDA #252 STA $E3 LDA #0 STA $E6 N6 JMP N2+23 LDY #15 JMP N5+2 ;SCORE UP VBI SUV LDA $DA CMP #0 BEQ SUV+7 RTS LDA 20 CMP #4 BEQ P1 CMP #8 BEQ P1 CMP #12 BEQ P1 RTS P1 LDA #1 STA $DA LDA $B9 LSR A PHA BCS N4 LDX #1 LDY #0 STX $DE JSR ADS N4 PLA LSR A BCS N4+13 LDX #1 LDY #1 STX $DE JSR ADS RTS ;PUT PUT LDX #4 LDA XLA-1,X CMP #0 BEQ O1 DEX BNE PUT+2 JMP O2 O1 LDA XAL-1,X STA XLA-1,X JMP PUT+9 O2 LDA $B0 CMP #4 BCC O3 LDA XPL CMP #0 BNE O4 LDA BPL CMP #2 BEQ O4 LDA #100 STA XPL O4 LDA $B0 CMP #7 BCC O3 LDA XPL+1 CMP #0 BNE O5 LDA #99 STA XPL+1 LDA #2 STA BPL+1 O5 LDX #0 LDA HSP,X CMP #0 BNE O6 LDA #72 STA VSP,X LDA #128 STA HSP,X LDA #1 STA $BA,X STA 53250 STA 53251 O6 INX CPX #2 BCS O3 LDA $B0 CMP #10 BCS O5+2 O3 RTS ;PAUSE PAUSE LDA #255 STA 764 LDA $BE PHA LDA #251 STA $BE LDA $B0 PHA LDA #1 STA $B0 LDA #0 LDX AMO LDY AMO+1 STA AMO STA AMO+1 LDA $D01F CMP #6 BNE N8 PLA STA $B0 PLA JMP START N8 CMP #7 BCS N8+11 PLA STA $B0 PLA JMP A6-3 LDA $0279 CMP #15 BEQ N8+21 JMP BD-15 LDA $0278 CMP #15 BEQ N8-14 STX AMO STY AMO+1 PLA STA $B0 PLA STA $BE JMP N9 ;Hscore&Death BD LDY #0 LDA $3ACB,Y CMP $39D5,Y BCC P4 BNE P5 INY CPY #6 BCC BD+2 P4 LDY #0 LDA $3AD5,Y CMP $39D5,Y BCC P6 BNE P7 INY CPY #6 BCC P4+2 JMP P6 P5 LDY #6 LDA $3ACA,Y STA $39D4,Y STA TS1+12,Y DEY BNE P5+2 JMP P4 P7 LDY #6 LDA $3AD4,Y STA $39D4,Y STA TS1+12,Y DEY BNE P7+2 P6 LDY #6 LDA $3ACA,Y STA TS2+2,Y LDA $3AD4,Y STA TS2+12,Y DEY BNE P6+2 JMP A6-3 *= $02E0 .WORD RUN .END