Atari 8-bit Source code

10REM
11REM
20PRINT""
30DIMINVENTORY$(20)
31DIMNODE$(8)
32DIMFILE$(10)
33DIMPRINT$(50)
34DIMINPUT$(50)
35DIMTEMP$(52)
100GOSUB30500
200NODE$="INIT"
300INVENTORY=ADR(INVENTORY$)-1
310FORN=1TO20
320POKEINVENTORY+N,0
330NEXTN
340EOF=0
360TRAP380
365OPEN#1,4,0,"D:INIT":CLOSE#1:TRAP0:GOTO390
380PRINT"ISDATADISKIN";
383INPUTINPUT$
386IFINPUT$(1,1)<>"Y"THENPRINT"PUTDATADISKIN":GOTO360
390REM
900PRINT""
901PRINT""
902PRINT""
903PRINT""
904PRINT""
1000REMPRINTDESCRIPTIONFIRST/////
1005CLOSE#1
1010GOSUB3000
2000REMGETACTIONS/////
2005CLOSE#1
2010INPUTINPUT$
2015PRINT
2020IFLEN(INPUT$)=50THENPRINT"SAYITWITHFEWERWORDS":GOTO2010
2030IFLEN(INPUT$)<2THEN2010
2040IFINPUT$(1,1)="\"THEN3200
2043TEMP$=""
2046TEMP$(2)=INPUT$
2050TEMP$(LEN(TEMP$)+1)=""
2060LETINPUT$=TEMP$
2065FORN=1TOLEN(INPUT$)
2067TEMP$=INPUT$(N,N)
2070IFTEMP$="."ORTEMP$=","THENLETINPUT$(N,N)=""
2080IFTEMP$<>"?"THEN2120
2090PRINT"IDON'TANSWERQUESTIONS"
2100POP
2110GOTO2010
2120NEXTN
2500REMTAKEACTION/////
2510TRAP4200
2520FILE$="D:"
2530FILE$(3)=NODE$
2540OPEN#1,4,0,FILE$
2550TRAP0
2560GOSUB4400
2570IFFOUNDTHEN2640
2580CLOSE#1
2590OPEN#1,4,0,"D:DEFAULT"
2600GOSUB4400
2610IFFOUNDTHEN2640
2620GOSUB4600
2630GOTO2660
2640REMREMFOUNDAMATCH/////
2650GOSUB4800
2660CLOSE#1
2670TRAP0
2680GOTO2000
3000REMPRINTDESCRIPTION/////
3005IFNODE$="END"THEN9200
3010TRAP3090
3020FILE$="D:"
3030FILE$(3)=NODE$
3040OPEN#1,4,0,FILE$
3050INPUT#1,PRINT$
3060IFPRINT$="*"THEN3090
3070PRINTPRINT$
3080GOTO3050
3090TRAP0
3100CLOSE#1
3110RETURN
3200REMWORKSPECIALACTIONS\/////
3205TRAP3380
3210LETINPUT$=INPUT$(2)
3220IFINPUT$(1,3)="NEW"THEN3400
3225IFINPUT$(1,4)="GOTO"THEN7600
3228IFINPUT$(1,4)="LIST"THEN8000
3230IFINPUT$(1,5)="PRINT"THEN3800
3240IFINPUT$(1,6)="CHANGE"THEN3600
3250IFINPUT$(1,6)="EXTEND"THEN4000
3380TRAP0
3390GOTO2000
3400REMWORKNEW/////
3405TRAP3460
3410IFLEN(INPUT$)<4THEN3460
3415LETINPUT$=INPUT$(4)
3420IFLEN(INPUT$)=0THEN3460
3425IFINPUT$(1,1)=""THENLETINPUT$=INPUT$(2):GOTO3425
3430GOTO3480
3460PRINT"FILENAME";
3470INPUTINPUT$
3473IFLEN(INPUT$)<9THEN3480
3476PRINT"FILENAMECANONLYHAVE8LETTERS"
3478GOTO3460
3480TRAP0
3490CLOSE#1
3500FILE$="D:"
3505FILE$(3)=INPUT$
3510OPEN#1,8,0,FILE$
3520PRINT"FILEDESCRIPTION:"
3530FLAGEND=0
3540GOSUB5000
3545PRINT"WORDS/PHRASES"
3550FLAGEND=1
3560GOSUB5000
3565PRINT"ACTIONS"
3570FLAGEND=0
3580GOSUB5000
3590IFEOFTHENEOF=0:CLOSE#1:GOTO2000
3595GOTO3545
3600REMWORKCHANGE/////
3605TRAP3660
3610IFLEN(INPUT$)<7THENLETINPUT$=NODE$:GOTO3680
3615LETINPUT$=INPUT$(7)
3620IFLEN(INPUT$)=0THEN3660
3625IFINPUT$(1,1)=""THENLETINPUT$=INPUT$(2):GOTO3625
3630GOTO3680
3660PRINT"FILENAME";
3670INPUTINPUT$
3673IFLEN(INPUT$)<9THEN3680
3676PRINT"FILENAMECANONLYHAVE8LETTERS"
3678GOTO3660
3680TRAP0
3690CLOSE#1
3700FILE$="D:"
3705FILE$(3)=INPUT$
3710OPEN#1,4,0,FILE$
3715OPEN#2,8,0,"D:TEMP"
3720INPUT#1,TEMP$
3725IFTEMP$="**"THEN3790
3730PRINTTEMP$
3740INPUTINPUT$
3745IFINPUT$=""THENPRINT#2;TEMP$:GOTO3720
3750IFINPUT$="-"THEN3720
3755REMASSUMENEWLINE
3760PRINT#2;INPUT$
3770GOTO3740
3790PRINT#2;"**"
3792CLOSE#1:CLOSE#2:GOSUB5200
3795GOTO2000
3800REMWORKPRINT/////
3805TRAP3860
3810IFLEN(INPUT$)<6THENLETINPUT$=NODE$:GOTO3880
3815LETINPUT$=INPUT$(6)
3820IFLEN(INPUT$)=0THEN3860
3825IFINPUT$(1,1)=""THENLETINPUT$=INPUT$(2):GOTO3825
3830GOTO3880
3860PRINT"FILENAME";
3870INPUTINPUT$
3873IFLEN(INPUT$)<9THEN3880
3876PRINT"FILENAMECANONLYHAVE8LETTERS"
3878GOTO3860
3880TRAP0
3890CLOSE#1
3895PRINTINPUT$:LPRINTINPUT$
3900FILE$="D:"
3905FILE$(3)=INPUT$
3910OPEN#1,4,0,FILE$
3920TRAP3970
3930INPUT#1,INPUT$
3940PRINTINPUT$
3950LPRINTINPUT$
3960IFINPUT$<>"**"THEN3930
3970TRAP0
3980CLOSE#1
3990GOTO2000
4000REMWORKEXTEND/////
4005TRAP4060
4010IFLEN(INPUT$)<7THENLETINPUT$=NODE$:GOTO4080
4015LETINPUT$=INPUT$(7)
4020IFLEN(INPUT$)=0THEN4060
4025IFINPUT$(1,1)=""THENLETINPUT$=INPUT$(2):GOTO4025
4030GOTO4080
4060PRINT"FILENAME";
4070INPUTINPUT$
4073IFLEN(INPUT$)<9THEN4080
4076PRINT"FILENAMECANONLYHAVE8LETTERS"
4078GOTO4060
4080TRAP0
4090CLOSE#1
4100FILE$="D:"
4105FILE$(3)=INPUT$
4110OPEN#2,4,0,FILE$
4115OPEN#1,8,0,"D:TEMP"
4120INPUT#2,TEMP$
4125IFTEMP$="**"THEN4140
4130PRINT#1;TEMP$
4135GOTO4120
4140FLAGEND=1
4142PRINT"WORDS/PHRASES"
4143GOSUB5000
4145FLAGEND=0
4150PRINT"ACTIONS"
4155GOSUB5000
4160IFEOFTHENEOF=0:CLOSE#1:CLOSE#2:GOSUB5200:GOTO2000
4170GOTO4140
4200REMNEEDNEWNODE/////
4210PRINT"YOUMUSTDEFINENODE";NODE$
4220LETINPUT$=NODE$
4230GOTO3480
4400REMFINDAMATCH/////
4410FOUND=0
4420GOSUB5400
4430IFEOFTHENCLOSE#1:GOTO4590
4440INPUT#1,TEMP$
4445IFTEMP$="**"THENCLOSE#1:RETURN
4450IFTEMP$="*"THEN4420
4455IFTEMP$="/ANY/"THEN4580
4460LETPRINT$="":LETPRINT$(2)=TEMP$
4465TEMP$=PRINT$:TEMP$(LEN(TEMP$)+1)=""
4470IFLEN(TEMP$)>LEN(INPUT$)THEN4440
4480FORN=1TOLEN(INPUT$)-LEN(TEMP$)+1
4490IFINPUT$(N,N+LEN(TEMP$)-1)=TEMP$THENPOP:GOTO4580
4500NEXTN
4510GOTO4440
4580FOUND=1
4590TRAP0:RETURN
4600REMRANDOMRESPONSE/////
4610GOTOINT(RND(0)*5)*10+4620
4620PRINT"HUH?":RETURN
4630PRINT"WHAT?":RETURN
4640PRINT"IDON'TUNDERSTAND":RETURN
4650PRINT"YOUCAN'TDOTHAT":RETURN
4660GOSUB4400
4670PRINT"WOULDYOUPUTTHATANOTHERWAY"
4680RETURN
4800REMDOACTIONS/////
4810GOSUB5400
4815IFEOFTHENEOF=0:CLOSE#1:RETURN
4820INPUT#1,INPUT$
4830IFINPUT$="*"THENRETURN
4840TEMP$=INPUT$(1,1)
4845IFLEN(INPUT$)=1THENLETINPUT$="":GOTO4860
4850LETINPUT$=INPUT$(2)
4860IFTEMP$="P"THENPRINTINPUT$:GOTO4820
4870IFTEMP$="G"THENNODE$=INPUT$:CLOSE#1:GOTO3000
4880IFTEMP$="Q"THENGOTO5600
4890IFTEMP$="D"THENGOTO5800
4900IFTEMP$="I"THENGOSUB6000
4910IFTEMP$="M"THENGOSUB6200:GOTO2000
4920IFTEMP$="T"THENGOSUB6400
4930IFTEMP$="W"THENFORN=1TOVAL(INPUT$):NEXTN:GOTO4820
4940IFTEMP$="R"THENGOSUB7200
4950IFTEMP$="Y"THENIFCONDITIONTHEN4840
4960IFTEMP$="N"THENIFNOTCONDITIONTHEN4840
4970IFTEMP$="L"THENGOSUB7400:TEMP$="":IFFOUNDTHENPOKEINVENTORY+N,0
4980IFTEMP$="S"THENGOSUB7800
4990GOTO4820
5000REMGETINPUTFORFILE/////
5020IFNOTFLAGENDANDEOFTHENPRINT"FILECLOSED":RETURN
5030INPUTINPUT$
5040IFFLAGENDANDINPUT$=""THENEOF=1:PRINT#1;"**":CLOSE#1:RETURN
5050PRINT#1;INPUT$
5060INPUTINPUT$
5070IFINPUT$=""THENPRINT#1;"*":RETURN
5080GOTO5050
5200REMMOVETEMPTOFILE/////
5210CLOSE#1:CLOSE#2
5220TRAP5280
5230OPEN#1,4,0,"D:TEMP"
5240OPEN#2,8,0,FILE$
5250INPUT#1,PRINT$
5260PRINT#2;PRINT$
5270IFPRINT$<>"**"THEN5250
5280PRINT#2;"**"
5290CLOSE#1
5300CLOSE#2
5310TRAP0
5320RETURN
5400REMSKIPABLOCK/////
5402EOF=0
5405TRAP5440
5410INPUT#1,TEMP$
5420IFTEMP$="*"THENRETURN
5430GOTO5410
5440TRAP0
5450EOF=1
5460CLOSE#1
5470CLOSE#2
5480RETURN
5600REMQUIT/////
5610CLOSE#1
5620CLOSE#2
5630TRAP0
5640PRINT"DOYOUWANTTOPLAYAGAIN";
5650INPUTINPUT$
5660IFINPUT$(1,1)="Y"THENRUN
5670PRINT"":END
5800REMDIE/////
5810PRINT""
5820POKE84,10:POKE752,1
5825PRINT""
5827PRINT""
5829PRINT""
5831PRINT""
5833PRINT""
5835PRINT""
5837PRINT""
5839PRINT""
5841PRINT
5850FORN=1TO500:NEXTN
5860POKE752,0
5890GOTO5600
6000REMPRINTINVENTORY/////
6010FLAG=0
6015N=0
6020TRAP6090
6030RESTORE
6040PRINT"YOUHAVE:"
6050READTEMP$
6060N=N+1
6070IFPEEK(INVENTORY+N)=1THENFLAG=1:PRINTTEMP$
6080GOTO6050
6090IFNOTFLAGTHENPRINT"NOTHING"
6100TRAP0
6105TEMP$=""
6110RETURN
6200REMFIGHTMONSTER/////
6205TRAP0
6210N=VAL(INPUT$)
6213TEMP$=""
6215IFN<(100*RND(0))THENRETURN
6220PRINT"THEREISAMONSTERHERE!"
6221PRINT"YOUCANSEETHATYOUMUSTKILLIT"
6222PRINT"ORITWILLKILLYOU."
6225HTK=10:MHTK=6
6230PRINT"WHATAREYOUGOINGTODO?"
6233HIT=0:DAM=0
6235INPUTINPUT$
6236PRINT
6240TEMP$="":TEMP$(2)=INPUT$
6245TEMP$(LEN(TEMP$)+1)=""
6250LETINPUT$=TEMP$
6255CLOSE#1
6260OPEN#1,4,0,"D:MONSTER"
6265GOSUB4400
6270IFNOTFOUNDTHENPRINT"THATHASNOEFFECTONIT.":GOTO6325
6275GOSUB5400
6280IFEOFTHEN6325
6285INPUT#1,INPUT$
6290IFINPUT$="*"THEN6325
6300TEMP$=INPUT$(1,1)
6302IFLEN(INPUT$)<2THENLETINPUT$="":GOTO6310
6305LETINPUT$=INPUT$(2)
6310IFTEMP$="W"THENGOSUB6800:IFNOTFOUNDTHENGOTO6325
6312IFTEMP$="L"THENGOSUB7400:TEMP$="":IFFOUNDTHENPOKEINVENTORY+N,0
6315IFTEMP$="H"THENHIT=HIT+VAL(INPUT$)
6320IFTEMP$="D"THENDAM=DAM+VAL(INPUT$)
6322GOTO6285
6325REMTAKEBATTLEACTIONS/////
6330TRAP0
6335CLOSE#1
6340IF(100*RND(0))<HITTHENPRINT"YOUWOUNDTHEMONSTER":MHTK=MHTK-DAM
6345IFMHTK<1THENPRINT"ANDYOUHAVEKILLEDHIM!":LETINPUT$="75":GOTO6400
6350IFRND(0)<0.5THENPRINT"THEMONSTERBITESYOU":HTK=HTK-5*RND(0)
6355IFHTK<0THENFORW=1TO200:NEXTW:GOTO5800
6380GOTO6230
6400REMFOUNDTREASURE/////
6410N=VAL(INPUT$)
6415TEMP$=""
6420IFN<(100*RND(0))THENRETURN
6440GOSUB7000
6450N=INT(N*RND(0))+1
6460IFPEEK(INVENTORY+N)=1THENRETURN
6470RESTORE
6480FORNN=1TON
6490READTEMP$
6500NEXTNN
6510PRINT"YOUFINDANDKEEPA";
6520POKEINVENTORY+N,1
6530PRINTTEMP$
6540TEMP$="":RETURN
6600REMDATAFORINVENTORY/////
6610DATASWORD
6615DATAKEY
6620DATAROPE
6625DATAPOTION
6630DATAWORM
6800REMISINPUT$ININVENTORY/////
6810FOUND=0
6820TRAP6870
6830RESTORE
6840READTEMP$
6850IFTEMP$=INPUT$THENTRAP0:FOUND=1:RETURN
6860GOTO6840
6870TRAP0:RETURN
7000REMNUMBERININVENTORY?(=N)/////
7010TRAP7070
7020N=0
7030RESTORE
7040READTEMP$
7050N=N+1
7060GOTO7040
7070TRAP0
7080RETURN
7200REMREQUIREITEM/////
7210TEMP$=""
7220CONDITION=0
7230GOSUB7400
7240IFNOTFOUNDTHENRETURN
7245IFPEEK(INVENTORY+N)=0THENPRINT"BUTYOUDON'THAVEA";INPUT$:GOTO7260
7250CONDITION=1
7260TEMP$=""
7270RETURN
7400REMFINDITEMANDITEMNUMBER/////
7410N=0
7420FOUND=0
7430TRAP7490
7440RESTORE
7450READTEMP$
7460N=N+1
7470IFTEMP$=INPUT$THENFOUND=1:GOTO7490
7480GOTO7450
7490TRAP0:RETURN
7600REMWORKGOTO/////
7610NODE$=INPUT$(6)
7620GOTO1000
7800REMMAKESOUND/////
7805LETSOUND=VAL(INPUT$)
7810IFSOUND<>1THEN7820
7813REMEXPLOTION/////
7814FORN=200TO0STEP-10
7815SOUND0,100,0,N/13.333
7816SOUND1,30,4,N/13.333
7817SOUND2,230-N,8,N/13.333
7818FORNN=202TONSTEP-10
7819NEXTNN:NEXTN
7820IFSOUND<>2THEN7830:REMFALL///
7821FORN=0TO200
7822SOUND0,N,10,15
7823NEXTN
7824SOUND0,0,0,0
7830REMCHIRPUP/////
7831IFSOUND<>3THENGOTO7840
7832FORN=30TO15STEP-1
7833SOUND0,N,10,15
7834NEXTN
7835SOUND0,0,0,0
7840REMCHIRPDOWN/////
7841IFSOUND<>4THEN7850
7842FORN=15TO45
7843SOUNDO,N,14,8
7844NEXTN
7845FORN=1TO30:NEXTN
7846SOUND0,0,0,0
7850REMPOPPING/////
7851IFSOUND<>5THEN7990
7854FORN=1TO30
7855SOUND0,100,0,8
7856SOUND1,30,4,8
7857SOUND2,200,8,8
7859SOUND0,0,0,0
7860SOUND1,0,0,0
7861SOUND2,0,0,0
7862FORNN=1TO1+RND(0)*5:NEXTNN
7863NEXTN
7990TEMP$="":RETURN
8000REMWORKLIST/////
8010TRAP8190
8020CLOSE#1
8030IFLEN(INPUT$)<5THENLETINPUT$=NODE$:GOTO8050
8035LETINPUT$=INPUT$(5)
8040IFINPUT$(1,1)=""THENLETINPUT$=INPUT$(2):GOTO8040
8050PRINT"THISISFILE";INPUT$
8060FILE$="D:"
8070FILE$(3)=INPUT$
8080OPEN#1,4,0,FILE$
8090INPUT#1,INPUT$
8100PRINTINPUT$
8110IFINPUT$="**"THEN8190
8120IFINPUT$<>"*"THEN8090
8130PRINT:PRINT"PRESSRETURNTOCONTINUE";:INPUTTEMP$
8140GOTO8090
8190CLOSE#1
8192TRAP0
8194TEMP$=""
9196GOTO2000
9200GRAPHICS2+16
9202PRINT#6:PRINT#6
9204PRINT#6;""
9210PRINT#6;""
9220PRINT#6;"YOUHAVEMADE"
9230PRINT#6;"ITOUT!"
9232PRINT#6;""
9233PRINT#6;""
9234PRINT#6;""
9240GOTO9240
30500IFPEEK(1536)=1THENPOKE766,PEEK(106)+1:RETURN
30505P=PEEK(106):DIMF$(20):F$="D:ADVENTUR.FNT"
30510A=P*256:C=255-PEEK(A):POKEA,C:IFPEEK(A)=CTHENPOKEA,255-C:P=P+1:GOTO30510
30520P=P-5:IFP<PEEK(106)THENPOKE106,P:GRAPHICS0
30530P=P+1:A=P*256
30540IFPEEK(756)<>PTHEN30600
30550I=LEN(F$):J=A-I-1
30560FORT=ITO1STEP-1
30570C=ASC(F$(T)):IFPEEK(J+T)<>CTHEN30600
30580IFC=ASC(":")THEN30700
30590NEXTT:GOTO30700
30600TRAP30610:OPEN#1,4,0,F$:GOTO30630
30610IFPEEK(195)=130ANDF$(1,1)="D"THENPRINT"PUTTAPEWITH";F$;"INTOCASSETTE.":F$(1,1)="C":GOTO30600
30620PRINT"CAN'TFIND";F$;".":END
30630TRAP30650:PRINT"LOADING";F$:C=ASC("X"):POKE752,1
30640FORI=0TO1023:GET#1,J:POKEA+I,J:PRINTCHR$(C);"";:C=107-C:NEXTI:CLOSE#1:GOTO30660
30650GRAPHICS0:PRINT"CAN'TLOADCOMPLETEFONT.":POKEA-1,0:END
30660I=LEN(F$):J=A-I-1
30670FORT=ITO1STEP-1
30680C=ASC(F$(T)):POKEJ+T,C:IFC=ASC(":")THEN30700
30690NEXTT
30695POKE1536,1
30700POKE756,P:RETURN	

• Download link 1

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