Atari 8-bit Source code

0REMSOFTSIDEMAGAZINEVOL.5#30
1N0=0:N1=1:N2=2:N3=3:N4=4:N5=5:L1=970:L2=1830:L3=960:L4=5030:DIMOK$(2):OK$="OK"
2GOTO2260
4IFP$=""THENRETURN
5FORP=N1TOLEN(P$):PRINTCHR$(ABS((187*(P$(P,P)>"@"))-ASC(P$(P,P))));:NEXTP:PRINT:RETURN
6V$="":IFV0$=""THENRETURN
7FORJ=N1TOLEN(V0$):V$(LEN(V$)+N1)=CHR$(ABS((187*(V0$(J,J)>"@"))-ASC(V0$(J,J)))):NEXTJ:RETURN
10A$="GSVDVHGVMWLUZKIRHLMXVOO.zWLLIOVZWHMLIGS":B$="gSVWLLIRHOLXPVW":E=N2:RETURN
20A$="GSVVZHGVMWLUZKIRHLMXVOO.zNVGZOYLCORVHLMGSVTILFMW":B$="gSVYLCRHOLXPVW":W=N1:RETURN
30A$="ZGRMBKZHHZTV":N=11:S=4:RETURN
40A$="ZGIRZMTFOZIILLN":N=N3:RETURN
50A$="ZHGLIZTVILLN":N=8:W=6:RETURN
60A$="GSVDVZKLMILLN":E=5:RETURN
70A$="GSVGIVZHFIVEZFOG":N=12:RETURN
80A$="ZHNZOOILLN":S=5:E=9:RETURN
90A$="ZILLNDRGSZHGVVOWLLIRMGSVUOLLI":W=8:E=10:N=13:S=N1:RETURN
100A$="GSVNFHRXSZOO":E=11:W=9:RETURN
110A$="ZILLNDRGSZOZITVYIZHHGZYOV":N=14:S=N3:W=10:RETURN
120A$="GSVGSILMVILLNDRGSZHGZGFVLMGSVHLFGSDZOO":N=16:E=13:RETURN
130A$="ZILLNDRGSZHNZOORELIBGZYOV":S=9:W=12:N=17:E=14:RETURN
140A$="GSVDRAZIW'HDLIPHSLK":S=11:W=13:RETURN
150A$="ZILLNDRGSHGZRIHTLRMTFK":E=16:U=36:RETURN
160A$="ZOZITVSZOO":S=12:W=15:E=17:RETURN
170A$="ZOZITVHGLIZTVILLN":S=13:W=16:N=21:E=18:RETURN
180A$="ZHNZOOILLNDRGSHGZRIHTLRMTFK":W=17:N=22:U=39:RETURN
190A$="GSVWIZTLMILLN":E=20:RETURN
200A$="ZXLNKOVGVOBWZIPSZOO":W=19:E=21:RETURN
210A$="ZDLIPHSLKDRGSZDLLWVMGZYOV":W=20:E=22:S=17:RETURN
220A$="ZGRMBHJFZIVILLN":N=25:S=18:W=21:RETURN
230A$="ZIVXGZMTFOZIILLN":E=24:N=26:RETURN
240A$="GSVPRGXSVM":W=23:E=25:RETURN
250A$="GSVWFMTVLMXZHRMLDRGSZOZITVHOLGNZXSRMV":N=28:W=24:S=22:RETURN
260A$="GSVORYIZIB":S=23:RETURN
270A$="ZWZIPILLN":E=28:RETURN
280A$="GSVOZYLIZGLIBDRGSZNVGZOGZYOV":S=25:W=27:RETURN
290A$="ZEVIBWRIGBZMWWFHGBILLN":S=30:RETURN
300A$="ZEVIBOLMTXLIIRWLI":N=29:W=31:S=34:RETURN
310A$="ZYIRTSGXSZNYVI":E=30:W=32:RETURN
320A$="GSVXSZNYVILUWVZGS":W=33:E=31:RETURN
330A$="GSVXSZNYVILUGSVTLWH":E=32:RETURN
340A$="ZWZIPXLIIRWLI":N=30:W=35:RETURN
350A$="ZHNZOOXSZNYVIDRGSZHGVVOWLLIZYLEVBLF":E=34:RETURN
360A$="ZGRMBSZOODRGSHGZRIHTLRMTWLDM":D=15:E=37:RETURN
370A$="ZOLMT,WZIPXLIIRWLI":S=38:N=40:W=36:E=39:RETURN
380A$="ZHGIZMTV,IVWILLN.gSVIVRHZYFGGLMLMGSVMLIGSDZOO":N=37:RETURN
390A$="ZHNZOOILLNDRGSHGZRIHTLRMYWLDM":D=18:W=37:RETURN
400A$="ZSFTVVMGIZMXVSZOO":S=37:RETURN
410IFA=N1ANDSO=N1THENB$="gSVWLLIRHLKVM":N=9
420IFA=N2ANDS1=N1THENB$="gSVYLCRHLKVM"
430IFA=35ANDS1=N1THENB$="zHGZRIXZHVOVZWHFKGSILFTSGSVHGVVOWLLI":U=9
440IFA=9ANDS2=N1THENB$="gSVIVRHZHGZRIXZHVOVZWRMTWLDM":D=35
450IFA=25ANDS6=N1THENB$="gSVIVRHZHGZRIXZHVWLDM":D=29
460IFA=29ANDS6=N1THENB$="zHGZRIXZHVVCGVMWHGSILFTSGSVILLULUGSRHILLN":U=25
470IFA=12ANDS3=N1THENB$="gSVIVRHZHVXIVGKZHHZTVOVZWRMTHLFGS":S=7
480IFA=40ANDS4=N0THENB$="zMLIGSWLLIRHOLXPVW"
490IFA=40ANDS4=N1THENB$="gSVMLIGSWLLIRHWVHGILBVW":N=50
500REM
520IFC$=""THENC$="mlgsrmt"
530IFN<>N0THEND$(LEN(D$)+N1)="mLIGS"
540IFS<>N0THEND$(LEN(D$)+N1)="hLFGS"
550IFE<>N0THEND$(LEN(D$)+N1)="vZHG"
560IFW<>N0THEND$(LEN(D$)+N1)="dVHG"
570IFD<>N0THEND$(LEN(D$)+N1)="wLDM"
580IFU<>N0THEND$(LEN(D$)+N1)="fK"
590IFB$<>""THENB$(LEN(B$)+N1)="."
600IFD$<>""THENIFD$(N1,N1)=""THEND$=D$(N2,LEN(D$))
610GRAPHICSN0:?"Youarein";:P$=A$:GOSUBN4:P$=B$:GOSUBN4:PRINT:PRINT"Itemsyoucansee:"
612P$="":FORT=N1TO21:IFA=I(T)THENP$(N3)=I$(IP(T),IP(T+N1)-N1):GOSUBN4
614NEXTT:IFP$=""THENP$="mlgsrmt":GOSUBN4
618PRINT:PRINT"Exits:";:P$=D$:GOSUBN4
620IFM<>N0THEN?:P$="****":P$(6)=M$(MP(M),MP(M+N1)-N1):P$(LEN(P$)+N1)="ZGGZXPRMT****":GOSUBN5
630PRINT:PRINT"Command";:INPUTV0$:GOSUB6
632?
640FORT=N1TO7:IFV$=VB$(T*N3-N2,T*N3-N2)THENV$=VB$(T*N3-N2,T*N3)
650NEXTT
670IFLEN(V$)<N3THEN610
680V1$=V$(N1,N3):V2$=V$(LEN(V$)-2)
682IFV2$="vhg"THENV2$="lwh"
690FORT=N1TO23:IFV1$=VB$(T*N3-N2,T*N3)THENV1=T:GOTO702
700NEXTT
702IFV1=N0THENP$="rWLM'GFMWVIHGZMWBLF":GOSUBN5:GOTOL2
710FORT=N1TO21:IFV2$=I$(IP(T+N1)-N3,IP(T+N1)-N1)THENV2=T:GOTO730
720NEXTT
730ONV1GOTO750,780,820,890,920,940,980,1030,1050,1090,1190,1300,1830,1410,1520,1560,1600,1660,1690
732ONV1-19GOTO1720,1760,1800,1820
740GOTO1830
750IFN=N0THENGOTOL1
760IFA=7ANDM>N0THENGOTOL3
770A=N:?OK$:GOTOL2
780IFS=N0THENGOTOL1
790A=S:IFA=7ANDM(N1)>N0THENM=N1
800PRINTOK$
810GOTOL2
820IFW=N0THENGOTOL1
830IFM<>N0THENGOTOL3
840A=W:PRINTOK$:IFA=19ANDM(N3)>N0THENM=N3
850IFA=20ANDM(N2)>N0THENM=N2
860IFA=27ANDM(N4)>N0THENM=N4
870IFA=32ANDM(N5)>N0THENM=N5
880GOTOL2
890IFE=N0THENGOTOL1
900IFM<>N0THENGOTOL3
910A=E:PRINTOK$:GOTOL2
920IFU=N0THENGOTOL1
930A=U:GOTOL2
940IFD=N0THENGOTOL1
950A=D:GOTOL2
960P$="gSV":P$(5)=M$(MP(M),MP(M+1)-1):P$(LEN(P$)+1)="YOLXPHGSVVCRG":GOSUBN5:GOTOL2
970P$="gSVIVRHMLDZBGLTLGSZGWRIVXGRLM":GOSUBN4:GOTOL2
980IFV2=N2ANDA=N2THENP$="gSVYLCRHUZHGVMVWGLGSVUOLLI":GOSUBN4:GOTOL2
990IFV2=N0OR(I(V2)<>AANDI(V2)<>N0)THENPRINT"Idon'tseeithere":GOTOL2
1000IFI(V2)=N0THENPRINT"Youarealreadycarryingit":GOTOL2
1010IFP3=10THENPRINT"Youcantcarryanythingmore":GOTOL2
1020I(V2)=N0:P3=P3+N1:PRINTOK$:GOTOL2
1030IFV2=N0ORI(V2)<>N0THENPRINT"Idon'thaveit":GOTOL2
1040P3=P3-N1:I(V2)=A:PRINTOK$:GOTOL2
1050GRAPHICSN0:PRINT"Player'sInventory"
1060FORT=N1TO21:IFI(T)=N0THENP$=I$(IP(T),IP(T+N1)-N1):GOSUBN4
1070NEXTT
1080GOTO1920
1090IFM=N0THENP$="gSVIVZIVM'GZMBNLMHGVIHSVIV":GOSUBN4:GOTOL2
1100IFA=20ANDP4=N0THENP$="bLFXZM'GZGGZXPRMGSVWZIP":GOSUBN4:GOTOL2
1110PRINT"Withwhichweapon";:INPUTV2$:IFLEN(V2$)<N3THEN1110
1112?
1114V0$=V2$:GOSUB6:V2$=V$
1120V2=N0:V2$=V2$(LEN(V2$)-N2):FORT=N1TO21:IFV2$=I$(IP(T+N1)-N3,IP(T+N1)-N1)THENV2=T:GOTO1132
1130NEXTT
1132IFV2=N0ORI(V2)<>N0THENP$="bLFWLM'GSZEVGSZGDVZKLM":GOSUBN4:GOTOL2
1134IFV2<>6ANDV2<>14THENP$="gSZGRHM'GZDVZKLM":GOSUBN4:GOTOL2
1140IFV2<>14ORM<>4THEN1150
1142P$="gSVUOZNRMTHDLIWPROOVWGSVHORNVXIVZGFIV":GOSUBN4:P2=P2+15:M=N0:M(N4)=N0:GOTOL2
1150IFINT(100*RND(0))+1<(40-P5)THENP$="bLFNRHHVWGSV":P$(LEN(P$)+N1)=M$(MP(M),MP(M+N1)-N1):GOSUBN4:GOTOL2
1160P$="bLFSRGGSV":P$(LEN(P$)+N1)=M$(MP(M),MP(M+N1)-N1):GOSUBN4:M(M)=M(M)-N5
1162IFM(M)<=N0THENP$="rGRHWVZW!":GOSUBN4:M(M)=N0:P2=P2+15:IFM=N5THENP2=P2+35
1170IFM(M)=N0THENM=N0
1180GOTOL2
1190T=V2:IFT=N0ORI(T)<>N0THENP$="rWLM'GSZEVGSZG":GOSUBN4:GOTOL2
1200IFT<>N1ANDT<>12ANDT<>16THENP$="eVIBHGIZMTV.mLGSRMTSZKKVMH":GOSUBN4:GOTOL2
1210IFT=N1THENP$="mLGSRMTSZKKVMG":GOSUBN4:GOTOL2
1220IFT<>12ORM<>N5ORP6>=N4THEN1230
1222P$="gSVYOZXPWIZTLMIVUOVXGHGSVORTSGMRMTYLOGRMGLGSVDZOO":GOSUBN4:P6=P6+N1:GOTOL2
1230IFT=12ANDP6>2THENP$="mLGSRMTSZKKVMH":GOSUBN4:GOTOL2
1240IFT=12ANDM=N0THENP$="zORTSGMRMTYLOGRHIVOVZHVWYBGSVDZMW":GOSUBN4:P6=P6+N1:GOTO1830
1250IFT<>12THEN1270
1252P6=P6+N1:P$="zORTSGMRMTYLOGSRGGSV":GOSUBN4
1253P$=M$(MP(M),MP(M+N1)-N1):GOSUBN4:M(M)=M(M)-15
1254IFM(M)<=0THENM(M)=0:P2=P2+15:M=N0:P$="rGRHWVZW":GOSUBN4
1260GOTOL2
1270IFT=16ANDA=9ANDS2=N0THENS2=1:P$="zHVXIVGHGZRIXZHVWLDMZKKVZIH":GOSUBN4:GOTOL2
1280IFT=16ANDA=12ANDS3=N0THENS3=N1:P$="zHVXIVGILLNGLGSVHLFGSZKKVZIH":GOSUBN4:GOTOL2
1290P$="mLGSRMTSZKKVMH":GOSUBN4:GOTOL2
1300IFV2<>N2ORI(N1)<>N0ORS1<>N0THEN1310
1302S1=N1:P$="gSVNVGZOYZISVOKVW.gSVIVRHZPVBRMGSVYLC":GOSUBN4:I(N3)=N2:GOTOL2
1310IFV2=N2ANDI(N1)=N0ANDS1=N1THENP$="gSVYLCRMZOIVZWBLKVM":GOSUBN4:GOTOL2
1320IFV2$="lli"ANDA=9ANDS2=N1THENP$="gSVWLLIRHZOIVZWBLKVM":GOSUBN4:GOTOL2
1330IFV2$="ill"ANDA=9ANDS2=N0THENP$="gSVWLLIWLDMHVVNHNZTRXZOOBOLXPVW":GOSUBN4:GOTOL2
1340IFV2<>21OR(A<>I(21)ANDI(21)<>N0)THEN1350
1342P$="zOOGSZGBLFXZMHVVRHZEVIBYIRTSGORTSGRMHRWVGSVXSVHG":GOSUBN4:GOTOL2
1350IFV2$="ill"ANDS1=N0THENP$="bLFZIVM'GHGILMTVMLFTSGLLKVMRG":GOSUBN4:GOTOL2
1360IFV2$="ill"ANDA=N1ANDI(N3)<>N0THENP$="bLFWLM'GSZEVGSVPVB":GOSUBN4:GOTOL2
1370IFV2$="ill"ANDA=N1ANDI(N3)=N0ANDSO=N1THENP$="gSVWLLIRHZOIVZWBLKVM":GOSUBN4:GOTOL2
1380IFV2$="lli"ANDA=N1ANDI(N3)=N0ANDS0=N0THENSO=N1:P$="gSVWLLIRHMLDLKVM":GOSUBN4:GOTOL2
1390IFV2$="ill"ANDA=40ANDI(N3)=N0THENP$="gSVPVBWLVHM'GURG":GOSUBN4:GOTOL2
1400P$="rXZM'GWLGSZG":GOSUBN4:GOTOL2
1410IFV2=N0ORI(V2)<>N0THENP$="bLFWLM'GSZEVGSZG":GOSUBN4:GOTOL2
1420IFV2=17ANDA=12ANDS3=N0THENS3=1:P$="zGIVZHFIVEZFOGRHVCKLHVW":GOTO5000
1430IFV2=17ANDA=9ANDS2=N0THENS2=N1:P$="zHGZRIXZHVWLDMRHVCKLHVW":GOTO5000
1440IFV2=17ANDA=40ANDS4=N0THENS4=N1:P$="gSVMLIGSWLLIRHWVHGILBVW":GOTO5000
1450IFV2<>17ORM=N0THEN1460
1452IFV2=17ANDM<>0THENP$="gSVVCKOLHREVYLNYSRGGSV":GOSUBN4
1453IFV2=17ANDM<>0THENP$=M$(MP(M),MP(M+N1)-N1):GOSUBN4:M(M)=M(M)-15
1454GOSUB5020:I(17)=-A:P3=P3-N1:IFM<=N0THENM(M)=N0:T=M:M=0:P2=P2+15:P$="rGRHWVZW":GOSUBN4:GOTOL2
1460IFV2=17ANDT=55THENP2=P2+35
1470IFV2=17ANDM=N0THENP$="gSVYZOOVCKOLWVWZTZRMHGGSVHGLMVDZOO":GOSUBN4:GOSUB5020:I(17)=N0:P3=P3-N1
1480IFV2=17THENGOTOL2
1490IFV2=20THENP$="gSVUOZHPHSZGGVIVWRMGLNROORLMHLUKRVXVH":GOSUBN4:I(20)=-A:P3=P3-1:I9=20:GOSUB5030
1492IFV2=20THENGOTOL2
1500IFV2<>13ORM<>N2THEN1510
1502I(13)=-A:M(N2)=N0:P$="gSV":P$(N5)=M$(MP(M),MP(M+N1)-N1):P$(LEN(P$)+1)="SZHEZMRHSVW":GOSUBN4
1504I9=13:GOSUB5030:I(13)=-A:M=N0:P2=P2+15:P3=P3-N1:GOTOL2
1510GOTO1030
1520IFV2$="gfv"ANDA=12ANDS3=N0THENS3=N1:P$="zHVXIVGKZHHTVGLGSVHLFGSZKKVZIH":GOSUBN4:GOTOL2
1530IFV2$="gfv"ANDA=12ANDS3=N1THENS3=N0:P$="gSVHLFGSKZHHZTVXOLHVW":GOSUBN4:GOTOL2
1540IFV2$="glm"ANDA=38THENA=N1:P$="blfZIVGVOVKLIGVWGL....":GOSUBN4:GOTOL2
1550P$="rWLM'GFMWVIHGZMW":GOSUBN4:P$="DSZGBLFDZMGNVGLWL":GOSUBN4:GOTOL2
1560IFV2=N0ORI(V2)<>0THENP$="rWLM'GSZEVGSZG":GOSUBN4:GOTOL2
1570IFV2=N4THENP5=P5-INT(5*RND(0))-3:P$="bLFHGWWVMOBUVVONFXSDVZPVI":GOSUBN4:I(N4)=-A:I9=4:GOSUB5030
1572IFV2=N4THENP3=P3-N1:GOTOL2
1580IFV2<>9THEN1590
1582P5=P5+6+INT(RND(0)*5):P$="bLFHFWWVMOBUVVONFXSHGILMTVI":GOSUBN4:I(9)=-A:I9=9:GOSUBL2:P3=P3-N1:GOTOL2
1590P$="wLM'GYVIRWRXFOLFH":GOSUBN4:GOTOL2
1600IFV2=N0ORI(V2)<>0THENP$="rWLM'GSZEVGSZG":GOSUBN4:GOTOL2
1610IFV2=N4THENPRINTOK$:I9=4:GOSUBL4:I(4)=-A:P3=P3-N1:GOTOL2
1620IFV2=9THENPRINTOK$:I9=9:GOSUBL4:I(9)=-A:P3=P3-N1:GOTOL2
1630IFV2<>20ORS4<>N0THEN1660
1632IFA<>40THEN1640
1634P$="gSVZXRWWVHGILBVWGSVOLXPVWWLLI":GOSUBN4:S4=N1:I$(IP(20),IP(21)-1)="vnkgbuozhp":S5=N1:GOTOL2
1640P$="gSVZXRWYFYYOVHRMGLGSVUOLLI":GOSUBN4:S5=N1:I$(IP(20),IP(21)-1)="vnkgbuozhp":GOTOL2
1650P$="rWLM'GFMWVIHGZMW":GOSUBN4:P$="DSZGBLFDZMGNVGLWL.":GOSUBN4:GOTOL2
1660IFV2=N0ORI(V2)<>N0THENP$="rWLM'GSZEVGSZG":GOSUBN4:GOTOL2
1670IFV2=11THENI(V2)=-A:I9=V2:GOSUB5030:P3=P3-N1:S6=N1:P$="zHGZRIXZHVWLDMRHVCKLHVM":GOSUBN4:GOTOL2
1680P$="rXZM'GWLGSZG":GOSUBN4:GOTOL2
1690IFV2<>10THENP$="rXZM'GWLGSZG":GOSUBN4:GOTOL2
1700IFM<>1THEN1710
1702M(M)=N0:P$="gSV":P$(N5)=M$(MP(M),MP(M+1)-1):P$(LEN(P$)+N1)="RHXSZINVW":GOSUBN4:M=N0:P2=P2+15:GOTOL2
1710PRINTOK$:GOTOL2
1720IFV2<>18THENP$="rXZM'GIVZWGSZG":GOSUBN4:GOTOL2
1730IFI(18)<>N0THENP$="bLFWLM'GSZEVGSVHXILOO":GOSUBN4:GOTOL2
1740IFM<>3THEN1750
1742P$="gSVivmwiztlmRHWVHGILBVW":GOSUBN4:P3=P3-N1
1744I9=18:GOSUB5030:I(19)=-A:M(M)=N0:P2=P2+15:M=N0:GOTOL2
1750P$="gSVHXILOOHZBH:iVZWRMTGSVNZTRXHKVOORMHXIRYVWLMGSRHSLOBWLXFNVMG":GOSUBN4
1752P$="DROOXZFHVGSVWVHGIFXGRLMLUZMBIVWWIZTLMRMBLFIKIVHVMXV.":GOSUBN4:GOTO1920
1760IFV2<>N5THENPRINT"What?":GOTOL2
1770IFI(N5)<>N0THENP$="bLFWLM'GSZEVRG":GOSUBN4:GOTOL2
1780IFP4=N1THENP$="bLFIOZNKRHZOIVZWBLM":GOSUBN4:GOTOL2
1790P4=N1:I$(IP(N5),IP(N5))="":I$(IP(N5)+1,IP(N5+1))=CHR$(30):GOTOL2
1800GRAPHICSN0:PRINT"Player'sStatus:"
1810PRINT:PRINT"Currenthitpoints:";P1:PRINT"Strengthlevel:";P5:PRINT"Exp.points:";P2:GOTO1920
1820GRAPHICSN0:PRINT"Gameover":P2=P2-30:GOTO2010
1830TI=TI+N1:IFP1<P0THENP7=P7+0.2:IFP7=N1THENP7=N0:P1=P1+N1
1840IFM=N0THEN1940
1850IFI(19)=N0THEN1940
1860T=INT(RND(0)*100)+1:IFT<20THEN1940
1870?:P$="gSV":P$(N5)=M$(MP(M),MP(M+1)-1):P$(LEN(P$)+1)="ZGGZXPH":GOSUBN4
1880T=INT(RND(0)*100):IFT<30THENPRINT"Itmisses":GOTO1940
1890PRINT"Ithitsyou":P1=P1-10:IFI(7)=N0THENP1=P1+N5
1900IFP1<N0THEN2130
1910GOTO1940
1920?:?"Hitanykeytocontinue...":POKE764,255
1922IFPEEK(764)=255THEN1922
1924POKE764,255
1930GOTO1950
1940FORII=N1TO160:NEXTII
1950REM
1960GT=N1:N=N0:S=N0:E=N0:W=N0:U=0:D=N0:A$="":B$="":C$="":D$="":V1=N0:V2=N0:V$="":V1$="":V2$=""
1970IFA<=40THENGOSUBA*10:GOTO410
1980P$="bLFSZEVVHXZKVWUILNGSV":GOSUBN4:P$="wFMTVLMLUGSVtLWH!":GOSUBN4
1990PRINT"Totalexcapetime=";TI
2000IFI(21)<>N0THENP$="bLFWRWM'GTVGGSVXSVHG,GSVIVYVOORLMDROOYVXIFHSVW!!!":GOSUBN4:GOTO2140
2010P2=P2+30:IFI(8)=N0THENP2=P2+30
2020IFI(15)=N0THENP2=P2+30
2030IFI(21)=N0THENP2=P2+100
2040PRINT"Finalscore:";P2;"outofapossible300"
2050PRINT:PRINT"Ranking:";
2060IFP2=300THENPRINT"ExpertAdventurer":GOTO2140
2070IFP2>280THEN?"ClassAExplorer":GOTO2140
2080IFP2>250THENPRINT"ClassBExplorer":GOTO2140
2090IFP2>200THENPRINT"ClassCExplorer":GOTO2140
2100IFP2>150THENPRINT"FirstClassScout":GOTO2140
2110IFP2>100THENPRINT"NoviceScout":GOTO2140
2120PRINT"Beginner":GOTO2140
2130PRINT"Youaredead!!!"
2140PRINT:PRINT:PRINT"Wouldyouliketoplayagain?";
2142CLOSE#N1:OPEN#N1,N4,N0,"K:"
2144GET#N1,IN
2150IFIN=89THENRUN
2160IFIN<>78THEN2140
2170GRAPHICSN0:STOP
2180GRAPHICS0:DIMI$(1000),I(22),M(5),M$(1000),VB$(69),IP(23),MP(6)
2182DIMZ$(50),A$(80),B$(60),C$(80),D$(80),P$(80),V0$(20),V$(20),V1$(3),V2$(17)
2184FORT=N1TON5:M(T)=N0:NEXTT
2190I$="":FORT=N1TO21:IP(T)=LEN(I$)+N1:READZ$:I$(LEN(I$)+N1)=Z$:READZ:I(T)=Z:NEXTT:IP(T)=LEN(I$)+N1
2192I(N0)=N0
2200READVB$
2210M$="":FORT=N1TON5:MP(T)=LEN(M$)+N1:READZ$:M$(LEN(M$)+N1)=Z$:READZ:M(T)=Z:NEXTT:MP(T)=LEN(M$)+N1
2220FORT=N1TO15:P0=P0+INT(RND(0)*2)+1:NEXTT
2230P1=P0
2240FORT=N1TON5:P5=P5+INT(N5*RND(N0))+N1:NEXTT
2250A=N1:N1=N1:GOSUB10:GOTO410
2260GRAPHICSN0:PRINT:PRINT"EscapefromtheDungeonoftheGods":POSITION15,N2:PRINT"byRaySato"
2270PRINT"AtaritranslationbyRichBouchard"
2280PRINT
2290?:?:?"Foryears,thesmallmedievaltownofAlvardwasruledbyakindman,"
2292?"KingSafuisI.However,whenhedided,hissonbecamethenewruler.King"
2300?"SafuisIIwasaharsh,cruelmanwhoturnedAlvardintoacityofterroranddestruction."
2310?"Youandseveralothercitizensofthetownhadformedasmallarmyto"
2312?"rebelagainsttheevilruler,butonthedaybeforeyoufirstattackon"
2314?"theking,Safuis'secretpolicecap-turedyouandimprisonedyouinthe"
2320?"legendaryDungeonoftheGods."
2330?:?"Pressanykeytocontinue";
2340OPEN#1,4,0,"K:":GET#1,T:CLOSE#1
2350GRAPHICS0:?:?:?:?
2360?"Youarenowbeingheldinadismalprisoncellwhiletheking'sforces"
2362?"continuetodestroytheentirevill-age.Youmustescapefromthedungeon";
2364?"andhelptherebelliondefeattheking.Hereinthedungeon,legends"
2370?"saythereisaspecialchestcalledtheChestoftheGods,whichhasthe"
2372?"powerofdestroythekingandallhisforces.Youmustfindthischestand"
2380?"severalothertreasureshiddeninthedungeon.Butbeware!SEveralpower-"
2382?"fulmonstersprotectthecontentsofthisdungeonandyouwillbeforced"
2384?"toslaythemifyoumeetthem."
2390?:?"Pressanykeytobegin";
2392OPEN#1,4,0,"K:":GET#1,T:CLOSE#1
2400GOTO2180
2410DATAnvgzoyzi,2,nvgzoylc,-2,pvb,-2,klgrlm1,4,fmorgyizhhoznk,5,ozmxv,6,hsrvow,6,yzilukozgrmfn,7
2412DATAklgrlm2,8,uofgv,10,xlkkvixlrm,11,dzmwl,13,nztrxwfhg,14,uoznrmthdliw,16
2414DATA1wlavmwrznlmwh,19,dzmw2,21,vckolhrevyzoo,23,hxiloo,26,irmt,27,uozhpluzxrw,28,xsvhglugsvtlwh,33
2430DATAmlihlfdvhvzhfkwldtvgwilrmezggdzelkvollgsikfhwirklfrmhkozivzorthgzjfr
2440DATAxsilnzgrxhmzpv,15,yozxpxfyv,20,ivmwiztlm,25,hornvxivzgfiv,20,trzmgyozxpwiztlm,35
2900GOTO2900
5000GOSUBN4:P3=P3-N1:GOSUB5020:I(17)=-A:GOTOL2
5020I9=17
5030FORII=IP(19)TOIP(I9+N1)-N1:I$(II,II)="":NEXTII:RETURN	

• Download link 1

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