PIRATE's GOLD

[P0]

10 VAC

15 PRINT "PIRATEs'GOLD";

20 X=1:Y=16:M=6:N=15

50 C$="":P=(N-Y)/ABS(M-X+.01)

60 IF P>.2;C$="\DA":IF P>1.3;C$=C$+"\DA"

65 IF P<-.2;C$="^":IF P<-1.3;C$=C$+"^"

70 P=(M-X)/ABS(N-Y+.01)

75 IF P>.2;C$=C$+"\RA":IF P>1.3;C$=C$+"\RA"

80 IF P<-.2;C$=C$+"\LA":IF P<-1.3;C$=C$+"\LA"

90 E=INT(SQR((N-Y)^2+(M-X)^2)+RAN#*2-1)

100 V=X-1:W=Y:GOSUB #1:A$=" ":IF Z$="#";A$="\DT"

105 V=X+1:W=Y:GOSUB #1:B$=" ":IF Z$="#";B$="\DT"

110 K=0:V=X:W=Y-1:GOSUB #1:IF Z$="#";K=1

115 W=Y+1:GOSUB #1:IF Z$="#";K=K+2

120 $=" '.:"

125 PRINT:PRINT C$;CSR 4;"[";A$;MID(K+1,1);B$;"]";ABS(E);

130 $=KEY:IF $="" THEN 130

135 IF $="2";IF K<2;Y=Y+1

140 IF $="4";IF A$<>"\DT";X=X-1

145 IF $="6";IF B$<>"\DT";X=X+1

150 IF $="8";IF 0=FRAC(K/2);Y=Y-1

155 IF $="A";GOSUB #2

160 GOTO 50

[P1]

1 GOSUB 2+INT(W/3):L=10*(W-3*INT(W/3)):Z$=MID(L+V+1,1):RETURN

2 $="###########..###...##........#":RETURN

3 $="####.##..##....######.###....#":RETURN

4 $="#........######.#..###....####":RETURN

5 $="##.#########...#########.##..#":RETURN

6 $="####.....#####.#...#####..##.#":RETURN

7 $="#####..####.....##############":RETURN

[P2]

5 IF RAN#>.6-Y/30 THEN 30

10 PRINT:PRINT "sS Viper!"

15 W=INT(RAN#*18):IF W<Y THEN 15

20 V=INT(RAN#*10):GOSUB #1:IF Z$="#" THEN 15

25 X=V:Y=W:RETURN

30 IF RAN#<.5 THEN 40

35 IF X=M;IF Y=N;GOSUB F+50:PRINT:PRINT $:RETURN

40 PRINT:PRINT "None.":RETURN

50 F=1:M=8:N=1:$="GetBox(XY)!":RETURN

51 F=2:M=6:N=15:$="\SQ\LANeedKey..":RETURN

52 F=3:M=2:N=1:$="GetKey(XY)!":RETURN

53 F=4:M=8:N=1:$="\MU GetKey!!":RETURN

54 PRINT:PRINT "Get $Golds$ Clear!":END