ZXTape! 0Created with Ramsoft MakeTZXTAIPAN lin TAIPAN _ A GAME BY J.K.MOODY. 1ZX SPECTRUM BASIC VERSION  1982 JAMES GREENALL :"0","12";"TAIPAN"  "9500" &"5","4";"WITH WHOM AM I PLAYING?" N$ "7000"  N=(("31"-(N$+"9"))/"2") ^T="0":V="0":B="500":Y="5000":U="50":G="0":A="0":S="0":W="0":O="0":L="1"  P("5")  "9900"  "9800" ( "8000" FX"14","0";"OPTIONS:";"18";"PRICES:";"16","0";"1.BUY";"18";"GENERAL $";P("1") KO"2.SELL";"18";"ARMS $";P("2");"0";"3.QUIT";"18";"SILK $";P("3") P"L="1""0";"4.VISIT SUM YAN"; Q"18";"WOMEN $";P("4") U%L="1""0";"(THE MONEY LENDER)"; V"18";"OPIUM $";P("5") ZC _$L>"1"C="4"C<"1"C>"4""90" d C*"1000" BUY ROUTINE  "8000" f"14","0";"WHAT DO YOU WISH ";"18";"PRICES:","TO BUY?",,"(G/A/S/W/O)";"18";"GENERAL $";P("1") m"18";"ARMS $";P("2");"18";"SILK $";P("3");"18";"WOMEN $";P("4");"18";"OPIUM $";P("5") P$ $-P$"G"P$"A"P$"S"P$"W"P$"O""1050" . "9600" [ "8000" `|"14","0";"YOU CAN AFFORD";"18";"PRICES:","TO BUY ";(B/P);"16","18";"GENERAL $";P("1");"18";"ARMS $";P("2") e;"HOW MANY DO YOU";"18";"SILK $";P("3"),"WISHBUY?"; j7"18";"WOMEN $";P("4");"18";"OPIUM $";P("5") tQ ~Q>UQ>(B/P)"1140" U=U-Q:B=B-(Q*P) P$="G"G=G+Q P$="A"A=A+Q P$="S"S=S+Q P$="W"W=W+Q P$="O"O=O+Q "40" SELL ROUTINE  "8000" "14","0";"WHAT DO YOU WISH";"18";"PRICES:","TO SELL?",,"(G/A/S/W/O)";"18";"GENERAL $";P("1");"18";"ARMS $";P("2");"18";"SILK $";P("3");"18";"WOMEN $";P("4");"18";"OPIUM $";P("5") P$ -P$"G"P$"A"P$"S"P$"W"P$"O""2030"  "9600" 4 "8000" >"14","0";"HOW MANY DO YOU";"18";"PRICES:","WISH TO SELL?",,"18";"GENERAL $";P("1");"18";"ARMS $";P("2");"18";"SILK $";P("3");"18";"WOMEN $";P("4");"18";"OPIUM $";P("5") HQ RK(P$="G"Q>G)(P$="A"Q>A)(P$="S"Q>S)(P$="W"Q>W)(P$="O"Q>O)"2120" B=B+P*Q:U=U+Q P$="G"G=G-Q P$="A"A=A-Q P$="S"S=S-Q P$="W"W=W-Q P$="O"O=O-Q "40" QUIT ROUTINE BȰ"100000"Y="0""9000" T=T+"1":V=V+"1" "8000" "14","0";"DESTINATION?";"18";"PRICES:",,,"1.HONG KONG";"18";"GENERAL $";P("1"),"2.SINGAPORE";"18";"ARMS $";P("2"),"3.MACAO";"18";"SILK $";P("3"),"4.BANGKOK";"18";"WOMEN $";P("4"),"5.SHANGHAI";"18";"OPIUM $";P("5") L LɺLL<"1"L>"5""3030" "9900" "1"-RV>"5"Y>"0""9100" Y=(("1"+I)*Y) "30" SUM YAN ROUTINE V="0"  "8000" "14","0";"DO YOU WISH TO";"18";"PRICES:","BORROW OR REPAY",,"(B/R)";"18";"GENERAL $";P("1");"18";"ARMS $";P("2");"18";"SILK $";P("3");"18";"WOMEN $";P("4");"18";"OPIUM $";P("5") C$ C$"B"C$"R""4030" C$="B""4500" ҁ"18","0";"HOW MUCH DO YOU";"18";"SILK $";P("3"),"WISH TO REPAY?";"18";"WOMEN $";P("4");"18";"OPIUM $";P("5") M MɺMM>YM>B"4060" Y=Y-M:B=B-M "40" "18","0";"HOW MUCH DO YOU";"18";"SILK $";P("3"),"WISH TO BORROW?";"18";"WOMEN $";P("4");"18";"OPIUM $";P("5") M M>YM>"5000""4600" Y=Y+M:B=B+M "40" "18","0";"HE WILL NOT LEND";"18";"SILK $";P("3"),"YOU SO MUCH";"18";"WOMEN $";P("4");"18";"OPIUM $";P("5") "125"  "4500" pM(23730\+256*23731\)-(23641Y\+256*23642Z\) z XSELECT PLAY LEVEL b lU0,12 ;"TAIPAN";6,((31-(N$+6))/2);"HELLO ";N$ q8,5;"WHICH STANDARD OF PLAY";9 ;"WOULD YOU LIKE ?";11 ,5;"1.BEGINNER";13 ,5;"2.EXPERIENCED TRADER";15,5;"3.FINANCIAL WIZARD" vC {&CɺCC<1C>37030v C*100d+7000X  BEGINNER  I=.10}L WP=500 OP=1000  R=.1}L   EXPERIENCED TRADER % I=.15~ *WP=1000 4OP=3000 > R=.2~L H FINANCIAL WIZARD  I=.2~L WP=1500 OP=5000  R=.3  @DISPLAY ROUTINE J TN;"HOUSE OF ";N$,,,"********************************";"4","0";"BANK $";B;"16";"GENERAL ";G;"16";"ARMS ";A;"0";"SUM YAN $";Y;"16";"SILK ";S;"16";"WOMEN ";W ^t"0";"UNITS :";U;"16";"OPIUM ";O;"10","0";"LOCATION:";L$;"12","0";"********************************" h #( WIN ROUTINE #- #26,5;"CONGRATULATIONS TAIPAN";8,3;"YOU HAVE $100000 AND CAN";11 ;"NOW RETIRE";12 ,1;"YOU TOOK ";(T/12 );" YEARS AND ";T-12 *(T/12 );" MONTHS" # #SUM YAN SENDS THE BOYS ROUND # #a8,3;"SUM YAN IS CONCERNED ABOUT";10 ,3;"YOUR OUTSTANDING DEBT TAIPAN!" # 200 #]12 ,3;"HE HAS THEREFORE SENT SOME";14,4;"""FRIENDS""TO COLLECT IT" # 200 #B &C &HPRICE FIXING ROUTINE &R P(5) &\P("1")=(*"16") &fP("1")<"1""9820" &kP("2")="10"*(*"19") &pP("2")<"50""9835" &uP("3")="10"*(*"100") &zP("3")<"300""9845" &P("4")="100"*(*"31") &P("4")