10 POKE816,165:POKE817,244:DV=PEEK(186):IF GG=1 THEN22 11 IF GG=2 THEN24 12 IF GG=3 THEN26 13 IF GG=4 THEN28 14 IF GG=5 THEN30 16 IF GG=6 THEN60 20 GG=1:LOAD"MAINSPR",DV,1 22 GG=2:LOAD"PBCHAR4",DV,1 24 GG=3:LOAD"TELSCR2",DV,1 26 GG=4:LOAD"FASTCOL",DV,1 28 GG=5:LOAD"SPR7",DV,1 30 GG=6:LOAD"4SPR",DV,1 59 REM 60 POKE53281,0:POKE53280,0:XX=110:YY=129:GOSUB60000:GOSUB51000:RN=RND(-TI) 61 POKE774,226:TX=50176+411:V=53248:POKEV+16,0:MS=0 62 GL=250:CL=14:CM=12:HP=250:WS=5:AP=0 63 CY=0:QS=0:QC=0:QH=0:QR=0:QF=0:QM=0:QT=0:QB=0:KF=0:KB=0:DX=0:DY=0:QP=0:PU=0 64 TP=0:FD=20:RE=0:RW=0:RF=0:RA=0:SZ=0:SD=0:TM=800:OX=0:GOSUB3500:POKEV+21,1 65 POKE53270,PEEK(53270)OR16 66 POKE53282,5:POKE53283,12:POKE53210,14:SYS53200 67 SA=35072:DG=0: EA=SA+999:NS=50176:GOSUB55010 68 PRINT"[159]";:GOTO200 69 END 70 POKE781,PY:POKE782,PX:POKE783,0:SYS65520:RETURN 72 POKE53270,PEEK(53270)AND239:END 74 POKE198,0:WAIT198,1:GETA$:RETURN 75 REMGL* 76 GL=GL-CT:IFGL<0THENGL=GL+CT:GOTO78 77 PRINT:PRINT:PRINT"OK !":GOSUB98:NG=0:RETURN 78 PRINT:PRINT:PRINT"NOT ENOUGH GOLD !!":GOSUB98:NG=1:RETURN 82 SC=50176:K=SC+41:FORP=KTOK+37:POKEP,ZB:NEXT 83 K=SC+81:FORP=1TO21:POKEK,ZB:POKEK+37,ZB:K=K+40:NEXT 84 K=SC+921:FORP=KTOK+37:POKEP,ZB:NEXT:RETURN 86 REM 87 POKE781,ZY:POKE782,ZX:POKE783,0:SYS65520 88 FORK=1TOZL:PRINTZC$;:NEXT:RETURN 92 FORK=1TOZL:POKE781,ZY:POKE782,ZX:POKE783,0:SYS65520 93 PRINTZC$:ZY=ZY+1:NEXT:RETURN 96 RN=INT(RND(1)*RH+1):RETURN 98 FORK=1TOTM:NEXT:RETURN 100 POKE53265,PEEK(53265)AND239:RETURN :REMOFF 102 POKE53265,PEEK(53265)OR16:RETURN:REMON 103 REM*SVDNG 200 JS=PEEK(56320):SS=TX-50176 201 IFTP=1THENTP=0:GOTO20800 204 IFAP>20THEN20000 206 IFPEEK(197)=60THENGOSUB3000:GOTO20730 208 IFPEEK(197)=17THEN293 240 IF JS=126THENAP=AP+1:GOTO300:REMU 250 IF JS=125THENAP=AP+1:GOTO400:REMD 260 IF JS=119THENAP=AP+1:GOTO500:REMR 270 IF JS=123THENAP=AP+1:GOTO600:REML 280 IF JS=111THENAP=AP+1:GOTO700:REMF 290 GOTO200 292 REM 293 IFDG>5THEN200:REMSXT 294 IFSZ=0THEN200 295 SS=TX-50176:SY=INT(SS/40):SX=SS-(SY*40):PY=24:PX=2:GOSUB70:PRINT"[159]"; 296 PRINT" ";:GOSUB70:PRINT"X=";:PRINTSX;:PRINT" Y=";:PRINTSY; 297 GOSUB98:GOSUB98:GOSUB70:PRINT" ";:GOTO200 300 IFPEEK(TX-40)<64ANDDG<5THEN303 301 IFPEEK(TX-40)=80THEN303 302 GOTO200 303 FORP=1TO2 304 AU=AU+1:IFAU=4THENAU=0 305 SA=49408+(AU*64):EA=SA+63:NS=49152:GOSUB55010 315 POKE53249,PEEK(53249)-4:NEXT:TX=TX-40:IFPEEK(53249)=65THEN1000 350 GOTO200 400 IFPEEK(TX+40)<64ANDDG<5THEN403 401 IFPEEK(TX+40)=80THEN403 402 GOTO200 403 FORP=1TO2 404 AD=AD+1:IFAD=4THENAD=0 405 SA=49664+(AD*64):EA=SA+63:NS=49152:GOSUB55010 415 POKE53249,PEEK(53249)+4:NEXT:TX=TX+40:IFPEEK(53249)=225THEN1200 450 GOTO200 500 IFPEEK(TX)=80ANDPEEK(TX+41)<>102THEN200 502 IFPEEK(TX+1)<64THEN505 503 IFPEEK(TX+1)=80THEN505 504 GOTO200 505 IFPEEK(53248)=254THEN563 506 FORP=1TO2 507 AR=AR+1:IFAR=4THENAR=0 508 SA=49408+(AR*64):EA=SA+63:NS=49152:GOSUB55010 515 POKE53248,PEEK(53248)+4:NEXT:TX=TX+1 550 GOTO200 563 AR=AR+1:IFAR=4THENAR=0 565 SA=49408+(AR*64):EA=SA+63:NS=49152:GOSUB55010 570 POKEV+16,1:MS=1:POKE53248,2 573 AR=AR+1:IFAR=4THENAR=0 575 SA=49408+(AR*64):EA=SA+63:NS=832:GOSUB55010 576 POKE53248,6:TX=TX+1 580 GOTO200 600 IFPEEK(TX)=80ANDPEEK(TX+41)<>102THEN200 602 IFPEEK(TX-1)<64THEN605 603 IFPEEK(TX-1)=80THEN605 604 GOTO200 605 IFMS=1ANDPEEK(53248)=6THEN670 606 FORP=1TO2 607 AL=AL+1:IFAL=4THENAL=0 608 SA=49664+(AL*64):EA=SA+63:NS=49152:GOSUB55010 615 POKE53248,PEEK(53248)-4:NEXT:TX=TX-1 650 GOTO200 670 POKE53248,2 673 AL=AL+1:IFAL=4THENAL=0 675 SA=49664+(AL*64):EA=SA+63:NS=49152:GOSUB55010 676 POKEV+16,0:MS=0:POKE53248,254:TX=TX-1 680 GOTO200 684 PY=24:PX=1:GOSUB70:PRINT"[159]"; 686 IFDG=11THENPRINT"THE RUNE OF AIR !";:POKETX,32:RA=1:GOTO692 687 IFDG=21THENPRINT"A FERRY PASS & 10 GEMS !";:POKETX,32:GM=GM+10:FP=1:GOTO692 688 IFDG=41THENPRINT"THE RUNE OF WATER !";:POKETX,32:RW=1:GOTO692 690 IFDG=32THENPRINT"THE RUNE OF FIRE !";:POKETX,32:RF=1:GOTO692 692 FORK=1TO1000:NEXT:GOSUB70:PRINT" ";:GOTO200 700 IFPEEK(TX)=63THEN684 701 REM 702 REM 710 PY=24:PX=1:GOSUB70:PRINT"[159]"; 711 IFPEEK(TX)=62THENRH=60:GOSUB96:GL=GL+RN+1:PRINTRN+1;:PRINT" GOLD";:GOTO728 712 IFPEEK(TX)=60THENRH=9:GOSUB96:FD=FD+RN+1:PRINTRN+1;:PRINT" FOOD";:GOTO728 713 IFPEEK(TX)=27THENRH=9:GOSUB96:CY=CY+RN+1:PRINTRN+1;:PRINT" CRYSTALS";:GOTO728 714 IFPEEK(TX)=28THEN:HB=HB+1:PRINT" HERBS";:GOTO728 715 IFPEEK(TX)=29THENGM=GM+2:PRINT" 2 GEMS";:GOTO728 720 GOTO730 728 POKETX,32:GOSUB98:PY=24:PX=1:GOSUB70:FORK=1TO30:PRINT" ";:NEXT:GOTO200 730 IFDG=0THEN740 731 IFDG=1THEN760 732 IFDG=2THEN780 733 IFDG=3THEN800 734 IFDG=4THEN820 736 GOTO200 740 IFTX=50505THEN2300 742 IFTX=50367THEN900 744 IFTX=50866THEN8100 750 GOTO200 760 IFTX=50730THEN2000 762 IFTX=50862THEN850 764 IFTX=50383THEN8300 770 GOTO200 780 REM 782 IFTX=50822THEN850 784 IFTX=50554THEN8700 786 GOTO200 800 IFTX=50340THEN2500 802 IFTX=50900THEN850 804 IFTX=50409THEN2200 806 GOTO200 820 IFTX=50888THEN850 822 IFTX=50427THEN8500 824 IFTX=50370THEN2100 826 GOTO200 850 V=53248:POKEV+21,0:PRINT"[147]":PRINT"[159]":PRINTTAB(10)"TELNYR FERRY SERVICE" 852 PRINT:PRINT:PRINT"A RETURN TO TELNYR" 854 PRINT:PRINT"B EXIT FERRY" 856 GOSUB74 870 IFA$="A"THENDG=0:SA=35072:MS=1:XX=14:YY=89:TX=50407:CL=14:CM=12:GOTO940 872 IFA$="B"THEN876 874 GOTO856 876 SA=35072+(DG*1024):EA=SA+999:NS=50176:GOSUB55010 878 POKE53269,1:POKE53210,CL:SYS53200:GOTO200 900 V=53248:POKEV+21,0:NG=0:PRINT"[147][159]":PRINTTAB(9)"-TELNYR FERRY SERVICE-" 901 NG=0:PRINT:PRINT"[158] PRICE INCLUDES RETURN TRIP" 902 PRINT:PRINT"":PRINT"A- FOREST ISLE 50 GOLD" 903 PRINT:PRINT"B- TROPICANIA 50 GOLD" 904 PRINT:PRINT"C- LAMENTIA 100 GOLD" 905 PRINT:PRINT"D- DEVILS PEAKS 400 GOLD" 906 PRINT:PRINT"[159]":PRINT"X EXIT FERRY (SPACE- INVENTORY)":GOSUB954 907 GOSUB74 908 IFA$="A"THENCT=50:GOSUB952:GOTO916 909 IFA$="B"THENCT=50:CC=0:GOSUB952:GOTO920:REMCC=CASINO 910 IFA$="C"THENCT=100:GOSUB952:GOTO922 911 IFA$="D"THENCT=400:GOSUB952:GOTO918 912 IFA$="X"THEN924 913 IFA$=" "THENGOSUB3000:GOTO900 915 GOTO909 916 GOSUB76:IFNG=1THEN900 917 DG=1:SA=36096:MS=0:XX=70:YY=201:TX=50942:CL=14:CM=8:GOTO940 918 GOSUB76:IFNG=1THEN900 919 DG=2:SA=37120:MS=0:XX=70:YY=184:TX=50862:CL=14:CM=12:GOTO940 920 GOSUB76:IFNG=1THEN900 921 DG=3:SA=38144:MS=0:XX=54:YY=201:TX=50940:CL=14:CM=12:GOTO940 922 GOSUB76:IFNG=1THEN900 923 DG=4:SA=39168:MS=1:XX=22:YY=193:TX=50928:CL=14:CM=12:GOTO940 924 DG=0:SA=35072:MS=1:XX=14:YY=89:TX=50407:CL=14:PRINT"[147]":GOTO941 926 GOTO914 940 PRINT"[147]":PRINT:PRINT"TRAVELLING";:FORJ=1TO4:PRINT".";:GOSUB98:NEXT 941 EA=SA+999:NS=50176:GOSUB55010:POKEV,XX:POKEV+1,YY 942 IFMS=0THENPOKEV+16,0 943 IFMS=1THENPOKEV+16,1 944 IFDG=3THENPOKE50420,32:REMADJ 945 POKE53210,CL:SYS53200:POKEV+21,1 950 POKE53283,CM:GOTO200 952 IFFP=1THENCT=0:RETURN 954 IFFP=1THENGOSUB98:PRINT:PRINT:PRINT"A FERRY PASS ! FREE TRAVEL ANYWHERE !" 955 RETURN 960 FD=0:AP=0:HP=HP-10:IFHP<1THEN37002 962 PY=24:PX=1:GOSUB70:PRINT"";:PRINT"STARVING !";:GOSUB98:GOSUB98 964 GOSUB70:PRINT" ";:GOTO20001 1000 DG=DG-1:V=53248:SD=0 1002 IF DG=10THENPOKEV+21,0:POKEV,166:POKEV+1,217:TX=51034:GOTO8107 1004 IF DG=9THENDG=0:SA=35072:MS=0:XX=102:YY=185:TX=50866:GOTO1180 1008 IF DG=20THENPOKEV+21,0:POKEV,166:POKEV+1,217:TX=51034:GOTO8307 1010 IF DG=19THENDG=1:SA=36096:MS=0:XX=78:YY=89:TX=50383:GOTO1180 1014 IF DG=40THENPOKEV+21,0:POKEV,166:POKEV+1,217:TX=51034:GOTO8507 1016 IF DG=39THENDG=4:SA=39168:MS=0:XX=110:YY=97:TX=50427:GOTO1180 1022 IF DG=30THENPOKEV+21,0:POKEV,166:POKEV+1,217:TX=51034:GOTO8707 1024 IF DG=31THENPOKEV+21,0:POKEV,166:POKEV+1,217:TX=51034:GOTO8807 1026 IF DG=29THENDG=2:SA=37120:MS=0:XX=166:YY=121:TX=50554:GOTO1180 1178 END 1180 EA=SA+999:NS=50176:GOSUB55010:POKEV,XX:POKEV+1,YY 1182 IFMS=0THENPOKEV+16,0 1184 IFMS=1THENPOKEV+16,1 1186 CL=14: POKE53210,CL:SYS53200:POKE53283,CM:POKEV+21,1 1188 GOTO200 1200 DG=DG+1:V=53248:SD=0 1202 IF DG=11THEN8200 1204 IF DG=21THEN8400 1206 IF DG=41THEN8600 1208 IF DG=31THEN8800 1209 IF DG=32THEN8900 1210 GOTO200 1399 GOTO200 2000 PRINT"[147]":POKE53269,0: POKE53210,11:SYS53200 2001 POKE53283,14:GOSUB100:ZB=145:GOSUB82:REM BORDER 2004 PRINT"[159]";:PRINTTAB(13)"-MAGIC SHOPPE-" 2006 PRINT:PRINTTAB(3)"LEARN A SPELL & CAST IT FOREVER,AS" 2007 PRINTTAB(3)"LONG AS YOU HAVE ENOUGH CRYSTALS." 2009 PRINT:PRINTTAB(4)"TELEPORT IS USED TO EXIT FROM" 2010 PRINTTAB(4)"A DUNGEON (NOT IN COMBAT).":PRINT""; 2012 GOSUB2045:PRINT"[158]"; 2014 PRINTTAB(4)"S-STRENGTH (3) 100 GOLD" 2016 PRINTTAB(4)"C-CONFUSE (3) 100 GOLD" 2018 PRINTTAB(4)"H-HEAL (5) 100 GOLD" 2019 PRINTTAB(4)"T-TELEPORT (12) 300 GOLD" 2021 PRINT"[159]":PRINTTAB(4)"CHOOSE S,C,H OR T TO LEARN A SPELL" 2022 GOSUB2050:GOSUB102 2028 GOSUB74 2029 IFA$=" "THENGOSUB3000:GOTO2000 2030 IFA$="S"THENCT=100:PRINT"[147]":GOSUB76:IFNG=0THENQS=1:GOTO2000 2032 IFA$="C"THENCT=100:PRINT"[147]":GOSUB76:IFNG=0THENQC=1:GOTO2000 2034 IFA$="H"THENCT=100:PRINT"[147]":GOSUB76:IFNG=0THENQH=1:GOTO2000 2036 IFA$="X"THENPRINT"[147]":GOSUB98:GOTO20730 2037 IFA$="T"THENCT=300:PRINT"[147]":GOSUB76:IFNG=0THENQT=1:GOTO2000 2038 IFNG=1THENNG=0:GOTO2000 2039 GOTO2028 2044 REMROUT 2045 PRINT:PRINTTAB(3)"SPELL & CRYSTAL USE COST TO LEARN" 2046 PRINTTAB(3)"------------------- -------------":RETURN 2050 PRINT:PRINTTAB(4)"OR X-EXIT SHOP SPACE- INVENTORY" 2051 PRINT"":PRINTTAB(4)"YOU HAVE ";:PRINTGL;:PRINT" GOLD":RETURN 2100 PRINT"[147]":POKE53269,0: POKE53210,11:SYS53200 2101 POKE53283,8:GOSUB100:ZB=145:GOSUB82 2104 PRINT"[158]";:PRINTTAB(12)" MAGIC SHOPPE ":PRINT"[159]" 2106 PRINTTAB(3)"WELCOME ";:PRINTNA$;:PRINT"! OUR ADVANCED" 2108 PRINTTAB(3)"SPELLS WILL AID YOUR QUEST." 2112 GOSUB2045:PRINT""; 2113 PRINT:PRINTTAB(3)"N-NUTRITION (10) 200 GOLD" 2114 PRINT:PRINTTAB(3)"R-REVIVE (10) 400 GOLD" 2116 PRINT:PRINTTAB(3)"F-FLEE (25) 400 GOLD" 2118 PRINT:PRINTTAB(3)"M-MISSILE (20) 500 GOLD" 2120 PRINT"[159]":PRINTTAB(4)"CHOOSE R,F,M OR N TO LEARN" 2122 GOSUB2050:GOSUB102 2128 GOSUB74 2129 IFA$=" "THENGOSUB3000:GOTO2100 2130 IFA$="R"THENCT=400:PRINT"[147]":GOSUB76:IFNG=0THENQR=1:GOTO2100 2132 IFA$="F"THENCT=400:PRINT"[147]":GOSUB76:IFNG=0THENQF=1:GOTO2100 2134 IFA$="M"THENCT=500:PRINT"[147]":GOSUB76:IFNG=0THENQB=1:GOTO2100 2135 IFA$="N"THENCT=200:PRINT"[147]":GOSUB76:IFNG=0THENQM=1:GOTO2100 2136 IFA$="X"THENPRINT"[147]":GOSUB98:GOTO20730 2137 IFNG=1THENNG=0:GOTO2100 2138 GOTO2128 2200 PRINT"[147]":POKE53269,0: POKE53210,12:SYS53200 2201 POKE53283,2:GOSUB100:ZB=141:GOSUB82 2204 PRINT"[158]";:PRINTTAB(11)" GEORGE'S POTIONS " 2206 PRINT"[159]":PRINT:PRINTTAB(4)"GREETINGS ";:PRINTNA$;:PRINT"!" 2208 PRINT:PRINTTAB(4)"POTIONS INCREASE DEXTERITY IN" 2209 PRINTTAB(4)"COMBAT. ONLY 50 GOLD EACH." 2212 PRINT:PRINTTAB(4)"WE WILL GIVE FREE POTIONS FOR" 2214 PRINTTAB(4)"ANY HERBS YOU BRING US." 2216 IF HB>0THEN2250 2217 PRINT"":PRINT:PRINTTAB(4)"CHOOSE P TO BUY A POTION." 2222 GOSUB2050:GOSUB102 2228 GOSUB74 2229 IFA$=" "THENGOSUB3000:GOTO2200 2234 IFA$="P"THENCT=50:PRINT"[147]":GOSUB76:IFNG=0THENQP=QP+1:GOTO2200 2236 IFA$="X"THENPRINT"[147]":GOSUB98:GOTO20730 2237 IFNG=1THENNG=0:GOTO2200 2238 GOTO2228 2250 PRINT"":QP=QP+HB+1:PRINTTAB(4)"YOU HAVE BROUGHT SOME HERBS !" 2254 PRINT:PRINTTAB(4)"HERE ARE ";:PRINTHB+1;:PRINT" FREE POTIONS !" 2256 HB=0:GOTO2217 2300 PRINT"[147]":POKE53269,0: POKE53210,11:SYS53200 2301 POKE53283,8:GOSUB100:ZB=145:GOSUB82 2304 PRINT"[158]";:PRINTTAB(12)" TELNYR CASTLE " 2306 PRINT"[158]":PRINT: PRINT:PRINTTAB(9)"A- GROCER" 2308 PRINT:PRINTTAB(9)"B- WEAPONS" 2309 PRINT:PRINTTAB(9)"C- TELNYR LIBRARY" 2310 PRINT:PRINTTAB(9)"D- TALK TO THE KING" 2311 PRINT:PRINTTAB(9)"E- SAVE/LOAD GAME" 2312 PRINT:PRINT:PRINTTAB(7)"CHOOSE A,B,C,D,E OR X TO EXIT" 2313 PRINT:PRINTTAB(7)"SPACEBAR - INVENTORY":GOSUB102 2328 GOSUB74 2329 IFA$="A"THEN2340 2330 IFA$="B"THEN2360 2331 IFA$="C"THEN2600 2332 IFA$="D"THEN2400 2333 IFA$="E"THEN35000 2334 IFA$=" "THENGOSUB3000:GOTO2300 2336 IFA$="X"THENPRINT"[147]":GOSUB98:GOTO20730 2337 GOTO2328 2340 IF GH=1THENGOSUB2900:GOTO2300 2341 PRINT"[147]":POKE53210,13:SYS53200:POKE53283,5:GOSUB100:B=141:GOSUB82 2342 PRINT"[159]";:PRINTTAB(14)" THE GROCER " 2344 PRINT:PRINT:PRINT:PRINTTAB(6)"NUTRITIOUS FOOD PACKS -" 2345 PRINT:PRINTTAB(6)"ONLY 50 GOLD PER PACK (FOOD 1O)" 2347 PRINT:PRINT:PRINTTAB(6)"P- PURCHASE FOOD PACK" 2348 PRINT:PRINT"[159]":PRINTTAB(4)"PRESS P TO PURCHASE FOOD" 2350 GOSUB2050:GOSUB102:PRINT"[159]" 2351 GOSUB74 2352 IFA$="P"THENCT=50:PRINT"[147]":GOSUB76:IFNG=0THENFD=FD+10:GOTO2340 2353 IFNG=1THENNG=0:GOTO2340 2354 IFA$="X"THEN2300 2355 IFA$=" "THENGOSUB3000:GOTO2340 2356 GOTO2351 2360 PRINT"[147]":SYS53200:POKE53283,9:GOSUB100:ZB=102:GOSUB82 2362 PRINT"";:PRINTTAB(10)" LONG JOHNS SWORDS " 2364 PRINT"[156]":PRINTTAB(5)"TRADE IN YOUR OLD SWORD ON" 2365 PRINTTAB(5)"A NEW ONE. I CAN ALSO SUPPLY" 2366 PRINTTAB(5)"ACCURATE SEXTANTS.":PRINT"":PRINT 2367 PRINTTAB(9) "A- SWORD 10+ 100 GOLD" 2368 PRINT:PRINTTAB(9)"B- SWORD 20+ 200 GOLD" 2370 PRINT:PRINTTAB(9)"C- SWORD 30+ 300 GOLD" 2371 PRINT:PRINTTAB(9)"D- SEXTANT 100 GOLD":PRINT 2372 PRINT"[159]":PRINTTAB(4)"CHOOSE A,B C OR D":GOSUB2050:GOSUB102 2373 GOSUB74 2374 IFA$=" "THENGOSUB3000:GOTO2360 2375 IFA$="A"THENCT=100:PRINT"[147]":GOSUB76:IFNG=0THENWS=10:GOTO2360 2376 IFA$="B"THENCT=200:PRINT"[147]":GOSUB76:IFNG=0THENWS=20:GOTO2360 2377 IFA$="C"THENCT=300:PRINT"[147]":GOSUB76:IFNG=0THENWS=30:GOTO2360 2378 IFA$="D"THENCT=100:PRINT"[147]":GOSUB76:IFNG=0THENSZ=1:GOTO2384 2379 IFNG=1THENNG=0:GOTO2360 2380 IFA$="X"THEN2300 2381 GOTO2373 2384 PRINT"[147]":PRINT"[159]":PRINT"TO READ THE SEXTANT PRESS R AT ANY" 2386 PRINT:PRINT"TIME WHEN TRAVELLING OUTDOORS." 2389 PRINT:PRINT"X- EXIT" 2390 GOSUB74 2391 IFA$="X"THEN2360 2392 GOTO2390 2400 PRINT"[147]":SYS53200:POKE53283,15:GOSUB100:ZB=145:GOSUB82 2401 PRINT"[158]";:PRINTTAB(11)" THE THRONE ROOM ":IFVM=80THENVM=0:GOTO2495 2402 IFRE>0ANDRW>0ANDRA>0ANDRF>0THEN38000 2403 IFRE=1THEN2450 2404 IFRW=1THEN2460 2405 IFRA=1THEN2470 2406 IFRF=1THEN2480 2408 IFTR=1THEN2430 2410 PRINT"[159]":PRINTTAB(3)"HMMM, ANOTHER FEARLESS ADVENTURER." 2411 PRINT:PRINTTAB(3)"WELL ";:PRINTNA$;:PRINT" MANY HAVE TRIED" 2412 PRINTTAB(3)"BUT ALL HAVE FAILED." 2413 PRINT:PRINTTAB(3)"OUR LAND IS IN GREAT PERIL." 2414 PRINT:PRINTTAB(3)"THE FOUR RUNES OF TELNYR HAVE BEEN" 2416 PRINTTAB(3)"STOLEN. IF YOU FIND A RUNE BRING" 2417 PRINTTAB(3)"IT HERE FOR A REWARD !" 2418 PRINT:PRINTTAB(3)"HERE'S 15 CRYSTALS FOR A START." 2419 PRINT:PRINTTAB(3)"VISIT A MAGIC SHOP BEFORE YOU" 2420 PRINTTAB(3)"ENTER THOSE FOUL DUNGEONS." 2422 CY=CY+15:TR=1:GOTO2490 2430 REM 2432 PRINT"[159]":PRINTTAB(3)"COME BACK WHEN YOU HAVE FOUND A" 2434 PRINT:PRINTTAB(3)"RUNE.":GOTO2490 2450 REM 2451 PRINT"[159]":PRINTTAB(3)"THE RUNE OF EARTH !!!" 2452 PRINT:PRINTTAB(3)"WELL DONE ! HERE ARE 2O CRYSTALS " 2453 PRINT:PRINTTAB(3)"AND 2OO GOLD.":CY=CY+20:GL=GL+200:RE=2:GOTO2490 2460 PRINT"[159]":PRINTTAB(3)"THE RUNE OF WATER !!!" 2461 PRINT:PRINTTAB(3)"HERE'S 80 CRYSTALS & 200 GOLD." 2463 CY=CY+80:GL=GL+200:RW=2:GOTO2490 2470 PRINT"[159]":PRINTTAB(3)"YOU HAVE THE RUNE OF AIR !!!" 2472 PRINT:PRINTTAB(3)"HERE'S 200 GOLD & 25 CRYSTALS" 2473 CY=CY+25:GL=GL+400:RA=2:GOTO2490 2480 PRINT"[159]":PRINTTAB(3)"THE RUNE OF FIRE!!!" 2482 PRINT:PRINTTAB(3)"UNBELIEVABLE! 100 CRYSTALS !!" 2483 CY=CY+100:RF=2:GOTO2490 2490 PRINT:PRINTTAB(3)"X- EXIT":GOSUB102 2491 GOSUB74 2492 IFA$="X"THEN2300 2494 GOTO2491 2495 PRINT"[159]":PRINTTAB(3)"THANKS A MILLION ";:PRINTNA$;:PRINT:PRINT:GOTO2490 2500 PRINT"[147]":POKE53269,0: POKE53210,11:SYS53200 2501 POKE53283,9:GOSUB100:ZB=102:GOSUB82 2504 PRINT"[158]";:PRINTTAB(13)" THE OUTPOST " 2506 PRINT"[158]":PRINT: PRINT:PRINTTAB(9)"A- JEWELLER" 2508 PRINT:PRINTTAB(9)"B- GROCER" 2509 PRINT:PRINTTAB(9)"C- THE CASINO" 2512 PRINT:PRINT:PRINTTAB(7)"CHOOSE A,B OR X TO EXIT":GOSUB102 2528 GOSUB74 2529 IFA$="A"THEN2539 2530 IFA$="B"THEN2560 2531 IFA$="C"THEN2700 2536 IFA$="X"THENPRINT"[147]":GOSUB98:GOTO20730 2537 IFA$=" "THENGOSUB3000:GOTO2500 2538 GOTO2528 2539 REM 2540 PRINT"[147]":SYS53200:POKE53283,3:ZB=102:GOSUB82 2541 PRINT"";:PRINTTAB(12)" THE JEWELLER " 2542 PRINT"[159]":PRINT:PRINT:PRINTTAB(5)"5 CRYSTALS FOR 100 GOLD" 2543 PRINT:PRINTTAB(5)"WE EXCHANGE CRYSTALS FOR GEMS" 2544 IFGM<1THEN2548 2545 PRINT"":PRINT: PRINTTAB(5):PRINT"THANKS FOR THE FINE GEMS !" 2546 PRINT:PRINTTAB(5)"HERE ARE ";:PRINTGM*5;:PRINT" CRYSTALS !" 2547 CY=CY+(GM*5):GM=0 2548 PRINT"[159]":PRINT:PRINT:PRINTTAB(5)"P- PURCHASE 5 CRYSTALS" 2549 GOSUB2050 2550 GOSUB74 2551 IFA$="X"THEN2500 2552 IFA$=" "THENGOSUB3000:GOTO2540 2553 IFA$="P"THEN2556 2554 GOTO2550 2556 CT=100:PRINT"[147]":GOSUB76:IFNG=0THENCY=CY+5:GOTO2540 2558 IFNG=1THENNG=0:GOTO2540 2560 IFGH=1THENGOSUB2900:GOTO2500 2561 PRINT"[147]":SYS53200:POKE53283,5:GOSUB100:ZB=102:GOSUB82 2562 PRINT"";:PRINTTAB(14)" THE GROCER " 2563 PRINT"[159]":PRINT:PRINT:PRINTTAB(6)"FOOD PACKS 5OG" 2564 PRINT:PRINTTAB(6)"P- PURCHASE FOOD" 2568 PRINT:PRINTTAB(6)"X- TO EXIT":GOSUB102 2571 GOSUB74 2572 IFA$="X"THEN2500 2575 IFA$=" "THENGOSUB3000:GOTO2560 2578 IFA$="P"THEN2580 2579 GOTO2571 2580 CT=50:PRINT"[147]":GOSUB76:IFNG=0THENFD=FD+10:GOTO2560 2582 IFNG=1THENNG=0:GOTO2560 2600 PRINT"[147]":POKE53269,0: POKE53210,11:SYS53200 2601 POKE53283,2:GOSUB100:ZB=143:GOSUB82 2602 PRINT"";:PRINTTAB(12)" TELNYR LIBRARY " 2664 PRINT"":PRINT:PRINTTAB(5)"RARE BOOKS - DONATION REQUIRED." 2667 PRINT"[156]":PRINT:PRINT:PRINTTAB(5)"A- CALVINS CHRONICLE 1OO GOLD" 2668 PRINT:PRINTTAB(5)"B- THE SCRIBES ANNUAL 2OO GOLD" 2670 PRINT:PRINTTAB(5)"C- LENNIES LOGBOOK 25O GOLD":PRINT 2672 PRINT"[159]":PRINTTAB(4)"CHOOSE A,B OR C":GOSUB2050:GOSUB102 2673 GOSUB74 2674 IFA$=" "THENGOSUB3000:GOTO2600 2675 IFA$="A"THENCT=100:PRINT"[147]":GOSUB76:IFNG=0THENGOSUB2698:GOTO2684 2676 IFA$="B"THENCT=200:PRINT"[147]":GOSUB76:IFNG=0THENGOSUB2698:GOTO2690 2679 IFA$="C"THENCT=250:PRINT"[147]":GOSUB76:IFNG=0THENGOSUB2698:GOTO2695 2680 IFNG=1THENNG=0:GOTO2600 2681 IFA$="X"THEN2300 2682 GOTO2673 2684 PRINT"A DYING ORC ONCE TOLD ME THAT HE" 2686 PRINT:PRINT"BURIED AN OBJECT AT FOREST ISLE," 2687 PRINT:PRINT"SEXTANT READING X=23 Y=20":GOSUB74:GOTO2600 2690 PRINT"IN AL'S REPORT HE KEPT MENTIONING" 2691 PRINT:PRINT"SOMETHING AT TROPICANIA AT " 2692 PRINT:PRINT"SEXTANT X=13 Y=14":GOSUB74:GOTO2600 2695 PRINT"I KNOW THERE IS TREASURE BURIED ON THE" 2696 PRINT:PRINT"MAIN ISLAND OF TELNYR AT X=32 Y=19":GOSUB74:GOTO2600 2698 PRINT"[147][159]":PRINT"WHILE PERUSING THE PAGES YOU READ-":PRINT:PRINT:RETURN 2699 REM*CASINO 2700 PRINT"[147][158]":PRINT" TROPICANIA CASINO":IFCC=1THEN2718 2701 IFCY>120ORGL>1000THEN2718 2702 CC=1:PRINT"":PRINT:PRINT"IN BETWEEN - THE BEST GAME IN TOWN !" 2704 PRINT:PRINT:PRINT"2 NUMBERS FROM 1-20 ARE DRAWN. YOU MUST" 2706 PRINT:PRINT"DECIDE WHETHER THE 3RD NUMBER WILL BE" 2708 PRINT:PRINT"IN-BETWEEN THE FIRST TWO. IF IT IS THEN" 2710 PRINT:PRINT"YOU WIN ! MAX BET IS 50 GOLD." 2712 PRINT"[159]":PRINT:PRINT"USE JOYSTICK UP/DOWN TO ALTER AMOUNT" 2714 PRINT:PRINT"OF BET AND FIRE TO CHOOSE." 2716 PRINT"[156]":PRINT:PRINT"PRESS SPACEBAR TO PLAY" 2717 GOSUB74:GOTO2720 2718 PRINT:PRINT:PRINT:PRINT"":PRINT" CASINO CLOSED - COME BACK LATER." 2719 FORK=1TO1250:NEXT:GOTO2500 2720 PRINT"[147][156]" 2721 PRINT"YOU HAVE ";:PRINTGL;:PRINT" GOLD":PRINT"[159]":PRINT 2722 PRINT"FIRST NUMBER SECOND NUMBER":PRINT:GOSUB98:JS=56320:BE=10 2723 R1=INT(RND(1)*10+1):PRINTTAB(4)R1:GOSUB98:PRINT"[145][145]" 2724 R2=INT(RND(1)*10+11):PRINTTAB(20)R2:GOSUB98 2726 PRINT"":PRINT:PRINT"BET HOW MUCH ? (JOYSTICK)" 2728 PX=1:PY=11:GOSUB70:PRINT" ":GOSUB70:PRINTBE 2730 IFPEEK(JS)=126THENBE=BE+10:GOTO2735 2732 IFPEEK(JS)=125THENBE=BE-10:GOTO2735 2733 IFPEEK(JS)=111THEN2740 2734 GOTO2730 2735 IFBE=60THENBE=50 2736 IFBE=0THENBE=10 2738 FORK=1TO120:NEXT: GOTO2728 2740 GL=GL-BE:IFGL<0THENGL=GL+BE:PRINT:PRINT"NOT ENOUGH GOLD !":GOSUB98:GOTO2500 2742 PRINT"[158]":PRINT:PRINT"OK ! DRAWING... ";:GOSUB98 2744 R3=INT(RND(1)*20+1):PRINTR3:GOSUB98 2750 IFR3>R1ANDR3500THEN2770 2761 PRINT"[159]": PRINT:PRINT"FIRE TO PLAY AGAIN OR X TO EXIT" 2762 IFPEEK(JS)=111THEN2720 2764 IFPEEK(197)=23THENCA=200:GOTO2500 2766 GOTO2762 2770 PRINT"[147][159]":PRINT"YOU ARE TOO LUCKY TODAY !":GOSUB98:GOSUB98 2772 PRINT:PRINT"DEPART !" 2774 FORK=1TO1000:NEXT:CA=200:GOTO2500 2900 PRINT"[147][159]":PRINT"THE GROCER SAW SOME GHOULS, FREAKED" 2902 PRINT:PRINT"OUT, AND HAS LOCKED HIMSELF IN." 2904 PRINT:PRINT:PRINT"PRESS SPACE...":GOSUB74:RETURN 2998 END:REMSG 3000 PRINT"[147]":POKE53269,0: POKE53210,11:SYS53200:PRINT"[159]" 3002 PRINT"HIT POINTS ";:PRINTHP 3004 PRINT"GOLD ";:PRINTGL 3006 PRINT"FOOD ";:PRINTFD 3008 PRINT"SWORD";:PRINTWS;:PRINT"+" 3010 PRINT"":PRINT:PRINTTAB(20)"CRYSTALS ";:PRINTCY 3012 PRINTTAB(20)"POTIONS ";:PRINTQP 3013 PRINTTAB(20)"HERBS ";:PRINTHB 3014 PRINTTAB(20)"GEMS ";:PRINTGM 3021 PX=0:PY=7:GOSUB70 3022 IF SZ=1 THENPRINT"[156]SEXTANT (R TO READ)" 3023 IFFP=1THENGOSUB70:PRINTTAB(19)" FERRY PASS" 3025 PY=9:GOSUB70:PRINT"[158]SPELLS LEARNT-":PRINT"":PY=11:GOSUB70 3026 IFQS=1THENPRINT"STRENGTH" 3027 IFQC=1THENPRINT"CONFUSE" 3028 IFQH=1THENPRINT"HEAL" 3030 IFQT=1THENPRINT"TELEPORT" 3031 PX=0:PY=11:GOSUB70 3032 IFQF=1THENPRINTTAB(20)"FLEE" 3034 IFQB=1THENPRINTTAB(20)"MISSILE" 3036 IFQM=1THENPRINTTAB(20)"NUTRITION" 3038 IFQR=1THENPRINTTAB(20)"REVIVE" 3040 PRINT"[158]":PY=16:GOSUB70:PRINT"RUNES-":PRINT 3041 REM 3042 IFRE>0THENPRINT"EARTH ";: 3044 IFRW>0THENPRINT"[159]WATER ";: 3046 IFRA>0THENPRINT"AIR ";: 3048 IFRF>0THENPRINT"[156]FIRE ";: 3050 PRINT:PRINT"[159]" 3098 PRINT"C -CAST A SPELL" 3100 PRINT"S -SEARCH FOR TREASURE" 3102 PRINT"G -GAME SPEED 3104 [153]"X -EXIT INVENTORY SCREEN" 3120 [141]74 3121 [139]A$[178]"C"[167]3160 3122 [139]A$[178]"X"[167] [142] 3124 [139]A$[178]"S"[167] [153]"LOAD":[137]3200 3126 [139]A$[178]"G"[167] 3140 3130 [137]3120 3140 [153]"LOADOPEN":[153]"ADJUST MESSAGE SPEED":[153]:[153] 3141 [153]"A- SLOW" 3142 [153]"B- MEDIUM" 3144 [153]"C- FAST" 3146 [153]"D- FASTEST" 3147 [141]74 3148 [139]A$[178]"A"[167]TM[178]1200:[137]3157 3150 [139]A$[178]"B"[167]TM[178]800:[137]3157 3152 [139]A$[178]"C"[167]TM[178]400:[137]3157 3154 [139]A$[178]"D"[167]TM[178]200:[137]3157 3156 [137]3147 3157 [153]:[153]:[153]"OK":[141]98:[137]3000 3160 [153]"LOADOPEN" 3162 [153]"H -HEAL (5) 3164 PRINT"R -REVIVE (1O) 3165 [153]"N -NUTRITION (1O) 3166 PRINT"T -TELEPORT FROM DUNGEON (12)" 3167 PRINT"X -EXIT" 3168 PRINT:PRINT"YOU HAVE ";:PRINTCY;:PRINT" CRYSTALS":PRINT 3169 GOSUB74 3170 IFA$="H"THEN3180 3171 IFA$="R"THEN3183 3172 IFA$="T"THEN3186 3174 IFA$="X"THEN3000 3175 IFA$="N"THEN3177 3176 GOTO3169 3177 IFQM<>1THEN3196 3178 CY=CY-10:IFCY<0THENCY=CY+10:GOTO3190 3179 FD=FD+20:PRINT:PRINT"FOOD +2O":GOSUB98:GOTO3000 3180 IFQH<>1THEN3196 3181 CY=CY-5:IFCY<0THENCY=CY+5:GOTO3190 3182 HP=HP+50:GOTO3194 3183 IFQR<>1THEN3196 3184 CY=CY-10:IFCY<0THENCY=CY+10:GOTO3190 3185 HP=HP+120:GOTO3194 3186 IFQT<>1THEN3196 3187 IFDG<5THENPRINT:PRINT"NOT HERE !":GOSUB98:GOTO3160 3188 CY=CY-12:IFCY<0THENCY=CY+12:GOTO3190 3189 TP=1:PRINT:PRINT"OK....":GOSUB98:RETURN 3190 PRINT:PRINT"NOT ENOUGH CRYSTALS !":GOSUB98:GOTO3160 3194 PRINT:PRINT"DONE !":GOSUB98:GOTO3000 3196 PRINT:PRINT"YOU DON'T KNOW IT YET !":GOSUB98:GOTO3000 3200 SS=TX-50176:SY=INT(SS/40):SX=SS-(SY*40) 3201 IFDG=1ANDSX=23ANDSY=20ANDRE=0THENPRINT"THE RUNE OF EARTH !":RE=1:GOTO3212 3202 IFDG=3ANDSX=13ANDSY=14ANDOX=0THENPRINT"5O CRYSTALS !":CY=CY+50:OX=1:GOTO3212 3204 IFDG=0ANDSX=32ANDSY=19THEN3214 3210 PRINT"YOU FIND NOTHING" 3212 FORK=1TO1000:NEXT:GOSUB98:GOTO3000 3214 IFWS=40THEN3210 3216 PRINT"MYSTIC SWORD 40+":WS=40:GOTO3212 3500 PRINT"[147][159]":PRINT"ENTER ADVENTURER'S NAME (RETURN)" 3502 PRINT:PRINT"UP TO 10 LETTERS" 3504 PRINT:PRINT:PRINT:INPUTNA$ 3506 IFLEN(NA$)>10THENPRINT"[147]":PRINT"UP TO 10 LETTERS ONLY..":GOSUB98:GOTO3500 3510 PRINT"[147]":PRINT"DURING THE GAME:" 3512 PRINT:PRINT"- JS IN PORT 2" 3513 PRINT:PRINT"- SPACEBAR FOR INVENTORY" 3514 PRINT:PRINT"- FIRE TO ENTER TOWNS & PICK UP OBJECTS" 3516 PRINT:PRINT"- SAVE GAME AT TELNYR CASTLE ONLY" 3518 PRINT:PRINT:PRINT:PRINT"PRESS SPACE TO START....":GOSUB74:PRINT"[147]":RETURN 3599 END 8000 REM 8100 REM 8104 REM*10/0 8105 DG=10 8106 V=53248:POKEV+21,0:POKEV,62:POKEV+1,73:TX=50301 8107 PRINT"[147]":PRINT"[154]":POKE53210,5:SYS53200:POKE53283,12:GOSUB100 8108 ZB=148:GOSUB82 8109 GOSUB8110:GOTO8127 8110 ZX=2:ZY=4::ZL=36:ZC$="[166]":GOSUB87 8112 FORP=1TO4:GOSUB87:ZY=ZY+6:NEXT 8113 ZX=3:ZL=2:ZY=2:ZC$="[208]":GOSUB92 8114 ZX=3:ZL=7:ZY=9:GOSUB92:ZY=ZY+2 8122 ZX=36:ZL=7:ZY=3 8124 FORJ=1TO2::GOSUB92:ZY=ZY+5:NEXT 8126 ZX=18:ZY=21:ZL=2:ZC$="[208]":GOSUB92:RETURN 8127 GOSUB102:POKEV+21,1:GOTO200 8200 REM11/0 8205 DG=11 8206 V=53248:POKEV+21,0:POKEV,166:POKEV+1,73:TX=50314 8207 PRINT"[147]":PRINT"[154]":POKE53210,5:SYS53200:POKE53283,12:GOSUB100 8208 REM 8209 ZB=148:GOSUB82 8210 ZX=2:ZY=4::ZL=36:ZC$="[166]":GOSUB87 8213 ZX=18:ZL=2:ZY=2:ZC$="[208]":GOSUB92 8222 ZX=36:ZL=18:ZY=3:GOSUB92 8224 ZX=2:ZY=21:ZL=36:ZC$="[166]":GOSUB87 8227 GOSUB102:POKEV+21,1:IFRA=0THENPOKE50980,63:POKE55296+804,3 8230 GOTO200 8300 REM20/1 8305 DG=20 8306 V=53248:POKEV+21,0:POKEV,62:POKEV+1,73:TX=50301 8307 PRINT"[147]":PRINT"[154]":POKE53210,5:SYS53200:POKE53283,13 8308 REM 8309 GOSUB100:ZB=148:GOSUB82:GOSUB8110 8327 GOSUB102:POKEV+21,1:GOTO200 8400 REM21/1 8405 DG=21 8406 V=53248:POKEV+21,0:POKEV,166:POKEV+1,73:TX=50314 8407 PRINT"[147]":PRINT"[154]":POKE53210,5:SYS53200:POKE53283,13 8408 REM 8409 GOSUB100:ZB=148:GOSUB82 8410 ZX=2:ZY=4:ZL=36:ZC$="[166]":GOSUB87 8411 ZX=2:ZY=12:ZL=36:ZC$="[166]":GOSUB87 8413 ZX=18:ZL=2:ZY=2:ZC$="[208]":GOSUB92 8422 ZX=36:ZL=9:ZY=3:GOSUB92 8423 ZX=3:ZL=10:ZY=11:GOSUB92 8424 ZX=2:ZY=21:ZL=36:ZC$="[166]":GOSUB87 8427 GOSUB102:POKEV+21,1:IFFP=0THENPOKE50982,63:POKE55296+806,3 8428 GOTO200 8500 REM40/4 8505 DG=40 8506 V=53248:POKEV+21,0:POKEV,62:POKEV+1,73:TX=50301 8507 PRINT"[147]":PRINT"[154]":POKE53210,6:SYS53200:POKE53283,14 8508 REM 8509 GOSUB100:ZB=147:GOSUB82:GOSUB8110 8527 GOSUB102:POKEV+21,1:GOTO200 8600 REM41/4 8605 DG=41 8606 V=53248:POKEV+21,0:POKEV,166:POKEV+1,73:TX=50314 8607 PRINT"[147]":PRINT"[154]":POKE53210,6:SYS53200:POKE53283,14 8608 REM 8609 GOSUB100:ZB=147:GOSUB82 8610 ZX=2:ZY=4:ZL=36:ZC$="[166]":GOSUB87 8611 ZX=2:ZY=12:ZL=36:ZC$="[166]":GOSUB87 8613 ZX=18:ZL=2:ZY=2:ZC$="[208]":GOSUB92 8622 ZX=36:ZL=9:ZY=3:GOSUB92 8623 ZX=3:ZL=10:ZY=11:GOSUB92 8624 ZX=2:ZY=21:ZL=36:ZC$="[166]":GOSUB87 8627 GOSUB102:POKEV+21,1:IFRW=0THENPOKE50996,63:POKE55296+820,3 8628 GOTO200 8700 REM30/2 8705 DG=30 8706 V=53248:POKEV+21,0:POKEV,62:POKEV+1,73:TX=50301 8707 PRINT"[147]":PRINT"[154]":POKE53210,3:SYS53200:POKE53283,14 8708 REM 8709 GOSUB100:ZB=146:GOSUB82:GOSUB8110 8740 GOSUB102:POKEV+21,1:GOTO200 8800 REM31/2 8805 DG=31 8806 V=53248:POKEV+21,0:POKEV,166:POKEV+1,73:TX=50314 8807 PRINT"[147]":PRINT"[154]":POKE53210,3:SYS53200:POKE53283,14 8808 REM 8809 GOSUB100:ZB=146:GOSUB82 8810 ZX=2:ZY=4:ZL=36:ZC$="[166]":FORP=1TO3:GOSUB87:ZY=ZY+1:NEXT 8812 ZX=2:ZY=12:ZL=36:FORP=1TO3:GOSUB87:ZY=ZY+1:NEXT 8814 ZX=5:ZY=5:ZL=8:GOSUB92 8816 ZX=9:ZY=13:ZL=9:GOSUB92 8824 ZX=2:ZY=22:ZL=36:GOSUB87 8826 ZX=18:ZY=21:ZL=2:ZC$="[208]":GOSUB92 8827 ZX=18:ZL=2:ZY=2:GOSUB92 8828 ZX=3:ZL=19:ZY=3:GOSUB92 8830 ZX=7:ZL=11:ZY=11:GOSUB92 8832 ZX=32:ZL=11:ZY=11:GOSUB92 8840 GOSUB102:POKEV+21,1:GOTO200 8900 REM32/2 8905 DG=32 8906 V=53248:POKEV+21,0:POKEV,166:POKEV+1,73:TX=50314 8907 PRINT"[147]":PRINT"[154]":POKE53210,3:SYS53200:POKE53283,14 8908 REM 8909 GOSUB100:ZB=146:GOSUB82 8910 ZX=2:ZY=4:ZL=36:ZC$="[166]":FORP=1TO3:GOSUB87:ZY=ZY+1:NEXT 8911 ZX=2:ZY=12:ZL=36:ZC$="[166]":GOSUB87 8913 ZX=2:ZY=15:ZL=36:FORP=1TO4:GOSUB87:ZY=ZY+1:NEXT 8915 ZX=8:ZY=19:ZL=15:FORP=1TO2:GOSUB87:ZY=ZY+1:NEXT 8917 ZX=2:ZY=13:ZL=3:FORP=1TO3:GOSUB87:ZY=ZY+1:NEXT 8918 ZX=2:ZY=21:ZL=36:ZC$="[166]":GOSUB87 8919 ZX=2:ZY=22:ZL=36:ZC$="[166]":GOSUB87 8920 ZX=18:ZL=2:ZY=2:ZC$="[208]":GOSUB92 8922 ZX=36:ZL=9:ZY=3:GOSUB92 8923 ZX=3:ZL=10:ZY=11:GOSUB92 8925 ZX=6:ZL=7:ZY=14:GOSUB92 8926 ZX=32:ZL=7:ZY=14:GOSUB92 8940 GOSUB102:POKEV+21,1:IFRF=0THENPOKE51000,63:POKE55296+824,3 8942 GOTO200 8999 PRINT"[145][145][145][145]":GOTO8999:REM WAIT 19000 IFDG=30ORDG=31ORDG=32THEN20006 19001 GOSUB19020:IFDG>5THEN19050 19002 IFJS=119ANDPEEK(TX+2)=32THENPOKETX+2,PU:POKETX+5120+2,PC:GOTO200 19003 IFJS=123ANDPEEK(TX-2)=32THENPOKETX-2,PU:POKETX+5120-2,PC:GOTO200 19004 IFJS=125ANDPEEK(TX+80)=32THENPOKETX+80,PU:POKETX+5120+80,PC:GOTO200 19006 IFJS=126ANDPEEK(TX-80)=32THENPOKETX-80,PU:POKETX+5120-80,PC:GOTO200 19010 GOTO200 19020 RH=7:GOSUB96 19022 IF RN=1THENPU=62:PC=7:RETURN 19024 IF RN=2THENPU=60:PC=2:RETURN 19025 IF RN=7THENPU=62:PC=7:RETURN 19026 IF RN=3THENPU=27:PC=3:RETURN 19027 IF RN=6THENPU=62:PC=7:RETURN 19028 IF RN=4ANDDG<5THENPU=28:PC=5:RETURN 19030 IF RN=5ANDDG>5THENPU=29:PC=5:RETURN 19031 RETURN 19050 IFPEEK(TX+40)<>102THEN200:REMDNG 19051 IFJS=119ANDPEEK(TX+4)=32ANDPEEK(TX+44)=102THEN19054 19052 IFJS=123ANDPEEK(TX-4)=32ANDPEEK(TX+36)=102THEN19055 19053 GOTO200 19054 POKETX+4,PU:POKETX+5120+4,PC:GOTO200 19055 POKETX-4,PU:POKETX+5120-4,PC:GOTO200 19056 GOTO200 20000 FD=FD-1:IFFD<1THEN960 20001 AP=0:IFDG>5THENRH=9:GOSUB96 20002 IFDG<5THENRH=12:GOSUB96 20003 IFRN=1THEN200 20004 IFRN<7THEN20006 20005 IFRN>6THEN19000 20006 FORP=1TO6 20007 PY=24:PX=1:GOSUB70:PRINT"[159]";:PRINT"ATTACKED !";:FORK=1TO80:NEXT 20008 GOSUB70:PRINT" ";:FORK=1TO80:NEXT:NEXT 20009 PRINT"[147]" 20010 PRINT"[147]":V=53248:POKEV+21,0:AT=0 20011 CW=WS:KC=16 20012 IFDG>5THEN20040 20013 GOTO20020 20014 REMSPR 20015 FORP=53288TO53294:POKEP,M3:NEXT 20016 EA=SA+63:NS=49216:GOSUB55010:IFMC=0THENPOKE53276,0:RETURN 20017 POKE53285,M1:POKE53286,M2:POKE53276,254:RETURN 20020 IFGH=1ANDDG<6THENRH=6:GOSUB96:ONRNGOTO20044,20044,20036,20034,20030,20032 20021 IFDG=5ORDG=3ORDG=4THENRH=3:GOSUB96:ONRNGOTO20036,20038,20036 20022 RH=6:GOSUB96:ON RN GOTO20030,20032,20032,20034,20034,20036 20030 MT$="ORC":MW=5:MH=14:ML=MH:SA=40386:MC=1:M1=5:M2=3:M3=8:GOSUB20015 20031 GOTO20060 20032 MT$="THIEF":MW=8:MH=18:ML=MH:SA=40450:MC=1:M1=7:M2=5 :M3=8 :GOSUB20015 20033 GOTO20060 20034 MT$="ROGUE":MW=12:MH=20:ML=MH:SA=40322:MC=1:M1=6:M2=3:M3=14:GOSUB20015 20035 GOTO20060 20036 MT$="TROLL":MW=15:MH=40:ML=MH:SA=52800:MC=1:M1=8:M2=3:M3=1:GOSUB20015 20037 GOTO20060 20038 MT$="SPIDER":MW=15:MH=30:ML=MH:SA=40578:MC=1:M1=7:M2=8:M3=3:GOSUB20015 20039 POKE40640,0:GOTO20060:REM ADJSPIDERDATA 20040 RH=4:GOSUB96 20041 IFDG>29THENRH=4:GOSUB96:ONRNGOTO20056,20054,20056,20051 20042 ON RN GOTO20044,20046,20048,20051 20044 MT$="GHOUL":MW=50:MH=80:ML=MH:SA=52992:MC=1:M1=7:M2=8:M3=3:GOSUB20015 20045 GOTO20060 20046 MT$="GHOST":MW=20:MH=60:ML=MH:SA=40256:MC=1:M1=3:M2=3:M3=3:GOSUB20015 20047 GOTO20060 20048 MT$="BAT":MW=25:MH=50:ML=MH:SA=40192:MC=0:M3=12:GOSUB20015 20049 GOTO20060 20050 REM 20051 MT$="SKELETON":MW=80:MH=100:ML=MH:SA=52864:MC=1:M1=7:M2=12:M3=3:GOSUB20015 20052 GOTO20060 20053 REM 20054 MT$="VAMPIRE":MW=80:MH=140:ML=MH:SA=52928:MC=1:M1=7:M2=12:M3=4:GOSUB20015 20055 GOTO20060 20056 MT$="DEMON":MW=100:MH=250:ML=MH:SA=40514:MC=1:M1=0:M2=3 :M3=11:GOSUB20015 20057 GOTO20060 20060 IFDG>5THENRH=6 20062 IFDG<5THENRH=4 20064 GOSUB96:MN=RN 20100 POKE53210,14:SYS53200:POKE53283,14:PRINT"[129]" 20102 POKE53270,PEEK(53270)OR16 20104 GOSUB100 20106 PRINT" [199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199]" 20108 FORP=1TO9:PRINT" [199] [199]":NEXT 20110 PRINT" [199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199]" 20112 PRINT:PRINT:PRINT 20120 PRINT" [199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199]" 20122 FORP=1TO6:PRINT" [199] [199]":NEXT 20124 PRINT" [199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199][199]" 20130 PRINT"":PRINT"[158]":PRINT:PRINTTAB(22)"M-MANUAL ATTACK" 20132 PRINT:PRINTTAB(22)"A-AUTO ATTACK" 20134 PRINT:PRINTTAB(22)"C-CAST A SPELL" 20136 PRINT:PRINTTAB(22)"T-TAKE A POTION" 20138 PRINT:PRINTTAB(22)"R-RUN AWAY" 20142 PRINT"":PY=14:PX=20:GOSUB70:PRINTNA$:GOSUB20520 20144 PRINT"":PY=14:PX=1:GOSUB70:PRINTMT$:GOSUB20530 20150 GOSUB102 20180 IFMN=1THENPOKEV+21,2 20182 IFMN=2THENPOKEV+21,6 20184 IFMN=3THENPOKEV+21,14 20186 IFMN=4THENPOKEV+21,30 20188 IFMN=5THENPOKEV+21,62 20190 IFMN=6THENPOKEV+21,126 20191 IFMN=0THENPOKEV+21,0 20192 IF AT=1 THEN 20240 20200 PRINT"":PX=13:PY=18:GOSUB70:PRINT"CHOOSE OPTION " 20201 REM 20202 GOSUB74 20204 IFA$="M"THEN20240 20206 IFA$="A"THEN20270 20208 IFA$="C"THEN30280 20210 IFA$="T"THEN20310 20212 IFA$="R"THEN20320 20214 IFA$="G"THEN20340 20220 GOTO20202 20240 REM 20242 GOSUB20500:GOSUB20510:PRINT"[159]" 20244 RH=20:GOSUB96:IFRN>16THEN20258 20246 RH=4:GOSUB96:CW=WS+RN+KS:PX=10:PY=18:GOSUB70 20253 PRINTNA$;:PRINT" HITS FOR ";:PRINTCW:IFDY>0THENDY=DY-1 20254 ML=ML-CW:IFML<1THENML=0:GOTO20600: 20256 GOSUB20530:GOTO 20400 20258 PY=18:PX=10:GOSUB70 20259 PRINTNA$;:PRINT" MISSES":IFDY>0THENDY=DY-1 20260 GOTO20400 20269 REMAUTO 20270 AT=1 20272 PY=24:PX=1:GOSUB70:PRINT"[159]";:PRINT" HOLD DOWN SPACEBAR TO EXIT AUTO"; 20274 GOTO20240 20309 REM PT 20310 GOSUB20500:GOSUB70:IFQP=0THEN20314 20311 QP=QP-1:PRINTNA$;:PRINT" TAKES A POTION":GOSUB98 20312 GOSUB20500:RH=3:GOSUB96:DX=RN:IFDX=1THENDX=2 20313 DY=DX:GOTO20240 20314 PRINT" YOU HAVE NONE !":GOSUB98:GOSUB20500:GOTO20240 20320 PX=3:PY=17:GOSUB70 20321 FORK=1TO6:GOSUB70:PRINT" ":PY=PY+1:NEXT 20322 IFDG>5THENRH=12 20323 IFDG<5THENRH=9 20324 GOSUB96:IFRN>3THEN20330 20326 KF=1:GOTO20700:REMESC 20330 PX=11:PY=18:GOSUB70:PRINT"YOU DIDN'T ESCAPE":GOSUB98:GOSUB20500 20332 GOTO20240 20400 GOSUB98:PRINT"[159]":IFDY>0THEN20240 20402 IFDX>0THENDY=DX 20404 RH=20:GOSUB96:IFRN>KCTHEN20450 20408 RH=8:GOSUB96:MX=MW+RN 20412 PY=21:PX=10:GOSUB70:PRINTMT$;:PRINT" HITS FOR ";:PRINTMX 20416 HP=HP-MX:IFHP<1THEN37000 20418 GOSUB20520 20420 IFAT=0THEN20480 20422 IFPEEK(197)<>60THEN20240 20424 AT=0:FORK=1TO500:NEXT:GOSUB20500:GOSUB20510 20426 PY=24:PX=1:GOSUB70:PRINT" ";: 20430 PRINT"";:GOTO20200 20450 IFKC=16THENPY=21:PX=10:GOSUB70:PRINTMT$;:PRINT" MISSES":GOSUB98 20451 IFKC=10THENPY=21:PX=10:GOSUB70:PRINTMT$;:PRINT" CONFUSED":GOSUB98 20460 IFAT=0THEN20480 20462 GOTO20422 20480 GOSUB98:GOSUB20500:GOSUB20510:GOTO20200 20500 PY=18:PX=10:GOSUB70:PRINT" ":RETURN 20510 PY=21:PX=10:GOSUB70:PRINT" ":RETURN 20520 PRINT"":PY=14:PX=31:GOSUB70:PRINT" ":GOSUB98 20522 PY=14:PX=31:GOSUB70:PRINTHP:RETURN 20530 PRINT"":PY=14:PX=10:GOSUB70:PRINT" " 20532 PY=14:PX=10:GOSUB70:PRINTML:RETURN 20600 MN=MN-1:IFMN=0THEN20700 20602 GOSUB20530:ML=MH:DY=DX 20604 GOSUB98:GOSUB20500:GOSUB20510 20606 IFKB<>1THEN20612 20608 KB=0:PX=12:PY=18:GOSUB70:PRINTRN+1;:PRINT" DISPATCHED !" 20610 GOSUB98:GOSUB20500:GOTO20613 20612 PX=12:PY=18:GOSUB70:PRINTMT$;:PRINT" DIES !":GOSUB98:GOSUB20500 20613 IFPEEK(197)=60THENAT=0 20614 PY=24:PX=1:GOSUB70:PRINT" ";:PRINT"" 20615 GOSUB20530:GOTO20180 20700 GOSUB98:PX=3:PY=17:GOSUB70 20701 FORK=1TO6:GOSUB70:PRINT" ":PY=PY+1:NEXT 20702 PX=11:PY=18:GOSUB70 20703 IF KB=1THENPRINT"MONSTERS DECIMATED!":GOSUB98:GOSUB20500:GOTO20714 20704 IF KF=1THENPRINT"YOU HAVE ESCAPED !":GOSUB98:GOSUB20500:GOTO20728 20710 PRINT"MONSTERS DEFEATED !" 20712 GOSUB98:GOSUB20500:GOSUB20510:POKE53269,0 20713 REM 20714 POKE53269,0:PY=18:PX=8:GOSUB70:PRINT"YOU FIND "; 20716 RH=3:GOSUB96:ONRNGOTO20720,20721,20723 20720 RH=100:GOSUB96:PRINTRN+MW;:PRINT"GOLD":GL=GL+RN+MW:GOTO20728 20721 RH=4:GOSUB96:PRINTRN+INT(MW/8)+1;:PRINT" CRYSTALS":CY=CY+RN+INT(MW/8)+1 20722 GOTO20728 20723 PRINT"A POTION";:QP=QP+1:GOSUB98:PRINT" & ";:GOTO20720 20724 GOTO20728 20728 POKE53269,0:GOSUB98:GOSUB98:KF=0:KB=0:KS=0:DX=0:DY=0 20730 IF DG=0THENSA=35072:GOTO20780 20731 IF DG=1THENSA=36096:GOTO20780 20732 IF DG=2THENSA=37120:GOTO20780 20734 IF DG=3THENSA=38144:GOTO20780 20736 IF DG=4THENSA=39168:GOTO20780 20738 IF DG=10THEN8107 20740 IF DG=11THEN8207 20742 IF DG=20THEN8307 20744 IF DG=21THEN8407 20746 IF DG=40THEN8507 20748 IF DG=41THEN8607 20750 IF DG=30THEN8707 20752 IF DG=31THEN8807 20754 IF DG=32THEN8907 20780 EA=SA+999:NS=50176:GOSUB55010:POKE53210,CL:SYS53200:POKEV+21,1 20781 IFDG=3THENPOKE50420,32:REMADJ 20782 POKE53283,CM:GOTO200 20800 PY=24:PX=1:GOSUB70:PRINT"[159]";:PRINT"TELEPORTING....";:GOSUB98:GOSUB98:SD=0 20801 IFRW>0ANDGH=0THENGH=1:GOSUB20900 20804 IFDG=10ORDG=11THENDG=10 20806 IFDG=20ORDG=21THENDG=20 20808 IFDG=40ORDG=41THENDG=40 20810 IFDG=30ORDG=31ORDG=32THENDG=30 20812 GOTO1000 20900 PRINT"[147][159]":PRINT"SOME GHOULS ENTER THE SPELL" 20902 PRINT:PRINT"AREA & TELEPORT WITH YOU TO" 20904 PRINT:PRINT"THE MAINLAND !":PRINT:PRINT:PRINT"PRESS SPACE..":GOSUB74:RETURN 22000 POKE198,0:WAIT198,1:GETA$ 22002 POKE53270,PEEK(53270)AND239:PRINT"[159]":POKE53269,0:END 30280 GOSUB20500 30281 PX=3:PY=17:GOSUB70:PRINT"CHOOSE (OR X-EXIT) CRYSTALS ";:PRINTCY 30283 PX=5:PY=19:GOSUB70:IFQS=1THENPRINT"S-STRENGTH 3":PY=PY+1 30285 GOSUB70:IFQC=1THENPRINT"C-CONFUSE 3":PY=PY+1 30287 GOSUB70:IFQH=1THENPRINT"H-HEAL 5" 30289 PX=21:PY=19:GOSUB70:IFQR=1THENPRINT"R-REVIVE 10":PY=PY+1 30291 GOSUB70:IFQF=1THENPRINT"F-FLEE 25":PY=PY+1 30293 GOSUB70:IFQB=1THENPRINT"M-MISSILE 20" 30297 GOSUB74 30298 IFA$="S"THEN 30320 30299 IFA$="C"THEN 30330 30300 IFA$="H"THEN 30340 30301 IFA$="R"THEN 30350 30302 IFA$="F"THEN 30360 30303 IFA$="M"THEN 30365 30304 IFA$="X"THEN 30420 30308 GOTO30297 30320 IF QS<>1THEN30400 30322 CY=CY-3:IFCY<0THENCY=CY+3:GOTO30410 30324 KS=8:IFDG>29THENKS=12 30325 GOTO30420 30330 IF QC<>1THEN30400 30332 CY=CY-3:IFCY<0THENCY=CY+3:GOTO30410 30334 KC=10:GOTO30420 30340 IF QH<>1THEN30400 30342 CY=CY-5:IFCY<0THENCY=CY+5:GOTO30410 30344 HP=HP+50:GOSUB20520:GOTO30420 30350 IF QR<>1THEN30400 30352 CY=CY-10:IFCY<0THENCY=CY+10:GOTO30410 30354 HP=HP+120:GOSUB20520:GOTO30420 30360 IF QF<>1THEN30400 30362 CY=CY-25:IFCY<0THENCY=CY+25:GOTO30410 30364 KF=1:GOTO30420 30365 IF QB<>1THEN30400 30366 CY=CY-20:IFCY<0THENCY=CY+20:GOTO30410 30367 KB=1:RH=2:GOSUB96:MN=MN-(RN+1):IFMN<1THEN30420 30368 PX=3:PY=17:GOSUB70:FORK=1TO34:PRINT" ";:NEXT 30370 GOSUB70:PRINT" CRYSTALS ";:PRINTCY:GOSUB98 30372 FORK=1TO6:GOSUB70:PRINT" ":PY=PY+1:NEXT 30380 GOTO20602 30400 PX=3:PY=17:GOSUB70:PRINT"WHAT ? ":GOSUB98 30402 GOSUB70:PRINT"CHOOSE (OR X-EXIT)" 30404 GOTO30297 30410 PX=3:PY=17:GOSUB70:PRINT"NEED MORE CRYSTALS":GOSUB98 30412 GOSUB70:PRINT"CHOOSE (OR X-EXIT)" 30414 GOTO30297 30420 PX=3:PY=17:GOSUB70:FORK=1TO34:PRINT" ";:NEXT 30421 GOSUB70:PRINT" CRYSTALS ";:PRINTCY:GOSUB98 30422 FORK=1TO6:GOSUB70:PRINT" ":PY=PY+1:NEXT 30423 IFA$="X"ORA$="H"ORA$="R"THEN20240 30424 PY=18:PX=10:GOSUB70:PRINTNA$;:PRINT" CASTS A SPELL":GOSUB98 30425 IF KF=1ORKB=1THEN20700 30426 GOTO20240 35000 PRINT"[147][159]":PRINT"BE SURE THAT-":GOSUB98 35002 PRINT:PRINT"DISK DRIVE IS ON":GOSUB98 35004 PRINT:PRINT"GAME DISK IS IN DRIVE":GOSUB98:GOSUB98 35010 PRINT:PRINT:PRINT"":PRINT"S- SAVE CURRENT GAME" 35012 PRINT:PRINT"L- LOAD A SAVED GAME" 35013 PRINT:PRINT"X- EXIT" 35014 GOSUB74 35016 IFA$="S"THEN35100 35018 IFA$="L"THEN35200 35019 IFA$="X"THEN2300 35020 GOTO35014 35100 P=832:K=HP:GOSUB35110:P=834:K=GL:GOSUB35110:P=836:K=FD:GOSUB35110 35102 P=838:K=CY:GOSUB35110:P=840:K=QP:GOSUB35110:P=842:K=HB:GOSUB35110 35104 P=844:K=GM:GOSUB35110:GOTO35120 35110 POKEP,INT(K/256):POKEP+1,K-(PEEK(P)*256):RETURN 35120 POKE846,WS:POKE847,SZ:POKE848,FP 35130 POKE849,QS:POKE850,QC:POKE851,QH:POKE852,QT:POKE853,QF:POKE854,QB 35132 POKE855,QM:POKE856,QR:POKE857,RE:POKE858,RW:POKE859,RA:POKE860,RF 35134 POKE861,CA:GOTO36070 35200 GOTO36000 35201 P=832:GOSUB35210:HP=K:P=834:GOSUB35210:GL=K:P=836:GOSUB35210:FD=K 35202 P=838:GOSUB35210:CY=K:P=840:GOSUB35210:QP=K:P=842:GOSUB35210:HB=K 35204 P=844:GOSUB35210:GM=K:GOTO35220 35210 K=PEEK(P)*256:K=K+PEEK(P+1):RETURN 35220 WS=PEEK(846):SZ=PEEK(847):FP=PEEK(848) 35222 QS=PEEK(849):QC=PEEK(850):QH=PEEK(851):QT=PEEK(852):QF=PEEK(853) 35224 QB=PEEK(854):QM=PEEK(855):QR=PEEK(856):RE=PEEK(857):RW=PEEK(858) 35226 RA=PEEK(859):RF=PEEK(860):CA=PEEK(861) 35227 IFRW>0THENGH=1 35228 TR=1:PRINT:PRINT::PRINT"OK":GOSUB98:GOTO2300 36000 REMREAD 36010 OPEN15,DV,15 36020 OPEN2,DV,3,"0:TL,S,R" 36030 FORK=0TO30 36040 INPUT#2,P 36050 POKE 832+K,P:NEXT 36060 CLOSE2:CLOSE15:GOTO35201 36069 REMWRITE* 36070 CR$=CHR$(13):OPEN15,DV,15,"S0:TL" 36080 OPEN2,DV,3,"0:TL,S,W" 36090 FORK=0TO30:REM832-861 36100 PRINT#2,PEEK(K+832);CR$ 36110 NEXT 36120 CLOSE2:CLOSE15 36130 PRINT:PRINT:PRINT"OK !":GOSUB98:GOTO2300 36999 REMDIES 37000 GOSUB98:POKE53269,0:PRINT"[147][159]":GOSUB98:PRINTNA$;:PRINT" HAS DIED !":GOTO37010 37002 PRINT"[147][159]":PRINT"STARVED TO DEATH !" 37010 GOSUB98:PRINT:PRINT:PRINT"P- PLAY AGAIN":PRINT:PRINT"Q- QUIT GAME" 37011 GOSUB74 37012 IFA$="P"THENCLR:GG=6:GOTO60 37014 IFA$="Q"THENSYS64738 37016 GOTO37011 37999 REMEND 38000 GOSUB102:PRINT"[159]":PRINTTAB(3)"WE HAVE THE 4 RUNES !!":GOSUB98:GOSUB98 38002 PRINT"[147]":V=53248:POKEV+21,2:POKEV+2,165:POKEV+3,140:POKE53276,2 38003 POKE53285,11:POKE53286,8:FORP=53288TO53294:POKEP,5:NEXT:RH=27:CL=3 38004 SA=40256:GOSUB38020:SA=40322:GOSUB38020 38006 SA=40386:GOSUB38020:SA=40450:GOSUB38020:SA=40514:GOSUB38020 38008 SA=40578:GOSUB38020:SA=52800:GOSUB38020 38010 SA=52864:GOSUB38020:SA=52928:GOSUB38020:SA=52992:GOSUB38020 38012 IFVM=80THENPOKE53269,0:GOTO2400 38013 GOTO38004 38020 EA=SA+63:NS=49216:GOSUB55010 38022 RN=INT(RND(1)*1000+50176):POKERN,29:POKERN+5120,CL:CL=CL+1:VM=VM+1 38024 IFCL=8THENCL=3 38025 PRINT"";:PRINT" YOU HAVE COMPLETED THE QUEST ! 38026 [142] 51000 [143] 51008 CHARS[178]51200:SCREEN[178]50176 51009 RM[178][181](SCREEN[173]16384) 51010 [151]56334,[194](56334)[175]254 51020 [151] 1,[194](1)[175]251 51040 [151]1,[194](1)[176]4 51050 [151]56334,[194](56334)[176]1 51060 [151]56578,[194](56578)[176]3 51070 [151]56576,([194](56576)[175]252)[176](3[171]RM) 51072 [151]53272,18 51074 [151]648,SCREEN[173]256 51078 [151] 55,0:[151]56,136:[143]34816 51080 [142] 55000 [143]MOVE 55010 EA[178]EA[170]1:L[178]EA[171]SA:NE[178]L[170]NS 55020 X[178][181](L[173]256):Y[178]L[171]256[172]X 55030 A[178][181]((NE[171]Y)[173]256):B[178]NE[171]256[172]A[171]Y 55040 C[178][181]((EA[171]Y)[173]256):D[178]EA[171]256[172]C[171]Y 55050 [151] 781,X[170]1:[151]782,Y 55060 [151] 88,B[170]1:[151] 89,A 55070 [151]90,D[170]1:[151] 91,C 55080 [158]41964:[151] NS,[194](SA) 55090 [142] 60000 V[178]53248:[151]V,XX:[151]V[170]1,YY:[151]V[170]39,7:[151]V[170]21,0 60002 [151]51192,0 60003 SA[178]49408:EA[178]SA[170]63:NS[178]49152:[141]55010 60004 [129]P[178]51193[164]51199:[151]P,1:[130] 60006 [151]V[170]2,48:[151]V[170]4,88:[151]V[170]6,128:[151]V[170]8,48:[151]V[170]10,88:[151]V[170]12,128 60008 [151]V[170]3,82:[151]V[170]5,82:[151]V[170]7,82 60010 [151]V[170]9,114:[151]V[170]11,114:[151]V[170]13,114 60100 [142]