# REM _P_E£_7"___4___5 ______K__KJ____ # (__E£__Q__6:_E:_Q _V_A4__V____= 1 REM [HEX:\ 01,B5,02,2A,0C,40,23,0B,\ 7E,FE,82,20,F9,C5,01,21,\ 00,09,54,5D,09,C1,ED,B0,\ C9,06,B0,AF,D7,D7,D7,D7,\ 10,FA,C9,2A,0C,40,01,B6,\ 02,09,22,0E,40,2A,0E,40,\ 36,80,CD,BB,02,26,20,FA,\ CD,BB,02,44,4D,51,14,28,\ F7,CD,BD,07,7E,FE,76,28,\ 27,FE,77,28,15,FE,0B,28,\ E1,CB,77,20,DD,2A,0E,40,\ 77,23,7E,FE,76,20,CB,2B,\ 18,C8,2A,0E,40,AF,77,2B,\ 7E,FE,76,20,BD,23,18,BA,\ 2A,0E,40,AF,77,11,16,41,\ 2A,0C,40,01,B6,02,09,01,\ 1F,00,ED,B0,C9,1B,1B,1B,\ 1B,1B ] 2 LET C$=" " 3 RETURN 4 SLOW 5 LET IN=USR VAL "16549" 6 IF F$="F" THEN FAST 7 GOTO VAL "2" 8 PRINT AT VAL "21",USR VAL "16514"; 9 RETURN 10 PRINT AT PI-PI,PI-PI; 20 LET CL=USR 16539 25 IF LN>15 AND (LAMP=0 OR P(23)<>99) THEN PRINT AT PI-PI,PI-PI;"ITS TOO DARK TO SEE." 26 IF LN>15 AND (P(23)<>99 OR LAMP=0) THEN GOTO 135 30 PRINT AT 0,0;"LOCATION : ";L$(LN) 40 IF E$(LN)=" " THEN GOTO 100 50 PRINT "EXITS : "; 60 FOR Z=1 TO 4 70 LET U$=E$(LN)(Z) 80 IF U$="N" THEN PRINT "NORTH."; 82 IF U$="S" THEN PRINT "SOUTH."; 84 IF U$="E" THEN PRINT "EAST."; 86 IF U$="W" THEN PRINT "WEST."; 87 IF U$="U" THEN PRINT "UP."; 88 IF U$="D" THEN PRINT "DOWN."; 90 NEXT Z 95 PRINT 100 PRINT "I CAN SEE : "; 101 LET FZ=0 110 FOR Z=1 TO NO 120 IF P(Z)<>LN THEN GOTO 130 121 PRINT O$(Z), 122 LET FZ=1 130 NEXT Z 132 IF FZ=0 THEN PRINT "NOTHING SPECIAL", 135 PRINT 140 PRINT "ª®®®®®®®®®®®®®®®®®®®®®®®®®®®®®®¬" 145 IF TU=PI-PI THEN PRINT AT VAL "7",PI-PI;"YOU MUST SEARCH FOR THE 3 PIECESOF THE ROYAL SCEPTER , REMAKE ITAND RETURN IT TO THE EMPEROR." 150 IF (LAMP=0 OR P(23)<>99) AND LN>15 THEN GOSUB S 151 IF (LAMP=0 OR P(23)<>99) AND LN>15 THEN PRINT "ITS RISKY MOVING IN THE DARK" 152 GOSUB S 155 LET TU=TU+1 160 PRINT "TELL ME WHAT TO DO NEXT :" 170 GOSUB S 180 GOSUB 4 190 GOSUB S 200 IF C$(1)=" " THEN GOTO 155 202 LET T$=C$( TO 3) 204 IF T$="NOR" OR T$="SOU" OR T$="EAS" OR T$="WES" OR T$="UP " OR T$="DOWN" OR T$="U " OR T$="D " OR T$="N " OR T$="S " OR T$="E " OR T$="W " THEN GOTO 1000 208 IF T$="I " THEN GOTO 1100 218 IF LEN C$>26 THEN LET C$=C$( TO 26) 219 GOSUB 5500 220 IF C$="SLO" THEN LET F$="S" 230 IF C$="FAS" THEN LET F$="F" 240 IF C$="SLO" OR C$="FAS" THEN GOTO 150 250 IF C$="TAK" OR C$="GRA" OR C$="GET" THEN GOTO 2000 260 IF C$="LEAV" OR C$="PUT" OR C$="DRO" THEN GOTO 2100 270 IF C$="SEA" OR C$="LOO" OR C$="EXA" THEN GOTO 2500 280 IF C$="INV" THEN GOTO 1100 290 IF C$="HEL" THEN GOTO 7500 300 IF C$="SCO" THEN GOTO 2700 310 IF C$="ENT" OR C$="BOA" THEN GOTO 2800 320 IF C$="LEA" OR C$="JUM" THEN GOTO 2810 330 IF C$="REA" THEN GOTO 3100 340 IF C$="CLI" THEN GOTO 2820 350 IF C$="SHA" THEN GOTO 2840 360 IF C$="CLE" OR C$="WAS" THEN GOTO 2850 370 IF C$="MAK" OR C$="BUI" OR C$="COM" THEN GOTO 3800 380 IF C$="CUT" OR C$="CHO" THEN GOTO 2860 390 IF C$="KIC" THEN GOTO 2870 400 IF C$="PUS" OR C$="PRE" THEN GOTO 2890 410 IF C$="SWI" THEN GOTO 4500 420 IF C$="UNL" THEN GOTO 2950 430 IF C$="OPE" THEN GOTO 6000 440 IF C$="UNL" THEN GOTO 6100 450 IF C$="LIF" THEN GOTO 6100 460 IF C$="LIG" THEN GOTO 2960 470 IF C$="SAV" THEN GOTO 8000 480 IF C$="QUI" THEN GOTO 2900 490 IF C$="TIM" THEN GOTO 2760 500 IF C$="OFF" OR C$="GIV" THEN GOTO 4000 510 IF C$="RUB" THEN GOTO 4020 520 IF C$="ROL" THEN GOTO 4050 530 IF C$="SAY" THEN GOTO 4200 540 IF C$="PIC" THEN GOTO 4300 550 IF C$="MEL" THEN GOTO 4400 560 IF C$="INS" THEN GOTO 4600 570 IF C$="ATT" OR C$="KIL" THEN GOTO 4700 580 IF C$="EXC" OR C$="SWA" THEN GOTO 7000 590 IF C$="FOR" THEN GOTO 7050 600 IF C$="WAV" THEN GOTO 7200 980 PRINT "I DO NOT UNDESRTAND WHAT" 981 GOSUB S 982 PRINT "À";A$;"À IS." 990 GOTO M 1000 LET C$=C$(1) 1010 FOR Z=1 TO 4 1020 IF E$(LN)(Z)=C$ THEN GOTO 1060 1030 NEXT Z 1035 IF (P(23)<>99 OR LAMP=0) AND LN>15 THEN GOTO 1081 1040 PRINT "I CANT GO THERE." 1050 GOTO M 1060 LET TV=(Z-1)*2+1 1070 LET LN=VAL D$(LN)(TV TO TV+1) 1080 GOTO 10 1081 PRINT "YOU FELL IN THE DARK AND BROKE" 1082 GOSUB S 1083 PRINT "YOUR NECK,SO SORRY." 1085 GOTO 2900 1100 PRINT "I AM CARRYING :" 1105 IF IC=0 THEN GOTO 1150 1110 FOR Z=1 TO NO 1120 IF P(Z)=99 THEN PRINT AT 21,USR 16514;O$(Z) 1130 NEXT Z 1140 GOTO M 1150 GOSUB S 1160 PRINT "NOTHING AT ALL." 1170 GOTO M 1200 PRINT "I CANT DO THAT...YET." 1210 GOTO M 1220 PRINT "I CANT DO THAT." 1230 GOTO M 1240 PRINT "NOTHING HAPPENS." 1250 GOTO M 2000 IF IC<8 THEN GOTO 2010 2001 PRINT "MY HANDS ARE FULL." 2002 GOTO M 2010 GOSUB CH 2011 IF P(Z)<>99 THEN GOTO 2020 2012 PRINT "I ALREADY HAVE." 2013 GOTO M 2020 IF P(Z)=LN THEN GOTO 2030 2021 PRINT "IT IS NOT HERE." 2022 GOTO M 2030 IF G$(Z)="Y" THEN GOTO 2040 2031 PRINT "I CANT." 2032 GOTO M 2040 IF ((Z=3 AND SW=0) OR (Z=4 AND SW=1)) AND LN=26 THEN GOTO 2043 2041 GOTO 2049 2043 PRINT "THE WEIGHT IMBALANCE ON THE" 2044 GOSUB S 2045 PRINT "PEDASTOL RELEASES A CLOUD OF" 2046 GOSUB S 2047 PRINT "DEADLY GAS." 2048 GOTO 2900 2049 LET P(Z)=99 2050 LET IC=IC+1 2060 PRINT "OK." 2070 GOTO DL 2100 GOSUB CH 2110 IF P(Z)=99 THEN GOTO 2140 2120 PRINT "I HAVE NOT GOT IT." 2130 GOTO M 2140 LET P(Z)=LN 2150 LET IC=IC-1 2160 GOTO OK 2500 GOSUB CH 2505 IF P(Z)<>LN AND P(Z)<>99 THEN GOTO 1200 2510 PRINT "I SEE" 2520 GOSUB S 2530 LET R$="NOTHING SPECIAL" 2531 IF X$<>"FEN" OR P(8)<>0 THEN GOTO 2540 2532 PRINT "A LOOSE WIRE" 2533 LET P(8)=LN 2534 GOTO DL 2540 IF X$="GOB" THEN LET R$="AN ENGRAVING : ÀMELT MEÀ" 2550 IF X$="SWO" THEN LET R$="THAT IT IS VERY SHARP" 2560 IF X$="CRY" THEN LET R$="A GOBLET AND A FURNACE" 2570 IF X$="MAC" THEN LET R$="A SLOT" 2580 IF X$="FUR" THEN LET R$="THAT IT IS VERY HOT" 2590 IF X$="SKU" OR X$="STA" OR X$="RUB" THEN LET R$="THAT IT IS PART OF THE SCEPTER" 2680 PRINT R$;"." 2685 IF X$="BRI" THEN GOTO DL 2690 GOTO M 2700 LET P=0 2701 IF P(35)<>99 THEN GOTO 2710 2702 PRINT "YOU HAVE ALL OF THE PIECES." 2703 GOTO M 2710 LET P=P+(1 AND P(1)=99)+(1 AND P(2)=99)+(1 AND P(3)=99) 2720 PRINT "YOU HAVE ";P;" PIECE";("S" AND P<>1);" OF THE SCEPTER" 2730 GOTO M 2760 PRINT "YOU HAVE USED ";TU;" TURN";("S" AND TU>1);"." 2770 GOTO M 2800 GOSUB CH 2801 IF X$<>"BOA" THEN GOTO CD 2802 IF LN<>5 THEN GOTO NY 2803 LET LN=8 2804 GOTO OK 2810 GOSUB CH 2811 IF X$<>"FEN" THEN GOTO 2815 2812 IF LN<>3 THEN GOTO NY 2813 LET LN=7 2814 GOTO OK 2815 IF X$<>"PIT" OR LN<>20 THEN GOTO CD 2816 PRINT "YOU FALL TO YOUR DEATH." 2817 GOTO 2900 2820 GOSUB CH 2821 IF X$="ROP" THEN GOTO 2830 2822 IF X$<>"TRE" THEN GOTO CD 2823 IF O$(15)(1)<>"C" THEN GOTO 2826 2824 PRINT "ITS TOO LATE FOR THAT." 2825 GOTO M 2826 IF LN<>4 THEN GOTO NY 2827 LET LN=6 2828 GOTO OK 2830 IF LN<>28 THEN GOTO NY 2831 LET LN=29 2832 GOTO OK 2840 GOSUB CH 2841 IF P(Z)<>99 THEN GOTO CD 2842 IF X$<>"BOO" OR P(12)<>0 THEN GOTO NH 2843 PRINT "SOMETHING FALLS TO THE FLOOR." 2844 LET P(12)=LN 2845 GOTO DL 2850 GOSUB CH 2851 IF P(Z)<>99 OR LN<>5 THEN GOTO NY 2852 IF Z=13 THEN GOTO 2855 2853 PRINT "IT IS NOW VERY CLEAN." 2854 GOTO M 2855 LET P(13)=0 2856 LET P(14)=99 2857 PRINT "THE MUD WASHES OFF THE BALL....." 2858 GOSUB S 2859 GOTO 1100 2860 GOSUB CH 2861 IF X$<>"TRE" THEN GOTO CD 2862 IF P(6)<>99 OR LN<>4 OR O$(15)(1)="C" THEN GOTO NY 2863 LET O$(15)="CHOPPED TREE" 2864 PRINT "TIMBER..." 2865 GOTO DL 2870 GOSUB CH 2871 IF P(Z)<>LN THEN GOTO NY 2872 IF O$(17)(1)<>"B" AND X$="GAT" THEN GOTO 2875 2873 PRINT "OUCH,MY FOOT." 2874 GOTO M 2875 PRINT "IT FALLS TO THE FLOOR." 2876 LET O$(17)="BROKEN GATE" 2877 LET E$(LN)="NE" 2878 GOSUB S 2879 PRINT "I CAN NOW GO EAST." 2880 GOTO DL 2890 GOSUB CH 2891 IF P(Z)<>LN AND P(Z)<>99 THEN GOTO NY 2892 IF X$<>"BEL" THEN GOTO NH 2893 PRINT "BUZZ....." 2894 GOSUB S 2895 PRINT "IM ELECTROCUTED." 2900 GOSUB S 2905 PRINT "THE GAME IS OVER." 2910 GOSUB S 2920 PRINT "DO YOU WISH TO PLAY AGAIN? (Y/N)" 2925 GOSUB S 2930 GOSUB 4 2935 IF C$(1)="Y" THEN GOTO 9000 2940 IF C$(1)="N" THEN STOP 2945 GOTO 2910 2950 GOSUB CH 2951 IF P(Z)<>LN THEN GOTO CD 2952 IF X$="CHE" THEN PRINT "HOW?" 2953 IF X$="CHE" THEN GOTO M 2954 IF X$<>"DOO" THEN GOTO CD 2955 IF LN<>10 OR P(12)<>99 OR O$(18)(1)<>"D" THEN GOTO NY 2956 LET O$(18)="UNLOCKED DOOR" 2957 GOTO OK 2960 GOSUB CH 2961 IF X$<>"LAM" THEN GOTO CD 2962 IF P(23)<>99 OR LAMP=1 THEN GOTO NY 2963 LET LAMP=1 2964 LET O$(23)="LIT LAMP" 2965 GOTO OK 3100 GOSUB CH 3110 IF X$<>"SCR" THEN GOTO CD 3120 IF P(Z)<>99 THEN GOTO NY 3130 PRINT "ZAPP..." 3135 LET LN=16 3140 GOTO DL 3300 IF F$="F" THEN PAUSE 100 3305 FOR D=1 TO 50 3310 NEXT D 3320 GOTO 10 3800 GOSUB CH 3810 IF X$<>"SCE" THEN GOTO CD 3820 IF P(1)=99 AND P(2)=99 AND P(3)=99 THEN GOTO 3830 3821 PRINT "YOU HAVE NOT GOT ALL THE PIECES" 3822 GOTO M 3830 IF P(35)<>0 THEN GOTO NY 3840 LET P(1)=0 3850 LET P(2)=0 3860 LET P(3)=0 3870 LET P(35)=99 3880 LET IC=IC-2 3890 GOTO 1100 4000 GOSUB CH 4001 IF X$<>"ACO" AND X$<>"DIA" THEN GOTO CD 4002 IF P(Z)<>99 THEN GOTO NY 4003 IF X$="DIA" THEN GOTO 4012 4004 IF P(24)=0 OR LN<>27 THEN GOTO NY 4005 PRINT "THE DEMON TAKES IT AND RUNS OFF." 4006 LET P(Z)=0 4007 LET P(24)=0 4008 LET E$(27)="WE" 4009 GOSUB 4030 4010 PRINT "I CAN NOW GO EAST." 4011 GOTO DL 4012 IF P(7)=0 OR LN<>25 THEN GOTO NY 4013 PRINT "THE DRAGON IS NOW VERY HAPPY." 4014 LET O$(33)="HAPPY DRAGON" 4015 LET P(Z)=0 4016 LET E$(25)="WE" 4017 GOTO 4009 4020 GOSUB CH 4021 IF X$<>"CRY" THEN GOTO CD 4022 IF P(Z)<>99 THEN GOTO NY 4023 IF LN<>20 THEN GOTO NH 4024 PRINT "I SLOWLY FLOAT ACROSS THE PIT..." 4025 LET LN=21 4026 GOTO DL 4030 LET IC=IC-1 4032 GOSUB S 4034 RETURN 4050 GOSUB CH 4055 IF X$<>"WHE" THEN GOTO CD 4060 IF P(Z)<>99 THEN GOTO NY 4065 IF LN=17 THEN GOTO 4100 4070 PRINT "THE WHEEL ROLLS FOR A WHILE....." 4072 FOR D=1 TO 25 4074 NEXT D 4076 IF F$="F" THEN PAUSE 100 4080 GOSUB S 4085 PRINT "AND FALLS OVER." 4086 LET IC=IC-1 4087 LET P(Z)=LN 4088 GOTO M 4100 IF O$(26)(1)="B" THEN GOTO 4108 4101 PRINT "THE WHEEL ROLLS AWAY." 4102 GOTO 4135 4108 PRINT "THE WHEEL ROLLS AWAY AND YOU" 4109 GOSUB S 4110 PRINT "HEAR A SQUELCHING SOUND TO THE" 4115 GOSUB S 4120 PRINT "SOUTH." 4125 LET O$(26)="FLAT SPIDER" 4130 LET E$(18)="NS" 4135 LET IC=IC-1 4140 LET P(10)=18 4141 IF F$="F" THEN PAUSE 100 4145 GOTO DL 4200 PRINT "OK." 4210 GOSUB S 4220 PRINT "À";B$;"À." 4230 GOSUB S 4240 IF LN<>21 OR P(29)=0 OR X$<>"HEL" THEN GOTO NH 4250 PRINT "THE GHOST SAYS :" 4255 GOSUB S 4260 PRINT "ÀWAVE THE STAFF BY THE FALLEN" 4265 GOSUB S 4270 PRINT "OAK.À AND VANISHES." 4280 LET P(29)=0 4290 GOTO DL 4300 IF X$<>"LOC" THEN GOTO CD 4301 IF LN<>19 OR P(8)<>99 OR O$(27)(1)="O" THEN GOTO NY 4302 PRINT "THE CHEST SPRINGS OPEN." 4303 LET O$(27)="OPEN CHEST" 4304 LET P(2)=LN 4305 GOTO DL 4400 GOSUB CH 4401 IF P(Z)<>99 OR LN<>23 THEN GOTO NY 4402 IF X$<>"GOB" THEN GOTO 4410 4403 LET O$(21)="GOLD COIN" 4404 LET N$(21)="COI" 4405 PRINT "SOMETHING HAPPENS." 4406 LET IC=IC-1 4407 LET P(Z)=LN 4408 GOTO DL 4410 PRINT "IT VANISHES IN A PUFF OF SMOKE." 4411 LET P(Z)=-1 4412 LET IC=IC-1 4413 GOTO M 4500 PRINT "NO THANKS." 4510 GOTO M 4600 GOSUB CH 4610 IF X$<>"COI" THEN GOTO CD 4620 IF LN<>22 OR P(Z)<>99 THEN GOTO NY 4630 LET P(Z)=LN 4640 LET O$(Z)="SCROLL" 4650 LET N$(Z)="SCR" 4660 LET IC=IC-1 4670 GOTO OK 4700 GOSUB CH 4705 IF X$<>"DOG" THEN GOTO CD 4710 IF LN<>24 OR O$(32)(1)<>"F" THEN GOTO NY 4715 IF P(20)=99 THEN GOTO 4720 4716 PRINT "I WILL NEED SOMETHING SHARP." 4717 GOTO M 4720 LET O$(32)="DEAD DOG" 4725 LET E$(LN)="NE" 4726 PRINT "WITH A BLOW OF THE SWORD THE DOG" 4727 GOSUB S 4728 PRINT "KEELS OVER." 4729 GOSUB S 4730 PRINT "I CAN NOW GO EAST." 4735 GOTO DL 5000 FOR Z=1 TO NO 5010 IF N$(Z)=X$ THEN RETURN 5020 NEXT Z 5030 PRINT "I DO NOT KNOW WHAT À";B$;"À IS." 5040 GOTO M 5500 FOR Z=1 TO LEN C$ 5510 IF C$(Z)=" " THEN GOTO 5600 5520 NEXT Z 5530 LET A$=C$ 5540 LET C$=C$( TO 3) 5550 RETURN 5600 LET A$=C$( TO Z-1) 5610 LET B$=C$(Z+1 TO ) 5615 IF LEN B$<6 OR LEN A$<3 THEN GOTO 980 5620 LET C$=A$( TO 3) 5630 LET X$=B$( TO 3) 5640 LET B$=B$( TO 6) 5650 RETURN 6000 GOSUB CH 6001 IF X$<>"DOO" THEN GOTO 6010 6002 IF LN<>10 THEN GOTO NY 6003 IF O$(18)(1)="D" THEN PRINT "ITS LOCKED." 6004 IF O$(18)(1)="O" THEN PRINT "IT ALREADY IS." 6005 IF O$(18)(1)="D" OR O$(18)(1)="O" THEN GOTO M 6006 LET O$(18)="OPEN DOOR" 6007 PRINT "I CAN NOW GO SOUTH." 6008 LET E$(10)="WS" 6009 GOTO DL 6010 IF X$<>"CHE" THEN GOTO CD 6011 IF LN<>19 OR O$(27)(1)="O" THEN GOTO NY 6012 PRINT "IT IS SHUT TIGHT AND LOCKED." 6013 GOTO M 6100 GOSUB CH 6101 IF X$<>"PAN" THEN GOTO CD 6102 IF LN<>14 OR O$(22)(1)="O" THEN GOTO NY 6103 LET O$(22)="OPEN PANEL" 6104 PRINT "I CAN NOW GO DOWN." 6105 LET E$(14)="NED" 6106 GOTO DL 7000 GOSUB CH 7010 IF X$<>"RUB" THEN GOTO CD 7020 IF LN<>26 OR SW=1 THEN GOTO NY 7030 PRINT "WHAT FOR?" 7040 GOTO M 7050 GOSUB CH 7060 IF LN<>26 OR SW=1 THEN GOTO NY 7070 IF P(Z)<>99 THEN GOTO NY 7080 IF X$="DIR" THEN GOTO 7100 7081 PRINT "NOT THE RIGHT WEIGHT." 7082 GOSUB S 7089 GOTO 2043 7100 LET P(3)=99 7110 LET P(Z)=LN 7120 LET SW=1 7130 GOTO OK 7200 GOSUB CH 7205 IF P(Z)<>VAL "99" THEN GOTO NY 7210 IF LN<>VAL "4" OR O$(15)(1)="O" OR X$<>"SCE" THEN GOTO NH 7220 PRINT AT PI-PI,PI-PI; 7225 LET CL=USR VAL "16539" 7226 PRINT AT PI-PI,PI-PI;"YOU ARE TELEPORTED TO THE PALACE",," OF THE EMPEROR AND MADE A HERO",,," FOR FINDING THE STAFF." 7230 PRINT ,,"CONGRATULATIONS.YOU HAVE BEATEN THE ADVENTURE." 7240 PRINT "ª®®®®®®®®®®®®®®®®®®®®®®®®®®®®®®¬" 7250 GOTO VAL "2900" 7500 LET R$="TRY EXAMINING THINGS." 7510 IF LN=VAL "3" THEN LET R$="WHATS OVER THE FENCE?" 7520 IF LN=VAL "27" THEN LET R$="DEMONS LIKE NUTS." 7530 IF LN=VAL "21" THEN LET R$="SAY SOMETHING THEN." 7540 IF LN=VAL "26" THEN LET R$="THINGS MUST BE PROPERLY BALANCED." 7550 IF P(10)=VAL "99" THEN LET R$="WHAT DO WHEELS DO?" 7560 PRINT R$ 7570 GOTO M 8000 PRINT "PRESS ÀNEWLINEÀ WHEN READY." 8010 GOSUB S 8020 GOSUB 4 8030 SAVE "ADVENTURe" 8040 GOSUB 9500 8050 GOTO 9800 9000 GOSUB VAL "9500" 9010 LET F$="S" 9070 LET IC=1 9080 LET TU=0 9115 LET LN=1 9117 LET LAMP=0 9118 LET SW=0 9120 LET G$="YYYYNYYYNYYYYYNYNNNYYYYNNNNNNNNNNNY" 9130 LET P$="2900269905080800030707000200040609101012131415272818192021232224252600" 9140 FOR Z=1 TO NO 9150 LET Z1=VAL "2*Z-1" 9160 LET P(Z)=VAL P$(Z1 TO Z1+1) 9170 NEXT Z 9200 LET O$(15)="OAK TREE" 9210 LET O$(17)="GATE" 9220 LET E$(9)="N" 9230 LET O$(18)="DOOR" 9240 LET E$(10)="W" 9250 LET O$(22)="PANEL" 9260 LET O$(21)="GOLD GOBLET" 9270 LET N$(21)="GOB" 9280 LET E$(14)="NE" 9290 LET O$(23)="LAMP" 9300 LET E$(27)="W" 9310 LET O$(33)="SAD DRAGON" 9320 LET O$(26)="BIG SPIDER" 9330 LET E$(18)="N" 9340 LET O$(27)="ANCIENT CHEST" 9370 LET E$(24)="N" 9380 LET O$(32)="FIERCE DOG" 9490 GOTO 9800 9500 CLS 9501 SLOW 9502 POKE 16418,0 9505 PRINT "ADVENTURE NUMBER 1.ÀTHE SCEPTERÀ" 9510 PRINT "¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿" 9520 PRINT " WITH THIS PROGRAM YOU MAY HAVEAN ÀADVENTUREÀ WITHOUT HAVING TOLEAVE THE COMFORT OF YOUR CHAIR." 9530 PRINT ,," THE COMPUTER WILL ACT AS YOUR GUIDE AND WILL RESPOND TO ONE ORTWO WORD ENGLISH PHRASES,SUCH AS" 9540 PRINT "ÀGET SWORDÀ,ÀNORTHÀ,ÀOPEN BOXÀ." 9550 PRINT ,,"SOME USEFUL COMMANDS ARE :" 9560 PRINT "ÀSAVE GAMEÀ,ÀINVENTORYÀ,ÀGETÀ, ÀDROPÀ,ÀNORTHÀ,ÀSOUTHÀ,ÀEASTÀ, ÀWESTÀ"; 9570 PRINT ",ÀEXAMINEÀ AND ÀTIMEÀ." 9580 PRINT ,," DIRECTIONS MAY BE ABBRIEVIATEDTO ONLY THE FIRST LETTER EG. ÀNTAB FOR ÀNORTHÀ." 9590 PRINT " YOUR GUIDE KNOWS MORE THAN 80 WORDS." 9600 PRINT AT 23,0;"««author««‰««simon««wadsworth«««" 9700 RETURN 9800 PRINT AT 22,4;"PRESS ÀNEWLINEÀ TO PLAY" 9810 GOSUB 4 9820 PRINT AT 22,0;" " 9980 PRINT AT 23,0;"««‹cŒ«˜ Ÿ™«‘«bug«byte«software««" 9990 GOTO 10 9998 SAVE "ADVENTURe" 9999 GOTO 9000