Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ISLE.BAS from THE FORGOTTEN ISLAND
- 10 N0=0:N1=1:SETCOLOR 2,N0,N0:D=N1:POKE 559,N0:LAN=N1:DP=N0:SHIP=103:PL=INT(RND(1)*50)
- 15 DIM FGT$(20),B(14),C$(18),F$(15),W$(20),TR(9),NU(9),S(5),K(4):F$="D:ISLE.FNT":GOSUB 20000:FOR A=1 TO 14:B(A)=0:NEXT A
- 16 FOR A=1 TO 4:K(A)=0:NEXT A
- 17 IF PEEK(1791)<>N0 THEN GOSUB 300:GOTO 20
- 18 EX=100:GD=5:F$="D:ISLE.MA1":X=103:Y=60:ENT=34396
- 20 GOSUB 20000:ADD=28672:MAP=ENT:POKE ADD+X+(Y*128),85:ZAP=MAP:GOSUB 15030:GOSUB 7700:GOSUB 8000:POKE 764,255
- 30 POKE 1791,N0:GOSUB 7237:GOSUB 32010:GOTO 7000
- 200 POKE 764,255:? "}WOULD YOU LIKE TO SAVE THIS GAME? (YnN)";:GOSUB 6110:IF K<>89 THEN 7000
- 202 GOSUB 204:? "}SAVED>>>>"
- 203 GOTO 203
- 204 OPEN #1,8,0,"D:SAVE":FOR A=1 TO 12:B=B(A):? #1;B:NEXT A:FOR A=1 TO 4:B=K(A):? #1;B:NEXT A:CLOSE #1
- 205 GOSUB 7430:OPEN #N1,8,N0,"D:POS":? #N1;D:? #N1;MAP:? #N1;X:? #N1;Y:? #N1;LEV:? #N1;DK:CLOSE #N1:RETURN
- 215 GOTO 215
- 300 OPEN #N1,4,N0,"D:POS":INPUT #N1;D:INPUT #N1;ENT:INPUT #N1;X:INPUT #N1;Y:INPUT #N1;LEV:INPUT #N1;DK:CLOSE #N1
- 305 OPEN #1,4,N0,"D:PASS":INPUT #1;GD:INPUT #1;EX:INPUT #1;DAY:INPUT #1;KI:CLOSE #1
- 307 OPEN #1,4,0,"D:SAVE":FOR A=1 TO 12:INPUT #1;B:B(A)=B:NEXT A:FOR A=1 TO 4:INPUT #1;B:K(A)=B:NEXT A:CLOSE #1
- 310 IF D=1 THEN F$="D:ISLE.MA1":LET TS=0:GOTO 20
- 311 IF D=2 THEN F$="D:ISLE.MA2":LET TS=0:GOTO 20
- 312 IF D=3 THEN F$="D:ISLE.MA3":LET TS=0:GOTO 20
- 313 IF D=4 THEN F$="D:ISLE.MA4":LET TS=0:GOTO 20
- 1000 FOR A=1 TO 20:FOR B=1 TO 15:NEXT B:POKE 560,1:SOUND 0,200,8,15:FOR B=1 TO 15:NEXT B:POKE 560,0
- 1010 SOUND 0,255,8,15:NEXT A:SOUND 0,0,0,0:GOSUB 7920:RETURN
- 4000 ? "}";C$;" IS ATTACKING!!!":GOSUB 7970:P=1:Q=0:GOTO 4020
- 4010 ? "}YOU ARE ATTACKING ";C$;"!!!":P=0:Q=1:GOSUB 7960
- 4020 REM IS ATTACKING
- 4041 IF EX=1800 THEN HP=22
- 4042 IF EX=3500 THEN HP=29
- 4043 IF EX=5500 THEN HP=28
- 4044 LET HP=INT(EX/15)
- 4045 IF PT=1500 THEN EP=23
- 4046 IF PT=2000 THEN EP=22
- 4047 IF PT=5000 THEN EP=28
- 4070 PRINT "}YOUR HIT POINTS n ";HP:PRINT " ";FGT$;"'S HIT POINTS n ";EP;
- 4072 GOSUB 7920
- 4080 PRINT "}DO YOU WISH TO ATTACK OR FLEE? (A OR F)"
- 4085 GOSUB 6110:IF K=65 THEN 4110
- 4087 IF K=70 THEN 4090
- 4088 GOTO 4085
- 4090 IF INT(RND(1)*5)=3 THEN ? "YOU GOT AWAY!!":TS=0:LET D=1:CLOSE #1:HIT=0:GOTO 12000
- 4091 IF INT(RND(1)*5)=3 THEN ? "YOU GOT AWAY!!":TS=0:LET D=1:CLOSE #1:HIT=0:GOTO 12000
- 4092 IF INT(RND(1)*5)=3 THEN ? "YOU GOT AWAY!!":TS=0:LET D=1:CLOSE #1:HIT=0:GOTO 12000
- 4100 ? "}YOU DID NOT GET AWAY!":GOSUB 7950:AD=1:GOTO 4115
- 4101 GOTO 4101
- 4110 AD=INT(RND(1)*3)+1
- 4115 ? "}PUSH THE RED BUTTON TO ATTACK"
- 4116 IF STRIG(0)=0 THEN GOTO 4300
- 4117 GOTO 4116
- 4160 IF EP<1 THEN ? "}YOU HAVE KILLED ";FGT$;"!!!":GOSUB 7930:LET EX=INT(EX+PT/35):GOTO 4190
- 4180 IF HP<1 THEN ? "}";FGT$;" HAS SLAIN YOU!":GOSUB 7920:GOTO 9000
- 4185 IF HP>0 AND EP>0 THEN 4200
- 4190 POKE ADD+MX+(MY*128),0:KI=KI+1:RI=0:HIT=0:LET KL=0:GOSUB 7700:GOSUB 7500:GOTO 7000
- 4200 IF AD=1 THEN ? "}";FGT$;" HAD A DIRECT HIT!!!":GOSUB 7920
- 4210 IF AD=2 THEN ? "}YOU GOT IN A SOLID PUNCH!!":GOSUB 7920
- 4211 IF AD=3 THEN ? "}WOW, YOU SMASHED HIM!!!!!!":GOSUB 7920
- 4220 ? "}";FGT$;" IS ATTACKING!!!":GOSUB 7900:GOTO 4070
- 4300 FOR M=1 TO 5:FOR Z=1 TO 5:SETCOLOR 4,4,5:NEXT Z:GOSUB 7960:FOR Z=1 TO 5:SETCOLOR 4,4,15:NEXT Z:NEXT M:SETCOLOR 4,0,0
- 4310 IF AD=1 THEN R1=INT(RND(1)*10)+10:R2=INT(RND(1)*10)
- 4320 IF AD=2 THEN R2=INT(RND(1)*10)+10:R1=INT(RND(1)*10)
- 4321 IF AD=3 THEN R2=INT(RND(1)*10)+10:R1=INT(RND(1)*10)
- 4330 PRINT "}PRESS RED BUTTON TO CALCULATE"
- 4331 PRINT " YOU LOSE n ";R1;" AND HE LOSES n ";R2;" ";
- 4340 IF STRIG(0)=0 THEN 4360
- 4350 GOTO 4310
- 4360 HP=HP-R1:EP=EP-R2:GOSUB 7930:GOTO 4160
- 4990 FOR A=1 TO 300:NEXT A:RETURN
- 5000 TRAP 5999:GRAPHICS 0:SETCOLOR 2,0,0:POKE 82,2
- 5005 S(1)=100:S(2)=50:S(3)=90:S(4)=500:S(5)=600
- 5010 ? :? "YOU MAY BUY THE FOLLOWING"
- 5015 ? :? "# ITEM PRICE"
- 5020 ? "09-METAL AXE":? "10-STRINGY ROPE":? "11-OLD LAMP":? "12-SMALL STRAW RAFT":? "13-FIRST AID"
- 5025 FOR A=1 TO 5:POSITION 25,A+4:? S(A)+PL:NEXT A
- 5030 ? "ITEM # YOU WOULD LIKE TO BUY(9-13)";:INPUT I:IF I<9 OR I>13 THEN 5000
- 5035 IF GD-(S(I-8)+PL)<0 THEN ? "YOU DON'T HAVE ENOUGH GOLD...":GOTO 6100
- 5040 GD=GD-(S(I-8)+PL):B(I)=B(I)+1:IF I=13 THEN EX=EX+240:GOTO 6100
- 5999 RETURN
- 6000 DATA ALCEMNON'S DIARY,PAN'S FLUTE,SAFRON'S CLOAK,THE SCROLL OF TRUTH,AMADAS,FLARE GUN,GOGMAGOG,KEY TO E
- 6005 DATA METAL AXE(S),STRINGY ROPE(S),OLD LAMP(S),STRAW RAFT(S),FIRST AID KIT(S)
- 6010 POKE 82,2:RESTORE :GRAPHICS 0:SETCOLOR 2,0,0:? " INVENTORY":? :? "ITEM AMOUNT":?
- 6030 FOR A=1 TO 13:READ W$:IF B(A)<1 THEN NEXT A:GOTO 6050
- 6035 IF CNT=0 THEN CNT=4
- 6040 ? W$:POSITION 22,CNT:? B(A):LET CNT=CNT+1:NEXT A
- 6050 ? :? "YOU HAVE ";GD;" GOLD PIECES":? "POWER:";EX:? "DAY:";DAY:?
- 6100 ? "PRESS RETURN TO CONTINUE";
- 6101 LET CNT=0
- 6110 CLOSE #1:OPEN #1,4,0,"K:":GET #1,K:CLOSE #1:RETURN
- 7000 POKE 559,37:NX=X:NY=Y:ZAP=MAP:CO=85:K=PEEK(764):IF K<>255 THEN POKE 764,255:GOSUB 7250
- 7002 TM=TM+1:IF TM>20 THEN DAY=DAY+1:IF TM>20 THEN EX=EX+2:TM=0
- 7003 IF KL=0 THEN GOSUB 7500
- 7004 IF HIT=1 THEN GOTO 4000
- 7005 IF DK=1 AND B(11)=0 THEN SETCOLOR 1,0,0
- 7006 TRAP 7006:IF D=1 AND X<1 AND B(4)=1 THEN POKE 1792,1:GOSUB 204:RUN "D:START"
- 7008 A=STICK(N0):IF A=14 THEN NY=NY-1:GOTO 7100
- 7009 IF A=13 THEN NY=NY+1:GOTO 7100
- 7010 IF A=11 THEN NX=NX-1:GOTO 7100
- 7011 IF A=10 THEN NY=NY-1:NX=NX-1:GOTO 7100
- 7012 IF A=6 THEN NY=NY-1:NX=NX+1:GOTO 7100
- 7013 IF A=9 THEN NY=NY+1:NX=NX-1:GOTO 7100
- 7014 IF A=5 THEN NY=NY+1:NX=NX+1:GOTO 7100
- 7015 IF A=7 THEN NX=NX+1:GOTO 7100
- 7016 IF STRIG(0)=0 THEN SETCOLOR 4,4,5:PRINT "} YOU PUSHED THE RED BUTTON!!!!!":GOSUB 7920:SETCOLOR 4,0,0
- 7050 GOTO 7000
- 7100 TR=0
- 7106 HIT=N0:? "}";:C=PEEK(ADD+NX+(NY*128)):IF C<>N0 THEN 7300
- 7110 IF NX<N0 OR NY<N0 OR NY>79 OR NX>127 THEN NX=X:NY=Y:GOTO 7130
- 7120 SOUND 1,INT(RND(100)*10),8,7:POKE ADD+NX+(NY*128),CO:SOUND 1,0,0,0:POKE ADD+X+(Y*128),OC:OC=C:X=NX:Y=NY
- 7130 SY=INT((ZAP-ADD)/128):SX=(ZAP-ADD)-SY*128
- 7140 IF NX<SX+4 THEN ZAP=ZAP-1:FL=1:GOSUB 15030
- 7150 IF NX>SX+27 THEN ZAP=ZAP+1:FL=1:GOSUB 15030
- 7160 IF NY<SY+3 THEN ZAP=ZAP-128:FL=0:GOSUB 15030
- 7170 IF NY>SY+16 THEN ZAP=ZAP+128:FL=0:GOSUB 15030
- 7198 IF STRIG(0)=0 THEN SETCOLOR 4,4,5:PRINT "} YOU PUSHED THE RED BUTTON!!!!!":GOSUB 7920:SETCOLOR 4,0,0
- 7199 GOTO 7000
- 7200 PRINT "}"
- 7235 RI=N0:KL=0:ZAP=MAP:GOSUB 15030
- 7236 POKE ADD+X+(Y*128),85:GOSUB 15030
- 7237 FOR A=1 TO 9
- 7238 L=INT(RND(1)*10230)+28673:IF PEEK(L)<>0 THEN 7238
- 7239 TR(A)=L:POKE L,26
- 7240 NU(A)=INT(RND(1)*150)+2
- 7241 NEXT A:RETURN
- 7250 IF K=62 THEN 200
- 7255 IF K=40 AND B(1)=1 THEN GOSUB 11000
- 7260 IF K=13 THEN GOSUB 6000:GOSUB 32010
- 7270 IF K=45 AND TR=1 THEN GOSUB 5000:GOSUB 32010
- 7290 POKE 764,255:RETURN
- 7300 IF C<>62 OR D=3 THEN 7307
- 7301 IF D=1 AND B(1)=0 THEN ? "}",,," YOU HAVE BURNED IN THE DEADLY FIRES OF THE VOLCANO!!!":GOSUB 7920:GOSUB 7910:GOTO 9000
- 7302 IF D=1 AND B(1)=1 THEN ? "}";:? " DO YOU WISH TO ENTER? (YnN)"
- 7303 IF D=1 THEN GOSUB 6110:IF D=3 THEN GOTO 7307
- 7304 IF K=89 THEN D=3:F$="D:ISLE.MA3":POKE 559,0:LET MAP=32560:X=63:Y=40:GOSUB 20000:GOSUB 7200:POKE 559,37:OC=0:GOSUB 8000:GOTO 7000
- 7305 IF K=78 THEN ? "}":GOTO 7000
- 7306 IF D=1 THEN GOTO 7303
- 7307 IF C<>62 THEN GOTO 7313
- 7308 IF D=3 AND B(1)=1 THEN ? "}";:? " DO YOU WISH TO ENTER? (YnN)"
- 7309 GOSUB 6110
- 7310 IF K=89 THEN D=1:F$="D:ISLE.MA1":POKE 559,0:LET MAP=30536:X=93:Y=19:GOSUB 20000:GOSUB 7200:POKE 559,37:OC=0:GOSUB 8000:GOTO 7000
- 7311 IF K=78 THEN ? "}":GOTO 7000
- 7312 GOTO 7309
- 7313 LOC=NX+ADD+(NY*128)
- 7314 IF C<>26 THEN 7319
- 7315 FOR A=1 TO 9:IF LOC<>TR(A) THEN NEXT A:GOTO 7110
- 7316 GOSUB 7940:? "}YOU HAVE FOUND ";NU(A);" GOLD PIECES":GD=GD+NU(A):C=0
- 7319 IF D=4 AND B(12)<>0 THEN CO=85:IF C>85 AND C<96 OR C>63 AND C<85 THEN PRINT "GOOD LUCK!":LET CO=112:GOTO 7110
- 7320 IF C>85 AND C<96 OR C>63 AND C<85 THEN PRINT "}ARE YOU GOING TO SWIM?":GOSUB 7928:LET EX=EX-5:GOTO 7000
- 7322 IF C=84 THEN GOTO 7110
- 7323 IF C=109 THEN ? "}YOU HAVE SHOT ALCEMNON'S FLARE GUN!!":GOSUB 1000:GOSUB 204:POKE 1792,1:RUN "D:START"
- 7324 IF C=108 THEN PRINT "}YOU PICKED UP SAFRON'S CLOAK!":GOSUB 7920:LET B(3)=1:LET C=0:LET EX=EX+100:GOTO 7110
- 7330 IF D=3 AND C=117 AND MN=0 AND B(2)=1 THEN POKE XM+ADD+(YM*128),0:LET MN=1:LET NY=NY+1:C=0:GOSUB 7700:GOTO 7332
- 7331 IF D=3 AND C=117 AND MN=1 THEN POKE XM+ADD+(YM*128),0:LET MN=0:LET NY=NY-1:GOSUB 7700:C=0:GOTO 7332
- 7332 IF D=3 AND C=117 AND MN=0 AND B(2)=0 THEN PRINT "}YOU MAY NOT ENTER WITHOUT PAN'S FLUTE!":GOSUB 7938:GOTO 7000
- 7334 IF C<>107 THEN GOTO 7340
- 7335 IF C=107 THEN B(1)=1:? "}YOU HAVE FOUND ALCEMNON'S DIARY!";:EX=EX+125:GOSUB 7930:? "DO YOU WISH TO READ IT?(YnN)"
- 7336 GOSUB 6110:IF K=89 THEN C=0:GOSUB 11000:GOTO 7110
- 7337 IF K=78 THEN C=0:? "}":GOTO 7110
- 7340 IF C=122 THEN ? "}YOU HAVE FOUND PAN'S FLUTE!!!":EX=EX+150:GOSUB 7916:LET B(2)=1:LET C=0:GOTO 7110
- 7345 IF C=119 AND DK=0 AND D=1 THEN NX=NX-1:DK=1:C=0:GOTO 7360
- 7347 IF C=119 AND DK=1 AND D=1 THEN NX=NX+1:DK=0:SETCOLOR 1,0,10:C=0
- 7348 IF D<>3 THEN GOTO 7360
- 7349 IF C<>118 THEN GOTO 7360
- 7350 IF D=3 AND C=118 THEN ? "}DO YOU WISH TO ENTER?"
- 7351 IF D=3 AND C=118 THEN GOSUB 6110
- 7352 IF K=89 THEN D=4:F$="D:ISLE.MA4":POKE 559,0:LET MAP=28672:X=15:Y=8:GOSUB 20000:GOSUB 7200:POKE 559,37:OC=0:GOSUB 8000:GOTO 7000
- 7354 IF K=78 THEN ? "}":GOTO 7000
- 7355 GOTO 7351
- 7360 IF C=13 THEN ? "}WELCOME!!!":TR=1:GOTO 7110
- 7361 IF D=2 THEN CLK=1
- 7364 IF D=4 AND C=118 THEN GOTO 7366
- 7365 GOTO 7371
- 7366 IF C=118 THEN ? "}DO YOU WISH TO ENTER? (YnN)"
- 7367 IF C=118 THEN GOSUB 6110
- 7368 IF K=89 THEN D=3:F$="D:ISLE.MA3":POKE 559,0:LET MAP=36416:X=79:Y=68:GOSUB 20000:GOSUB 7200:POKE 559,37:OC=0:GOSUB 8000:GOTO 7000
- 7369 IF K=78 THEN ? "}":GOTO 7000
- 7370 IF C=118 THEN GOTO 7367
- 7371 IF SHIP=C THEN GOSUB 4010:GOTO 7000
- 7372 IF D=4 AND C=120 THEN ? "}DO YOU WISH TO ENTER? (YnN)"
- 7373 IF D=4 AND C=120 THEN GOSUB 6110
- 7374 IF K=89 THEN D=2:F$="D:ISLE.MA2":POKE 559,0:LET MAP=29534:X=103:Y=16:GOSUB 20000:GOSUB 7200:POKE 559,37:OC=0:GOSUB 8000:GOTO 7000
- 7375 IF K=78 THEN ? "}":GOTO 7000
- 7376 IF D=4 AND C=120 THEN GOTO 7373
- 7377 IF D=4 AND C=121 THEN ? "}DO YOU WISH TO ENTER? (YnN)"
- 7378 IF C=121 THEN GOSUB 6110
- 7379 IF K=89 THEN D=2:F$="D:ISLE.MA2":POKE 559,0:LET MAP=28681:X=36:Y=1:GOSUB 20000:GOSUB 7200:POKE 559,37:OC=0:GOSUB 8000:GOTO 7000
- 7380 IF D=2 AND C=120 THEN ? "}DO YOU WISH TO ENTER? (YnN)"
- 7381 IF C=120 THEN GOSUB 6110
- 7382 IF K=89 THEN D=4:F$="D:ISLE.MA4":POKE 559,0:LET MAP=36352:X=2:Y=74:GOSUB 20000:GOSUB 7200:POKE 559,37:OC=0:GOSUB 8000:GOTO 7000
- 7383 IF K=78 THEN ? "}":GOTO 7000
- 7384 IF C=120 THEN GOTO 7381
- 7385 IF D=2 AND C=118 THEN ? "}DO YOU WISH TO ENTER?"
- 7386 IF C=118 THEN GOSUB 6110
- 7387 IF K=89 THEN D=4:F$="D:ISLE.MA4":POKE 559,0:LET MAP=36352:X=14:Y=74:GOSUB 20000:GOSUB 7200:POKE 559,37:OC=0:GOSUB 8000:GOTO 7000
- 7388 IF K=78 THEN ? "}":GOTO 7000
- 7389 IF C=118 THEN GOTO 7386
- 7390 IF C=30 OR C=111 OR C=112 OR C=114 OR C=115 THEN PRINT "}OUCH!!!":FOR A=15 TO N0 STEP -1:SOUND N0,10,8,A:NEXT A:GOTO 7000
- 7391 IF C=98 OR C=96 OR C=59 OR C=15 OR C=11 OR C=10 OR C>2 AND C<7 THEN PRINT "}ARE YOU GOING TO DIG?":GOSUB 7938:LET EX=EX-5:GOTO 7000
- 7392 IF C=97 OR C=113 THEN CO=85:IF B(3)=0 THEN PRINT "}WINGED DEMONS HAVE EATEN YOU!!":GOSUB 7926:GOTO 9000
- 7393 IF C=97 OR C=113 AND B(4)<>0 THEN GOTO 7110
- 7398 LET EB=EB+1:IF EB=10 THEN ? "}YOUR STATUS IS CURRENTLYn DAYn ";DAY;" GOLDn ";GD;" POWERn ";EX:LET EB=0:GOSUB 7930
- 7400 GOTO 7110
- 7430 OPEN #1,8,0,"D:PASS":? #1;GD:? #1;EX:? #1;DAY:? #1;KI:CLOSE #1:RETURN
- 7460 FOR A=1 TO 10:FOR B=15 TO 0 STEP -1:SOUND 0,15,2,B:SOUND 0,20,2,B:NEXT B:NEXT A:RETURN
- 7500 IF RI=0 THEN RI=1:GOSUB 7700:MX=XM:MY=YM
- 7510 AP=INT(RND(1)*5):ON AP GOTO 7550,7555,7560,7565:RETURN
- 7540 IF K=78 THEN GOTO 7000
- 7550 MX=XM-1:IF NX>MX THEN MX=XM+1:GOTO 7590
- 7555 MY=YM-1:IF NY>MY THEN MY=YM+1:GOTO 7590
- 7560 MX=XM+1:IF NX<MX THEN MX=XM-1:GOTO 7590
- 7565 MY=YM+1:IF NY<MY THEN MY=YM-1:GOTO 7590
- 7590 HIT=0:CM=PEEK(ADD+MX+(MY*128)):IF MX=NX AND MY=NY THEN MX=XM:MY=YM:HIT=1:RETURN
- 7591 IF CM<>0 THEN MX=XM:MY=YM:RETURN
- 7592 IF X>XM-30 AND X<XM-5 OR X<XM+30 AND X>XM+5 THEN TS=TS+1:IF TS=7 THEN ? "}";C$;" IS VERY CLOSE!!":GOSUB 7926
- 7593 IF Y>YM-30 AND Y<YM-5 OR Y<YM+30 AND Y>YM+5 THEN TS=TS+1:IF TS=7 THEN ? "}";C$;" IS VERY CLOSE!!":GOSUB 7926
- 7595 POKE ADD+MX+(MY*128),SHIP:POKE ADD+XM+(YM*128),OCM:OCM=CM:XM=MX:YM=MY:RETURN
- 7700 IF D=1 THEN SHIP=104:XM=82:YM=13:OCM=N0:PT=2000:C$="A HARRIS":FGT$="THE HARRIS":RETURN
- 7710 IF D=4 THEN XM=100:YM=44:SHIP=105:OCM=N0:PT=1500:C$="A GUARD":FGT$="THE GUARD":RETURN
- 7720 IF D=2 THEN SHIP=104:XM=82:YM=13:OCM=N0:PT=2000:C$="A HARRIS":FGT$="THE HARRIS":RETURN
- 7730 IF D=3 AND MN=0 THEN XM=110:OCM=N0:YM=10:SHIP=106:PT=5000:C$="A SATYR":FGT$="THE SATYR":RETURN
- 7731 IF D=3 AND MN=1 THEN XM=100:OCM=N0:YM=65:SHIP=116:PT=1500:C$="A GIANT MED FLY":FGT$="THE MED FLY":RETURN
- 7740 KL=1:RI=0:GOTO 7000
- 7900 FOR S1=14 TO 0 STEP -2:FOR S=1 TO 20:SOUND 0,S,10,S1:NEXT S
- 7905 FOR S=10 TO 30:SOUND 1,S,10,S1:NEXT S:NEXT S1:RETURN
- 7910 FOR S1=15 TO 0 STEP -1:FOR S=1 TO 10:SOUND 0,S,10,S1:NEXT S
- 7915 FOR S=20 TO 30:SOUND 1,S,10,S1:NEXT S:NEXT S1:RETURN
- 7916 FOR S1=15 TO 0 STEP -1:FOR S=1 TO 10:SOUND 0,S,10,S1:NEXT S
- 7917 FOR S=15 TO 25:SOUND 1,S,10,S1:NEXT S:NEXT S1:RETURN
- 7920 FOR S1=10 TO 0 STEP -1:FOR S=10 TO 20:SOUND 0,S,10,S1:NEXT S
- 7925 FOR S=25 TO 45:SOUND 1,S,10,S1:NEXT S:NEXT S1:RETURN
- 7926 FOR S1=15 TO 0 STEP -1:FOR S=10 TO 8:SOUND 0,S,10,S1:NEXT S
- 7927 FOR S=30 TO 35:SOUND 1,S,10,S1:NEXT S:NEXT S1:LET TS=0:RETURN
- 7928 FOR S1=15 TO 0 STEP -5:FOR S=90 TO 95:SOUND 0,S,10,S1:NEXT S
- 7929 LET S=INT(RND(1*10)*10):FOR S=S TO 15:SOUND 1,S,10,S1:NEXT S:NEXT S1:LET TS=0:RETURN
- 7930 FOR S1=15 TO 0 STEP -1:FOR S=3 TO 8:SOUND 0,S,10,S1:NEXT S
- 7935 FOR S=35 TO 45:SOUND 1,S,10,S1:NEXT S:NEXT S1:RETURN
- 7936 FOR S1=15 TO 0 STEP -1:FOR S=10 TO 15 STEP -1:SOUND 0,S,10,S1:NEXT S
- 7937 FOR S=20 TO 30:SOUND 1,S,10,S1:NEXT S:NEXT S1:RETURN
- 7938 FOR S1=15 TO 0 STEP -3:FOR S=10 TO 15 STEP -1:SOUND 0,S,10,S1:NEXT S
- 7939 FOR S=25 TO 30:SOUND 1,S,10,S1:NEXT S:NEXT S1:LET TS=0:RETURN
- 7940 FOR S1=15 TO 0 STEP -3:FOR S=40 TO 30 STEP -1:SOUND 0,S,10,S1:NEXT S
- 7943 FOR S=15 TO 25:SOUND 1,S,10,S1:NEXT S:NEXT S1:SOUND 1,0,0,0:SOUND 0,0,0,0:RETURN
- 7950 FOR S1=10 TO 0 STEP -1:FOR S=90 TO 95:SOUND 0,S,10,S1:NEXT S
- 7952 FOR S=100 TO 95 STEP -1:SOUND 1,S,10,S1:NEXT S
- 7954 FOR S=40 TO 35 STEP -1:SOUND 2,S,10,S1:NEXT S:NEXT S1:RETURN
- 7960 FOR B=10 TO 0 STEP -1:SOUND 0,B+5,2,B:SOUND 0,B+10,2,B:NEXT B:RETURN
- 7961 FOR S1=0 TO 15:FOR S=200 TO 205:SOUND 0,S,10,S1:SETCOLOR 2,S1,S-200:NEXT S
- 7962 FOR S=205 TO 210:SETCOLOR 2,S1,S-200:SOUND 1,S,10,S1:NEXT S
- 7963 FOR S=210 TO 215:SETCOLOR 2,0,0:SOUND 2,S,10,S1:NEXT S:NEXT S1:RETURN
- 7970 FOR B=15 TO 0 STEP -0.5:SOUND 0,B+90,8,B:SOUND 1,B+2,8,B:NEXT B:RETURN
- 7980 FOR S1=0 TO 15:FOR S=200 TO 205:SOUND 0,S,10,S1:SETCOLOR 2,S1,S-200:NEXT S
- 7982 FOR S=205 TO 210:SETCOLOR 2,S1,S-200:SOUND 1,S,10,S1:NEXT S
- 7984 FOR S=210 TO 215:SETCOLOR 2,0,0:SOUND 2,S,10,S1:NEXT S:NEXT S1:RETURN
- 7990 FOR S=N0 TO 300:NEXT S:RETURN
- 8000 IF D=1 AND B(1)=0 THEN POKE 38481,107:? "}"
- 8005 IF D=3 AND B(2)=0 THEN POKE 36108,122
- 8010 IF D=2 AND B(6)=0 THEN POKE 36460,109
- 8015 IF D=4 AND CLK=1 AND B(3)=0 THEN POKE 31204,108
- 8020 REM IF D=3 AND B(8)=0 THEN POKE 30093,103
- 8025 REM IF D=3 AND B(1)=0 THEN POKE 31164,107
- 8030 RETURN
- 9000 POKE 752,1:? "}YOU ARE DEAD!!!!!";:GOSUB 7950
- 9010 ? " PRESS ÓÔÁŇÔ TO REINCARNATE";
- 9020 IF PEEK(53279)=6 THEN RUN
- 9030 IF PEEK(53279)=3 THEN ? "}MARC BENIOFF GREETS YOU>>>>>>":GOSUB 7910:GOSUB 32010:GOTO 7000
- 9040 GOTO 9020
- 9050 GOTO 9050
- 11000 GRAPHICS 0
- 11020 SETCOLOR 2,0,0
- 11030 PRINT " ALCEMNON'S DIARY"
- 11040 ? :?
- 11050 ? "DAY 410: IT HAS BEEN OVER A YEAR SINCE ICAME TO THIS ISLAND TO RETREAT FROM CIVILIZATION. I HAVE FINALLY";
- 11060 ? " BEEN ABLE TO MAKE FRIENDS WITH THE NATIVES, AND THEY WILL NOW GREET ME WHEN I ENTER THEIR HUTS. I ";
- 11070 PRINT "HAVE TO FIGHT THE HARRIS MONSTERS EVERY DAY, BUT MY RESILIENCE HAS GROWN."
- 11075 PRINT
- 11080 ? "DAY 536: AS I LIE HERE ON MY DEATH BED, I FEEL I HAD JUST BEEN ATTACKED MY THE HARRIS' TOO MANY TIMES. I";
- 11090 ? " LEAVE A MESSAGE TO ANY ONE THAT IS STRANDED ON THIS ISLAND BY ACCIDENY OR OTHER WISE, MY MESSAGE IS :"
- 11100 ? :? " TRY THE OTHER SIDE!"
- 11101 ? :? :? "PRESS RETURN TO CONTINUE":POKE 752,1
- 11102 POKE 752,1:GOSUB 6110
- 11103 ? "}"
- 11110 ? :? "OH YES, THIS DIARY WILL ALLOW YOU TO TRAVEL THROUGH THE VOLCANO IF","NECCESSARY, MY QUEST FOR SARFON'S"
- 11120 PRINT "CLOAK STILL ELUDES ME....."
- 11130 PRINT :PRINT
- 11140 PRINT "PRESS RETURN TO CONTINUE"
- 11150 GOSUB 6110
- 11160 GOSUB 32010:RETURN
- 12000 F$="D:ISLE.MA1":LET MAP=34396:POKE 559,0:X=103:Y=60
- 12010 GOSUB 20000
- 12030 OC=0:HIT=0:KL=0:OCM=0:MN=0
- 12060 GOSUB 8000
- 12065 GOSUB 7200
- 12066 POKE 559,37
- 12070 GOTO 7000
- 15000 BH=INT(ZAP/256):BL=ZAP-(BH*256):RETURN
- 15030 GOSUB 15000:IF ZAP<28672 THEN ZAP=MAP:RETURN
- 15040 IF ZAP>36479 THEN ZAP=MAP:RETURN
- 15050 IF BL=225 OR BL=97 THEN IF FL=1 THEN ZAP=MAP:RETURN
- 15060 IF BL=127 OR BL=255 THEN IF FL=1 THEN ZAP=MAP:RETURN
- 15080 MAP=ZAP:POKE N0,BL:POKE 1,BH:U=USR(1664):RETURN
- 20000 C$="h˘LVä":OPEN #1,4,N0,F$:GET #1,A:GET #1,A:GET #1,A:GET #1,B:GET #1,C:GET #1,DE:POKE 850,7
- 20010 LOW=B*256+A:HI=DE*256+C:BLEN=HI-LOW:F=INT(BLEN/256):E=BLEN-256*F:POKE 856,E:POKE 857,F:POKE 852,A:POKE 853,B
- 20020 B=USR(ADR(C$)):CLOSE #1:RETURN
- 32010 IF DK=1 AND B(11)=0 THEN SETCOLOR 1,0,0
- 32020 POKE 560,0:POKE 561,6:POKE 559,37:POKE 752,3:POKE 756,152:POKE 703,4:POKE 82,0:SETCOLOR 2,0,0:? "}":RETURN
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement