col hhCjYColumbus loader by Nicholas Holgate from Sinclair User 34 (Jan.1985) I've changed this to optionally load either a new game or a saved game. jimg@globalnet.co.uk (Sep.1999~L) S9 ,5;1;"Please stop the tape.":.5,.5:200: ZJf=0::10 ,11 ;1;1;"COLUMBUS":9000(# d "How many players ? (2-5) ";x$ g9x$<502ůx$>535.5,.5:100d hp=x$:65471,p }en$="SPAIN PORTUGALHOLLAND FRANCE ENGLAND ":g$(n$,x)=n$(8*x-7x*8) ~ x=1p sn$(x*8-7)=32 10 +x,6;x;n$(8*x-68*x);" is playing":130 110 +x,6;x;g$(n$,x);" is playing." x 200 p"Enter a saved game name, or"'"just press ENTER for a new game"'x$:x=x$:x<1x>10 x$="Columbus" ;:10 ,2;1;"Start tape running please." ]l$="Loading """+x$+"""":21,(32 -l$)/2;1;l$;0,0;:x$  #(Q119w,170,221,255,119w,170,221,255 #)K0,16,120x,60<,120x,147,254,0 #*I25,26,60<,60<,568,88X,24,24 #+J28,20,28,42*,42*,42*,42*,107k #,H0,8,30,60<,30,201,127,0 #-L0,16,16,126~,255,86V,118v,118v #.M16,16,568,568,124|,108l,238,238 #/M24,126~,122z,223,126~,24,24,24 #0J152,88X,60<,60<,28,26,24,24 #2Q255,129,129,129,129,129,129,255 #4Q102f,102f,126~,126~,126~,126~,126~,126~ #7I24,24,60<,60<,60<,24,24,24 #p #@65367W+x,p #Ax #F Columbus  ? Columbus by Nicholas Holgate from Sinclair User 34 (Jan.1985)This version includes the correction (line 6730) and save game routine (lines 7900/9800) by Patricia Richardson from Sinclair User 37 (Apr.1985). bSee COLUMBUS.TXT for instructions. jimg@globalnet.co.uk (Sep.1999~L) p=65471:x$=p kp<2p>5"How many players ? (2-5)";x$:x$<502ůx$>535.5,.5:4 p=x$:90Z m=m+1: !"Press ENTER to continue.";x$: 0:7: (m=m+1:x$=x:x<02 m>21m=21 :m,30-x$;7;" ":m,31-x$;x:0 0x$=1m,28;0;7;" "  6.5,.5:21,19;"Try again!":  a=8  b=21 *x=ab:x,18;" ":x: #"Choice (number) ? ";x$ (:x$<480ůx$>480+n.5,.5:35# - 2?c=((a(b,a)/10 -(a(b,a)/10 ))*10 +.5): 7b(q,z)=(b(q,z)/2): <k=1+(*(p-.5)): A!c=(a(b,a)/10 +.2~L): Ka=a-m:b=b-n: Z#f=1:7280p:8000@ i#co=0:ff=0:f=0 nnb=0:cr=7:int=.1}L:m1=250:m2=10 :t=1488:h=100d:c$(p,300,-p*20):b(p,80P) pEi$="SPHFE":m$="Spanish PortugueseDutch French English " ss$=" submit to ally with trade with mistrust attack ":h$="explore invade blockadepiracy convoy patrol build design nothing " xEp$="":k=1p:p$=p$+(k+480):k:p$=p$(p)+p$(p-1) }en$=" SPAIN PORTUGALHOLLAND FRANCE ENGLAND ":g$(n$g(,q)=n$(8*q-78*q) q(12 ,5):k=112 :q(k,1)=(h*)+3:q(k,2)=1+/5:q(k,3)=.1}L++:q(k,4)=(*h)+1:k Jq(8,4)=(250-h*):q(9 ,4)=(175-h*) e$(21,4):k=121:e$(k)=(k+64@)+(97a+25*)+(97a+25*)+(97a+25*):k _f$="Corn Fish Furs Hides Timber Sugar Tobacco Gold Silver Cotton Coffee " k=1p:b(k,6)=(*2000+10500)):b(k,12 )=3+(4*):b(k,21)=(h+*h):b(k,24)=(20+*20)/h:b(k,25)=1 sb(k,29)=300,+(200+):b(k,32 )=(h+*h):b(k,568)=502:b(k,579)=502:k Ekkk=0:t=t+4:k=1p:b(k,9 )=b(k,5):k p$=p$(2p)+p$(1) kkk=kkk+1 kkk=p+17000X q=p$(kkk) Dc$(q,1)32 b(q,20)=b(q,20)+b(q,21) !b(q,74J)=1:b(q,75K)=0:b(q,76L)=0:w=(h+*h+5*(t-1496)+b(q,8)*4):b(q,21)=(w-b(q,24)*w):y=13:b(q,28+5*y)=3:b(q,27+5*y)=b(q,27+5*y)+b(q,29+5*y):y Jch=0:b(q,73I)>10 b(q,25)=b(q,25)+.1}L 7b(q,73I)>hb(q,25)=b(q,25)+.1}L jq:7:1::0:8,12 ;g$(n$,q);12 ,8;"The year is ";t:10 15 ,3:q:q33,9 ;"Your Majesty !" 11q=33,8;"Fellow burghers !" 6V6,2;"The Treasurer begs leave to";7,12 ;"report.":10 87b(q,6)<(-4000-(2000*))6800 ;+:1,12 ;q;1;g$(n$,q) @zm=3:2,29;1;"`";4,1;"Funds";0;" (";t-4;")":x=b(q,6):20 Edsh=0:k=17:sh=sh+b(q,11 +k):b(q,11 +k)=0:k:b(q,12 )=sh JGm=7:7,1;5;"Plus":8,1;"Taxes" OQ8,18;6;"(";b(q,24)*h;"%)":x=b(q,70F):20 Q.b(q,10 )<0b(q,10 )=0 Tm=11 :11 ,1;7;2;"Minus":12 ,1;"Fleet (";5;sh;7;" old + ";5;b(q,19);7;" new)":x=((b(q,19)*m1*20)/(b(q,10 )+10 )+b(q,73I)+sh*m1):20 VYb(q,12 )=b(q,12 )+b(q,19):so=b(q,32 )+b(q,37%)+b(q,42*) Yy13 ,1;"Soldiers";13 ,18;"(";2;1;so;0;0;")":x=m2*so:20 ^?14,1;"Crop subsidies":x=b(q,69E):20 c515,1;"Spies":x=b(q,1):20 eb(q,6)<016,1;"Interest";16,18;6;"(";int*h;"%)":x=(int*-b(q,6)):b(q,6)=b(q,6)-x:x$=x:16,31-x$;x$ hb(q,6)=(b(q,6)+b(q,70F)-sh*m1-(b(q,19)*m1*20/(b(q,10 )+10 ))-so*m2-b(q,69E)-b(q,1)-b(q,73I)):b(q,19)=0:b(q,73I)=0 j&200,26:480,0 m^m=18:19,1;1;"Funds";0;" (";t;")":x=b(q,6):20 n-b(q,69E)=0:b(q,1)=0 r10 :7: Wy=121:y,1;5;7;"":y:f=10 &0,21;1;g$(n$,q) 5c$(q,1)32 z=q:85004!:420 L3,19;"No colonies";4,19;"founded yet.":10  a=3:b=6:30 Sm=1:7:5:2,19;"Fleet":x=b(q,12 ):20 <7:2:3,19;"Army":x=so:20 Z7:4:4,19;"Old settlers":m=4:x=b(q,20):20  15 Zm=6:6:6,19;"New settlers":x=b(q,21):20:7 O28:10 ,19;"Which do you";11 ,19;"wish to use?" '13 ,19;1;"1 Ships" *14,19;2;"2 Soldiers" '15,19;3;"3 Spies" -16,19;4;"4 Crop change" ,17,19;3;"5 Tax change" %18,19;2;"6 War"  19,19;"7 Nothing" n=7:35#  28 (x$-480)*h+400 7ch=115,19;"All done.":450 B9 ,19;"What do you";10 ,19;"wish to do?" mm=11 :y=19 :11 +y,18;y;" ";g$(h$,y):y<8x=b(q,12 +y):20 y n=9 :35#  "f=15f=0:532  's=x$:s=9 28:555+ s=8550& 9"How many ships ? ";x$:n=9 :40(:ch=1 7i=x$:s=7i>10 i=10000':535 Ms=7b(q,19)=i:m=17:x=i:20:i=0:515 Yi>b(q,12 ).5,.5:21,18;1;"Too many ":530 b(q,12 )=b(q,12 )-i:b(q,s+12 )=i:m=10 +s:x=i:20:m=1:x=b(q,12 ):5:7:1:20:15:0 !"b(q,12 )>0515 #"b(q,12 )0555+ &"How much money ? ";x$ (sx$>480Ưx$<58:b(q,73I)=x$:m=18:x=x$:20:19,30-x$;"`":545! +k=13 18 ,(28:b(q,k)=0k:450 -1k-1,21;1;g$(h$,k-12 ) .k=13 8600! 0#k=14k=178700! Sk T 450 Xa=15:29:g=7:14,28;"Men":m=15:z=13:15+z,19;"Force ";z:x=b(q,27+z*5):20:z ]!f=5f=0:653 ^wy=13:15+y,25;1;y:502:f=0b(q,25+5*y)0y:650 _a=b(q,25+5*y):b=b(q,26+5*y):y$="":a,b;y$:h:ff=1g=0:y:ff=0:q=qq:10 :700 `Xg=7:f=2:8617!:x$="x"b(q,28+5*y)0y:650 b[a(b,a)=0a,b;7;5;"":21,20;"sea":75K:608` d 8410 l502:a,b;c;y$ qZb(q,28+5*y)=b(q,28+5*y)-1:65A:c=08636! veb(q,25+5*y)=a:b(q,26+5*y)=b:b(q,28+5*y)0y:650 { 608` +a=8:29:f=5:600X py=13:15+y,25;1;y:y>115+y-1,25;1;y-1 "Recruiting how many ? ";x$ Yx$<480ůx$>579.5,.5:21,19;"Try again":655 "x$>500x$="a":660  b(q,29+5*y)=x$:y  450 -9 ,22;3;7;"SPIES" 9a=10 :29:11 ,19;"Spy on whom?" m=1:x=1p x=qx:718 {n$(x*8-7)=32 12 +m,20;x;x;" ";n$(8*x-68*x):m=m+1:x:718 612 +m,20;x;x;" ";g$(n$,x):m=m+1 x W12 +m,20;p+1;" NOBODY":f=619,19;"(One only)" n=p+1:35# *z=x$:z=q.5,.5:720 #z=p+1f=0:450 1f=6b(q,5)=z:f=0:450 a=11 :29 b(q,1)=b(q,1)+h !11 ,20;"For what ?" 13 ,20;3;"1 Finances";14,20;4;"2 Colonies";15,20;1;"3 Ships";16,20;2;"4 Troops";17,20;4;"5 Crops";18,20;2;"6 War plans" n=6:35# a=11 :29 9s=x$:s511 ,21;1;g$(n$,z) s=113 ,19;"Funds:`":m=12 :x=(b(z,6)*(1+-)):20:14,19;"Tax(%)":x=(b(z,24)*h+/20-/20):20:10 :700 7f=0:s=5b(z,11 )>0f=2 s=5m=9 :n=1cr+f:9 +n,19;g$(f$,n):x=b(z,557+n):20:m,31;"%":n:10 :700 "s=285004!:700 s=3m=14:13 ,19;"Fleet":n=17:14+n,19;g$(h$,n):x=b(z,12 +n):20:n:10 :700  -s=4qq=q:q=z:ff=1:600X s=6b(z,5)013 ,21;"Plans to";14,21;"attack";15,21;1;b(z,5);g$(n$,b(z,5)):200:700 s=6b(z,9 )013 ,21;"Attacking";14,21;1;b(z,9 );g$(n$,b(z,9 )):200:700 8s=614,21;"No plans":h:700  >f=0:8,19;4;7;"CROP CHANGE" "-b(q,11 )>0cr=7f=2 %a=10 :29 *sm=9 :y=1cr+f:9 +y,19;g$(f$,y):x=b(q,557+y):20:9 +y,31;"%":y /uw=0:y=1cr+f:9 +y,19;1;g$(f$,y):y>18+y,19;g$(f$,y-1) 0Q(y=8y=9 )b(q,11 )0b(q,557+y)=0:835C 1Cy=5b(q,10 )0b(q,60<)=0:835C 4."What percentage ? ";x$:n=9 :40( 6Iz=x$:z>h.5,.5:21,19;"Too much":8204 9lz>b(q,557+y)b(q,69E)=((b(q,69E)+(z-b(q,557+y))*b(q,8))*b(q,24)*2) >6w=w+z:b(q,557+y)=z:x=z:m=8+y:20 @pw=hw=y+1cr+f:x=0:20:b(q,557+w)=0:w:21,19;"All done.":y=cr+f Cy H7y=0:x=112 :y=y+b(q,557+x):x My>100da=9 :29:10 ,19;"Your planned";11 ,19;"output is";12 ,19;"above 100%.";14,19;"Try again!":200:800  h:450 29 ,19;7;3;"TAX CHANGE" `12 ,19;"Old rate":x=b(q,24)*h:m=11 :20:12 ,31;"%" y14,19;"New rate ?";16,19;"(Between 10";17,19;;"and 50%)":14,31;"%" n=9 :35# =x=x$:x>502x<10 .5,.5:915 )b(q,24)=x/h:m=13 :20 h:450 Ab(q,5)=0:9 ,22;7;2;"WAR" b(q,9 )>0y=b(q,9 ):11 ,19;"You are now";12 ,19;"attacking";13 ,19;y;1;g$(n$,y):1020 ^11 ,19;"You are not";12 ,19;"attacking";13 ,19;"anyone." E15,19;"You are being";16,19;"attacked by" m=17:k=1p <b(k,9 )=qm,19;k;1;g$(n$,k):7 k #m=17m,19;"nobody."  10 :a=11 :29 v9 ,19;"Next turn,";10 ,19;"do you plan";11 ,19;"to attack":f=6:710  210 G7:20,6;1;g$(n$,z);0;" has won !"  :10 :f=10 :400 G0,3;1;"THE NEW WORLD":z=1p:85004!:z  9100# $:"Press any key for rematch! ";x$ : pa(b,a)<58:6100 z"aa=a:bb=b:a=15:29 | c=(a(bb,aa)/10 )-5 }*d(c,q)=16050:6085: H15,19;"You find";16,19;"the ";1;e$(c) Y18,19;"Will you";19,19;"1 Fight";20,19;"2 Trade" "Strategy (1-2) ?";x$ :x$<491ůx$>502.5,.5:6025 2a=18:b=21:30:d=x$(1) /d(c,q)=0d(c,q)=(2+3.4Y*) 'a=aa:b=bb:d=1d(c,q)=5 %d(c,q)<5y$=""a=a-m:b=b-n d(c,q)<519,19;"They";20,18;s$(d(c,q)*12 -11 d(c,q)*12 );21,19;"you":502: a18,21;1;"BATTLE!":y$=""v=b(q,27+5*y)/(d(c,6)+1) 5h:y$=""v=b(q,k)*25/(d(c,6)+1) d(c,6)=(d(c,6)-v*d(c,6)):d(c,6)0v>119,21;1;"VICTORY":d(c,q)=1:20,19;"Land and";21,19;"slaves taken":6085 19,21;1;"DEFEAT!":y$=""b(q,27+5*y)=(b(q,27+5*y)*(.9ffff-/2)):a=a-m:b=b-n: 9b(q,13 )>1b(q,k)=(b(q,13 )*.9ffff)  ^a=aa:b=bb:b(q,22)=b(q,22)+(300,*):a(b,a)=a(b,a)-10 *c:8636!  65A:c=q 7cb(q,9 )y$=""75K:m=0:n=0 cb(q,9 )  y$="" ,g=1:k=q:r=b(q,9 ):8845" hg=220,19;"Enemy";21,19;"attacked":b(q,28+5*y)=0: R502:a(b,a)=c:g=5:v=b(q,9 ):8636!:8887":g=0  de6;"N.B. In all cases, players must occupy the lands of submissive natives to control them." n h:nb=t: ,/ww=0:k=1p:b(k,8)=0 60z=1:c$(k,1)=32 6750^ ;4b=c$(k,zz+1):a=c$(k,z+2z+3) @!502:c>66722B Ab(k,8)=b(k,8)+c B4c$(k,z+4)32 z=z+4:6715; E$z>240-p*20ww=1 J b(k,7)=z ^k h {:3,0;"You have been recklessly extra- vagant and owe your Italian bankers ";2;"`";-b(q,6)  m=7 rb(q,19)>2m,0;"They refuse to pay for half yournew ships":m=m+3:z=19:557 b(q,32 )+b(q,37%)+b(q,42*)>400m,0;"They refuse to pay your army: desertion is rife.":z=32 :557:z=37%:557:z=42*:557:m=m+3 <m>9 20,0;"With friends like these ..."  10 : Xf=0:0:6::9 ,2;"All decisions have been made. Their consequences will now be revealed." ] 10 _9y=0:k=1p:b(k,9 )>0y=1 `k:y=07100 b.5::1,13 ;1;"WARS" dk=1p:h: g*r=b(k,9 ):r0k:7100 iTr=b(k,9 ):r>03,0;g$(n$,k);" is at war with ";g$(n$,r) j.m=4:b(k,14)07032x l&4,0;"- invasion by sea" m21,0;4;" ";5;7;"":20,*3;6;"":20,*3;"";20,2+*3,"" nx$=" ":x=515:20,32 -f-x;2;x$(1x):8:x:f=7f=0: qb(k,14)/(b(r,18)+1)<220,11 ;1;" ":m,17;":sea battle":w=k:x=14:y=r:z=18:8800`":7 sxb(k,14)0l=13:b(k,27+5*l)=-1b(k,25+5*l)=0:l=3 t&b(k,14)0l:7050 ve7:m,2;"force landed":f=7:7022n:20,8;2;"":7 xg=0:y=13 y 8850" zy {#b(k,15)07050 }0f=7:m,0;"- blockade":7021m 7w=k:x=15:y=r:z=18:8800`":7 sf=1f=0:w=(b(r,18)+5)/(b(k,15)+5):w<1b(r,74J)=b(r,74J)*w #b(k,16)07095  7:m,0;"- piracy" 20,0;" ":21,0;5;7;"":x$=" ":x=112 :20,x;1;x$:x:20,22;2;" " 7w=k:x=16:y=r:z=17:8800`":7 f=1f=0:w=(b(k,16)+5)/(b(r,17)+5):w>1b(k,75K)=w-1:b(k,75K)>.4Lb(k,75K)=.3+/10 h k j15:f=0::1,6;1;"COLONIAL PRODUCTION":2,10 ;"(shiploads)"  6700, #k=1p:b(k,2)=0 #b(k,8)=07110 b(k,2)=(b(k,20)+2*b(k,22))/(b(k,8)+1):b(k,2)<1b(k,2)=b(k,2)*b(k,8):7110 Ày=0:x=1̺b(k,2):y=y+1/x:x:b(k,2)=b(k,8)*y:b(k,11 )>0cr=7f=2 \b(k,63?)>*502b(k,64@)>*hb(k,2)=b(k,2)*(.9ffff-/3) k kx=1cr+f:8+x,0;g$(f$,x):x:x=1p:5,5+(10 -p)*x;x;i$(x):x k=1p:l=1cr+f:x$=((.5+b(k,2)*b(k,557+l)/h)):8+l,6+(10 -p)*k-x$;x$:l:k 10 :g=0 l=0:k=1p <b(k,74J+g)1b(k,74J+g)0l=1 k:l=07150+g g=17151 61,4;1;"LOSSES THROUGH BLOCKADE "  k=1p ;b(k,74J)<.1}Lb(k,74J)=.1}L+/10 k k=1p:l=1cr+f:x$=" "+(((b(k,2)*b(k,557+l)-b(k,2)*b(k,557+l)*b(k,74J))/h)):8+l,6+(10 -p)*k-x$;x$:l:k  10 g=1:7132 l=07180  91,2;1;"GAINS/LOSSES THROUGH PIRACY"  k=1p <b(k,75K)>.24~u\b(k,75K)=.2~L+/21  r=b(k,9 ):l=1cr+f "r=0x=0:7168 <x=b(k,75K)*b(r,2)*b(r,557+l)*b(r,74J) /b(k,76L)=0:y=0:m=1p m=k7172 #b(m,9 )=ky=y+b(m,75K) m Zb(k,76L)=y:x$=" "+((x-b(k,2)*b(k,557+l)*y)/h):x$=2x$=" "+x$ ,x$>0x$(1)="+"+x$(2)  08+l,6+(10 -p)*k-x$;x$:l:k  10  S:k=1p:b(k,2)=b(k,2)*b(k,74J)*(1-b(k,76L)):k 15:1,9 ;1;7;"SALES IN EUROPE":1,27;t:3,7;1;"Total";4,7;"sales";5,6;"(loads)":4,13 ;2;"Price";5,14;"(`)":135,103g:0,-8*(cr+f) 3,22;3;"Market";4,20;"Share (%)":x=1cr+f:8+x,0;g$(f$,x):x:x=1p:6,16+3*x;x;i$(x):x 'k=1p:b(k,70F)=0:k Xx=0:l=1cr+f:k=1p:x=x+(.5+b(k,2)*b(k,557+l)/h) jb(k,9 )>0x=x+(.5+b(b(k,9 ),2)*b(b(k,9 ),557+l)*b(k,75K)/h) ik:q(l,5)=x:x$=x:8+l,12 -x$;x$:x=0q(l,4)=q(l,4)+(*5) x>0q(l,1)=q(l,1)*q(l,2):q(l,4)=(q(l,4)+(q(l,1)-x)/q(l,1)*q(l,3)):q(l,1)=(q(l,1)*3+x)/4 ;q(l,4)0q(l,4)=1+(5.3)*) 7q(l,4)>500q(l,4)=(400+*h)  .x$=q(l,4):8+l,16-x$;x$ %;k=1p:y=(.5+b(k,2)*b(k,557+l)/h) 'jb(k,9 )>0y=y+(.5+b(b(k,9 ),2)*b(b(k,9 ),557+l)*b(k,75K)/h) (lx>0y=(h*y/x+.5):b(k,70F)=b(k,70F)+(y*q(l,4)*q(l,5)*b(k,24)/h) *<y>0x$=" "+y:8+l,17+3*k-x$;x$ ,k /x=0:l 4 :10 9\:1,5;4;"NATIVE TRADING/LOOTING":k=1p:b(k,2)=0:k >,x=121:y=0:k=1p C8d(x,k)=1b(k,2)=b(k,2)+d(x,7) D,d(x,k)=2d(x,k)=3y=y+1 Hk My=07255W O k=1p PLd(x,k)=2d(x,k)=3b(k,2)=b(k,2)+(d(x,7)/y) Rk \x f13,18;"Value of";4,14;"native trade (`)":x=1p:y=b(x,2)*b(x,74J)*(1-b(x,76L)):b(x,70F)=b(x,70F)+(y*b(x,24)):6+2*x,2;x;m$(10 *x-9 10 *x):x$=b(x,2):6+2*x,23-x$;x$:x k 10 m f=0 p:1,10 ;7;3;"How to win.":4,1;"The game ends when one player has about ";1;60<-p*5;0;" blocks of land.":6,1;"Players score" u 9 ,3;5;"1000";7;" points for each area of land";13 ,3;"and";16,3;5;"1";7;" point for each pound in the Treasury (or ";7;2;"-1";0;7;" per pound of debt)." vOf=120,0;"(The map for this game is being generated.)": w 10 z:3,17;"Points" | x=1p ln$(x*8-7)=32 5+2*x,6;x;n$(8*x-68*x):7300 &5+2*x,6;g$(n$,x) x ^z=1:yy=-10000':x=1p:y=b(x,7)*250+b(x,6)+b(x,70F) y>yyz=x:yy=y /x$=y:5+2*x,23-x$;x$:x >20,6;1;g$(n$,z);0;" is winning!" ww=15000  :10 !h::"EVENTS":" ":k=1p  z=1 ?x=b(k,8)/(b(k,7)+1):x<.6x=.6 x>1.1 x=1.1 "b(k,20)=(b(k,20)*x) !Ly=13:b(k,27+5*y)=(b(k,27+5*y)*x):y $b(k,22)=(b(k,22)*(x-.2~L)):x-.2~L<.6ƥ>.73333"Epidemic among ";m$(k*10 -9 k*10 );" slaves" .x=121 0d(x,k)=07485= 3y=(*1.9s333-*1.9s333) 8w=d(x,k):y0w+y<6w+y>0d(x,k)=w+y:"The ";e$(x);s$(d(x,k)*12 -11 d(x,k)*12 );g$(n$,k):d(x,k)=1nbt6500d =?d(x,7)=(d(x,7)*(1-/3+/3)):x Bk Lh::>.85Y:9 ,0;"The POPE proclaims peace bwtweenChristians. No wars are allowed next turn (except against the natives).":k=1p:b(k,5)=0:k:7900 [w=0:k=1p \"b(k,11 )>1w=1 ]%k:w=1cr=7cr=9 `>.9ffffcr>8cr<11 cr=cr+1::9 ,0;g$(f$,cr);"is introduced into the New World.":7900 t60<:b(k,6)>-hƥ>.85Y9 ,1;"Products from the East Indies disrupt demand for your goods.":l=1cr:q(l,1)=q(l,1)*(1-/2):l:7900 &:60<:b(k,6)>*hb(k,24)>.25ƥ>.5x=1p:b(x,70F)=b(x,70F)*(1-b(x,24)):x:9 ,0;"All states are affected by tax evasion, (some more than others)but savage penalties ensure thatit is a short-lived phenomenon.":7850 :60<:b(k,6)>*hƥ>.59 ,1;"Your (mercenary) forces demand a pay rise.":m2=(m2*1.2):300, w=1:k=1p "b(k,25)b(w,25)w=k &k:b(w,25)=17900 :>.69 ,0;m$(10 *w-9 10 *w);" ship design boosts";10 ,0;"receipts from entrepot trade.":k=1p:b(w,70F)=b(w,70F)+(.1}L*b(k,70F)/b(k,24)) C"Enter a game name to save, or"'"just press ENTER to continue"'x$ &x$1Ʊx$10 9800H&  200 @a(17,21) E4m=2+*4:n=*5-*5+3 Jx=121 O2m=m+*3-*3:n=n+*4-*4 T m>6m=6-*2 Ym<0m=*3 ^n<0n=*3 c"n>10 n=10 -*3 e&x=21n=4*:m=2* h3m>0k=1m:a(7-k,x)=1:k m3n>0k=1n:a(6+k,x)=1:k r0x<21n<6*a(8+n,x)=1 w0n<7*ƥ>.73333a(9 +n,x)=1 |x (y=121:x=117 a(x,y)=08095 +a(x,y)=(3+*4.5):8900" !x=1y=18095 F>.6a(x,y-1)>1a(x,y)=a(x,y-1):8095 :>.73333a(x-1,y)>1a(x,y)=a(x-1,y) x:y 4d(21,7):k=626:n=0 ,x=1+*15:y=1+*19 Ca(x,y)=0a(x,y)>7n=n+1:n<58210 n58250: la(x,y)=a(x,y)+10 *k:d(k-5,6)=99c+(*1000):d(k-5,7)=*2000 !Ya(x+1,y)0a(x+1,y)<7a(x+1,y)=a(x+1,y)+k*10 #x<15ƺ(a(x+1,y)/10 )=ka(x+2,y)0a(x+2,y)<7a(x+2,y)=a(x+2,y)+k*10 &Ya(x,y+1)0a(x,y+1)<7a(x,y+1)=a(x,y+1)+k*10 +dy>2a(x,y-1)0a(x,y-1)<7a(x,y-1)=a(x,y-1)+k*10 :k D 6502:a(b,a)>579a,b;c;"":6000p: Wa(b,a)579a(b,a)>7a,b;c;i$((a(b,a)/10 )+.1}L):6000p: !a,b;c;" ":y$=""8636! ! !4Km=1:c$(z,1)=32 13 ,20;"No colonies":h: !>4b=c$(z,mm+1):a=c$(z,m+2m+3) !C%502:a,b;c;i$(z):8525M! !M4c$(z,m+4)32 m=m+4:8510>! !f !4g=0:y$="":14-q*2,17;y$ !9ll=0:l=0:a=14-2*q:b=17 ! f=1 !m=0:n=0:15-g,19;"Where ? ";16-g,19;"Enter n,s,e";17-g,19;"or w":x$=:f=218-g,19;"or x for next";19-g,19;"force":z=1421:z,19;" ":z !x$=""8617! !x$=110nm=-1 !x$=115sm=1 !x$=101en=1 !x$=119wn=-1 !f=2Ưx$=120x !h(m=0n=0)a+m<1a+m>21b+n<1b+n>17.5,.5:8617! !b=b+n:a=a+m:f=2 !na(b,a)=0l=l+.04|# =-(t-1492)/1000:a,b;y$:a-m,b-n;5;7;"":8660! !ll=ll+.25:8410 :19,19;" ";20,19;"Land ahoy!";21,19;" ":a(b,a)>78655! !w$=b:w$=1w$="0"+w$ !z$=a:z$=1z$="0"+z$ !d=b(q,7):k=13 b(q,20)=b(q,20)+(b(q,21)*.9ffff):x=b(q,20):mm=m:m=4:7:4:20:b(q,21)=0:6:m=6:x=0:20:15:m=mm !&a(b,a)>0c$(q)=c$(q,d)+w$+z$ !ďd=b(q,10 ):a(b,a)=4a(b,a)=3b(q,10 )=d+1:a(b,a)=3b(q,10 )=d:b(q,11 )=b(q,11 )+1 !R502:a(b,a)>0a(b,a)=c+10 *q:b(q,7)=b(q,7)+4 !f=2f=3 !a=a-m:b=b-n !Jll>18,19;"Ships return":h:a,b;5;7;"": !Ԇl>b(q,13 )>1b(q,13 )=b(q,13 )-1:18,19;"Ship lost":h:h:18,19;" " !3l>b(q,13 )=1ll=2:8657! ! 8615! !#k=17b(q,7)=0 !#k=14b(q,9 )=0 ! "Which force (1-3) or 0 ? ";x$ "*n=3:40(:z=x$:z=0k "Rb(q,27+5*z)>b(q,k)*502b(q,27+5*z)=b(q,k)*502 " :x=121:x,0;1;(x+96`):x ""Which row ? (a-u) ";x$ "Ex$<97aůx$>117u.5,.5:25:8720" ":x=117:0,x;1;(x+96`):x ""Which column (a-q) ? ";y$ "$Ey$<97aůy$>113q.5,.5:25:8730" ") b=y$-96`:a=x$-96` "+^a(b,a)=018,19;"That's sea!";19,19;"Try again.":8720" ".8a+121a(b,a+1)=087608" "/7a-11a(b,a-1)=087608" "08b+1<18a(b+1,a)=087608" "17b-1>0a(b-1,a)=087608" "3018,19;"No sea route.":8720" "8J65A:k=17cq18,19;"Not a colony.":8720" "=Kk=14cb(q,9 )18,19;"Not an enemy.":8720" "Lb(q,25+5*z)=a:b(q,26+5*z)=b:b(q,28+5*z)=0:a,b;"":k=14b(q,28+5*z)=-1 "V "`sf=0:7:v=(b(w,x)*b(w,25)+1)/(b(y,z)*b(y,25)+1)*(1+/2-/2) "jNv<1m,2;"attacker defeated":b(w,x)=(b(w,x)-2*b(y,z)/v) "oYv1f=1:m,2;"defender defeated":b(y,z)=(b(y,z)-v/2*b(w,x)) "t b(w,x)0b(w,x)=0 "v b(y,z)0b(y,z)=0 "y " w=a:x=b "b(q,9 )=0 " 8851" "Ag=0:w=b(k,25+5*y):x=b(k,26+5*y) " w=0 "`u=0:l=13:co=0:o=b(r,25+5*l):u=b(r,26+l*5) "w=ox=uco=1 "1g=1co=1l=3:l:g=2: "co=18870" "&l:co=0ƺ(a(x,w)/10 )=k "#co=0f=3:8882" "m,0;"- land battle":v=(b(k,27+5*y)+1)/(b(r,27+5*l)+1)*(/2-/2+1) "v>1m,17;"attacker wins":7:b(r,27+5*l)=(b(r,27+5*l)-(v/2*b(k,27+5*y))):f=3:b(r,27+5*l)0z=14:b(r,24+z+5*l)=0:z "v1m,17;"defender wins":7:b(k,27+5*y)=(b(k,27+5*y)-(2/v*b(r,27+5*l))):f=2:b(k,27+5*y)0z=14:b(k,24+z+5*y)=0:z "a=w:b=x:f=2q=r "f=3q=k ""(a(b,a)/10 )q8636! "q=rv=k:8887" " q=kv=r "Rz=1:c$(v,1)=32 b(v,7)=0:b(v,8)=0: "lc$(v,12)=bưc$(v,34)=ac$(v,1)=c$(v,z+4b(v,7)):8892" "xc$(v,zz+1)=bưc$(v,z+2z+3)=ac$(v,1)=c$(v,1z-1)+c$(v,z+4b(v,7)) "4c$(v,z+4)32 z=z+4:8890" "b(v,7)=b(v,7)-4:502:ti=b(v,10 ):c=4c=3b(v,10 )=ti-1:c=3b(v,10 )=ti:b(v,11 )=b(v,11 )-1 " "+a(x,y)=5ƥ>.5a(x,y)=4 "+a(x,y)=5ƥ>.4La(x,y)=6 " a(x,y)=5a(x,y)=3 " #f=0:e=.75@ #=a=.5*e:b=.25*e:c=.375@*e:d=.125~*e #b,9 :a,12 :b,14:c,16:d,17:b,16:a,14:b,11 :c,7:d,9 :b,11 :f=f+1:f=29112# #pa,12 :b,9 :c,9 :d,8:b,9 :a,1:b,8:a,4:f=39115# #f=19105# #lc,12 :d,11 :b,9 :c,8:d,6:b,8:(a+b),9 :b,9 :(b*502) #{(a+b),19:c,19:d,18:b,16:a,14:b,11 :c,7:d,9 :b,11 :f=f+1 #f=39107# #^c,12 :d,11 :b,9 :c,8:d,6:b,8:(a+b),9 :a,9 # &Hx$7000X &R"CONTINUE? (Y/N)";x$ &\x$="y"x$="Y"200 &f !