start tok64 d64-9wvXxq 1 REM"{delete*6}ultramaze by moondog7 1/15/89 5 PRINTCHR$(8) 10 POKE53281,0:POKE53280,0 15 GOSUB31000 20 GOSUB20000 30 GOTO9100 100 IFo=1THENobj=1 101 IFo<>1 THENobj=0 105 x=0:y=0 110 l=0:b=1:m=0:r=1 111 obj=0 120 GOSUB10000 130 GOSUB21000 140 IFjv=8THEN200 150 IFjv=2THEN1100 160 GOTO130 200 IFo=2THENobj=1 201 IFo<>2 THENobj=0 205 x=1:y=0 210 l=1:r=1:b=0:m=0 220 GOSUB10000 230 GOSUB21000 240 IFjv=4THEN100 250 IFjv=8THEN300 260 GOTO230 300 IFo=3THENobj=1 301 IFo<>3 THENobj=0 305 x=2:y=0 310 l=1:r=1:b=1:m=0 320 GOSUB10000 330 GOSUB21000 340 IFjv=4THEN200 350 IFjv=8THEN400 360 IFjv=2THEN1300 370 GOTO330 400 IFo=4THENobj=1 401 IFo<>4 THENobj=0 405 x=3:y=0 410 l=1:b=1:r=0:m=0 420 GOSUB10000 430 GOSUB21000 440 IFjv=4THEN300 450 IFjv=2THEN1400 460 GOTO430 500 IFo=5THENobj=1 501 IFo<>5 THENobj=0 505 x=4:y=0 510 r=1:b=1:m=0:l=0 520 GOSUB10000 530 GOSUB21000 540 IFjv=8THEN600 550 IFjv=2THEN1500 560 GOTO530 600 IFo=6THENobj=1 601 IFo<>6 THENobj=0 610 x=5:y=0 620 l=1:b=1:m=0:r=0 630 GOSUB10000 640 GOSUB21000 650 IFjv=4THEN500 660 IFjv=2THEN1600 670 GOTO640 700 IFo=7THENobj=1 701 IFo<>7 THENobj=0 710 x=6:y=0 720 b=1:l=0:r=0:m=0 730 GOSUB10000 740 GOSUB21000 750 IFjv=2THEN1700 760 GOTO730 800 IFo=8THENobj=1 801 IFo<>8 THENobj=0 810 x=7:y=0 820 r=1:l=0:m=0:b=0 830 GOSUB10000 840 GOSUB21000 850 IFjv=8THEN900 860 GOTO840 900 IFo=9THENobj=1 901 IFo<>9 THENobj=0 910 x=8:y=0 920 l=1:b=1:r=0:m=0 930 GOSUB10000 940 GOSUB21000 950 IFjv=4THEN800 960 IFjv=2THEN1900 970 GOTO930 1000 IFo=10THENobj=1 1001 IFo<>10THENobj=0 1010 x=9:y=0 1020 m=2:b=1:l=0:r=0 1030 GOSUB10000 1040 GOSUB21000 1050 IFjv=2THEN2000 1060 IFjv=1ANDo=0THENft$=ti$:GOTO30000 1070 GOTO1040 1100 IFo=11THENobj=1 1101 IFo<>11THENobj=0 1110 x=0:y=1 1120 m=1:b=1:r=1:l=0 1130 GOSUB10000 1140 GOSUB21000 1150 IFjv=1THEN100 1160 IFjv=2THEN2100 1170 IFjv=8THEN1200 1180 GOTO1140 1200 IFo=12THENobj=1 1201 IFo<>12THENobj=0 1210 x=1:y=1 1220 l=1:r=0:b=0:m=0 1230 GOSUB10000 1240 GOSUB21000 1250 IFjv=4THEN1100 1260 GOTO1240 1300 IFo=13THENobj=1 1301 IFo<>13THENobj=0 1310 x=2:y=1 1320 m=1:b=0:l=0:r=0 1330 GOSUB10000 1340 GOSUB21000 1350 IFjv=1THEN300 1360 GOTO1340 1400 IFo=14THENobj=1 1401 IFo<>14THENobj=0 1410 x=3:y=1 1420 m=1:b=1:l=0:r=0 1430 GOSUB10000 1440 GOSUB21000 1450 IFjv=1THEN400 1460 IFjv=2THEN2400 1470 GOTO1440 1500 IFo=15THENobj=1 1501 IFo<>15THENobj=0 1510 x=4:y=1 1520 b=1:m=1:l=0:r=0 1530 GOSUB10000 1540 GOSUB21000 1550 IFjv=1THEN500 1560 IFjv=2THEN2500 1570 GOTO1540 1600 IFo=16THENobj=1 1601 IFo<>16THENobj=0 1610 x=5:y=1 1620 m=1:l=0:r=0:b=0 1630 GOSUB10000 1640 GOSUB21000 1650 IFjv=1THEN600 1660 GOTO1640 1700 IFo=17THENobj=1 1701 IFo<>17THENobj=0 1710 x=6:y=1 1720 m=1:r=1:l=0:b=0 1730 GOSUB10000 1740 GOSUB21000 1750 IFjv=1THEN700 1760 IFjv=8THEN1800 1770 GOTO1740 1800 IFo=18THENobj=1 1801 IFo<>18THENobj=0 1810 y=1:x=7 1820 l=1:b=1:m=0:r=0 1830 GOSUB10000 1840 GOSUB21000 1850 IFjv=4THEN1700 1860 IFjv=2THEN2800 1870 GOTO1840 1900 IFo=19THENobj=1 1901 IFo<>19THENobj=0 1910 y=1:x=8 1920 b=1:m=1:l=0:r=0 1930 GOSUB10000 1940 GOSUB21000 1950 IFjv=1THEN900 1960 IFjv=2THEN2900 1970 GOTO1940 2000 IFo=20THENobj=1 2001 IFo<>20THENobj=0 2010 y=1:x=9 2020 b=1:m=1:l=0:r=0 2030 GOSUB10000 2040 GOSUB21000 2050 IFjv=1THEN1000 2060 IFjv=2THEN3000 2070 GOTO2040 2100 IFo=21THENobj=1 2101 IFo<>21THENobj=0 2110 x=0:y=2 2120 m=1:b=0:l=0:r=0 2130 GOSUB10000 2140 GOSUB21000 2150 IFjv=1THEN1100 2160 GOTO2140 2200 IFo=22THENobj=1 2201 IFo<>22THENobj=0 2210 x=1:y=2 2220 r=1:l=0:b=0:m=0 2230 GOSUB10000 2240 GOSUB21000 2250 IFjv=8THEN2300 2260 GOTO2240 2300 IFo=23THENobj=1 2301 IFo<>23THENobj=0 2310 x=2:y=2 2320 r=0:l=1:b=1:m=0 2330 GOSUB10000 2340 GOSUB21000 2350 IFjv=2THEN3300 2355 IFjv=4THEN2200 2360 GOTO2340 2400 IFo=24THENobj=1 2401 IFo<>24THENobj=0 2410 x=3:y=2 2420 b=1:m=1:r=1:l=0 2430 GOSUB10000 2440 GOSUB21000 2450 IFjv=1THEN1400 2460 IFjv=2THEN3400 2470 IFjv=8THEN2500 2480 GOTO2440 2500 IFo=25THENobj=1 2501 IFo<>25THENobj=0 2510 x=4:y=2 2520 b=0:m=1:r=1:l=1 2530 GOSUB10000 2540 GOSUB21000 2550 IFjv=1THEN1500 2560 IFjv=8THEN2600 2570 IFjv=4THEN2400 2580 GOTO2540 2600 IFo=26THENobj=1 2601 IFo<>26THENobj=0 2610 x=5:y=2 2620 l=1:b=1:m=0:r=0 2630 GOSUB10000 2640 GOSUB21000 2650 IFjv=4THEN2500 2660 IFjv=2THEN3600 2670 GOTO2640 2700 IFo=27THENobj=1 2701 IFo<>27THENobj=0 2710 x=6:y=2 2720 m=0:b=1:r=1:l=0 2730 GOSUB10000 2740 GOSUB21000 2750 IFjv=2THEN3700 2760 IFjv=8THEN2800 2770 GOTO2740 2800 IFo=28THENobj=1 2801 IFo<>28THENobj=0 2810 x=7:y=2 2820 m=1:l=1:b=0:r=0 2830 GOSUB10000 2840 GOSUB21000 2850 IFjv=1THEN1800 2860 IFjv=4THEN2700 2870 GOTO2840 2900 IFo=29THENobj=1 2901 IFo<>29THENobj=0 2910 x=8:y=2 2920 m=1:b=1:r=1:l=0 2930 GOSUB10000 2940 GOSUB21000 2950 IFjv=1THEN1900 2960 IFjv=2THEN3900 2970 IFjv=8THEN3000 2980 GOTO2940 3000 IFo=30THENobj=1 3001 IFo<>30THENobj=0 3010 x=9:y=2 3020 l=1:m=1:b=0:r=0 3030 GOSUB10000 3040 GOSUB21000 3050 IFjv=1THEN2000 3060 IFjv=4THEN2900 3070 GOTO3040 3100 IFo=31THENobj=1 3101 IFo<>31THENobj=0 3110 x=0:y=3 3120 b=1:m=31:l=0:r=0 3130 GOSUB10000 3140 GOSUB21000 3150 IFjv=2THEN4100 3160 GOTO3140 3200 IFo=32THENobj=1 3201 IFo<>32THENobj=0 3210 x=1:y=3 3220 l=o:r=0:m=0:b=1 3230 GOSUB10000 3240 GOSUB21000 3250 IFjv=2THEN4200 3260 GOTO3240 3300 IFo=33THENobj=1 3301 IFo<>33THENobj=0 3310 x=2:y=3 3320 m=1:r=1:l=0:b=0 3330 GOSUB10000 3340 GOSUB21000 3350 IFjv=1THEN2300 3360 IFjv=8THEN3400 3370 GOTO3340 3400 IFo=34THENobj=1 3401 IFo<>34THENobj=0 3410 x=3:y=3 3420 m=1:l=1:r=0:b=0 3430 GOSUB10000 3440 GOSUB21000 3450 IFjv=1THEN2400 3460 IFjv=4THEN3300 3470 GOTO3440 3500 IFo=35THENobj=1 3501 IFo<>35THENobj=0 3510 x=4:y=3 3520 b=1:r=1:l=0:m=0 3530 GOSUB10000 3540 GOSUB21000 3550 IFjv=8THEN3600 3560 IFjv=2THEN4500 3570 GOTO3540 3600 IFo=36THENobj=1 3601 IFo<>36THENobj=0 3610 x=5:y=3 3620 l=1:r=1:b=1:m=1 3630 GOSUB10000 3640 GOSUB21000 3650 IFjv=1THEN2600 3660 IFjv=2THEN4600 3670 IFjv=8THEN3700 3680 IFjv=4THEN3500 3690 GOTO3640 3700 IFo=37THENobj=1 3701 IFo<>37THENobj=0 3710 x=6:y=3 3720 m=1:l=1:r=1:b=0 3730 GOSUB10000 3740 GOSUB21000 3750 IFjv=1THEN2700 3760 IFjv=4THEN3600 3770 IFjv=8THEN3800 3780 GOTO3740 3800 IFo=38THENobj=1 3801 IFo<>38THENobj=0 3810 x=7:y=3 3820 l=1:b=1:m=0:r=0 3830 GOSUB10000 3840 GOSUB21000 3850 IFjv=4THEN3700 3860 IFjv=2THEN4800 3870 GOTO3840 3900 IFo=39THENobj=1 3901 IFo<>39THENobj=0 3910 x=8:y=3 3920 m=1:b=1:l=0:r=0 3930 GOSUB10000 3940 GOSUB21000 3950 IFjv=2THEN4900 3960 IFjv=1THEN2900 3970 GOTO3940 4000 IFo=40THENobj=1 4001 IFo<>40THENobj=0 4010 x=9:y=3 4020 b=1:m=0:l=0:r=0 4030 GOSUB10000 4040 GOSUB21000 4050 IFjv=2THEN5000 4060 GOTO4040 4100 IFo=41THENobj=1 4101 IFo<>41THENobj=0 4110 x=0:y=4 4120 m=1:r=1:b=0:l=0 4130 GOSUB10000 4140 GOSUB21000 4150 IFjv=1THEN3100 4160 IFjv=8THEN4200 4170 GOTO4140 4200 IFo=42THENobj=1 4201 IFo<>42THENobj=0 4210 x=1:y=4 4220 m=1:r=1:l=1:b=0 4230 GOSUB10000 4240 GOSUB21000 4250 IFjv=1THEN3200 4260 IFjv=4THEN4100 4270 IFjv=8THEN4300 4280 GOTO4240 4300 IFo=43THENobj=1 4301 IFo<>43THENobj=0 4310 x=2:y=4 4320 b=1:r=1:l=1:m=0 4330 GOSUB10000 4340 GOSUB21000 4350 IFjv=2THEN5300 4360 IFjv=8THEN4400 4370 IFjv=4THEN4200 4380 GOTO4340 4400 IFo=44THENobj=1 4401 IFo<>44THENobj=0 4410 x=3:y=4 4420 r=1:l=1:b=1:m=0 4430 GOSUB10000 4440 GOSUB21000 4450 IFjv=2THEN5400 4460 IFjv=4THEN4300 4470 IFjv=8THEN4500 4480 GOTO4440 4500 IFo=45THENobj=1 4501 IFo<>45THENobj=0 4510 x=4:y=4 4520 m=1:l=1:r=0:b=0 4530 GOSUB10000 4540 GOSUB21000 4550 IFjv=4THEN4400 4560 IFjv=1THEN3500 4570 GOTO4540 4600 IFo=46THENobj=1 4601 IFo<>46THENobj=0 4610 x=5:y=4 4620 m=1:b=1:l=0:r=0 4630 GOSUB10000 4640 GOSUB21000 4650 IFjv=1THEN3600 4660 IFjv=2THEN5600 4670 GOTO4640 4700 IFo=47THENobj=1 4701 IFo<>47THENobj=0 4710 x=6:y=4 4720 r=1:b=1:m=0:l=0 4730 GOSUB10000 4740 GOSUB21000 4750 IFjv=8THEN4800 4760 IFjv=2THEN5700 4770 GOTO4740 4800 IFo=48THENobj=1 4801 IFo<>48THENobj=0 4810 x=7:y=4 4820 m=1:b=1:l=1:r=0 4830 GOSUB10000 4840 GOSUB21000 4850 IFjv=1THEN3800 4860 IFjv=2THEN5800 4870 IFjv=4THEN4700 4880 GOTO4840 4900 IFo=49THENobj=1 4901 IFo<>49THENobj=0 4910 x=8:y=4 4920 m=1:r=1:l=0:b=0 4930 GOSUB10000 4940 GOSUB21000 4950 IFjv=1THEN3900 4960 IFjv=8THEN5000 4970 GOTO4940 5000 IFo=50THENobj=1 5001 IFo<>50THENobj=0 5010 x=9:y=4 5020 m=1:b=1:l=1:r=0 5030 GOSUB10000 5040 GOSUB21000 5050 IFjv=1THEN4000 5060 IFjv=2THEN6000 5070 IFjv=4THEN4900 5080 GOTO5040 5100 IFo=51THENobj=1 5101 IFo<>51THENobj=0 5110 x=0:y=5 5120 b=1:r=1:m=0:l=0 5130 GOSUB10000 5140 GOSUB21000 5150 IFjv=2THEN6100 5160 IFjv=8THEN5200 5170 GOTO5140 5200 IFo=52THENobj=1 5201 IFo<>52THENobj=0 5210 x=1:y=5 5220 r=1:l=1:b=0:m=0 5230 GOSUB10000 5240 GOSUB21000 5250 IFjv=4THEN5100 5260 IFjv=8THEN5300 5270 GOTO5240 5300 IFo=53THENobj=1 5301 IFo<>53THENobj=0 5310 x=2:y=5 5320 r=0:l=1:b=1:m=1 5330 GOSUB10000 5340 GOSUB21000 5350 IFjv=1THEN4300 5360 IFjv=2THEN6300 5370 IFjv=4THEN5200 5380 GOTO5340 5400 IFo=54THENobj=1 5401 IFo<>54THENobj=0 5410 x=3:y=5 5420 m=1:r=1:l=0:b=0 5430 GOSUB10000 5440 GOSUB21000 5450 IFjv=1THEN4400 5460 IFjv=8THEN5500 5470 GOTO5440 5500 IFo=55THENobj=1 5501 IFo<>55THENobj=0 5510 x=4:y=5 5520 l=1:b=1:m=0:r=0 5530 GOSUB10000 5540 GOSUB21000 5550 IFjv=2THEN6500 5560 IFjv=4THEN5400 5570 GOTO5540 5600 IFo=56THENobj=1 5601 IFo<>56THENobj=0 5610 x=5:y=5 5620 m=1:b=1:r=1:l=0 5630 GOSUB10000 5640 GOSUB21000 5650 IFjv=1THEN4600 5660 IFjv=2THEN6600 5670 IFjv=8THEN5700 5680 GOTO5640 5700 IFo=57THENobj=1 5701 IFo<>57THENobj=0 5710 x=6:y=5 5720 m=1:b=1:l=1:r=0 5730 GOSUB10000 5740 GOSUB21000 5750 IFjv=1THEN4700 5760 IFjv=2THEN6700 5770 IFjv=4THEN5600 5780 GOTO5740 5800 IFo=58THENobj=1 5801 IFo<>58THENobj=0 5810 x=7:y=5 5820 m=1:b=0:l=0:r=0 5830 GOSUB10000 5840 GOSUB21000 5850 IFjv=1THEN4800 5860 GOTO5840 5900 IFo=59THENobj=1 5901 IFo<>59THENobj=0 5910 x=8:y=5 5920 r=1:l=0:b=0:m=0 5930 GOSUB10000 5940 GOSUB21000 5950 IFjv=8THEN6000 5960 GOTO5940 6000 IFo=60THENobj=1 6001 IFo<>60THENobj=0 6010 x=9:y=5 6020 l=1:r=0:m=1:b=1 6030 GOSUB10000 6040 GOSUB21000 6050 IFjv=4THEN5900 6060 IFjv=1THEN5000 6070 IFjv=2THEN7000 6080 GOTO6040 6100 IFo=61THENobj=1 6101 IFo<>61THENobj=0 6110 x=0:y=6 6120 m=1:b=0:l=0:r=1 6130 GOSUB10000 6140 GOSUB21000 6150 IFjv=1THEN5100 6160 IFjv=8THEN6200 6170 GOTO6140 6200 IFo=61THENobj=1 6201 IFo<>62THENobj=0 6210 x=1:y=6 6220 b=1:l=1:m=0:r=0 6230 GOSUB10000 6240 GOSUB21000 6250 IFjv=4THEN6100 6260 IFjv=2THEN7200 6270 GOTO6240 6300 IFo=63THENobj=1 6301 IFo<>63THENobj=0 6310 x=2:y=6 6320 m=1:r=1:b=0:l=0 6330 GOSUB10000 6340 GOSUB21000 6350 IFjv=1THEN5300 6360 IFjv=8THEN6400 6370 GOTO6340 6400 IFo=64THENobj=1 6401 IFo<>64THENobj=0 6410 x=3:y=6 6420 b=1:l=1:r=0:m=0 6430 GOSUB10000 6440 GOSUB21000 6450 IFjv=2THEN7400 6460 IFjv=4THEN6300 6470 GOTO6440 6500 IFo=65THENobj=1 6501 IFo<>65THENobj=0 6510 x=4:y=6 6520 m=1:b=1:r=1:l=0 6530 GOSUB10000 6540 GOSUB21000 6550 IFjv=1THEN5500 6560 IFjv=2THEN7500 6570 IFjv=8THEN6600 6580 GOTO6540 6600 IFo=66THENobj=1 6601 IFo<>66THENobj=0 6610 x=5:y=6 6620 l=1:m=1:b=1:r=0 6630 GOSUB10000 6640 GOSUB21000 6650 IFjv=1THEN5600 6660 IFjv=2THEN7600 6670 IFjv=4THEN6500 6680 GOTO6640 6700 IFo=67THENobj=1 6701 IFo<>67THENobj=0 6710 x=6:y=6 6720 m=1:b=1:r=1:l=0 6730 GOSUB10000 6740 GOSUB21000 6750 IFjv=1THEN5700 6760 IFjv=2THEN7700 6770 IFjv=8THEN6800 6780 GOTO6740 6800 IFo=68THENobj=1 6801 IFo<>68THENobj=0 6810 x=7:y=6 6820 r=0:m=0:b=0:l=1 6830 GOSUB10000 6840 GOSUB21000 6850 IFjv=4THEN6700 6860 GOTO6840 6900 IFo=69THENobj=1 6901 IFo<>69THENobj=0 6910 x=8:y=6 6920 r=1:b=1:m=0:l=0 6930 GOSUB10000 6940 GOSUB21000 6950 IFjv=8THEN7000 6960 IFjv=2THEN7900 6970 GOTO6940 7000 IFo=70THENobj=1 7001 IFo<>70THENobj=0 7010 x=9:y=6 7020 l=1:r=0:b=0:m=1 7030 GOSUB10000 7040 GOSUB21000 7050 IFjv=1THEN6000 7060 IFjv=4THEN6900 7070 GOTO7040 7100 IFo=71THENboj=1 7101 IFo<>71THENobj=0 7110 x=0:y=7 7120 r=1:l=0:b=0:m=0 7130 GOSUB10000 7140 GOSUB21000 7150 IFjv=8THEN7200 7160 GOTO7140 7200 IFo=72THENobj=1 7201 IFo<>72THENobj=0 7210 x=1:y=7 7220 l=1:m=1:b=0:r=0 7230 GOSUB10000 7240 GOSUB21000 7250 IFjv=4THEN7100 7260 IFjv=1THEN6200 7270 GOTO7240 7300 IFo=73THENobj=1 7301 IFo<>73THENobj=0 7310 x=2:y=7 7320 r=1:b=1:m=0:l=0 7330 GOSUB10000 7340 GOSUB21000 7350 IFjv=8THEN7400 7360 IFjv=2THEN8300 7370 GOTO7340 7400 IFo=74THENobj=1 7401 IFo<>74THENobj=0 7410 x=3:y=7 7420 m=1:l=1:r=0:b=0 7430 GOSUB10000 7440 GOSUB21000 7450 IFjv=1THEN6400 7460 IFjv=4THEN7300 7470 GOTO7440 7500 IFo=75THENobj=1 7501 IFo<>75THENobj=0 7510 x=4:y=7 7520 m=1:b=0:l=0:r=0 7530 GOSUB10000 7540 GOSUB21000 7560 IFjv=1THEN6500 7570 GOTO7540 7600 IFo=76THENobj=1 7601 IFo<>76THENobj=0 7610 x=5:y=7 7620 m=1:b=1:l=0:r=0 7630 GOSUB10000 7640 GOSUB21000 7650 IFjv=1THEN6600 7660 IFjv=2THEN8600 7670 GOTO7640 7700 IFo=77THENobj=1 7701 IFo<>77THENobj=0 7710 x=6:y=7 7720 m=1:r=1:l=0:b=0 7730 GOSUB10000 7740 GOSUB21000 7750 IFjv=1THEN6700 7760 IFjv=8THEN7800 7770 GOTO7740 7800 IFo=78THENobj=1 7801 IFo<>78THENobj=0 7810 x=7:y=7 7820 l=1:r=1:m=0:b=1 7830 GOSUB10000 7840 GOSUB21000 7850 IFjv=2THEN8800 7860 IFjv=8THEN7900 7870 IFjv=4THEN7700 7880 GOTO7840 7900 IFo=79THENobj=1 7901 IFo<>79THENobj=0 7910 x=8:y=7 7920 r=1:l=1:m=1:b=0 7930 GOSUB10000 7940 GOSUB21000 7950 IFjv=4THEN7800 7960 IFjv=8THEN8000 7970 IFjv=1THEN6900 7980 GOTO7940 8000 IFo=80THENobj=1 8001 IFo<>80THENobj=0 8010 x=9:y=7 8020 r=0:m=0:b=1:l=1 8030 GOSUB10000 8040 GOSUB21000 8050 IFjv=4THEN7900 8060 IFjv=2THEN9000 8070 GOTO8040 8100 IFo=81THENobj=1 8101 IFo<>81THENobj=0 8105 x=0:y=8 8110 m=0:b=1:l=0:r=1 8120 GOSUB10000 8125 GOSUB21000 8130 IFjv=8THEN8200 8140 IFjv=2THEN9100 8150 GOTO8125 8200 IFo=82THENobj=1 8201 IFo<>82THENobj=0 8205 x=1:y=8 8210 m=0:b=1:l=1:r=1 8220 GOSUB10000 8230 GOSUB21000 8240 IFjv=2THEN9200 8250 IFjv=8THEN8300 8260 IFjv=4THEN8100 8270 GOTO8230 8300 IFo=83THENobj=1 8301 IFo<>83THENobj=0 8305 x=2:y=8 8310 l=1:m=1:b=1:r=0 8320 GOSUB10000 8330 GOSUB21000 8340 IFjv=1THEN7300 8350 IFjv=2THEN9300 8360 IFjv=4THEN8200 8370 GOTO8330 8400 IFo=84THENobj=1 8401 IFo<>84THENobj=0 8410 x=3:y=8 8420 b=1:r=1:m=0:l=0 8430 GOSUB10000 8440 GOSUB21000 8450 IFjv=2THEN9400 8460 IFjv=8THEN8500 8470 GOTO8440 8500 IFo=85THENobj=1 8501 IFo<>85THENobj=0 8510 x=4:y=8 8520 m=0:l=1:r=1:b=1 8530 GOSUB10000 8540 GOSUB21000 8550 IFjv=2THEN9500 8560 IFjv=4THEN8400 8570 IFjv=8THEN8600 8580 GOTO8540 8600 IFo=86THENobj=1 8601 IFo<>86THENobj=0 8610 x=5:y=8 8620 m=1:l=1:r=0:b=0 8630 GOSUB10000 8640 GOSUB21000 8650 IFjv=1THEN7600 8660 IFjv=4THEN8500 8670 GOSUB8640 8700 IFo=87THENobj=1 8701 IFo<>87THENobj=0 8710 x=6:y=8 8720 b=1:r=1:m=0:l=0 8730 GOSUB10000 8740 GOSUB21000 8750 IFjv=2THEN9700 8760 IFjv=8THEN8800 8770 GOTO8740 8800 IFo=88THENobj=1 8801 IFo<>88THENobj=0 8810 x=7:y=8 8820 m=1:r=1:l=1:b=0 8830 GOSUB10000 8840 GOSUB21000 8850 IFjv=1THEN7800 8860 IFjv=8THEN8900 8870 IFjv=4THEN8700 8880 GOTO8840 8900 IFo=89THENobj=1 8901 IFo<>89THENobj=0 8910 x=8:y=8 8920 m=0:b=1:r=1:l=1 8930 GOSUB10000 8940 GOSUB21000 8950 IFjv=2THEN9900 8960 IFjv=8THEN9000 8970 IFjv=4THEN8800 8980 GOTO8940 9000 IFo=90THENobj=1 9001 IFo<>90THENobj=0 9010 x=9:y=8:m=1:l=1:r=0:b=0 9015 GOSUB10000 9016 GOSUB21000 9020 IFjv=4THEN8900 9025 IFjv=1THEN8000 9030 GOTO9016 9100 IFo=91THENobj=1 9101 IFo<>91THENobj=0 9105 x=0:y=9 9110 m=1:b=0:l=0:r=0 9120 GOSUB10000 9125 GOSUB21000 9130 IFjv=1THEN8100 9140 GOTO9125 9200 IFo=92THENobj=1 9201 IFo<>92THENobj=0 9205 x=1:y=9 9210 m=1:l=0:r=0:b=0 9220 GOSUB10000 9230 GOSUB21000 9240 IFjv=1THEN8200 9250 GOTO9230 9300 IFobj=93THENobj=1 9301 IFo<>93THENobj=0 9305 x=2:y=9 9310 m=1:r=1:l=0:b=0 9320 GOSUB10000 9330 GOSUB21000 9340 IFjv=1THEN8300 9350 IFjv=8THEN9400 9360 GOTO9330 9400 IFo=94THENobj=1 9401 IFo<>94THENobj=0 9410 x=3:y=9 9420 m=1:r=1:l=1:b=0 9430 GOSUB10000 9440 GOSUB21000 9450 IFjv=1THEN8400 9460 IFjv=8THEN9500 9470 IFjv=4THEN9300 9480 GOTO9440 9500 IFo=95THENboj=1 9501 IFo<>95THENobj=0 9510 x=4:y=9 9520 m=1:l=1:r=0:b=0 9530 GOSUB10000 9540 GOSUB21000 9550 IFjv=4THEN9400 9560 IFjv=1THEN8500 9570 GOTO9540 9600 IFo=96THENobj=1 9601 IFo<>96THENobj=0 9610 x=5:y=9 9620 l=0:b=0:m=0:r=1 9630 GOSUB10000 9640 GOSUB21000 9650 IFjv=8THEN9700 9660 GOTO9640 9700 IFo=97THENobj=1 9701 IFo<>97THENobj=0 9710 x=6:y=9 9720 m=1:r=1:l=1:b=0 9730 GOSUB10000 9740 GOSUB21000 9750 IFjv=1THEN8700 9760 IFjv=8THEN9800 9770 IFjv=4THEN9600 9780 GOTO9740 9800 IFo=98THENobj=1 9801 IFo<>98THENobj=0 9810 x=7:y=9 9820 l=1:r=0:b=0:m=0 9830 GOSUB10000 9840 GOSUB21000 9850 IFjv=4THEN9700 9860 GOTO9840 9900 IFo=99THENobj=1 9901 IFo<>99THENobj=0 9910 x=8:y=9 9920 m=1:r=1:l=0:b=0 9930 GOSUB10000 9931 GOSUB21000 9932 IFjv=1THEN8900 9933 IFjv=8THEN9950 9940 GOTO9931 9950 IFo=100THENobj=1 9951 IFo<>100THENobj=0 9960 x=9:y=9 9970 l=1:r=0:b=0:m=0 9971 GOSUB10000 9972 GOSUB21000 9973 IFjv=4THEN9900 9974 GOTO9972 10000 REM draw chamber 10110 PRINT"{home}{blue}{space*10}{cm @*20}" 10120 PRINT"{space*10}{light blue}{reverse on}{cm asterisk}{reverse off}{space*18}{reverse on}{sh pound}{reverse off}" 10130 PRINT"{space*10}{light blue}{reverse on} {cm asterisk}{reverse off}{space*16}{reverse on}{sh pound} {reverse off}" 10140 PRINT"{space*10}{light blue}{reverse on}{space*2}{cm asterisk}{reverse off}{space*14}{reverse on}{sh pound}{space*2}{reverse off}" 10150 PRINT"{space*10}{light blue}{reverse on}{space*3}{cm asterisk}{reverse off}{space*12}{reverse on}{sh pound}{space*3}{reverse off}" 10160 PRINT"{space*10}{light blue}{reverse on}{space*4}{cm asterisk}{reverse off}{space*10}{reverse on}{sh pound}{space*4}{reverse off}" 10170 PRINT"{space*10}{light blue}{reverse on}{space*5}{cm asterisk}{reverse off}{space*8}{reverse on}{sh pound}{space*5}{reverse off}" 10180 PRINT"{space*10}{light blue}{reverse on}{space*6}{blue}{space*8}{light blue}{space*6}{reverse off}" 10190 PRINT"{space*10}{light blue}{reverse on}{space*6}{blue}{space*8}{light blue}{space*6}{reverse off}" 10200 PRINT"{space*10}{light blue}{reverse on}{space*6}{blue}{space*8}{light blue}{space*6}{reverse off}" 10210 PRINT"{space*10}{light blue}{reverse on}{space*6}{blue}{space*8}{light blue}{space*6}{reverse off}" 10220 PRINT"{space*10}{light blue}{reverse on}{space*6}{blue}{space*8}{light blue}{space*6}{reverse off}" 10230 PRINT"{space*10}{light blue}{reverse on}{space*6}{blue}{space*8}{light blue}{space*6}{reverse off}" 10240 PRINT"{space*10}{light blue}{reverse on}{space*6}{blue}{space*8}{light blue}{space*6}{reverse off}" 10250 PRINT"{space*10}{light blue}{reverse on}{space*6}{blue}{space*8}{light blue}{space*6}{reverse off}" 10260 PRINT"{space*10}{light blue}{reverse on}{space*5}{reverse off}{sh pound}{space*8}{cm asterisk}{reverse on}{space*5}{reverse off}" 10270 PRINT"{space*10}{light blue}{reverse on}{space*4}{reverse off}{sh pound}{space*10}{cm asterisk}{reverse on}{space*4}{reverse off}" 10280 PRINT"{space*10}{light blue}{reverse on}{space*3}{reverse off}{sh pound}{space*12}{cm asterisk}{reverse on}{space*3}{reverse off}" 10290 PRINT"{space*10}{light blue}{reverse on}{space*2}{reverse off}{sh pound}{space*14}{cm asterisk}{reverse on}{space*2}{reverse off}" 10300 PRINT"{space*10}{light blue}{reverse on} {reverse off}{sh pound}{space*16}{cm asterisk}{reverse on} {reverse off}" 10310 PRINT"{space*10}{light blue}{sh pound}{space*18}{cm asterisk}" 10320 PRINT"{space*10}{blue}{cm t*20}" 10321 GOSUB23000 10322 IFo=0THENPRINT"{home}{down*23}"TAB(12)"{reverse on}{dark gray}object obtained" 10330 IFl=1THENGOSUB15000 10340 IFm=1THENGOSUB16000 10345 IFm=2THENGOSUB16500 10346 IFm=31THENGOSUB16750 10350 IFr=1THENGOSUB17000 10351 IFb=1THENGOSUB19000 10355 IFobj=1THENGOSUB18000 10360 RETURN 15000 PRINT"{light blue}{home}{down*6}{right*12}{cm asterisk}" 15010 PRINT"{home}{down*7}{right*12} {cm asterisk}" 15020 PRINT"{home}{down*8}{right*12}{space*2}{cm asterisk}" 15030 PRINT"{right*12}{space*3}" 15040 PRINT"{right*12}{space*3}" 15050 PRINT"{right*12}{space*3}" 15060 PRINT"{right*12}{space*3}" 15070 PRINT"{right*12}{space*3}" 15071 PRINT"{right*12}{space*3}" 15072 PRINT"{right*12}{space*3}" 15073 PRINT"{right*12}{space*3}" 15080 PRINT"{light blue}{home}{down*16}{right*12}{space*2}N" 15090 PRINT"{light blue}{home}{down*17}{right*12} N " 15100 PRINT"{light blue}{home}{down*18}{right*12}N{space*2}" 15110 RETURN 16000 PRINT"{home}{down*9}{right*18}{space*4}" 16010 PRINT"{right*18}{space*4}" 16030 PRINT"{right*18}{space*4}" 16040 PRINT"{right*18}{space*4}" 16050 PRINT"{right*18}{space*4}" 16060 PRINT"{right*18}{blue}{cm @*4}" 16070 RETURN 16500 PRINT"{home}{down*9}{right*18}{dark gray}{reverse on}{space*4}" 16510 PRINT"{right*18}{dark gray}{reverse on} {sh space}{space*2}" 16530 PRINT"{right*18}{dark gray}{reverse on} {sh space}{space*2}" 16540 PRINT"{right*18}{dark gray}{reverse on} {sh space}{space*2}" 16550 PRINT"{right*18}{dark gray}{reverse on} {sh space}{space*2}" 16560 PRINT"{right*18}{dark gray}{reverse on} {sh space}{space*2}" 16570 RETURN 16750 PRINT"{home}{down*8}{right*16}{reverse on}{blue}v{>*4}^>v" 16760 PRINT"{right*16}{reverse on}v>vv>>^>" 16770 PRINT"{right*16}{reverse on}^^<^^>^^" 16780 RETURN 17000 PRINT"{home}{down*6}{right*27}{light blue}{sh pound}" 17010 PRINT"{right*26}{light blue}{sh pound} " 17020 PRINT"{right*25}{light blue}{sh pound}{space*2}" 17040 PRINT"{right*25}{space*3}" 17050 PRINT"{right*25}{space*3}" 17060 PRINT"{right*25}{space*3}" 17070 PRINT"{right*25}{space*3}" 17080 PRINT"{right*25}{space*3}" 17090 PRINT"{right*25}{space*3}" 17100 PRINT"{right*25}{space*3}" 17120 PRINT"{right*25}{light blue}M{space*2}" 17130 PRINT"{right*26}{light blue}M " 17140 PRINT"{right*27}{light blue}M" 17150 RETURN 18000 PRINT"{home}{down*16}{right*19}{dark gray}{reverse on}{sh pound} {cm asterisk}" 18010 PRINT"{right*19}{dark gray}{cm asterisk}{reverse on} {reverse off}{sh pound}" 18020 PRINT"{right*19}{dark gray}{reverse on}{sh pound} {cm asterisk}" 18030 PRINT"{right*19}{dark gray}{cm asterisk}{reverse on} {reverse off}{sh pound}" 18040 RETURN 19000 PRINT"{home}{down*21}{right*15}{space*10}":RETURN 20000 REM place <> 20100 o=INT(RND(1)*100)+1:RETURN 21000 jv=PEEK(56320):fr=jvAND16 21004 IFti$=x$THEN24000 21005 PRINT"{home}{down*11}{right*2}"; 21006 PRINT"{blue}{reverse on}"MID$(ti$,3,2)":"MID$(ti$,5,2) 21007 PRINT"{home}{down*14}{right*2}"; 21008 PRINT"{light blue}{reverse on}"MID$(x$,3,2)":"MID$(x$,5,2) 21009 IFVAL(ti$)=>VAL(x$)-100THENPOKE53280,2:POKE53280,0 21010 jv=15-(jvAND15) 21011 GETa$:IFa$="{cm t}"ANDobj=1THEN22000 21040 IFjv=0THEN21000 21050 RETURN 22000 PRINT"{home}{down*16}{right*19}{space*3}" 22010 PRINT"{right*19}{space*3}" 22020 PRINT"{right*19}{space*3}" 22030 PRINT"{right*19}{space*3}" 22040 PRINT"{home}{down*23}"TAB(12)"{reverse on}{dark gray}object obtained" 22050 o=0:obj=0:ot$=ti$ 22060 GOTO10000 23000 PRINT"{home}{blue}{Q*9}{reverse on}^{reverse off}" 23010 FORt=1TO8:PRINT"{Q*10}":NEXT 23020 PRINT"{reverse on}^{reverse off}{Q*9}" 23021 PRINT"{light blue} U{sh asterisk*5}I" 23022 PRINT"{light blue} {sh -}{space*5}{sh -}" 23023 PRINT"{light blue} J{sh asterisk}{cm s} {cm a}{sh asterisk}K" 23024 PRINT"{blue} U{sh asterisk}{cm x} {cm z}{sh asterisk}I" 23025 PRINT"{blue} {sh -}{space*5}{sh -}" 23026 PRINT"{blue} J{sh asterisk*5}K" 23027 PRINT"{home}"; 23030 IFy=0THEN23040 23035 FORt=1TOy:PRINT"{down}";:NEXT 23040 PRINTTAB(x)"{yellow}Q" 23060 RETURN 24000 POKE54296,15:POKE54277,127:POKE54278,127:POKE54273,2:POKE54272,12:POKE54276,129 24010 FORx=0TO3STEP3 24020 POKE53270,(PEEK(53270)AND248)+x 24030 NEXT 24040 FORx=3TO0STEP-3 24050 POKE53270,(PEEK(53270)AND248)+x 24060 NEXT 24070 a=a+1:IFa=100THENa=0:GOTO24090 24080 GOTO24010 24090 PRINT"{clear}" 24100 FORt=15TO0STEP-1 24110 POKE54296,t 24120 FORd=1TO70:NEXTd 24130 NEXTt 24135 PRINT"{home}{down*12}" 24136 PRINTTAB(15)"{black}game over!" 24140 POKE53281,11:POKE53281,11 24145 FORt=1TO50:NEXT 24150 POKE53281,12:POKE53281,12 24155 FORt=1TO50:NEXT 24160 POKE53281,15:POKE53281,15 24165 FORt=1TO50:NEXT 24170 POKE53281,1:POKE53281,1 24175 FORt=1TO50:NEXT 24195 FORt=1TO3000:NEXTt 24200 POKE53281,1:POKE53281,1 24205 FORt=1TO50:NEXT 24210 POKE53281,15:POKE53281,15 24215 FORt=1TO50:NEXT 24220 POKE53281,12:POKE53281,12 24225 FORt=1TO50:NEXT 24230 POKE53281,11:POKE53281,11 24235 FORt=1TO50:NEXT 24240 POKE53281,0 24250 PRINT"{clear}";:POKE53281,6:POKE53280,14:POKE646,14:GOTO30200 30000 FORt=1TO500:NEXT 30005 PRINT"{home}{down*9}{right*18}{dark gray}{reverse on} {light blue}{space*2}{dark gray} " 30010 PRINT"{right*18}{dark gray}{reverse on} {light blue}{space*2}{dark gray} " 30030 PRINT"{right*18}{dark gray}{reverse on} {light blue}{space*2}{dark gray} " 30040 PRINT"{right*18}{dark gray}{reverse on} {light blue}{space*2}{dark gray} " 30050 PRINT"{right*18}{dark gray}{reverse on} {light blue}{space*2}{dark gray} " 30060 PRINT"{right*18}{dark gray}{reverse on} {light blue}{space*2}{dark gray} " 30065 FORt=1TO500:NEXT 30070 PRINT"{home}{down*9}{right*18}{dark gray}{reverse on}{light blue}{space*4}" 30080 PRINT"{right*18}{dark gray}{reverse on}{light blue}{space*4}" 30090 PRINT"{right*18}{dark gray}{reverse on}{light blue}{space*4}" 30100 PRINT"{right*18}{dark gray}{reverse on}{light blue}{space*4}" 30110 PRINT"{right*18}{dark gray}{reverse on}{light blue}{space*4}" 30120 PRINT"{right*18}{dark gray}{reverse on}{light blue}{space*4}" 30130 FORt=1TO500:NEXT 30140 POKE53281,14:POKE53280,14 30150 PRINT"{clear}" 30160 PRINT"{home}{down*12}{blue}"TAB(12)"congratulations!" 30170 PRINT"{space*2}object found in "MID$(ot$,3,2)":"MID$(ot$,5,2)" minutes" 30180 PRINT"{space*2}maze solved in{space*2}"MID$(ft$,3,2)":"MID$(ft$,5,2)" minutes" 30190 PRINTTAB(12)"congratulations!" 30200 PRINT:PRINT"{black}play again?"; 30210 GETa$:IFa$="y"THENPRINT"y":RUN 30220 IFa$="n"THENPRINT"y":POKE53281,6:POKE53280,14:POKE646,14:PRINT"{clear}":END 30230 GOTO30210 31000 PRINT"{clear}":POKE53281,0:POKE53280,0:FORt=1TO1000:NEXT 31010 PRINT"{home}{down}"TAB(16)"{dark gray}moondog7" 31015 FORt=1TO30:NEXT 31020 PRINT"{home}{down}"TAB(16)"{gray}moondog7" 31025 FORt=1TO30:NEXT 31030 PRINT"{home}{down}"TAB(16)"{light gray}moondog7" 31035 FORt=1TO30:NEXT 31040 PRINT"{home}{down}"TAB(16)"{white}moondog7" 31041 FORt=1TO30:NEXT 31042 PRINT"{home}{down*3}{dark gray}{space*11}presents ultramaze" 31043 FORt=1TO30:NEXT 31044 PRINT"{home}{down*3}{gray}{space*11}presents ultramaze" 31045 FORt=1TO30:NEXT 31046 PRINT"{home}{down*3}{light gray}{space*11}presents ultramaze" 31047 FORt=1TO30:NEXT 31048 PRINT"{home}{down*3}{white}{space*11}presents ultramaze" 31049 FORt=1TO30:NEXT 31050 PRINT"{home}{down*4}{dark gray}{space*13}updated 2/6/89" 31055 FORt=1TO30:NEXT 31060 PRINT"{home}{down*4}{gray}{space*13}updated 2/6/89" 31065 FORt=1TO30:NEXT 31070 PRINT"{home}{down*4}{light gray}{space*13}updated 2/6/89" 31075 FORt=1TO30:NEXT 31080 PRINT"{home}{down*4}{white}{space*13}updated 2/6/89" 31085 FORt=1TO30:NEXT 31090 PRINT"{home}{down*6}{dark gray}thanks to {reverse on}fgk{reverse off},who pointed out my error." 31095 FORt=1TO30:NEXT 31100 PRINT"{home}{down*6}{gray}thanks to {reverse on}fgk{reverse off},who pointed out my error." 31105 FORt=1TO30:NEXT 31110 PRINT"{home}{down*6}{light gray}thanks to {reverse on}fgk{reverse off},who pointed out my error." 31115 FORt=1TO30:NEXT 31120 PRINT"{home}{down*6}{white}thanks to {reverse on}fgk{reverse off},who pointed out my error." 31125 FORt=1TO30:NEXT 31130 PRINT"{home}{down*8}{blue}{space*9}press any key to begin" 31140 FORt=1351TO1376:POKEt+54272,1:POKEt+54271,3:POKEt+54273,3 31150 POKEt+54270,14:POKEt+54274,14:POKEt+54269,6:POKEt+54275,6 31160 GETa$:IFa$=""THENNEXT:GOTO31125 31170 PRINT"{clear}{blue}object:to recover the object and get out"; 31180 PRINT:PRINT"of the maze within a certain amount of" 31190 PRINT:PRINT"time." 31200 PRINT:PRINT"to move through the maze,push the" 31210 PRINT:PRINT"joystick in the direction you want to" 31220 PRINT:PRINT"move in. the map in the upper right" 31230 PRINT:PRINT"hand corner shows your location in the" 31240 PRINT:PRINT"maze. in any room,you will always be" 31250 PRINT:PRINT"facing towards the top of the map,not" 31260 PRINT:PRINT"in the direction you just came from." 31270 PRINT:PRINT"when you locate the object,push ({reverse on}com{reverse off}){reverse on}t{reverse off}" 31280 PRINT:PRINT"to pick it up." 31290 PRINT"{<*3}{reverse on}any key{reverse off}{>*3}" 31300 GETa$:IFa$=""THEN31300 31310 PRINT"{clear}a broken line at the bottom of a room" 31320 PRINT:PRINT"indicates a door." 31330 PRINT:PRINT"to set your time,enter it in this" 31340 PRINT:PRINT"format:{space*4}minutesseconds" 31350 PRINT:PRINT"for example: 9 minutes,30 seconds=0930" 31360 PRINT:PRINT"be sure that your time has 4 digits" 31370 PRINT:PRINT"in it,and no more than 59 seconds in" 31380 PRINT:PRINT"the seconds part." 31390 PRINT:INPUT"desired time";x$ 31400 IFLEN(x$)>4THENPRINT"no more than 4 digits,please":GOTO31390 31410 IFVAL(MID$(x$,3,2))>59THENPRINT"no more than 59 seconds,please":GOTO31390 31420 IFVAL(MID$(x$,3,2))<0THENPRINT"no less than 00 seconds,please":GOTO31390 31430 IFVAL(MID$(x$,1,2))<0THENPRINT"no less than 00 minutes,please":GOTO31390 31440 PRINT"{clear}": RETURN stop tok64 (bastext 1.0)