ZXTape! 0Created with Ramsoft MakeTZXfdrake 0 +&f0 Francis Drake Adventure Game Copyright (C) G.Ludinski 1983 0:7::7 's$=" " ("title=2550 :sea=2670n 233!,0,0,14,0,22,34",126~,230,24,211,254,65A,16,254,35#,21,32 ,244,12 ,32 ,239,201 4sea Ftitle P9m$(17,32 ):g$(9 ,1):j$(4) Z1:1:4: d f 120x nj(z)=(i$=z)(i$=j$(z)) xg$(1)=131 g$(2)=140 g$(3)="" g$(4)="" z1=11111110:z2=11111100:z3=11111000:z4=11110000:z5=11100000:z6=11000000:z7=10000000 l1=01111111:l2=00111111?:l3=00011111:l4=00001111:l5=00000111:l6=00000011:l7=00000001 $"a",255,z1,z2,z3,z4,z5,z6,z7 $"b",l7,l6,l5,l4,l3,l2,l1,255 $"c",255,l1,l2,l3,l4,l5,l6,l7 $"d",z7,z6,z5,z4,z3,z2,z1,255 g$(9 )=143 n=14:p$ f=07 a:p$+f,a f n Dg$(5)="":g$(6)="":g$(7)="":g$(8)="" "0m$(1)=" 999999304500000079999999999000 " ,0m$(2)=" 999999300000000007999999995000 " 60m$(3)=" 999999300000000000999951730000 " @0m$(4)=" 999995000000000000779900030000 " J0m$(5)=" 799500000000000000009900000000 " T0m$(6)=" 099800300000000000007929000000 " ^0m$(7)=" 047900000000000000000119200000 " h0m$(8)=" 048000020000000000000000702220 " r0m$(9 )=" 087006000000000000000000019999 " |1m$(10 )=" 078069020000000000000000004999 " 1m$(11 )=" 007099030822000000000000069999 " 1m$(12 )=" 000220000079810000000000049999 " 1m$(13 )=" 000000010000000000000000009999 " 1m$(14)=" 000000006908000000000000004999 " 1m$(15)=" 000000699989000000000000000999 " 1m$(16)=" 000006999999800000000000000099 " ij=116:(64@+j);" ";:i=231:p=((m$(j))(i)):p=0" ";:470 g$(p); i  j 4:1:0,19;".New Albio";:1:4:"n":1:7:14,25;"Lima";:1:4:".":7:1:12 ,2;"Java" 4:1:15,47/:240,0:0,128:-23,0:15,47/:0,128:136,0  7:0:16,0;"Francis Drake left Plymouth in 1577 to search for a North-West passage to the Pacific.He encountered stormy weather in the Straits of Magellan and losttwo ships.Then the wind dropped " 's$=" " blank=1710:isert=2170z:instr=1490:reef=1570":namship=1750:ship=1850::trade=2110>:hostile=2140\ r(n)=(*n+1)  al=0  f=07 *a 4 "e"+f,a >f H00010000,01011010Z,01011011[,01010010R,01010111W,11111110,01111110~,00111110> \h$=148 fej$(1) ="6":j$(2)="7":j$(3)="8":j$(4)="5":l$="4":t$="3":d$="1":u$="2" 1m$(15)=" 00000069998900000000000eeee999 " 1m$(16)=" 00000699999980000000000eeeee99 " y=116 x=231 $c$=(m$(y))(x) .c$="9"1120` 8,c$="0"is=(7*):isert:1120` B'c$="e"is=4:isert:1120` LY(x>4x<15y>7y<14)is=(2*+7):isert:1120` Vis=10 :isert `x:y jOca=100d:su=100d:cr=85U:ba=100d:da=0:wk=1 t en=0 ~2x=29:y=16:x1=29:y1=16 7wk=11:7:y-1,x+1;h$ i6:0:16,0;"Week Cargo Food Crew Balls Damg. "; wk=1blank x=1y=167:18,0;"You have survived the unknown and now know you are the first fleet commander to sail around the world.";:ca400"Arise Sir Francis":2210 "x=1y=16en=1 R(x=17y=1)(x=18y=2)(x=19y=4)al=1 Ix<15al=0blank:18,0;"Go back to New Albion" Ąsu0blank:18,0;"Your food has been used up so your crew mutin8ies,and kills you":su=0:en=1 ήcr0blank:18,0;"Your crew have all been killed or have died of scurvy,typhus ordysentery.You are stranded without them.":cr=0:en=1 ^da>10 blank:18,0;"Your ship has filled with water and sunk":en=1 ba<0ba=0 0:6:17,0;wk;17,5;ca;17,11 ;su;17,16;cr;17,21;ba;17,27;da en=12210 i$=:i$=""1280  blank (x=1ƨj(4))(x=30ƨj(3))(y=1ƨj(2))(y=16ƨj(1))(i$<"1"i$>"8")1280 Rj(4)m$(y)(x-1)"0"m$(y)(x-1)"9"m$(y)(x)"2"x=x-1 (Sj(3)(m$(y)(x+1)"2"m$(y)(x+1)"9"m$(y)(x)"0")x=x+1 2Sj(1)(m$(y+1)(x)"3"m$(y+1)(x)"9"m$(y)(x)"1")y=y+1 r$ p=1̱r$-c$+1 r$(pp+c$-1)=c$ p  p=0  "reef subroutine ,w=(2*) 6#x<15e$="reef":1610J @ e$="rock" Jblank TUw=018,0;"There is a ";e$;" ahead.Turn around":1700 ^18,0;"You have run aground on a ";e$;". Are you going to throw cargo andguns overboard,or put out an anchor to windward" hO23658j\,0:r$:c$="overboard":instr:p0r$=c$:1670 r2c$="anchor":instr:p0r$=c$:1670 |1,0:1640h 7r$="overboard"blank:ca=ca-r(20):1700 xw2=(2*):blank:w2=018,0;"You have broken free without anysignificant damage":1700 u18,0;"Your ship,the Golden Hind,is holed.Return to dry land at onceor it will sink"::da=da+1  blank subroutine )7:18,0;s$;s$;s$;s$;  0  namship subroutine blank >0.518,0;"You see a Spanish galleon,the Cacafuego.Are you going to attack it or ignore it":1790 x18,0;"You see a Spanish galleon,the Esprito Santo.Are you going to attack it or ignore it":1790 L23658j\,0:r$:c$="attack":instr:p0r$=c$:1820 2c$="ignore":instr:p0r$=c$:1820 1,0:1790 r$="attack"ba0blank:18,0;"You draw alongside the galleon and then find you have no cannonballs left,so the Spanish win the battle and leave you to die":en=1:18400 &r$="attack"blank:18,0;"You fight a fierce battle and finally take command of the galleon and transfer its cargo to the hold of your ship":ca=ca+r(20):ba=ba-r(20) 0 :ship subroutine Dblank NX18,0;"You see a Spanish galleon.Are you going to attack it or ignoreit" XL23658j\,0:r$:c$="attack":instr:p0r$=c$:1910v b2c$="ignore":instr:p0r$=c$:1910v l1,0:1880X vr$="ignore" blank 18,0;"Are you going to fire cannons atthe galleon,or set fire to some old ships and let them drift to-wards it,or sneak up & board it" L23658j\,0:r$:c$="cannon":instr:p0r$=c$:1980 4c$="set fire":instr:p0r$=c$:1980 1c$="sneak":instr:p0r$=c$:1980 1,0:1940 blank r$"cannon"2020 в>0.518,0;"Your ship gets holed and some ofyour crew are shot.Return to dryland at once":da=da+1:ba=ba-r(20):cr=cr-r(10 ):2020 ھ18,0;"As your ship is smaller and lower than the galleon,you manage to put it out of action and board it":ca=ca+r(20):su=su+r(20):ba=ba+r(20) r$"set fire"2060  blank >0.518,0;"The wind changes direction and the burning ships towards your ship setting the mizzen mast alight.Return to port at once":da=da+1:2060  18,0;"The burning ships drift towards the galleon setting it alight. The captain surrenders and you transfer his cargo to your hold":ca=ca+r(20):su=su+r(20):ba=ba+r(20):2060   r$"sneak"21004 blank  >0.518,0;"They see you approaching and open fire,shooting some of your crew and damaging your ship. Return to port at once":ba=ba-r(20):da=da+1:cr=cr-r(10 ):21004 *18,0;"They assume you are Spanish as English ships have never been this far before,so you board thegalleon and capture it":ca=ca+r(20):su=su+r(20):ba=ba+r(20) 4 >trade subroutine Hnblank:18,0;"You buy cloves cheaply from the islanders":ca=ca+r(20):su=su+r(20) R \hostile subroutine fqblank:18,0;"Hostile islanders pelt you with stones killing some of your crew":cr=cr-r(20) p zisert subroutine 'is10 m$(y)(x)=is:2200 m$(y)(x)="a"   title subroutine Q7:2::i=18:s$(13 );"";s$(13 );:i ;i=16:"";:i =i=18:s$(13 );"";s$(13 );:i 2:0 9 ,15;"SIR" I10 ,0;" FRANCIS DRAKE"::" Adventure Game" i=18::i (J7:" Copyright ";:2:" G.Lud";:7:"inski 1983 "; 2$i=13:23296[:i < nsea subroutine x i=23296[23318[ a:i,a i  itl en a>% 999999a3aa105210a9999999999101 999999a1353244005a99999999a600 999999a206453504129999aaaa5336 99999a001362431636aa99550a1005 a99a65560154142350529966421625 399a32a1464216305041a9a9212004 2aa900502611125266412aa9a41103 3aa524285446065054015501a2aaa0 2aa0373360435233140152503a9999 4aa68947102336522626346414a999 41a1994827882021662001162a9999 2537855316897a64150433464a9999 503350285644360443364532259999 36622545a96a24363323345313a999 625133a999a9634506250624444999 53636a999999a44500120264444499  6785? PdS lanserznstee"amshihi:rad>ostil\HL4T3D1U2hTUR wCattackRattackErockI1