Willus.com
Home
|
Archive
|
About
CASTADVN.BAS
(18898 bytes)
EMULATE AS:
DEFAULT TYPE (BASIC)
|
CMD program
|
Program on Disk
|
2-Disk Debug
|
Disk Download
SHOW BELOW AS:
BASIC program
(download)
|
Text File
(download)
|
Z-80 Program
(download)
|
EDTASM File
(download)
|
Graphic
(download)
|
Hex File
(download)
|
SCRIPSIT File
(download)
Return to TRS-80 software list.
5 CL$=CHR$(26):REM CLEAR SCREEN FUNCTION 10 PRINT CL$:FOR I=1 TO 5:PRINT:NEXT I 15 PRINT TAB(15);"Welcome to Castle Adventure":PRINT 20 PRINT:PRINT 30 REM FROM 'MICRO' NOVEMBER,1982 40 REM CONVERTED TO AIM65 BASIC R.J.M. 4/1/1983 50 PRINT "Reading Data Tables - Stand By........." 90 GOSUB 2350:TQ=0:TD=0 100 FOR X=1 TO NL:IF NV$(X,0)="GET" THEN TQ=X 110 IF NV$(X,0)="DRO" THEN TD=X 120 NEXT X 130 DIM L1%(NL),U1%(NL) 140 FOR X=0 TO NL:L1%(X)=CL:U1%(X)=0:NEXT X 150 FOR X=0 TO CL:V=INT(C0%(X)/150) 160 IF X>U1%(V) THEN U1%(V)=X 170 IF X<L1%(V) THEN L1%(V)=X 180 NEXT X 190 FOR X=0 TO NL:IF L1%(X)=CL AND U1%(X)=0 THEN U1%(X)=CL 200 NEXT X 210 PRINT CL$ 220 R=AR:LX=LT:DF=0:SF=0 370 GOSUB 660:GOTO 440 380 PRINT:INPUT "What do you want to do";TP$:PRINT:GOSUB 450 390 IF F THEN PRINT "You use word(s) I don't know!":GOTO 380 400 GOSUB 820:IF IA(9)=-1 THEN LX=LX-1:GOTO 420 410 GOTO 440 420 IF LX<0 THEN PRINT "Light has run out!":IA(9)=0:GOTO 440 430 IF LX<25 THEN PRINT "Light runs out in";LX;"turns!" 440 NV(0)=0:GOSUB 820:GOTO 380 450 IF LEN(TP$)>1 THEN 550 460 IF TP$="U" THEN TP$="GO UP":GOTO 550 470 IF TP$="D" THEN TP$="GO DOWN":GOTO 550 480 IF TP$="E" THEN TP$="GO EAST":GOTO 550 490 IF TP$="W" THEN TP$="GO WEST":GOTO 550 500 IF TP$="N" THEN TP$="GO NORTH":GOTO 550 510 IF TP$="S" THEN TP$="GO SOUTH":GOTO 550 520 IF TP$="I" THEN TP$="INVENTORY":GOTO 550 530 IF TP$="L" THEN TP$="LOOK":GOTO 550 540 IF TP$="H" THEN TP$="HELP" 550 K=0:NT$(0)="":NT$(1)="":AA=0 560 FOR X=1 TO LEN(TP$):K$=MID$(TP$,X,1):IF K$=" " THEN K=1:GOTO 580 570 NT$(K)=LEFT$(NT$(K)+K$,LN) 580 NEXT X:FOR X=0 TO 1:NV(X)=0:IF NT$(X)="" THEN 640 590 FOR Y=0 TO NL:K$=NV$(Y,X):IF LEFT$(K$,1)="*" THEN K$=MID$(K$,2) 600 IF X=1 AND Y<7 THEN K$=LEFT$(K$,LN) 610 IF NT$(X)=K$ THEN NV(X)=Y:GOTO 630 620 NEXT Y:GOTO 640 630 IF LEFT$(NV$(NV(X),X),1)="*" THEN NV(X)=NV(X)-1:GOTO 630 640 NEXT X:IF(NV(0)=TQ OR NV(0)=TD) AND NV(1)<1 THEN AA=1:F=0:RETURN 650 F=NV(0)<1 OR LEN(NT$(1))>0 AND NV(1)<1:RETURN 660 IF NOT DF OR IA(9)=-1 OR IA(9)=R THEN 670 662 PRINT "It is too dark to see!":RETURN 670 K=-1:IF LEFT$(RS$(R),1)="*" THEN PRINT MID$(RS$(R),2);:GOTO 690 680 PRINT "You are in ";RS$(R); 690 FOR Z=0 TO IL:IF NOT K OR IA(Z)<>R THEN 700 695 PRINT:PRINT "Visible items here:":K=0 700 GOTO 750 710 TP$=IA$(Z):IF RIGHT$(TP$,1)<>"/" THEN RETURN 720 FOR W=LEN(TP$)-1 TO 1 STEP -1 722 IF MID$(TP$,W,1)="/" THEN TP$=LEFT$(TP$,W-1):RETURN 730 NEXT W 740 RETURN 750 IF IA(Z)<>R THEN 780 760 GOSUB 710:IF POS(0)+LEN(TP$)+3>71 THEN PRINT 770 PRINT TP$;". "; 780 NEXT:PRINT 790 K=-1:FOR Z=0 TO 5 792 IF NOT K OR RM(R,Z)=0 THEN 800 794 PRINT:PRINT "Obvious exits:":K=0 800 IF RM(R,Z)<>0 THEN PRINT NV$(Z+1,1);" "; 810 NEXT:PRINT:PRINT:RETURN 820 F2=-1:F=-1:F3=0:IF NV(0)=1 AND NV(1)<7 THEN 1340 830 L2=L1%(NV(0)):U2=U1%(NV(0)) 840 IF NV(0)<>0 THEN 890 850 V=INT(RND(1)*100+1) 860 FOR X=L2 TO U2 870 IF V<=C0%(X) THEN 950 880 NEXT X:RETURN 890 IF AA=1 THEN GOSUB 1990:RETURN 900 N=NV(1)+150*NV(0):V=150*NV(0):F4=0 910 IF NV(0)=TQ OR NV(0)=TD THEN F2=0 920 FOR X=L2 TO U2 930 IF N=C0%(X) OR V=C0%(X) THEN 950 940 NEXT X:GOTO 1790 950 F4=1:F2=-1:F=0:F3=-1 952 FOR Y=1 TO 5:ON Y GOTO 960,970,980,990,1000 960 W=C1%(X):GOTO 1010 970 W=C2%(X):GOTO 1010 980 W=C3%(X):GOTO 1010 990 W=C4%(X):GOTO 1010 1000 W=C5%(X) 1010 LL=INT(W/20):K=W-LL*20:F1=-1 1020 ON K+1 GOTO 1210,1090,1110,1130,1150,1160 1022 ON K-5 GOTO 1170,1180,1190,1200,1050,1070 1030 IF K<12 THEN 1050 1040 ON K-11 GOTO 1100,1120,1140 1050 F1=-1:FOR Z=0 TO IL:IF IA(Z)=-1 THEN 1210 1060 NEXT:F1=0:GOTO 1210 1070 F1=0:FOR Z=0 TO IL:IF IA(Z)=-1 THEN 1210 1080 NEXT:F1=-1:GOTO 1210 1090 F1=IA(LL)=-1:GOTO 1210 1100 F1=IA(LL)<>-1 AND IA(LL)<>R:GOTO 1210 1110 F1=IA(LL)=R:GOTO 1210 1120 F1=IA(LL)<>0:GOTO 1210 1130 F1=IA(LL)=R OR IA(LL)=-1:GOTO 1210 1140 F1=IA(LL)=0:GOTO 1210 1150 F1=R=LL:GOTO 1210 1160 F1=IA(LL)<>R:GOTO 1210 1170 F1=IA(LL)<>-1:GOTO 1210 1180 F1=R<>LL:GOTO 1210 1190 F1=SF AND INT(2^LL+.5):F1=F1<>0:GOTO 1210 1200 F1=SF AND INT(2^LL+.5):F1=F1=0 1210 F2=F2 AND F1:IF F2 THEN NEXT Y:GOTO 1230 1220 NEXT X:GOTO 1790 1230 IP=0:FOR Y=1 TO 4 1232 K=INT((Y-1)/2+6):ON Y GOTO 1240,1250,1260,1270 1240 AC=INT(C6%(X)/150):GOTO 1280 1250 AC=C6%(X)-INT(C6%(X)/150)*150:GOTO 1280 1260 AC=INT(C7%(X)/150):GOTO 1280 1270 AC=C7%(X)-INT(C7%(X)/150)*150 1280 IF AC>101 THEN 1330 1290 IF AC=0 THEN 1760 1300 IF AC<52 THEN PRINT MS$(AC):GOTO 1760 1310 ON AC-51 GOTO 1440,1480,1490,1510,1520,1530 1312 ON AC-57 GOTO 1540,1510,1560,1580,1590 1320 ON AC-62 GOTO 1600,1620,1630,1680,1720 1322 ON AC-67 GOTO 1730,1740,1750,2190,1500 1330 PRINT MS$(AC-50):GOTO 1760 1340 L=DF:IF NOT L THEN 1350 1342 L=DF AND IA(9)<>R AND IA(9)<>-1:GOTO 1360 1350 GOTO 1370 1360 IF L THEN PRINT "Dangerous in the dark!" 1370 IF NV(1)<1 THEN PRINT "Give me a direction, too.":GOTO 1870 1380 K=RM(R,NV(1)-1) 1390 IF K>=1 THEN 1420 1400 IF NOT L THEN 1410 1402 PRINT "You fell down and broke your neck." 1404 K=RL:DF=0:GOTO 1420 1410 PRINT "You can't go in that direction!!":GOTO 1870 1420 IF NOT L THEN PRINT CL$ 1430 R=K:GOSUB 660:GOTO 1870 1440 L=0:FOR Z=1 TO IL:IF IA(Z)=-1 THEN L=L+1 1450 NEXT Z 1460 IF L>=MX THEN PRINT "You've too much already!!":GOTO 1770 1470 GOSUB 1880:IA(P)=-1:GOTO 1760 1480 GOSUB 1880:IA(P)=R:GOTO 1760 1490 GOSUB 1880:R=P:GOTO 1760 1500 GOSUB 1880:L=P:GOSUB 1880:Z=IA(P):IA(P)=IA(L):IA(L)=Z:GOTO 1760 1510 GOSUB 1880:IA(P)=0:GOTO 1760 1520 DF=-1:GOTO 1760 1530 DF=0:GOTO 1760 1540 GOSUB 1880 1550 SF=INT(.5+2^P) OR SF:GOTO 1760 1560 GOSUB 1880 1570 SF=SF AND NOT INT(.5+2^P):GOTO 1760 1580 PRINT "YOU'RE DEAD....":R=RL:DF=0:GOTO 1620 1590 GOSUB 1880:L=P:GOSUB 1880:IA(L)=P:GOTO 1760 1600 INPUT "This game is now over. Another game";K$ 1602 IF LEFT$(K$,1)="N" THEN END 1610 FOR X=0 TO IL:IA(X)=I2(X):NEXT:PRINT CL$:GOTO 220 1620 GOSUB 660:GOTO 1760 1630 L=0:FOR Z=1 TO IL 1632 IF IA(Z)=TR THEN IF LEFT$(IA$(Z),1)="*" THEN L=L+1 1640 NEXT Z:PRINT "You've stored";L;"treasures. On a scale" 1650 PRINT "of 0 to 100 that rates a";INT(L/TT*100) 1660 IF L=TT THEN PRINT "WELL DONE. ":GOTO 1600 1670 GOTO 1760 1680 PRINT "You have:":K$="NOTHING":FOR Z=0 TO IL 1682 IF IA(Z)<>-1 THEN 1710 1690 GOSUB 710:IF LEN(TP$)+POS(0)>71 THEN PRINT 1700 PRINT TP$;".",;:K$="" 1710 NEXT:PRINT K$:GOTO 1760 1720 P=0:GOTO 1550 1730 P=0:GOTO 1570 1740 LX=LT:IA(9)=-1:GOTO 1760 1750 PRINT CL$ 1760 NEXT Y 1770 IF NV(0)<>0 THEN 1790 1780 NEXT X 1790 IF NV(0)=0 THEN 1870 1800 IF NV(0)=TQ OR NV(0)=TD OR F4<>0 THEN 1810 1802 PRINT "I don't understand your command" 1810 IF F2 THEN 1870 1820 IF NV(0)=TQ OR NV(0)=TD OR F2 THEN 1830 1822 PRINT "Nothing happened.":RETURN 1830 IF NV(0)=TQ THEN GOSUB 1970 1840 IF NV(0)=TD THEN GOSUB 1970 1850 IF F=0 THEN 1870 1860 IF NOT F2 THEN PRINT "You can't do that yet." 1870 RETURN 1880 IP=IP+1 1890 ON IP GOTO 1900,1910,1920,1930,1940 1900 W=C1%(X):GOTO 1950 1910 W=C2%(X):GOTO 1950 1920 W=C3%(X):GOTO 1950 1930 W=C4%(X):GOTO 1950 1940 W=C5%(X) 1950 P=INT(W/20):M=W-P*20:IF M<>0 THEN 1880 1960 RETURN 1970 IF NV(0)=0 THEN 2180 1980 IF NV(1)=0 THEN PRINT "What?":GOTO 2110 1990 IF NV(0)<>TQ THEN 2020 2000 L=0:FOR Z=0 TO IL:IF IA(Z)=-1 THEN L=L+1 2010 NEXT:IF L>=MX THEN PRINT "You've too much already!":GOTO 2110 2020 K=0:FOR X=0 TO IL:IF RIGHT$(IA$(X),1)<>"/" THEN 2120 2030 LL=LEN(IA$(X))-3:TP$=MID$(IA$(X),LL,3) 2040 IF TP$<>NT$(1) THEN 2120 2050 IF NV(0)=TQ THEN 2080 2060 IF IA(X)<>-1 THEN K=1:GOTO 2120 2070 IA(X)=R:K=3:GOTO 2100 2080 IF IA(X)<>R THEN K=2:GOTO 2120 2090 IA(X)=-1:K=3 2100 PRINT "OK":PRINT 2110 F=0:RETURN 2120 NEXT X 2130 IF K=1 THEN PRINT "You do not have it!" 2140 IF K=2 THEN PRINT "I don't see it here." 2150 IF K<>0 OR NV(1)<>0 THEN 2160 2152 PRINT "It's beyond your power to do that.":F=0 2160 IF K=0 AND NV(1)<>0 THEN F=1 2170 IF K<>0 THEN F=0 2180 RETURN 2190 GOTO 1760 2350 READ TL$ 2360 READ IL,CL,NL,RL,MX,AR,TT,LN,LT,ML,TR 2370 CC=CL+3:NN=NL+12 2380 DIM NV(1),C0%(CC),C1%(CC),C2%(CC),C3%(CC),C4%(CC) 2382 DIM C5%(CC),C6%(CC),C7%(CC) 2390 DIM NV$(NN,1),IA$(IL),IA(IL),RS$(RL),RM(RL,5) 2392 DIM MS$(ML),NT$(1),I2(IL) 2400 FOR X=0 TO CL STEP 2:Y=X+1 2410 READ C0%(X),C1%(X),C2%(X),C3%(X),C4%(X),C5%(X),C6%(X),C7%(X) 2420 READ C0%(Y),C1%(Y),C2%(Y),C3%(Y),C4%(Y),C5%(Y),C6%(Y),C7%(Y) 2430 NEXT X 2440 FOR X=0 TO NL STEP 5 2450 READ NV$(X+0,0),NV$(X+0,1) 2460 READ NV$(X+1,0),NV$(X+1,1) 2470 READ NV$(X+2,0),NV$(X+2,1) 2480 READ NV$(X+3,0),NV$(X+3,1) 2490 READ NV$(X+4,0),NV$(X+4,1) 2500 NEXT X 2510 FOR X=0 TO RL 2512 READ RM(X,0),RM(X,1),RM(X,2),RM(X,3),RM(X,4),RM(X,5),RS$(X) 2520 NEXT X 2530 FOR X=0 TO ML:READ MS$(X):NEXT X 2540 FOR X=0 TO IL:READ IA$(X),IA(X):I2(X)=IA(X) 2550 NEXT X:MS$(69)=MS$(69)+" with your head!" 2552 RS$(30)=RS$(30)+" chasm":RS$(36)=RS$(36)+" chasm" 2554 RETURN 2560 DATA CASTLE,65,171,55,42,5,1,11,3,100,73,12 2570 DATA 5,281,280,0,0,0,6655,0,8,883,0,0,0,0,16076,0 2580 DATA 20,883,564,0,0,0,16108,16200,25,484,265,260,0,0,7983,0 2590 DATA 25,344,265,260,0,0,7983,0,40,902,1032,0,0,0,10613,9150 2600 DATA 40,224,262,280,20,200,6352,8754,50 2602 DATA 784,265,1165,260,0,7983,0 2610 DATA 50,584,905,900,0,0,8065,0,50,1183,0,0,0,0,17400,0 2620 DATA 50,264,322,0,0,0,10501,5761,100,264,134,120,140,0,10800,0 2630 DATA 100,124,0,0,0,0,8550,0,100,264,121,120,140,0,10800,0 2640 DATA 100,883,324,0,0,0,16162,0,100,28,660,200,20,0,9364,9960 2650 DATA 100,664,0,0,0,0,9813,0,100,264,181,180,40,0,10800,0 2660 DATA 100,883,624,0,0,0,16159,0,100,883,804,0,0,0,16160,0 2670 DATA 100,262,581,260,220,0,6812,0,150,281,0,0,0,0,1243,0 2680 DATA 161,224,722,620,0,0,8170,9600,161,824,1222,780,0,0,8170,9600 2690 DATA 161,1062,800,0,0,0,8170,9600,168,682,440,0,0,0,8170,9600 2700 DATA 170,44,60,0,0,0,8170,9600,170,24,60,0,0,0,8170,9600 2710 DATA 171,104,240,0,0,0,8170,9600,172,104,120,0,0,0,8170,9600 2720 DATA 172,124,140,0,0,0,8454,10564,173,284,260,0,0,0,8170,9600 2730 DATA 173,84,260,0,0,0,8170,9600,174,562,300,0,0,0,8170,9600 2740 DATA 174,662,304,280,660,280,8162,10564,174,662 2742 DATA 284,300,660,300,8162,10564 2750 DATA 174,662,224,200,660,200,8162,10564,174,761,0,0,0,0,1200,0 2760 DATA 174,662,204,220,660,220,8162,10564,174,63,0,0,0,0,4500,0 2770 DATA 176,462,800,0,0,0,8170,9600,177,204,0,0,0,0,5100,0 2780 DATA 179,204,0,0,0,0,5100,0,179,284,0,0,0,0,5100,0 2790 DATA 185,302,84,300,380,380,9354,10564 2792 DATA 185,302,384,300,80,80,9354,10564 2800 DATA 185,222,0,0,0,0,1200,0,193,842,560,0,0,0,8170,9600 2810 DATA 201,0,0,0,0,0,1200,0,1050,604,0,0,0,0,900,0 2820 DATA 1050,724,0,0,0,0,900,0,1050,280,0,0,0,0,7806,9900 2830 DATA 1200,262,0,0,0,0,3750,0,1200,281,0,0,0,0,1243,0 2840 DATA 1213,1162,1054,1040,0,0,7815,0,1215,0,0,0,0,0,9900,0 2850 DATA 1216,0,0,0,0,0,3323,0,1223,84,0,0,0,0,1211,0 2860 DATA 1224,662,660,60,0,0,8302,2250,1230,462,634,620,0,0,2452,0 2870 DATA 1230,484,442,440,460,600,10852,150,1242 2872 DATA 704,963,960,520,0,9402,0 2880 DATA 1246,544,880,0,0,0,7907,16200,1248,1062,1060 2882 DATA 1080,1000,0,10852,17100 2890 DATA 1249,0,0,0,0,0,10618,9150,1818,682,141,0,0,0,4650,0 2900 DATA 1808,43,141,0,0,0,1231,0,1808,43,132,0,0,0,1246,0 2910 DATA 1808,43,123,40,180,0,4872,10350,1810,183,40,180,0,0,2322,0 2920 DATA 1818,682,132,0,0,0,1246,0,1818,682,121,680,700,0,10870,9620 2930 DATA 1800,0,0,0,0,0,3600,0,2428,84,381,400,320,380,10855,2250 2940 DATA 2437,281,0,0,0,0,3324,3450,2439,503,500,0,0,0,8373,1800 2950 DATA 3174,204,61,60,660,0,4405,7950,3174,63,724,60,0,0,8352,15450 2960 DATA 3174,284,61,60,660,0,4405,7950,3174,63,604,60,0,0,8352,15450 2970 DATA 3174,63,60,0,0,0,2303,0,3178,84,381,400,320,380,10855,2250 2980 DATA 3181,526,0,0,0,0,1350,0,3181,521,265,520,0,0,2303,0 2990 DATA 3181,521,262,520,0,0,18053,0,3191,983,724,980,0,0,8352,15450 3000 DATA 3191,604,920,0,0,0,8352,15450,3300,0,0,0,0,0,9813,0 3010 DATA 3499,0,0,0,0,0,17550,0,3462,0,0,0,0,0,9750,0 3020 DATA 3468,0,0,0,0,0,764,0,3469,0,0,0,0,0,763,0 3030 DATA 3471,0,0,0,0,0,764,0,3472,0,0,0,0,0,764,0 3040 DATA 3476,0,0,0,0,0,764,0,3480,0,0,0,0,0,871,0 3050 DATA 3484,0,0,0,0,0,871,0,3492,0,0,0,0,0,763,0 3060 DATA 3450,0,0,0,0,0,10564,0,3900,0,0,0,0,0,9750,0 3070 DATA 4050,0,0,0,0,0,9900,0,4207,0,0,0,0,0,10650,0 3080 DATA 4350,262,0,0,0,0,3750,0,4361,1082,1052,0,0,0,1203,0 3090 DATA 4361,224,265,641,720,240,10815,600,4361,224,265 3092 DATA 646,0,0,450,0,4361,1082,1043,1060,1080,0 3100 DATA 10815,600,4361,1041,1220,1100,820,0,10854 3110 DATA 10564,4361,824,1046,0,0,0,1203,0,4369,161,134,120,0,0,7985,0 3120 DATA 4369,161,133,0,0,0,1500,0,4369,161,154,140,0,0,7985,0 3130 DATA 4380,0,0,0,0,0,2250,0,4392,0,0,0,0,0,10619,9150 3140 DATA 4393,822,820,840,0,0,10815,600,4525 3142 DATA 784,1160,260,0,0,10849,7650 3150 DATA 4525,262,820,0,0,0,8149,7500,4500,0,0,0,0,0,3600,0 3160 DATA 4963,1162,1040,0,0,0,2302,0,4962,0,0,0,0,0,9750,0 3170 DATA 4963,1174,0,0,0,0,5400,0,4950,0,0,0,0,0,2700,0 3180 DATA 5111,1062,1043,1060,1080,0,10815,450,5111 3182 DATA 824,1041,1220,1100,0,10815 3190 DATA 450,5250,84,0,0,0,0,5850,0,5250,404,0,0,0,0,5400,0 3200 DATA 5250,724,49,40,0,0,8805,0,5250,764,0,0,0,0,1050,0 3210 DATA 5250,604,49,40,0,0,8805,0,5250,484,0,0,0,0,6150,0 3220 DATA 5250,464,0,0,0,0,6150,0,5250,262,0,0,0,0,15600,0 3230 DATA 5250,744,0,0,0,0,1050,0,5250,281,0,0,0,0,7050,0 3240 DATA 5250,48,40,0,0,0,9106,0,5250,0,0,0,0,0,5550,0 3250 DATA 5400,0,0,0,0,0,2850,0,5550,0,0,0,0,0,3150,0 3260 DATA 5708,183,40,180,0,0,2322,0,5711,1082,1052,0,0,0,1246,0 3270 DATA 5711,1082,1043,1060,1080,0,10815,600 3272 DATA 5711,224,265,646,0,0,450,0 3280 DATA 5711,824,1046,0,0,0,1246,0,5711,1041 3282 DATA 1220,1100,820,0,10854,10564 3290 DATA 5718,702,0,0,0,0,1322,0,5850,483,480,0,0,0,3055,0 3300 DATA 5888,483,480,0,0,0,8265,3000,6000,503,500,0,0,0,3055,0 3310 DATA 6023,0,0,0,0,0,900,0,6039,503,500,0,0,0,2270,0 3320 DATA 6161,824,521,1100,1220,0,10815 3322 DATA 6064,6161,824,526,0,0,0,1246,0 3330 DATA 6450,84,260,0,0,0,8170,9600,6450,284,260,0,0,0,8170,9600 3340 DATA 6632,422,654,640,0,0,7965,150,6770,521,24,0,0,0,6000,0 3350 DATA 6770,521,44,0,0,0,6000,0,6770,526,0,0,0,0,1246,0 3360 DATA 6774,562,521,560,300,220,10840,8250,7080,621,0,0,0,0,4200,0 3370 DATA 7080,601,753,0,0,0,7200,0,7080,601,754,740,0,0,5303,0 3380 DATA 7084,464,0,0,0,0,3927,0,7236,763,760,0,0,0,7815,0 3390 DATA 7536,761,760,0,0,0,7965,0,7650,824,780,0,0,0,8170,9600 3400 DATA 7650,744,760,0,0,0,8170,9600,7650,764,740,0,0,0,8170,9600 3410 DATA 7845,1183,1180,1200,0,0,10820,9666,7840,1203,0,0,0,0,3000,0 3420 DATA 7800,0,0,0,0,0,3600,0,8260,702,0,0,0,0,1322,0 3430 DATA AUT,ANY,GO,NORTH,*ENT,SOUTH,*RUN,EAST,*WAL,WEST 3440 DATA *CLI,UP,*CRA,DOWN,JUM,GAM,GET,TOR,*TAK,*ON 3450 DATA *PIC,OFF,*CAT,DOO,LIG,SCO,*TUR,KEY,*TOR,HEL 3460 DATA *BUR,INV,DRO,SIG,*REL,ARO,*SPI,FIR,*LEA,KNA 3470 DATA *GIV,TRE,THR,HIL,QUI,CAV,LOO,WAT,*SHO,ROP 3480 DATA *SEE,GUA,SCO,PAS,INV,OPE,SAV,PIL,OPE,WAL 3490 DATA ATT,BOO,*KIL,AXE,*FIG,PIA,FIN,*MUS,LOC,GRA 3500 DATA HEL,DRA,SAY,HOR,STO,ARM,UNL,FOO,EAT,WIN 3510 DATA DRI,PRI,BRE,LAD,*SMA,CHE,SWI,COF,PLA,*STA 3520 DATA CUT,TOA,*CHO,SKU,REA,BAT,RID,BAR,*MOU,COB 3530 DATA DIS,*WEB,IVA,LED,KIS,"",*LOV,"",*FUC,"" 3540 DATA FIR,"","","","","","","","","" 3550 DATA 0,0,0,0,0,0,"" 3560 DATA 1,4,1,2,0,0,a thick woods 3570 DATA 2,4,1,5,0,0,a dark forest 3580 DATA 0,0,0,0,0,1,*You are on a branch near the top of a tree 3590 DATA 1,0,0,0,0,0,*You are by the water's edge of the moat 3600 DATA 0,0,2,0,0,0,a clearing by the side of a small hill 3610 DATA 0,0,5,0,0,0,*You are by the entrance to a cave 3620 DATA 0,7,6,8,7,0 3622 DATA a large cavern with tunnels going off in all directions 3630 DATA 8,8,7,8,9,8 3632 DATA a small cavern with many openings leading from it 3640 DATA 8,8,8,10,9,8,a low passage-way 3650 DATA 0,0,9,0,0,0,a large cavern with high sheer walls 3660 DATA 0,0,0,0,0,0,a small room carved into the cave wall 3670 DATA 2,1,0,0,0,5 3680 DATA*You are on the top of a small hill -- the castle is South 3690 DATA 4,14,0,0,0,0,the water -- it is icy cold 3700 DATA 13,0,0,0,0,0,*You are by the outer castle walls 3710 DATA 0,0,18,0,16,0,*You are on a catwalk near the west tower 3720 DATA 0,0,0,17,0,15,a small chamber in the west tower 3730 DATA 0,0,16,0,0,0,the guards' quarters 3740 DATA 0,0,20,15,0,19,the west end of a great hall 3750 DATA 23,0,0,0,18,0,the castle courtyard 3760 DATA 21,0,0,18,24,0,the east end of the great hall 3770 DATA 0,20,0,19,0,0,the kitchen 3780 DATA 18,0,0,0,0,25,a secret passage behind the fireplace 3790 DATA 0,19,0,0,0,0,the castle's stables 3800 DATA 0,0,0,0,26,20,the Baron's private chambers 3810 DATA 0,0,0,0,22,27,a long low tunnel sloping downwards 3820 DATA 0,0,0,0,0,24,the turret room of the east tower 3830 DATA 0,0,0,0,25,0,the Baron's family crypt 3840 DATA 0,0,29,0,27,0,a cavern with iridescent glowing walls 3850 DATA 0,30,0,28,0,0,an odd-shaped room with a strange smell 3860 DATA 29,0,0,0,0,0 3870 DATA *You are on a ledge on the North side of a deep and wide 3880 DATA 32,11,0,34,0,0,the east end of a large cavern 3890 DATA 33,31,0,0,0,35,*You are at a crossroads in a long tunnel 3900 DATA 0,0,0,0,0,0,*You are lost in the Assembler ROM 3910 DATA 35,0,31,0,0,0,the west end of a large cavern 3920 DATA 0,34,36,0,32,0,the Baron's secret stronghold 3930 DATA 0,0,0,35,0,0 3940 DATA *You are on a ledge on the South side of a deep and wide 3950 DATA 0,0,0,0,0,0,the Baron's treasure room 3960 DATA 38,39,0,0,38,39,a twisting tunnel in the dungeon 3970 DATA 38,39,0,0,38,39,a long passage-way with rows of cells 3980 DATA 0,0,37,24,0,0,a secret passage-way 3990 DATA 0,0,0,0,0,0,a dungeon cell 4000 DATA 33,3,33,33,33,12 4002 DATA *Pick a direction and you might return to life 4010 DATA "",There's a strange sound,Nothing happens 4012 DATA It's locked,It's open 4020 DATA There's something there - maybe you should 4030 DATA That's not very safe,You may need magic here 4032 DATA Sorry...you can't 4040 DATA You don't have it,It's empty,You have no container 4050 DATA What a waste...,open it?,go there?,Ok.... 4060 DATA You found something!,You didn't find anything 4070 DATA You don't see it here,Use one word,OH...THAT FEELS GOOD!! 4080 DATA To stop game say QUIT,A voice booms out...,LEAVE IT ALONE! 4090 DATA Don't be silly!,The guard won't let you! 4092 DATA THE BARON SUCKS EGGS! 4100 DATA Read Scott for magic word,IVANHOE! 4110 DATA The hook catches and the rope hangs down 4120 DATA You have to throw it first!,The matches are too wet 4122 DATA It is blazing 4130 DATA An angry-looking guard appears,It's too high and steep 4140 DATA Something fell out 4150 DATA Try the piano,Be adventurous!,You made a tasty meal! 4160 DATA You need some exercise,CRASH...It's down! 4162 DATA Reading improves the mind 4170 DATA The guard throws you over the edge,with a broken arm 4180 DATA Your arm has healed 4182 DATA The guard mistakes you for the Baron and leaves 4190 DATA You don't have the necessary resources,Time heals all things 4200 DATA Try another book,It was a fierce fight,but you lost 4210 DATA but you finally won,It disappears,into the chasm 4220 DATA Leave peacefully!,Throw something,Sorry about that 4230 DATA THE SKULL SPEAKS---,Beware the vampire,Beware the chest 4240 DATA Beware the gold bars 4242 DATA You just lost your cursor and the game is over 4250 DATA Leave the guard in his quarters,The bat just bit you 4260 DATA The door slams shut!,You hear the flap of wings 4270 DATA The toad says -- Ribet! 4280 DATA You see a poisonous spider crawling towards you 4290 DATA You were just bitten by a poisonous spider 4300 DATAThe Baron suddenly appears with a large sword and it's off 4310 DATA It missed!,Read it?,You have no water,The bottle shatters! 4320 DATA TREES,1,TREES,2,UNLIT TORCH/TOR/,6 4330 DATA ROPE WITH GRAPPLING HOOK ON END/ROP/,9 4332 DATA CAVE IN SIDE OF HILL,5 4340 DATA SIGN SAYING -- NO SWIMMING -- DANGER!,4 4342 DATA MATCHES/MAT/,0,SOGGY MATCHES/MAT/,18 4350 DATA KNAPSACK/KNA/,-1,BLAZING TORCH/TOR/,0 4352 DATA THE CASTLE ACROSS THE WATER,4 4360 DATA THE DRAWBRIDGE IS UP,4,A HEAVY OAK DOOR,11 4362 DATA AN ANGRY-LOOKING GUARD,11 4370 DATA A BROKEN ARM,0,THE DRAWBRIDGE IS DOWN,0 4380 DATA A SCHOOL OF MAN-EATING PIRANHA,13 4390 DATA SIGN -- LEAVE TREASURE HERE -- SAY 'SCORE',12 4400 DATA OPENING IN THE WALL--HIGH UP NEAR THE TOP OF THE CAVERN,10 4410 DATA *MAGIC SLEEPING PILLS*/PIL/,12,A SCHOOL OF SLEEPY PIRANHA,0 4420 DATA A GRAND PIANO,20,A BOOKCASE FILLED WITH CLASSICS,24 4430 DATA A SECRET PASSAGE BEHIND THE BOOKCASE,0 4432 DATA FOOD/FOO/,21,WINE/WIN/,21 4440 DATA A BATTLE AXE/AXE/,17,GRAFFITI ON THE WALLS,23 4450 DATA A THICK ROPE HOLDING THE DRAWBRIDGE UP,19 4452 DATA *SILVER SUIT OF ARMOUR*/ARM/,24 4460 DATA A BOOK OF HORROR STORIES/BOO/,0 4462 DATA *RARE FIRST EDITION OF SCOTT*/BOO/,0 4470 DATA SOME PIANO KEYS/KEY/,0,A ROPE HANGING DOWN,0,A FIREPLACE,18 4480 DATA A FIREPLACE WITH A BLAZING FIRE,0,AN OPEN DOOR,0 4490 DATA *A LARGE DIAMOND*/DIA/,0,*THE BARON'S BEST HORSE*/HOR/,23 4492 DATA MUDDY WATER,4,*JEWELLED URN*/URN/,27 4500 DATA COFFIN,27,AN OPEN COFFIN WITH STAIRS INSIDE,0 4510 DATA BONES/BON/,27,SKULL/SKU/,27,A VAMPIRE BAT,0 4512 DATA *BAG OF RUBIES*/RUB/,29,SIGN--DANGER--GO BACK!,32 4520 DATA *TREASURE CHEST*/CHE/,35,A LONG LADDER/LAD/,36 4530 DATA *GOLD BARS*/BAR/,37,*SILVER CROSS*/CRO/,37 4532 DATA GUARD'S KEYS/KEY/,0 4540 DATA AN OPEN DOORWAY,37,A LOCKED STEEL DOOR,0 4542 DATA A LOCKED OAK DOOR,41 4550 DATA ANOTHER LEDGE ON THE NORTH SIDE,36 4552 DATA A NARROW LEDGE ON THE OTHER SIDE,30 4560 DATA AN UNCONSCIOUS GUARD,0,A HORNY TOAD/TOA/,41 4570 DATA *BEAUTIFUL PRINCESS*/PRI/,0,AN OPEN DOORWAY,0 4572 DATA THE CASTLE TO THE SOUTH,3,COBWEBS,27 4580 DATA COBWEBS,35,COBWEBS,38 9999 END