ZXTape! 0Created with Ramsoft MakeTZXship 8\a 8#2# # <@?I&&(&fJ\\\Ǒ\ƑU'888\D/yX![!PP!!(崀'cLzoEHW K SR P  Richard Shepherd 1982 2236099\,255 323613=\,0 75:1:7 Km=502:v=0 Pprize=0 U'wa=30:am=10 :ra=10 c 2000 d23613=\,0 ewa=wa-1 fwa<01500 g 2090* h23613=\,0 ia=(*20)+1 ngun=a*10 sr=gun/5 xs=(a/4) }ss=r s=0s=1 sc=s 3000 s>1150 %"You engage a ship of ";gun;" guns" 160 '"You engage a fleet of "; s;" ships" "Total power of ";gun;" guns" R"You have ";:1:m;:0:" men and ";:1:am;:0:" tons" "of ammunition" ;"The enemy has ";:1:s;:0:" ship(s) left" 1 )"What are your orders":r$;"?":0 9000(#:8000@ 23613=\,0:a$ a$=" "170 a$="run"3700t a$="board"600X a$="sbh127m"9999' $8200 :9700%:1000 23613=\,0  4" ";:1:"The battle continues":0 502:160 1:7::1 "The enemy surrenders" =m-(sc*10 )-(ra*2)>0ƥ>.52500 )"Press any key to continue":9600% 23613=\,0 0::0 v=v+sc  101e X [2::7:0 ].1,2;"You lead a boarding party" ^ _R"You have ";:1:m;:0:" men and ";:1:am;:0:" tons" `"of ammunition":: aA"Press ""R"" to return to your ship":"Press ""C"" to carry on" b0:="r"850R c 700 d23613=\,0 e#(*75K)=12 870f f2::7 g'"There is a fierce battle":606^ *23613=\,0:r=r-(*ra/2) r0r=1 &100d*(r/ss)<75K800  /m=m-(*m/10 ):mra*21100L   ss=r:s=s-1:2::7:2,2;"You have gained control of":3,2;"the enemy ship":9600%:23613=\,0:900 R#(*75K)=12 870f \:5:7:1 ] 184 zN2::7:"Unfortunately,you are wounded in action and captured" ~F1:21,3;"Press any key for another game":0  0 : s0500  %"The enemy has ";s;" ship(s) left"  31:"What are your orders ":r$;"?":0 : L"Press ""R"" to return to your ship":"Press ""C"" to attack another ship"  0 -="r"5:1:7:184 ="c"940  936 g2::7:1,2;"You lead a boarding party to":2,2;"the next ship"  606^ "23613=\,0:r=r-(*ra) &s=(r/8):s<1s=1 $(*75K)=12 9500% r0500 m=m-(*m/10 ) mra*21100L am=am-((*ra))/10 #am=(am*10 ):am=am/10 am01200  L1:7::1 Q,"You have insufficient men to continue" R 1210 1:7::1 ""You have run out of ammunition" "You are forced to surrender" ""Press any key for another game" 0:0 : 1:7::1 )"You have run out of food and water" ,"Your crew mutiny and you are murdered" 421,0;"Press any key for another game" 0:0 : N23613=\,0:ra=10 r$="Midshipman":m=502:s$="a cutter" 8ra=15r$="Lieutenant":s$="a brig":m=100d Era=20r$="Lieutenant Commander":s$="a frigate":m=150 @ra=25r$="Commander":s$="a large frigate":m=200 Ara=30r$="Captain":s$="a ship of the line":m=300, Gra=35#r$="Commodore":s$="a fleet of three ships":m=400 Fra=40(r$="Rear Admiral":s$="a fleet of 5 ships":m=500 Gra=45-r$="Admiral":s$="the Mediterranean Fleet":m=1000 % *23613=\,0 / 4)2,2;"You hold the rank of" 9/2;r$;" in the":2;"Navy c.1805" :"2;"You are in command of" ; 2;s$ <22;"with a crew of ";:1:m:0 =(2;"You have food and water for" >.2;"";:1:wa;:0:" days" ?:2;"You have ";:1:am;:0:" tons of" @2;"ammunition" A!8000@:23613=\,0 B 1 C/21,2;"Press any key to continue" E0:0: G->.56000p:23613=\,0  sc>1c$="ships are" 9600% 23613=\,0:0 sc=1c$="ship is" "The enemy's ";c$;" in good" "condition" R"You may claim prize money,but you will need to leave a prize crew of " -(sc*10 );".Your available crew is ";m +"You need at least ";ra*2;" men to" "work the ship(s)" v=v+sc ;"Prize money will be evaluated when you return to port" ?1:20,0;"Press ""P"" to claim prize money" ("Press any key to continue" - 0 2 0 7="p"2650Z < :101e Zprize=prize+(*sc*500) dm=m-(sc*10 ) n :101e  #(*10 )>53100 s>13050 )"The lookout reports a ship in sight" 3055 2"The lookout reports several ships in sight" 21:"What are your orders":r$;"?":0 9000(# 23613=\,0 a$  /a$="fight"a$="engage"a$="attack"133  3500 )"The lookout reports no ships in sight" 1:s=0 ! "What are your orders":r$;"?" "0:9000(# #23613=\,0:a$ &a$="port"5000 '23613=\,0 + 100d (*ra)>ra/23700t ,"Fortunately,the enemy has not seen you" 1 "Press any key to continue" 0:0: 100d t v"The enemy is pursuing you" y 1 ~ "What are your orders":r$;"?" a$  0 wa=wa-1 /a$="fight"a$="attack"a$="engage"135  (*ra)>ra/23800 wa=wa-1  "The enemy still pursues you"  (*ra)>ra/23750 1:3710~ "The enemy has caught you"  133 "The enemy has lost you"  1 "Press any key to continue" 0:0:100d  ("You have decided to return to port"  6000p 23613=\,0 "(*10 )>5105i  "You have reached port" =prize>0"Your prize money fund now standsat `";prize 0prize>1500"A substantial sum of money" /"All stores and crew will be replenished" &ra/2ra*100dƥ>.55600  5530 @"Their lordships are considering you favourably for promotion" I"However,they have decided that you should take a simple memory test." A1:21,3;"Press any key to continue":0  0  `"A series of letters will be briefly displayed.You must enterthem in their correct order." ?1:21,0;"Press any key when you are ready" 0:0::a$="" n=1̺(ra/5) m=(*26)+97a  a$=a$+m n !(*22),(*20);a$  2000/ra  "Enter the correct sequence" (b$ - 2b$=a$:5500| <*prize>ra*10 ƥ>.55600 A$"You have failed to win promotion" F 5530 |ra=ra+5 ra=5025700D 2:1 "You have won promotion" 0:1:7  9600% 23613=\,0 2000:wa=30 23613=\,0 am=ra 3"You are ordered to return to seaimmediately,";r$  1 "Press any key to continue" 0:0:  100d d"You have not won any promotion, but you can bribe their lordships with your prize money." %"This will cost you `";ra*100d %"Press ""B"" to bribe or press any" "key to continue"  0 0="b"prize=prize-(ra*10 )::5500|  5530 D 8700! E23613=\,0 F 1 G7:0 N510 ,0;"Congratulations,First Sea Lord." S"You have won the game" U0:9600% X421,0;"Press any key for another game" l 0:: p-23613=\,0:b=(*9 )+1 z6000p+b*100d x=(*10 )+1 ("Your ship is becalmed for ";x;" days"  wa=wa-x wa0100d wa01500  7000X 8x=(*10 )+1 B2"Your ship is caught in thick fogfor ";x;" days" L wa=wa-x Pwa0100d Qwa01500 V 7000X x=(m/10 )+1 2"A mutiny breaks out and you lose ";x;" men" m=m-x mra*2100d mra*21100L  7000X x=(m/10 )+1 >"An attack of yellow fever breaksout and you lose ";x;" men" m=m-x mra*2100d mra*21100L  7000X d)x=(am/10 ):x=06000p nN"Part of your powder is found to be wet.You lose ";x;" tons of ammunition" x am=am-x zam0100d {am01200  7000X x=(*10 )+1 E"Your ship requires running repairs.This costs you ";x;" days"  wa=wa-x wa0100d wa01500  7000X ,x=(wa/10 )+1 6d"You find that part of your wateris unfit for human consumption. This wastes ";x;" days of water." ; wa=wa-x <wa0100d =wa01500 @ 7000X x=(m/10 )+1 @"Your crew are affected by sunstroke.You lose ";x;" men" m=m-x mra*2100d mra*21100L  7000X )x=(am/10 ):x=06000p <"In a practice shoot,you lose ";x;" tons of ammunition"  am=am-x  am0100d  am01200  7000X X 1 ]"Press any key to continue" ^%.5,5:.75@,1 l0:0: v @23613=\,0 I 0 J"19,10 ;" " O23613=\,0:6 T#18,10 ;"" Y 1 ^18,10 ;" ooooo" _ 0 c23613=\,0:0 h#17,10 ;"____________" r#17,10 ;" " |123613=\,0:0:80P,32 -15,8 100d,32 0,40( 130,32 0,40(  7: 23613=\,0  6  1  2 18,13 ;"*****"  0 -.5,0:5:.5,0 ! 0 :1:7 D 502: !23613=\,0: "n=0703 "a=(*6)+1 "a "" "; "$n ". #(23613=\,0 #, 5 #-/0,72H:255,0,-.1}L #<n=120 #Faa=(*200) #Pbb=(*70F) #Zcc=(*502) #_aa,bb:cc,0 #dn #es>09100# #f23613=\,0 #j7:1 #n #'23613=\,0:aa=(*10 ) #s<1s=1 # n=1s # 0 # 1 #12 ,aa+n*4;"!!" #n # 0: %(23613=\,0:n=14 %! %&I1:"Your ship has been badly damagedand you are sinking":0 %+n=18000@ %,23613=\,0 %0n=28015O %123613=\,0 %:n=38035c %;23613=\,0 %Dn=48060| %E23613=\,0 %I 100d %Nn %X=1:21,2;"Press any key for another game" %l0:0 %v: %"23613=\,0:cot=0 %n=150210 %.1}L,10 +n %n %cot=cot+1 %cot<59601% % %23613=\,0:2 % n=1s % 1 %12 ,aa+n*4;"*" %1,10 %n % 0 &7:1 & 502: &H5:7:1 &I &J%1,8;"Ship of the line" &K &L" Richard Shepherd 1982" &M &Ox"You are a Naval Officer in command of a ship out on patrol.The objective is to engage and destroy enemy ships." &P="If you do well then you will be considered for promotion." &QN"The main commands are ""engage"" ,""run"",""fire"",""board"",or ""port""." &R"You can only use the command ""port"" if there are no enemy ships in sight":"You must engage the enemy beforeproceeding with your attack" &SA1:21,3;"Press any key to continue":0 &T0:="r"9910& &U: & "ship"23552\,145008 &523613=\,0:.25~,10 :9800H& &0:="s"9920& & 9813U& &w$ &w$="ljh590x"9999' & 9813U& m2vriz R MidshipmanSa cutterbxau<r@s@#BAsbh127mWljh590x9900& ship 8\a\8d "port" if there are no enemy ships in sight":'N3