ZXTape!Drake K KsM 1000  ( 1500 2 9000(# < h=1 F P 2000 Z 2500 d 3000 n x 3500 4000 4500 5000 5500| 9000(# h=h+1 70F "Ship ";x;" has sunk." y(5,3) e(5,3) d(100d)  p1=1 p2=100d x=15 $y(x,1)=1 .e(x,1)=1 8df1=(*6)+1 Bdf2=(*6)+1 L p1=p1+df1 V p2=p2-df2 `e(x,2)=(p1/10 ) jy(x,2)=(p2/10 ) t'e(x,3)=p1-e(x,2)*10 ~'y(x,3)=p2-y(x,2)*10 x  "DRAKE'S RETURN" '"You are the commander of a"'"patrol of five ships of the linein the reign of Elizabeth I. Youdirect the movements of your"'"ships to overcome a Spanish"'"patrol. The ships fire their"'"broadsides when in reasonable"'"range." 6T'"Your ships are numbered 1-5 on the simple display; enemy ships are marked 'E'." T5"Be careful not to lose your"'"flagship, ship 1..." rN'"When you give your orders, use the normal abbreviations (N, S, NE etc.)."  "Dispositions:" x=1100d d(x)=0 x x=15 "y(x,1)<02070  1d(y(x,2)*10 +y(x,3)+1)=x x  x=15 *"e(x,1)<02110> 48d(e(x,2)*10 +e(x,3)+1)=-1 >x Hx=1100d Rd(x)=0"."; \d(x)>0d(x); fd(x)=-1"E"; px/10 =(x/10 ) zx   x=15 "y(x,1)<02640P ("What are your orders for ship ";x;"?" a$ s=y(x,2) t=y(x,3) 3(a$="n"a$="N")s>0y(x,2)=s-1 3(a$="s"a$="S")s<9 y(x,2)=s+1 4(a$="e"a$="E")t<10 y(x,3)=t+1 3(a$="w"a$="W")t>0y(x,3)=t-1 (4(a$="ne"a$="NE")s>0t<10 9500% 24(a$="se"a$="SE")s<9 t<10 9550N% <3(a$="sw"a$="SW")s<9 t>19600% F3(a$="nw"a$="NW")s>0t>19650% Px Z s=y(1,2) s=y(1,3) x=15 "e(x,1)<03110& m=(s-e(x,2)) n=(s-e(x,3)) c=15 &e(c,1)<0c=x3090 Ee(c,2)=e(x,2)+me(c,3)=e(x,3)+n9700% c e(x,2)=e(x,2)+m &e(x,3)=e(x,3)+n 0x : x=14 "y(x,1)<03600 y=x+15 "y(y,1)<03550 Ay(x,2)=y(y,2)y(x,3)=y(y,3)6000p y y=15 "e(y,1)<03590 Ay(x,2)=e(y,2)y(x,3)=e(y,3)6100 y x  x=15 "y(x,1)<04060 y=15 "e(y,1)<04050 W(y(x,2)-e(y,2))2ƽ(y(x,3)-e(y,3))26500d y x  x=15 "y(x,1)<04530 <y(x,1)<.5"Ship ";x;" reports severe damage." x  x=15 :y(x,1)ǥ/10 y(x,1)07000X x x=15 :e(x,1)ǥ/10 e(x,1)07100 x  | t=0 x=15 !e(x,1)>0t=1 x t=07500L (y(1,1)<07600  p("Ships ";x;" and ";y;" have collided." zy(x,1)=-100d y(y,1)=-100d  1"Ship ";x;" has collided with an"'"enemy ship." y(x,1)=-100d e(y,1)=-100d  dfrf=1/(.01z# =+((y(x,2)-e(y,2)))^3+((y(x,3)-e(y,3)))^3) np1=y(x,1)*rf xp2=e(y,1)*rf 'y(x,1)=y(x,1)-p2/20 'e(y,1)=e(y,1)-p1/20 %"Ship ";x;" has engaged the enemy."  by(x,1)=-100d l "An enemy vessel has sunk." e(x,1)=-100d  L9'"You have destroyed the enemy"'"fleet in ";h;" hours." j 8000@ %'"The flagship has been destroyed."  8000@ @'"Do you want another game?" Ta$ ^*a$""a$(1)="y"a$(1)="Y" h 10000' #('"Press a key to continue." #<=""9020<# #F %y(x,2)=s-1 %&y(x,3)=t+1 %0 %Ny(x,2)=s+1 %Xy(x,3)=t+1 %b %y(x,2)=s+1 %y(x,3)=t-1 % %y(x,2)=s-1 %y(x,3)=t-1 % % m=0 % n=0 % '