Atari 8-bit Source code

0REM
1GOSUB30000:?CHR$(125):POKE752,1:POSITION14,2:?""
2?:?"QUESTIwaswrittenbyBrianReynolds":?:?"[ATARItranslationbyAlanJ.Zett]":OPEN#3,4,0,"K"
3?
7GOSUB600:FORX=1TO276:T$(X)="":NEXTX:FORX=1TO88:MN$(X)="":NEXTX:YY$="@"
8FORX=0TO9:TS(X)=0:NEXTX
9FORX=1TO49:K$(X,X)=CHR$(INT(RND(0)*32)):NEXTX:K$(49)=""
100DATAWorthlessoddsandends,0,0,AbagofCopperCoins,1,3,AsmallBrassStatuette,2,5
102DATAAbagofvariousCoins,3,7,ApurseofGOLDCOINS,5,12,3GOLDNuggets,8,17
104DATA4smallTurquoises,7,15,AlargeRuby,15,30
106DATAA*HUGE*Sapphire,150,150,AHealingHerb,10,0
108DATA10OldMuskets,15,0,10NormalArrows,10,0
110DATASKELETON,S,2,ORC,O,3,ZOMBIE,Z,4,GHOUL,G,6
112DATAHUGESPIDER,H,7,MUMMY,M,8,GIANT,G,9,WARRIOR,W,9.9
115DATA1,12,3,2,18,0,0,0
120DATA2,0,0,0,1,4,2,8
125DATA1,1,0,4,19,0,0,1
130DATA1,0,0,5,3,3,1,1
135DATA2,6,38,0,4,1,3,6
140DATA1,8,5,9,7,0,0,0
145DATA1,0,0,6,0,0,0,1
150DATA2,0,6,0,11,2,11,2
155DATA2,0,0,10,6,2,3,1
160DATA2,0,0,0,9,5,1,4
165DATA1,0,0,8,12,0,0,1
170DATA2,0,1,11,13,2,5,3
175DATA1,0,0,12,14,0,0,1
180DATA2,15,26,13,17,5,1,1
185DATA2,0,14,0,0,0,0,1
190DATA2,0,17,0,0,1,2,5
195DATA1,16,20,14,0,4,1,1
200DATA2,0,19,1,26,2,2,7
205DATA2,18,30,3,27,3,2,2
210DATA1,17,21,0,0,0,0,1
215DATA1,20,22,0,0,6,2,9
220DATA1,21,23,0,0,2,3,12
225DATA1,22,24,0,0,4,2,10
240DATA1,23,25,34,0,0,0,11
250DATA2,24,0,0,0,7,3,9
260DATA2,14,0,18,0,3,2,1
270DATA2,0,28,19,0,4,1,2
280DATA1,27,29,31,0,0,0,1
290DATA2,28,0,0,0,5,1,10
300DATA2,19,0,0,0,1,2,3
310DATA1,0,32,0,28,0,0,4
320DATA1,31,33,43,0,0,0,1
330DATA2,32,35,0,0,5,1,8
340DATA1,0,0,35,24,0,0,12
350DATA1,33,36,45,34,0,0,5
360DATA1,35,0,37,0,7,1,10
370DATA2,0,0,0,36,8,3,9
380DATA1,5,49,0,39,0,0,1
390DATA1,0,40,38,0,0,0,6
400DATA1,39,0,0,41,2,3,2
410DATA1,42,46,40,43,4,1,7
420DATA2,0,41,0,0,7,3,8
430DATA2,0,44,41,32,6,1,11
440DATA1,43,45,0,0,0,0,5
450DATA1,44,0,47,35,0,0,1
460DATA2,41,47,48,0,5,1,7
470DATA1,46,0,50,45,0,0,3
480DATA1,0,0,49,46,0,0,1
490DATA2,38,51,52,48,6,1,6
500DATA1,0,0,51,47,2,5,10
510DATA1,49,0,53,50,4,3,5
520DATA2,0,0,0,49,6,1,6
530DATA2,0,54,0,51,5,1,8
540DATA1,53,0,0,55,0,0,1
550DATA2,0,0,54,56,2,3,2
560DATA1,0,0,55,57,6,1,8
570DATA1,0,0,56,58,7,3,11
580DATA2,0,0,57,0,8,4,9
590RESTORE:GOTO603
600DIMMN$(89),M$(8),MS(8),R1(58),R2(58,4),M1(58),M2(58),T1(58),T$(277),EP(12),GP(12),TS(9),YY$(1)
602DIMX$(23),NM$(20),A$(5),K$(49),X1$(2),I$(2):RETURN
603FORX=1TO12:READX$,X1,X2:T$((X*23)-22)=X$:EP(X)=X1:GP(X)=X2:NEXTX:T$(277)="#"
605FORX=1TO8:READX$,X1$,X2:MN$((X*11)-10)=X$:M$(X)=X1$:MS(X)=X2:NEXTX:MN$(89)="#"
610FORX=1TO58:READX1:R1(X)=X1:FORY=1TO4:READX1:R2(X,Y)=X1:NEXTY
615READX1:M1(X)=X1:READX1:M2(X)=X1:READX1:T1(X)=X1:NEXTX
620RM=1:A1=1000:A2=1000:W=1:P2=2:POKE752,0
800IFB1=1THENGOSUB20000
805IFB1=1THENB1=0:GOTO900
807POSITION3,10:?"WouldyoulikeinstructionsY/N";:INPUTA$:IFA$(1,1)="Y"THENGOTO6000
810POSITION2,12:?"WanttouseanoldcharacterY/N";:INPUTA$:?:IFA$(1,1)<>"Y"THENGOSUB21000:GOTO900
812?"NAME:";:INPUTNM$
815?"STRENGTH:";:INPUTST:IFST>20ORST<3THEN815
820?"DEXTERITY:";:INPUTDX:IFDX>20ORDX<3THEN820
825?"WOUNDS:";:INPUTW:W=W/100:IFW<0.1ORW>1THEN825
830?"EXPERIENCE:";:INPUTEP
832?"GOLD:";:INPUTGP
835?"IS(S)HEANELF";:INPUTA$:IFA$(1,1)="Y"THENRC=1
836IFRC=0THEN?"IS(S)HEADWARF";:INPUTA$:IFA$(1,1)="N"THENRC=2
840?"OLDMUSKETS:";:INPUTA2:?"NORMALARROWS:";:INPUTA1
845?"HEALINGHERBS:";:INPUTPT
846?"FIREYDAGGER:";:INPUTHW
850?"WanttoloadinanoldgameY/N";:INPUTA$:IFA$(1,1)<>"Y"THEN900
860?"FROMASSETTEORISK";:INPUTA$:IFA$(1,1)="C"THEN?"HITWHENREADY":GOTO880
862IFA$(1,1)<>"D"THEN860
870OPEN#2,4,0,"D:QUEST.DAT"
872FORX=1TO58:INPUT#2;X1:M1(X)=X1:INPUT#2;X1:M2(X)=X1:INPUT#2;X1:T1(X)=X1
874GOTO884
880OPEN#2,4,0,"C:QUEST.DAT"
882FORX=1TO58:INPUT#2;X1:M1(X)=X1:INPUT#2;X1:M2(X)=X1:INPUT#2;X1:T1(X)=X1
884NEXTX:CLOSE#2
900?CHR$(125);"GOLD:";GP
901?:?"You'reatamarket.priceshereare:":?
903?"(1)OLDMUSKET...............2GOLD(2)FOURNORMALARROWS.......1GOLD"
905?"(3)HEALINGHERBS..........15GOLD(4)FIREYDAGGER............3GOLD"
907?"(0)TOSTARTGAME"
910?:?"OK,";NM$;",whatdoyouneed";:INPUTA$:IT=VAL(A$)
911IFIT>4ORIT<0THEN?CHR$(253);"IDON'TSELLTHAT!":GOTO910
912IFIT=0THEN990
913IFIT=1THENP1=2
914IFIT=2THENP1=1
915IFIT=3THENP1=15
916IFIT=4THENP1=3
917?:?"At";P1;"GOLDapiece,":?"howmanywillyoubuy";:INPUTA$:NM=VAL(A$):?
918IFNM<0THEN?CHR$(253);"VERYFUNNY!!":?"IDON'TBUYTHINGS,ISELLTHEM!!":GOTO916
920P1=P1*NM
921OP=P1
925?:?"Thatcomesto";P1;"GOLD,";NM$
930?"Howmuchwillyougiveme";:INPUTA:?
935IFA<OP/10THEN?"FORGETIT!!!":GOTO901
940IFA<OP/2THEN?"NOTINTERESTED.":GOTO901
941IFA>=P1THEN?"YOUGOTADEAL!":GOTO950
942Y=A/P1:X=RND(0):IFX>YTHEN?"Notinterested.":P1=INT((OP+P1)/2):GOTO930
945P1=INT((P1*2+A)/3):IFP1<=ATHEN941
947?"Howabout";P1;",";NM$;"?":GOTO930
950IFGP<P1THEN?:?"WHAT!!YACAN'TPAYYERDEBTS!":?"YOU'LLBETHROWNINTOPRISONFORTHIS!";CHR$(253):END
954FORDELAY=1TO50:NEXTDELAY
955GP=GP-P1:?"":?"Younowhave";GP;"GOLD,";NM$
957IFIT=4THENHW=HW+NM
960IFIT=1THENA2=A2+NM
965IFIT=2THENA1=A1+NM*4
970IFIT=3THENPT=PT+NM
980GOTO901
990?"OK,";NM$;",PRESSTO":?"ENTERTHEDUNGEON!";
991EL=0
992IFEP>100THENEP=EP-100:EL=EL+100:FORX=1TO58:M2(X)=M2(X)*1.1:NEXTX:GOTO992
993EP=EP+EL
994IFEL>500THENFORU=ELTO500STEP-100:FORX=1TO58:M2(X)=M2(X)/1.1:NEXTX:NEXTU
995INPUTA$:?CHR$(125):POKE752,1
996A3=0:A4=0
997IFA2>ST*2THENA4=A2-ST*2:A2=ST*2:?"MORETHAN";ST*2;"OLDMUSKETSWOULD":?"WEIGHYOUDOWN":?
998IFA1>ST*2THENA3=A1-ST*2:A1=ST*2:?"MORETHAN";ST*2;"ARROWSWOULD":?"WEIGHYOUDOWN":?
999FORX=1TO500:NEXTX
1000POKE752,1:?CHR$(125):IFB1=0THENB1=1:GOTO1005
1001IFRM<>1THEN1005
1002?"DoyouwishtoleavethedungeonY/N";:INPUTA$
1003IFA$(1,1)="Y"THEN800
1004?CHR$(125)
1005ONR1(RM)GOSUB10000,11000
1010IFT1(RM)>0THENTX=INT(RND(0)*9)+16:TY=INT(RND(0)*6)+9:POSITIONTX,TY:?"*";
1015X5=20:Y5=11
1020IFI$="W"THENY5=22
1022IFI$="X"THENY5=2
1024IFI$="D"THENX5=2
1026IFI$="A"THENX5=38
1028POSITIONX5,Y5:?YY$;
1030IFM2(RM)>=1THENWX=INT(RND(0)*9)+16:WY=INT(RND(0)*6)+9
1031MS=MS(M1(RM))/10
1050IFM2(RM)>=1THENPOSITIONWX,WY:?M$(M1(RM),M1(RM));
1055POSITION2,1:?"ARROWS:";A1;"";:POSITION2,0:?"MUSKETS:";A2;"";
1060POSITION2,21:?"ST=";ST;"DX=";DX;:POSITION2,2:?"WOUNDS:";INT(W*100+0.5);"";
1061POSITION2,3:?"ROOM:";RM;"";
1062POSITION31,17:?"HERBS:";:POSITION33,18:?PT;"";
1063POSITION31,19:?"DAGGER:";:POSITION33,20:?HW;"";
1065IFM2(RM)>=1THENPOSITION27,0:?"MONSTER:";:POSITION27,1:?MN$((M1(RM)*11)-10,M1(RM)*11)
1070IFM2(RM)<1THENPOSITION27,0:?"";:POSITION27,1:?"";
1075IFM2(RM)>1THENPOSITION27,2:?"NUMBER:";INT(M2(RM));"";
1077IFM2(RM)<=1THENPOSITION27,2:?"";
1080POSITION2,17:?"EX:";INT(EP);"";:POSITION37,3:?"W";:POSITION36,4:?"AD";:POSITION37,5:?"X";
1085POSITION2,18:?"GP:";GP;"";
1086IFM2(RM)<>0OR(INT(RND(0)*100)+1)<>1THEN1090
1087FORX=1TO7:POSITION4,23:?"WANDERINGMONSTER!";:FORY=1TO40:NEXTY:POSITION4,23
1088?"";:FORY=1TO15:NEXTY:NEXTX:M2(RM)=INT(RND(0)*3)+1:M1(RM)=INT(RND(0)*8)+1:GOTO1030
1090A$="":FORX=1TODX*10-EP:IFPEEK(764)=255THENNEXTX:GOTO1093
1091GET#3,A:POKE764,255:A$=CHR$(A)
1093IFT1(RM)>0THENPOSITIONTX,TY:?"*";
1095IFA$=""THENA$=I$:GOTO1100
1097I$=A$
1100IFI$="W"THENGOSUB15100
1105IFI$="X"THENGOSUB15200
1110IFI$="D"THENGOSUB15300
1115IFI$="A"THENGOSUB15400
1120IFI$="H"THENI$="":IFPT>0THENPT=PT-1:W=1
1125IFI$="M"ANDA2>0THENI$="":A2=A2-1:GOSUB15500
1130IFI$="N"ANDA1>0THENI$="":A1=A1-1:GOSUB15600
1135IFI$="F"THENGOSUB16000
1140IFI$="O"THENGOSUB17000
1145IFI$="T"ANDHW>0THENI$="":HW=HW-1:GOSUB18000
1200IFM2(RM)<1THEN1030
1201IFMS<=0THENFORX=1TOLEN(K$):POSITIONWX,WY:?K$(X,X);:NEXTX:M2(RM)=M2(RM)-1:EP=EP+MS(M1(RM)):GOTO1030
1205MX=SGN(X5-WX)
1206IFWX<X5THENMX=1
1207IFWX=X5THENMX=0
1210MY=SGN(Y5-WY)
1215POSITIONWX,WY:?"";
1220LOCATEWX+MX,WY,A:POSITIONWX+MX,WY:?CHR$(A);:IFA=32THENWX=WX+MX
1225LOCATEWX,MY+WY,A:POSITIONWX,MY+WY:?CHR$(A);:IFA=32THENWY=WY+MY
1230IFABS(WX-X5)>1ORABS(WY-Y5)>1THEN1050
1235X=RND(0):IFX>MSTHEN1050
1240X=RND(0)*MS
1245W=W-X:IFW<0THEN5000
1250GOTO1050
5000FORX=1TOLEN(K$):POSITIONX5,Y5:?K$(X,X);:NEXTX:FORX=1TO400:NEXTX:?CHR$(125)
5005?"WELCOMETOHEAVEN,";NM$;"!!!"
5010?"IHOPEYOUENJOYEDYOURSHORTLIFETIMEINWHICHYOUACCUMULATED";GP;"GOLD"
5015?"AND";EP;"EXPERIENCEPOINTS."
5020?:?:?"WOULDYOULIKETOPLAYITAGAINASANEWCHARACTERY/N";:INPUTA$:IFA$(1,1)="N"THENGRAPHICS0:RUN"D:M"
5025RUN
6000?CHR$(125):?"IFYOUHAVEAPRINTERYOUMAYWISHTOLISTTHESEINSTRUCTIONSTOITFOR"
6010?"EASYREFERENCEWHENPLAYING.OTHERWISEYOUCANWRITEDOWNTHEIMPORTANTONES."
6050?"WELCOMETOQUEST1.THEOBJECTOFTHISADVENTUREISTOEXPLORE1ORALL"
6055?"OFTHE58ROOMSINTHISDUNGEON.YOUWILLCOLLECTTREASURESANDFIGHTOFF"
6060?"MONSTERS,BOTHDEADANDALIVE.THEFOLLOWINGKEYSFORMADIAMONDSHAPE"
6065?"ONTHEKEYBOARDANDCONTROLTHEDIR-ECTIONOFYOUR'PERSON'INTHEROOMS,"
6070?"THEYAREASFOLLOWS:":?:?"W:MOVEUP":?"A:MOVELEFT":?"D:MOVERIGHT":?"X:MOVEDOWN"
6072?"S:STOPYOURPLAYERSMOVEMENT"
6075?:?"HITFORNEXTPAGE";:INPUTA$
6080?"YOUMAYHIT'1'ATANYTIMETOSTOPACTIONANDCOLLECTYOURTHOUGHTS."
6085?"THEFOLLOWINGAREUSEDDURINGGAME:":?:?"N:TOSHOOTANORMALARROW(NOTEFFEC-TIVEAGAINSTWARRIORS)"
6090?:?"M:TOSHOOTANOLDMUSKET.":?:?"T:TOTOSSAFIREYDAGGER":?"(AFFECTSONLY'DEAD'MONSTERS:"
6100?"SKELETONS,ZOMBIES,GHOULS,MUMMIES)"
6105?:?"F:TOFIGHTINCLOSECOMBAT(NOTEFFE-CTIVEAGAINSTGIANTSORWARRIORS)":?
6110?"O:TOOPENATREASURECHEST,WHICHISREPRESENTEDBYA*INAROOM."
6115?:?"H:TOEATHEALINGHERBSANDRESTOREYOURWOUND%TO100%."
6120?:?"HITFORNEXTPAGE";:INPUTA$
6125?"BELOWAREALLTHEMONSTERSANDTHEIRSTRENGTH.":?
6130?"SKELETON:20%":?"ORC:30%":?"ZOMBIE:40%":?"GHOUL:50%"
6135?"HUGESPIDER:70%":?"MUMMY:80%":?"GIANT:90%":?"WARRIOR:99%"
6137?:?"THEMONSTERSWILLBEREPRESENTEDBYTHEFIRSTLETTEROFTHEIRNAME."
6140?:?"IFYOUENCOUNTERTHESEMONSTERSANDTHEYATTACKYOUYOURWOUNDRATING"
6145?"WILLBEREDUCEDBYTHEABOVE%.IFITDROPSTO0THEGAMEWILLBEOVER."
6150?:?"INORDERTOWINYOUWILLHAVETOCOLL-ECTTHETREASUREFROMEACHROOMAND"
6155?"FINDYOURWAYBACKTOROOM#1.":?"HITTOPLAY";:INPUTA$:?"":GOTO810
9999END
10000X1=R2(RM,1)
10010IFX1>0THENFORX=0TO7:POSITION15,X:?"&";:POSITION25,X:?"&";:NEXTX
10012IFX1<=0THENPOSITION15,7:?"&&&&&&&&&&&";
10015X1=R2(RM,2)
10020IFX1>0THENFORX=15TO22:POSITION15,X:?"&";:POSITION25,X:?"&";:NEXTX
10022IFX1<=0THENPOSITION15,15:?"&&&&&&&&&&&";
10025X1=R2(RM,3)
10030IFX1>0THENFORX=25TO38:POSITIONX,7:?"&";:POSITIONX,15:?"&";:NEXTX
10032IFX1<=0THENFORX=7TO15:POSITION25,X:?"&";:NEXTX
10035X1=R2(RM,4)
10040IFX1>0THENFORX=2TO15:POSITIONX,7:?"&";:POSITIONX,15:?"&";:NEXTX
10042IFX1<=0THENFORX=7TO15:POSITION15,X:?"&";:NEXTX
10045RETURN
11000POSITION11,4:?"&&&&&";:POSITION25,4:?"&&&&&";
11010POSITION11,18:?"&&&&&";:POSITION25,18:?"&&&&&";
11012FORX=5TO7:POSITION11,X:?"&&";:NEXTX
11014FORX=15TO17:POSITION11,X:?"&&";:NEXTX
11015X1=R2(RM,1)
11020IFX1>0THENFORX=0TO4:POSITION15,X:?"&";:POSITION25,X:?"&";:NEXTX
11022IFX1<=0THENPOSITION15,4:?"&&&&&&&&&&&";
11025X1=R2(RM,2)
11030IFX1>0THENFORX=18TO22:POSITION15,X:?"&";:POSITION25,X:?"&";:NEXTX
11032IFX1<=0THENPOSITION15,18:?"&&&&&&&&&&&";
11035X1=R2(RM,3)
11040IFX1>0THENPOSITION29,7:?"&&&&&&&&&&";:POSITION29,15:?"&&&&&&&&&&";
11042IFX1<=0THENFORX=7TO15:POSITION29,X:?"&";:NEXTX
11045X1=R2(RM,4)
11050IFX1>0THENPOSITION2,7:?"&&&&&&&&&&";:POSITION2,15:?"&&&&&&&&&&";
11052IFX1<=0THENFORX=7TO15:POSITION11,X:?"&";:NEXTX
11055RETURN
15100IFY5=1THEN15105
15102LOCATEX5,Y5-1,M:POSITIONX5,Y5-1:?CHR$(M):IFM<>32THENRETURN
15105POSITIONX5,Y5:?"";
15110Y5=Y5-1:IFY5<1THENRM=R2(RM,1):GOTO1000
15120POSITIONX5,Y5:?YY$;:RETURN
15200IFY5=21THEN15205
15202LOCATEX5,Y5+1,M:POSITIONX5,Y5+1:?CHR$(M):IFM<>32THENRETURN
15205POSITIONX5,Y5:?"";
15210Y5=Y5+1:IFY5>21THENRM=R2(RM,2):GOTO1000
15220GOTO15120
15300IFX5>37THEN15305
15302LOCATEX5+1,Y5,M:POSITIONX5+1,Y5:?CHR$(M):IFM<>32THENRETURN
15303LOCATEX5+2,Y5,M:POSITIONX5+2,Y5:?CHR$(M):IFM<>32THENRETURN
15305POSITIONX5,Y5:?"";
15310X5=X5+2:IFX5>37THENRM=R2(RM,3):GOTO1000
15320GOTO15120
15400IFX5<3THEN15405
15402LOCATEX5-1,Y5,M:POSITIONX5-1,Y5:?CHR$(M):IFM<>32THENRETURN
15403LOCATEX5-2,Y5,M:POSITIONX5-2,Y5:?CHR$(M):IFM<>32THENRETURN
15405POSITIONX5,Y5:?"";
15410X5=X5-2:IFX5<3THENRM=R2(RM,4):GOTO1000
15420GOTO15120
15500GOSUB15699
15505X=RND(0)/2:IFRC=1THENX=X-0.1
15506IFRC=2THENX=X+0.1
15507X=X-(EP/1000)
15510X=X-0.2
15511X=X-(DX/100)
15515IFX>WTHENRETURN
15520X=RND(0):IFRC=1THENX=X+0.2
15522IFRC<>1THENX=X+0.1
15523IFRC=2THENX=X+0.1
15525MS=MS-X:RETURN
15599RETURN
15600GOSUB15699
15601IFM1(RM)=8THENRETURN
15605X=RND(0)/2:IFRC=1THENX=X-0.1
15606X=X-(DX/100)
15607IFRC=2THENX=X+0.1
15608X=X-(EP/1000)
15610IFX>WTHENRETURN
15620X=RND(0):IFRC=1THENX=X+0.1
15621IFRC=2THENX=X-0.1
15625MS=MS-X:RETURN
15698RETURN
15699IFWX=0THENWX=31:IFWY=0THENWY=8
15700X6=X5:Y6=Y5-1:X7=WX:Y7=WY
15701IFX6=X7THENSL=0:X8=X7:X9=X6
15702IFX6<>X7THENSL=(Y6-Y7)/(X6-X7):X8=X6:X9=X7
15703GOTO15708
15705IFX6>X7THENSL=(Y6-Y7)/(X6-X7):X8=X6:X9=X7
15706IFX7>X6THENSL=(Y7-Y6)/(X7-X6):X8=X7:X9=X6
15707IFX7=X6THENSL=0:X8=X7:X9=X6
15708Y8=Y6:Y9=Y7
15709Y=Y8
15710SL=SL*SGN(Y8-Y9):IFY6<Y7THENSL=-SL
15711IFX6>X7THENSL=-SL
15712FORX=X8TOX9STEPSGN(X9-X8+0.01):FORXX=1TO5:NEXTXX
15713IFY>22ORY<1ORX>37ORX<3THENNEXTX:GOTO15750
15715LOCATEX,Y,A:IFA=38THENX9=X-1:GOTO15750
15720POSITIONX,Y:?"+";:Y=Y+SL:NEXTX
15750Y=Y8:FORX=X8TOX9STEPSGN(X9-X8+0.01):POSITIONX,Y:?"";:Y=Y+SL:NEXTX
15760RETURN
16000IFABS(X5-WX)>1ORABS(Y5-WY)>1THENRETURN
16001IFM1(RM)=8THENRETURN
16002IFM1(RM)=7THENRETURN
16003IFM1(RM)=6THENW=W-0.05
16005X=RND(0):IFRC=0THENX=X-0.1
16006X=X-(DX/100)
16007IFRC=2THENX=X-0.3
16008X=X-(EP/1000)
16010IFX>WTHENRETURN
16015X=RND(0):IFRC=0THENX=X+0.1
16016X=X+(ST/100)
16017IFRC=2THENX=X+0.2
16020MS=MS-X:RETURN
17000IFABS(TX=X5)>1THENRETURN
17005IFABS(TY-Y5)>1THENRETURN
17010POSITIONTX,TY:?"";
17011TX=0:TY=0
17015POSITION12,23:?T$((T1(RM)*23)-22,T1(RM)*23);:FORX=1TO120:NEXTX
17020FORX=12TO34:POSITIONX,23:?"";:NEXTX
17021IFT1(RM)=10THENPT=PT+1:GOTO17026
17022IFT1(RM)=11THENA2=A2+10:GOTO17026
17023IFT1(RM)=12THENA1=A1+10:GOTO17026
17024TS=(T1(RM))=TS(T1(RM))+1
17025GP=GP+GP(T1(RM))
17026EP=EP+EP(T1(RM)):T1(RM)=0
17030RETURN
18000M=M1(RM):IFM=2ORM=5ORM=7THENRETURN
18005GOSUB15699:POSITIONWX,WY:?"";:WA=WX:WB=WY:WX=X5:WY=Y5:GOSUB16000:WX=WA:WY=WB:POSITIONX5,Y5:?YY$;:RETURN
20000?"WOULDYOULIKETOSEETHETREASURESYOURETRIEVEDFROMTHEDUNGEONY/N";:INPUTA$
20005IFA$(1,1)="Y"THENFORX=1TO9:?STR$(X);".";T$((X*23)-22,X*23);CHR$(127);TS(X):NEXTX
20010FORX=1TO9:TS(X)=0:NEXTX
20011A1=A1+A3:A2=A2+A4
20015?:?"WOULDYOULIKETOSAVETHISGAMEY/N";:INPUTA$
20017IFA$(1,1)<>"Y"THEN20028
20018?"ASSETTEORISK";:INPUTA$:IFA$(1,1)="C"THEN?"HITWHENREADY":GOTO20024
20019IFA$(1,1)<>"D"THEN20018
20020OPEN#2,8,0,"D:QUEST.DAT"
20021FORX=1TO58:?#2;M1(X):?#2;M2(X):?#2;T1(X)
20022GOTO20027
20024OPEN#2,8,0,"C:QUEST.DAT"
20025FORX=1TO58:?#2;M1(X):?#2;M2(X):?#2;T1(X)
20027NEXTX:CLOSE#2:?"SAVECOMPLETE."
20028?"WOULDYOULIKETOSTOPNOWY/N";:INPUTA$:IFA$(1,1)<>"Y"THENRETURN
20030?"OK.SOTHATYOUCANUSETHISCHARACTERAGAINATALATERTIME:"
20035?"NAME:";NM$;"RACE";:IFRC=0THEN?"HUMAN"
20036IFRC=1THEN?"ELF"
20037IFRC=2THEN?"DWARF"
20045?"HEALINGHERBS:";PT
20046?"FIREYDAGGER:";HW
20050?"ARROWS:";A1;"OLDMUSKETS:";A2
20055?"GOLD:";GP;"EXPERIENCE:";EP
20060?"STRENGTH:";ST;"DEXTERITY:";DX
20065?:?"WOULDYOULIKETOTRYAGAIN":?"ASA*NEW*CHARACTERY/N";:INPUTA$:IFA$(1,1)="Y"THENCLR:GOTO7
20099GRAPHICS0:?"COMEQUESTINGAGAINSOMETIME!!":END
21000?"OK,I'LLMAKEYOUONE.":FORX=1TO100:NEXTX:GP=INT(RND(0)*20)+6:ST=INT(RND(0)*17)+4:DX=INT(RND(0)*17)+4
21005RC=INT(RND(0)*3):A1=3:A2=INT(RND(0)*10)+1:PT=INT(RND(0)*3)+2:HW=INT(RND(0)*5)+1:EP=0:W=1
21010?:?"STRENGTH:";ST;"DEXTERITY:";DX
21015?"GOLD:";GP;"HEALINGHERBS:";PT
21020?"FIREYDAGGER:";HW;"RACE:";:IFRC=0THEN?"HUMAN"
21021IFRC=1THEN?"ELF"
21022IFRC=2THEN?"DWARF"
21025?"ARROWS:";A1;"OLDMUSKETS:";A2
21030?:?"WHATWILLYOUNAMETHISCHARACTER":INPUTNM$:?:?"HAVEAFUNQUEST,";NM$;"!!!!"
21040FORX=1TO200:NEXTX:?CHR$(125):RETURN
30000POKE106,PEEK(106)-5:GRAPHICS0:?"INITIALIZING...":?"GIVEMEABOUT50SECONDS":SETCOLOR2,7,0
30010START=(PEEK(106)+1)*256
30020FORX=0TO1023:POKESTART+X,PEEK(57344+X):NEXTX:RESTORE30050
30030POKE756,START/256
30040FORX=0TO7:POKEX+START+48,85:NEXTX:FORX=0TO7:READX1:POKEX+START+256,X1:NEXTX:RETURN
30050DATA152,216,255,27,25,60,102,231	

• Download link 1

• Download link 1
• Download link 2
• Download link 3
• Download link 4