1 IFPEEK(52016)<>32ORPEEK(52040)<>245THENLOAD"LINPUT.PR",8,1 2 REM SMURK 3 REM BY DANIEL TOBIAS 4 REM C64 VERSION 1.1 5 REM 6/15/84 7 NA$="SMURK" 8 POKE 53280,5:POKE53281,1:PRINT"[144]" 10 PRINT"":LI=52016 15 DIM LV%(100,8),LD$(100,1),ID$(50),IL%(50),SC%(50),IW(50),L%(100) 17 DIM WD$(100),W%(100,1),FW%(2) 18 DIMFB%(50),RE%(50) 20 GOSUB 18000:GOSUB 19000 60 PRINT"[147]" 100 REM START 108 XX=1 110 IFSC%>=1000THENPRINT"[217]OU WIN!":GOTO1500 115 IFXX=1THENGOSUB1000 120 GOSUB500 125 XX=XX+1:IFXX>5THENXX=1 130 IFFW%(0)=0THENPRINT"[215]HAT?":GOTO110 140 ONFW%(0)GOSUB2000,3000,4000,5000,5500,6000,7000,8000,9000,9500 142 IFFW%(0)>10THENONFW%(0)-10GOSUB13000,13500,14500,15000,15500,16000,16500 143 IFFW%(0)=18THENGOSUB10000 144 IFFW%(0)=19THENGOSUB17000 145 IFFW%(0)=99THEN1500 150 T=T+1 160 GOTO110 200 REM CONVERT TO LOWER CASE 220 FOR IP=1TOLEN(I$) 230 CH$=MID$(I$,IP,1) 240 IFCH$>="[193]"ANDCH$<="[218]"THENI$=LEFT$(I$,IP-1)+CHR$(ASC(CH$)-128)+MID$(I$,IP+1) 245 IFCH$=CHR$(160)THENI$=LEFT$(I$,IP-1)+" "+MID$(I$,IP+1) 250 IFCH$<"A"THENI$=LEFT$(I$,IP-1)+" "+MID$(I$,IP+1) 260 NEXT IP 270 RETURN 330 GOTO63000 500 REM HANDLE INPUT 505 FW%(0)=0:FW%(1)=0 506 FW%(2)=0 510 PRINT"-->";:SYSLI,B$:I$=B$+"":PRINT 515 IF I$="" THEN 510 518 GOSUB 200 520 WD$="":A=1 530 IF MID$(I$,A,1)=" " THEN 600 540 WD$=WD$+MID$(I$,A,1) 550 A=A+1:IFA<=LEN(I$)THEN530 600 REM FOUND WORD 610 FORB=1TONW:IFWD$(B)=WD$THENGOSUB643 620 NEXTB:WD$="":A=A+1 630 IFA>LEN(I$)THENRETURN 640 GOTO530 643 IFW%(B,1)>100ANDFW%(1)<>0THENRETURN 646 IFW%(B,1)>100ANDFW%(0)=0THENFW%(0)=1 650 FORC=0TO1 655 IFC=1ANDFW%(C)>0AND(W%(B,C)=2ORW%(B,C)=23ORW%(B,C)=21)THEN700 660 IFW%(B,C)>=0THENFW%(C)=W%(B,C) 670 NEXTC 680 RETURN 700 FW%(2)=W%(B,C):GOTO670 1000 REM PRINT DESCRIPTION 1005 PRINT 1006 IFL=11ORL=38THEN1010 1007 IFL>5ANDLO%=0THENPRINT"[144][201]T IS TOO DARK TO SEE.":RETURN 1008 IFL>5THENI=1:GOSUB11000:IFR=0THENPRINT"[144][201]T IS TOO DARK TO SEE.":RETURN 1010 PRINTLD$(L,L%(L)) 1014 PRINT 1015 L%(L)=1 1020 PRINT"[207]PEN PATHWAYS: ";:FORA=1TO8:IFLV%(L,A)<>0THENPRINTDN$(A)" "; 1025 NEXTA 1030 PRINT 1040 PRINT"[214]ISIBLE OBJECTS:" 1045 X=0 1050 FORA=1TONI 1055 IFA=2ANDIL%(A)=LTHENGOSUB5600:GOTO1070 1057 IFA=23ANDIL%(A)=LTHENGOSUB5700:GOTO1070 1060 IF IL%(A)=LTHENPRINT" "ID$(A):X=1 1070 NEXTA 1080 IFX=0THENPRINT"[212]HERE ARE NONE." 1100 IFL=11ANDT%=0THENPRINT"[212]HERE IS A FEROCIOUS TIGER HERE!" 1110 IFL=11ANDT%<>0THENPRINT"[193] CONTENTED-LOOKING TIGER DOZES HERE." 1120 IFL=38ANDSM%=0THENPRINT"[212]HE [211]MURK IS HERE!" 1130 IFL=38ANDSM%<>0THENPRINT"[212]HE DEAD BODY OF THE [211]MURK LIES HERE." 1480 PRINT 1490 RETURN 1500 REM END 1505 PRINT"[144]" 1510 PRINT:PRINT"[211]TOP AFTER"T"TURNS.":PRINT"[198]INAL SCORE:"SC%"OUT OF 1000.":PRINT 1520 FORLS=1TO2000:NEXTLS:GOTO63000 2000 REM MOVE 2005 IFFW%(1)<101ORFW%(1)>108THENPRINT"[199]O WHERE?":RETURN 2010 X=LV%(L,FW%(1)-100) 2020 IFX<0ORX>NLTHENPRINT"[206]OT DEFINED YET.":RETURN 2030 IFX=0THENPRINT"[217]OU CAN'T GO THAT WAY.":RETURN 2040 IFL=3ANDX=3THENIFRND(0)<.37THENX=2 2045 A=0 2050 IFX=38THENI=7:GOSUB11000:IFR>1THENA=100 2055 IFA=100THENPRINT"[212]HE [211]MURK SEES THE POISON AND SAYS:" 2056 IFA=100THENPRINT"[212]RYING TO POISON ME, HUH? [201] WILL KILL" 2057 IFA=100THENPRINT"YOU FOR THAT! [200]E POINTS AT YOU, AND YOUCOLLAPSE INTO ASHES." 2060 IFA=100THEN1500 2200 L=X:XX=1:RETURN 3000 REM PICK UP 3005 I=FW%(1) 3007 IFI=51ORI=52THENPRINT"[196]ON'T BE RIDICULOUS!":RETURN 3010 IFI=21AND(L=39ORL=40)THEN13500 3020 IFI=4ANDL=17THEN13500 3030 IFI<1ORI>NITHENPRINT"[206]O SUCH THING HERE.":RETURN 3040 IFIL%(I)=-2ANDRE%(I)=2THENI=2 3045 GOSUB11000:IFR=0THENPRINT"[206]O SUCH THING HERE.":RETURN 3050 IFIL%(I)=-3ANDMX%>1ANDRE%(I)>0THENPRINT"[201]T CANNOT BE SEPARATED FROM THE OTHER" 3055 IFIL%(I)=-3ANDMX%>1ANDRE%(I)>0THENPRINT"STUFF IN THE BOWL.":RETURN 3060 IFR=2THENPRINT"[217]OU'RE ALREADY CARRYING IT.":RETURN 3080 GOSUB3500:IFRTTHENRETURN 3095 IFRE%(I)=2THEN3300 3097 IFIL%(I)=-3ANDRE%(I)>0THENMX%=MX%-1 3100 IL%(I)=0 3110 PRINT"[207][203]." 3140 RETURN 3300 REM INTO BOTTLE 3310 IFIL%(2)<>0THENPRINT"[217]OU NEED A BOTTLE.":RETURN 3320 B=1 3330 IFIL%(B)=-2THENPRINT"[212]HE BOTTLE IS FULL.":RETURN 3340 B=B+1:IFB<=NITHEN3330 3350 IL%(I)=-2:GOTO3110 3500 REM PICKUP CONDITIONS 3505 RT=0 3510 IFIW(I)<0THENPRINT"[201]T IS SECURELY FASTENED.":RT=1:RETURN 3520 IFL=38ANDI=13ANDSM%=0THENPRINT"[212]HE [211]MURK WON'T LET YOU!":RT=1:RETURN 3530 IFL=11ANDFW%(1)=19ANDT%=0THENPRINT"[212]HE TIGER IS IN THE WAY!":RT=1:RETURN 3540 IFI=8THENPRINT"[212]HE GHOUL WON'T LET YOU!":RT=1:RETURN 3580 IFSC%(I)>0THENSC%=SC%+SC%(I)/2:SC%(I)=-SC%(I) 3585 IFSC%(I)<0ANDL=1THENSC%=SC%-SC%(FW%(1))/-2 3590 RETURN 4000 REM DROP 4005 I=FW%(1) 4010 IFI<1ORI>NITHENPRINT"[217]OU ARE NOT CARRYING IT.":RETURN 4012 IFI=7ANDL=40THEN4020 4015 IFIL%(I)=-2ANDRE%(I)=2THENI=2 4020 GOSUB11000 4024 IFIL%(I)=-3ANDRE%(I)>0ANDMX%>1THEN4100 4030 IFR<2THENPRINT"[217]OU ARE NOT CARRYING IT.":RETURN 4032 IFI=7ANDL=40THEN4150 4037 IFIL%(I)=-3ANDRE%(I)>0THENMX%=MX%-1 4040 IL%(I)=L 4050 PRINT"[207][203]." 4055 IFI=20ANDL=11THEN4200 4057 IFRE%(I)=2THENPRINT"[201]T SEEPS INTO THE GROUND AND IS LOST.":IL%(I)=-1:RETURN 4060 IFSC%(I)<0ANDL=1THENSC%=SC%+SC%(I)/-2 4070 RETURN 4100 PRINT"[201]T CANNOT BE SEPARATED FROM THE OTHER STUFF IN THE BOWL.":RETURN 4150 PRINT"[201]T GOES INTO THE WATER. [211]OON YOU HEAR" 4160 PRINT"A DREADFUL SHRIEK COMING FROM THE WEST, FOLLOWED BY TOTAL SILENCE." 4170 SM%=1:IL%(7)=-1:SC%=SC%+400:RETURN 4200 PRINT"[212]HE TIGER GOBBLES IT UP AND CURLS INTO A CORNER, SLEEPING CONTENTFULLY." 4210 T%=1:IL%(I)=-1:SC%=SC%+100 4220 RETURN 5000 REM LOOK 5005 IFFW%(1)>0THEN8000 5010 XX=1 5020 L%(L)=0 5030 RETURN 5500 REM INV 5505 X=0 5510 PRINT "[217]OU ARE CARRYING:" 5520 FORA=1TONI 5525 IFA=2ANDIL%(A)=0THENGOSUB5600:GOTO5540 5527 IFA=23ANDIL%(A)=0THENGOSUB5700:GOTO5540 5530 IFIL%(A)=0THENPRINT" "ID$(A):X=1 5540 NEXTA 5550 IFX=0THENPRINT"[206]OTHING." 5560 RETURN 5600 REM BOTTLE 5605 X=1 5610 B=1 5620 IFIL%(B)=-2THEN5640 5630 B=B+1:IFB>NITHENPRINT" [194]OTTLE":RETURN 5635 GOTO5620 5640 PRINT" [194]OTTLE OF "ID$(B):RETURN 5700 REM BOWL 5705 X=1 5710 B=1 5720 IFIL%(B)=-3THEN5750 5730 B=B+1:IFB>NITHENPRINT" [194]OWL":RETURN 5740 GOTO5720 5750 PRINT" [194]OWL CONTAINING:" 5760 FORC=BTONI 5770 IFC=2ANDIL%(C)=-3THENPRINT" ";:GOSUB5600:GOTO5790 5780 IFIL%(C)=-3THENPRINT" "ID$(C) 5790 NEXTC:RETURN 6000 REM SAVE GAME 6010 PRINT"[197]NTER FILENAME. ([196]EFAULT: SMURK.SAVE)":INPUTF$ 6015 IFF$=""THENF$="SMURK.SAVE" 6017 OPEN15,8,15:PRINT#15,"S:"F$:CLOSE15 6020 OPEN2,8,2,F$+",S,W" 6040 PRINT#2,L:FORB=1TONI:PRINT#2,IL%(B):NEXTB:PRINT#2,T 6045 PRINT#2,SC%:PRINT#2,SM%:PRINT#2,T% 6060 FORB=1TONI:PRINT#2,SC%(B):NEXTB 6070 PRINT#2,LO%:PRINT#2,MX%:PRINT#2,PN% 6090 CLOSE2 6100 PRINT "[207][203].":RETURN 6500 REM LOAD GAME 6510 PRINT"[197]NTER FILENAME. ([196]EFAULT: SMURK.SAVE)":INPUTF$ 6515 IFF$=""THENF$="SMURK.SAVE" 6520 OPEN15,8,15 6530 OPEN2,8,2,F$+",S,R" 6540 GOSUB 6900 6550 INPUT#2,L:FORB=1TONI:INPUT#2,IL%(B):NEXTB:INPUT#2,T 6560 INPUT#2,SC%:INPUT#2,SM%:INPUT#2,T% 6565 FORB=1TONI:INPUT#2,SC%(B):NEXTB 6570 INPUT#2,LO%:INPUT#2,MX% 6580 INPUT#2,PN% 6590 CLOSE2:CLOSE15 6600 RETURN 6900 INPUT#15,A$,B$,C$,D$ 6910 IFVAL(A$)>0THENPRINT"[199]AME NOT FOUND.":FORA=1TO100:NEXTA:RUN 6920 RETURN 7000 REM MIX 7003 IFIL%(18)<>0ANDIL%(18)<>LTHENPRINT"[217]OU HAVE NOTHING TO STIR WITH.":RETURN 7005 IFIL%(23)<>0ANDIL%(23)<>LTHENPRINT"[217]OU HAVE NO MIXING BOWL.":RETURN 7007 IFIL%(28)=-3THENIL%(28)=IL%(4):IL%(4)=-3 7010 X=0 7020 FORA=3TO6:IFIL%(A)<>-3THENX=1 7030 NEXTA:IFX<>0THEN7100 7040 IFIL%(19)<>-3THEN7100 7045 PRINT"[207][203]." 7050 PRINT"[217]OU HAVE A POISONOUS MIXTURE!" 7060 FORA=3TO6:IL%(A)=-1:NEXTA:IL%(19)=-1 7070 IL%(7)=-3 7080 RETURN 7100 REM 7110 PRINT"[206]OTHING INTERESTING IS PRODUCED.":RETURN 8000 REM READ/EXAMINE 8002 IFFW%(1)<1ORFW%(1)>NITHENPRINT"[206]O SUCH THING HERE.":RETURN 8005 I=FW%(1):GOSUB11000:IFR=0THENPRINT"[206]O SUCH THING HERE.":RETURN 8010 IFFW%(1)=15THENI=16:GOSUB11000:IFR=0THEN8500 8020 IFFW%(1)=15THEN8550 8030 IFFW%(1)=16THENPRINT"[201]T GIVES THE [197]NGLISH TRANSLATIONS OF" 8040 IFFW%(1)=16THENPRINT"MANY [211]ANSKRIT WORDS, AND VICE VERSA.":RETURN 8490 PRINT"[212]HERE IS NOTHING INTERESTING ABOUT IT.":RETURN 8500 PRINT"[201]T IS IN [211]ANSKRIT, WHICH YOU DO NOT UNDERSTAND.":RETURN 8550 PRINT"[212]RANSLATING IT WITH THE DICTIONARY, YOU READ:" 8560 PRINT" [193][160][211]MURK IS NEARLY INVULNERABLE. [212]HE" 8570 PRINT"ONLY KNOWN WAY TO KILL ONE IS TO POUR" 8580 PRINT"POISON IN ITS WATER SUPPLY. [193] SUBSTANCE"; 8590 PRINT"POISONOUS TO A [211]MURK CAN BE PRODUCED USING THE FOLLOWING INGREDIENTS:" 8600 PRINT:PRINT" [212]IGER [204]ILIES":PRINT" [207]IL":PRINT" [214]INEGAR":PRINT" [194]ROCCOLI":PRINT" [205]AGIC [208]OWDER #"PN% 8610 PRINT:PRINT"[208]LACE ALL THESE TOGETHER IN A BOWL, AND MIX.":PRINT:RETURN 9000 REM POUR 9010 IFFW%(1)<1ORFW%(1)>NITHENPRINT"[206]O SUCH THING HERE.":RETURN 9020 I=FW%(1):GOSUB11000:IFR=0THENPRINT"[206]O SUCH THING HERE.":RETURN 9030 Z=0:X=L 9040 IFI<>2ANDI<>23ANDI<>0ANDIL%(I)<0THENZ=IL%(I) 9050 IFI=23THENZ=-3 9060 IFI=2THENZ=-2 9070 IFZ=0THENPRINT"[201] DON'T UNDERSTAND.":RETURN 9080 IFFW%(2)=0THEN9150 9085 IFFW%(2)=21AND(L=38ORL=40)THEN9150 9090 IFFW%(2)=23AND(IL%(23)<>LANDIL%(23)<>0)THENPRINT"[212]HERE IS NO BOWL HERE.":RETURN 9100 IFFW%(2)=23ANDZ=-3THENPRINT"[201]T IS ALREADY IN IT.":RETURN 9110 IFFW%(2)=2ANDZ=-2THENPRINT"[201]T IS ALREADY IN IT.":RETURN 9130 IFZ=-2ANDFW%(2)=23THENX=-3:GOTO9160 9140 IFZ=-3THENGOSUB9270:IFRT=1THENRETURN 9150 IFZ=-2AND(IL%(23)=LORIL%(23)=0)ANDFW%(2)=0THENGOSUB9400 9160 L1=1:L2=NI 9170 IFI<>2ANDI<>23THENL1=I:L2=I 9175 XI=0 9180 FORA=L1TOL2:IFIL%(A)<>ZTHEN9260 9190 IL%(A)=X:PRINTID$(A)": [207][203].":XI=1 9200 IFZ=-3ANDRE%(A)=1ANDMX%>1ANDL1=L2THEN9430 9205 IFX<>LTHEN9240 9210 IFA=20ANDL=11THENPRINT"[212]HE TIGER GOBBLES UP THE STEAK AND" 9215 IFA=20ANDL=11THENPRINT"CURLS IN A CORNER SLEEPING CONTENTFULLY."; 9217 IFA=20ANDL=11THENT%=1:IL%(A)=-1:SC%=SC%+100 9220 IFA=7ANDL=40THENPRINT"[201]T GOES INTO THE WATER. [211]OON YOU HEAR" 9223 IFA=7ANDL=40THENPRINT"A DREADFUL SHRIEK COMING FROM THE WEST," 9226 IFA=7ANDL=40THENPRINT"FOLLOWED BY TOTAL SILENCE.":SM%=1:IL%(A)=-1:SC%=SC%+400 9230 IFRE%(A)=2ANDIL%(A)=LTHENPRINT"[212]HE "ID$(A)" SEEPS INTO THE GROUND.":IL%(A)=-1 9240 IFSC%(A)<0ANDL=1THENSC%=SC%+SC%(A)/-2 9250 IFZ=-3ANDRE%(A)>0ANDIL%(A)<>ZTHENMX%=MX%-1 9260 NEXT:IFXI=0THENPRINT"[212]HERE IS NOTHING THERE TO POUR." 9265 RETURN 9270 REM 9275 RT=0 9280 J=I:I=2:GOSUB11000:I=J:IFR=0THENPRINT"[212]HERE IS NO BOTTLE HERE.":RT=1:RETURN 9290 NF=0 9300 A=0:FORB=1TONI:IFIL%(B)=-3THENA=A+1 9310 IFIL%(B)=-3ANDFB%(B)=0THENNF=1 9320 NEXTB:IFA>1THENPRINT"[217]OU CAN'T FIT ALL OF THAT IN THE BOTTLE.":RT=1:RETURN 9330 IFNF=1THENPRINT"[201]T WON'T FIT!":RT=1:RETURN 9340 X=-2:RETURN 9400 INPUT"[196]O YOU WANT TO POUR IT INTO THE BOWL ([217]/[206]) ";I$ 9410 IFLEFT$(I$,1)="[217]"ORLEFT$(I$,1)="Y"THENX=-3 9420 RETURN 9430 PRINT"[201]T CANNOT BE SEPARATED FROM THE OTHER STUFF IN THE BOWL." 9440 IL%(A)=Z:RETURN 9500 REM PUT 9510 IFFW%(1)<0ORFW%(1)>NITHENPRINT"[208]UT WHAT IN WHAT?":RETURN 9520 IFFW%(2)<0ORFW%(2)>NITHENPRINT"[208]UT WHAT IN WHAT?":RETURN 9530 IF(FW%(1)=4ANDL=17)OR(FW%(1)=21AND(L=38ORL=40))THENFW%(1)=FW%(2):GOTO13500 9540 I=FW%(2):GOSUB11000:IFR=0THENPRINT"[206]O SUCH THING HERE.":RETURN 9560 IFFW%(2)=23THEN9680 9565 IFFW%(2)=21AND(L=38ORL=40)THEN9000 9570 IFFW%(2)<>2THENPRINT"[201]T CANNOT BE DONE.":RETURN 9580 F=0:FORA=1TONI:IFIL%(A)=-2THENPRINT"[212]HE BOTTLE IS ALREADY FULL!":F=1 9590 NEXTA:IFF=1THENRETURN 9600 IFFW%(1)=2THENPRINT"[217]OU CAN'T PUT IT IN ITSELF!":RETURN 9610 I=FW%(1):X=IL%(I):GOSUB11000:IFR=0THENPRINT"[206]O SUCH THING HERE.":RETURN 9620 IFX=LTHENGOSUB3500 9630 IFX=-3ANDRE%(I)=0THENMX%=MX%-1 9660 PRINT"[207][203]." 9670 IL%(I)=-2:RETURN 9680 REM BOWL 9690 IFFW%(1)<1ORFW%(1)>NITHENPRINT"[206]O SUCH THING HERE.":RETURN 9700 I=FW%(1):IFIL%(I)=-3THENPRINT"[201]T IS ALREADY IN IT!":RETURN 9710 IFI=23THENPRINT"[217]OU CAN'T PUT IT IN ITSELF!":RETURN 9720 X=IL%(I):GOSUB11000:IFR=0THENPRINT"[206]O SUCH THING HERE.":RETURN 9730 IFX=LTHENGOSUB3500 9740 IFRE%(I)>0THENMX%=MX%+1 9750 PRINT"[207][203]." 9760 IL%(I)=-3 9770 IFIL%(22)<>-3ORIL%(3)<>-3THENRETURN 9780 PRINT"[212]HE STUFF IN THE BOWL FIZZLES...." 9785 PRINT"[195][207]2 IS RELEASED. [193] CHEMICAL REMAINS IN THE BOWL.":IL%(22)=-1 9790 IL%(3)=-1:IL%(27)=-3:MX%=MX%-1:RETURN 10000 REMON 10010 IFIL%(1)=0THEN10100 10020 IFIL%(1)=-3ANDIL%(23)=0THEN10100 10025 IFIL%(1)=LTHEN10100 10030 PRINT"[217]OU HAVE NO LAMP.":RETURN 10100 LO%=1:PRINT"[207][203].":XX=1:RETURN 11000 REM IS ITEM PRESENT? 11010 R=0 11020 IFIL%(I)=LTHENR=1 11030 IFIL%(I)=0THENR=2 11050 IFIL%(I)=-2ANDIL%(2)=LTHENR=1 11060 IFIL%(I)=-2ANDIL%(2)=0THENR=3 11070 IFIL%(I)=-3ANDIL%(23)=LTHENR=1 11080 IFIL%(I)=-3ANDIL%(23)=0THENR=3 11085 IFR=0ANDI=21THENI=29:GOTO11000 11087 IFR=0ANDI=4THENI=28:GOTO11000 11090 RETURN 13000 REM OFF 13010 IFIL%(1)=0THEN13100 13020 IFIL%(1)=-3ANDIL%(23)=0THEN13100 13030 PRINT"[217]OU HAVE NO LAMP.":RETURN 13100 LO%=0:PRINT"[207][203].":RETURN 13500 REM FILL 13510 X=-2 13520 IFFW%(1)=23THENX=-3 13525 I=2:IFX=-3THENI=23 13527 GOSUB11000:IFR=0THENPRINT"[212]HERE IS NOTHING TO FILL.":RETURN 13530 IFX=-3THEN13600 13540 A=0:FORB=1TONI:IFIL%(B)=XTHENA=1 13550 NEXTB:IFA>0THENPRINT"[212]HE BOTTLE IS ALREADY FULL.":RETURN 13600 REM 13605 A=0 13610 IFL=17THENA=4 13620 IFL=38ORL=40THENA=21 13630 IFA=0THENPRINT"[206]OTHING TO FILL IT WITH.":RETURN 13640 IFIL%(A)=-1ORIL%(A)=XTHEN13660 13650 IFA=4THENA=28 13655 IFA=21THENA=29 13660 IL%(A)=X:PRINT"[207][203].":RETURN 14500 REM EAT 14510 IFFW%(1)<1ORFW%(1)>NITHENPRINT"[217]OU ARE NOT CARRYING IT.":RETURN 14511 IFRE%(FW%(1))=2THENPRINT"[217]OU HAVE TO DRINK IT.":RETURN 14520 I=FW%(1):GOSUB11000:IFR<2THENPRINT"[217]OU ARE NOT CARRYING IT.":RETURN 14530 IFIW(FW%(1))>2THENPRINT"[196]ON'T BE RIDICULOUS!":RETURN 14540 REM 14545 PRINT"[195]HOMP [195]HOMP [195]HOMP" 14560 PRINT"[207][203]." 14565 IL%(FW%(1))=-1 14570 RETURN 15000 REM SCORE 15010 PRINT"[217]OUR SCORE IS"SC%"OUT OF 1000.":RETURN 15500 REM ATTACK 15510 IFL<>38ANDL<>11THENPRINT"[206]OTHING TO ATTACK.":RETURN 15515 IFFW%(1)=0THEN15530 15520 IF(L=38ANDFW%(1)<>52)OR(L=11ANDFW%(1)<>51)THENPRINT"[193]TTACK WHAT?":RETURN 15530 IFL=38THENPRINT"[217]OUR ATTACK DOES NOT EVEN TICKLE THE" 15535 IFL=38THENPRINT"NEARLY INVULNERABLE [211]MURK. [194]ECAUSE YOU" 15536 IFL=38THENPRINT"DARE TO ATTACK HIM, HE POINTS AT YOU," 15537 IFL=38THENPRINT"AND YOU ARE TURNED INTO A PILE OF ASHES." 15538 IFL=38THEN1500 15540 IFL=11THENPRINT"[212]HE TIGER ATTACKS YOU BACK FEROCIOUSLY, AND YOU ARE KILLED." 15550 GOTO1500 16000 REM DRINK 16010 IFFW%(1)<1ORFW%(1)>NITHENPRINT"[217]OU'RE NOT CARRYING IT.":RETURN 16011 IFRE%(FW%(1))<>2THENPRINT"[217]OU HAVE TO EAT IT.":RETURN 16020 I=FW%(1):GOSUB11000:IFR<2THENPRINT"[217]OU'RE NOT CARRYING IT.":RETURN 16030 IFIW(FW%(1))>2THENPRINT"[196]ON'T BE RIDICULOUS.":RETURN 16040 REM 16045 PRINT"[211]LURP [211]LURP [211]LURP" 16060 PRINT"[207][203]." 16065 IL%(I)=-1 16067 IFFW%(1)=7THENPRINT"[201]T IS POISON!!!":PRINT"[217]OU DROP DEAD.":GOTO1500 16070 RETURN 16500 REM HELP 16510 PRINT:PRINT"[211]OME AVAILABLE COMMANDS:" 16530 PRINT" [208][213][212][160](OBJECT) [201][206][160](CONTAINER)" 16540 PRINT" [198][201][204][204][160](CONTAINER)":PRINT" [197][205][208][212][217][160](CONTAINER)":PRINT" [193][212][212][193][195][203][160](CREATURE)" 16545 PRINT" [199][197][212][160](ITEM)":PRINT"[160][196][210][207][208][160](ITEM)":PRINT" [209][213][201][212]":PRINT"[160][201][206][214]":PRINT"[160][204][207][207][203]":PRINT"[160][211][195][207][210][197]":PRINT 16550 PRINT:RETURN 17000 REM RING BELL 17010 IFL<>41THENPRINT"[212]HERE IS NO SUCH THING HERE.":RETURN 17030 PRINT"[199]HOUL: [215]HICH MAGIC POWDER DO YOU WANT? ([207]RDER BY NUMBER, PLEASE.)" 17040 INPUTI$ 17050 IFVAL(I$)<>PN%THENPRINT"[199]HOUL: [211]ORRY, WE ARE SOLD OUT.":PRINT:RETURN 17060 I=17:GOSUB11000:IFR=0THENPRINT"[201]T WILL COST YOU TWO BAT'S WINGS." 17065 IFR=0THENPRINT"[195]OME BACK WHEN YOU CAN PAY.":RETURN 17070 IL%(17)=-1:IL%(6)=0:PRINT"[199]HOUL: [212]HAT'LL BE TWO BAT'S WINGS. [212]HANK YOU." 17080 PRINT"[200]E HANDS YOU THE POWDER, AND TAKES THE BAT.":RETURN 18000 REM OPENING TITLES 18010 PRINT "[147]" 18020 PRINT:PRINT:PRINT:PRINT:PRINT 18030 PRINT:PRINT:PRINT" ============ [211][205][213][210][203] ============" 18040 PRINT 18050 PRINT" [195]OMMODORE 64 [214]ERSION 1.1" 18060 PRINT:PRINT" [195]OPYRIGHT ([195]) 1984 BY [196]ANIEL [212]OBIAS" 18070 PRINT:INPUT" [201]NSTRUCTIONS ([217]/[206]) ";I$ 18080 IF LEFT$(I$,1)="[206]" OR LEFT$(I$,1)="N" THEN RETURN 18500 REM INSTRUCTIONS 18510 PRINT"[147]" 18520 PRINT"[201]N A CAVE WHERE ONLY THE BRAVEST OR THE" 18530 PRINT:PRINT"MOST FOOLISH DARE ENTER LIVES THE EVIL" 18550 PRINT:PRINT"AND FEARSOME [156][211]MURK[146][144]. [212]HIS HORRIBLE" 18560 PRINT:PRINT"CREATURE IS NEARLY INVULNERABLE, AND" 18570 PRINT:PRINT"CAN KILL SOMEBODY BY MERELY POINTING" 18580 PRINT:PRINT"AT HIM." 18585 PRINT:PRINT"[212]HERE ARE RUMORED TO BE GREAT TREASURES" 18586 PRINT:PRINT"IN THE CAVE, BUT NOBODY HAS YET LIVED":PRINT:PRINT"TO TAKE ANY OF THEM OUT." 18587 PRINT:PRINT"*** [200]IT RETURN TO CONTINUE ***";:SYSLI,B$:PRINT"[147]" 18590 PRINT"[217]OU EXPLORE THE CAVE USING SIMPLE" 18595 PRINT:PRINT"SENTENCES, IN THE STANDARD ADVENTURE" 18600 PRINT:PRINT"GAME FASHION, SUCH AS [193][212][212][193][195][203][160][211][205][213][210][203] OR" 18610 PRINT:PRINT"[210][197][193][196][160][194][207][207][203]. [211]ENTENCES OF THE FORM" 18620 PRINT:PRINT"[208][213][212][160][198][201][211][200][160][201][206][160][203][197][212][212][204][197] MAY ALSO BE USED." 18625 PRINT:PRINT"[208][207][213][210][160][203][197][212][212][204][197][160]WOULD SPILL THE CONTENTS" 18630 PRINT:PRINT"OF THE KETTLE ONTO THE GROUND." 18631 PRINT:PRINT"[211]UBSTITUTE REAL OBJECTS, AS THERE ARE" 18632 PRINT:PRINT"NO FISH OR KETTLES IN THIS GAME." 18635 PRINT:PRINT"*** [200]IT RETURN TO CONTINUE. ***";:SYSLI,B$:PRINT"[147]" 18640 PRINT"[212]HE MAIN OBJECT OF THIS GAME IS TO KILL" 18650 PRINT:PRINT"THE [211]MURK. [193]LSO, YOU SHOULD TRY TO" 18660 PRINT:PRINT"GET ALL OF THE TREASURE. [217]OU ARE" 18670 PRINT:PRINT"GIVEN POINTS OUT OF A MAXIMUM OF 1000" 18672 PRINT:PRINT"AS YOU PROGRESS TOWARDS THESE" 18674 PRINT:PRINT"OBJECTIVES. [217]OU GET HALF OF THE POINTS" 18675 PRINT:PRINT"FOR A TREASURE WHEN YOU FIRST PICK IT" 18676 PRINT:PRINT"AND THE OTHER HALF WHEN IT IS PLACED" 18677 PRINT:PRINT"IN THE TENT, WHICH IS YOUR BASE." 18678 PRINT:PRINT"[212]O FIND OUT YOUR SCORE, YOU CAN TYPE":PRINT:PRINT"[211][195][207][210][197]." 18680 PRINT:PRINT"*** [200]IT RETURN TO CONTINUE ***";:SYSLI,B$:PRINT"[147]" 18681 PRINT"[199][207][160][206][207][210][212][200][160]MAY BE ABREVIATED [206], AND THE" 18682 PRINT:PRINT"SAME CAN BE DONE WITH THE OTHER COMPASS" 18683 PRINT:PRINT"DIRECTIONS.":PRINT:PRINT"[208]LEASE NOTE THAT PASSAGES TWIST, AND" 18684 PRINT:PRINT"IF YOU GET SOMEWHERE BY GOING NORTH," 18685 PRINT:PRINT"THAT DOES NOT GUARANTEE THAT YOU CAN" 18686 PRINT:PRINT"RETURN BY GOING SOUTH." 18688 PRINT:PRINT"*** [200]IT RETURN TO CONTINUE. ***";:SYSLI,B$:PRINT"[147]" 18690 PRINT:PRINT"[211]OME UTILITY COMMANDS:" 18700 PRINT" [209][213][201][212] EXITS GAME":PRINT" [211][193][214][197] SAVES GAME IN PROGRESS TO DISK." 18710 PRINT:PRINT"*** [200]IT RETURN TO START. ***";:SYSLI,B$:PRINT"[147]":RETURN 18999 RETURN 19000 REM INITIALIZE 19002 PRINT"[147][208]LEASE WAIT. [201]NITIALIZING DATA." 19005 FORA=1TO8:READDN$(A):NEXTA 19020 GOSUB19200 19030 FORA=1TONL:FORB=1TO8:READLV%(A,B):NEXTB,A 19040 FORA=1TONL:L%(A)=0:NEXTA 19050 A=1 19060 READID$(A),IL%(A),IW(A),SC%(A):IFIL%(A)<>-999THENA=A+1:GOTO19060 19065 NI=A-1 19067 FORA=1TONI:READFB%(A),RE%(A):NEXTA 19070 A=1 19075 READWD$(A),W%(A,0),W%(A,1):IFWD$(A)<>""THENA=A+1:GOTO19075 19080 NW=A-1 19085 L=1:T=1 19090 PRINT "[147]":INPUT"[204]OAD GAME FROM DISK ([217]/[206]) ";I$ 19094 PN%=10+INT(RND(0)*90) 19100 IFLEFT$(I$,1)="[217]"ORLEFT$(I$,1)="Y"THENGOSUB6500 19120 RETURN 19200 A=1 19205 LD$(A,0)="" 19210 READI$ 19213 IFI$=""THENREADI$:NL=A-1:RETURN 19216 IFLEFT$(I$,1)="&"THENGOSUB19300:GOTO19205 19220 LD$(A,0)=LD$(A,0)+I$ 19230 IFRIGHT$(I$,1)<>"+"THENREADLD$(A,1):A=A+1:GOTO19205 19240 LD$(A,0)=LEFT$(LD$(A,0),LEN(LD$(A,0))-1):GOTO19210 19300 REM REPEATS 19310 NU=VAL(MID$(I$,2)) 19330 FORAA=ATOA+(NU-1):LD$(AA,0)=LD$(A-1,0):LD$(AA,1)=LD$(A-1,1):NEXT 19340 A=AA:RETURN 20000 REM DATA 20005 DATA"[206][160]","[211] ","[197] ","[215] ","[213] ","[196] ","[201][206] ","[207][213][212]" 20030 REM DESCRIPTIONS 20040 DATA"[144][217]OU ARE IN A TENT.","[144][217]OU'RE IN TENT." 20050 DATA"[217]OU ARE ON A PATH HEADING EAST. [193] TENT IS NEARBY." 20055 DATA"[217]OU'RE ON PATH BY TENT." 20060 DATA"[217]OU ARE SOMEWHERE IN THE WOODS.","[217]OU ARE SOMEWHERE IN THE WOODS." 20070 DATA"[217]OU ARE IN FRONT OF A CAVE.","[217]OU'RE BY CAVE." 20080 DATA"[217]OU ARE IN THE ENTRANCE TO THE CAVE.","[217]OU'RE IN CAVE ENTRANCE." 20090 DATA"[217]OU ARE IN A PASSAGEWAY LINED WITH +" 20093 DATA"SHELVES. [212]HIS SEEMS TO BE A PANTRY FOR WHOEVER LIVES IN THE CAVE." 20096 DATA"[217]OU'RE IN PANTRY." 20100 DATA"[217]OU ARE IN A SMALL CIRCULAR ROOM.","[217]OU'RE IN RUBY ROOM." 20110 DATA"[144][217]OU ARE AT A FORK IN THE PASSAGEWAY. +" 20113 DATA"[217]OU CAN SEE A SLIGHT GLIMMER OF LIGHT DOWN THE EAST FORK." 20116 DATA"[144][217]OU'RE AT FORK." 20120 DATA"[144][212]HE PASSAGEWAY CURVES TO THE NORTH. [160] [217]OU ARE IN A NARROW PASSAGE." 20125 DATA"[144][217]OU'RE IN NARROW PASSAGE." 20130 DATA"[144][217]OU COME TO A SMALL COAL-BLACK ROOM. [212]HE PASSAGE ENDS HERE." 20135 DATA"[144][217]OU'RE IN DIAMOND ROOM." 20140 DATA"[212]HE PASSAGEWAY ENDS AT A MEDIUM-SIZED +" 20143 DATA"CHAMBER. [193] CRACK IN THE CEILING LETS INA BEAM OF SUNLIGHT." 20146 DATA"[217]OU'RE IN TIGER ROOM." 20150 DATA"[144][217]OU ARE IN A [206]-[211] PASSAGEWAY.","[144][217]OU'RE IN [206]-[211] PASSAGEWAY." 20160 DATA"[156][217]OU ARE IN AN ENORMOUS CHAMBER THAT +" 20163 DATA"STRETCHES OUT OF SIGHT TO THE SOUTH." 20166 DATA"[156][217]OU'RE AT NORTH END OF WEST CHAMBER." 20170 DATA"[156][217]OU ARE AT THE CENTER OF THE CHAMBER." 20175 DATA"[156][217]OU'RE AT CENTER OF WEST CHAMBER." 20177 DATA"[156][217]OU ARE IN A CHAMBER STRETCHING OUT OF SIGHT TO THE NORTH." 20178 DATA"[156][217]OU'RE AT SOUTH END OF WEST CHAMBER." 20180 DATA"[217]OU ARE IN A LARGE CAVERN STRETCHING AS +" 20183 DATA"FAR AS THE EYE CAN SEE TO THE SOUTH." 20186 DATA"[217]OU'RE AT NORTH END OF EAST CHAMBER." 20190 DATA"[217]OU ARE AT THE CENTER OF THE CHAMBER. [212]HERE IS A POOL OF OIL HERE." 20195 DATA"[217]OU'RE AT POOL OF OIL." 20200 DATA"[217]OU ARE IN A LARGE CAVERN STRETCHING +" 20201 DATA"FURTHER TO THE NORTH THAN YOU CAN SEE." 20202 DATA"[217]OU'RE AT SOUTH END OF EAST CHAMBER." 20203 DATA"[217]OU ARE IN A SMALL ROOM. [193] SMALL HOLE EXITS TO THE NORTH." 20204 DATA"[217]OU'RE IN SMALL ROOM." 20205 DATA"[217]OU'RE IN A MAZE.","[217]OU'RE IN A MAZE.","&9" 20207 DATA"[156][217]OU ARE AT A DEAD END.","[156][217]OU'RE AT DEAD END." 20210 DATA"[144][217]OU ARE AT A VAST STAIRWAY HEADING BOTH +" 20213 DATA"UP AND DOWN. [212]HERE ARE PASSAGEWAYS IN ALL DIRECTIONS." 20216 DATA"[144][217]OU'RE BY STAIRWAY." 20220 DATA"[156][217]OU ARE IN THE SOUTH SIDE CHAMBER.","[156][217]OU'RE IN SOUTH SIDE CHAMBER." 20230 DATA"[217]OU ARE IN THE EAST SIDE CHAMBER.","[217]OU'RE IN EAST SIDE CHAMBER." 20240 DATA"[217]OU ARE IN THE WEST SIDE CHAMBER.","[217]OU'RE IN WEST SIDE CHAMBER." 20250 DATA"[144][217]OU ARE AT THE TOP OF THE STAIRWAY. +" 20253 DATA"[212]HERE IS AN ENTRANCE TO A CHAMBER.","[144][217]OU'RE AT TOP OF STAIRWAY." 20260 DATA"[217]OU ARE IN A ROOM WITH A TABLE IN THE +" 20263 DATA"CENTER AND A LARGE ORNAMENTAL CHAIR FASTENED TO THE FLOOR." 20266 DATA"[217]OU'RE IN BOOK ROOM." 20270 DATA"[217]OU ARE AT THE ENTRANCE TO A CHAMBER +" 20273 DATA"WITH A CRIMSON GLOW FROM INSIDE. +" 20276 DATA"[211]TRANGE NOISES COME FROM WITHIN." 20278 DATA"[217]OU'RE AT BOTTOM OF STAIRS." 20280 DATA"[217]OU ARE IN THE [211]MURK'S CHAMBER! [212]HE[160] +" 20283 DATA"CHAMBER IS LIT BY AN EERIE CRIMSON GLOW.+" 20285 DATA"[193] STREAM FLOWS IN THROUGH A HOLE IN THE +" 20286 DATA"EAST WALL AND EXITS TO THE WEST.","[217]OU'RE IN THE [211]MURK'S CHAMBER!" 20287 DATA"[144][193] [206]-[211] PASSAGEWAY MEETS THE PASSAGEWAY COMING FROM THE WEST." 20288 DATA"[144][217]OU'RE AT INTERSECTION." 20290 DATA"[212]HE PASSAGEWAY AHEAD IS BLOCKED BY +" 20292 DATA"FALLEN ROCK. [193] STREAM RUNS IN THE EAST +" 20294 DATA"WALL AND OUT THE WEST WALL. [193]N EERIE +" 20296 DATA"CRIMSON GLOW CAN BE SEEN THROUGH THE HOLE IN THE WEST." 20298 DATA"[217]OU'RE BY STREAM." 20300 DATA"[217]OU'RE IN A STORE SELLING WITCHCRAFT +" 20302 DATA"SUPPLIES. [193] GHOUL IS BEHIND THE +" 20304 DATA"COUNTER. [193] SIGN READS: [193]LL MAGIC +" 20306 DATA"POWDERS 30% OFF! [193]NOTHER SIGN SAYS: [210]ING [194]ELL FOR [211]ERVICE." 20308 DATA"[217]OU'RE IN STORE." 20310 DATA"[144][217]OU'RE AT THE INTERSECTION OF AN [197]-[215] +" 20320 DATA"PASSAGEWAY AND ONE BRANCHING OFF TO THE NORTH." 20330 DATA"[144][217]OU'RE AT BRANCH IN PASSAGEWAY." 20990 DATA"","" 21000 REM MOVEMENT 21010 DATA0,0,0,0,0,0,0,2 21020 DATA3,3,4,3,0,0,1,0 21030 DATA3,3,3,3,0,0,0,0 21040 DATA3,3,0,2,0,0,5,0 21050 DATA7,6,42,0,0,0,0,4 21060 DATA5,13,0,0,0,0,0,0 21070 DATA0,0,0,0,0,0,0,5 21080 DATA0,42,11,9,0,0,0,0 21090 DATA10,8,0,0,0,0,0,0 21100 DATA0,0,0,0,0,0,0,9 21110 DATA0,0,0,0,0,0,0,8 21120 DATA42,16,0,0,0,0,0,0 21130 DATA6,14,0,0,0,0,0,0 21132 DATA13,15,0,0,0,0,0,0 21134 DATA14,0,18,19,0,0,0,0 21140 DATA0,17,12,0,0,0,0,0 21150 DATA16,18,0,0,0,0,0,0 21160 DATA17,0,31,15,0,0,0,0 21161 DATA20,0,15,0,0,0,0,0 21162 DATA21,22,23,19,24,25,0,0,28,25,20,22,26,24,0,0,27,26,23,22,20,21,0,0 21163 DATA22,27,20,26,28,24,0,0,21,26,23,27,25,20,0,0 21164 DATA26,20,24,21,27,27,0,0,24,22,25,21,27,23,0,0 21165 DATA24,26,22,23,25,25,0,0,21,23,29,21,23,29,0,0 21166 DATA28,30,30,28,28,28,0,0 21168 DATA29,0,0,0,0,0,0,0 21170 DATA18,32,33,34,35,37,0,0 21180 DATA0,0,0,0,0,0,0,31 21190 DATA0,0,0,0,0,0,0,31 21200 DATA0,0,0,0,0,0,0,31 21210 DATA0,0,0,0,0,31,36,0 21220 DATA0,0,0,0,0,0,0,35 21230 DATA0,0,39,0,31,0,38,0 21240 DATA0,0,0,0,0,0,0,37 21250 DATA40,41,0,37,0,0,0,0 21260 DATA0,39,0,0,0,0,0,0 21270 DATA0,0,0,0,0,0,0,39 21280 DATA8,0,12,5,0,0,0,0 23000 REM ITEMS 23010 DATA"[204]AMP",1,10,0 23020 DATA"[194]OTTLE",6,3,0 23030 DATA"[214]INEGAR",-2,.5,0 23040 DATA"[207]IL",-1,.5,0 23050 DATA"[194]ROCCOLI",6,.4,0 23060 DATA"[205]AGIC [208]OWDER",-1,.3,0 23070 DATA"[208]OISONOUS [205]IXTURE",-1,0,0 23080 DATA"[194]ELL",41,5,0 23090 DATA"[194]ARS OF [199]OLD",34,10,100 23100 DATA"[196]IAMONDS",10,5,100 23110 DATA"[210]UBIES",7,5,60 23120 DATA"[194]ARS OF [211]ILVER",42,50,40 23130 DATA"[197]MERALDS",38,9,120 23140 DATA"[210]ARE [195]OINS",33,0,80 23150 DATA"[194]OOK",36,5,0 23160 DATA"[197]NGLISH-[211]ANSKRIT [196]ICTIONARY",30,9,0 23170 DATA"[196]EAD [194]AT",14,0,0 23180 DATA"[215]OODEN [211]POON",12,9,0 23190 DATA"[212]IGER [204]ILIES",11,0,0 23200 DATA"[211]TEAK",6,0,0 23210 DATA"[215]ATER",-1,0,0 23220 DATA"[194]AKING [211]ODA",6,0,0 23230 DATA"[194]OWL",6,9,0 23240 DATA"[195]LUB",9,9,0 23250 DATA"[211]PADE",8,9,0 23260 DATA"[210]OCK",32,9,0 23270 DATA"[195]HEMICAL",-1,0,0 23280 DATA"[207]IL",-1,0,0 23290 DATA"[215]ATER",-1,0,0 23990 DATA"",-999,-999,-999 23991 DATA0,0 ,0,0 ,1,2 ,1,2 ,1,0 ,1,1 ,1,2 ,0,0 ,0,0 23992 DATA1,0 ,0,0 ,0,0 ,0,0 ,1,0 ,0,0 ,0,0 23993 DATA1,0 ,0,0 ,1,0 ,0,0 ,1,2 ,1,1 ,0,0 ,0,0 ,0,0 ,0,0 23994 DATA1,2 ,1,2 ,1,2 24000 REM WORDS 24010 DATAN,-1,101 24020 DATAS,-1,102 24030 DATAE,-1,103 24040 DATAW,-1,104 24050 DATAU,-1,105 24060 DATAD,-1,106 24070 DATAIN,-1,107 24080 DATAOUT,-1,108 24090 DATAGET,2,-1 24100 DATATAKE,2,-1 24110 DATAPICK,2,-1 24120 DATAGRAB,2,-1 24140 DATAGO,1,-1 24160 DATADROP,3,-1 24165 DATATHROW,3,-1 24170 DATALOOK,4,-1 24180 DATAINV,5,-1 24190 DATAQUIT,99,-1 24200 DATASAVE,6,-1 24240 DATAREAD,8,-1 24250 DATAEXAMINE,8,-1 24295 DATA6400,-1,4 24370 DATAEAT,13,-1 24380 DATABREAK,14,-1 24390 DATAESCAPE,14,-1 24450 DATAATTACK,15,-1 24455 DATAKILL,15,-1 24510 DATAHELP,17,-1 24515 DATAON,18,-1 24520 DATALAMP,-1,1 24530 DATABOTTLE,-1,2 24540 DATAVINEGAR,-1,3 24545 DATABROCCOLI,-1,5 24550 DATAOIL,-1,4 24555 DATAPOWDER,-1,6 24560 DATAPOISON,-1,7 24570 DATAMIXTURE,-1,7 24580 DATABELL,-1,8 24585 DATAMIX,7,-1 24587 DATASTIR,7,-1 24590 DATAPOUR,9,-1 24593 DATASPILL,9,-1 24595 DATAEMPTY,9,-1 24600 DATAPUT,10,-1 24605 DATAOFF,11,-1 24610 DATAFILL,12,-1 24615 DATAGOLD,-1,9 24620 DATADIAMONDS,-1,10 24630 DATARUBIES,-1,11 24635 DATASILVER,-1,12 24640 DATAEMERALDS,-1,13 24645 DATACOINS,-1,14 24650 DATABOOK,-1,15 24655 DATADICTIONARY,-1,16 24660 DATASCORE,14,-1 24665 DATABAT,-1,17 24670 DATASPOON,-1,18 24680 DATALILIES,-1,19 24690 DATASTEAK,-1,20 24695 DATAWATER,-1,21 24700 DATASODA,-1,22 24705 DATABOWL,-1,23 24710 DATACLUB,-1,24 24720 DATASPADE,-1,25 24730 DATAROCK,-1,26 24735 DATATIGER,-1,51 24740 DATASMURK,-1,52 24745 DATADRINK,16,-1 24750 DATACHEMICAL,-1,27 24755 DATARING,19,-1 24895 REM *****UNABBREVIATED: 24900 DATANORTH,-1,101 24905 DATASOUTH,-1,102 24910 DATAEAST,-1,103 24915 DATAWEST,-1,104 24920 DATAUP,-1,105 24925 DATADOWN,-1,106 24930 DATAINVENTORY,5,-1 24935 DATAENTER,-1,107 24940 DATAEXIT,-1,108 24950 DATALEAVE,-1,108 24990 DATA"",-999,-999 63000 PRINT"[147]" 63005 PRINT"LOAD"CHR$(34)"HELLO"CHR$(34)",8":PRINT"RUN" 63010 POKE631,13:POKE632,13:POKE198,2:END