A.N.A.L.O.G. ISSUE 67 / DECEMBER 1988 / PAGE 10
Your name is Jon Russel. You’re a freelance soldier, not to mention a rogue and a scoundrel to boot. That’s okay, though, your friends are the same way. So what are you doing here, sweat dripping from your brow, disrupter pistol at the ready? Well, it seems that during your travels through Space-time with your friends, you have discovered the world of the DungeonLords. Furthermore, while you were hunting a Bantha for dinner, your friends were taken prisoner by the DungeonLords and locked away in the dungeons. So what does a true, blue-blooded freelance rogue like yourself do? What else can do you? Traveling through Space-time by yourself can be lonely. So here you are and before you lie the dungeons: evil, dank and smelly. Do you have your pistol ready?
Listing 1 is the BASIC data used to create DungeonLords. You should refer to the M/L Editor article for typing instructions.
In DungeonLords, each dungeon is created randomly so that you should never encounter the same dungeon twice. The object is to rescue as many of the prisoners as possible. Therefore you will want to get to the next level as quickly as possible. To do this, find all the keys around the maze and use them to unlock the doors guarding the exit. Remember, only one key can be carried at a time.
Every fourth level is the Prison level. To exit this level, you must first rescue the prisoner by touching him. When this feat is accomplished, the exit will appear at the other end of the maze.
There are three types of monsters: snakes, birds and horned demons. Killing any one of these will get you one point. Exiting a dungeon gives you 1,000 points, as does rescuing a prisoner. You may also collect 100 points for each treasure collected around the maze. Every 10,000 points gives you an extra life. The score is displayed at the bottom of the screen. To the right of the score is the level, and to the left are the remaining lives.
Monsters do not shoot, but are deadly to the touch. Each monster will enter the maze via a transporter. These are glowing doorways scattered around the maze. However, monsters will only appear in a transporter when it is glowing red. When it is pulsating blue, it is fairly safe to be around. Once the monsters enter the maze they will wander around the corridors in search of you. If one enters the same corridor you are in and he doesn’t have his back to you, he will certainly spot you. If this happens, the monster that sees you will raise an inaudible alarm telling his comrades where you are. Then all of his friends will converge upon the spot you were seen last. Remember, it’s not where you are, but where you were seen last! Use this to your advantage. If you wish to lure the monsters away from an area, allow one of them to see you and follow you away from that area; then kill all of the monsters that saw you and escape. The remaining monsters will rush to where they heard you were last. When they discover that you are no longer there, they will start searching for you starting from that point. Hopefully by that time, you will have made it to where you were going.
To control your on-screen character, use a joystick in Port 1. Simply push this joystick in the desired direction, and Jon Russel will move that way. He will continue moving in that direction until he runs into something, or you change direction. To shoot you have an option; you can use the same joystick for movement as for shooting. To do this, push the fire button down (keep it down), and push the joystick in the direction that you wish to fire. Remember, though, when the button is pressed the joystick controls the firing direction not the movement. The player will continue moving in the direction that he was moving in before the button was pressed. This allows you to move in one direction and fire in another. The alternative for firing is to use the joystick in Port 1 for movement and the joystick in Port 2 for firing. If you do this, you do not need to push the fire button on the second joystick. Simply push it in whatever direction, and that will be the direction in which you are shooting. The pistol that you are using is a unifield disrupter pistol that works on the principle of a concentrated disruption in four-space. This means that you can only have one shot in the air at a time, which leaves you defenseless until the disruption hits something. Therefore, shorter corridors are safer than longer ones, because you can shoot faster.
To make play easier, you can have a friend join you. One person can handle movement on the first joystick, and the other can take control of firing on the second joystick.
Okay, are we all ready to enter the dungeons? Good! Just press Start, and we are off!
1000 DATA 255,255,71,34,0,57,112,112,112,112,112,71,102,34,70,122,3152 1010 DATA 34,112,112,71,162,34,70,142, 34,112,112,112,70,182,34,70,3618 1020 DATA 0,57,65,71,34,32,32,32,32,10 0,117,110,103,101,111,110,2528 1030 DATA 108,111,114,100,115,32,32,32 ,32,32,32,98,121,32,98,114,800 1040 DATA 105,97,110,32,98,114,97,100, 108,101,121,32,32,32,112,114,2515 1050 DATA 101,115,115,32,115,116,97,11 4,116,32,116,111,32,112,108,97,3844 1060 DATA 121,32,32,32,32,32,32,231,22 5,237,229,32,239,246,229,242,5049 1070 DATA 32,32,32,32,32,32,32,32,32,3 2,32,32,32,243,227,239,4613 1080 DATA 242,229,32,32,32,32,32,32,32 ,169,0,162,0,160,0,153,1446 1090 DATA 0,57,200,192,0,208,248,238,2 10,34,232,224,16,208,238,169,4324 1100 DATA 56,141,7,212,169,126,141,47, 2,169,3,141,29,208,141,15,4348 1110 DATA 210,169,0,141,200,2,160,0,15 3,128,0,200,192,128,208,248,787 1120 DATA 169,8,141,194,2,169,119,141, 0,208,141,1,208,141,2,208,7168 1130 DATA 32,171,39,169,212,141,192,2, 141,198,2,169,224,141,244,2,9440 1140 DATA 169,0,141,196,2,141,199,2,16 9,71,141,48,2,169,70,141,4837 1150 DATA 193,2,141,197,2,169,34,141,4 9,2,173,31,208,201,6,208,6620 1160 DATA 249,169,250,141,199,2,169,48 ,141,244,2,169,180,141,48,2,6460 1170 DATA 169,47,141,49,2,169,1,133,17 7,32,172,46,76,28,35,32,921 1180 DATA 102,35,76,122,35,162,1,169,5 5,56,228,178,144,2,169,0,4708 1190 DATA 157,132,56,232,224,8,208,241 ,96,162,0,169,0,133,174,157,8755 1200 DATA 32,6,189,64,6,201,0,240,14,1 81,184,133,143,181,216,133,540 1210 DATA 144,32,202,40,157,64,6,232,2 24,32,208,227,32,212,42,169,9317 1220 DATA 8,133,149,169,48,133,150,96, 32,96,35,165,177,56,233,1,5682 1230 DATA 74,74,133,169,230,169,10,10, 10,10,133,134,169,6,56,229,4887 1240 DATA 134,141,197,2,32,212,42,169, 0,133,175,133,139,133,136,173,8661 1250 DATA 10,210,41,7,133,140,173,10,2 10,41,7,24,105,8,133,141,3020 1260 DATA 162,0,134,143,165,136,133,14 4,32,41,38,169,0,145,128,232,6926 1270 DATA 224,64,208,238,230,136,169,2 1,197,136,208,228,162,0,169,0,9313 1280 DATA 133,144,134,143,32,247,37,16 9,20,133,144,32,247,37,232,232,327 1290 DATA 224,62,208,234,162,2,169,0,1 33,143,134,144,32,247,37,169,8165 1300 DATA 60,133,143,32,247,37,232,232 ,224,20,208,234,169,56,133,143,1696 1310 DATA 162,2,134,144,32,247,37,232, 232,224,18,208,245,32,39,39,8075 1320 DATA 169,0,133,143,169,4,133,144, 32,108,39,169,2,133,143,133,5398 1330 DATA 144,32,247,37,169,4,133,143, 32,247,37,169,0,133,138,169,7200 1340 DATA 4,133,137,162,4,134,143,165, 137,133,144,169,0,133,138,32,6433 1350 DATA 41,38,177,128,201,0,240,3,76 ,132,37,32,247,37,173,10,4498 1360 DATA 210,41,3,201,3,208,7,198,144 ,198,144,76,70,37,201,2,5608 1370 DATA 208,7,230,144,230,144,76,70, 37,201,1,208,7,198,143,198,8990 1380 DATA 143,76,169,36,230,143,230,14 3,165,143,133,145,165,144,133,146,1698 1390 DATA 56,233,4,133,144,32,41,38,17 7,128,201,0,240,2,230,138,7849 1400 DATA 160,191,177,128,201,0,240,2, 230,138,160,194,177,128,201,0,332 1410 DATA 240,2,230,138,165,138,56,201 ,2,144,3,76,132,37,165,145,5981 1420 DATA 133,143,165,146,133,144,32,4 1,38,177,128,201,0,240,3,76,5552 1430 DATA 132,37,165,139,230,139,197,1 40,208,5,169,175,76,24,37,197,8082 1440 DATA 141,208,5,169,175,76,24,37,1 73,10,210,41,63,56,197,177,6332 1450 DATA 144,3,76,64,37,169,167,32,30 ,37,76,132,37,133,138,32,2693 1460 DATA 41,38,165,138,145,128,160,1, 230,138,165,138,145,128,160,96,9779 1470 DATA 230,138,165,138,145,128,160, 97,230,138,165,138,145,128,96,32,8962 1480 DATA 247,37,76,132,37,165,143,133 ,145,198,143,198,143,165,144,133,1488 1490 DATA 146,198,144,198,144,32,41,38 ,177,128,201,0,240,2,230,138,8649 1500 DATA 160,191,177,128,201,0,240,2, 230,138,160,128,230,129,177,128,2031 1510 DATA 201,0,240,2,230,138,165,138, 56,201,2,144,3,76,132,37,4615 1520 DATA 76,223,36,232,232,232,232,22 4,56,240,3,76,102,36,165,137,9392 1530 DATA 24,105,4,133,137,201,20,240, 3,76,100,36,169,58,133,143,5870 1540 DATA 169,6,133,144,169,179,32,30, 37,169,8,133,144,169,179,32,6221 1550 DATA 30,37,169,56,133,143,169,0,1 33,144,32,108,39,169,58,133,5247 1560 DATA 143,169,2,133,144,165,177,41 ,3,201,0,208,5,169,232,76,7516 1570 DATA 213,37,169,244,32,30,37,165, 177,41,7,201,0,208,22,169,5697 1580 DATA 10,133,144,169,179,32,30,37, 169,54,133,143,169,2,133,144,6321 1590 DATA 169,175,32,30,37,96,32,41,38 ,32,23,38,160,0,145,128,1312 1600 DATA 32,32,38,160,1,145,128,32,32 ,38,160,96,145,128,32,23,2582 1610 DATA 38,160,97,145,128,96,173,10, 210,41,3,24,105,1,96,173,3554 1620 DATA 10,210,41,3,24,105,5,96,169, 0,133,134,133,135,133,129,6008 1630 DATA 165,144,133,128,160,0,165,12 9,10,133,129,165,128,10,144,3,4812 1640 DATA 230,129,24,133,128,200,192,5 ,208,8,165,128,133,134,165,129,9403 1650 DATA 133,135,192,6,208,224,165,12 9,24,101,135,133,129,165,128,24,7822 1660 DATA 101,134,144,3,230,129,24,133 ,128,165,129,24,105,64,133,129,6458 1670 DATA 165,128,24,101,143,144,2,230 ,129,24,105,20,144,2,230,129,6210 1680 DATA 133,128,160,0,96,32,25,39,16 9,129,133,138,198,143,32,223,8262 1690 DATA 38,198,143,201,0,240,247,165 ,143,133,139,32,25,39,169,1,5798 1700 DATA 133,138,230,143,32,223,38,23 0,143,201,0,240,247,165,143,133,2946 1710 DATA 140,32,25,39,169,224,133,138 ,198,144,32,223,38,198,144,201,1261 1720 DATA 0,240,247,165,144,133,141,32 ,25,39,169,96,133,138,230,144,9403 1730 DATA 32,223,38,230,144,201,0,240, 247,165,144,133,142,96,165,138,2014 1740 DATA 41,127,133,134,165,138,41,12 8,201,0,240,14,165,128,56,229,8992 1750 DATA 134,176,2,198,129,133,128,76 ,6,39,165,128,24,101,134,144,5816 1760 DATA 2,230,129,133,128,160,0,177, 128,232,201,0,240,7,201,55,8953 1770 DATA 240,3,169,1,96,169,0,96,162, 0,165,147,133,143,165,148,8400 1780 DATA 133,144,32,41,38,96,173,10,2 10,41,3,24,105,3,10,10,8856 1790 DATA 133,143,24,105,2,133,157,173 ,10,210,41,3,10,10,133,144,3238 1800 DATA 24,105,2,133,158,32,108,39,1 73,10,210,41,3,24,105,9,1175 1810 DATA 10,10,133,143,24,105,2,133,1 59,173,10,210,41,3,10,10,1315 1820 DATA 133,144,24,105,2,133,160,32, 108,39,96,169,17,32,30,37,1074 1830 DATA 230,144,230,144,169,9,32,30, 37,198,144,198,144,230,143,230,2167 1840 DATA 143,169,21,32,30,37,230,143, 230,143,169,25,32,30,37,230,6368 1850 DATA 144,230,144,169,13,32,30,37, 230,144,230,144,32,247,37,165,9162 1860 DATA 143,56,233,4,133,143,32,247, 37,96,160,197,162,39,169,6,7253 1870 DATA 32,92,228,162,0,169,157,157, 142,56,232,224,7,208,248,169,3292 1880 DATA 51,133,133,96,169,64,133,183 ,165,149,74,74,41,254,133,182,277 1890 DATA 160,4,165,182,153,180,47,200 ,165,183,153,180,47,165,182,24,248 1900 DATA 105,96,144,2,230,183,133,182 ,200,200,192,70,208,228,165,149,4779 1910 DATA 41,7,73,7,141,4,212,76,95,22 8,32,254,39,133,136,41,6633 1920 DATA 12,201,0,208,3,76,24,40,201, 8,208,2,230,143,201,4,6397 1930 DATA 208,21,198,143,76,40,40,165, 136,41,3,201,2,208,2,230,6293 1940 DATA 144,201,1,208,2,198,144,165, 136,96,133,136,41,12,201,0,5842 1950 DATA 240,2,73,12,133,134,165,136, 41,3,201,0,240,2,73,3,3074 1960 DATA 24,101,134,96,169,8,133,171, 96,32,69,40,162,168,134,170,7775 1970 DATA 162,192,134,132,162,4,32,222 ,40,169,171,32,30,37,169,171,6774 1980 DATA 96,165,175,201,1,208,1,96,32 ,69,40,162,168,134,170,162,8327 1990 DATA 208,134,132,169,1,133,175,32 ,202,40,169,0,96,165,175,201,9298 2000 DATA 0,240,21,32,69,40,162,168,13 4,170,162,200,134,132,169,0,8947 2010 DATA 133,175,32,202,40,169,0,96,1 69,171,96,32,69,40,162,168,6625 2020 DATA 134,170,162,224,134,132,32,2 02,40,162,3,32,222,40,169,0,5556 2030 DATA 133,143,169,2,133,144,32,108 ,39,169,2,133,143,169,4,133,5653 2040 DATA 144,169,244,32,30,37,169,0,9 6,32,41,38,169,0,145,128,3448 2050 DATA 160,1,145,128,160,96,145,128 ,160,97,145,128,96,169,1,133,7872 2060 DATA 134,165,134,201,1,208,45,224 ,2,208,20,230,178,134,134,32,8880 2070 DATA 102,35,32,69,40,169,224,133, 132,169,168,133,170,166,134,169,2030 2080 DATA 0,133,134,189,142,56,24,105, 1,201,167,208,4,169,157,230,363 2090 DATA 134,157,142,56,202,224,255,2 08,200,96,169,146,133,134,165,179,4306 2100 DATA 56,201,128,144,4,169,68,133, 134,165,20,41,7,24,101,134,3746 2110 DATA 141,196,2,173,0,211,41,12,73 ,12,201,0,240,5,133,153,5611 2120 DATA 76,77,41,173,0,211,41,3,73,3 ,133,153,165,149,74,74,5253 2130 DATA 41,254,133,147,165,149,41,7, 201,0,240,3,76,17,42,165,4709 2140 DATA 150,74,74,74,41,254,133,148, 165,150,41,15,201,0,240,3,6677 2150 DATA 76,17,42,165,155,201,0,240,5 5,165,153,201,0,240,49,165,9922 2160 DATA 147,133,143,165,148,133,144, 165,153,32,251,39,32,41,38,177,6846 2170 DATA 128,201,167,208,3,32,74,40,2 01,175,208,3,32,98,40,201,6565 2180 DATA 0,240,9,56,201,52,144,8,201, 171,240,4,165,153,133,156,285 2190 DATA 165,147,133,143,165,148,133, 144,165,156,32,251,39,32,41,38,6003 2200 DATA 177,128,201,167,208,3,32,74, 40,201,175,208,3,32,98,40,5166 2210 DATA 201,179,208,3,32,126,40,201, 244,208,2,230,174,201,232,208,5151 2220 DATA 3,32,156,40,201,0,240,16,56, 201,52,144,7,201,171,240,9852 2230 DATA 3,76,249,41,169,0,133,156,16 5,149,133,143,165,150,133,144,1018 2240 DATA 165,156,32,254,39,165,143,13 3,149,165,144,133,150,76,48,42,7656 2250 DATA 165,155,201,0,240,226,165,15 3,201,0,208,3,76,249,41,165,125 2260 DATA 156,32,43,40,197,153,208,4,1 65,153,133,156,76,249,41,165,239 2270 DATA 156,201,0,240,37,165,176,41, 128,201,0,240,16,165,176,24,8107 2280 DATA 105,18,201,218,208,2,169,72, 133,176,76,91,42,165,176,56,7984 2290 DATA 233,18,201,238,208,2,169,128 ,133,176,169,32,133,128,169,60,9589 2300 DATA 133,129,165,156,201,8,208,8, 169,96,133,130,169,55,133,131,8945 2310 DATA 201,4,208,8,169,0,133,130,16 9,52,133,131,201,2,208,8,6956 2320 DATA 169,32,133,130,169,53,133,13 1,201,1,208,8,169,64,133,130,7985 2330 DATA 169,54,133,131,201,0,208,3,7 6,129,42,165,176,41,127,24,5582 2340 DATA 101,130,144,2,230,131,133,13 0,165,128,24,101,150,144,2,230,8965 2350 DATA 129,133,128,162,0,160,0,177, 130,145,128,200,192,18,208,247,2401 2360 DATA 165,130,24,105,90,144,2,230, 131,133,130,230,129,232,224,3,1477 2370 DATA 208,227,96,169,32,133,128,16 9,60,133,129,162,0,142,30,208,8201 2380 DATA 160,0,169,0,145,128,200,192, 170,208,249,230,129,232,224,3,4918 2390 DATA 208,238,96,169,0,133,137,181 ,184,56,197,151,144,12,56,229,9982 2400 DATA 151,133,134,169,4,133,164,76 ,22,43,165,151,56,245,184,133,9770 2410 DATA 134,169,8,133,164,181,216,56 ,197,152,144,15,56,229,152,133,703 2420 DATA 135,165,164,24,105,1,133,164 ,76,58,43,165,152,56,245,216,9855 2430 DATA 133,135,165,164,24,105,2,133 ,164,165,135,56,197,134,176,35,8732 2440 DATA 169,12,133,138,32,211,43,201 ,1,208,3,76,138,43,169,3,4932 2450 DATA 133,138,32,211,43,201,1,208, 3,76,138,43,165,164,32,43,5321 2460 DATA 40,133,164,169,3,133,138,32, 211,43,201,1,208,3,76,138,6615 2470 DATA 43,169,12,133,138,32,211,43, 201,1,208,3,76,138,43,165,6470 2480 DATA 164,32,43,40,133,164,76,65,4 3,181,184,133,143,181,216,133,1276 2490 DATA 144,189,0,6,32,254,39,165,14 3,149,184,165,144,149,216,96,1828 2500 DATA 169,0,133,137,173,10,210,41, 3,201,0,208,2,160,5,201,6429 2510 DATA 1,208,2,160,9,201,2,208,2,16 0,6,201,3,208,2,160,6139 2520 DATA 10,132,164,173,10,210,41,1,2 01,0,240,3,76,65,43,76,3827 2530 DATA 100,43,169,0,133,165,230,137 ,169,4,56,197,137,144,16,189,9186 2540 DATA 0,6,32,43,40,133,136,165,164 ,37,138,197,136,240,55,181,667 2550 DATA 184,133,143,181,216,133,144, 165,164,37,138,32,251,39,32,41,7052 2560 DATA 38,177,128,201,0,240,20,56,2 01,166,144,5,56,201,193,144,22 2570 DATA 21,56,201,55,144,16,56,201,2 31,176,11,169,1,133,165,165,9320 2580 DATA 164,37,138,157,0,6,165,165,9 6,169,0,133,166,166,167,189,532 2590 DATA 64,6,201,0,208,65,173,10,210 ,56,197,177,144,3,76,56,6681 2600 DATA 45,165,179,56,201,128,176,3, 76,56,45,173,10,210,41,1,4281 2610 DATA 201,1,240,24,165,157,149,184 ,165,158,149,216,165,177,45,10,665 2620 DATA 210,41,3,24,105,1,157,64,6,7 6,120,44,165,159,149,184,7371 2630 DATA 165,160,149,216,76,93,44,181 ,216,133,144,181,184,133,143,32,1061 2640 DATA 202,40,181,184,41,1,201,0,24 0,3,76,144,45,181,216,41,7588 2650 DATA 1,201,0,240,3,76,144,45,181, 184,197,147,208,57,181,216,2925 2660 DATA 56,197,141,144,50,56,197,142 ,176,45,165,148,56,213,216,144,2089 2670 DATA 10,189,0,6,201,1,240,31,76,1 95,44,189,0,6,201,2,4538 2680 DATA 240,21,169,1,133,172,133,173 ,160,0,169,1,153,32,6,200,6523 2690 DATA 192,32,208,248,76,5,45,181,2 16,197,148,208,39,181,184,56,1470 2700 DATA 197,139,144,32,56,197,140,17 6,27,165,147,56,213,184,144,10,9432 2710 DATA 189,0,6,201,4,240,13,76,195, 44,189,0,6,201,8,240,7006 2720 DATA 3,76,195,44,181,184,197,151, 208,11,181,216,197,152,208,5,2686 2730 DATA 169,0,157,32,6,165,172,201,0 ,240,12,165,173,133,172,165,1173 2740 DATA 147,133,151,165,148,133,152, 189,32,6,201,1,208,6,32,244,8123 2750 DATA 42,76,56,45,32,161,43,169,0, 133,135,189,64,6,201,0,5085 2760 DATA 240,54,201,1,208,5,169,56,76 ,87,45,201,2,208,5,169,6594 2770 DATA 200,76,87,45,169,216,133,134 ,189,0,6,41,8,201,8,208,6332 2780 DATA 7,165,134,24,105,4,133,134,1 81,184,133,143,181,216,133,144,2491 2790 DATA 165,134,24,101,135,32,30,37, 232,224,32,208,4,162,0,134,6712 2800 DATA 173,230,166,169,8,197,166,24 0,3,76,48,44,134,167,96,32,6786 2810 DATA 138,43,169,8,133,135,76,60,4 5,173,0,211,74,74,74,74,5019 2820 DATA 133,134,41,12,73,12,201,0,24 0,5,133,154,76,211,45,165,8014 2830 DATA 134,41,3,73,3,201,0,240,5,13 3,154,76,211,45,165,153,8765 2840 DATA 133,154,173,16,208,133,155,2 01,0,240,7,165,163,201,0,208,1113 2850 DATA 40,96,165,163,201,0,240,3,76 ,250,45,165,154,201,0,208,741 2860 DATA 1,96,165,147,133,161,165,148 ,133,162,165,154,133,163,32,69,181 2870 DATA 40,169,192,133,132,169,136,1 33,170,165,161,133,143,165,162,133,332 0 2880 DATA 144,32,41,38,169,0,145,128,1 65,163,32,254,39,32,41,38,4940 2890 DATA 177,128,201,0,240,7,169,0,13 3,163,76,42,46,169,55,145,6627 2900 DATA 128,165,143,133,161,165,144, 133,162,160,0,165,143,133,145,165,1760 2910 DATA 144,133,146,165,145,133,143, 165,146,133,144,185,184,0,133,134,1241 2920 DATA 165,143,197,134,240,7,56,233 ,1,197,134,208,63,185,216,0,594 2930 DATA 133,134,165,144,197,134,240, 7,56,233,1,197,134,208,45,185,1425 2940 DATA 64,6,201,0,240,38,169,0,153, 64,6,32,69,40,169,136,4865 2950 DATA 133,170,169,216,133,132,162, 6,32,222,40,185,184,0,133,143,9276 2960 DATA 185,216,0,133,144,132,138,32 ,202,40,164,138,200,192,32,208,1617 2970 DATA 162,96,165,168,24,101,169,13 3,168,56,201,11,176,1,96,56,6517 2980 DATA 233,12,133,168,32,134,38,32, 42,44,96,32,180,39,32,169,4122 2990 DATA 35,169,157,141,152,56,141,15 3,56,169,3,133,178,162,11,32,6787 3000 DATA 222,40,32,96,35,169,0,141,30 ,208,173,5,208,41,6,201,6996 3010 DATA 0,240,81,198,178,169,138,141 ,1,210,133,20,165,20,141,0,6875 3020 DATA 210,201,255,208,247,169,0,14 1,1,210,197,178,208,51,162,0,866 3030 DATA 189,142,56,56,233,13,157,7,5 7,232,224,7,208,242,32,212,1638 3040 DATA 42,169,224,141,244,2,169,71, 141,48,2,169,34,141,49,2,4621 3050 DATA 169,0,141,196,2,133,19,141,1 97,2,165,19,201,3,208,250,106 3060 DATA 96,32,96,35,32,27,41,230,179 ,169,0,133,77,141,30,208,7747 3070 DATA 165,20,56,201,8,144,26,169,0 ,133,20,164,171,192,0,240,8954 3080 DATA 16,136,132,171,177,132,141,0 ,210,166,170,202,134,170,142,1,1224 3090 DATA 210,32,154,45,32,147,46,32,1 47,46,162,32,160,32,136,196,7279 3100 DATA 169,208,251,202,228,169,208, 244,165,174,201,0,240,66,230,177,6570 3110 DATA 162,11,32,222,40,169,0,141,4 7,2,32,169,35,165,177,41,5519 3120 DATA 3,201,1,208,33,169,170,141,1 ,210,169,232,133,132,160,0,586 3130 DATA 132,171,169,0,133,20,177,132 ,141,0,210,165,20,201,10,208,9302 3140 DATA 250,200,192,21,208,236,169,1 26,141,47,2,162,3,32,222,40,7259 3150 DATA 76,203,46,112,112,112,84,252 ,59,84,92,60,84,188,60,84,7125 3160 DATA 28,61,84,124,61,84,220,61,84 ,60,62,84,156,62,84,252,8129 3170 DATA 62,84,92,63,84,188,63,84,28, 64,84,124,64,84,220,64,6225 3180 DATA 84,60,65,84,156,65,84,252,65 ,84,92,66,84,188,66,84,6976 3190 DATA 28,67,84,124,67,84,220,67,68 ,126,56,4,65,180,47,0,3621 3200 DATA 0,0,0,0,0,0,0,59,170,138,138 ,162,170,43,0,63,3864 3210 DATA 251,170,170,168,170,47,0,42, 170,138,130,170,170,42,0,47,6381 3220 DATA 171,170,234,234,251,63,0,240 ,252,188,172,188,252,240,0,240,7694 3230 DATA 252,188,140,60,252,240,0,160 ,168,168,168,168,188,240,0,240,5198 3240 DATA 188,172,168,168,168,160,0,47 ,170,170,170,170,170,47,0,21,7468 3250 DATA 21,21,0,21,21,21,0,240,188,1 72,168,168,168,160,0,21,7584 3260 DATA 21,21,0,21,21,21,0,84,84,84, 0,84,84,84,0,240,3022 3270 DATA 252,188,172,188,252,240,0,84 ,84,84,0,84,84,84,0,63,4418 3280 DATA 250,170,170,170,171,47,0,59, 170,170,170,170,250,63,0,240,1781 3290 DATA 252,188,172,188,252,240,0,24 0,188,172,172,168,168,160,0,42,2222 3300 DATA 170,170,192,197,197,5,0,42,1 70,162,138,170,171,47,0,240,9954 3310 DATA 188,172,188,252,252,240,0,17 6,172,168,0,69,69,69,0,47,6193 3320 DATA 170,170,0,69,69,69,0,42,170, 170,234,250,254,63,0,160,749 3330 DATA 168,168,172,188,252,240,0,24 0,188,172,8,80,80,80,0,42,7014 3340 DATA 170,170,234,250,254,63,0,63, 51,51,51,51,51,63,0,12,1583 3350 DATA 12,12,12,12,12,12,0,63,51,3, 63,48,51,63,0,63,8417 3360 DATA 51,3,15,3,51,63,0,51,51,51,6 3,3,3,3,0,63,7302 3370 DATA 51,48,63,3,51,63,0,63,51,48, 63,51,51,63,0,63,9652 3380 DATA 51,3,15,12,12,12,0,63,51,51, 63,51,51,63,0,63,8993 3390 DATA 51,51,63,3,51,63,0,63,255,25 3,213,221,221,221,213,240,7703 3400 DATA 252,252,92,220,252,252,92,25 3,253,221,213,253,255,63,0,220,8335 3410 DATA 220,220,92,252,252,240,0,63, 255,252,192,192,192,192,192,240,9693 3420 DATA 252,252,12,204,252,252,12,25 2,252,204,192,252,255,63,0,12,3733 3430 DATA 12,12,12,252,252,240,0,0,0,3 ,15,12,15,3,0,0,7786 3440 DATA 0,240,60,12,60,240,192,3,0,0 ,3,0,0,0,0,192,361 3450 DATA 192,192,192,0,0,0,0,0,42,255 ,240,195,138,195,240,0,634 3460 DATA 160,252,60,12,136,12,60,252, 240,252,252,240,42,0,0,252,2450 3470 DATA 252,252,252,252,160,0,0,0,0, 16,68,84,68,16,0,3,9862 3480 DATA 11,63,255,136,0,63,0,240,172 ,47,255,63,255,255,252,15,3708 3490 DATA 63,252,240,240,252,63,15,240 ,0,60,195,3,15,252,240,15,9744 3500 DATA 58,248,255,252,255,255,63,19 2,224,252,255,34,0,252,0,15,2126 3510 DATA 0,60,195,192,240,63,15,240,2 52,63,15,15,63,252,240,3,9824 3520 DATA 11,63,255,255,3,0,3,240,172, 47,255,255,255,255,252,15,6186 3530 DATA 63,252,240,240,252,63,15,240 ,0,12,3,3,15,252,240,15,7192 3540 DATA 58,248,255,255,255,255,63,19 2,224,252,255,255,192,0,192,15,6678 3550 DATA 0,48,192,192,240,63,15,240,2 52,63,15,15,63,252,240,3,9831 3560 DATA 15,43,170,128,10,0,3,240,172 ,47,175,40,172,60,240,15,8013 3570 DATA 62,254,255,63,2,8,160,192,24 3,191,175,252,32,8,40,15,8285 3580 DATA 58,248,250,40,58,60,15,192,2 40,232,170,2,160,0,192,3,8717 3590 DATA 207,254,250,63,8,32,40,240,1 88,191,255,252,128,32,10,3,9480 3600 DATA 15,43,170,138,0,0,3,240,172, 47,175,168,60,60,240,15,8123 3610 DATA 62,254,255,63,0,0,10,192,243 ,191,175,252,128,128,128,15,1465 3620 DATA 58,248,250,42,60,60,15,192,2 40,232,170,162,0,0,192,3,8615 3630 DATA 207,254,250,63,2,2,2,240,188 ,191,255,252,0,0,160,192,2206 3640 DATA 192,243,255,48,2,10,10,3,3,2 07,255,252,60,143,243,10,9952 3650 DATA 63,62,2,3,3,15,60,240,252,25 4,191,252,255,15,3,192,2875 3660 DATA 192,243,255,63,60,242,207,3, 3,207,255,12,128,160,160,15,170 3670 DATA 63,191,254,63,255,240,192,16 0,252,188,128,192,192,240,60,192,8156 3680 DATA 192,243,255,48,32,32,10,3,3, 207,255,252,60,143,243,10,274 3690 DATA 59,59,2,3,0,0,3,240,252,238, 175,188,240,240,240,192,7807 3700 DATA 192,243,255,63,60,242,207,3, 3,207,255,12,8,8,160,15,6522 3710 DATA 63,187,250,62,15,15,15,160,2 36,236,128,192,0,0,192,170,491 3720 DATA 133,149,140,191,171,143,129, 170,86,86,234,234,250,82,86,133,4143 3730 DATA 170,137,137,137,137,137,170, 86,170,102,102,98,98,98,170,51,9378 3740 DATA 51,51,51,51,51,63,0,63,48,48 ,60,48,48,63,0,60,1 3750 DATA 51,51,60,51,51,60,0,12,12,51 ,51,63,51,51,0,51,9126 3760 DATA 63,63,63,63,51,51,0,48,48,48 ,48,48,48,63,0,60,9817 3770 DATA 51,51,51,51,51,60,0,63,51,51 ,60,51,51,51,0,0,9017 3780 DATA 5,4,4,5,0,1,1,0,64,64,64,64, 0,16,16,1,7006 3790 DATA 1,0,0,0,0,0,0,16,80,0,84,16, 16,16,0,29,6651 3800 DATA 35,45,53,64,64,60,53,72,72,8 1,91,96,81,91,91,72,4422 3810 DATA 108,108,96,91,96,108,108,108 ,96,91,91,91,91,96,108,60,6508 3820 DATA 60,47,60,81,60,81,81,108,108 ,108,81,81,72,72,53,64,4373 3830 DATA 81,81,64,81,96,60,60,72,91,8 1,81,0,0,0,0,0,8945 3840 DATA 56,124,252,0,0,0,24,60,126,6 3,51,0,60,124,108,0,2009 3850 DATA 0,0,56,124,252,0,0,0,24,60,6 2,38,38,0,28,28,9090 3860 DATA 28,0,0,0,56,124,252,0,0,0,24 ,60,60,28,28,0,9252 3870 DATA 28,24,24,0,0,0,56,124,252,0, 0,0,24,60,62,30,232 3880 DATA 30,0,28,28,28,0,0,0,56,124,2 52,0,0,0,24,60,82 3890 DATA 126,127,63,0,60,124,100,0,0, 0,0,0,0,80,240,56,1819 3900 DATA 96,0,0,192,204,12,0,0,0,0,0, 0,0,0,0,80,7136 3910 DATA 240,56,96,0,0,88,88,0,0,0,0, 0,0,0,0,0,5694 3920 DATA 0,80,240,56,96,0,0,96,96,0,0 ,0,0,0,0,0,7136 3930 DATA 0,0,0,80,240,56,96,0,0,96,96 ,0,0,0,0,0,8474 3940 DATA 0,0,0,0,0,80,240,56,96,0,0,1 28,192,0,0,0,1444 3950 DATA 0,0,0,0,0,0,0,12,14,198,6,0, 0,0,0,48,6986 3960 DATA 0,2,2,226,0,0,0,0,0,12,14,19 8,6,0,0,0,7602 3970 DATA 0,60,0,2,2,58,0,0,0,0,0,12,1 4,198,6,0,7644 3980 DATA 0,0,0,60,0,0,0,56,0,0,0,0,0, 12,14,198,8214 3990 DATA 6,0,0,0,0,60,0,2,2,58,0,0,0, 0,0,12,5162 4000 DATA 14,198,6,0,0,0,0,60,0,2,2,22 6,0,0,0,0,7662 4010 DATA 0,12,14,198,6,0,0,0,0,48,0,2 ,2,226,0,0,8592 4020 DATA 56,124,124,0,0,0,68,124,252, 204,76,0,124,100,96,0,5760 4030 DATA 0,0,56,124,124,0,0,0,68,252, 152,24,0,124,108,100,5362 4040 DATA 0,0,0,0,56,124,124,0,0,0,68, 254,254,146,16,0,5314 4050 DATA 124,108,108,0,0,0,56,124,124 ,0,0,0,68,124,126,50,2524 4060 DATA 48,0,124,108,76,0,0,0,56,124 ,124,0,0,0,68,124,1404 4070 DATA 126,102,100,0,124,76,12,0,0, 0,0,0,0,84,124,68,9984 4080 DATA 56,0,0,50,50,0,0,0,0,0,0,0,0 ,0,0,84,5930 4090 DATA 124,68,56,0,102,102,0,0,0,0, 0,0,0,0,0,0,5640 4100 DATA 0,84,124,68,56,0,0,108,108,0 ,0,0,0,0,0,0,7028 4110 DATA 0,0,0,84,124,68,56,0,0,204,2 04,0,0,0,0,0,150 4120 DATA 0,0,0,0,0,84,124,68,56,0,0,1 52,152,0,0,0,340 4130 DATA 0,0,0,0,0,0,0,0,0,56,0,0,0,0 ,0,124,6674 4140 DATA 0,8,12,96,0,0,0,0,0,0,0,0,0, 0,0,0,4576 4150 DATA 124,0,0,8,108,0,0,0,0,0,0,0, 0,0,0,0,4846 4160 DATA 0,0,0,124,0,0,0,108,0,0,0,0, 0,0,0,0,5520 4170 DATA 0,0,0,0,0,124,0,0,32,108,0,0 ,0,0,0,0,6282 4180 DATA 0,0,0,0,0,0,0,124,0,32,96,12 ,0,0,0,0,6692 4190 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,4190 4200 DATA 56,124,124,0,0,0,68,124,252, 252,124,0,124,96,96,0,6892 4210 DATA 0,0,56,124,124,0,0,0,68,124, 252,252,124,0,124,108,8342 4220 DATA 96,0,0,0,56,124,124,0,0,0,68 ,124,254,254,124,0,7162 4230 DATA 124,108,108,0,0,0,56,124,124 ,0,0,0,68,124,126,126,3920 4240 DATA 124,0,124,108,12,0,0,0,56,12 4,124,0,0,0,68,124,1340 4250 DATA 126,126,124,0,124,12,12,0,0, 0,0,0,0,0,0,0,5776 4260 DATA 0,0,0,2,2,0,0,0,0,0,0,0,0,0, 0,0,4278 4270 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,4270 4280 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,4280 4290 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,4290 4300 DATA 0,0,0,0,0,0,0,0,0,0,0,128,12 8,0,0,0,7500 4310 DATA 0,0,0,0,0,0,0,124,124,124,56 ,0,0,0,0,124,258 4320 DATA 0,12,12,96,0,0,0,0,0,124,124 ,124,56,0,0,0,9584 4330 DATA 0,124,0,0,12,108,0,0,0,0,0,1 24,124,124,56,0,962 4340 DATA 0,0,0,124,0,0,0,108,0,0,0,0, 0,124,124,124,1280 4350 DATA 56,0,0,0,0,124,0,0,96,108,0, 0,0,0,0,124,9078 4360 DATA 124,124,56,0,0,0,0,124,0,96, 96,12,0,0,0,0,8052 4370 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,4370 4380 DATA 28,62,63,0,0,0,24,60,126,254 ,252,0,60,62,38,0,4033 4390 DATA 0,0,28,62,63,0,0,0,24,60,124 ,120,120,0,56,56,1953 4400 DATA 56,0,0,0,28,62,63,0,0,0,24,6 0,60,56,56,0,8797 4410 DATA 56,24,24,0,0,0,28,62,63,0,0, 0,24,60,124,100,457 4420 DATA 100,0,56,56,56,0,0,0,28,62,6 3,0,0,0,24,60,8077 4430 DATA 126,252,204,0,60,62,54,0,0,0 ,0,0,0,10,15,28,7535 4440 DATA 6,0,0,1,3,0,0,0,0,0,0,0,0,0, 0,10,4625 4450 DATA 15,28,6,0,0,6,6,0,0,0,0,0,0, 0,0,0,4617 4460 DATA 0,10,15,28,6,0,0,6,6,0,0,0,0 ,0,0,0,4769 4470 DATA 0,0,0,10,15,28,6,0,0,26,26,0 ,0,0,0,0,5341 4480 DATA 0,0,0,0,0,10,15,28,6,0,0,3,5 1,48,0,0,6294 4490 DATA 0,0,0,0,0,0,0,48,112,99,96,0 ,0,0,0,60,8888 4500 DATA 0,64,64,71,0,0,0,0,0,48,112, 99,96,0,0,0,9252 4510 DATA 0,60,0,64,64,92,0,0,0,0,0,48 ,112,99,96,0,616 4520 DATA 0,0,0,60,0,0,0,28,0,0,0,0,0, 48,112,99,8920 4530 DATA 96,0,0,0,0,60,0,64,64,92,0,0 ,0,0,0,48,7762 4540 DATA 112,99,96,0,0,0,0,12,0,64,64 ,71,0,0,0,0,7430 4550 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,4550 4560 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,4560 4570 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,4570 4580 DATA 0,0,0,0,0,0,0,0,0,242,236,24 0,163,237,157,240,4108 4590 DATA 241,157,243,242,162,128,128, 238,161,128,238,243,158,239,240,128,53 1 4600 DATA 238,243,239,242,241,237,161, 0,0,0,0,0,0,0,0,0,763 4610 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,4610 4620 DATA 0,0,0,0,0,0,0,0,0,0,0,0,224, 0,0,0,7532 4630 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,4630 4640 DATA 226,2,227,2,202,34,0,0,0,0,0 ,0,0,0,0,0,6773
10 ; 20 ; *** DUNGEONLORDS *** 30 ; (Revision B) 40 ; 50 ; By Brian Douglas Bradley 60 ; August 1, 1986 70 ; 80 ; VARIABLES: 90 ; --------- 0100 ; 0110 LOA =128 0120 HIA =129 0130 LO =130 0140 HI =131 0150 LOC =132 0160 HIC =133 0170 V1 =134 0180 V2 =135 0190 V3 =136 0200 V4 =137 0210 V5 =138 0220 V6 =139 0230 V7 =140 0240 V8 =141 0250 V9 =142 0260 XCL =143 0270 YRW =144 0280 CLX =145 0290 RWY =146 0300 XPOS =147 0310 YPOS =148 0320 MNX =149 0330 MNY =150 0340 MNXA =151 0350 MNYA =152 0360 STK =153 0370 STK1 =154 0380 TRGR =155 0390 MVE =156 0400 GX1 =157 0410 GY1 =158 0420 GX2 =159 0430 GY2 =160 0440 BLTX =161 0450 BLTY =162 0460 BLTXY =163 0470 TXY =164 0480 JUMP =165 0490 CNTR =166 0500 XCNT =167 0510 TIMES =168 0520 SPEED =169 0530 PLAY =170 0540 SNGX =171 0550 SPOT =172 0560 SPOT2 =173 0570 OVER =174 0580 KEY =175 0590 SHOMN =176 0600 LVL =177 0610 LIVES =178 0620 NOW =179 0630 DLO =182 0640 DHI =183 0650 BDX =184 0660 BDY =216 0670 BDXY =1536 0680 BDG =1568 0690 ALV =1600 0700 DLIST =12212 0710 SCRS =14478 0720 SYSVBV =58463 0730 SEVBV =58460 0740 ; 0750 ; INITIALIZE PROGRAM 0760 ; 0770 *= 8775 0780 .BYTE 112,112,112,112,112,71 0790 .BYTE 102,34,70,122,34,112 0800 .BYTE 112,71,162,34,70,142 0810 .BYTE 34,112,112,112,70,182 0820 .BYTE 34,70,0,57,65,71,34 0830 .BYTE " dungeonlords " 0840 .BYTE " by brian bradley " 0850 .BYTE " press start to play" 0860 .BYTE " game over " 0870 .BYTE " score " 0880 LDA # 0 0890 LDX # 0 0900 RPT 0910 LDY # 0 0920 RPTA 0930 STA $3900,Y 0940 INY 0950 CPY # 0 0960 BNE RPTA 0970 INC RPTA+2 0980 INX 0990 CPX # 16 1000 BNE RPT 1010 LDA # 56 1020 STA 54279 1030 LDA # 126 1040 STA 559 1050 LDA # 3 1060 STA 53277 1070 STA 53775 1080 LDA # 0 1090 STA 712 1100 LDY # 0 1110 STR 1120 STA 128,Y 1130 INY 1140 CPY # 128 1150 BNE STR 1160 LDA # 8 1170 STA 706 1180 LDA # 119 1190 STA 53248 1200 STA 53249 1210 STA 53250 1220 JSR INT 1230 LDA # 212 1240 STA 704 1250 STA 710 1260 STRT 1270 LDA # 224 1280 STA 756 1290 LDA # 0 1300 STA 708 1310 STA 711 1320 LDA # 71 1330 STA 560 1340 LDA # 70 1350 STA 705 1360 STA 709 1370 LDA # 34 1380 STA 561 1390 SRT 1400 LDA 53279 1410 CMP # 6 1420 BNE SRT 1430 LDA # 250 1440 STA 711 1450 LDA # 48 1460 STA 756 1470 LDA # 180 1480 STA 560 1490 LDA # 47 1500 STA 561 1510 LDA # 1 1520 STA LVL 1530 JSR LP 1540 JMP STRT 1550 ; 1560 ; Display remaining lives 1570 ; and clear away all monsters 1580 ; 1590 ITA 1600 JSR ITF 1610 JMP ITE 1620 ITF 1630 LDX # 1 1640 LDA # 55 1650 ITB 1660 SEC 1670 CPX LIVES 1680 BCC ITC 1690 LDA # 0 1700 ITC 1710 STA SCRS-10,X 1720 INX 1730 CPX # 8 1740 BNE ITB 1750 RTS 1760 ITE 1770 LDX # 0 1780 LDA # 0 1790 STA OVER 1800 IT 1810 STA BDG,X 1820 LDA ALV,X 1830 CMP # 0 1840 BEQ ITD 1850 LDA BDX,X 1860 STA XCL 1870 LDA BDY,X 1880 STA YRW 1890 JSR CLR 1900 STA ALV,X 1910 ITD 1920 INX 1930 CPX # 32 1940 BNE IT 1950 JSR PCLR 1960 LDA # 8 1970 STA MNX 1980 LDA # 48 1990 STA MNY 2000 RTS 2010 ; 2020 ; Create random maze 2030 ; 2040 W 2050 JSR ITA 2060 LDA LVL 2070 SEC 2080 SBC # 1 2090 LSR A 2100 LSR A 2110 STA SPEED 2120 INC SPEED 2130 ASL A 2140 ASL A 2150 ASL A 2160 ASL A 2170 STA V1 2180 LDA # 6 2190 SEC 2200 SBC V1 2210 STA 709 2220 JSR PCLR 2230 LDA # 0 2240 STA KEY 2250 STA V6 2260 STA V3 2270 LDA 53770 2280 AND # 7 2290 STA V7 2300 LDA 53770 2310 AND # 7 2320 CLC 2330 ADC # 8 2340 STA V8 2350 W2 2360 LDX # 0 2370 W1 2380 STX XCL 2390 LDA V3 2400 STA YRW 2410 JSR X96 2420 LDA # 0 2430 STA (LOA),Y 2440 INX 2450 CPX # 64 2460 BNE W1 2470 INC V3 2480 LDA # 21 2490 CMP V3 2500 BNE W2 2510 LDX # 0 2520 W3 2530 LDA # 0 2540 STA YRW 2550 STX XCL 2560 JSR PTW 2570 LDA # 20 2580 STA YRW 2590 JSR PTW 2600 INX 2610 INX 2620 CPX # 62 2630 BNE W3 2640 LDX # 2 2650 W4 2660 LDA # 0 2670 STA XCL 2680 STX YRW 2690 JSR PTW 2700 LDA # 60 2710 STA XCL 2720 JSR PTW 2730 INX 2740 INX 2750 CPX # 20 2760 BNE W4 2770 LDA # 56 2780 STA XCL 2790 LDX # 2 2800 W49 2810 STX YRW 2820 JSR PTW 2830 INX 2840 INX 2850 CPX # 18 2860 BNE W49 2870 JSR GR 2880 LDA # 0 2890 STA XCL 2900 LDA # 4 2910 STA YRW 2920 JSR GR2 2930 LDA # 2 2940 STA XCL 2950 STA YRW 2960 JSR PTW 2970 LDA # 4 2980 STA XCL 2990 JSR PTW 3000 LDA # 0 3010 STA V5 3020 LDA # 4 3030 STA V4 3040 W43 3050 LDX # 4 3060 W45 3070 STX XCL 3080 LDA V4 3090 STA YRW 3100 LDA # 0 3110 STA V5 3120 JSR X96 3130 LDA (LOA),Y 3140 CMP # 0 3150 BEQ W46 3160 JMP W15 3170 W46 3180 JSR PTW 3190 LDA 53770 3200 AND # 3 3210 CMP # 3 3220 BNE W5 3230 DEC YRW 3240 DEC YRW 3250 JMP WUP 3260 W5 3270 CMP # 2 3280 BNE W6 3290 INC YRW 3300 INC YRW 3310 JMP WUP 3320 W6 3330 CMP # 1 3340 BNE W7 3350 DEC XCL 3360 DEC XCL 3370 JMP WLR 3380 W7 3390 INC XCL 3400 INC XCL 3410 WLR 3420 LDA XCL 3430 STA CLX 3440 LDA YRW 3450 STA RWY 3460 SEC 3470 SBC # 4 3480 STA YRW 3490 JSR X96 3500 LDA (LOA),Y 3510 CMP # 0 3520 BEQ W8 3530 INC V5 3540 W8 3550 LDY # 191 3560 LDA (LOA),Y 3570 CMP # 0 3580 BEQ W9 3590 INC V5 3600 W9 3610 LDY # 194 3620 LDA (LOA),Y 3630 CMP # 0 3640 BEQ W10 3650 INC V5 3660 W10 3670 LDA V5 3680 SEC 3690 CMP # 2 3700 BCC W11 3710 JMP W15 3720 W11 3730 LDA CLX 3740 STA XCL 3750 LDA RWY 3760 STA YRW 3770 JSR X96 3780 LDA (LOA),Y 3790 CMP # 0 3800 BEQ WGO 3810 JMP W15 3820 WGO 3830 LDA V6 3840 INC V6 3850 CMP V7 3860 BNE W30 3870 LDA # 175 3880 JMP W36 3890 W30 3900 CMP V8 3910 BNE W39 3920 LDA # 175 3930 JMP W36 3940 W39 3950 LDA 53770 3960 AND # 63 3970 SEC 3980 CMP LVL 3990 BCC W40 4000 JMP W32 4010 W40 4020 LDA # 167 4030 W36 4040 JSR W91 4050 JMP W15 4060 W91 4070 STA V5 4080 JSR X96 4090 LDA V5 4100 STA (LOA),Y 4110 LDY # 1 4120 INC V5 4130 LDA V5 4140 STA (LOA),Y 4150 LDY # 96 4160 INC V5 4170 LDA V5 4180 STA (LOA),Y 4190 LDY # 97 4200 INC V5 4210 LDA V5 4220 STA (LOA),Y 4230 RTS 4240 W32 4250 JSR PTW 4260 JMP W15 4270 WUP 4280 LDA XCL 4290 STA CLX 4300 DEC XCL 4310 DEC XCL 4320 LDA YRW 4330 STA RWY 4340 DEC YRW 4350 DEC YRW 4360 JSR X96 4370 LDA (LOA),Y 4380 CMP # 0 4390 BEQ W12 4400 INC V5 4410 W12 4420 LDY # 191 4430 LDA (LOA),Y 4440 CMP # 0 4450 BEQ W13 4460 INC V5 4470 W13 4480 LDY # 128 4490 INC HIA 4500 LDA (LOA),Y 4510 CMP # 0 4520 BEQ W14 4530 INC V5 4540 W14 4550 LDA V5 4560 SEC 4570 CMP # 2 4580 BCC W41 4590 JMP W15 4600 W41 4610 JMP W11 4620 W15 4630 INX 4640 INX 4650 INX 4660 INX 4670 CPX # 56 4680 BEQ W16 4690 JMP W45 4700 W16 4710 LDA V4 4720 CLC 4730 ADC # 4 4740 STA V4 4750 CMP # 20 4760 BEQ W20 4770 JMP W43 4780 W20 4790 LDA # 58 4800 STA XCL 4810 LDA # 6 4820 STA YRW 4830 LDA # 179 4840 JSR W91 4850 LDA # 8 4860 STA YRW 4870 LDA # 179 4880 JSR W91 4890 LDA # 56 4900 STA XCL 4910 LDA # 0 4920 STA YRW 4930 JSR GR2 4940 LDA # 58 4950 STA XCL 4960 LDA # 2 4970 STA YRW 4980 LDA LVL 4990 AND # 3 5000 CMP # 0 5010 BNE W17 5020 LDA # 232 5030 JMP W18 5040 W17 5050 LDA # 244 5060 W18 5070 JSR W91 5080 LDA LVL 5090 AND # 7 5100 CMP # 0 5110 BNE W19 5120 LDA # 10 5130 STA YRW 5140 LDA # 179 5150 JSR W91 5160 LDA # 54 5170 STA XCL 5180 LDA # 2 5190 STA YRW 5200 LDA # 175 5210 JSR W91 5220 W19 5230 RTS 5240 PTW 5250 JSR X96 5260 JSR LTW 5270 LDY # 0 5280 STA (LOA),Y 5290 JSR RTW 5300 LDY # 1 5310 STA (LOA),Y 5320 JSR RTW 5330 LDY # 96 5340 STA (LOA),Y 5350 JSR LTW 5360 LDY # 97 5370 STA (LOA),Y 5380 RTS 5390 LTW 5400 LDA 53770 5410 AND # 3 5420 CLC 5430 ADC # 1 5440 RTS 5450 RTW 5460 LDA 53770 5470 AND # 3 5480 CLC 5490 ADC # 5 5500 RTS 5510 X96 5520 LDA # 0 5530 STA V1 5540 STA V2 5550 STA HIA 5560 LDA YRW 5570 STA LOA 5580 LDY # 0 5590 L1 5600 LDA HIA 5610 ASL A 5620 STA HIA 5630 LDA LOA 5640 ASL A 5650 BCC L2 5660 INC HIA 5670 CLC 5680 L2 5690 STA LOA 5700 INY 5710 CPY # 5 5720 BNE L3 5730 LDA LOA 5740 STA V1 5750 LDA HIA 5760 STA V2 5770 L3 5780 CPY # 6 5790 BNE L1 5800 LDA HIA 5810 CLC 5820 ADC V2 5830 STA HIA 5840 LDA LOA 5850 CLC 5860 ADC V1 5870 BCC L4 5880 INC HIA 5890 CLC 5900 L4 5910 STA LOA 5920 LDA HIA 5930 CLC 5940 ADC # 64 5950 STA HIA 5960 LDA LOA 5970 CLC 5980 ADC XCL 5990 BCC L5 6000 INC HIA 6010 L5 6020 CLC 6030 ADC # 20 6040 BCC L6 6050 INC HIA 6060 L6 6070 STA LOA 6080 LDY # 0 6090 RTS 6100 ; 6110 ; Who can see man? 6120 ; 6130 ST 6140 JSR ST97 6150 LDA # 129 6160 STA V5 6170 DEC XCL 6180 ST2 6190 JSR ST99 6200 DEC XCL 6210 CMP # 0 6220 BEQ ST2 6230 LDA XCL 6240 STA V6 6250 JSR ST97 6260 LDA # 1 6270 STA V5 6280 INC XCL 6290 ST3 6300 JSR ST99 6310 INC XCL 6320 CMP # 0 6330 BEQ ST3 6340 LDA XCL 6350 STA V7 6360 JSR ST97 6370 LDA # 224 6380 STA V5 6390 DEC YRW 6400 ST4 6410 JSR ST99 6420 DEC YRW 6430 CMP # 0 6440 BEQ ST4 6450 LDA YRW 6460 STA V8 6470 JSR ST97 6480 LDA # 96 6490 STA V5 6500 INC YRW 6510 ST5 6520 JSR ST99 6530 INC YRW 6540 CMP # 0 6550 BEQ ST5 6560 LDA YRW 6570 STA V9 6580 RTS 6590 ST99 6600 LDA V5 6610 AND # 127 6620 STA V1 6630 LDA V5 6640 AND # 128 6650 CMP # 0 6660 BEQ Z1 6670 LDA LOA 6680 SEC 6690 SBC V1 6700 BCS Z2 6710 DEC HIA 6720 Z2 6730 STA LOA 6740 JMP Z4 6750 Z1 6760 LDA LOA 6770 CLC 6780 ADC V1 6790 BCC Z3 6800 INC HIA 6810 Z3 6820 STA LOA 6830 Z4 6840 LDY # 0 6850 LDA (LOA),Y 6860 INX 6870 CMP # 0 6880 BEQ ST98 6890 CMP # 55 6900 BEQ ST98 6910 ST96 6920 LDA # 1 6930 RTS 6940 ST98 6950 LDA # 0 6960 RTS 6970 ST97 6980 LDX # 0 6990 LDA XPOS 7000 STA XCL 7010 LDA YPOS 7020 STA YRW 7030 JSR X96 7040 RTS 7050 ; 7060 ; Set up Transporters 7070 ; 7080 GR 7090 LDA 53770 7100 AND # 3 7110 CLC 7120 ADC # 3 7130 ASL A 7140 ASL A 7150 STA XCL 7160 CLC 7170 ADC # 2 7180 STA GX1 7190 LDA 53770 7200 AND # 3 7210 ASL A 7220 ASL A 7230 STA YRW 7240 CLC 7250 ADC # 2 7260 STA GY1 7270 JSR GR2 7280 LDA 53770 7290 AND # 3 7300 CLC 7310 ADC # 9 7320 ASL A 7330 ASL A 7340 STA XCL 7350 CLC 7360 ADC # 2 7370 STA GX2 7380 LDA 53770 7390 AND # 3 7400 ASL A 7410 ASL A 7420 STA YRW 7430 CLC 7440 ADC # 2 7450 STA GY2 7460 JSR GR2 7470 RTS 7480 GR2 7490 LDA # 17 7500 JSR W91 7510 INC YRW 7520 INC YRW 7530 LDA # 9 7540 JSR W91 7550 DEC YRW 7560 DEC YRW 7570 INC XCL 7580 INC XCL 7590 LDA # 21 7600 JSR W91 7610 INC XCL 7620 INC XCL 7630 LDA # 25 7640 JSR W91 7650 INC YRW 7660 INC YRW 7670 LDA # 13 7680 JSR W91 7690 INC YRW 7700 INC YRW 7710 JSR PTW 7720 LDA XCL 7730 SEC 7740 SBC # 4 7750 STA XCL 7760 JSR PTW 7770 RTS 7780 ; 7790 ; VERTICAL BLANK 7800 ; (Used for smooth-scroll) 7810 ; 7820 INT 7830 LDY # VBK&255 7840 LDX # VBK/256 7850 LDA # 6 7860 JSR SEVBV 7870 INT2 7880 LDX # 0 7890 LDA # 157 7900 AGN2 7910 STA SCRS,X 7920 INX 7930 CPX # 7 7940 BNE AGN2 7950 LDA # 51 7960 STA HIC 7970 RTS 7980 VBK 7990 LDA # 64 8000 STA DHI 8010 LDA MNX 8020 LSR A 8030 LSR A 8040 AND # 254 8050 STA DLO 8060 LDY # 4 8070 AGN 8080 LDA DLO 8090 STA DLIST,Y 8100 INY 8110 LDA DHI 8120 STA DLIST,Y 8130 LDA DLO 8140 CLC 8150 ADC # 96 8160 BCC NXT 8170 INC DHI 8180 NXT 8190 STA DLO 8200 INY 8210 INY 8220 CPY # 70 8230 BNE AGN 8240 LDA MNX 8250 AND # 7 8260 EOR # 7 8270 STA 54276 8280 JMP SYSVBV 8290 FND 8300 JSR FND1A 8310 FND1A 8320 STA V3 8330 AND # 12 8340 CMP # 0 8350 BNE FND1 8360 JMP FND3 8370 FND1 8380 CMP # 8 8390 BNE FND2 8400 INC XCL 8410 FND2 8420 CMP # 4 8430 BNE FND5 8440 DEC XCL 8450 JMP FND5 8460 FND3 8470 LDA V3 8480 AND # 3 8490 CMP # 2 8500 BNE FND4 8510 INC YRW 8520 FND4 8530 CMP # 1 8540 BNE FND5 8550 DEC YRW 8560 FND5 8570 LDA V3 8580 RTS 8590 REVERS 8600 STA V3 8610 AND # 12 8620 CMP # 0 8630 BEQ RVS1 8640 EOR # 12 8650 RVS1 8660 STA V1 8670 LDA V3 8680 AND # 3 8690 CMP # 0 8700 BEQ RVS2 8710 EOR # 3 8720 RVS2 8730 CLC 8740 ADC V1 8750 RTS 8760 PLY 8770 LDA # 8 8780 STA SNGX 8790 RTS 8800 ; 8810 ; Found Treasure! 8820 ; 8830 FDT 8840 JSR PLY 8850 LDX # 168 8860 STX PLAY 8870 LDX # 192 8880 STX LOC 8890 LDX # 4 8900 JSR SCR 8910 LDA # 171 8920 JSR W91 8930 LDA # 171 8940 RTS 8950 ; 8960 ; Found Key! 8970 ; 8980 FDK 8990 LDA KEY 9000 CMP # 1 9010 BNE FDL 9020 RTS 9030 FDL 9040 JSR PLY 9050 LDX # 168 9060 STX PLAY 9070 LDX # 208 9080 STX LOC 9090 LDA # 1 9100 STA KEY 9110 JSR CLR 9120 LDA # 0 9130 RTS 9140 ; 9150 ; Found Keyhole! 9160 ; 9170 FDH 9180 LDA KEY 9190 CMP # 0 9200 BEQ FDI 9210 JSR PLY 9220 LDX # 168 9230 STX PLAY 9240 LDX # 200 9250 STX LOC 9260 LDA # 0 9270 STA KEY 9280 JSR CLR 9290 LDA # 0 9300 RTS 9310 FDI 9320 LDA # 171 9330 RTS 9340 ; 9350 ; Release Prisoner 9360 ; 9370 FDP 9380 JSR PLY 9390 LDX # 168 9400 STX PLAY 9410 LDX # 224 9420 STX LOC 9430 JSR CLR 9440 LDX # 3 9450 JSR SCR 9460 LDA # 0 9470 STA XCL 9480 LDA # 2 9490 STA YRW 9500 JSR GR2 9510 LDA # 2 9520 STA XCL 9530 LDA # 4 9540 STA YRW 9550 LDA # 244 9560 JSR W91 9570 LDA # 0 9580 RTS 9590 ; 9600 ; Clear Location 9610 ; 9620 CLR 9630 JSR X96 9640 LDA # 0 9650 STA (LOA),Y 9660 LDY # 1 9670 STA (LOA),Y 9680 LDY # 96 9690 STA (LOA),Y 9700 LDY # 97 9710 STA (LOA),Y 9720 RTS 9730 ; 9740 ; Handle Score 9750 ; 9760 SCR 9770 LDA # 1 9780 STA V1 9790 SCR1 9800 LDA V1 9810 CMP # 1 9820 BNE SCR3 9830 CPX # 2 9840 BNE SCR4 9850 INC LIVES 9860 STX V1 9870 JSR ITF 9880 JSR PLY 9890 LDA # 224 9900 STA LOC 9910 LDA # 168 9920 STA PLAY 9930 LDX V1 9940 SCR4 9950 LDA # 0 9960 STA V1 9970 LDA SCRS,X 9980 CLC 9990 ADC # 1 010000 CMP # 167 010010 BNE SCR2 010020 LDA # 157 010030 INC V1 010040 SCR2 010050 STA SCRS,X 010060 SCR3 010070 DEX 010080 CPX # 255 010090 BNE SCR1 010100 RTS 010110 ; 010120 ; Move Man Around 010130 ; 010140 MN 010150 LDA # 146 010160 STA V1 010170 LDA NOW 010180 SEC 010190 CMP # 128 010200 BCC ZX 010210 LDA # 68 010220 STA V1 010230 ZX 010240 LDA 20 010250 AND # 7 010260 CLC 010270 ADC V1 010280 ZZ 010290 STA 708 010300 LDA 54016 010310 AND # 12 010320 EOR # 12 010330 CMP # 0 010340 BEQ MN1 010350 STA STK 010360 JMP MN2 010370 MN1 010380 LDA 54016 010390 AND # 3 010400 EOR # 3 010410 STA STK 010420 MN2 010430 LDA MNX 010440 LSR A 010450 LSR A 010460 AND # 254 010470 STA XPOS 010480 LDA MNX 010490 AND # 7 010500 CMP # 0 010510 BEQ MN3 010520 JMP MN14 010530 MN3 010540 LDA MNY 010550 LSR A 010560 LSR A 010570 LSR A 010580 AND # 254 010590 STA YPOS 010600 LDA MNY 010610 AND # 15 010620 CMP # 0 010630 BEQ MN4 010640 JMP MN14 010650 MN4 010660 LDA TRGR 010670 CMP # 0 010680 BEQ MN7 010690 LDA STK 010700 CMP # 0 010710 BEQ MN7 010720 LDA XPOS 010730 STA XCL 010740 LDA YPOS 010750 STA YRW 010760 LDA STK 010770 JSR FND 010780 JSR X96 010790 LDA (LOA),Y 010800 CMP # 167 010810 BNE MN5 010820 JSR FDT 010830 MN5 010840 CMP # 175 010850 BNE MN6 010860 JSR FDK 010870 MN6 010880 CMP # 0 010890 BEQ MNA 010900 SEC 010910 CMP # 52 010920 BCC MN7 010930 CMP # 171 010940 BEQ MN7 010950 MNA 010960 LDA STK 010970 STA MVE 010980 MN7 010990 LDA XPOS 011000 STA XCL 011010 LDA YPOS 011020 STA YRW 011030 LDA MVE 011040 JSR FND 011050 JSR X96 011060 LDA (LOA),Y 011070 CMP # 167 011080 BNE MN8 011090 JSR FDT 011100 MN8 011110 CMP # 175 011120 BNE MN9 011130 JSR FDK 011140 MN9 011150 CMP # 179 011160 BNE MN10 011170 JSR FDH 011180 MN10 011190 CMP # 244 011200 BNE MN11 011210 INC OVER 011220 MN11 011230 CMP # 232 011240 BNE MN11A 011250 JSR FDP 011260 MN11A 011270 CMP # 0 011280 BEQ MN13 011290 SEC 011300 CMP # 52 011310 BCC MN12 011320 CMP # 171 011330 BEQ MN12 011340 JMP MN13 011350 MN12 011360 LDA # 0 011370 STA MVE 011380 MN13 011390 LDA MNX 011400 STA XCL 011410 LDA MNY 011420 STA YRW 011430 LDA MVE 011440 JSR FND1A 011450 LDA XCL 011460 STA MNX 011470 LDA YRW 011480 STA MNY 011490 JMP SW 011500 MN14 011510 LDA TRGR 011520 CMP # 0 011530 BEQ MN13 011540 LDA STK 011550 CMP # 0 011560 BNE MN15 011570 JMP MN13 011580 MN15 011590 LDA MVE 011600 JSR REVERS 011610 CMP STK 011620 BNE MN16 011630 LDA STK 011640 STA MVE 011650 MN16 011660 JMP MN13 011670 ; 011680 ; Display Man on screen 011690 ; 011700 SW 011710 LDA MVE 011720 CMP # 0 011730 BEQ SW4 011740 LDA SHOMN 011750 AND # 128 011760 CMP # 0 011770 BEQ SW2 011780 LDA SHOMN 011790 CLC 011800 ADC # 18 011810 CMP # 218 011820 BNE SW1 011830 LDA # 72 011840 SW1 011850 STA SHOMN 011860 JMP SW4 011870 SW2 011880 LDA SHOMN 011890 SEC 011900 SBC # 18 011910 CMP # 238 011920 BNE SW3 011930 LDA # 128 011940 SW3 011950 STA SHOMN 011960 SW4 011970 LDA # 32 011980 STA LOA 011990 LDA # 60 012000 STA HIA 012010 LDA MVE 012020 CMP # 8 012030 BNE SW5 012040 LDA # 96 012050 STA LO 012060 LDA # 55 012070 STA HI 012080 SW5 012090 CMP # 4 012100 BNE SW6 012110 LDA # 0 012120 STA LO 012130 LDA # 52 012140 STA HI 012150 SW6 012160 CMP # 2 012170 BNE SW7 012180 SW6A 012190 LDA # 32 012200 STA LO 012210 LDA # 53 012220 STA HI 012230 SW7 012240 CMP # 1 012250 BNE SW8 012260 LDA # 64 012270 STA LO 012280 LDA # 54 012290 STA HI 012300 SW8 012310 CMP # 0 012320 BNE SW9 012330 JMP SW6A 012340 SW9 012350 LDA SHOMN 012360 AND # 127 012370 CLC 012380 ADC LO 012390 BCC SW10 012400 INC HI 012410 SW10 012420 STA LO 012430 LDA LOA 012440 CLC 012450 ADC MNY 012460 BCC SW11 012470 INC HIA 012480 SW11 012490 STA LOA 012500 LDX # 0 012510 SW12 012520 LDY # 0 012530 SW13 012540 LDA (LO),Y 012550 STA (LOA),Y 012560 INY 012570 CPY # 18 012580 BNE SW13 012590 LDA LO 012600 CLC 012610 ADC # 90 012620 BCC SW14 012630 INC HI 012640 SW14 012650 STA LO 012660 INC HIA 012670 INX 012680 CPX # 3 012690 BNE SW12 012700 RTS 012710 PCLR 012720 LDA # 32 012730 STA LOA 012740 LDA # 60 012750 STA HIA 012760 LDX # 0 012770 STX 53278 012780 PC1 012790 LDY # 0 012800 LDA # 0 012810 PC2 012820 STA (LOA),Y 012830 INY 012840 CPY # 170 012850 BNE PC2 012860 INC HIA 012870 INX 012880 CPX # 3 012890 BNE PC1 012900 RTS 012910 ; 012920 ; Move Monsters Around 012930 ; 012940 H 012950 LDA # 0 012960 STA V4 012970 LDA BDX,X 012980 SEC 012990 CMP MNXA 013000 BCC H1 013010 SEC 013020 SBC MNXA 013030 STA V1 013040 LDA # 4 013050 STA TXY 013060 JMP H2 013070 H1 013080 LDA MNXA 013090 SEC 013100 SBC BDX,X 013110 STA V1 013120 LDA # 8 013130 STA TXY 013140 H2 013150 LDA BDY,X 013160 SEC 013170 CMP MNYA 013180 BCC H3 013190 SEC 013200 SBC MNYA 013210 STA V2 013220 LDA TXY 013230 CLC 013240 ADC # 1 013250 STA TXY 013260 JMP H4 013270 H3 013280 LDA MNYA 013290 SEC 013300 SBC BDY,X 013310 STA V2 013320 LDA TXY 013330 CLC 013340 ADC # 2 013350 STA TXY 013360 H4 013370 LDA V2 013380 SEC 013390 CMP V1 013400 BCS H8 013410 H5 013420 LDA # 12 013430 STA V5 013440 JSR CK 013450 CMP # 1 013460 BNE H6 013470 JMP H11 013480 H6 013490 LDA # 3 013500 STA V5 013510 JSR CK 013520 CMP # 1 013530 BNE H7 013540 JMP H11 013550 H7 013560 LDA TXY 013570 JSR REVERS 013580 STA TXY 013590 H8 013600 LDA # 3 013610 STA V5 013620 JSR CK 013630 CMP # 1 013640 BNE H9 013650 JMP H11 013660 H9 013670 LDA # 12 013680 STA V5 013690 JSR CK 013700 CMP # 1 013710 BNE H10 013720 JMP H11 013730 H10 013740 LDA TXY 013750 JSR REVERS 013760 STA TXY 013770 JMP H5 013780 H11 013790 LDA BDX,X 013800 STA XCL 013810 LDA BDY,X 013820 STA YRW 013830 LDA BDXY,X 013840 JSR FND1A 013850 LDA XCL 013860 STA BDX,X 013870 LDA YRW 013880 STA BDY,X 013890 RTS 013900 RANDOM 013910 LDA # 0 013920 STA V4 013930 LDA 53770 013940 AND # 3 013950 CMP # 0 013960 BNE RM1 013970 LDY # 5 013980 RM1 013990 CMP # 1 014000 BNE RM2 014010 LDY # 9 014020 RM2 014030 CMP # 2 014040 BNE RM3 014050 LDY # 6 014060 RM3 014070 CMP # 3 014080 BNE RM4 014090 LDY # 10 014100 RM4 014110 STY TXY 014120 LDA 53770 014130 AND # 1 014140 CMP # 0 014150 BEQ RM5 014160 JMP H5 014170 RM5 014180 JMP H8 014190 CK 014200 LDA # 0 014210 STA JUMP 014220 INC V4 014230 LDA # 4 014240 SEC 014250 CMP V4 014260 BCC CK1 014270 LDA BDXY,X 014280 JSR REVERS 014290 STA V3 014300 LDA TXY 014310 AND V5 014320 CMP V3 014330 BEQ CK2 014340 CK1 014350 LDA BDX,X 014360 STA XCL 014370 LDA BDY,X 014380 STA YRW 014390 LDA TXY 014400 AND V5 014410 JSR FND 014420 JSR X96 014430 LDA (LOA),Y 014440 CMP # 0 014450 BEQ C3 014460 SEC 014470 CMP # 166 014480 BCC CA 014490 SEC 014500 CMP # 193 014510 BCC CK2 014520 CA 014530 SEC 014540 CMP # 55 014550 BCC CK2 014560 SEC 014570 CMP # 231 014580 BCS CK2 014590 C3 014600 LDA # 1 014610 STA JUMP 014620 LDA TXY 014630 AND V5 014640 STA BDXY,X 014650 CK2 014660 LDA JUMP 014670 RTS 014680 BT 014690 LDA # 0 014700 STA CNTR 014710 LDX XCNT 014720 B1 014730 LDA ALV,X 014740 CMP # 0 014750 BNE BT1 014760 LDA 53770 014770 SEC 014780 CMP LVL 014790 BCC B1A 014800 JMP B12 014810 B1A 014820 LDA NOW 014830 SEC 014840 CMP # 128 014850 BCS B1T 014860 JMP B12 014870 B1T 014880 LDA 53770 014890 AND # 1 014900 CMP # 1 014910 BEQ BT0 014920 LDA GX1 014930 STA BDX,X 014940 LDA GY1 014950 STA BDY,X 014960 BTA 014970 LDA LVL 014980 AND 53770 014990 AND # 3 015000 CLC 015010 ADC # 1 015020 STA ALV,X 015030 JMP BT1 015040 BT0 015050 LDA GX2 015060 STA BDX,X 015070 LDA GY2 015080 STA BDY,X 015090 JMP BTA 015100 BT1 015110 LDA BDY,X 015120 STA YRW 015130 LDA BDX,X 015140 STA XCL 015150 JSR CLR 015160 LDA BDX,X 015170 AND # 1 015180 CMP # 0 015190 BEQ BT2 015200 JMP B14 015210 BT2 015220 LDA BDY,X 015230 AND # 1 015240 CMP # 0 015250 BEQ BT3 015260 JMP B14 015270 ; 015280 ; If Monster can see Man, 015290 ; have all Monsters find 015300 ; their way to where Man 015310 ; was seen last. 015320 ; 015330 BT3 015340 LDA BDX,X 015350 CMP XPOS 015360 BNE BT5 015370 LDA BDY,X 015380 SEC 015390 CMP V8 015400 BCC BT5 015410 SEC 015420 CMP V9 015430 BCS BT5 015440 LDA YPOS 015450 SEC 015460 CMP BDY,X 015470 BCC BT6 015480 LDA BDXY,X 015490 CMP # 1 015500 BEQ BT5 015510 JMP B7 015520 BT6 015530 LDA BDXY,X 015540 CMP # 2 015550 BEQ BT5 015560 B7 015570 LDA # 1 015580 STA SPOT 015590 STA SPOT2 015600 LDY # 0 015610 LDA # 1 015620 BT4 015630 STA BDG,Y 015640 INY 015650 CPY # 32 015660 BNE BT4 015670 JMP B9 015680 BT5 015690 LDA BDY,X 015700 CMP YPOS 015710 BNE B9 015720 LDA BDX,X 015730 SEC 015740 CMP V6 015750 BCC B9 015760 SEC 015770 CMP V7 015780 BCS B9 015790 LDA XPOS 015800 SEC 015810 CMP BDX,X 015820 BCC B8 015830 LDA BDXY,X 015840 CMP # 4 015850 BEQ B9 015860 JMP B7 015870 B8 015880 LDA BDXY,X 015890 CMP # 8 015900 BEQ B9 015910 JMP B7 015920 B9 015930 LDA BDX,X 015940 CMP MNXA 015950 BNE B10 015960 LDA BDY,X 015970 CMP MNYA 015980 BNE B10 015990 LDA # 0 016000 STA BDG,X 016010 B10 016020 LDA SPOT 016030 CMP # 0 016040 BEQ B10A 016050 LDA SPOT2 016060 STA SPOT 016070 LDA XPOS 016080 STA MNXA 016090 LDA YPOS 016100 STA MNYA 016110 B10A 016120 LDA BDG,X 016130 CMP # 1 016140 BNE B11 016150 JSR H 016160 JMP B12 016170 B11 016180 JSR RANDOM 016190 B12 016200 LDA # 0 016210 STA V2 016220 B12A 016230 LDA ALV,X 016240 CMP # 0 016250 BEQ B15 016260 CMP # 1 016270 BNE B16 016280 LDA # 56 016290 JMP B20 016300 B16 016310 CMP # 2 016320 BNE B17 016330 LDA # 200 016340 JMP B20 016350 B17 016360 LDA # 216 016370 B20 016380 STA V1 016390 LDA BDXY,X 016400 AND # 8 016410 CMP # 8 016420 BNE B21 016430 LDA V1 016440 CLC 016450 ADC # 4 016460 STA V1 016470 B21 016480 LDA BDX,X 016490 STA XCL 016500 LDA BDY,X 016510 STA YRW 016520 LDA V1 016530 CLC 016540 ADC V2 016550 JSR W91 016560 B15 016570 INX 016580 CPX # 32 016590 BNE BAZ 016600 LDX # 0 016610 STX SPOT2 016620 BAZ 016630 INC CNTR 016640 LDA # 8 016650 CMP CNTR 016660 BEQ B13 016670 JMP B1 016680 B13 016690 STX XCNT 016700 RTS 016710 B14 016720 JSR H11 016730 LDA # 8 016740 STA V2 016750 JMP B12A 016760 ; 016770 ; SHOOT 016780 ; 016790 SHT 016800 LDA 54016 016810 LSR A 016820 LSR A 016830 LSR A 016840 LSR A 016850 STA V1 016860 AND # 12 016870 EOR # 12 016880 CMP # 0 016890 BEQ SHTB 016900 STA STK1 016910 JMP S1 016920 SHTB 016930 LDA V1 016940 AND # 3 016950 EOR # 3 016960 CMP # 0 016970 BEQ SHTA 016980 STA STK1 016990 JMP S1 017000 SHTA 017010 LDA STK 017020 STA STK1 017030 LDA 53264 017040 STA TRGR 017050 CMP # 0 017060 BEQ S1 017070 LDA BLTXY 017080 CMP # 0 017090 BNE S3 017100 RTS 017110 S1 017120 LDA BLTXY 017130 CMP # 0 017140 BEQ S2 017150 JMP S3 017160 S2 017170 LDA STK1 017180 CMP # 0 017190 BNE S2A 017200 RTS 017210 S2A 017220 LDA XPOS 017230 STA BLTX 017240 LDA YPOS 017250 STA BLTY 017260 LDA STK1 017270 STA BLTXY 017280 JSR PLY 017290 LDA # 192 017300 STA LOC 017310 LDA # 136 017320 STA PLAY 017330 S3 017340 LDA BLTX 017350 STA XCL 017360 LDA BLTY 017370 STA YRW 017380 JSR X96 017390 LDA # 0 017400 STA (LOA),Y 017410 LDA BLTXY 017420 JSR FND1A 017430 JSR X96 017440 LDA (LOA),Y 017450 CMP # 0 017460 BEQ S4 017470 LDA # 0 017480 STA BLTXY 017490 JMP S45 017500 S4 017510 LDA # 55 017520 STA (LOA),Y 017530 LDA XCL 017540 STA BLTX 017550 LDA YRW 017560 STA BLTY 017570 S45 017580 LDY # 0 017590 LDA XCL 017600 STA CLX 017610 LDA YRW 017620 STA RWY 017630 S5 017640 LDA CLX 017650 STA XCL 017660 LDA RWY 017670 STA YRW 017680 LDA BDX,Y 017690 STA V1 017700 LDA XCL 017710 CMP V1 017720 BEQ S5A 017730 SEC 017740 SBC # 1 017750 CMP V1 017760 BNE S6 017770 S5A 017780 LDA BDY,Y 017790 STA V1 017800 LDA YRW 017810 CMP V1 017820 BEQ S5B 017830 SEC 017840 SBC # 1 017850 CMP V1 017860 BNE S6 017870 S5B 017880 LDA ALV,Y 017890 CMP # 0 017900 BEQ S6 017910 LDA # 0 017920 STA ALV,Y 017930 JSR PLY 017940 LDA # 136 017950 STA PLAY 017960 LDA # 216 017970 STA LOC 017980 LDX # 6 017990 JSR SCR 018000 LDA BDX,Y 018010 STA XCL 018020 LDA BDY,Y 018030 STA YRW 018040 STY V5 018050 JSR CLR 018060 LDY V5 018070 S6 018080 INY 018090 CPY # 32 018100 BNE S5 018110 RTS 018120 ; 018130 ; Check speed to determine 018140 ; when to move the Monsters 018150 ; 018160 Q 018170 LDA TIMES 018180 CLC 018190 ADC SPEED 018200 STA TIMES 018210 SEC 018220 CMP # 11 018230 BCS Q1 018240 RTS 018250 Q1 018260 SEC 018270 SBC # 12 018280 STA TIMES 018290 JSR ST 018300 JSR BT 018310 RTS 018320 LP 018330 JSR INT2 018340 JSR W 018350 LDA # 157 018360 STA SCRS+10 018370 STA SCRS+11 018380 LDA # 3 018390 STA LIVES 018400 LDX # 11 018410 JSR SCR 018420 JSR ITA 018430 LDA # 0 018440 STA 53278 018450 ; 018460 ; MAIN CONTROL LOOP OF PROGRAM 018470 ; 018480 LP2 018490 LDA 53253 018500 AND # 6 018510 CMP # 0 018520 BEQ LP5 018530 DEC LIVES 018540 LDA # 138 018550 STA 53761 018560 STA 20 018570 LPT 018580 LDA 20 018590 STA 53760 018600 CMP # 255 018610 BNE LPT 018620 LDA # 0 018630 STA 53761 018640 CMP LIVES 018650 BNE LP6 018660 LDX # 0 018670 LPQ 018680 LDA SCRS,X 018690 SEC 018700 SBC # 13 018710 STA 14599,X 018720 INX 018730 CPX # 7 018740 BNE LPQ 018750 JSR PCLR 018760 LDA # 224 018770 STA 756 018780 LDA # 71 018790 STA 560 018800 LDA # 34 018810 STA 561 018820 LDA # 0 018830 STA 708 018840 STA 19 018850 STA 709 018860 LPR 018870 LDA 19 018880 CMP # 3 018890 BNE LPR 018900 RTS 018910 LP6 018920 JSR ITA 018930 LP5 018940 JSR MN 018950 INC NOW 018960 LDA # 0 018970 STA 77 018980 STA 53278 018990 LDA 20 019000 SEC 019010 CMP # 8 019020 BCC Q9 019030 LDA # 0 019040 STA 20 019050 LDY SNGX 019060 CPY # 0 019070 BEQ Q9 019080 DEY 019090 STY SNGX 019100 LDA (LOC),Y 019110 STA 53760 019120 LDX PLAY 019130 DEX 019140 STX PLAY 019150 STX 53761 019160 Q9 019170 JSR SHT 019180 JSR Q 019190 JSR Q 019200 LDX # 32 019210 LP4 019220 LDY # 32 019230 LP3 019240 DEY 019250 CPY SPEED 019260 BNE LP3 019270 DEX 019280 CPX SPEED 019290 BNE LP4 019300 LDA OVER 019310 CMP # 0 019320 BEQ LP1 019330 INC LVL 019340 LDX # 11 019350 JSR SCR 019360 LDA # 0 019370 STA 559 019380 JSR W 019390 LDA LVL 019400 AND # 3 019410 CMP # 1 019420 BNE LPJ 019430 LDA # 170 019440 STA 53761 019450 LDA # 232 019460 STA LOC 019470 LDY # 0 019480 STY SNGX 019490 LPH 019500 LDA # 0 019510 STA 20 019520 LDA (LOC),Y 019530 STA 53760 019540 LPI 019550 LDA 20 019560 CMP # 10 019570 BNE LPI 019580 INY 019590 CPY # 21 019600 BNE LPH 019610 LPJ 019620 LDA # 126 019630 STA 559 019640 LDX # 3 019650 JSR SCR 019660 LP1 019670 JMP LP2 019680 ; 019690 ; The Display List 019700 ; starts at: $2FB4. 019710 ; 019720 ; A redefined Character 019730 ; Set starts at: $3000. 019740 ; 019750 ; Miscellaneous data fills 019760 ; locations $33C0 through 019770 ; $3881. 019780 ; 019790 ; PMBASE is located at $3800. 019800 ; 019810 ; The Action Screen is 019820 ; located at $4000. 019830 ; 019840 *=$2FB4 019850 .BYTE 112,112,112,84,252,59 019860 .BYTE 84,92,60,84,188,60 019870 .BYTE 84,28,61,84,124,61 019880 .BYTE 84,220,61,84,60,62 019890 .BYTE 84,156,62,84,252,62 019900 .BYTE 84,92,63,84,188,63 019910 .BYTE 84,28,64,84,124,64 019920 .BYTE 84,220,64,84,60,65 019930 .BYTE 84,156,65,84,252,65 019940 .BYTE 84,92,66,84,188,66 019950 .BYTE 84,28,67,84,124,67 019960 .BYTE 84,220,67,68,126,56 019970 .BYTE 4,65,180,47,0,0 019980 .BYTE 0,0,0,0,0,0 019990 .BYTE 59,170,138,138,162,170 020000 .BYTE 43,0,63,251,170,170 020010 .BYTE 168,170,47,0,42,170 020020 .BYTE 138,130,170,170,42,0 020030 .BYTE 47,171,170,234,234,251 020040 .BYTE 63,0,240,252,188,172 020050 .BYTE 188,252,240,0,240,252 020060 .BYTE 188,140,60,252,240,0 020070 .BYTE 160,168,168,168,168,188 020080 .BYTE 240,0,240,188,172,168 020090 .BYTE 168,168,160,0,47,170 020100 .BYTE 170,170,170,170,47,0 020110 .BYTE 21,21,21,0,21,21 020120 .BYTE 21,0,240,188,172,168 020130 .BYTE 168,168,160,0,21,21 020140 .BYTE 21,0,21,21,21,0 020150 .BYTE 84,84,84,0,84,84 020160 .BYTE 84,0,240,252,188,172 020170 .BYTE 188,252,240,0,84,84 020180 .BYTE 84,0,84,84,84,0 020190 .BYTE 63,250,170,170,170,171 020200 .BYTE 47,0,59,170,170,170 020210 .BYTE 170,250,63,0,240,252 020220 .BYTE 188,172,188,252,240,0 020230 .BYTE 240,188,172,172,168,168 020240 .BYTE 160,0,42,170,170,192 020250 .BYTE 197,197,5,0,42,170 020260 .BYTE 162,138,170,171,47,0 020270 .BYTE 240,188,172,188,252,252 020280 .BYTE 240,0,176,172,168,0 020290 .BYTE 69,69,69,0,47,170 020300 .BYTE 170,0,69,69,69,0 020310 .BYTE 42,170,170,234,250,254 020320 .BYTE 63,0,160,168,168,172 020330 .BYTE 188,252,240,0,240,188 020340 .BYTE 172,8,80,80,80,0 020350 .BYTE 42,170,170,234,250,254 020360 .BYTE 63,0,63,51,51,51 020370 .BYTE 51,51,63,0,12,12 020380 .BYTE 12,12,12,12,12,0 020390 .BYTE 63,51,3,63,48,51 020400 .BYTE 63,0,63,51,3,15 020410 .BYTE 3,51,63,0,51,51 020420 .BYTE 51,63,3,3,3,0 020430 .BYTE 63,51,48,63,3,51 020440 .BYTE 63,0,63,51,48,63 020450 .BYTE 51,51,63,0,63,51 020460 .BYTE 3,15,12,12,12,0 020470 .BYTE 63,51,51,63,51,51 020480 .BYTE 63,0,63,51,51,63 020490 .BYTE 3,51,63,0,63,255 020500 .BYTE 253,213,221,221,221,213 020510 .BYTE 240,252,252,92,220,252 020520 .BYTE 252,92,253,253,221,213 020530 .BYTE 253,255,63,0,220,220 020540 .BYTE 220,92,252,252,240,0 020550 .BYTE 63,255,252,192,192,192 020560 .BYTE 192,192,240,252,252,12 020570 .BYTE 204,252,252,12,252,252 020580 .BYTE 204,192,252,255,63,0 020590 .BYTE 12,12,12,12,252,252 020600 .BYTE 240,0,0,0,3,15 020610 .BYTE 12,15,3,0,0,0 020620 .BYTE 240,60,12,60,240,192 020630 .BYTE 3,0,0,3,0,0 020640 .BYTE 0,0,192,192,192,192 020650 .BYTE 0,0,0,0,0,42 020660 .BYTE 255,240,195,138,195,240 020670 .BYTE 0,160,252,60,12,136 020680 .BYTE 12,60,252,240,252,252 020690 .BYTE 240,42,0,0,252,252 020700 .BYTE 252,252,252,160,0,0 020710 .BYTE 0,0,16,68,84,68 020720 .BYTE 16,0,3,11,63,255 020730 .BYTE 136,0,63,0,240,172 020740 .BYTE 47,255,63,255,255,252 020750 .BYTE 15,63,252,240,240,252 020760 .BYTE 63,15,240,0,60,195 020770 .BYTE 3,15,252,240,15,58 020780 .BYTE 248,255,252,255,255,63 020790 .BYTE 192,224,252,255,34,0 020800 .BYTE 252,0,15,0,60,195 020810 .BYTE 192,240,63,15,240,252 020820 .BYTE 63,15,15,63,252,240 020830 .BYTE 3,11,63,255,255,3 020840 .BYTE 0,3,240,172,47,255 020850 .BYTE 255,255,255,252,15,63 020860 .BYTE 252,240,240,252,63,15 020870 .BYTE 240,0,12,3,3,15 020880 .BYTE 252,240,15,58,248,255 020890 .BYTE 255,255,255,63,192,224 020900 .BYTE 252,255,255,192,0,192 020910 .BYTE 15,0,48,192,192,240 020920 .BYTE 63,15,240,252,63,15 020930 .BYTE 15,63,252,240,3,15 020940 .BYTE 43,170,128,10,0,3 020950 .BYTE 240,172,47,175,40,172 020960 .BYTE 60,240,15,62,254,255 020970 .BYTE 63,2,8,160,192,243 020980 .BYTE 191,175,252,32,8,40 020990 .BYTE 15,58,248,250,40,58 021000 .BYTE 60,15,192,240,232,170 021010 .BYTE 2,160,0,192,3,207 021020 .BYTE 254,250,63,8,32,40 021030 .BYTE 240,188,191,255,252,128 021040 .BYTE 32,10,3,15,43,170 021050 .BYTE 138,0,0,3,240,172 021060 .BYTE 47,175,168,60,60,240 021070 .BYTE 15,62,254,255,63,0 021080 .BYTE 0,10,192,243,191,175 021090 .BYTE 252,128,128,128,15,58 021100 .BYTE 248,250,42,60,60,15 021110 .BYTE 192,240,232,170,162,0 021120 .BYTE 0,192,3,207,254,250 021130 .BYTE 63,2,2,2,240,188 021140 .BYTE 191,255,252,0,0,160 021150 .BYTE 192,192,243,255,48,2 021160 .BYTE 10,10,3,3,207,255 021170 .BYTE 252,60,143,243,10,63 021180 .BYTE 62,2,3,3,15,60 021190 .BYTE 240,252,254,191,252,255 021200 .BYTE 15,3,192,192,243,255 021210 .BYTE 63,60,242,207,3,3 021220 .BYTE 207,255,12,128,160,160 021230 .BYTE 15,63,191,254,63,255 021240 .BYTE 240,192,160,252,188,128 021250 .BYTE 192,192,240,60,192,192 021260 .BYTE 243,255,48,32,32,10 021270 .BYTE 3,3,207,255,252,60 021280 .BYTE 143,243,10,59,59,2 021290 .BYTE 3,0,0,3,240,252 021300 .BYTE 238,175,188,240,240,240 021310 .BYTE 192,192,243,255,63,60 021320 .BYTE 242,207,3,3,207,255 021330 .BYTE 12,8,8,160,15,63 021340 .BYTE 187,250,62,15,15,15 021350 .BYTE 160,236,236,128,192,0 021360 .BYTE 0,192,170,133,149,140 021370 .BYTE 191,171,143,129,170,86 021380 .BYTE 86,234,234,250,82,86 021390 .BYTE 133,170,137,137,137,137 021400 .BYTE 137,170,86,170,102,102 021410 .BYTE 98,98,98,170,51,51 021420 .BYTE 51,51,51,51,63,0 021430 .BYTE 63,48,48,60,48,48 021440 .BYTE 63,0,60,51,51,60 021450 .BYTE 51,51,60,0,12,12 021460 .BYTE 51,51,63,51,51,0 021470 .BYTE 51,63,63,63,63,51 021480 .BYTE 51,0,48,48,48,48 021490 .BYTE 48,48,63,0,60,51 021500 .BYTE 51,51,51,51,60,0 021510 .BYTE 63,51,51,60,51,51 021520 .BYTE 51,0,0,5,4,4 021530 .BYTE 5,0,1,1,0,64 021540 .BYTE 64,64,64,0,16,16 021550 .BYTE 1,1,0,0,0,0 021560 .BYTE 0,0,16,80,0,84 021570 .BYTE 16,16,16,0,29,35 021580 .BYTE 45,53,64,64,60,53 021590 .BYTE 72,72,81,91,96,81 021600 .BYTE 91,91,72,108,108,96 021610 .BYTE 91,96,108,108,108,96 021620 .BYTE 91,91,91,91,96,108 021630 .BYTE 60,60,47,60,81,60 021640 .BYTE 81,81,108,108,108,81 021650 .BYTE 81,72,72,53,64,81 021660 .BYTE 81,64,81,96,60,60 021670 .BYTE 72,91,81,81,0,0 021680 .BYTE 0,0,0,56,124,252 021690 .BYTE 0,0,0,24,60,126 021700 .BYTE 63,51,0,60,124,108 021710 .BYTE 0,0,0,56,124,252 021720 .BYTE 0,0,0,24,60,62 021730 .BYTE 38,38,0,28,28,28 021740 .BYTE 0,0,0,56,124,252 021750 .BYTE 0,0,0,24,60,60 021760 .BYTE 28,28,0,28,24,24 021770 .BYTE 0,0,0,56,124,252 021780 .BYTE 0,0,0,24,60,62 021790 .BYTE 30,30,0,28,28,28 021800 .BYTE 0,0,0,56,124,252 021810 .BYTE 0,0,0,24,60,126 021820 .BYTE 127,63,0,60,124,100 021830 .BYTE 0,0,0,0,0,0 021840 .BYTE 80,240,56,96,0,0 021850 .BYTE 192,204,12,0,0,0 021860 .BYTE 0,0,0,0,0,0 021870 .BYTE 80,240,56,96,0,0 021880 .BYTE 88,88,0,0,0,0 021890 .BYTE 0,0,0,0,0,0 021900 .BYTE 80,240,56,96,0,0 021910 .BYTE 96,96,0,0,0,0 021920 .BYTE 0,0,0,0,0,0 021930 .BYTE 80,240,56,96,0,0 021940 .BYTE 96,96,0,0,0,0 021950 .BYTE 0,0,0,0,0,0 021960 .BYTE 80,240,56,96,0,0 021970 .BYTE 128,192,0,0,0,0 021980 .BYTE 0,0,0,0,0,0 021990 .BYTE 12,14,198,6,0,0 022000 .BYTE 0,0,48,0,2,2 022010 .BYTE 226,0,0,0,0,0 022020 .BYTE 12,14,198,6,0,0 022030 .BYTE 0,0,60,0,2,2 022040 .BYTE 58,0,0,0,0,0 022050 .BYTE 12,14,198,6,0,0 022060 .BYTE 0,0,60,0,0,0 022070 .BYTE 56,0,0,0,0,0 022080 .BYTE 12,14,198,6,0,0 022090 .BYTE 0,0,60,0,2,2 022100 .BYTE 58,0,0,0,0,0 022110 .BYTE 12,14,198,6,0,0 022120 .BYTE 0,0,60,0,2,2 022130 .BYTE 226,0,0,0,0,0 022140 .BYTE 12,14,198,6,0,0 022150 .BYTE 0,0,48,0,2,2 022160 .BYTE 226,0,0,56,124,124 022170 .BYTE 0,0,0,68,124,252 022180 .BYTE 204,76,0,124,100,96 022190 .BYTE 0,0,0,56,124,124 022200 .BYTE 0,0,0,68,252,152 022210 .BYTE 24,0,124,108,100,0 022220 .BYTE 0,0,0,56,124,124 022230 .BYTE 0,0,0,68,254,254 022240 .BYTE 146,16,0,124,108,108 022250 .BYTE 0,0,0,56,124,124 022260 .BYTE 0,0,0,68,124,126 022270 .BYTE 50,48,0,124,108,76 022280 .BYTE 0,0,0,56,124,124 022290 .BYTE 0,0,0,68,124,126 022300 .BYTE 102,100,0,124,76,12 022310 .BYTE 0,0,0,0,0,0 022320 .BYTE 84,124,68,56,0,0 022330 .BYTE 50,50,0,0,0,0 022340 .BYTE 0,0,0,0,0,0 022350 .BYTE 84,124,68,56,0,102 022360 .BYTE 102,0,0,0,0,0 022370 .BYTE 0,0,0,0,0,0 022380 .BYTE 84,124,68,56,0,0 022390 .BYTE 108,108,0,0,0,0 022400 .BYTE 0,0,0,0,0,0 022410 .BYTE 84,124,68,56,0,0 022420 .BYTE 204,204,0,0,0,0 022430 .BYTE 0,0,0,0,0,0 022440 .BYTE 84,124,68,56,0,0 022450 .BYTE 152,152,0,0,0,0 022460 .BYTE 0,0,0,0,0,0 022470 .BYTE 0,0,56,0,0,0 022480 .BYTE 0,0,124,0,8,12 022490 .BYTE 96,0,0,0,0,0 022500 .BYTE 0,0,0,0,0,0 022510 .BYTE 0,124,0,0,8,108 022520 .BYTE 0,0,0,0,0,0 022530 .BYTE 0,0,0,0,0,0 022540 .BYTE 0,0,124,0,0,0 022550 .BYTE 108,0,0,0,0,0 022560 .BYTE 0,0,0,0,0,0 022570 .BYTE 0,0,124,0,0,32 022580 .BYTE 108,0,0,0,0,0 022590 .BYTE 0,0,0,0,0,0 022600 .BYTE 0,0,124,0,32,96 022610 .BYTE 12,0,0,0,0,0 022620 .BYTE 0,0,0,0,0,0 022630 .BYTE 0,0,0,0,0,0 022640 .BYTE 0,0,0,56,124,124 022650 .BYTE 0,0,0,68,124,252 022660 .BYTE 252,124,0,124,96,96 022670 .BYTE 0,0,0,56,124,124 022680 .BYTE 0,0,0,68,124,252 022690 .BYTE 252,124,0,124,108,96 022700 .BYTE 0,0,0,56,124,124 022710 .BYTE 0,0,0,68,124,254 022720 .BYTE 254,124,0,124,108,108 022730 .BYTE 0,0,0,56,124,124 022740 .BYTE 0,0,0,68,124,126 022750 .BYTE 126,124,0,124,108,12 022760 .BYTE 0,0,0,56,124,124 022770 .BYTE 0,0,0,68,124,126 022780 .BYTE 126,124,0,124,12,12 022790 .BYTE 0,0,0,0,0,0 022800 .BYTE 0,0,0,0,0,0 022810 .BYTE 2,2,0,0,0,0 022820 .BYTE 0,0,0,0,0,0 022830 .BYTE 0,0,0,0,0,0 022840 .BYTE 0,0,0,0,0,0 022850 .BYTE 0,0,0,0,0,0 022860 .BYTE 0,0,0,0,0,0 022870 .BYTE 0,0,0,0,0,0 022880 .BYTE 0,0,0,0,0,0 022890 .BYTE 0,0,0,0,0,0 022900 .BYTE 0,0,0,0,0,0 022910 .BYTE 0,0,0,0,0,0 022920 .BYTE 0,0,0,0,0,0 022930 .BYTE 128,128,0,0,0,0 022940 .BYTE 0,0,0,0,0,0 022950 .BYTE 124,124,124,56,0,0 022960 .BYTE 0,0,124,0,12,12 022970 .BYTE 96,0,0,0,0,0 022980 .BYTE 124,124,124,56,0,0 022990 .BYTE 0,0,124,0,0,12 023000 .BYTE 108,0,0,0,0,0 023010 .BYTE 124,124,124,56,0,0 023020 .BYTE 0,0,124,0,0,0 023030 .BYTE 108,0,0,0,0,0 023040 .BYTE 124,124,124,56,0,0 023050 .BYTE 0,0,124,0,0,96 023060 .BYTE 108,0,0,0,0,0 023070 .BYTE 124,124,124,56,0,0 023080 .BYTE 0,0,124,0,96,96 023090 .BYTE 12,0,0,0,0,0 023100 .BYTE 0,0,0,0,0,0 023110 .BYTE 0,0,0,0,0,0 023120 .BYTE 0,0,0,28,62,63 023130 .BYTE 0,0,0,24,60,126 023140 .BYTE 254,252,0,60,62,38 023150 .BYTE 0,0,0,28,62,63 023160 .BYTE 0,0,0,24,60,124 023170 .BYTE 120,120,0,56,56,56 023180 .BYTE 0,0,0,28,62,63 023190 .BYTE 0,0,0,24,60,60 023200 .BYTE 56,56,0,56,24,24 023210 .BYTE 0,0,0,28,62,63 023220 .BYTE 0,0,0,24,60,124 023230 .BYTE 100,100,0,56,56,56 023240 .BYTE 0,0,0,28,62,63 023250 .BYTE 0,0,0,24,60,126 023260 .BYTE 252,204,0,60,62,54 023270 .BYTE 0,0,0,0,0,0 023280 .BYTE 10,15,28,6,0,0 023290 .BYTE 1,3,0,0,0,0 023300 .BYTE 0,0,0,0,0,0 023310 .BYTE 10,15,28,6,0,0 023320 .BYTE 6,6,0,0,0,0 023330 .BYTE 0,0,0,0,0,0 023340 .BYTE 10,15,28,6,0,0 023350 .BYTE 6,6,0,0,0,0 023360 .BYTE 0,0,0,0,0,0 023370 .BYTE 10,15,28,6,0,0 023380 .BYTE 26,26,0,0,0,0 023390 .BYTE 0,0,0,0,0,0 023400 .BYTE 10,15,28,6,0,0 023410 .BYTE 3,51,48,0,0,0 023420 .BYTE 0,0,0,0,0,0 023430 .BYTE 48,112,99,96,0,0 023440 .BYTE 0,0,60,0,64,64 023450 .BYTE 71,0,0,0,0,0 023460 .BYTE 48,112,99,96,0,0 023470 .BYTE 0,0,60,0,64,64 023480 .BYTE 92,0,0,0,0,0 023490 .BYTE 48,112,99,96,0,0 023500 .BYTE 0,0,60,0,0,0 023510 .BYTE 28,0,0,0,0,0 023520 .BYTE 48,112,99,96,0,0 023530 .BYTE 0,0,60,0,64,64 023540 .BYTE 92,0,0,0,0,0 023550 .BYTE 48,112,99,96,0,0 023560 .BYTE 0,0,12,0,64,64 023570 .BYTE 71,0,0,0,0,0 023580 .BYTE 0,0,0,0,0,0 023590 .BYTE 0,0,0,0,0,0 023600 .BYTE 0,0,0,0,0,0 023610 .BYTE 0,0,0,0,0,0 023620 .BYTE 0,0,0,0,0,0 023630 .BYTE 0,0,0,0,0,0 023640 .BYTE 0,0,0,0,0,0 023650 .BYTE 0,0,0,0,0,0 023660 .BYTE 0,0,0,0,0,0 023670 .BYTE 0,0,242,236,240,163 023680 .BYTE 237,157,240,241,157,243 023690 .BYTE 242,162,128,128,238,161 023700 .BYTE 128,238,243,158,239,240 023710 .BYTE 128,238,243,239,242,241 023720 .BYTE 237,161,0,0,0,0 023730 .BYTE 0,0,0,0,0,0 023740 .BYTE 0,0,0,0,0,0 023750 .BYTE 0,0,0,0,0,0 023760 .BYTE 0,0,0,0,0,0 023770 .BYTE 0,0,0,0,0,0 023780 .BYTE 0,0,0,224,0,0 023790 .BYTE 0,0,0,0,0,0 023800 .BYTE 0,0,0,0,0,0 023810 .BYTE 0,0,0,0,0,0 023820 .END