Listing of file='ADVENTUR' on disk='vmedia/best_of_BD_fules.wvd.zip'
# Sector 168, program filename = 'ADVENTUR'
0000 COM L
0010 D2=2*4
: D4=D2+2*7
: DIM A$(15)64,M1$32,L$(76)2,K1$17,T1$17
: A,B=6
: INIT(80)A$()
: R=1
: PRINT HEX(03)
: I8=2
: P7=6
: P8=6
: D1=500
: A1,B1=2
0020 Z=INT(RND(1)*10)+15
: L$(Z)="TE"
0030 FOR U=1TO 2
: RESTORE
: FOR I=1TO 4+D2/2
: READ Z$,Z1$
0040 Z=INT(RND(1)*25)+1
: IF L$(Z)<>" "THEN 40
: L$(Z)=Z$
: NEXT I
: NEXT U
0050 Z=INT(RND(1)*10)+1
: IF L$(Z)<>" "THEN 50
: L$(Z)="Uk"
0060 Z=INT(RND(1)*10)+1
: IF L$(Z)<>" "THEN 60
: L$(Z)="01"
0070 Z=INT(RND(1)*25)+1
: IF Z=1THEN 70
: IF G0$="B.R."THEN 160
: IF L$(Z)<>" "THEN 70
: L$(Z)="BT"
: IF G0$="BAT RETURN" THEN 160
0080 FOR I=1TO 15
: STR(A$(I),1,1),STR(A$(I),30,1)=HEX(86)
: NEXT I
: INIT(8B)STR(A$(10),32,33)
: STR(A$(10),40,16)=" B&D FULES INC. "
: STR(A$(1),32,12)="WHITE CASTLE"
: STR(A$(1),48,17)="REINCARNATIONS= 0"
: STR(A$(2),32,10)="INVENTORY="
: RESTORE
0090 INIT("-")STR(A$(1),1,30),STR(A$(15),1,30)
: STR(A$(15),64,1)=HEX(01)
: GOTO 410
0100 FOR I=1TO 350
: NEXT I
0101 M1$="TOO BAD YOU"
: GOSUB 1050
: M1$="HAD TO GIVE UP......"
: GOSUB 1050
: M1$=" "
: GOSUB 1050
: GOSUB 1050
0110 KEYIN A$,110,110
: M1$="PRESS 'R' TO REINCARNATE."
: GOSUB 1050
: FOR I=1 TO 750
: KEYIN A$,120,120
: NEXT I
: GOTO 1500
0120 IF A$=HEX(0D)THEN 1500
: IF A$<>"R"THEN 140
: I=750
: NEXT I
: IF R1>4THEN 150
: R1=R1+1
: CONVERT R1TO STR(A$(1),64,1),(#)
: GOSUB 130
: M1$="YOU ARE NOW REINCARNATED."
: GOSUB 1050
: D5=0
: D9$,M1$=" "
: STR(A$(A1),B1,1)=HEX(80)
: FOR O=1TO 4
: GOSUB 1050
: NEXT O
: GOTO 1470
0130 G=0
: G0$="G.G.R."
: FOR U=3TO I8
: IF STR(A$(U),34,17)="GOLDEN GRAIL"THEN 730
: NEXT U
: G0$=" "
: RETURN
0131 Z=INT(RND(1)*75)+1
: IF L$(Z)<>" "THEN 131
: L$(Z)="GG"
: RETURN
0140 IF A$="r"THEN 141
: NEXT I
: GOTO 1500
0141 A$="R"
: GOTO 120
0150 M1$="YOU HAVE USED UP"
: GOSUB 1050
: M1$="YOUR REINCARNATION"
: GOSUB 1050
: M1$="POWER. TOO BAD!"
: GOSUB 1050
: M1$=" "
: GOSUB 1050
: GOSUB 1050
: FOR I=1 TO 500
: NEXT I
: GOTO 1500
0160 FOR I=11TO 14
: INIT(80)STR(A$(I),32,32)
: STR(A$(I),32,32)=STR(A$(I+1),32,32)
: NEXT I
0170 INIT(80)STR(A$(15),32,32)
: STR(A$(15),32,32)=M1$
0180 REM ------------------ KEYIN/EVALUATE ---------------------
0190 D1=D1+1
: D5=D5+1
: GOSUB 205
: ON V2GOTO 201,209
: IF D5>800THEN 202
: ON S2-249GOSUB 210
: GOSUB 1100
: G0$=" "
: Z$=STR(A$(A),B,1)
: IF Z$<>HEX(80)THEN 490
: STR(A$(A),B,1)="@"
: PRINT HEX(01);
: MAT PRINT A$;
: IF D9$="DC"THEN 1285
: A1=A
: B1=B
0191 IF S2=500THEN 190
0200 KEYIN A$,200,200
: IF A$=" "THEN 190
: IF A$=HEX(18)THEN 9999
: IF A$="5"THEN 190
: IF A$=HEX(09)THEN 101
: ON (VAL(A$)-48)/2GOTO 220,250,280,310
: GOTO 190
0201 M1$="You are TIRED from lack"
: GOSUB 1050
: M1$="of nourishment."
: D1=D1-1
: V2=0
: GOTO 160
0202 M1$="YOU DIED OF STARVATION!!"
: GOSUB 1050
: M1$=" "
: GOSUB 1050
: GOSUB 1050
: GOSUB 1050
: GOTO 110
0203 M1$="Mmm...That was tasty!"
: D5=0
: STR(A$(P7),P8,2)=HEX(8080)
: L$(R)=" "
: GOTO 160
0205 IF D5<625 THEN 840
: IF D5>630 THEN 206
: V2=1
: D5=631
: RETURN
0206 IF D5<700 THEN 840
: IF D5>705 THEN 207
: V2=2
: D5=706
: RETURN
0207 IF D5<800 THEN 840
: RETURN CLEAR
: GOTO 202
0209 M1$="You are EXHAUSTED from lack"
: GOSUB 1050
: M1$="of food. FIND FOOD FAST!!"
: D1=D1-1
: V2=0
: GOTO 160
0210 IF D1>10THEN 1330
: RETURN
0220 STR(A$(A),B,1)=HEX(80)
0230 IF A>13THEN 240
: A=A+1
: J1=0
: GOTO 190
0240 IF STR(J1$,3,1)="0"THEN 400
: IF STR(A$(15),B,1)="-"THEN 400
: ON VAL(STR(J1$,3,1))-50GOSUB 500
: A=2
: R=R+1
: GOTO 410
0250 STR(A$(A),B,1)=HEX(80)
0260 IF B<4THEN 270
: B=B-2
: J1=0
: GOTO 190
0270 IF STR(J1$,4,1)="0"THEN 400
: IF STR(A$(A),1,1)=HEX(86)THEN 400
: ON VAL(STR(J1$,4,1))-50GOSUB 500
: B=28
: R=R-5
: GOTO 410
0280 STR(A$(A),B,1)=HEX(80)
0290 IF B>27THEN 300
: B=B+2
: J1=0
: GOTO 190
0300 IF STR(J1$,2,1)="0"THEN 400
: IF STR(A$(A),30,1)=HEX(86)THEN 400
: ON VAL(STR(J1$,2,1))-50GOSUB 500
: R=R+5
: B=2
: GOTO 410
0310 STR(A$(A),B,1)=HEX(80)
0320 IF A<3THEN 330
: A=A-1
: J1=0
: GOTO 190
0330 IF STR(J1$,1,1)="0"THEN 400
: IF STR(A$(1),B,1)="-"THEN 400
: ON VAL(STR(J1$,1,1))-50GOSUB 500,510
: R=R-1
: A=14
: GOTO 410
0340 DATA "Bf","Bat food","Pe","Pesticide","fd"," ","wt"," ","Ad","Android dec
oy"
0350 DATA "Bk","Black castle key","Hs","Hypnotizing spell","Ss","Sword and shi
eld","GG","GOLDEN GRAIL","Bx","Good box","Gr","Gold ring","Np","Newspaper
","Lb","Lead ball","Rk","Rock"
0360 DATA "fd"," ","wt"," ","BT","BAT","01","WHITE DRAGON","02","BLACK DRAGON"
,"Uk","Unknown key"
0370 DATA "0110","1010","1100","0110","1100","0011","1300","0011","1001"
0380 DATA "0301","0310","1103","0310","1100","0103","0003","0111","1003"
0390 DATA "0111","1001","0010","1011","1000","0011","1000"
0400 M1$=" "
: IF J1=1THEN 190
: J1=1
: M1$="CAN'T GO THAT WAY : NO DOOR"
: GOTO 160
0410 M1$,D9$=" "
: STR(A$(A1),B1,1)=HEX(80)
: RESTORE R+18+R2+D4
: READ J1$
: FOR I=1TO 4
: D$="DOOR"
: IF STR(J1$,I,1)="1"THEN 420
: D$=HEX(86868686)
: IF I/2=INT(I/2)THEN 420
: D$="----"
0420 ON VAL(STR(J1$,I,1))-50GOSUB 470,480
: ON IGOTO 430,440,450,460
: END
0430 FOR O=1TO 4
: STR(A$(1),10+O*2,1)=STR(D$,O,1)
: NEXT O
: NEXT I
: GOTO 570
0440 FOR O=1TO 4
: STR(A$(O+6),30,1)=STR(D$,O,1)
: NEXT O
: NEXT I
: GOTO 570
0450 FOR O=1TO 4
: STR(A$(15),10+O*2,1)=STR(D$,O,1)
: NEXT O
: NEXT I
: GOTO 570
0460 FOR O=1TO 4
: STR(A$(O+6),1,1)=STR(D$,O,1)
: NEXT O
: NEXT I
: GOTO 570
0470 D$="LOCK"
: RETURN
0480 D$="EXIT"
: RETURN
0490 IF Z$<>"@" THEN 610
: STR(A$(A),B,1)=HEX(80)
: GOTO 190
0500 REM INVENTORY CHECK
: FOR I=3TO 9
: IF STR(A$(I),34,18)="Unknown key"THEN 550
: NEXT I
: IF J1=1THEN 540
: J1=1
: M1$="CAN'T GO THAT WAY : NO KEY"
: RETURN CLEAR
: GOTO 160
0510 IF G<>8THEN 530
: M1$="YOU HAVE RECOVERED THE"
: GOSUB 1050
0520 W1=W1+3
: M1$="GOLDEN GRAIL AND"
: GOSUB 1050
: M1$="RETURNED TO THE EXIT."
: GOSUB 1050
: M1$="WITH REINCARNATIONS."
: CONVERT R1TO STR(M1$,6,1),(#)
: GOSUB 1050
: M1$=" ** YOU WIN **"
: GOSUB 1050
: GOTO 1500
0530 RETURN CLEAR
: M1$="YOU MUST HAVE THE"
: GOSUB 1050
: M1$="GOLDEN GRAIL TO"
: GOSUB 1050
: M1$="USE THIS EXIT."
: GOSUB 1050
: M1$=" "
: GOSUB 1050
: GOSUB 1050
: A$=" "
: GOTO 190
0540 RETURN CLEAR
: GOTO 190
0550 J1=0
: RETURN
0560 REM -------------- ADD INVENTORY TO ROOM ------------------
0570 D3=0
: STR(A$(P7),P8,2)=HEX(8080)
: L$(76),K1$,T$=" "
: S2=0
: IF L$(R)="BT"THEN 700
: IF L$(R)=" "THEN 190
: M1$="TELEPORTER"
: FOR I=9+D4/2TO 9+D4/2
: Z$=L$(R)
0580 IF L$(R)="TE"THEN 590
: IF R=70THEN 590
: NEXT I
: RESTORE
: FOR I=1TO 9+D4/2
: READ Z$,K1$
: IF Z$=L$(R)THEN 590
: NEXT I
: GOSUB 1100
: GOTO 190
0590 P7=(INT(RND(1)*3)+3)*2
: P8=(INT(RND(1)*10)+4)*2
: STR(A$(P7),P8,2)=Z$
: I=9+D4/2
: NEXT I
: GOSUB 1100
: IF L$(R)="TE"THEN 600
: GOTO 190
0600 M1$="YOU FOUND THE TELEPORTER"
: GOTO 160
0610 M1$=K1$
: IF NUM(L$(R))=2THEN 620
: IF T$="WY"THEN 640
: IF L$(R)="GG"THEN 670
: IF L$(R)="TE"THEN 880
: IF L$(R)="Bx"THEN 1450
: IF L$(R)="fd"THEN 203
: IF L$(R)="wt"THEN 203
0611 FOR U=3TO I8
: IF STR(A$(U),34,18)=M1$THEN 651
: NEXT U
: IF I8>8THEN 1250
: I8=I8+1
: STR(A$(I8),34,18)=M1$
: STR(A$(I8),63,2)="01"
: GOTO 660
0620 IF L$(76)<>"HY"THEN 640
: L$(76)=" "
: M1$="YOU BUMPED HIM AND HE AWOKE."
: GOSUB 1050
: M1$="HE THEN PUSHED YOU ASIDE"
: GOSUB 1050
: M1$="THE SPELL IS NOW BROKEN."
: GOSUB 1050
: M1$=" "
: GOSUB 1050
: GOSUB 1050
: STR(A$(A),B,1)=" "
0630 A,A1=INT(RND(1)*13)+2
: B,B1=(INT(RND(1)*14)+2)*2
: GOTO 190
0640 GOSUB 1340
: GOTO 190
0651 CONVERT STR(A$(U),63,2)TO Z5
: Z5=Z5+1
: CONVERT Z5TO STR(A$(U),63,2),(##)
: U=I8
: NEXT U
0660 STR(A$(A),B,2)=HEX(8080)
: L$(R)=" "
: M1$="You found a"
: STR(M1$,13,18)=K1$
: GOTO 160
0670 FOR U=3TO I8
: IF STR(A$(U),34,8)="Good box"THEN 690
: NEXT U
: M1$="YOU NEED A 'GOOD BOX' AND"
: GOSUB 1050
: M1$="BECAUSE THE POWER OF"
: GOSUB 1050
: M1$="THE GOLDEN GRAIL IS SO"
: GOSUB 1050
: M1$="TREMENDOUS, YOU HAVE BEEN"
0680 GOSUB 1050
: M1$="TELEPORTED TO ANOTHER ROOM"
: GOSUB 1050
: GOTO 1470
0690 U=I8
: NEXT U
: L$(R)=" "
: G=8
: GOTO 610
0700 GOSUB 770
: G0$="BAT RETURN"
: L$(R)=" "
: M1$="BAT ATTACKED!"
: IF I8=2THEN 70
: M1$=" "
: FOR U=3TO I8
: IF STR(A$(U),34,18)="Bat food" THEN 730
: NEXT U
: IF STR(A$(I8),63,2)>"01"THEN 760
: I8=I8-1
: IF STR(A$(I8+1),34,4)<>"GOLD"THEN 710
: G=0
0710 M1$="Bat took "
: STR(M1$,10,17),G7$=STR(A$(I8+1),34,17)
: INIT(80)STR(A$(I8+1),34,31)
: GOTO 860
0720 M1$="Bat took "
: STR(M1$,10,17),G7$=STR(A$(U),34,17)
: GOTO 860
0730 IF STR(A$(U),63,2)>"01"THEN 750
: INIT(80)STR(A$(U),34,31)
: IF U=I8THEN 731
: FOR I=U+1TO I8
: STR(A$(I-1),34,31)=STR(A$(I),34,31)
: INIT(80)STR(A$(I),34,31)
: NEXT I
0731 U=I8
: NEXT U
: I8=I8-1
: IF G0$="Ad R"THEN 1282
: IF G0$="P.R."THEN 790
: IF G0$<>"DRAGON"THEN 740
: G0$,A$=" "
: GOTO 1170
0740 IF G0$="G.G.R."THEN 131
: M1$="Bat took Bat food"
: G7$="Bat food"
: GOTO 860
0750 CONVERT STR(A$(U),63,2)TO Z5
: Z5=Z5-1
: CONVERT Z5TO STR(A$(U),63,2),(##)
: U=I8
: NEXT U
: IF G0$="Ad R"THEN 1282
: IF G0$="P.R."THEN 790
: IF G0$<>"DRAGON"THEN 740
: G0$=" "
: A$=" "
: GOTO 1170
0760 CONVERT STR(A$(I8),63,2)TO Z5
: Z5=Z5-1
: CONVERT Z5TO STR(A$(I8),63,2),(##)
: GOTO 720
0770 STR(A$(A),B,1)="@"
: PRINT HEX(01);
: MAT PRINT A$;
: INIT(0A)A0$
: STR(A0$,1,1)=HEX(01)
: GOSUB 830
: FOR I=QTO B-5STEP P
: PRINT STR(A0$,1,A+1);
: IF I/2=INT(I/2)THEN 850
: PRINT HEX(09);TAB(I);"/";HEX(5C6F);"/";HEX(5C20080C0C)
: KEYIN A$,780,780
: NEXT I
: RETURN
0780 IF A$<>"F"THEN 820
: GOTO 800
0790 G0$="B.R."
: M1$="YOU KILLED THE BAT."
: L$(R)=" "
: I=B-5
: NEXT I
: GOTO 70
0800 FOR U=3TO I8
: IF STR(A$(U),34,18)<>"Pesticide"THEN 810
: G0$="P.R."
: GOTO 730
0810 NEXT U
0820 NEXT I
: RETURN
0830 P,Q=1
: IF B>15THEN 840
: P=-1
: Q=22
0840 RETURN
0850 PRINT HEX(09);TAB(I);HEX(5C2F6F5C);"/ ";HEX(080C0C)
: NEXT I
: RETURN
0860 Z=INT(RND(1)*(25+(R2/44)*50))+1
: IF L$(Z)<>" "THEN 860
: RESTORE
: FOR I=1 TO 9+D2/2
: READ Z$,Y$
: IF STR(Y$,1,5)<>STR(G7$,1,5)THEN 870
: I=9+D2/2
: NEXT I
: L$(Z)=Z$
: GOTO 70
0870 NEXT I
: GOTO 70
0880 RESTORE 44+D4
: K=0
: STR(A$(A),B,2)=HEX(4080)
0890 READ M1$
: IF M1$="#"THEN 900
: GOSUB 1050
: GOTO 890
0900 K=K+1
: ON KGOTO 910,940
0910 FOR I=3TO I8
: IF STR(A$(I),34,16)="Black castle key"THEN 930
: NEXT I
: Y=5
0920 FOR O=1TO 700
: NEXT O
: GOTO 890
0930 RESTORE 56+D4
: GOTO 920
0940 IF Y=5THEN 100
: R2=44
: INIT(20)L$()
: L$(70)=HEX(8080)
: L$(75)="GG"
: STR(A$(1),32,5)="BLACK"
: L$(65)="02"
0950 FOR U=1TO 4
: RESTORE 11+D2
: FOR I=1TO 3+(D4-D2)/2
: READ Z$,Z1$
0960 Z=INT(RND(1)*74)+1
: IF L$(Z)<>" "THEN 960
: L$(Z)=Z$
: NEXT I
: NEXT U
0970 STR(A$(A),B,1)=HEX(80)
: A,B=6
: R=1
: GOTO 410
0980 DATA "PREPARE TO MAGICALLY","TRANSMUTE TO BLACK CASTLE.","YOU BETTER HAVE
","YOUR KEY"," ","#","OH NO!! YOU FORGOT THE KEY,","YOU ARE STUCK IN MID
TRANSPORT."," HAH!! HAAA!!"," "
0990 DATA " ","#","YOU ARE NOW IN THE","BLACK CASTLE."," "," "," ","#"
1000 DATA "#","4110","1010","1100","0110","1100","0011","1300","0011","1001","
0101","0110","1013","1100","0110","1001"
1010 DATA "0101","0000","0101","0011","1300","0011","1011","1001","0100","0103
","0010","1100","0010","1111","1001"
1020 DATA "0100","0111","1300","0011","1100","0111","1001","0013","1110","1001
","0101","0110","0000","0011","1100"
1030 DATA "0011","1101","0110","1010","1001","0100","0101","0011","1300","0100
","0101","0011","1100","0013","1001"
1040 DATA "0011","1110","1001","0110","1100","0100","0131","3010","1101","0101
","0011","1011","1000","0001","0001"
1050 FOR I=11TO 14
: INIT(80)STR(A$(I),32,32)
: STR(A$(I),32,32)=STR(A$(I+1),32,32)
: NEXT I
1060 INIT(80)STR(A$(15),32,32)
: STR(A$(15),32,32)=M1$
: PRINT HEX(01);
: MAT PRINT A$;
: RETURN
1070 REM ---------------- DRAGON MOVE/USER COMMAND -------------
1080 END
1100 IF J1$="0000"THEN 1130
1110 GOSUB 1150
: IF R=70THEN 1340
: IF NUM(L$(R))<>2THEN 840
: IF L$(76)<>"HY" THEN 1340
: RETURN
1120 M1$="IMPROPER COMMAND"
: GOSUB 1050
: A$="5"
: RETURN
1130 IF M1$="YOU'RE STUCK : NO EXIT"THEN 1110
: M1$="YOU'RE STUCK : NO EXIT"
: GOSUB 1050
: A$="5"
: GOTO 1110
1140 REM ------------------ HYPNOTIZE DRAGON ------------------
1150 IF A$<>"H" THEN 1190
: IF NUM(L$(R))<>2THEN 1120
: IF L$(76)="HY"THEN 1120
: FOR U=1TO I8
: G0$="DRAGON"
: IF STR(A$(U),34,17)="Hypnotizing spell"THEN 730
: NEXT U
: GOTO 1120
1160 RESTORE 172
: FOR I=1TO 255
: READ A$
: PRINT A$;A;I*2
: NEXT I
: STOP
1161 RESTORE
: READ A
1170 M1$="THE DRAGON IS NOW"
: GOSUB 1050
: M1$="HYPNOTIZED UNTIL"
: GOSUB 1050
: M1$="YOU LEAVE THE ROOM"
: GOSUB 1050
: M1$=" "
: GOSUB 1050
: GOSUB 1050
: L$(76)="HY"
: S2=0
: D1=11
: RETURN
1180 REM ------------------ SWING SWORD -----------------------
1190 IF A$<>"S" THEN 1240
: IF NUM(L$(R))<>2THEN 1120
: FOR U=1TO I8
: IF STR(A$(U),34,17)="Sword and shield"THEN 1200
: NEXT U
: GOTO 1120
1200 U=I8
: NEXT U
: D5=D5+2
: M1$="YOU SWUNG AT IT!"
: GOSUB 1050
: IF ABS(P7-A)>3THEN 1210
: IF ABS(P8-B)>6THEN 1210
: IF INT(RND(1)*3)<>1 THEN 1210
: L$(R),A$,K1$=" "
: M1$="YOU KILLED IT!!"
: GOSUB 1050
: STR(A$(P7),P8,2)=HEX(8080)
: W1=W1+2
: S2=0
: D1=11
: RETURN
1210 M1$="YOU MISSED IT!"
: GOSUB 1050
: A$=" "
: RETURN
1220 REM
1230 REM ------------------ DEFEND FROM DRAGON ----------------
1240 IF A$<>"D" THEN 1281
: A$=" "
: IF S2<>250THEN 1120
: D5=D5+3
: S2=0
: M1$="YOU ARE SAFE!"
: GOSUB 1050
: D1=11
: RETURN
1250 T1=0
: T1$=" "
: M1$=" "
: GOSUB 1050
: GOSUB 1050
: M1$="ENTER OBJECT TO BE SWITCHED WITH"
: GOSUB 1050
: M1$="THE"
: STR(M1$,5,18)=K1$
: GOSUB 1050
: M1$=" "
: GOSUB 1050
: FOR I=1TO 500
: KEYIN C$,1260,1260
: NEXT I
: GOTO 1250
1260 I=10
: IF C$=HEX(0D)THEN 1280
: T1=T1+1
: IF T1>17THEN 1280
: PRINT HEX(01);TAB(32+T1);HEX(0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A);C$;
: IF C$=HEX(08)THEN 1270
: PRINT HEX(01)
: STR(T1$,T1,1)=C$
: NEXT I
: GOTO 1250
1270 PRINT HEX(2008);HEX(01)
: T1=T1-2
: IF T1<0THEN 1250
: STR(T1$,T1+1,1)=" "
: NEXT I
: GOTO 1250
1280 IF T1$="NOTHING"THEN 1320
: FOR U=3TO I8
: IF STR(A$(U),34,18)=T1$THEN 1290
: NEXT U
: GOTO 1250
1281 IF A$<>"A"THEN 840
: D5=D5+1
: RETURN CLEAR
: G0$="Ad R"
: FOR U=3TO I8
: IF STR(A$(U),34,17)="Android decoy"THEN 730
: NEXT U
: GOTO 1120
1282 M1$="Where do you want to send"
: GOSUB 1050
: M1$="your android ?"
: GOSUB 1050
: A$=" "
: D9$="DC"
: S2=0
: D1=11
1283 KEYIN A$,1284,1284
: GOTO 1283
1284 STR(A$(15),47,1)=A$
: PRINT HEX(01)
: MAT PRINT A$
: IF A$<"2"THEN 1304
: IF A$>"8"THEN 1304
: CONVERT A$TO A4
: A$=" "
: IF INT(A4/2)<>A4/2THEN 1304
: GOSUB 1285
: GOTO 190
1285 GOSUB 1302
: ON A4/2GOTO 1286,1287,1288,1289
: END
1286 IF A1>13THEN 1303
: A1=A1+1
: GOTO 1303
1287 IF B1<3THEN 1303
: B1=B1-2
: GOTO 1303
1288 IF B1>27THEN 1303
: B1=B1+2
: GOTO 1303
1289 IF A1<3THEN 1303
: A1=A1-1
: GOTO 1303
1290 STR(A$(U),34,18)=K1$
: STR(A$(U),63,2)="01"
: U=I8
: NEXT U
: RESTORE
: FOR I=1TO 9+D4/2
: READ Q$,W$
: IF W$<>T1$THEN 1310
: I=9+D4/2
: NEXT I
: STR(A$(P7),P8,2)=HEX(8080)
: L$(R)=Q$
: P7=(INT(RND(1)*3)+3)*2
: P8=(INT(RND(1)*10)+4)*2
: STR(A$(P7),P8,2)=Q$
: K1$=T1$
1300 M1$="SWITCH COMPLETED"
: GOTO 160
1301 M1$="HE FOUND OUT ABOUT YOUR DECOY!"
: GOSUB 1050
: M1$="WATCH OUT!"
: D9$=" "
: STR(A$(A1),B1,1)=HEX(80)
: A1=A
: B1=B
: GOTO 160
1302 STR(A$(A1),B1,1)=HEX(80)
: RETURN
1303 STR(A$(A1),B1,1)="@"
: GOTO 191
1304 M1$="+--------- IMPROPER ENTRY ---------+"
: GOSUB 1050
: GOTO 1282
1310 NEXT I
: END
1320 A$=" "
: A=A-1
: STR(A$(P7),P8,2)=L$(R)
: GOTO 190
1330 IF S2<>250THEN 1120
: M1$="YOU GOT BURNT TO A CRISP!"
: GOSUB 1050
: RETURN CLEAR
: GOTO 110
1340 IF A1<>P7 THEN 1360
: IF B1<>P8 THEN 1360
: IF D9$="DC"THEN 1301
: M1$="YOU WERE KILLED!!"
: GOSUB 1050
: FOR I2=1TO 3
: M1$=" "
: STR(M1$,I2*5+3,4)="HAH!"
: GOSUB 1050
: NEXT I2
: RETURN CLEAR
: GOTO 110
1350 A1=A
: B1=B
: D3=3
: M1$="YIPE! A WYVERN!"
: GOSUB 1050
: T$="WY"
: D5=D5+5
1360 IF D3=3THEN 1380
: IF R=70THEN 1350
: D5=D5+4
: A1=A
: B1=B
: D3=3
: T$="WD"
: M1$="WATCH OUT! A WHITE DRAGON!"
: IF L$(R)<>"02"THEN 1370
: STR(M1$,14,5)="BLACK"
: T$="BD"
1370 STR(A$(P7),P8,2)=T$
: GOSUB 1050
1380 STR(A$(P7),P8,2)=HEX(8080)
: W0=W0+1
: IF W0/2=INT(W0/2)THEN 1410
1390 X=0
: IF ABS(P7-A1)>3THEN 1400
: IF ABS(P8-B1)>8THEN 1400
: IF D9$="DC"THEN 1400
: IF INT(RND(1)*18)=5THEN 1440
: X=1
: IF D1<30 THEN 1400
: INIT(8A)M1$
: GOSUB 1050
: M1$="HE'S BREATHING FIRE! DEFEND!!"
: GOSUB 1050
: INIT(76)M1$
: GOSUB 1050
: D1=0
: S2=250
1400 P7=P7+SGN(A1-P7)
: IF X<>1THEN 1430
: IF S2<>500THEN 1430
: S2,X=0
: GOTO 1430
1410 X=0
: IF ABS(P7-A1)>3THEN 1420
: IF ABS(P8-B1)>8THEN 1420
: IF D9$="DC"THEN 1420
: IF INT(RND(1)*19)=5THEN 1440
: X=1
: IF D1<30 THEN 1420
: INIT(8A)M1$
: GOSUB 1050
: M1$="HE'S BREATHING FIRE! DEFEND!!"
: GOSUB 1050
: INIT(76)M1$
: GOSUB 1050
: D1=0
: S2=250
1420 P8=P8+SGN(B1-P8)*2
: IF X<>1THEN 1430
: IF S2<>500THEN 1430
: S2,X=0
1430 STR(A$(P7),P8,2)=T$
: RETURN
1440 M1$="HE WHIPPED HIS TAIL AT YOU!"
: GOSUB 1050
: M1$="AND KNOCKED YOU UNCONSCIOUS"
: GOSUB 1050
: M1$="INTO THE CORNER."
: GOSUB 1050
: S2=500
: STR(A$(A),B,2)=HEX(8080)
1441 A,A1=INT(RND(1)*2)*12+2
: B,B1=INT(RND(1)*2)*26+2
: STR(A$(A),B,1)="@"
: RETURN
1450 STR(A$(P7),P8,2)=HEX(8080)
: IF B0>1THEN 1480
: ON INT(RND(1)*3)GOTO 1480
: B0=B0+1
: FOR I=1TO 4
: PRINT HEX(03);
: FOR O=1TO 60
: NEXT O
: MAT PRINT A$;
: PRINT HEX(01);
: FOR O=1TO 60
: NEXT O
: NEXT I
: M1$="YOU PICKED UP A BAD BOX"
: GOSUB 1050
: M1$="AND WERE THROWN TO"
: GOSUB 1050
1460 M1$="ANOTHER ROOM."
: GOSUB 1050
: M1$=" "
: GOSUB 1050
: M1$=" "
: GOSUB 1050
1470 R=INT(RND(1)*(25+(R2/44)*50))+1
: IF L$(R)<>" "THEN 1470
: GOTO 410
1480 L$(R)=" "
: GOTO 610
1500 GOSUB 1600
: M1$="THIS HAS BEEN A ** B&D FULES **"
: GOSUB 1050
: M1$="ADVENTURE PROGRAM. WE THANK"
: GOSUB 1050
: M1$="OUR PATRONS AND STAFF FOR THEIR"
: GOSUB 1050
: M1$="SUPPORT."
: GOSUB 1050
: M1$=" "
: GOSUB 1050
: REM
1510 DEFFN'0"\9EI=1TO25+(R2/44)*50:\A0L$(I);I;' ';:\9DI";HEX(0D)
1520 DEFFN'1"\80S 1070,9999";HEX(0D)
1530 DEFFN'2 "J1$=";HEX(22);"1111";HEX(220D)
1531 DEFFN'3 "\D3A$(I8),63,2)=";HEX(223930220D)
1535 END
1540 DATA "Lead ball",-2,"Rock",-1,"Newspaper",0,"Bat food",2,"Pesticide",1,"B
lack castle key",2,"Sword and shield",2,"Hypnotizing spell",1,"Gold ring"
,3,"Good box",3,"GOLDEN GRAIL",4
1541 DATA "Unknown key",1,"Android decoy",0
1600 R7=24+W1
: FOR I=3TO I8
: RESTORE 138+D4
: FOR U=1TO 13
: IF I8=2THEN 1611
: READ Z$,Z
: IF STR(A$(I),34,16)=Z$THEN 1610
: NEXT U
: GOTO 9990
1610 CONVERT STR(A$(I),63,2)TO R8
: FOR R9=1TO R8
: R7=R7+Z
: NEXT R9
1611 U=13
: NEXT U
: NEXT I
: R7=R7-2*R1
: RESTORE 162+D4+INT(R7/8)
: M1$="YOUR RATING FOR THIS GAME IS;"
: GOSUB 1050
: READ M1$
: GOSUB 1050
: M1$=" "
: GOSUB 1050
: GOSUB 1050
: GOSUB 1050
: FOR I=1TO 500
: NEXT I
: RETURN
1620 DATA "F- (BAD)","F+ (BAD)","D- (POOR)","D+ (POOR)","C- (FAIR)","C+
(FAIR)","B- (GOOD)","B+ (GOOD)","A- (VERY GOOD)","A (VERY GOOD)","A+
(EXCELLENT)"
6512 CONVERT STR(A$(U),63,2)TO Z5
: Z5=Z5+1
: CONVERT Z5TO STR(A$(U),63,2),(##)
: U=I8
: NEXT U
9990 M1$="!!!!! E R R O R !!!!!"
: GOSUB 1050
: REM
9992 RESTORE 166+D4
: READ A$
: PRINT A$;D4
9998 REM LINES 1350 AND 1282
9999 LOAD DA F(999,L)