ZXTape!  SMUGGLER  6SMUGGLER 1983 (C) T.R.A.HAINSWORTH  hi=0  1 $8100:6100:9360$ 9900&: \3:7:3::3,2;"WELCOME TO ";:1;"S M U G G L E R." `10 ,2;"Please select level of play.";14,3;"1 (Novice) to 5 (Expert)." +9850z&:a<1a>530 .18,4;"You have chosen level ";a #diff=.73333+(.1}L*a) (,1;20,10 ;"PROCESSING" 2 9000(# K 8950" dmenu i:b>250000t$o0l=1h=06000p kb=b n 8900  s:236099\,502 x10 ,2;"0. Move & store Goods";2;"1. Buy Goods";2;"2. Sell Goods";2;"3. Buy Boat";2;"4. Sell Boat";2;"5. Visit Bank or";6;"Print Trading A/c & Status";2;"6. Set Sail";2;"7. SAVE Game";2;"8. Concede & restart" }2;"9. List Rules" 9850z& A=07000X A=12500@ A=22060 A=3@1500; A=41050@ A=5 3000; A=6@4000z A=79980& A=820 A=99400 menu ***********************  SELL BOAT 4:9 : C<11070 &B<(C+1)*5000@1057 E=01061 !410 ,1;"No-one wants to buy your Boat." "9395$:wait:menu %C=5 1064 &C>01078 ' 1070 (t8,7;"You have the best";10 ,8;"Boat available.";14,5;"You must not sell it." ,9395$:wait:menu ..8,3;"You have no Boat to sell." 0q12 ,2;"There is a nice class ";-c+1;" Boat";14,2;"for sale down at the Harbour." 29395$:wait:menu 68850":wait: 818,4;"You have a class ";c;" Boat." =:10 ,3;"The Market price is `";(4000*c) B)18,5;"Is it a deal? (y/n)" L0:x$= `X$="Y"X$="y"1135o jmenu o E=1 tB=B+(4000z*C) ~c=-c:neg=sold  q(8) menu ***********************  BUY BOAT 4:9 : C<11530?@ 58,4;"You already have a Boat." tC512 ,0;"You must sell your class ";c;" Boat";14,2;"before you can buy another." 9395$:wait:menu 8850":wait: A=-C+1 48,2;"You may buy a class ";a;" Boat." :10 ,3;"The Market price is `";(5000*a) )18,5;"Is it a deal? (y/n)" "0:x$= ,X$="Y"X$="y"1600@ 6menu @B(5000@*A)1700T J318,1;"You cannot afford a new Boat." T9395$:wait:menu B=B-(5000@*A) C=A menu  SELL GOODS ************ 2:6:9  8700  .14,4;"You have `";b;" in cash." ",16,8;1;"S E L L I N G" $+18,1;y$;19,1;y$ *X18,2;"Which Commodity? (choose 1-8)";19,8;"or ZERO to quit." - 9850z& 0a=0menu 9a=9 2093- :+18,1;y$;19,1;y$ >W18,3;"How many cases of ";B$(A);19,6;"do you wish to sell?" Hx Ix=02060  M,X<0X>w(l,a)9395$:2120H Rw(l,a)=w(l,a)-X Vb=b+(p(a)*x) Xsale=sale+(p(a)*x) \ 2060 BUY GOODS ************* 1:6:9 8700 .14,5;"You have `";b;" in cash." *16,8;1;"B U Y I N G" +18,1;y$;19,1;y$ W18,2;"Which commodity? (ENTER 1-8)";19,8;"or ZERO to quit." 9850z& a=0menu #a=9 9395$:2545 +18,1;y$;19,1;y$ (j18,3;"You can afford ";(b/p(a));" cases.";19,2;"How many do you wish to buy?" <x @#x=09395$:2500 BB(P(A)*X)2700( Z9395$:2580 w(l,a)=w(l,a)+x b=b-(p(a)*x) cost=cost+(p(a)*x) 2500 VISIT BANK ************ >risk3020 6:6:9 : 110 ,2;"The Bank is not open today." ]14,3;"Do you wish to delay until";16,4;"it opens tommorow (y/n)?" 0:x$= X$="Y"X$="y"3015 menu !T=T+1:o=o+(o/100d) )6:6:9 ::8900" i10 ,2;"1. Borrow money";2;"2. Repay money";2;"3. Print Voyage Trading Report" 121,2;"Choose 1-3 or ZERO to quit." 9850z& a=13060 a=23300 a=33500 menu BORROW MONEY **********  (((C*4000z)-O)<03200H >8,2;"You may borrow up to `";((C*4000)-O) 512 ,1;"How much do you wish to borrow?" &x (x=0menu +8X<0X>((C*4000)-O)9395$:3110& 0"X>((C*4000z)-O)3200H D618,0;"Your Accounts have been adjusted" NO=O+X XB=B+X bwait:8850":wait:menu 12 ,5;"You have exceeded your";14,8;"credit limit.";16,3;"You may borrow up to `4000";18,1;"times the Class of your Boat." 9395$:wait:menu REPAY MONEY ***********  8850 H min=o-(c*5000) min<0min=0 ]18,1;"How much do you wish to repay?";20,5;"Repay at least `";min x x=x #X<09395$:3330 XB3400T *\18,0;z$;20,0;z$;18,2;"You have insufficient funds." 49395$:wait:menu HO=O-X MB=B-X R8850":wait:menu print trading a/c 4:7:0 8710" E2,3;"TRADING ACCOUNT FOR VOYAGE";4,27;"`" x$=sale 55,9 ;"Sale of Cargo";(30-x$);x$ x$=cost ;8,3;"Less Cost of Cargo";(30-x$);x$ x$=mtce 49 ,11 ;"Maintenance";(30-x$);x$  x$=duty .10 ,18;"Duty";(30-x$);x$ $ x$=fine .611 ,10 ;"Bribes/Fines";(30-x$);x$ 8 x$=wage B/12 ,17;"Wages";(30-x$);x$ L x$=loss V913 ,6;"Losses on Voyage";(30-x$);x$ `)prof=sale-cost-mtce-duty-fine-wage-loss t x$=prof ~315,11 ;"PROFIT/LOSS";(30-x$); prof<02;x$ prof00;x$ 914,24;"------";16,24;"------" bsale=0:cost=0:mtce=0:duty=0:fine=0:wage=0:loss=0 8400 :8850" 8400 :menu SET SAIL **************  c>04020  1: V8,3;"You'll get your feet wet.";12 ,6;"Why not buy a Boat?" 9395$:wait:menu  6100 75,9 ;"You are in";6,11 ;a$(l) /20,3;"What is your destination?" 121,3;"Choose 1-8 or ZERO to quit." 9350$:9850z& a=0menu 'a=9 a=l9395$:4030 1:7:1: d=a  5700D min>03300  'b-mtce-wage<0rem<0menu  b=b-mtce-wage  e=0:pir=0  j=c$(l,d) efine=0:sale=0:loss=0:cost=0:x=18:cost=cost+(p(x)*q(x)):x  a=1j  t=t+1 +h=0:x=18:h=h+q(x):x 'h(10 +(c*10 ))4135'  8,2;"Your cargo hold is over-full";10 ,1;"and your boat is listing badly.";12 ,2;"You have had to jettison 10%";14,1;"of your cargo to avoid capsize." "9395$:wait # ocost=cost $duty=0:cost=0:x=18:q(x)=q(x)-(q(x)/10 ):cost=cost+(q(x)*p(x)):duty=duty+(q(x)*p(x)/10 ):x %loss=loss+(ocost-cost) &cost=ocost::4124 '*int=int+o/100d:o=o+(o/100d) ,S:0,8;"S M U G G L E R.",,," Voyage from ";21;"to",,," Days";16;"Day";22;"Trading"," to";17;"of days so"," go Delay voyage far";12 ,0;"FORECAST - Wind force";14,0;"Boat can endure force",,," Will you:",,,," 1. Continue the voyage"," 2. Put in to a safe Harbour" 612,13 ;A$(L);2,24;A$(D) @C8,2;J-A+1;9;E;17;A+E;24@;T JF=(((+)/2)*110) Tf12 ,23;f;" ";13 ,20;" ";13 ,20;2;w$(1f) ^v14,23;c+5;" ";15,20;" ";15,20;4;w$(1c+5) h21,0;z$ 20:x$=:x=012 :.1}L,x:x x$="1"4300 x$="2"4252 9395$:4240  E=E+1 16,0;Z$;Z$;Z$;Z$ 418,1;"You have been delayed one day." %wait:16,0;Z$;Z$;Z$;Z$ :>risk4270 x=(*b/2) x=04270 d17,1;"During your stop-over you had";19,2;"`";x;" stolen in the Tavern." loss=loss+x:b=b-x 19395$:wait:16,0;Z$;Z$;Z$;Z$ :>risk4122 16,4;"During your stop-over a";17,2;"PRESS-GANG raided the Tavern.";18,5;"Some of your crew are";19,8;"now in the Navy." 'x=(*4)+2:e=e+x-1 19395$:wait:16,0;Z$;Z$;Z$;Z$ V17,5;"You are delayed ";x;" days";19,7;"seeking new crew." %wait:15,0;Z$;Z$;Z$;Z$  4122 VOYAGE **************** :8200 X=(*5)-2 W=F+X W<0W=0 54,0;"Your voyage is progressing well." M8,4;"The wind is now blowing";10 ,10 ;"at force ";W W04340 16,0;Z$;Z$;Z$;Z$ '16,7;"You are becalmed."  E=E+1  4282 wait WC+5 4930  w10 8000@ *16,6;"You have to jettison" W>C+84400 W>C+7`4500 !W>C+6@4600 &W>C+5 4700 0LOSE ALL CARGO : Q(8) Dloss=loss+cost Nduty=0 b$17,9 ;"ALL your cargo"  4900 LOSE 3/4 CARGO  ocost=cost duty=0:cost=0:x=18:q(x)=(q(x)/4):cost=cost+(q(x)*p(x)):duty=duty+(q(x)*p(x)/10 ):x loss=loss+(ocost-cost)  cost=ocost '17,8;"75% of your cargo"  4900 LOSE 1/2 CARGO  ocost=cost  duty=0:cost=0:x=18:q(x)=(q(x)/2):cost=cost+(q(x)*p(x)):duty=duty+(q(x)*p(x)/10 ):x loss=loss+(ocost-cost)  cost=ocost *'17,8;"50% of your cargo" R 4900 \LOSE 1/4 CARGO f ocost=cost pduty=0:cost=0:x=18:q(x)=(q(x)*3/4):cost=cost+(q(x)*p(x)):duty=duty+(q(x)*p(x)/10 ):x zloss=loss+(ocost-cost)  cost=ocost '17,8;"25% of your cargo"  4900 $)18,7;"to avoid capsizing." .9395$:wait B La Vl=d ` 8950 ARRIVE AT PORT ******** -:4,4;"You are nearing ";a$(d) }8,8;"Do you intend to";10 ,3;"SMUGGLE your cargo ashore";12 ,5;"or will you PAY DUTY?" =16,4;"Choose:",,,," 1. PAY DUTY"'" 2. SMUGGLE"  E=0  9850z& !A<1A>25050 sm=a A=25100`  8600!  wait:menu SMUGGLE *************** duty=0 X=(*6)+4 x*10005600 T4:10 ,2;"You do not have enough cash." ^9395$:wait r:2,3;"You have been CONVICTED of";4,7;"S M U G G L I N G";6,4;"and of B R I B I N G the";8,5;"R E V E N U E M E N." |12 ,6;"You are SENTENCED to";14,4;"seven days imprisonment";16,6;"for each offence and";18,1;"ALL your cargo is confiscated." 9395$:wait q(8):fine=fine+cost T=T+14` Aa=114:int=int+o/100d:o=o+(o/100d):a  59008` BRIBE OK ************** @:8,1;"THE Revenue Men have just left." 212 ,2;"Your cash has been adjusted." wait fine=fine+(1000*x) b=b-(x*1000) &8850":wait:menu Dcash reqiurements ***** R1::8710" TU2,2;"CASH REQUIREMENTS FOR VOYAGE";3,20;"`";27;"`" Xcost=0 l.a=18:cost=cost+(p(a)*q(a)):a vduty=(cost/10 ) mtce=100d*c  j=c$(l,d) wage=5*c*j ;x$=b:4,4;"Cash in hand";(30-x$);x$ =x$=mtce:6,5;"Maintenance";(23-x$);x$ amin=o-(5000*c):min>0x$=min:7,3;"Min.repayment";(23-x$);x$ min<0min=0 8x$=wage:8,11 ;"Wages";(23-x$);x$ mx$=duty:9 ,12 ;"Duty";(23-x$);x$:duty=09 ,1;1;"EMPTY HOLD" disb=mtce+min+wage+duty wx$=disb:10 ,17;"------";11 ,4;"Disbursments";(23-x$);x$;12 ,17;"------"  rem=b-disb Jx$=rem:13 ,24;"------";14,9 ;"Cash remaining"; *rem<02;(30-x$);x$ *rem00;(30-x$);x$ 15,24;"------" ,rem<0min>0mtce>b5878  5885 [2;1;6,2;"*";7,2;"*";16,2;"* WARNING" y17,2;"You cannot sail until the";18,3;"above accounts have been";19,3;"cleared." `3;1;20,1;"Do you wish to continue (y/n)?":0:="y"Ŧ="Y": menu  FREE ******************  8850 H *'19,7;"You are now free." > sm=1 H wait:menu pEND of game *********** z3:7:3: -1;3,8;"CONGRATULATIONS" 05,3;"You have made your fortune." 68,0;"You beat the target of `250,000." 410 ,2;"You made `";b;" in ";t;" days." 3a=((((b-250000t$)/1000)/t)*1000)  a=(a*diff) &12 ,7;"Your score is ";a Ea>hi1;14,0;"THIS IS A NEW RECORD..WELL DONE." /16,3;"The previous high was ";hi Mx=120:2:5:7:5:1:5:x  9360$  a>hihi=a  8400 020,0;"To play again just ......." wait  20 draw map ************** 1:5:9 : p28,173:0,-5:-2,-2:-4,0:-1,-1:0,-6 I2,-1:-5,-8:3,-5:12 ,5 $3,20:-7,3 K40(,175:2,-3:-3,-2:6,-4 J3,-8:-6,-2:0,-7:-4,-4 I6,-3:-8,-8:27,8:-4,4 Y5,5:0,2:-6,2:0,6:-10 ,14 J90Z,175:0,-2:2,-6:1,-2 M-1,-2:-15,-8:-1,-8:-2,-2 L-8,-5:-8,-10 :-5,0:-1,-4 p-2,-2:-8,0:-2,-2:0,-2:14,-12 :0,-2 a-2,-18:-2,-2:-30,4:-2,-2:-1,-20 J-2,-2:0,-2:2,-2:1,-16 Y2,-2:8,-1:4,-5:2,-1:4,2 Z10 ,1:12 ,10 :-2,5:0,2:8,12 X6,3:2,2:2,10 :3,2:10 ,-2 K14,12 :2,-1:4,-6:32 ,-22 H2,-3:-2,-3:0,-3:2,0 F4,8:-4,7:1,2:6,-3  J1,3:-26,14:-12 ,10 :0,6  F8,4:0,-3:2,-2:3,3 L7,-10 :10 ,-2:6,-4:16,-20 G8,-2:2,10 :-8,6:4,4 I-1,4:8,2:1,-6:20,-22 I2,4:24,6:4,-3:-3,-44, L-2,-4:-30,3:-32 ,1:-3,-3 K1,-14:-2,-2:-2,0:-10 ,6 K-2,0:-12 ,6:-5,-3:-10 ,6 F4,5:-6,8:2,5:-3,3 P-16,-4:-10 ,0:-16,-4:-24,-12  K-8,-1:-6,6:-3,-1:-4,-4 $)-10 ,-2:-17,-13 .1;3,3;2;"5";4,6;2;"1";3,9 ;2;"3";6,5;2;"2";16,3;2;"4";16,13 ;2;"6";18,26;2;"7";12 ,24;2;"8" 8L0,14;0;7;1;"S M U G G L E R ";2,23;4;9 ;0;"1 England";3,23;"2 France ";4,23;"3 Holland";5,23;"4 Spain ";6,23;"5 Ireland";7,23;"6 Barbary";8,23;"7 Egypt ";9 ,23;"8 Turkey " B/15,8;"";16,8;"" V115,25;"";16,25;"" `116,19;"";17,19;""  Xmove goods ************ ]+h=0:a=18:h=h+q(a):a b3:7:1: l " MOVEMENT OF GOODS - ";a$(l) n%2,10 ;"HOLD CAVE W/HSE" pTa=18:a;" ";b$(a);11 ;q(a);16;s(l,a);22;w(l,a):a r4,27;"HOLD";5,27;"can";6,27;"take";7,27;(10 +(10 *c));8,27;"cases" v514,0;"Which item do you wish to move?" {]16,0;"Choose"''"1-8 for individual item"'" 9 for all items"'"ZERO to quit."  9850z& a=0menu -a<1a>9 9395$:7030v (14,0;z$;z$;z$;z$;z$;z$;z$ a=9 7080 F14,0;"How many cases of ";b$(a)'" do you wish to move?" x x=x 14,0;z$;z$ )12 ,2;"Select the movement" 14,3;"1, HOLD to CAVE";3;"2, HOLD to WAREHOUSE";3;"3, CAVE to WAREHOUSE";3;"4, CAVE to HOLD";3;"5, WAREHOUSE to CAVE";3;"6, WAREHOUSE to HOLD" 021,0;"Choose 1-6 or ZERO to quit" .0:>"6"Ŧ<"0"9395$:7112 m= f12 ,0;z$;z$;z$;z$;10 ;1;"M O V I N G.";0;" ";z$;z$;z$;z$;z$ .5,4 m=0menu #m>69395$:7112 a=9 7600 m=17150 m=27200  m=37250R m=47300 m=57350 m=67400 move hold to cave c<17500L  q(a)risk Npir=1:ocost=cost X&x=36:q(x)=0:x b<cost=0:x=18:cost=cost+(q(x)*p(x)):x l%loss=loss+(ocost-cost)+b:b=0 vduty=(cost/10 ) { cost=ocost f0:7:0::x=0302:1;0,x;"";1,x;"":x Kx=0302:1;19,x;"";20,x;"":x 9395$ 3,2;"You have the honour of being";5,6;"boarded by ";1;"PIRATES.";0;7,3;"They were quite impressed" 9 ,2;"with your Cargo; So much so";11 ,4;"that they have taken all";13 ,2;"your ";1;"GOLD, BRANDY, WHISKEY &";15,12 ;"TOBACCO." ,17,5;"Oh and all your CASH!!" wait:: copy screen *********** 221,2;"Do you require a copy? (y/n)" (0:="y"21,0;z$:  !Pay duty ************** ! 8710" !+2,5;"PAYMENT OF EXCISE DUTY" !U4,4;"You are required to pay";6,5;"Excise Duty of `";duty !bdutyb=b-duty:8670! !m8,2;"As you have insufficient";9 ,2;"cash to meet this demand,";10 ,2;"you have been granted";11 ,2;"special overdraft facilities.";13 ,2;"You MUST reduce your over-";14,2;"draft to `";c*4000;", (the sale";15,2;"value of your boat) prior to";16,2;"sailing." ! o=o+duty !,18,5;"DUTY PAID - Thank you." ! !PRINT PRICES ********** ":8770B" ":a=0312 " A4;9 ;1;0,a;"`";1;"`";0 "a "a=1192 "4;9 ;1;1;a,0;"`";0;a,31;"`";a+1,0;"`";a+1,31;1;"`" "a "3a=0312 "8D4;9 ;1;1;21,a;"`";0;"`" "=a "> "B>2,6;"GOODS";15;"PRICE";24;"W/HSE" "Gx=4:A=18 "L=4+a,3;a;". ";b$(a);" `";p(a);25;w(l,a) "VA "[ "`WAIT LOOP ************* "jH21,0;1;" Press any key to continue. ":0 "t.5,5 "~ "PRINT FINANCIAL STATUS* " "a=0312 "A4;9 ;1;0,a;"`";1;"`";0 "C4;9 ;1;1;1,a;"`";0;"`" "C4;9 ;1;2,a;"`";1;"`";0 "a "%5,3;"S T A T U S R E P O R T.";8,6;"Level of play = ";(diff-.73333)*10 ;10 ,6;"Class of Boat = ";(c(c>0));(" "(c<1));12 ,7;"Cash in hand = `";b;14,10 ;"Overdraft = `";o;16,7;"Trading days = ";t " "PRINT HEADINGS ******** "5:5:9 : "-1,8;1;"S M U G G L E R" "&5,7;"You are in ";a$(l) ",8,4;"What do you wish to do?" " " "FIX PRICE ************* " ""P(1)=(*21()+5 "#P(2)=(*66)+10 "$P(3@)=(*201I)+50H "$P(4)=(*276 )+75 #%P(5 )=(*401H)+100H #%P(6@)=(*501z)+500z #$P(7)=(*1001)+1 #%P(8)=(*601Y)+200 #A=18 # 0PRICE NOT ADJUSTED FOR HOME COMMODITY # A=L8974 8 # <P(A)=P(A)+((C$(A,L)*P(A)*((((+)*2)+1)*))) # P(A)=P(A) #A # #(INITIALISE ************ #2A$(8,7) #4A$(1)="ENGLAND" #6A$(2)="FRANCE" #8A$(3@)="HOLLAND" #:A$(4)="SPAIN" #<A$(5 )="IRELAND" #>A$(6)="BARBARY" #@A$(7)="EGYPT" #BA$(8)="TURKEY" #FB$(8,7) #HB$(1)="TOOLS" #JB$(2)="PERFUME" #LB$(3@)="TOBACCO" #NB$(4)="BRANDY" #PB$(5 )="WHISKEY" #RB$(6@)="GOLD" #TB$(7)="RELICS" #VB$(8)="SPICES" #ZC$(8,8) #\C$(1)="01131577" #^C$(2)="10121466" #`C$(3)="11032577" #bC$(4)="32303244" #dC$(5)="11230577" #fC$(6)="54525022" #hC$(7)="76747201" #jC$(8)="76747210" #nw$="" #xy$(30) #z$(32 ) #x$=" " #NUMERICS ************** # a=0 $b=1000 $ c=1 $8diff=1.0diff=1.1 c=2:b=1500 $)diff=1.2c=3:b=2000 $risk=.1}L*diff*c $d=a $" e=1 $'h=a $@j=a $Jl=e $TO=5000*c $^ P(8) $h Q(8) $js(8,8) $lw(8,8) $rr=a $tt=a $uv=a $vmenu=100d $wwait=8800`" $ypir=a $zmin=a ${int=a $|sm=e $}sale=a $~cost=a $mtce=a $duty=a $fine=a $wage=a $loss=a $prof=a $ $music $Life on the Ocean Wave $.125},0:.125},0:.125},5:.125},5:.25~,5:.125},7:.5,9 $.125},5:.125},7:.125},9 :.125},9 :.125},9 :.25~,10 :.125},9 :.5,7 $ $Hearts of Oak $.5,5:.5,10 :.375?,10 :.125},12 :.5,10 :.375?,14:.125},12 $a.5,10 :.375?,9 :.125},7:.75@,5:.25~,5 $w.5,7:.375?,7:.125},9 :.5,10 :.375?,12 :.125},14 $z.5,15:.375?,14:.125},12 :.5,14:.375?,14:.125},12 $w.5,10 :.375?,2:.125},3:.5,5:.375?,14:.125},12 $`.5,10 :.375?,2:.125},3:.5,5:.5,10 $y.5,14:.375?,12 :.125},10 :.5,17:.375?,9 :.125},10 $y.5,12 :.375?,12 :.125},12 :.5,5:.375?,12 :.125},12 $y.5,12 :.375?,9 :.125},10 :.5,12 :.375?,14:.125},14 $e.5,14:.375?,10 :.125},12 :.75@,14:.25~,14 $k.5,10 :.25~,9 :.25~,14:.25~,10 :.25~,7:15 $.125},10 :.375?,10 :.5,5:.25~,2:.25~,-2:10 :.25~,5 $.375?,7:.125},9 :.375?,10 :.125},12 :.5,14:.375?,12 :.125},10 $M.5,17:.375?,5:.125},5:1,10 $ $ Sad sound $*.75@,-12 :.75@,-18 $ $RULES $ $T3,8;"S M U G G L E R";5,2;"is a game of high ADVENTURE.";9 ,2;"To succeed you require that";11 ,6;"rare blend of SKILL,";13 ,8;"LUCK and DARING.";15,3;"Your objective is to earn";17,3;"`250,000 in as few Trading";19,7;"days as possible." $#wait:2:2:7: $'3,7;"STARTING POSITION." $q6,0;" level class cash over-of play of boat in hand draft";21;"`";29;"`" $G10 ,3;"1";12 ;"1";20;"1000";28;"5000" $G12 ,3;"2";12 ;"1";20;"1000";28;"5000" $H14,3;"3";12 ;"2";20;"1500";27;"10000" $H16,3;"4";12 ;"2";20;"1500";27;"10000" $H18,3;"5";12 ;"3";20;"2000";27;"15000" $#wait:3:3:7: % " BUYING OR SELLING A BOAT." % ''''"1. Boats range from class 1-5 2. Sell for `4000 * class 3. Buy for `5000 * class 4. Buy/Sell once per voyage 5. You can only buy a boat 1 class higher than the last." %'wait:4:4:7: %(" SAILING." %*9''"1. Maintenance costs"'" `100 * class per voyage." %+"2. Voyages are 1-7 days." %,"3. Note wind forecasts." %-q"4. Sheltering from high winds will cause delay; Risking it may lead to loss of cargo." %.0"5. Gale force winds can run you aground." %/"6. Beware of Pirates." %0#wait:5:5:9 : %4" SMUGGLING" %8F''"1. You may SMUGGLE or pay DUTY. 2. DUTY is 10% of cargo cost. 3. If you SMUGGLE you may get away with it."'"4. If caught you may wish to come quietly and suffer certain penalties."'"5. You may choose to BRIBE the Revenue Men;"'" If it works you are free; If it fails .........Well!!" %:#wait:6:6:9 : %>#10 ,9 ;"Wait and see!" %D#wait:4:4:0: %H%3,7;"COMMODITY PRICES" %X''" The price of each commodity is"'" fixed within a range for its"'" Home Port and is modified to"'" reflect the number of days"'" sailing from the Home Port"'" and a market variation factor." %]#wait:3:3:7: %b,," Goods can be bought and sold only at a Warehouse.",,,"You can store Goods in 3 places:",,"1, In the HOLD of your Boat 2, In a CAVE at any of the eight Ports and/or 3, In the WAREHOUSE at any of the eight Ports" %#wait:2:2:7: %" PRICE RANGES" %''"1. ENGLAND TOOLS 5- 25 2. FRANCE PERFUME 10- 75 3. HOLLAND TOBACCO 50- 250 4. SPAIN BRANDY 75- 350 5. IRELAND WHISKEY 100- 500 6. BARBARY GOLD 500-1000 7. EGYPT RELICS 1-1000 8. TURKEY SPICES 200- 800" %318,0;"Would you like a print (y/n)?" %!0:x$=:.1}L,5 %'x$="Y"x$="y"18,0;z$: %1:5:9 : %8;"PAYING YOUR MEN" %3,1;"Your men are paid `1 per day,";1;"based on the length of Voyage,";4;"and includes their keep." %‹7,3;"A Class 1 Boat requires a";9 ;"crew of 5 men.";5;"Each increase in class";5;"requires 5 extra men." %#wait:2:6:2: %"3,9 ;"BANK INTEREST" %=6,3;"Interest is 1% (compound)";4;"for each Trading day and";2;"is added to your overdraft.";10 ,1;"Your Bankers are very helpful";2;"and can provide spontaneous";3;"loans, but do require that";5;"some of the balance is";4;"cleared before Sailing." %wait: %ڢ6,8;"R E C O V E R Y.";10 ,3;"If you 'BREAK' the program";12 ,6;"you can recover with";14,8;"GOTO 100 (menu)." %#wait:1:7:9 : % &z"0:>"9"Ŧ<"0"9850z& &a= &.1}L,5 & &COPYRIGHT &V"T",31:"T"+1,63?:"T"+2,112p:"T"+3,224 &^"T"+4,224:"T"+5,112p:"T"+6,63?:"T"+7,31 &R"U",0:"U"+1,15:"U"+2,15:"U"+3,3 &\"U"+4,1:"U"+5,0:"U"+6,127:"U"+7,127 &V"S",0:"S"+1,254:"S"+2,254:"S"+3,128 &`"S"+4,192:"S"+5,224:"S"+6,240:"S"+7,240 &0:0:7: &22,7;"PUBLISHED BY ";1;"" &!3,22;1;"" &05,7;1;" T.R.A.Hainsworth" &&9 ,7;"COPYRIGHT WARNING" &,,,,"CASES COMPUTER SIMULATIONS LTD ":"will rigorously protect the copy":"-right, of SMUGGLER. Please note":"unauthorised copying, hiring,":"and lending of this software is":"strictly prohibited." &A21,2;6;1;"Press any key to continue" &=""9965& & & &"SMUGGLER"9986' 'menu '8100:menu '65536-7962 U4 OSU M-   K2-8C-*X^Y0H( AU-*X^S0H GU4 OSU MKL/SS0< PA- -^-WQ K  I   -`(46-  -8C6-W K   46  - OSW- Tnr - - USS    -/SS0< ȈP(U0 TnhPE- z