Home » CEEFAX disks » telesoftware6.adl » 04-04-88/SSTRADE

04-04-88/SSTRADE

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » CEEFAX disks » telesoftware6.adl
Filename: 04-04-88/SSTRADE
Read OK:
File size: 1C5D bytes
Load address: FFFF0E00
Exec address: FFFF802B
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
   10REM (c) Peter Arnold 1987
   20:
   30:
   40:
   50 ON ERROR PROCerror
   60MODE7
   70PROCinstruct
   80PROCsetup
   90PROCprices
  100REPEAT
  110PROCtopscreen
  120PROCmainpart
  130PROCclear
  140UNTIL B>(100000+Y)
  150PROCwin
  160:
  170DEFPROCbuy
  180PROCclear
  190PRINTTAB(0,14);"What is the number";TAB(0);"of the goods you";TAB(0);"wish to buy? ";
  200P$=GET$
  210IFP$<>"0" AND P$<>"1"ANDP$<>"2"ANDP$<>"3"ANDP$<>"4"ANDP$<>"5"THENGOTO200
  220PRINT'"   ";
  230IF P$="0" THEN ENDPROC
  240IFP$="1"THEN PRINT"General":PROCpause:P=P(1)
  250IFP$="2"THEN PRINT"Arms":PROCpause:P=P(2)
  260IFP$="3"THEN PRINT"Silk":PROCpause:P=P(3)
  270IFP$="4"THEN PRINT"Whisky":PROCpause:P=P(4)
  280IFP$="5"THEN PRINT"Opium":PROCpause:P=P(5)
  290PROCclear
  300PRINTTAB(0,14);"You can afford";TAB(0);"to buy ";INT(B/P)
  310PRINTTAB(0,17);"How many do you";TAB(0);"wish to buy"
  320INPUTQ:Q=INT(Q)
  330IFQ>U THEN PRINT"You only have":PRINT"space for ";U:PROCspace:GOTO290
  340IFQ*P>B THENPRINT"You haven't got":PRINT"enough money":PROCspace:GOTO290
  350U=U-Q
  360B=B-(Q*P)
  370IFP$="1"THENG=G+Q
  380IFP$="2"THENA=A+Q
  390IFP$="3"THENS=S+Q
  400IFP$="4"THENW=W+Q
  410IFP$="5"THENO=O+Q
  420PROCclear
  430ENDPROC
  440:
  450DEFPROCsell
  460PROCclear
  470PRINTTAB(0,14);"What is the number";TAB(0);"of the goods you";TAB(0);"wish to sell? ";
  480P$=GET$
  490IFP$<>"0" AND P$<>"1"ANDP$<>"2"ANDP$<>"3"ANDP$<>"4"ANDP$<>"5"THENGOTO480
  500PRINT'""
  510IFP$="0"THEN ENDPROC
  520IFP$="1"THEN PRINT"General":PROCpause:P=P(1)
  530IFP$="2"THEN PRINT"Arms":PROCpause:P=P(2)
  540IFP$="3"THEN PRINT"Silk":PROCpause:P=P(3)
  550IFP$="4"THEN PRINT"Whisky":PROCpause:P=P(4)
  560IFP$="5"THEN PRINT"Opium":PROCpause:P=P(5)
  570PROCclear
  580PRINTTAB(0,14);"How many do you";TAB(0);"wish to sell"
  590INPUTQ:Q=INT(Q)
  600IF P$="1" AND Q>G THEN VDU7:GOTO570
  610IF P$="2" AND Q>A THEN VDU7:GOTO570
  620IF P$="3" AND Q>S THEN VDU7:GOTO570
  630IF P$="4" AND Q>W THEN VDU7:GOTO570
  640IF P$="5" AND Q>O THEN VDU7:GOTO570
  650B=B+P*Q
  660U=U+Q
  670IF P$="1" THEN G=G-Q
  680IF P$="2" THEN A=A-Q
  690IF P$="3" THEN S=S-Q
  700IF P$="4" THEN W=W-Q
  710IF P$="5" THEN O=O-Q
  720PROCclear
  730ENDPROC
  740:
  750DEFPROCsail
  760LO=L
  770PROCclear
  780PRINTTAB(0,14);"Destination ?";TAB(0,16);"1. Hong Kong";TAB(0);"2. Singapore";TAB(0);"3. Macao";TAB(0);"4. Bangkok";TAB(0);"5. Shanghai"
  790TEMP$=GET$:L=VAL(TEMP$)
  800IFL<>INT L OR L<0 ORL>5THENGOTO790
  810 IF L=0 THEN ENDPROC
  820IF LO=L THEN PROCclear:PRINTTAB(0,15);''"You are there now!":VDU7:PROCspace:ENDPROC
  830PROCports:T=T+1
  840PRINT L$:PROCpause
  850IFRND(20)>18 THEN PROCstorm
  860Y=INT(1.12*Y)
  870PROCprices:ENDPROC
  880:
  890DEFPROCsum
  900PROCclear
  910PRINTTAB(0,14);"Do you wish to";TAB(0);"1. Borrow  OR";TAB(0);"2. Repay";TAB(0);"?";
  920C$=GET$
  930IFC$<>"1"ANDC$<>"2"AND C$<>"0"THENGOTO920
  940 IF C$="0" THEN ENDPROC
  950IFC$="1"GOTO1060
  960PRINT"Repay":PROCpause
  970PRINTTAB(0,18);"How many $ do you";TAB(0);"wish to repay?"
  980INPUTM:M=INT(M)
  990IF M<0 THEN PROCclear:PRINTTAB(0,14);"You can't repay a";TAB(0);"negative ammount!":VDU7:PROCspace:PROCclear:GOTO970
 1000IF M>Y THEN PRINT"You don't owe him":PRINT"that much!":VDU7:PROCspace:PROCclear:ENDPROC
 1010IF M>B THEN PRINT"You don't have":PRINT"that much money!":VDU7:PROCspace:PROCclear:ENDPROC
 1020Y=Y-M
 1030B=B-M
 1040PROCclear
 1050ENDPROC
 1060PRINT"Borrow":PROCpause
 1070IF Y>10000 THEN PROCclear:PRINT"You owe him too much";TAB(0);"   already!":VDU7:PROCspace:PROCclear:ENDPROC
 1080PRINTTAB(0,18);"How many $ do you";TAB(0);"wish to borrow ?"
 1090INPUTM
 1100IF M<0 THEN PROCclear:PRINTTAB(0,14);"You can't borrow";TAB(0);"a negative ammount!":VDU7:PROCspace:PROCpause:PROCclear:GOTO1080
 1110IF M+Y>10000 THEN PROCclear:VDU7:PRINTTAB(0,14);"Sum Yen will not":PRINT"lend more than":PRINT"$10,000":PROCspace:PROCclear:GOTO1140
 1120Y=Y+M
 1130B=B+M
 1140PROCclear
 1150ENDPROC
 1160:
 1170DEFPROCwin
 1180CLS
 1190PRINTTAB(9,5);CHR$(141)"�CONGRATULATIONS"
 1200PRINTTAB(9,6);CHR$(141)"�CONGRATULATIONS"
 1210PRINTTAB(6,8);"YOU HAVE $";(B-Y);" AND CAN";TAB(13);"NOW RETIRE"
 1220PRINTTAB(7,12);"YOU TOOK ";T;" MOVES."
 1230FORGG=1TO11
 1240READP,D
 1250IFP=999 THEN L=0 ELSE L=-5
 1260SOUND1,L,P,D
 1270SOUND1,0,0,3
 1280NEXT
 1290DATA 97,15,97,5,101,5,999,5,101,5,97,5,101,10,97,2,89,5,81,5,77,10
 1300PRINT'''''''"     Another Go? (Y/N)";
 1310REPEAT:P$=GET$:IF P$="Y" OR P$="y" THEN ENDPROC
 1320UNTIL P$="N" OR P$="n"
 1330CLS:END
 1340:
 1350DEFPROCinstruct
 1360PROCtitle
 1370PRINTTAB(0,4);"   It is the early 19th century. You arethe captian of the ZAN PING -  a tradingship. You have $500 in the bank but, youowe the moneylender (SUM YEN) $5000.Thismust be repaid."
 1380PRINT''" The aim of the  game  is  to  accumlate$100,000 by buying and selling  items infive  different  ports.  The prices  aredifferent in every  port. Beware though,Sum Yen  charges  you  12%  interest  onevery trip you make."
 1390PRINT''" Your  home  port  is Hong Kong. Sum Yenhas his office there too."
 1400PRINT':PROCspace
 1410PROCtitle
 1420PRINTTAB(0,3);"    The screen display is  divided  intoquarters. The top left hand  part  showshow much money you  have  and  how  muchyou owe. It also shows  how  much  spaceyou have left for cargo. Your  ship  canhold 50 units."
 1430PRINT"  The top right part shows what items ofcargo  you have on board out of the fivethings on sale."
 1440PRINT"  The bottom left part is the area whereall the instructions come up. You can dothree  things,  buy,  sell,  or sail. InHong Kong you can also visit Sum Yen. Ifyou  chose the wrong option then you cango back to the main menu by typing 0."
 1450PRINT"  In  the  bottom  right hand box is theprices  of  the five items. These changeevery time you sail."
 1460PRINT':PROCspace
 1470ENDPROC
 1480:
 1490DEFPROCstorm:CLS
 1500PRINTTAB(7,10);"** STORM,TAIPAN **"
 1510PROClpause
 1520IFRND(20)>15THENGOTO1630
 1530PRINTTAB(4,16);"WE WILL HAVE TO JETTISON";TAB(9,18);"HALF THE CARGO"
 1540PRINT''''"                        ";:PROCspace
 1550U=U+INT((50-U)/2)
 1560G=INT(G/2)
 1570A=INT(A/2)
 1580S=INT(S/2)
 1590W=INT(W/2)
 1600O=INT(O/2)
 1610CLS
 1620ENDPROC
 1630PRINTTAB(11,16);"STORM OVER";TAB(13,18);"ALL O.K."
 1640PRINT''''"                        ";:PROCspace
 1650CLS
 1660ENDPROC
 1670:
 1680DEFPROCprices
 1690LETP(1)=INT(RND(1)*16)
 1700IFP(1)<1THENGOTO1690
 1710P(2)=10*INT(RND(1)*19)
 1720IFP(2)<50THENGOTO1710
 1730P(3)=10*INT(RND(1)*100)
 1740IFP(3)<300THENGOTO1730
 1750P(4)=100*INT(RND(1)*31)
 1760IFP(4)<500THENGOTO1750
 1770P(5)=100*INT(RND(1)*101)
 1780IFP(5)<1000THENGOTO1770
 1790ENDPROC
 1800:
 1810DEFPROCports
 1820IFL=1THENL$="HONG KONG"
 1830IFL=2THENL$="SINGAPORE"
 1840IFL=3THENL$="MACAO    "
 1850IFL=4THENL$="BANGKOK  "
 1860IFL=5THENL$="SHANGHAI "
 1870ENDPROC
 1880:
 1890DEFPROCclear
 1900VDU23,1,0;0;0;0;
 1910FORX=14TO23
 1920PRINTTAB(0,X);"                     "
 1930NEXTX
 1940VDU23,1,1,0,0;0;0;
 1950ENDPROC
 1960:
 1970DEFPROCtitle
 1980CLS
 1990PRINTTAB(8,0)CHR$(141)CHR$(132)"South Seas Trader"
 2000PRINTTAB(8,1)CHR$(141)CHR$(132)"South Seas Trader"
 2010ENDPROC
 2020:
 2030DEFPROCspace
 2040PRINT"PRESS";CHR$(136);"<SPACE>";CHR$(137)
 2050*FX15,0
 2060REPEAT UNTIL GET$=" "
 2070ENDPROC
 2080:
 2090DEFPROCtopscreen:CLS
 2100VDU23,1,0;0;0;0;
 2110N=(INT((38-(LENN$+8))/2))
 2120PRINTTAB(1,0);CHR$(157);CHR$(141);TAB(N,0);"�BOAT OF ";N$
 2130PRINTTAB(1,1);CHR$(157);CHR$(141);TAB(N,1);"�BOAT OF ";N$
 2140PRINTTAB(0,2);"�***************************************";TAB(0,12);"�***************************************"
 2150PROCclear
 2160VDU23,1,1,0,0;0;0;
 2170ENDPROC
 2180:
 2190DEFPROCsetup
 2200*FX11,0
 2210*FX200,1
 2220DIMP(5)
 2230CLS:PROCtitle
 2240PRINTTAB(1,4);"Please tell me your name "
 2250INPUTTAB(3,6)"? "N$
 2260IFLEN(N$)>24THENPRINT"Sorry, your name is to long.":PROCspace:GOTO2230
 2270IF N$="" THEN GOTO 2230
 2280CLS
 2290N=INT((31-(LENN$+9))/2)
 2300W=0
 2310O=0
 2320L=1
 2330PROCports
 2340B=500
 2350Y=5000
 2360U=50
 2370G=0
 2380A=0
 2390S=0
 2400ENDPROC
 2410:
 2420DEFPROCmainpart
 2430VDU 23,1,0;0;0;0;
 2440PRINTTAB(10,4);B;"    ";TAB(32,4);G;"  ";TAB(32,5);A;"   ";TAB(10,6);Y;"      ";TAB(32,6);S;"   ";TAB(32,7);W;"   ";TAB(10,8);U;"  ";TAB(32,8);O;"   "
 2450PRINTTAB(0,4);"�Bank    $";TAB(0,6);"�Sum Yen $";TAB(0,8);"�Units   :";TAB(0,10)"�Location:";TAB(4,3);"STATUS";TAB(25,3);"CARGO"
 2460PRINTTAB(23,4);"General";TAB(22,5);"�Arms";TAB(23,6);"Silk";TAB(22,7);"�Whiskey";TAB(23,8);"Opium"
 2470PRINTTAB(10,10);L$
 2480PRINTTAB(26,14);"PRICES:";TAB(21,16);"1. General $     ";TAB(33,16);P(1);TAB(21);"2. Arms    $     ";TAB(33,17);P(2);TAB(21);"3. Silk    $     ";TAB(33,18);P(3);TAB(21);"4. Whiskey $     ";TAB(33,19);P(4);TAB(21);"5. Opium   $     ";TAB(33,20);P(5)
 2490PRINTTAB(2,14);"OPTIONS:";TAB(0,16);"1. BUY";TAB(0);"2. SELL";TAB(0);"3. SAIL"
 2500IFL=1PRINTTAB(0,19);"4. VISIT SUM YEN";TAB(0);"(THE MONEYLENDER)":PRINT"?";:VDU23,1,1,0,0;0;0;
 2510TEMP$=GET$
 2520C=VAL(TEMP$)
 2530IFC<>INT C OR C<1ORC>4 THENGOTO2500
 2540IFL<>1ANDC>3THENGOTO2500
 2550IF C=1 THEN PRINT"BUY":PROCpause:PROCbuy
 2560IF C=2 THEN PRINT"SELL":PROCpause:PROCsell
 2570IF C=3 THEN PRINT"SAIL":PROCpause:PROCsail
 2580IF C=4 THEN PRINT"SUM YEN":PROCpause:PROCsum
 2590ENDPROC
 2600:
 2610DEFPROCpause
 2620FOR TEMP%=1 TO 2000:NEXT
 2630ENDPROC
 2640:
 2650DEFPROClpause
 2660FOR TEMP%=1 TO 10000:NEXT
 2670ENDPROC
 2680:
 2690DEFPROCerror
 2700*FX12,0
 2710CLS
 2720REPORT:PRINT" at line ";ERL
 2730END

� (c) Peter Arnold 1987
:
:
(:
2 � � �error
<�7
F
�instruct
P
�setup
Z�prices
d�
n�topscreen
x
�mainpart
�
�clear
�� B>(100000+Y)
��win
�:
�	��buy
�
�clear
�L�0,14);"What is the number";�0);"of the goods you";�0);"wish to buy? ";
�P$=�
�<�P$<>"0" � P$<>"1"�P$<>"2"�P$<>"3"�P$<>"4"�P$<>"5"��dH@
��'"   ";
�� P$="0" � �
�%�P$="1"� �"General":�pause:P=P(1)
�"�P$="2"� �"Arms":�pause:P=P(2)
"�P$="3"� �"Silk":�pause:P=P(3)
$�P$="4"� �"Whisky":�pause:P=P(4)
#�P$="5"� �"Opium":�pause:P=P(5)
"
�clear
,1�0,14);"You can afford";�0);"to buy ";�(B/P)
6/�0,17);"How many do you";�0);"wish to buy"
@
�Q:Q=�(Q)
J8�Q>U � �"You only have":�"space for ";U:�space:�TbA
T;�Q*P>B ��"You haven't got":�"enough money":�space:�TbA
^	U=U-Q
h
B=B-(Q*P)
r�P$="1"�G=G+Q
|�P$="2"�A=A+Q
��P$="3"�S=S+Q
��P$="4"�W=W+Q
��P$="5"�O=O+Q
�
�clear
��
�:
�
��sell
�
�clear
�M�0,14);"What is the number";�0);"of the goods you";�0);"wish to sell? ";
�P$=�
�<�P$<>"0" � P$<>"1"�P$<>"2"�P$<>"3"�P$<>"4"�P$<>"5"��d`A
��'""
��P$="0"� �
%�P$="1"� �"General":�pause:P=P(1)
"�P$="2"� �"Arms":�pause:P=P(2)
"�P$="3"� �"Silk":�pause:P=P(3)
&$�P$="4"� �"Whisky":�pause:P=P(4)
0#�P$="5"� �"Opium":�pause:P=P(5)
:
�clear
D0�0,14);"How many do you";�0);"wish to sell"
N
�Q:Q=�(Q)
X� P$="1" � Q>G � �7:�TzB
b� P$="2" � Q>A � �7:�TzB
l� P$="3" � Q>S � �7:�TzB
v� P$="4" � Q>W � �7:�TzB
�� P$="5" � Q>O � �7:�TzB
�B=B+P*Q
�	U=U+Q
�� P$="1" � G=G-Q
�� P$="2" � A=A-Q
�� P$="3" � S=S-Q
�� P$="4" � W=W-Q
�� P$="5" � O=O-Q
�
�clear
��
�:
�
��sail
�LO=L

�clear
v�0,14);"Destination ?";�0,16);"1. Hong Kong";�0);"2. Singapore";�0);"3. Macao";�0);"4. Bangkok";�0);"5. Shanghai"
TEMP$=�:L=�(TEMP$)
 �L<>� L � L<0 �L>5��TVC
* � L=0 � �
4>� LO=L � �clear:�0,15);''"You are there now!":�7:�space:�
>�ports:T=T+1
H� L$:�pause
R�(20)>18 � �storm
\Y=�(1.12*Y)
f
�prices:�
p:
z	��sum
�
�clear
�H�0,14);"Do you wish to";�0);"1. Borrow  OR";�0);"2. Repay";�0);"?";
�C$=�
�#�C$<>"1"�C$<>"2"� C$<>"0"��tXC
� � C$="0" � �
��C$="1"�TdD
��"Repay":�pause
�4�0,18);"How many $ do you";�0);"wish to repay?"
�
�M:M=�(M)
�]� M<0 � �clear:�0,14);"You can't repay a";�0);"negative ammount!":�7:�space:�clear:�dJC
�A� M>Y � �"You don't owe him":�"that much!":�7:�space:�clear:�
�D� M>B � �"You don't have":�"that much money!":�7:�space:�clear:�
�	Y=Y-M
	B=B-M

�clear
�
$�"Borrow":�pause
.S� Y>10000 � �clear:�"You owe him too much";�0);"   already!":�7:�space:�clear:�
86�0,18);"How many $ do you";�0);"wish to borrow ?"
B�M
Le� M<0 � �clear:�0,14);"You can't borrow";�0);"a negative ammount!":�7:�space:�pause:�clear:�TxD
Vg� M+Y>10000 � �clear:�7:�0,14);"Sum Yen will not":�"lend more than":�"$10,000":�space:�clear:�DtD
`	Y=Y+M
j	B=B+M
t
�clear
~�
�:
�	��win
��
�#�9,5);�(141)"�CONGRATULATIONS"
�#�9,6);�(141)"�CONGRATULATIONS"
�:�6,8);"YOU HAVE $";(B-Y);" AND CAN";�13);"NOW RETIRE"
�#�7,12);"YOU TOOK ";T;" MOVES."
��GG=1�11
��P,D
��P=999 � L=0 � L=-5
��1,L,P,D
��1,0,0,3
�

C� 97,15,97,5,101,5,999,5,101,5,97,5,101,10,97,2,89,5,81,5,77,10
%�'''''''"     Another Go? (Y/N)";
 �:P$=�:� P$="Y" � P$="y" � �
(� P$="N" � P$="n"
2�:�
<:
F��instruct
P
�title
Z��0,4);"   It is the early 19th century. You arethe captian of the ZAN PING -  a tradingship. You have $500 in the bank but, youowe the moneylender (SUM YEN) $5000.Thismust be repaid."
d��''" The aim of the  game  is  to  accumlate$100,000 by buying and selling  items infive  different  ports.  The prices  aredifferent in every  port. Beware though,Sum Yen  charges  you  12%  interest  onevery trip you make."
nJ�''" Your  home  port  is Hong Kong. Sum Yenhas his office there too."
x
�':�space
�
�title
���0,3);"    The screen display is  divided  intoquarters. The top left hand  part  showshow much money you  have  and  how  muchyou owe. It also shows  how  much  spaceyou have left for cargo. Your  ship  canhold 50 units."
�f�"  The top right part shows what items ofcargo  you have on board out of the fivethings on sale."
���"  The bottom left part is the area whereall the instructions come up. You can dothree  things,  buy,  sell,  or sail. InHong Kong you can also visit Sum Yen. Ifyou  chose the wrong option then you cango back to the main menu by typing 0."
�k�"  In  the  bottom  right hand box is theprices  of  the five items. These changeevery time you sail."
�
�':�space
��
�:
�
��storm:�
� �7,10);"** STORM,TAIPAN **"
��lpause
��(20)>15��D^F
�>�4,16);"WE WILL HAVE TO JETTISON";�9,18);"HALF THE CARGO"
+�''''"                        ";:�space
U=U+�((50-U)/2)
G=�(G/2)
"A=�(A/2)
,S=�(S/2)
6W=�(W/2)
@O=�(O/2)
J�
T�
^,�11,16);"STORM OVER";�13,18);"ALL O.K."
h+�''''"                        ";:�space
r�
|�
�:
���prices
��P(1)=�(�(1)*16)
��P(1)<1��tZF
�P(2)=10*�(�(1)*19)
��P(2)<50��tnF
�P(3)=10*�(�(1)*100)
��P(3)<300��dBF
�P(4)=100*�(�(1)*31)
��P(4)<500��dVF
�P(5)=100*�(�(1)*101)
��P(5)<1000��djF
��
:
��ports
�L=1�L$="HONG KONG"
&�L=2�L$="SINGAPORE"
0�L=3�L$="MACAO    "
:�L=4�L$="BANGKOK  "
D�L=5�L$="SHANGHAI "
N�
X:
b��clear
l�23,1,0;0;0;0;
v�X=14�23
�"�0,X);"                     "
��X
��23,1,1,0,0;0;0;
��
�:
���title
��
�)�8,0)�(141)�(132)"South Seas Trader"
�)�8,1)�(141)�(132)"South Seas Trader"
��
�:
���space
�$�"PRESS";�(136);"<SPACE>";�(137)
*FX15,0

� � �=" "
�
 :
*��topscreen:�
4�23,1,0;0;0;0;
>N=(�((38-(�N$+8))/2))
H-�1,0);�(157);�(141);�N,0);"�BOAT OF ";N$
R-�1,1);�(157);�(141);�N,1);"�BOAT OF ";N$
\g�0,2);"�***************************************";�0,12);"�***************************************"
f
�clear
p�23,1,1,0,0;0;0;
z�
�:
���setup
�*FX11,0
�*FX200,1
�	�P(5)
��:�title
�&�1,4);"Please tell me your name "
��3,6)"? "N$
�:�(N$)>24��"Sorry, your name is to long.":�space:�tvH
�� N$="" � � �tvH
��
�N=�((31-(�N$+9))/2)
�W=0
	O=0
	L=1
	
�ports
	$	B=500
	.
Y=5000
	8U=50
	BG=0
	LA=0
	VS=0
	`�
	j:
	t��mainpart
	~� 23,1,0;0;0;0;
	�~�10,4);B;"    ";�32,4);G;"  ";�32,5);A;"   ";�10,6);Y;"      ";�32,6);S;"   ";�32,7);W;"   ";�10,8);U;"  ";�32,8);O;"   "
	�n�0,4);"�Bank    $";�0,6);"�Sum Yen $";�0,8);"�Units   :";�0,10)"�Location:";�4,3);"STATUS";�25,3);"CARGO"
	�S�23,4);"General";�22,5);"�Arms";�23,6);"Silk";�22,7);"�Whiskey";�23,8);"Opium"
	��10,10);L$
	���26,14);"PRICES:";�21,16);"1. General $     ";�33,16);P(1);�21);"2. Arms    $     ";�33,17);P(2);�21);"3. Silk    $     ";�33,18);P(3);�21);"4. Whiskey $     ";�33,19);P(4);�21);"5. Opium   $     ";�33,20);P(5)
	�B�2,14);"OPTIONS:";�0,16);"1. BUY";�0);"2. SELL";�0);"3. SAIL"
	�Q�L=1�0,19);"4. VISIT SUM YEN";�0);"(THE MONEYLENDER)":�"?";:�23,1,1,0,0;0;0;
	�TEMP$=�
	�C=�(TEMP$)
	��C<>� C � C<1�C>4 ��dDI
	��L<>1�C>3��dDI
	�� C=1 � �"BUY":�pause:�buy
 � C=2 � �"SELL":�pause:�sell

 � C=3 � �"SAIL":�pause:�sail
"� C=4 � �"SUM YEN":�pause:�sum
�
(:
2��pause
<� TEMP%=1 � 2000:�
F�
P:
Z��lpause
d� TEMP%=1 � 10000:�
n�
x:
���error
�*FX12,0
��
��:�" at line ";�
��
�
00000000  0d 00 0a 1b f4 20 28 63  29 20 50 65 74 65 72 20  |..... (c) Peter |
00000010  41 72 6e 6f 6c 64 20 31  39 38 37 0d 00 14 05 3a  |Arnold 1987....:|
00000020  0d 00 1e 05 3a 0d 00 28  05 3a 0d 00 32 0f 20 ee  |....:..(.:..2. .|
00000030  20 85 20 f2 65 72 72 6f  72 0d 00 3c 06 eb 37 0d  | . .error..<..7.|
00000040  00 46 0d f2 69 6e 73 74  72 75 63 74 0d 00 50 0a  |.F..instruct..P.|
00000050  f2 73 65 74 75 70 0d 00  5a 0b f2 70 72 69 63 65  |.setup..Z..price|
00000060  73 0d 00 64 05 f5 0d 00  6e 0e f2 74 6f 70 73 63  |s..d....n..topsc|
00000070  72 65 65 6e 0d 00 78 0d  f2 6d 61 69 6e 70 61 72  |reen..x..mainpar|
00000080  74 0d 00 82 0a f2 63 6c  65 61 72 0d 00 8c 12 fd  |t.....clear.....|
00000090  20 42 3e 28 31 30 30 30  30 30 2b 59 29 0d 00 96  | B>(100000+Y)...|
000000a0  08 f2 77 69 6e 0d 00 a0  05 3a 0d 00 aa 09 dd f2  |..win....:......|
000000b0  62 75 79 0d 00 b4 0a f2  63 6c 65 61 72 0d 00 be  |buy.....clear...|
000000c0  4c f1 8a 30 2c 31 34 29  3b 22 57 68 61 74 20 69  |L..0,14);"What i|
000000d0  73 20 74 68 65 20 6e 75  6d 62 65 72 22 3b 8a 30  |s the number";.0|
000000e0  29 3b 22 6f 66 20 74 68  65 20 67 6f 6f 64 73 20  |);"of the goods |
000000f0  79 6f 75 22 3b 8a 30 29  3b 22 77 69 73 68 20 74  |you";.0);"wish t|
00000100  6f 20 62 75 79 3f 20 22  3b 0d 00 c8 08 50 24 3d  |o buy? ";....P$=|
00000110  be 0d 00 d2 3c e7 50 24  3c 3e 22 30 22 20 80 20  |....<.P$<>"0" . |
00000120  50 24 3c 3e 22 31 22 80  50 24 3c 3e 22 32 22 80  |P$<>"1".P$<>"2".|
00000130  50 24 3c 3e 22 33 22 80  50 24 3c 3e 22 34 22 80  |P$<>"3".P$<>"4".|
00000140  50 24 3c 3e 22 35 22 8c  e5 8d 64 48 40 0d 00 dc  |P$<>"5"...dH@...|
00000150  0c f1 27 22 20 20 20 22  3b 0d 00 e6 10 e7 20 50  |..'"   ";..... P|
00000160  24 3d 22 30 22 20 8c 20  e1 0d 00 f0 25 e7 50 24  |$="0" . ....%.P$|
00000170  3d 22 31 22 8c 20 f1 22  47 65 6e 65 72 61 6c 22  |="1". ."General"|
00000180  3a f2 70 61 75 73 65 3a  50 3d 50 28 31 29 0d 00  |:.pause:P=P(1)..|
00000190  fa 22 e7 50 24 3d 22 32  22 8c 20 f1 22 41 72 6d  |.".P$="2". ."Arm|
000001a0  73 22 3a f2 70 61 75 73  65 3a 50 3d 50 28 32 29  |s":.pause:P=P(2)|
000001b0  0d 01 04 22 e7 50 24 3d  22 33 22 8c 20 f1 22 53  |...".P$="3". ."S|
000001c0  69 6c 6b 22 3a f2 70 61  75 73 65 3a 50 3d 50 28  |ilk":.pause:P=P(|
000001d0  33 29 0d 01 0e 24 e7 50  24 3d 22 34 22 8c 20 f1  |3)...$.P$="4". .|
000001e0  22 57 68 69 73 6b 79 22  3a f2 70 61 75 73 65 3a  |"Whisky":.pause:|
000001f0  50 3d 50 28 34 29 0d 01  18 23 e7 50 24 3d 22 35  |P=P(4)...#.P$="5|
00000200  22 8c 20 f1 22 4f 70 69  75 6d 22 3a f2 70 61 75  |". ."Opium":.pau|
00000210  73 65 3a 50 3d 50 28 35  29 0d 01 22 0a f2 63 6c  |se:P=P(5).."..cl|
00000220  65 61 72 0d 01 2c 31 f1  8a 30 2c 31 34 29 3b 22  |ear..,1..0,14);"|
00000230  59 6f 75 20 63 61 6e 20  61 66 66 6f 72 64 22 3b  |You can afford";|
00000240  8a 30 29 3b 22 74 6f 20  62 75 79 20 22 3b a8 28  |.0);"to buy ";.(|
00000250  42 2f 50 29 0d 01 36 2f  f1 8a 30 2c 31 37 29 3b  |B/P)..6/..0,17);|
00000260  22 48 6f 77 20 6d 61 6e  79 20 64 6f 20 79 6f 75  |"How many do you|
00000270  22 3b 8a 30 29 3b 22 77  69 73 68 20 74 6f 20 62  |";.0);"wish to b|
00000280  75 79 22 0d 01 40 0d e8  51 3a 51 3d a8 28 51 29  |uy"..@..Q:Q=.(Q)|
00000290  0d 01 4a 38 e7 51 3e 55  20 8c 20 f1 22 59 6f 75  |..J8.Q>U . ."You|
000002a0  20 6f 6e 6c 79 20 68 61  76 65 22 3a f1 22 73 70  | only have":."sp|
000002b0  61 63 65 20 66 6f 72 20  22 3b 55 3a f2 73 70 61  |ace for ";U:.spa|
000002c0  63 65 3a e5 8d 54 62 41  0d 01 54 3b e7 51 2a 50  |ce:..TbA..T;.Q*P|
000002d0  3e 42 20 8c f1 22 59 6f  75 20 68 61 76 65 6e 27  |>B .."You haven'|
000002e0  74 20 67 6f 74 22 3a f1  22 65 6e 6f 75 67 68 20  |t got":."enough |
000002f0  6d 6f 6e 65 79 22 3a f2  73 70 61 63 65 3a e5 8d  |money":.space:..|
00000300  54 62 41 0d 01 5e 09 55  3d 55 2d 51 0d 01 68 0d  |TbA..^.U=U-Q..h.|
00000310  42 3d 42 2d 28 51 2a 50  29 0d 01 72 11 e7 50 24  |B=B-(Q*P)..r..P$|
00000320  3d 22 31 22 8c 47 3d 47  2b 51 0d 01 7c 11 e7 50  |="1".G=G+Q..|..P|
00000330  24 3d 22 32 22 8c 41 3d  41 2b 51 0d 01 86 11 e7  |$="2".A=A+Q.....|
00000340  50 24 3d 22 33 22 8c 53  3d 53 2b 51 0d 01 90 11  |P$="3".S=S+Q....|
00000350  e7 50 24 3d 22 34 22 8c  57 3d 57 2b 51 0d 01 9a  |.P$="4".W=W+Q...|
00000360  11 e7 50 24 3d 22 35 22  8c 4f 3d 4f 2b 51 0d 01  |..P$="5".O=O+Q..|
00000370  a4 0a f2 63 6c 65 61 72  0d 01 ae 05 e1 0d 01 b8  |...clear........|
00000380  05 3a 0d 01 c2 0a dd f2  73 65 6c 6c 0d 01 cc 0a  |.:......sell....|
00000390  f2 63 6c 65 61 72 0d 01  d6 4d f1 8a 30 2c 31 34  |.clear...M..0,14|
000003a0  29 3b 22 57 68 61 74 20  69 73 20 74 68 65 20 6e  |);"What is the n|
000003b0  75 6d 62 65 72 22 3b 8a  30 29 3b 22 6f 66 20 74  |umber";.0);"of t|
000003c0  68 65 20 67 6f 6f 64 73  20 79 6f 75 22 3b 8a 30  |he goods you";.0|
000003d0  29 3b 22 77 69 73 68 20  74 6f 20 73 65 6c 6c 3f  |);"wish to sell?|
000003e0  20 22 3b 0d 01 e0 08 50  24 3d be 0d 01 ea 3c e7  | ";....P$=....<.|
000003f0  50 24 3c 3e 22 30 22 20  80 20 50 24 3c 3e 22 31  |P$<>"0" . P$<>"1|
00000400  22 80 50 24 3c 3e 22 32  22 80 50 24 3c 3e 22 33  |".P$<>"2".P$<>"3|
00000410  22 80 50 24 3c 3e 22 34  22 80 50 24 3c 3e 22 35  |".P$<>"4".P$<>"5|
00000420  22 8c e5 8d 64 60 41 0d  01 f4 08 f1 27 22 22 0d  |"...d`A.....'"".|
00000430  01 fe 0e e7 50 24 3d 22  30 22 8c 20 e1 0d 02 08  |....P$="0". ....|
00000440  25 e7 50 24 3d 22 31 22  8c 20 f1 22 47 65 6e 65  |%.P$="1". ."Gene|
00000450  72 61 6c 22 3a f2 70 61  75 73 65 3a 50 3d 50 28  |ral":.pause:P=P(|
00000460  31 29 0d 02 12 22 e7 50  24 3d 22 32 22 8c 20 f1  |1)...".P$="2". .|
00000470  22 41 72 6d 73 22 3a f2  70 61 75 73 65 3a 50 3d  |"Arms":.pause:P=|
00000480  50 28 32 29 0d 02 1c 22  e7 50 24 3d 22 33 22 8c  |P(2)...".P$="3".|
00000490  20 f1 22 53 69 6c 6b 22  3a f2 70 61 75 73 65 3a  | ."Silk":.pause:|
000004a0  50 3d 50 28 33 29 0d 02  26 24 e7 50 24 3d 22 34  |P=P(3)..&$.P$="4|
000004b0  22 8c 20 f1 22 57 68 69  73 6b 79 22 3a f2 70 61  |". ."Whisky":.pa|
000004c0  75 73 65 3a 50 3d 50 28  34 29 0d 02 30 23 e7 50  |use:P=P(4)..0#.P|
000004d0  24 3d 22 35 22 8c 20 f1  22 4f 70 69 75 6d 22 3a  |$="5". ."Opium":|
000004e0  f2 70 61 75 73 65 3a 50  3d 50 28 35 29 0d 02 3a  |.pause:P=P(5)..:|
000004f0  0a f2 63 6c 65 61 72 0d  02 44 30 f1 8a 30 2c 31  |..clear..D0..0,1|
00000500  34 29 3b 22 48 6f 77 20  6d 61 6e 79 20 64 6f 20  |4);"How many do |
00000510  79 6f 75 22 3b 8a 30 29  3b 22 77 69 73 68 20 74  |you";.0);"wish t|
00000520  6f 20 73 65 6c 6c 22 0d  02 4e 0d e8 51 3a 51 3d  |o sell"..N..Q:Q=|
00000530  a8 28 51 29 0d 02 58 1d  e7 20 50 24 3d 22 31 22  |.(Q)..X.. P$="1"|
00000540  20 80 20 51 3e 47 20 8c  20 ef 37 3a e5 8d 54 7a  | . Q>G . .7:..Tz|
00000550  42 0d 02 62 1d e7 20 50  24 3d 22 32 22 20 80 20  |B..b.. P$="2" . |
00000560  51 3e 41 20 8c 20 ef 37  3a e5 8d 54 7a 42 0d 02  |Q>A . .7:..TzB..|
00000570  6c 1d e7 20 50 24 3d 22  33 22 20 80 20 51 3e 53  |l.. P$="3" . Q>S|
00000580  20 8c 20 ef 37 3a e5 8d  54 7a 42 0d 02 76 1d e7  | . .7:..TzB..v..|
00000590  20 50 24 3d 22 34 22 20  80 20 51 3e 57 20 8c 20  | P$="4" . Q>W . |
000005a0  ef 37 3a e5 8d 54 7a 42  0d 02 80 1d e7 20 50 24  |.7:..TzB..... P$|
000005b0  3d 22 35 22 20 80 20 51  3e 4f 20 8c 20 ef 37 3a  |="5" . Q>O . .7:|
000005c0  e5 8d 54 7a 42 0d 02 8a  0b 42 3d 42 2b 50 2a 51  |..TzB....B=B+P*Q|
000005d0  0d 02 94 09 55 3d 55 2b  51 0d 02 9e 14 e7 20 50  |....U=U+Q..... P|
000005e0  24 3d 22 31 22 20 8c 20  47 3d 47 2d 51 0d 02 a8  |$="1" . G=G-Q...|
000005f0  14 e7 20 50 24 3d 22 32  22 20 8c 20 41 3d 41 2d  |.. P$="2" . A=A-|
00000600  51 0d 02 b2 14 e7 20 50  24 3d 22 33 22 20 8c 20  |Q..... P$="3" . |
00000610  53 3d 53 2d 51 0d 02 bc  14 e7 20 50 24 3d 22 34  |S=S-Q..... P$="4|
00000620  22 20 8c 20 57 3d 57 2d  51 0d 02 c6 14 e7 20 50  |" . W=W-Q..... P|
00000630  24 3d 22 35 22 20 8c 20  4f 3d 4f 2d 51 0d 02 d0  |$="5" . O=O-Q...|
00000640  0a f2 63 6c 65 61 72 0d  02 da 05 e1 0d 02 e4 05  |..clear.........|
00000650  3a 0d 02 ee 0a dd f2 73  61 69 6c 0d 02 f8 08 4c  |:......sail....L|
00000660  4f 3d 4c 0d 03 02 0a f2  63 6c 65 61 72 0d 03 0c  |O=L.....clear...|
00000670  76 f1 8a 30 2c 31 34 29  3b 22 44 65 73 74 69 6e  |v..0,14);"Destin|
00000680  61 74 69 6f 6e 20 3f 22  3b 8a 30 2c 31 36 29 3b  |ation ?";.0,16);|
00000690  22 31 2e 20 48 6f 6e 67  20 4b 6f 6e 67 22 3b 8a  |"1. Hong Kong";.|
000006a0  30 29 3b 22 32 2e 20 53  69 6e 67 61 70 6f 72 65  |0);"2. Singapore|
000006b0  22 3b 8a 30 29 3b 22 33  2e 20 4d 61 63 61 6f 22  |";.0);"3. Macao"|
000006c0  3b 8a 30 29 3b 22 34 2e  20 42 61 6e 67 6b 6f 6b  |;.0);"4. Bangkok|
000006d0  22 3b 8a 30 29 3b 22 35  2e 20 53 68 61 6e 67 68  |";.0);"5. Shangh|
000006e0  61 69 22 0d 03 16 16 54  45 4d 50 24 3d be 3a 4c  |ai"....TEMP$=.:L|
000006f0  3d bb 28 54 45 4d 50 24  29 0d 03 20 1c e7 4c 3c  |=.(TEMP$).. ..L<|
00000700  3e a8 20 4c 20 84 20 4c  3c 30 20 84 4c 3e 35 8c  |>. L . L<0 .L>5.|
00000710  e5 8d 54 56 43 0d 03 2a  0e 20 e7 20 4c 3d 30 20  |..TVC..*. . L=0 |
00000720  8c 20 e1 0d 03 34 3e e7  20 4c 4f 3d 4c 20 8c 20  |. ...4>. LO=L . |
00000730  f2 63 6c 65 61 72 3a f1  8a 30 2c 31 35 29 3b 27  |.clear:..0,15);'|
00000740  27 22 59 6f 75 20 61 72  65 20 74 68 65 72 65 20  |'"You are there |
00000750  6e 6f 77 21 22 3a ef 37  3a f2 73 70 61 63 65 3a  |now!":.7:.space:|
00000760  e1 0d 03 3e 10 f2 70 6f  72 74 73 3a 54 3d 54 2b  |...>..ports:T=T+|
00000770  31 0d 03 48 0f f1 20 4c  24 3a f2 70 61 75 73 65  |1..H.. L$:.pause|
00000780  0d 03 52 16 e7 b3 28 32  30 29 3e 31 38 20 8c 20  |..R...(20)>18 . |
00000790  f2 73 74 6f 72 6d 0d 03  5c 0f 59 3d a8 28 31 2e  |.storm..\.Y=.(1.|
000007a0  31 32 2a 59 29 0d 03 66  0d f2 70 72 69 63 65 73  |12*Y)..f..prices|
000007b0  3a e1 0d 03 70 05 3a 0d  03 7a 09 dd f2 73 75 6d  |:...p.:..z...sum|
000007c0  0d 03 84 0a f2 63 6c 65  61 72 0d 03 8e 48 f1 8a  |.....clear...H..|
000007d0  30 2c 31 34 29 3b 22 44  6f 20 79 6f 75 20 77 69  |0,14);"Do you wi|
000007e0  73 68 20 74 6f 22 3b 8a  30 29 3b 22 31 2e 20 42  |sh to";.0);"1. B|
000007f0  6f 72 72 6f 77 20 20 4f  52 22 3b 8a 30 29 3b 22  |orrow  OR";.0);"|
00000800  32 2e 20 52 65 70 61 79  22 3b 8a 30 29 3b 22 3f  |2. Repay";.0);"?|
00000810  22 3b 0d 03 98 08 43 24  3d be 0d 03 a2 23 e7 43  |";....C$=....#.C|
00000820  24 3c 3e 22 31 22 80 43  24 3c 3e 22 32 22 80 20  |$<>"1".C$<>"2". |
00000830  43 24 3c 3e 22 30 22 8c  e5 8d 74 58 43 0d 03 ac  |C$<>"0"...tXC...|
00000840  11 20 e7 20 43 24 3d 22  30 22 20 8c 20 e1 0d 03  |. . C$="0" . ...|
00000850  b6 10 e7 43 24 3d 22 31  22 e5 8d 54 64 44 0d 03  |...C$="1"..TdD..|
00000860  c0 13 f1 22 52 65 70 61  79 22 3a f2 70 61 75 73  |..."Repay":.paus|
00000870  65 0d 03 ca 34 f1 8a 30  2c 31 38 29 3b 22 48 6f  |e...4..0,18);"Ho|
00000880  77 20 6d 61 6e 79 20 24  20 64 6f 20 79 6f 75 22  |w many $ do you"|
00000890  3b 8a 30 29 3b 22 77 69  73 68 20 74 6f 20 72 65  |;.0);"wish to re|
000008a0  70 61 79 3f 22 0d 03 d4  0d e8 4d 3a 4d 3d a8 28  |pay?".....M:M=.(|
000008b0  4d 29 0d 03 de 5d e7 20  4d 3c 30 20 8c 20 f2 63  |M)...]. M<0 . .c|
000008c0  6c 65 61 72 3a f1 8a 30  2c 31 34 29 3b 22 59 6f  |lear:..0,14);"Yo|
000008d0  75 20 63 61 6e 27 74 20  72 65 70 61 79 20 61 22  |u can't repay a"|
000008e0  3b 8a 30 29 3b 22 6e 65  67 61 74 69 76 65 20 61  |;.0);"negative a|
000008f0  6d 6d 6f 75 6e 74 21 22  3a ef 37 3a f2 73 70 61  |mmount!":.7:.spa|
00000900  63 65 3a f2 63 6c 65 61  72 3a e5 8d 64 4a 43 0d  |ce:.clear:..dJC.|
00000910  03 e8 41 e7 20 4d 3e 59  20 8c 20 f1 22 59 6f 75  |..A. M>Y . ."You|
00000920  20 64 6f 6e 27 74 20 6f  77 65 20 68 69 6d 22 3a  | don't owe him":|
00000930  f1 22 74 68 61 74 20 6d  75 63 68 21 22 3a ef 37  |."that much!":.7|
00000940  3a f2 73 70 61 63 65 3a  f2 63 6c 65 61 72 3a e1  |:.space:.clear:.|
00000950  0d 03 f2 44 e7 20 4d 3e  42 20 8c 20 f1 22 59 6f  |...D. M>B . ."Yo|
00000960  75 20 64 6f 6e 27 74 20  68 61 76 65 22 3a f1 22  |u don't have":."|
00000970  74 68 61 74 20 6d 75 63  68 20 6d 6f 6e 65 79 21  |that much money!|
00000980  22 3a ef 37 3a f2 73 70  61 63 65 3a f2 63 6c 65  |":.7:.space:.cle|
00000990  61 72 3a e1 0d 03 fc 09  59 3d 59 2d 4d 0d 04 06  |ar:.....Y=Y-M...|
000009a0  09 42 3d 42 2d 4d 0d 04  10 0a f2 63 6c 65 61 72  |.B=B-M.....clear|
000009b0  0d 04 1a 05 e1 0d 04 24  14 f1 22 42 6f 72 72 6f  |.......$.."Borro|
000009c0  77 22 3a f2 70 61 75 73  65 0d 04 2e 53 e7 20 59  |w":.pause...S. Y|
000009d0  3e 31 30 30 30 30 20 8c  20 f2 63 6c 65 61 72 3a  |>10000 . .clear:|
000009e0  f1 22 59 6f 75 20 6f 77  65 20 68 69 6d 20 74 6f  |."You owe him to|
000009f0  6f 20 6d 75 63 68 22 3b  8a 30 29 3b 22 20 20 20  |o much";.0);"   |
00000a00  61 6c 72 65 61 64 79 21  22 3a ef 37 3a f2 73 70  |already!":.7:.sp|
00000a10  61 63 65 3a f2 63 6c 65  61 72 3a e1 0d 04 38 36  |ace:.clear:...86|
00000a20  f1 8a 30 2c 31 38 29 3b  22 48 6f 77 20 6d 61 6e  |..0,18);"How man|
00000a30  79 20 24 20 64 6f 20 79  6f 75 22 3b 8a 30 29 3b  |y $ do you";.0);|
00000a40  22 77 69 73 68 20 74 6f  20 62 6f 72 72 6f 77 20  |"wish to borrow |
00000a50  3f 22 0d 04 42 06 e8 4d  0d 04 4c 65 e7 20 4d 3c  |?"..B..M..Le. M<|
00000a60  30 20 8c 20 f2 63 6c 65  61 72 3a f1 8a 30 2c 31  |0 . .clear:..0,1|
00000a70  34 29 3b 22 59 6f 75 20  63 61 6e 27 74 20 62 6f  |4);"You can't bo|
00000a80  72 72 6f 77 22 3b 8a 30  29 3b 22 61 20 6e 65 67  |rrow";.0);"a neg|
00000a90  61 74 69 76 65 20 61 6d  6d 6f 75 6e 74 21 22 3a  |ative ammount!":|
00000aa0  ef 37 3a f2 73 70 61 63  65 3a f2 70 61 75 73 65  |.7:.space:.pause|
00000ab0  3a f2 63 6c 65 61 72 3a  e5 8d 54 78 44 0d 04 56  |:.clear:..TxD..V|
00000ac0  67 e7 20 4d 2b 59 3e 31  30 30 30 30 20 8c 20 f2  |g. M+Y>10000 . .|
00000ad0  63 6c 65 61 72 3a ef 37  3a f1 8a 30 2c 31 34 29  |clear:.7:..0,14)|
00000ae0  3b 22 53 75 6d 20 59 65  6e 20 77 69 6c 6c 20 6e  |;"Sum Yen will n|
00000af0  6f 74 22 3a f1 22 6c 65  6e 64 20 6d 6f 72 65 20  |ot":."lend more |
00000b00  74 68 61 6e 22 3a f1 22  24 31 30 2c 30 30 30 22  |than":."$10,000"|
00000b10  3a f2 73 70 61 63 65 3a  f2 63 6c 65 61 72 3a e5  |:.space:.clear:.|
00000b20  8d 44 74 44 0d 04 60 09  59 3d 59 2b 4d 0d 04 6a  |.DtD..`.Y=Y+M..j|
00000b30  09 42 3d 42 2b 4d 0d 04  74 0a f2 63 6c 65 61 72  |.B=B+M..t..clear|
00000b40  0d 04 7e 05 e1 0d 04 88  05 3a 0d 04 92 09 dd f2  |..~......:......|
00000b50  77 69 6e 0d 04 9c 05 db  0d 04 a6 23 f1 8a 39 2c  |win........#..9,|
00000b60  35 29 3b bd 28 31 34 31  29 22 82 43 4f 4e 47 52  |5);.(141)".CONGR|
00000b70  41 54 55 4c 41 54 49 4f  4e 53 22 0d 04 b0 23 f1  |ATULATIONS"...#.|
00000b80  8a 39 2c 36 29 3b bd 28  31 34 31 29 22 82 43 4f  |.9,6);.(141)".CO|
00000b90  4e 47 52 41 54 55 4c 41  54 49 4f 4e 53 22 0d 04  |NGRATULATIONS"..|
00000ba0  ba 3a f1 8a 36 2c 38 29  3b 22 59 4f 55 20 48 41  |.:..6,8);"YOU HA|
00000bb0  56 45 20 24 22 3b 28 42  2d 59 29 3b 22 20 41 4e  |VE $";(B-Y);" AN|
00000bc0  44 20 43 41 4e 22 3b 8a  31 33 29 3b 22 4e 4f 57  |D CAN";.13);"NOW|
00000bd0  20 52 45 54 49 52 45 22  0d 04 c4 23 f1 8a 37 2c  | RETIRE"...#..7,|
00000be0  31 32 29 3b 22 59 4f 55  20 54 4f 4f 4b 20 22 3b  |12);"YOU TOOK ";|
00000bf0  54 3b 22 20 4d 4f 56 45  53 2e 22 0d 04 ce 0c e3  |T;" MOVES.".....|
00000c00  47 47 3d 31 b8 31 31 0d  04 d8 08 f3 50 2c 44 0d  |GG=1.11.....P,D.|
00000c10  04 e2 17 e7 50 3d 39 39  39 20 8c 20 4c 3d 30 20  |....P=999 . L=0 |
00000c20  8b 20 4c 3d 2d 35 0d 04  ec 0c d4 31 2c 4c 2c 50  |. L=-5.....1,L,P|
00000c30  2c 44 0d 04 f6 0c d4 31  2c 30 2c 30 2c 33 0d 05  |,D.....1,0,0,3..|
00000c40  00 05 ed 0d 05 0a 43 dc  20 39 37 2c 31 35 2c 39  |......C. 97,15,9|
00000c50  37 2c 35 2c 31 30 31 2c  35 2c 39 39 39 2c 35 2c  |7,5,101,5,999,5,|
00000c60  31 30 31 2c 35 2c 39 37  2c 35 2c 31 30 31 2c 31  |101,5,97,5,101,1|
00000c70  30 2c 39 37 2c 32 2c 38  39 2c 35 2c 38 31 2c 35  |0,97,2,89,5,81,5|
00000c80  2c 37 37 2c 31 30 0d 05  14 25 f1 27 27 27 27 27  |,77,10...%.'''''|
00000c90  27 27 22 20 20 20 20 20  41 6e 6f 74 68 65 72 20  |''"     Another |
00000ca0  47 6f 3f 20 28 59 2f 4e  29 22 3b 0d 05 1e 20 f5  |Go? (Y/N)";... .|
00000cb0  3a 50 24 3d be 3a e7 20  50 24 3d 22 59 22 20 84  |:P$=.:. P$="Y" .|
00000cc0  20 50 24 3d 22 79 22 20  8c 20 e1 0d 05 28 15 fd  | P$="y" . ...(..|
00000cd0  20 50 24 3d 22 4e 22 20  84 20 50 24 3d 22 6e 22  | P$="N" . P$="n"|
00000ce0  0d 05 32 07 db 3a e0 0d  05 3c 05 3a 0d 05 46 0e  |..2..:...<.:..F.|
00000cf0  dd f2 69 6e 73 74 72 75  63 74 0d 05 50 0a f2 74  |..instruct..P..t|
00000d00  69 74 6c 65 0d 05 5a bc  f1 8a 30 2c 34 29 3b 22  |itle..Z...0,4);"|
00000d10  20 20 20 49 74 20 69 73  20 74 68 65 20 65 61 72  |   It is the ear|
00000d20  6c 79 20 31 39 74 68 20  63 65 6e 74 75 72 79 2e  |ly 19th century.|
00000d30  20 59 6f 75 20 61 72 65  74 68 65 20 63 61 70 74  | You arethe capt|
00000d40  69 61 6e 20 6f 66 20 74  68 65 20 5a 41 4e 20 50  |ian of the ZAN P|
00000d50  49 4e 47 20 2d 20 20 61  20 74 72 61 64 69 6e 67  |ING -  a trading|
00000d60  73 68 69 70 2e 20 59 6f  75 20 68 61 76 65 20 24  |ship. You have $|
00000d70  35 30 30 20 69 6e 20 74  68 65 20 62 61 6e 6b 20  |500 in the bank |
00000d80  62 75 74 2c 20 79 6f 75  6f 77 65 20 74 68 65 20  |but, youowe the |
00000d90  6d 6f 6e 65 79 6c 65 6e  64 65 72 20 28 53 55 4d  |moneylender (SUM|
00000da0  20 59 45 4e 29 20 24 35  30 30 30 2e 54 68 69 73  | YEN) $5000.This|
00000db0  6d 75 73 74 20 62 65 20  72 65 70 61 69 64 2e 22  |must be repaid."|
00000dc0  0d 05 64 e5 f1 27 27 22  20 54 68 65 20 61 69 6d  |..d..''" The aim|
00000dd0  20 6f 66 20 74 68 65 20  20 67 61 6d 65 20 20 69  | of the  game  i|
00000de0  73 20 20 74 6f 20 20 61  63 63 75 6d 6c 61 74 65  |s  to  accumlate|
00000df0  24 31 30 30 2c 30 30 30  20 62 79 20 62 75 79 69  |$100,000 by buyi|
00000e00  6e 67 20 61 6e 64 20 73  65 6c 6c 69 6e 67 20 20  |ng and selling  |
00000e10  69 74 65 6d 73 20 69 6e  66 69 76 65 20 20 64 69  |items infive  di|
00000e20  66 66 65 72 65 6e 74 20  20 70 6f 72 74 73 2e 20  |fferent  ports. |
00000e30  20 54 68 65 20 70 72 69  63 65 73 20 20 61 72 65  | The prices  are|
00000e40  64 69 66 66 65 72 65 6e  74 20 69 6e 20 65 76 65  |different in eve|
00000e50  72 79 20 20 70 6f 72 74  2e 20 42 65 77 61 72 65  |ry  port. Beware|
00000e60  20 74 68 6f 75 67 68 2c  53 75 6d 20 59 65 6e 20  | though,Sum Yen |
00000e70  20 63 68 61 72 67 65 73  20 20 79 6f 75 20 20 31  | charges  you  1|
00000e80  32 25 20 20 69 6e 74 65  72 65 73 74 20 20 6f 6e  |2%  interest  on|
00000e90  65 76 65 72 79 20 74 72  69 70 20 79 6f 75 20 6d  |every trip you m|
00000ea0  61 6b 65 2e 22 0d 05 6e  4a f1 27 27 22 20 59 6f  |ake."..nJ.''" Yo|
00000eb0  75 72 20 20 68 6f 6d 65  20 20 70 6f 72 74 20 20  |ur  home  port  |
00000ec0  69 73 20 48 6f 6e 67 20  4b 6f 6e 67 2e 20 53 75  |is Hong Kong. Su|
00000ed0  6d 20 59 65 6e 68 61 73  20 68 69 73 20 6f 66 66  |m Yenhas his off|
00000ee0  69 63 65 20 74 68 65 72  65 20 74 6f 6f 2e 22 0d  |ice there too.".|
00000ef0  05 78 0d f1 27 3a f2 73  70 61 63 65 0d 05 82 0a  |.x..':.space....|
00000f00  f2 74 69 74 6c 65 0d 05  8c e3 f1 8a 30 2c 33 29  |.title......0,3)|
00000f10  3b 22 20 20 20 20 54 68  65 20 73 63 72 65 65 6e  |;"    The screen|
00000f20  20 64 69 73 70 6c 61 79  20 69 73 20 20 64 69 76  | display is  div|
00000f30  69 64 65 64 20 20 69 6e  74 6f 71 75 61 72 74 65  |ided  intoquarte|
00000f40  72 73 2e 20 54 68 65 20  74 6f 70 20 6c 65 66 74  |rs. The top left|
00000f50  20 68 61 6e 64 20 20 70  61 72 74 20 20 73 68 6f  | hand  part  sho|
00000f60  77 73 68 6f 77 20 6d 75  63 68 20 6d 6f 6e 65 79  |wshow much money|
00000f70  20 79 6f 75 20 20 68 61  76 65 20 20 61 6e 64 20  | you  have  and |
00000f80  20 68 6f 77 20 20 6d 75  63 68 79 6f 75 20 6f 77  | how  muchyou ow|
00000f90  65 2e 20 49 74 20 61 6c  73 6f 20 73 68 6f 77 73  |e. It also shows|
00000fa0  20 20 68 6f 77 20 20 6d  75 63 68 20 20 73 70 61  |  how  much  spa|
00000fb0  63 65 79 6f 75 20 68 61  76 65 20 6c 65 66 74 20  |ceyou have left |
00000fc0  66 6f 72 20 63 61 72 67  6f 2e 20 59 6f 75 72 20  |for cargo. Your |
00000fd0  20 73 68 69 70 20 20 63  61 6e 68 6f 6c 64 20 35  | ship  canhold 5|
00000fe0  30 20 75 6e 69 74 73 2e  22 0d 05 96 66 f1 22 20  |0 units."...f." |
00000ff0  20 54 68 65 20 74 6f 70  20 72 69 67 68 74 20 70  | The top right p|
00001000  61 72 74 20 73 68 6f 77  73 20 77 68 61 74 20 69  |art shows what i|
00001010  74 65 6d 73 20 6f 66 63  61 72 67 6f 20 20 79 6f  |tems ofcargo  yo|
00001020  75 20 68 61 76 65 20 6f  6e 20 62 6f 61 72 64 20  |u have on board |
00001030  6f 75 74 20 6f 66 20 74  68 65 20 66 69 76 65 74  |out of the fivet|
00001040  68 69 6e 67 73 20 6f 6e  20 73 61 6c 65 2e 22 0d  |hings on sale.".|
00001050  05 a0 f4 f1 22 20 20 54  68 65 20 62 6f 74 74 6f  |...."  The botto|
00001060  6d 20 6c 65 66 74 20 70  61 72 74 20 69 73 20 74  |m left part is t|
00001070  68 65 20 61 72 65 61 20  77 68 65 72 65 61 6c 6c  |he area whereall|
00001080  20 74 68 65 20 69 6e 73  74 72 75 63 74 69 6f 6e  | the instruction|
00001090  73 20 63 6f 6d 65 20 75  70 2e 20 59 6f 75 20 63  |s come up. You c|
000010a0  61 6e 20 64 6f 74 68 72  65 65 20 20 74 68 69 6e  |an dothree  thin|
000010b0  67 73 2c 20 20 62 75 79  2c 20 20 73 65 6c 6c 2c  |gs,  buy,  sell,|
000010c0  20 20 6f 72 20 73 61 69  6c 2e 20 49 6e 48 6f 6e  |  or sail. InHon|
000010d0  67 20 4b 6f 6e 67 20 79  6f 75 20 63 61 6e 20 61  |g Kong you can a|
000010e0  6c 73 6f 20 76 69 73 69  74 20 53 75 6d 20 59 65  |lso visit Sum Ye|
000010f0  6e 2e 20 49 66 79 6f 75  20 20 63 68 6f 73 65 20  |n. Ifyou  chose |
00001100  74 68 65 20 77 72 6f 6e  67 20 6f 70 74 69 6f 6e  |the wrong option|
00001110  20 74 68 65 6e 20 79 6f  75 20 63 61 6e 67 6f 20  | then you cango |
00001120  62 61 63 6b 20 74 6f 20  74 68 65 20 6d 61 69 6e  |back to the main|
00001130  20 6d 65 6e 75 20 62 79  20 74 79 70 69 6e 67 20  | menu by typing |
00001140  30 2e 22 0d 05 aa 6b f1  22 20 20 49 6e 20 20 74  |0."...k."  In  t|
00001150  68 65 20 20 62 6f 74 74  6f 6d 20 20 72 69 67 68  |he  bottom  righ|
00001160  74 20 68 61 6e 64 20 62  6f 78 20 69 73 20 74 68  |t hand box is th|
00001170  65 70 72 69 63 65 73 20  20 6f 66 20 20 74 68 65  |eprices  of  the|
00001180  20 66 69 76 65 20 69 74  65 6d 73 2e 20 54 68 65  | five items. The|
00001190  73 65 20 63 68 61 6e 67  65 65 76 65 72 79 20 74  |se changeevery t|
000011a0  69 6d 65 20 79 6f 75 20  73 61 69 6c 2e 22 0d 05  |ime you sail."..|
000011b0  b4 0d f1 27 3a f2 73 70  61 63 65 0d 05 be 05 e1  |...':.space.....|
000011c0  0d 05 c8 05 3a 0d 05 d2  0d dd f2 73 74 6f 72 6d  |....:......storm|
000011d0  3a db 0d 05 dc 20 f1 8a  37 2c 31 30 29 3b 22 2a  |:.... ..7,10);"*|
000011e0  2a 20 53 54 4f 52 4d 2c  54 41 49 50 41 4e 20 2a  |* STORM,TAIPAN *|
000011f0  2a 22 0d 05 e6 0b f2 6c  70 61 75 73 65 0d 05 f0  |*".....lpause...|
00001200  13 e7 b3 28 32 30 29 3e  31 35 8c e5 8d 44 5e 46  |...(20)>15...D^F|
00001210  0d 05 fa 3e f1 8a 34 2c  31 36 29 3b 22 57 45 20  |...>..4,16);"WE |
00001220  57 49 4c 4c 20 48 41 56  45 20 54 4f 20 4a 45 54  |WILL HAVE TO JET|
00001230  54 49 53 4f 4e 22 3b 8a  39 2c 31 38 29 3b 22 48  |TISON";.9,18);"H|
00001240  41 4c 46 20 54 48 45 20  43 41 52 47 4f 22 0d 06  |ALF THE CARGO"..|
00001250  04 2b f1 27 27 27 27 22  20 20 20 20 20 20 20 20  |.+.''''"        |
00001260  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001270  22 3b 3a f2 73 70 61 63  65 0d 06 0e 13 55 3d 55  |";:.space....U=U|
00001280  2b a8 28 28 35 30 2d 55  29 2f 32 29 0d 06 18 0c  |+.((50-U)/2)....|
00001290  47 3d a8 28 47 2f 32 29  0d 06 22 0c 41 3d a8 28  |G=.(G/2)..".A=.(|
000012a0  41 2f 32 29 0d 06 2c 0c  53 3d a8 28 53 2f 32 29  |A/2)..,.S=.(S/2)|
000012b0  0d 06 36 0c 57 3d a8 28  57 2f 32 29 0d 06 40 0c  |..6.W=.(W/2)..@.|
000012c0  4f 3d a8 28 4f 2f 32 29  0d 06 4a 05 db 0d 06 54  |O=.(O/2)..J....T|
000012d0  05 e1 0d 06 5e 2c f1 8a  31 31 2c 31 36 29 3b 22  |....^,..11,16);"|
000012e0  53 54 4f 52 4d 20 4f 56  45 52 22 3b 8a 31 33 2c  |STORM OVER";.13,|
000012f0  31 38 29 3b 22 41 4c 4c  20 4f 2e 4b 2e 22 0d 06  |18);"ALL O.K."..|
00001300  68 2b f1 27 27 27 27 22  20 20 20 20 20 20 20 20  |h+.''''"        |
00001310  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001320  22 3b 3a f2 73 70 61 63  65 0d 06 72 05 db 0d 06  |";:.space..r....|
00001330  7c 05 e1 0d 06 86 05 3a  0d 06 90 0c dd f2 70 72  ||......:......pr|
00001340  69 63 65 73 0d 06 9a 14  e9 50 28 31 29 3d a8 28  |ices.....P(1)=.(|
00001350  b3 28 31 29 2a 31 36 29  0d 06 a4 11 e7 50 28 31  |.(1)*16).....P(1|
00001360  29 3c 31 8c e5 8d 74 5a  46 0d 06 ae 16 50 28 32  |)<1...tZF....P(2|
00001370  29 3d 31 30 2a a8 28 b3  28 31 29 2a 31 39 29 0d  |)=10*.(.(1)*19).|
00001380  06 b8 12 e7 50 28 32 29  3c 35 30 8c e5 8d 74 6e  |....P(2)<50...tn|
00001390  46 0d 06 c2 17 50 28 33  29 3d 31 30 2a a8 28 b3  |F....P(3)=10*.(.|
000013a0  28 31 29 2a 31 30 30 29  0d 06 cc 13 e7 50 28 33  |(1)*100).....P(3|
000013b0  29 3c 33 30 30 8c e5 8d  64 42 46 0d 06 d6 17 50  |)<300...dBF....P|
000013c0  28 34 29 3d 31 30 30 2a  a8 28 b3 28 31 29 2a 33  |(4)=100*.(.(1)*3|
000013d0  31 29 0d 06 e0 13 e7 50  28 34 29 3c 35 30 30 8c  |1).....P(4)<500.|
000013e0  e5 8d 64 56 46 0d 06 ea  18 50 28 35 29 3d 31 30  |..dVF....P(5)=10|
000013f0  30 2a a8 28 b3 28 31 29  2a 31 30 31 29 0d 06 f4  |0*.(.(1)*101)...|
00001400  14 e7 50 28 35 29 3c 31  30 30 30 8c e5 8d 64 6a  |..P(5)<1000...dj|
00001410  46 0d 06 fe 05 e1 0d 07  08 05 3a 0d 07 12 0b dd  |F.........:.....|
00001420  f2 70 6f 72 74 73 0d 07  1c 17 e7 4c 3d 31 8c 4c  |.ports.....L=1.L|
00001430  24 3d 22 48 4f 4e 47 20  4b 4f 4e 47 22 0d 07 26  |$="HONG KONG"..&|
00001440  17 e7 4c 3d 32 8c 4c 24  3d 22 53 49 4e 47 41 50  |..L=2.L$="SINGAP|
00001450  4f 52 45 22 0d 07 30 17  e7 4c 3d 33 8c 4c 24 3d  |ORE"..0..L=3.L$=|
00001460  22 4d 41 43 41 4f 20 20  20 20 22 0d 07 3a 17 e7  |"MACAO    "..:..|
00001470  4c 3d 34 8c 4c 24 3d 22  42 41 4e 47 4b 4f 4b 20  |L=4.L$="BANGKOK |
00001480  20 22 0d 07 44 17 e7 4c  3d 35 8c 4c 24 3d 22 53  | "..D..L=5.L$="S|
00001490  48 41 4e 47 48 41 49 20  22 0d 07 4e 05 e1 0d 07  |HANGHAI "..N....|
000014a0  58 05 3a 0d 07 62 0b dd  f2 63 6c 65 61 72 0d 07  |X.:..b...clear..|
000014b0  6c 12 ef 32 33 2c 31 2c  30 3b 30 3b 30 3b 30 3b  |l..23,1,0;0;0;0;|
000014c0  0d 07 76 0c e3 58 3d 31  34 b8 32 33 0d 07 80 22  |..v..X=14.23..."|
000014d0  f1 8a 30 2c 58 29 3b 22  20 20 20 20 20 20 20 20  |..0,X);"        |
000014e0  20 20 20 20 20 20 20 20  20 20 20 20 20 22 0d 07  |             "..|
000014f0  8a 06 ed 58 0d 07 94 14  ef 32 33 2c 31 2c 31 2c  |...X.....23,1,1,|
00001500  30 2c 30 3b 30 3b 30 3b  0d 07 9e 05 e1 0d 07 a8  |0,0;0;0;........|
00001510  05 3a 0d 07 b2 0b dd f2  74 69 74 6c 65 0d 07 bc  |.:......title...|
00001520  05 db 0d 07 c6 29 f1 8a  38 2c 30 29 bd 28 31 34  |.....)..8,0).(14|
00001530  31 29 bd 28 31 33 32 29  22 53 6f 75 74 68 20 53  |1).(132)"South S|
00001540  65 61 73 20 54 72 61 64  65 72 22 0d 07 d0 29 f1  |eas Trader"...).|
00001550  8a 38 2c 31 29 bd 28 31  34 31 29 bd 28 31 33 32  |.8,1).(141).(132|
00001560  29 22 53 6f 75 74 68 20  53 65 61 73 20 54 72 61  |)"South Seas Tra|
00001570  64 65 72 22 0d 07 da 05  e1 0d 07 e4 05 3a 0d 07  |der".........:..|
00001580  ee 0b dd f2 73 70 61 63  65 0d 07 f8 24 f1 22 50  |....space...$."P|
00001590  52 45 53 53 22 3b bd 28  31 33 36 29 3b 22 3c 53  |RESS";.(136);"<S|
000015a0  50 41 43 45 3e 22 3b bd  28 31 33 37 29 0d 08 02  |PACE>";.(137)...|
000015b0  0b 2a 46 58 31 35 2c 30  0d 08 0c 0d f5 20 fd 20  |.*FX15,0..... . |
000015c0  be 3d 22 20 22 0d 08 16  05 e1 0d 08 20 05 3a 0d  |.=" "....... .:.|
000015d0  08 2a 11 dd f2 74 6f 70  73 63 72 65 65 6e 3a db  |.*...topscreen:.|
000015e0  0d 08 34 12 ef 32 33 2c  31 2c 30 3b 30 3b 30 3b  |..4..23,1,0;0;0;|
000015f0  30 3b 0d 08 3e 19 4e 3d  28 a8 28 28 33 38 2d 28  |0;..>.N=(.((38-(|
00001600  a9 4e 24 2b 38 29 29 2f  32 29 29 0d 08 48 2d f1  |.N$+8))/2))..H-.|
00001610  8a 31 2c 30 29 3b bd 28  31 35 37 29 3b bd 28 31  |.1,0);.(157);.(1|
00001620  34 31 29 3b 8a 4e 2c 30  29 3b 22 81 42 4f 41 54  |41);.N,0);".BOAT|
00001630  20 4f 46 20 22 3b 4e 24  0d 08 52 2d f1 8a 31 2c  | OF ";N$..R-..1,|
00001640  31 29 3b bd 28 31 35 37  29 3b bd 28 31 34 31 29  |1);.(157);.(141)|
00001650  3b 8a 4e 2c 31 29 3b 22  81 42 4f 41 54 20 4f 46  |;.N,1);".BOAT OF|
00001660  20 22 3b 4e 24 0d 08 5c  67 f1 8a 30 2c 32 29 3b  | ";N$..\g..0,2);|
00001670  22 82 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |".**************|
00001680  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00001690  2a 2a 2a 2a 2a 2a 2a 2a  2a 22 3b 8a 30 2c 31 32  |*********";.0,12|
000016a0  29 3b 22 81 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |);".************|
000016b0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
000016c0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 22 0d 08 66 0a  |***********"..f.|
000016d0  f2 63 6c 65 61 72 0d 08  70 14 ef 32 33 2c 31 2c  |.clear..p..23,1,|
000016e0  31 2c 30 2c 30 3b 30 3b  30 3b 0d 08 7a 05 e1 0d  |1,0,0;0;0;..z...|
000016f0  08 84 05 3a 0d 08 8e 0b  dd f2 73 65 74 75 70 0d  |...:......setup.|
00001700  08 98 0b 2a 46 58 31 31  2c 30 0d 08 a2 0c 2a 46  |...*FX11,0....*F|
00001710  58 32 30 30 2c 31 0d 08  ac 09 de 50 28 35 29 0d  |X200,1.....P(5).|
00001720  08 b6 0c db 3a f2 74 69  74 6c 65 0d 08 c0 26 f1  |....:.title...&.|
00001730  8a 31 2c 34 29 3b 22 50  6c 65 61 73 65 20 74 65  |.1,4);"Please te|
00001740  6c 6c 20 6d 65 20 79 6f  75 72 20 6e 61 6d 65 20  |ll me your name |
00001750  22 0d 08 ca 10 e8 8a 33  2c 36 29 22 3f 20 22 4e  |"......3,6)"? "N|
00001760  24 0d 08 d4 3a e7 a9 28  4e 24 29 3e 32 34 8c f1  |$...:..(N$)>24..|
00001770  22 53 6f 72 72 79 2c 20  79 6f 75 72 20 6e 61 6d  |"Sorry, your nam|
00001780  65 20 69 73 20 74 6f 20  6c 6f 6e 67 2e 22 3a f2  |e is to long.":.|
00001790  73 70 61 63 65 3a e5 8d  74 76 48 0d 08 de 14 e7  |space:..tvH.....|
000017a0  20 4e 24 3d 22 22 20 8c  20 e5 20 8d 74 76 48 0d  | N$="" . . .tvH.|
000017b0  08 e8 05 db 0d 08 f2 17  4e 3d a8 28 28 33 31 2d  |........N=.((31-|
000017c0  28 a9 4e 24 2b 39 29 29  2f 32 29 0d 08 fc 07 57  |(.N$+9))/2)....W|
000017d0  3d 30 0d 09 06 07 4f 3d  30 0d 09 10 07 4c 3d 31  |=0....O=0....L=1|
000017e0  0d 09 1a 0a f2 70 6f 72  74 73 0d 09 24 09 42 3d  |.....ports..$.B=|
000017f0  35 30 30 0d 09 2e 0a 59  3d 35 30 30 30 0d 09 38  |500....Y=5000..8|
00001800  08 55 3d 35 30 0d 09 42  07 47 3d 30 0d 09 4c 07  |.U=50..B.G=0..L.|
00001810  41 3d 30 0d 09 56 07 53  3d 30 0d 09 60 05 e1 0d  |A=0..V.S=0..`...|
00001820  09 6a 05 3a 0d 09 74 0e  dd f2 6d 61 69 6e 70 61  |.j.:..t...mainpa|
00001830  72 74 0d 09 7e 13 ef 20  32 33 2c 31 2c 30 3b 30  |rt..~.. 23,1,0;0|
00001840  3b 30 3b 30 3b 0d 09 88  7e f1 8a 31 30 2c 34 29  |;0;0;...~..10,4)|
00001850  3b 42 3b 22 20 20 20 20  22 3b 8a 33 32 2c 34 29  |;B;"    ";.32,4)|
00001860  3b 47 3b 22 20 20 22 3b  8a 33 32 2c 35 29 3b 41  |;G;"  ";.32,5);A|
00001870  3b 22 20 20 20 22 3b 8a  31 30 2c 36 29 3b 59 3b  |;"   ";.10,6);Y;|
00001880  22 20 20 20 20 20 20 22  3b 8a 33 32 2c 36 29 3b  |"      ";.32,6);|
00001890  53 3b 22 20 20 20 22 3b  8a 33 32 2c 37 29 3b 57  |S;"   ";.32,7);W|
000018a0  3b 22 20 20 20 22 3b 8a  31 30 2c 38 29 3b 55 3b  |;"   ";.10,8);U;|
000018b0  22 20 20 22 3b 8a 33 32  2c 38 29 3b 4f 3b 22 20  |"  ";.32,8);O;" |
000018c0  20 20 22 0d 09 92 6e f1  8a 30 2c 34 29 3b 22 81  |  "...n..0,4);".|
000018d0  42 61 6e 6b 20 20 20 20  24 22 3b 8a 30 2c 36 29  |Bank    $";.0,6)|
000018e0  3b 22 82 53 75 6d 20 59  65 6e 20 24 22 3b 8a 30  |;".Sum Yen $";.0|
000018f0  2c 38 29 3b 22 83 55 6e  69 74 73 20 20 20 3a 22  |,8);".Units   :"|
00001900  3b 8a 30 2c 31 30 29 22  84 4c 6f 63 61 74 69 6f  |;.0,10)".Locatio|
00001910  6e 3a 22 3b 8a 34 2c 33  29 3b 22 53 54 41 54 55  |n:";.4,3);"STATU|
00001920  53 22 3b 8a 32 35 2c 33  29 3b 22 43 41 52 47 4f  |S";.25,3);"CARGO|
00001930  22 0d 09 9c 53 f1 8a 32  33 2c 34 29 3b 22 47 65  |"...S..23,4);"Ge|
00001940  6e 65 72 61 6c 22 3b 8a  32 32 2c 35 29 3b 22 85  |neral";.22,5);".|
00001950  41 72 6d 73 22 3b 8a 32  33 2c 36 29 3b 22 53 69  |Arms";.23,6);"Si|
00001960  6c 6b 22 3b 8a 32 32 2c  37 29 3b 22 86 57 68 69  |lk";.22,7);".Whi|
00001970  73 6b 65 79 22 3b 8a 32  33 2c 38 29 3b 22 4f 70  |skey";.23,8);"Op|
00001980  69 75 6d 22 0d 09 a6 0f  f1 8a 31 30 2c 31 30 29  |ium"......10,10)|
00001990  3b 4c 24 0d 09 b0 d7 f1  8a 32 36 2c 31 34 29 3b  |;L$......26,14);|
000019a0  22 50 52 49 43 45 53 3a  22 3b 8a 32 31 2c 31 36  |"PRICES:";.21,16|
000019b0  29 3b 22 31 2e 20 47 65  6e 65 72 61 6c 20 24 20  |);"1. General $ |
000019c0  20 20 20 20 22 3b 8a 33  33 2c 31 36 29 3b 50 28  |    ";.33,16);P(|
000019d0  31 29 3b 8a 32 31 29 3b  22 32 2e 20 41 72 6d 73  |1);.21);"2. Arms|
000019e0  20 20 20 20 24 20 20 20  20 20 22 3b 8a 33 33 2c  |    $     ";.33,|
000019f0  31 37 29 3b 50 28 32 29  3b 8a 32 31 29 3b 22 33  |17);P(2);.21);"3|
00001a00  2e 20 53 69 6c 6b 20 20  20 20 24 20 20 20 20 20  |. Silk    $     |
00001a10  22 3b 8a 33 33 2c 31 38  29 3b 50 28 33 29 3b 8a  |";.33,18);P(3);.|
00001a20  32 31 29 3b 22 34 2e 20  57 68 69 73 6b 65 79 20  |21);"4. Whiskey |
00001a30  24 20 20 20 20 20 22 3b  8a 33 33 2c 31 39 29 3b  |$     ";.33,19);|
00001a40  50 28 34 29 3b 8a 32 31  29 3b 22 35 2e 20 4f 70  |P(4);.21);"5. Op|
00001a50  69 75 6d 20 20 20 24 20  20 20 20 20 22 3b 8a 33  |ium   $     ";.3|
00001a60  33 2c 32 30 29 3b 50 28  35 29 0d 09 ba 42 f1 8a  |3,20);P(5)...B..|
00001a70  32 2c 31 34 29 3b 22 4f  50 54 49 4f 4e 53 3a 22  |2,14);"OPTIONS:"|
00001a80  3b 8a 30 2c 31 36 29 3b  22 31 2e 20 42 55 59 22  |;.0,16);"1. BUY"|
00001a90  3b 8a 30 29 3b 22 32 2e  20 53 45 4c 4c 22 3b 8a  |;.0);"2. SELL";.|
00001aa0  30 29 3b 22 33 2e 20 53  41 49 4c 22 0d 09 c4 51  |0);"3. SAIL"...Q|
00001ab0  e7 4c 3d 31 f1 8a 30 2c  31 39 29 3b 22 34 2e 20  |.L=1..0,19);"4. |
00001ac0  56 49 53 49 54 20 53 55  4d 20 59 45 4e 22 3b 8a  |VISIT SUM YEN";.|
00001ad0  30 29 3b 22 28 54 48 45  20 4d 4f 4e 45 59 4c 45  |0);"(THE MONEYLE|
00001ae0  4e 44 45 52 29 22 3a f1  22 3f 22 3b 3a ef 32 33  |NDER)":."?";:.23|
00001af0  2c 31 2c 31 2c 30 2c 30  3b 30 3b 30 3b 0d 09 ce  |,1,1,0,0;0;0;...|
00001b00  0b 54 45 4d 50 24 3d be  0d 09 d8 0e 43 3d bb 28  |.TEMP$=.....C=.(|
00001b10  54 45 4d 50 24 29 0d 09  e2 1c e7 43 3c 3e a8 20  |TEMP$).....C<>. |
00001b20  43 20 84 20 43 3c 31 84  43 3e 34 20 8c e5 8d 64  |C . C<1.C>4 ...d|
00001b30  44 49 0d 09 ec 13 e7 4c  3c 3e 31 80 43 3e 33 8c  |DI.....L<>1.C>3.|
00001b40  e5 8d 64 44 49 0d 09 f6  1e e7 20 43 3d 31 20 8c  |..dDI..... C=1 .|
00001b50  20 f1 22 42 55 59 22 3a  f2 70 61 75 73 65 3a f2  | ."BUY":.pause:.|
00001b60  62 75 79 0d 0a 00 20 e7  20 43 3d 32 20 8c 20 f1  |buy... . C=2 . .|
00001b70  22 53 45 4c 4c 22 3a f2  70 61 75 73 65 3a f2 73  |"SELL":.pause:.s|
00001b80  65 6c 6c 0d 0a 0a 20 e7  20 43 3d 33 20 8c 20 f1  |ell... . C=3 . .|
00001b90  22 53 41 49 4c 22 3a f2  70 61 75 73 65 3a f2 73  |"SAIL":.pause:.s|
00001ba0  61 69 6c 0d 0a 14 22 e7  20 43 3d 34 20 8c 20 f1  |ail...". C=4 . .|
00001bb0  22 53 55 4d 20 59 45 4e  22 3a f2 70 61 75 73 65  |"SUM YEN":.pause|
00001bc0  3a f2 73 75 6d 0d 0a 1e  05 e1 0d 0a 28 05 3a 0d  |:.sum.......(.:.|
00001bd0  0a 32 0b dd f2 70 61 75  73 65 0d 0a 3c 16 e3 20  |.2...pause..<.. |
00001be0  54 45 4d 50 25 3d 31 20  b8 20 32 30 30 30 3a ed  |TEMP%=1 . 2000:.|
00001bf0  0d 0a 46 05 e1 0d 0a 50  05 3a 0d 0a 5a 0c dd f2  |..F....P.:..Z...|
00001c00  6c 70 61 75 73 65 0d 0a  64 17 e3 20 54 45 4d 50  |lpause..d.. TEMP|
00001c10  25 3d 31 20 b8 20 31 30  30 30 30 3a ed 0d 0a 6e  |%=1 . 10000:...n|
00001c20  05 e1 0d 0a 78 05 3a 0d  0a 82 0b dd f2 65 72 72  |....x.:......err|
00001c30  6f 72 0d 0a 8c 0b 2a 46  58 31 32 2c 30 0d 0a 96  |or....*FX12,0...|
00001c40  05 db 0d 0a a0 14 f6 3a  f1 22 20 61 74 20 6c 69  |.......:." at li|
00001c50  6e 65 20 22 3b 9e 0d 0a  aa 05 e0 0d ff           |ne ";........|
00001c5d
04-04-88/SSTRADE.m0
04-04-88/SSTRADE.m1
04-04-88/SSTRADE.m2
04-04-88/SSTRADE.m4
04-04-88/SSTRADE.m5