24-06-88/FOREX

Home » CEEFAX disks » telesoftware7.adl » 24-06-88/FOREX

24-06-88/FOREX

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 » telesoftware7.adl
Filename:	24-06-88/FOREX
Read OK:	✔
File size:	1648 bytes
Load address:	FFFF0E00
Exec address:	FFFF802B

File contents

   10REM"�*****************************
   20REM"�*�FOREX - Foreign  currency�*
   30REM"�*�conversion program. V1b  �*
   40REM"�*�by�J.J.Brayshaw�Oct. 1985�*
   50REM"�*�For new page nos: 25/5/86�*
   60REM"�*�and for ATS: 10 Sept 86  �*
   70REM"�*****************************
   80MODE7
   90ONERRORGOTO1490
  100PROCstart
  110PROCsetup
  120date$=FNBBCdate
  130IFNOT FNadapter PROCheading:PRINT"�Sorry, adapter not on."''"�Program terminated.":GOTO1590
  140PROCgetpages
  150ONERRORGOTO1490
  160C%=TRUE:Eng=0:For=0:forex=FALSE:sterling=TRUE
  170PROCcalculate(FNselectcountry)
  180REPEAT
  190PROCgetamount
  200UNTILFALSE
  210END
  220REM"�***
  230DEFPROCsetup
  240DIM country$(27),currency$(26),value(26)
  250DIM W 15
  260*TELES.
  270*HON
  280ENDPROC
  290REM"�***
  300DEFPROCgetpages
  310FORsub%=1TO2
  320PROCoscli("PAGE134000"+STR$(sub%))
  330*TRANSFER 7000
  340PROCconvert(sub%)
  350NEXT
  360ENDPROC
  370REM"�***
  380DEFPROCconvert(SP%)
  390FORA%=&7000 TO &7400
  400IF?A%<160 ?A%=32 ELSE?A%=(?A%)AND&7F
  410NEXT
  420FORZ%=1TO13
  430A%=&7140+(40*Z%)
  440T%=?(A%+40):?(A%+40)=&0D
  450S%=A%:REPEAT:S%=S%+1:UNTILS%<>32
  460country$(Z%+((SP%-1)*13))=LEFT$($S%,13)
  470value(Z%+((SP%-1)*13))=VAL($(S%+12))
  480S%=A%+28:REPEAT:S%=S%+1:UNTILS%<>32
  490currency$(Z%+((SP%-1)*13))=$S%
  500?(A%+40)=T%
  510NEXT
  520ENDPROC
  530REM"�***
  540DEFPROCoscli(call$)
  550X%=W MOD256:Y%=W DIV256
  560$W=call$
  570CALL&FFF7
  580ENDPROC
  590REM"�***
  600DEFFNselectcountry
  610*HOFF
  620PROCheading
  630PRINT
  640FORA%=1TO13
  650IFA%<10 PRINT" ";
  660PRINT"   �";A%;"�";country$(A%);"�";A%+13;"�";country$(A%+13)
  670NEXT
  680PRINT'CHR$132;CHR$157;"�Type either the number or name of"'CHR$132;CHR$157;"�the required country:"
  690PRINT'CHR$132;CHR$157;"�Please select:�";
  700*FX21,0
  710INPUT""N$
  720IFN$="" VDU7:GOTO620
  730N%=VAL(N$):IFN%>0 ANDN%<27 GOTO870
  740$W=N$:?W=(?W AND&DF)
  750IFLEN(N$)=1 GOTO810
  760A%=0:REPEAT:A%=A%+1:IF?(W+A%)=13 GOTO790
  770IF?(W+A%)=32 ANDA%<(LEN(N$)-2) ?(W+A%+1)=?(W+A%+1)AND&DF:A%=A%+2
  780?(W+A%)=?(W+A%) OR&20
  790UNTIL?(W+A%)=13
  800N$=$W
  810N%=0
  820REPEAT
  830N%=N%+1
  840UNTILN$=LEFT$(country$(N%),LEN(N$)) OR N%=27
  850IFN%=27 VDU7:GOTO620
  860Y%=LEN(currency$(N%))+1:REPEAT:Y%=Y%-1:UNTILMID$(currency$(N%),Y%,1)<>" ":currency$(N%)=LEFT$(currency$(N%),Y%)
  870=N%
  880REM"�***
  890DEFPROCheading
  900CLS
  910PRINTTAB(0,24)CHR$148;CHR$157;CHR$134;SPC(15);"(C)J.J.Brayshaw. 1985";TAB(0,0);
  920PRINT'CHR$147;"   7``p _p p _ _";CHR$145;"_pppppppppppppppppp0"
  930PRINTCHR$148;CHR$157;CHR$147;" =,j 55 j,! 91";CHR$145;"j";CHR$135;"Foreign Currency";CHR$145;"5"
  940PRINTCHR$147;"   5  ` !  `!� �";CHR$145;"�``````````````````!"
  950ENDPROC
  960REM"�***
  970DEFPROCcalculate(no%)
  980PROCheading
  990PRINTCHR$141;CHR$134;date$'CHR$141;CHR$134;date$
 1000PRINTCHR$141;"�Country:� ";country$(no%)
 1010PRINTCHR$141;"�Country:� ";country$(no%)
 1020PRINTCHR$141;"�Currency:�";currency$(no%)
 1030PRINTCHR$141;"�Currency:�";currency$(no%)
 1040PRINTCHR$141;"�Current rate:�";value(no%);" to the `"
 1050PRINTCHR$141;"�Current rate:�";value(no%);" to the `"
 1060PRINTTAB(1,18)"�Sterling value"
 1070K%=LEN(country$(no%)):REPEAT:K%=K%-1:UNTILMID$(country$(no%),K%,1)<>" "
 1080country$(no%)=LEFT$(country$(no%),K%)
 1090PRINTTAB(22,18);country$(no%);" value"
 1100ENDPROC
 1110REM"�***
 1120DEFPROCprintamounts
 1130@%=&2020A
 1140PRINTTAB(4,20)SPC(16)TAB(4,21)SPC(16)TAB(24,20)SPC(16)TAB(24,21)SPC(16)
 1150PRINTTAB(0,20)CHR$141;CHR$132;CHR$157;CHR$131;Eng TAB(20,20)CHR$156;CHR$132;CHR$157;CHR$131;For
 1160PRINTTAB(0,21)CHR$141;CHR$132;CHR$157;CHR$131;Eng TAB(20,21)CHR$156;CHR$132;CHR$157;CHR$131;For
 1170ENDPROC
 1180REM"�***
 1190DEFPROCgetamount
 1200PROCprintamounts
 1210PRINTTAB(0,14)SPC(39)TAB(0,15)SPC(39)
 1220PRINTTAB(2,14)CHR$141;"�";:IFC% PRINT"pounds:�";:ELSEPRINT;currency$(N%);":�";
 1230PRINTTAB(2,15)CHR$141;"�";:IFC% PRINT"pounds:�";:ELSEPRINT;currency$(N%);":�";
 1240A$=""
 1250REPEAT
 1260Q=GET
 1270IFQ=13 ANDA$="" C%=NOTC%:forex=NOTforex:sterling=NOTsterling
 1280IFQ=13 GOTO1320
 1290IFQ<46 ORQ>57 VDU7:GOTO1260
 1300VDUQ,8,11,Q,10
 1310A$=A$+CHR$Q
 1320UNTILQ=13
 1330IFA$="" GOTO1210
 1340IFforex For=VAL(A$)
 1350IFsterling Eng=VAL(A$)
 1360PROCchange
 1370ENDPROC
 1380REM"�***
 1390DEFPROCforwindow
 1400PRINTTAB(21,20)CHR$132;CHR$157;CHR$131;For TAB(21,21)CHR$132;CHR$157;CHR$131;For
 1410ENDPROC
 1420REM"�***
 1430DEFPROCchange
 1440IFvalue(N%)=0 CLS:PROCheading:PRINT"�Sorry, rates for ";country$(N%)'"�not available.":GOTO1590
 1450IFC% For=Eng*value(N%) ELSE Eng=For/value(N%)
 1460ENDPROC
 1470REM"�***
 1480REM"�Error sequence:
 1490MODE7
 1500ONERROROFF
 1510IFERR=254 date$="":GOTO130
 1520PROCsheet
 1530@%=10
 1540PROCheading
 1550IFvalue(N%)=0 GOTO1590
 1560PRINT'"�Re-run? (Y/N):�";
 1570REPEAT:Q%=GET AND&DF:UNTILQ%=78 ORQ%=89
 1580IFQ%=89 PRINT"Yes";:country$(N%)=LEFT$(country$(N%)+"             ",13):GOTO150 ELSEPRINT"No. "'
 1600@%=10
 1610END
 1620REM"�***
 1630DEFPROCstart
 1640PROCheading
 1650PRINT"�A selection of countries will be"
 1660PRINT"�displayed shortly. Make your choice as"
 1670PRINT"�requested. To enter an amount, type in"
 1680PRINT"�the sum at the prompt."
 1690PRINT'"�Pressing just�RETURN�without entering"
 1700PRINT"�any amount will toggle between�Sterling";
 1710PRINT"�entries, and�Foreign�currency entries,"
 1720PRINT"�allowing conversion in either"
 1730PRINT"�direction."
 1740PRINT'"�To end, press�ESCAPE�.  To select a"
 1750PRINT"�different country, re-run the program."
 1760PRINT'"�The current information is now being"
 1770PRINT"�downloaded from�CEEFAX�."
 1780PRINT'"�Please wait a few moments...";
 1790ENDPROC
 1800REM"�***
 1810DEFPROCsheet
 1820IFvalue(N%)=0 ENDPROC
 1830ONERRORGOTO1490
 1840PROCheading
 1850PRINT"�Britain:";TAB(22);country$(N%);":"
 1860PRINT"�Sterling"TAB(22);currency$(N%)
 1870RESTORE 1940
 1880PRINT"�   50p."," ",value(N%)*.5
 1890RESTORE 1940
 1900I1%=0:REPEAT:READI$:I1%=I1%+1
 1910IFI1%MOD2=1 PRINT"�` ";: ELSEPRINT"�` ";
 1920PRINT;I$," ",value(N%)*VAL(I$)
 1930UNTILI$="1000"
 1940DATA "   1","   2","   5","  10","  20","  25","  50","  75"," 100"," 150"," 200"," 250"," 300"," 500"," 750","1000"
 1950PRINT"�Press SPACE to continue...";
 1960REPEAT:UNTILGET=32
 1970ENDPROC
 1980REM"�****************
 1990DEFFNBBCdate
 2010*BBC1
 2020TIME=0:REPEATUNTILTIME>120
 2030work%=&7000
 2040A%=&7A:X%=work%MOD256:Y%=work%DIV256:?work%=15:CALL&FFF1
 2050BB1$=RIGHT$(STR$~(work%?8),1)
 2060BB2$=STR$~(work%?9):IF LEN(BB2$)=1 BB2$="0"+BB2$
 2070BB3$=STR$~(work%?10):IF LEN(BB3$)=1 BB3$="0"+BB3$
 2080JD=VAL(BB1$+BB2$+BB3$)
 2090Y1=(100*(JD-15078.2))DIV36525
 2100M1=INT((JD-14956.1-INT(365.25*Y1))/30.6001)
 2110D%=JD-14956-INT(365.25*Y1)-INT(30.6*M1):K=INT(0.7+(1/(17-M1)))
 2120M%=M1-1-12*K
 2130Z%=Y1+K
 2140W%=(JD+3)MOD7:RESTORE2150:FORday=0TOW%:READD$:NEXT:D$=D$+"day"
 2150DATA Sun,Mon,Tues,Wednes,Thurs,Fri,Satur
 2160RESTORE2170:FORday=1TOM%:READmonth$:NEXT
 2170DATA January,February,March,April,May,June,July,August,September,October,November,December
 2180IFD%=1ORD%=21ORD%=31 th$="st" ELSEIFD%=2ORD%=22 th$="nd" ELSEIFD%=3ORD%=23 th$="rd" ELSEth$="th"
 2190=D$+"  "+STR$(D%)+th$+" "+month$+" 19"+STR$(Z%)
 2200DEFFNadapter:DIM work% 2
 2210A%=&7A:X%=work%MOD256:Y%=work%DIV256:?work%=17:CALL&FFF1:IF(work%?1)=0 =TRUE ELSE =FALSE


$�"�*****************************
$�"�*�FOREX - Foreign  currency�*
$�"�*�conversion program. V1b  �*
($�"�*�by�J.J.Brayshaw�Oct. 1985�*
2$�"�*�For new page nos: 25/5/86�*
<$�"�*�and for ATS: 10 Sept 86  �*
F$�"�*****************************
P�7
Z��dRE
d
�start
n
�setup
xdate$=�BBCdate
�Q� �adapter �heading:�"�Sorry, adapter not on."''"�Program terminated.":�TvF
�
�getpages
���dRE
�'C%=�:Eng=0:For=0:forex=�:sterling=�
��calculate(�selectcountry)
��
��getamount
���
��
�
�"�***
���setup
�*� country$(27),currency$(26),value(26)
�
� W 15
*TELES.
*HON
�
"
�"�***
,��getpages
6
�sub%=1�2
@ �oscli("PAGE134000"+�(sub%))
J*TRANSFER 7000
T�convert(sub%)
^�
h�
r
�"�***
|��convert(SP%)
��A%=&7000 � &7400
�"�?A%<160 ?A%=32 �?A%=(?A%)�&7F
��
��Z%=1�13
�A%=&7140+(40*Z%)
�T%=?(A%+40):?(A%+40)=&0D
�S%=A%:�:S%=S%+1:�S%<>32
�&country$(Z%+((SP%-1)*13))=�$S%,13)
�&value(Z%+((SP%-1)*13))=�($(S%+12))
�S%=A%+28:�:S%=S%+1:�S%<>32
�"currency$(Z%+((SP%-1)*13))=$S%
�?(A%+40)=T%
��
�

�"�***
��oscli(call$)
&X%=W �256:Y%=W �256
0$W=call$
:
�&FFF7
D�
N
�"�***
Xݤselectcountry
b	*HOFF
l�heading
v�
��A%=1�13
��A%<10 �" ";
�=�"   �";A%;"�";country$(A%);"�";A%+13;"�";country$(A%+13)
��
�W�'�132;�157;"�Type either the number or name of"'�132;�157;"�the required country:"
�#�'�132;�157;"�Please select:�";
�*FX21,0
�	�""N$
��N$="" �7:�DlB
�N%=�(N$):�N%>0 �N%<27 �DfC
�$W=N$:?W=(?W �&DF)
��(N$)=1 �TjC
�$A%=0:�:A%=A%+1:�?(W+A%)=13 �TVC
=�?(W+A%)=32 �A%<(�(N$)-2) ?(W+A%+1)=?(W+A%+1)�&DF:A%=A%+2
?(W+A%)=?(W+A%) �&20
�?(W+A%)=13
 	N$=$W
*N%=0
4�
>N%=N%+1
H$�N$=�country$(N%),�(N$)) � N%=27
R�N%=27 �7:�DlB
\_Y%=�(currency$(N%))+1:�:Y%=Y%-1:��currency$(N%),Y%,1)<>" ":currency$(N%)=�currency$(N%),Y%)
f=N%
p
�"�***
z
��heading
��
�>�0,24)�148;�157;�134;�(15);"(C)J.J.Brayshaw. 1985";�0,0);
�9�'�147;"   7``p _p p _ _";�145;"_pppppppppppppppppp0"
�N�148;�157;�147;" =,j 55 j,! 91";�145;"j";�135;"Foreign Currency";�145;"5"
�8�147;"   5  ` !  `!� �";�145;"�``````````````````!"
��
�
�"�***
���calculate(no%)
��heading
�$�141;�134;date$'�141;�134;date$
�%�141;"�Country:� ";country$(no%)
�%�141;"�Country:� ";country$(no%)
�&�141;"�Currency:�";currency$(no%)
&�141;"�Currency:�";currency$(no%)
2�141;"�Current rate:�";value(no%);" to the `"
2�141;"�Current rate:�";value(no%);" to the `"
$�1,18)"�Sterling value"
.<K%=�(country$(no%)):�:K%=K%-1:��country$(no%),K%,1)<>" "
8$country$(no%)=�country$(no%),K%)
B#�22,18);country$(no%);" value"
L�
V
�"�***
`��printamounts
j
@%=&2020A
t3�4,20)�(16)�4,21)�(16)�24,20)�(16)�24,21)�(16)
~A�0,20)�141;�132;�157;�131;Eng �20,20)�156;�132;�157;�131;For
�A�0,21)�141;�132;�157;�131;Eng �20,21)�156;�132;�157;�131;For
��
�
�"�***
���getamount
��printamounts
��0,14)�(39)�0,15)�(39)
�<�2,14)�141;"�";:�C% �"pounds:�";:��;currency$(N%);":�";
�<�2,15)�141;"�";:�C% �"pounds:�";:��;currency$(N%);":�";
�	A$=""
��
�Q=�
�7�Q=13 �A$="" C%=�C%:forex=�forex:sterling=�sterling
�Q=13 �ThE

�Q<46 �Q>57 �7:�dlD
�Q,8,11,Q,10
A$=A$+�Q
(	�Q=13
2�A$="" �tzD
<�forex For=�(A$)
F�sterling Eng=�(A$)
P�change
Z�
d
�"�***
n��forwindow
x8�21,20)�132;�157;�131;For �21,21)�132;�157;�131;For
��
�
�"�***
���change
�V�value(N%)=0 �:�heading:�"�Sorry, rates for ";country$(N%)'"�not available.":�TvF
�-�C% For=Eng*value(N%) � Eng=For/value(N%)
��
�
�"�***
��"�Error sequence:
��7
�
��=254 date$="":�tB@
�
�sheet
�	@%=10
�heading
�value(N%)=0 �TvF
�'"�Re-run? (Y/N):�";
"�:Q%=� �&DF:�Q%=78 �Q%=89
,Q�Q%=89 �"Yes";:country$(N%)=�country$(N%)+"             ",13):�tV@ ��"No. "'
@	@%=10
J�
T
�"�***
^��start
h�heading
r(�"�A selection of countries will be"
|.�"�displayed shortly. Make your choice as"
�.�"�requested. To enter an amount, type in"
��"�the sum at the prompt."
�.�'"�Pressing just�RETURN�without entering"
�0�"�any amount will toggle between�Sterling";
�.�"�entries, and�Foreign�currency entries,"
�%�"�allowing conversion in either"
��"�direction."
�,�'"�To end, press�ESCAPE�.  To select a"
�.�"�different country, re-run the program."
�-�'"�The current information is now being"
� �"�downloaded from�CEEFAX�."
�&�'"�Please wait a few moments...";
��

�"�***
��sheet
�value(N%)=0 �
&��dRE
0�heading
:&�"�Britain:";�22);country$(N%);":"
D"�"�Sterling"�22);currency$(N%)
N
� �tTG
X �"�   50p."," ",value(N%)*.5
b
� �tTG
lI1%=0:�:�I$:I1%=I1%+1
v�I1%�2=1 �"�` ";: ��"�` ";
��;I$," ",value(N%)*�(I$)
��I$="1000"
�u� "   1","   2","   5","  10","  20","  25","  50","  75"," 100"," 150"," 200"," 250"," 300"," 500"," 750","1000"
�#�"�Press SPACE to continue...";
��:��=32
��
��"�****************
�
ݤBBCdate
�	*BBC1
��=0:���>120
�work%=&7000
�5A%=&7A:X%=work%�256:Y%=work%�256:?work%=15:�&FFF1
BB1$=��~(work%?8),1)
.BB2$=�~(work%?9):� �(BB2$)=1 BB2$="0"+BB2$
/BB3$=�~(work%?10):� �(BB3$)=1 BB3$="0"+BB3$
 JD=�(BB1$+BB2$+BB3$)
*Y1=(100*(JD-15078.2))�36525
4+M1=�((JD-14956.1-�(365.25*Y1))/30.6001)
><D%=JD-14956-�(365.25*Y1)-�(30.6*M1):K=�(0.7+(1/(17-M1)))
HM%=M1-1-12*K
RZ%=Y1+K
\1W%=(JD+3)�7:��DfH:�day=0�W%:�D$:�:D$=D$+"day"
f)� Sun,Mon,Tues,Wednes,Thurs,Fri,Satur
p��DzH:�day=1�M%:�month$:�
z[� January,February,March,April,May,June,July,August,September,October,November,December
�T�D%=1�D%=21�D%=31 th$="st" ��D%=2�D%=22 th$="nd" ��D%=3�D%=23 th$="rd" �th$="th"
�-=D$+"  "+�(D%)+th$+" "+month$+" 19"+�(Z%)
�ݤadapter:� work% 2
�JA%=&7A:X%=work%�256:Y%=work%�256:?work%=17:�&FFF1:�(work%?1)=0 =� � =�
�

00000000  0d 00 0a 24 f4 22 81 2a  2a 2a 2a 2a 2a 2a 2a 2a  |...$.".*********|
00000010  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000020  2a 2a 2a 2a 0d 00 14 24  f4 22 81 2a 83 46 4f 52  |****...$.".*.FOR|
00000030  45 58 20 2d 20 46 6f 72  65 69 67 6e 20 20 63 75  |EX - Foreign  cu|
00000040  72 72 65 6e 63 79 81 2a  0d 00 1e 24 f4 22 81 2a  |rrency.*...$.".*|
00000050  83 63 6f 6e 76 65 72 73  69 6f 6e 20 70 72 6f 67  |.conversion prog|
00000060  72 61 6d 2e 20 56 31 62  20 20 81 2a 0d 00 28 24  |ram. V1b  .*..($|
00000070  f4 22 81 2a 85 62 79 86  4a 2e 4a 2e 42 72 61 79  |.".*.by.J.J.Bray|
00000080  73 68 61 77 82 4f 63 74  2e 20 31 39 38 35 81 2a  |shaw.Oct. 1985.*|
00000090  0d 00 32 24 f4 22 81 2a  87 46 6f 72 20 6e 65 77  |..2$.".*.For new|
000000a0  20 70 61 67 65 20 6e 6f  73 3a 20 32 35 2f 35 2f  | page nos: 25/5/|
000000b0  38 36 81 2a 0d 00 3c 24  f4 22 81 2a 87 61 6e 64  |86.*..<$.".*.and|
000000c0  20 66 6f 72 20 41 54 53  3a 20 31 30 20 53 65 70  | for ATS: 10 Sep|
000000d0  74 20 38 36 20 20 81 2a  0d 00 46 24 f4 22 81 2a  |t 86  .*..F$.".*|
000000e0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
000000f0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 0d 00 50 06  |************..P.|
00000100  eb 37 0d 00 5a 0b ee 85  e5 8d 64 52 45 0d 00 64  |.7..Z.....dRE..d|
00000110  0a f2 73 74 61 72 74 0d  00 6e 0a f2 73 65 74 75  |..start..n..setu|
00000120  70 0d 00 78 12 64 61 74  65 24 3d a4 42 42 43 64  |p..x.date$=.BBCd|
00000130  61 74 65 0d 00 82 51 e7  ac 20 a4 61 64 61 70 74  |ate...Q.. .adapt|
00000140  65 72 20 f2 68 65 61 64  69 6e 67 3a f1 22 83 53  |er .heading:.".S|
00000150  6f 72 72 79 2c 20 61 64  61 70 74 65 72 20 6e 6f  |orry, adapter no|
00000160  74 20 6f 6e 2e 22 27 27  22 81 50 72 6f 67 72 61  |t on."''".Progra|
00000170  6d 20 74 65 72 6d 69 6e  61 74 65 64 2e 22 3a e5  |m terminated.":.|
00000180  8d 54 76 46 0d 00 8c 0d  f2 67 65 74 70 61 67 65  |.TvF.....getpage|
00000190  73 0d 00 96 0b ee 85 e5  8d 64 52 45 0d 00 a0 27  |s........dRE...'|
000001a0  43 25 3d b9 3a 45 6e 67  3d 30 3a 46 6f 72 3d 30  |C%=.:Eng=0:For=0|
000001b0  3a 66 6f 72 65 78 3d a3  3a 73 74 65 72 6c 69 6e  |:forex=.:sterlin|
000001c0  67 3d b9 0d 00 aa 1e f2  63 61 6c 63 75 6c 61 74  |g=......calculat|
000001d0  65 28 a4 73 65 6c 65 63  74 63 6f 75 6e 74 72 79  |e(.selectcountry|
000001e0  29 0d 00 b4 05 f5 0d 00  be 0e f2 67 65 74 61 6d  |)..........getam|
000001f0  6f 75 6e 74 0d 00 c8 06  fd a3 0d 00 d2 05 e0 0d  |ount............|
00000200  00 dc 0a f4 22 81 2a 2a  2a 0d 00 e6 0b dd f2 73  |....".***......s|
00000210  65 74 75 70 0d 00 f0 2a  de 20 63 6f 75 6e 74 72  |etup...*. countr|
00000220  79 24 28 32 37 29 2c 63  75 72 72 65 6e 63 79 24  |y$(27),currency$|
00000230  28 32 36 29 2c 76 61 6c  75 65 28 32 36 29 0d 00  |(26),value(26)..|
00000240  fa 0a de 20 57 20 31 35  0d 01 04 0b 2a 54 45 4c  |... W 15....*TEL|
00000250  45 53 2e 0d 01 0e 08 2a  48 4f 4e 0d 01 18 05 e1  |ES.....*HON.....|
00000260  0d 01 22 0a f4 22 81 2a  2a 2a 0d 01 2c 0e dd f2  |.."..".***..,...|
00000270  67 65 74 70 61 67 65 73  0d 01 36 0d e3 73 75 62  |getpages..6..sub|
00000280  25 3d 31 b8 32 0d 01 40  20 f2 6f 73 63 6c 69 28  |%=1.2..@ .oscli(|
00000290  22 50 41 47 45 31 33 34  30 30 30 22 2b c3 28 73  |"PAGE134000"+.(s|
000002a0  75 62 25 29 29 0d 01 4a  12 2a 54 52 41 4e 53 46  |ub%))..J.*TRANSF|
000002b0  45 52 20 37 30 30 30 0d  01 54 12 f2 63 6f 6e 76  |ER 7000..T..conv|
000002c0  65 72 74 28 73 75 62 25  29 0d 01 5e 05 ed 0d 01  |ert(sub%)..^....|
000002d0  68 05 e1 0d 01 72 0a f4  22 81 2a 2a 2a 0d 01 7c  |h....r..".***..||
000002e0  12 dd f2 63 6f 6e 76 65  72 74 28 53 50 25 29 0d  |...convert(SP%).|
000002f0  01 86 15 e3 41 25 3d 26  37 30 30 30 20 b8 20 26  |....A%=&7000 . &|
00000300  37 34 30 30 0d 01 90 22  e7 3f 41 25 3c 31 36 30  |7400...".?A%<160|
00000310  20 3f 41 25 3d 33 32 20  8b 3f 41 25 3d 28 3f 41  | ?A%=32 .?A%=(?A|
00000320  25 29 80 26 37 46 0d 01  9a 05 ed 0d 01 a4 0c e3  |%).&7F..........|
00000330  5a 25 3d 31 b8 31 33 0d  01 ae 14 41 25 3d 26 37  |Z%=1.13....A%=&7|
00000340  31 34 30 2b 28 34 30 2a  5a 25 29 0d 01 b8 1c 54  |140+(40*Z%)....T|
00000350  25 3d 3f 28 41 25 2b 34  30 29 3a 3f 28 41 25 2b  |%=?(A%+40):?(A%+|
00000360  34 30 29 3d 26 30 44 0d  01 c2 1b 53 25 3d 41 25  |40)=&0D....S%=A%|
00000370  3a f5 3a 53 25 3d 53 25  2b 31 3a fd 53 25 3c 3e  |:.:S%=S%+1:.S%<>|
00000380  33 32 0d 01 cc 26 63 6f  75 6e 74 72 79 24 28 5a  |32...&country$(Z|
00000390  25 2b 28 28 53 50 25 2d  31 29 2a 31 33 29 29 3d  |%+((SP%-1)*13))=|
000003a0  c0 24 53 25 2c 31 33 29  0d 01 d6 26 76 61 6c 75  |.$S%,13)...&valu|
000003b0  65 28 5a 25 2b 28 28 53  50 25 2d 31 29 2a 31 33  |e(Z%+((SP%-1)*13|
000003c0  29 29 3d bb 28 24 28 53  25 2b 31 32 29 29 0d 01  |))=.($(S%+12))..|
000003d0  e0 1e 53 25 3d 41 25 2b  32 38 3a f5 3a 53 25 3d  |..S%=A%+28:.:S%=|
000003e0  53 25 2b 31 3a fd 53 25  3c 3e 33 32 0d 01 ea 22  |S%+1:.S%<>32..."|
000003f0  63 75 72 72 65 6e 63 79  24 28 5a 25 2b 28 28 53  |currency$(Z%+((S|
00000400  50 25 2d 31 29 2a 31 33  29 29 3d 24 53 25 0d 01  |P%-1)*13))=$S%..|
00000410  f4 0f 3f 28 41 25 2b 34  30 29 3d 54 25 0d 01 fe  |..?(A%+40)=T%...|
00000420  05 ed 0d 02 08 05 e1 0d  02 12 0a f4 22 81 2a 2a  |............".**|
00000430  2a 0d 02 1c 12 dd f2 6f  73 63 6c 69 28 63 61 6c  |*......oscli(cal|
00000440  6c 24 29 0d 02 26 17 58  25 3d 57 20 83 32 35 36  |l$)..&.X%=W .256|
00000450  3a 59 25 3d 57 20 81 32  35 36 0d 02 30 0c 24 57  |:Y%=W .256..0.$W|
00000460  3d 63 61 6c 6c 24 0d 02  3a 0a d6 26 46 46 46 37  |=call$..:..&FFF7|
00000470  0d 02 44 05 e1 0d 02 4e  0a f4 22 81 2a 2a 2a 0d  |..D....N..".***.|
00000480  02 58 13 dd a4 73 65 6c  65 63 74 63 6f 75 6e 74  |.X...selectcount|
00000490  72 79 0d 02 62 09 2a 48  4f 46 46 0d 02 6c 0c f2  |ry..b.*HOFF..l..|
000004a0  68 65 61 64 69 6e 67 0d  02 76 05 f1 0d 02 80 0c  |heading..v......|
000004b0  e3 41 25 3d 31 b8 31 33  0d 02 8a 10 e7 41 25 3c  |.A%=1.13.....A%<|
000004c0  31 30 20 f1 22 20 22 3b  0d 02 94 3d f1 22 20 20  |10 ." ";...=."  |
000004d0  20 81 22 3b 41 25 3b 22  83 22 3b 63 6f 75 6e 74  | .";A%;".";count|
000004e0  72 79 24 28 41 25 29 3b  22 81 22 3b 41 25 2b 31  |ry$(A%);".";A%+1|
000004f0  33 3b 22 83 22 3b 63 6f  75 6e 74 72 79 24 28 41  |3;".";country$(A|
00000500  25 2b 31 33 29 0d 02 9e  05 ed 0d 02 a8 57 f1 27  |%+13)........W.'|
00000510  bd 31 33 32 3b bd 31 35  37 3b 22 83 54 79 70 65  |.132;.157;".Type|
00000520  20 65 69 74 68 65 72 20  74 68 65 20 6e 75 6d 62  | either the numb|
00000530  65 72 20 6f 72 20 6e 61  6d 65 20 6f 66 22 27 bd  |er or name of"'.|
00000540  31 33 32 3b bd 31 35 37  3b 22 83 74 68 65 20 72  |132;.157;".the r|
00000550  65 71 75 69 72 65 64 20  63 6f 75 6e 74 72 79 3a  |equired country:|
00000560  22 0d 02 b2 23 f1 27 bd  31 33 32 3b bd 31 35 37  |"...#.'.132;.157|
00000570  3b 22 87 50 6c 65 61 73  65 20 73 65 6c 65 63 74  |;".Please select|
00000580  3a 86 22 3b 0d 02 bc 0b  2a 46 58 32 31 2c 30 0d  |:.";....*FX21,0.|
00000590  02 c6 09 e8 22 22 4e 24  0d 02 d0 13 e7 4e 24 3d  |....""N$.....N$=|
000005a0  22 22 20 ef 37 3a e5 8d  44 6c 42 0d 02 da 1f 4e  |"" .7:..DlB....N|
000005b0  25 3d bb 28 4e 24 29 3a  e7 4e 25 3e 30 20 80 4e  |%=.(N$):.N%>0 .N|
000005c0  25 3c 32 37 20 e5 8d 44  66 43 0d 02 e4 16 24 57  |%<27 ..DfC....$W|
000005d0  3d 4e 24 3a 3f 57 3d 28  3f 57 20 80 26 44 46 29  |=N$:?W=(?W .&DF)|
000005e0  0d 02 ee 12 e7 a9 28 4e  24 29 3d 31 20 e5 8d 54  |......(N$)=1 ..T|
000005f0  6a 43 0d 02 f8 24 41 25  3d 30 3a f5 3a 41 25 3d  |jC...$A%=0:.:A%=|
00000600  41 25 2b 31 3a e7 3f 28  57 2b 41 25 29 3d 31 33  |A%+1:.?(W+A%)=13|
00000610  20 e5 8d 54 56 43 0d 03  02 3d e7 3f 28 57 2b 41  | ..TVC...=.?(W+A|
00000620  25 29 3d 33 32 20 80 41  25 3c 28 a9 28 4e 24 29  |%)=32 .A%<(.(N$)|
00000630  2d 32 29 20 3f 28 57 2b  41 25 2b 31 29 3d 3f 28  |-2) ?(W+A%+1)=?(|
00000640  57 2b 41 25 2b 31 29 80  26 44 46 3a 41 25 3d 41  |W+A%+1).&DF:A%=A|
00000650  25 2b 32 0d 03 0c 18 3f  28 57 2b 41 25 29 3d 3f  |%+2....?(W+A%)=?|
00000660  28 57 2b 41 25 29 20 84  26 32 30 0d 03 16 0f fd  |(W+A%) .&20.....|
00000670  3f 28 57 2b 41 25 29 3d  31 33 0d 03 20 09 4e 24  |?(W+A%)=13.. .N$|
00000680  3d 24 57 0d 03 2a 08 4e  25 3d 30 0d 03 34 05 f5  |=$W..*.N%=0..4..|
00000690  0d 03 3e 0b 4e 25 3d 4e  25 2b 31 0d 03 48 24 fd  |..>.N%=N%+1..H$.|
000006a0  4e 24 3d c0 63 6f 75 6e  74 72 79 24 28 4e 25 29  |N$=.country$(N%)|
000006b0  2c a9 28 4e 24 29 29 20  84 20 4e 25 3d 32 37 0d  |,.(N$)) . N%=27.|
000006c0  03 52 13 e7 4e 25 3d 32  37 20 ef 37 3a e5 8d 44  |.R..N%=27 .7:..D|
000006d0  6c 42 0d 03 5c 5f 59 25  3d a9 28 63 75 72 72 65  |lB..\_Y%=.(curre|
000006e0  6e 63 79 24 28 4e 25 29  29 2b 31 3a f5 3a 59 25  |ncy$(N%))+1:.:Y%|
000006f0  3d 59 25 2d 31 3a fd c1  63 75 72 72 65 6e 63 79  |=Y%-1:..currency|
00000700  24 28 4e 25 29 2c 59 25  2c 31 29 3c 3e 22 20 22  |$(N%),Y%,1)<>" "|
00000710  3a 63 75 72 72 65 6e 63  79 24 28 4e 25 29 3d c0  |:currency$(N%)=.|
00000720  63 75 72 72 65 6e 63 79  24 28 4e 25 29 2c 59 25  |currency$(N%),Y%|
00000730  29 0d 03 66 07 3d 4e 25  0d 03 70 0a f4 22 81 2a  |)..f.=N%..p..".*|
00000740  2a 2a 0d 03 7a 0d dd f2  68 65 61 64 69 6e 67 0d  |**..z...heading.|
00000750  03 84 05 db 0d 03 8e 3e  f1 8a 30 2c 32 34 29 bd  |.......>..0,24).|
00000760  31 34 38 3b bd 31 35 37  3b bd 31 33 34 3b 89 28  |148;.157;.134;.(|
00000770  31 35 29 3b 22 28 43 29  4a 2e 4a 2e 42 72 61 79  |15);"(C)J.J.Bray|
00000780  73 68 61 77 2e 20 31 39  38 35 22 3b 8a 30 2c 30  |shaw. 1985";.0,0|
00000790  29 3b 0d 03 98 39 f1 27  bd 31 34 37 3b 22 20 20  |);...9.'.147;"  |
000007a0  20 37 60 60 70 20 5f 70  20 70 20 5f 20 5f 22 3b  | 7``p _p p _ _";|
000007b0  bd 31 34 35 3b 22 5f 70  70 70 70 70 70 70 70 70  |.145;"_ppppppppp|
000007c0  70 70 70 70 70 70 70 70  70 30 22 0d 03 a2 4e f1  |ppppppppp0"...N.|
000007d0  bd 31 34 38 3b bd 31 35  37 3b bd 31 34 37 3b 22  |.148;.157;.147;"|
000007e0  20 3d 2c 6a 20 35 35 20  6a 2c 21 20 39 31 22 3b  | =,j 55 j,! 91";|
000007f0  bd 31 34 35 3b 22 6a 22  3b bd 31 33 35 3b 22 46  |.145;"j";.135;"F|
00000800  6f 72 65 69 67 6e 20 43  75 72 72 65 6e 63 79 22  |oreign Currency"|
00000810  3b bd 31 34 35 3b 22 35  22 0d 03 ac 38 f1 bd 31  |;.145;"5"...8..1|
00000820  34 37 3b 22 20 20 20 35  20 20 60 20 21 20 20 60  |47;"   5  ` !  `|
00000830  21 a2 20 a2 22 3b bd 31  34 35 3b 22 a2 60 60 60  |!. .";.145;".```|
00000840  60 60 60 60 60 60 60 60  60 60 60 60 60 60 60 21  |```````````````!|
00000850  22 0d 03 b6 05 e1 0d 03  c0 0a f4 22 81 2a 2a 2a  |"..........".***|
00000860  0d 03 ca 14 dd f2 63 61  6c 63 75 6c 61 74 65 28  |......calculate(|
00000870  6e 6f 25 29 0d 03 d4 0c  f2 68 65 61 64 69 6e 67  |no%).....heading|
00000880  0d 03 de 24 f1 bd 31 34  31 3b bd 31 33 34 3b 64  |...$..141;.134;d|
00000890  61 74 65 24 27 bd 31 34  31 3b bd 31 33 34 3b 64  |ate$'.141;.134;d|
000008a0  61 74 65 24 0d 03 e8 25  f1 bd 31 34 31 3b 22 82  |ate$...%..141;".|
000008b0  43 6f 75 6e 74 72 79 3a  83 20 22 3b 63 6f 75 6e  |Country:. ";coun|
000008c0  74 72 79 24 28 6e 6f 25  29 0d 03 f2 25 f1 bd 31  |try$(no%)...%..1|
000008d0  34 31 3b 22 82 43 6f 75  6e 74 72 79 3a 83 20 22  |41;".Country:. "|
000008e0  3b 63 6f 75 6e 74 72 79  24 28 6e 6f 25 29 0d 03  |;country$(no%)..|
000008f0  fc 26 f1 bd 31 34 31 3b  22 82 43 75 72 72 65 6e  |.&..141;".Curren|
00000900  63 79 3a 83 22 3b 63 75  72 72 65 6e 63 79 24 28  |cy:.";currency$(|
00000910  6e 6f 25 29 0d 04 06 26  f1 bd 31 34 31 3b 22 82  |no%)...&..141;".|
00000920  43 75 72 72 65 6e 63 79  3a 83 22 3b 63 75 72 72  |Currency:.";curr|
00000930  65 6e 63 79 24 28 6e 6f  25 29 0d 04 10 32 f1 bd  |ency$(no%)...2..|
00000940  31 34 31 3b 22 82 43 75  72 72 65 6e 74 20 72 61  |141;".Current ra|
00000950  74 65 3a 83 22 3b 76 61  6c 75 65 28 6e 6f 25 29  |te:.";value(no%)|
00000960  3b 22 20 74 6f 20 74 68  65 20 60 22 0d 04 1a 32  |;" to the `"...2|
00000970  f1 bd 31 34 31 3b 22 82  43 75 72 72 65 6e 74 20  |..141;".Current |
00000980  72 61 74 65 3a 83 22 3b  76 61 6c 75 65 28 6e 6f  |rate:.";value(no|
00000990  25 29 3b 22 20 74 6f 20  74 68 65 20 60 22 0d 04  |%);" to the `"..|
000009a0  24 1c f1 8a 31 2c 31 38  29 22 81 53 74 65 72 6c  |$...1,18)".Sterl|
000009b0  69 6e 67 20 76 61 6c 75  65 22 0d 04 2e 3c 4b 25  |ing value"...<K%|
000009c0  3d a9 28 63 6f 75 6e 74  72 79 24 28 6e 6f 25 29  |=.(country$(no%)|
000009d0  29 3a f5 3a 4b 25 3d 4b  25 2d 31 3a fd c1 63 6f  |):.:K%=K%-1:..co|
000009e0  75 6e 74 72 79 24 28 6e  6f 25 29 2c 4b 25 2c 31  |untry$(no%),K%,1|
000009f0  29 3c 3e 22 20 22 0d 04  38 24 63 6f 75 6e 74 72  |)<>" "..8$countr|
00000a00  79 24 28 6e 6f 25 29 3d  c0 63 6f 75 6e 74 72 79  |y$(no%)=.country|
00000a10  24 28 6e 6f 25 29 2c 4b  25 29 0d 04 42 23 f1 8a  |$(no%),K%)..B#..|
00000a20  32 32 2c 31 38 29 3b 63  6f 75 6e 74 72 79 24 28  |22,18);country$(|
00000a30  6e 6f 25 29 3b 22 20 76  61 6c 75 65 22 0d 04 4c  |no%);" value"..L|
00000a40  05 e1 0d 04 56 0a f4 22  81 2a 2a 2a 0d 04 60 12  |....V..".***..`.|
00000a50  dd f2 70 72 69 6e 74 61  6d 6f 75 6e 74 73 0d 04  |..printamounts..|
00000a60  6a 0d 40 25 3d 26 32 30  32 30 41 0d 04 74 33 f1  |j.@%=&2020A..t3.|
00000a70  8a 34 2c 32 30 29 89 28  31 36 29 8a 34 2c 32 31  |.4,20).(16).4,21|
00000a80  29 89 28 31 36 29 8a 32  34 2c 32 30 29 89 28 31  |).(16).24,20).(1|
00000a90  36 29 8a 32 34 2c 32 31  29 89 28 31 36 29 0d 04  |6).24,21).(16)..|
00000aa0  7e 41 f1 8a 30 2c 32 30  29 bd 31 34 31 3b bd 31  |~A..0,20).141;.1|
00000ab0  33 32 3b bd 31 35 37 3b  bd 31 33 31 3b 45 6e 67  |32;.157;.131;Eng|
00000ac0  20 8a 32 30 2c 32 30 29  bd 31 35 36 3b bd 31 33  | .20,20).156;.13|
00000ad0  32 3b bd 31 35 37 3b bd  31 33 31 3b 46 6f 72 0d  |2;.157;.131;For.|
00000ae0  04 88 41 f1 8a 30 2c 32  31 29 bd 31 34 31 3b bd  |..A..0,21).141;.|
00000af0  31 33 32 3b bd 31 35 37  3b bd 31 33 31 3b 45 6e  |132;.157;.131;En|
00000b00  67 20 8a 32 30 2c 32 31  29 bd 31 35 36 3b bd 31  |g .20,21).156;.1|
00000b10  33 32 3b bd 31 35 37 3b  bd 31 33 31 3b 46 6f 72  |32;.157;.131;For|
00000b20  0d 04 92 05 e1 0d 04 9c  0a f4 22 81 2a 2a 2a 0d  |..........".***.|
00000b30  04 a6 0f dd f2 67 65 74  61 6d 6f 75 6e 74 0d 04  |.....getamount..|
00000b40  b0 11 f2 70 72 69 6e 74  61 6d 6f 75 6e 74 73 0d  |...printamounts.|
00000b50  04 ba 1b f1 8a 30 2c 31  34 29 89 28 33 39 29 8a  |.....0,14).(39).|
00000b60  30 2c 31 35 29 89 28 33  39 29 0d 04 c4 3c f1 8a  |0,15).(39)...<..|
00000b70  32 2c 31 34 29 bd 31 34  31 3b 22 86 22 3b 3a e7  |2,14).141;".";:.|
00000b80  43 25 20 f1 22 70 6f 75  6e 64 73 3a 83 22 3b 3a  |C% ."pounds:.";:|
00000b90  8b f1 3b 63 75 72 72 65  6e 63 79 24 28 4e 25 29  |..;currency$(N%)|
00000ba0  3b 22 3a 83 22 3b 0d 04  ce 3c f1 8a 32 2c 31 35  |;":.";...<..2,15|
00000bb0  29 bd 31 34 31 3b 22 86  22 3b 3a e7 43 25 20 f1  |).141;".";:.C% .|
00000bc0  22 70 6f 75 6e 64 73 3a  83 22 3b 3a 8b f1 3b 63  |"pounds:.";:..;c|
00000bd0  75 72 72 65 6e 63 79 24  28 4e 25 29 3b 22 3a 83  |urrency$(N%);":.|
00000be0  22 3b 0d 04 d8 09 41 24  3d 22 22 0d 04 e2 05 f5  |";....A$="".....|
00000bf0  0d 04 ec 07 51 3d a5 0d  04 f6 37 e7 51 3d 31 33  |....Q=....7.Q=13|
00000c00  20 80 41 24 3d 22 22 20  43 25 3d ac 43 25 3a 66  | .A$="" C%=.C%:f|
00000c10  6f 72 65 78 3d ac 66 6f  72 65 78 3a 73 74 65 72  |orex=.forex:ster|
00000c20  6c 69 6e 67 3d ac 73 74  65 72 6c 69 6e 67 0d 05  |ling=.sterling..|
00000c30  00 0f e7 51 3d 31 33 20  e5 8d 54 68 45 0d 05 0a  |...Q=13 ..ThE...|
00000c40  18 e7 51 3c 34 36 20 84  51 3e 35 37 20 ef 37 3a  |..Q<46 .Q>57 .7:|
00000c50  e5 8d 64 6c 44 0d 05 14  10 ef 51 2c 38 2c 31 31  |..dlD.....Q,8,11|
00000c60  2c 51 2c 31 30 0d 05 1e  0c 41 24 3d 41 24 2b bd  |,Q,10....A$=A$+.|
00000c70  51 0d 05 28 09 fd 51 3d  31 33 0d 05 32 10 e7 41  |Q..(..Q=13..2..A|
00000c80  24 3d 22 22 20 e5 8d 74  7a 44 0d 05 3c 14 e7 66  |$="" ..tzD..<..f|
00000c90  6f 72 65 78 20 46 6f 72  3d bb 28 41 24 29 0d 05  |orex For=.(A$)..|
00000ca0  46 17 e7 73 74 65 72 6c  69 6e 67 20 45 6e 67 3d  |F..sterling Eng=|
00000cb0  bb 28 41 24 29 0d 05 50  0b f2 63 68 61 6e 67 65  |.(A$)..P..change|
00000cc0  0d 05 5a 05 e1 0d 05 64  0a f4 22 81 2a 2a 2a 0d  |..Z....d..".***.|
00000cd0  05 6e 0f dd f2 66 6f 72  77 69 6e 64 6f 77 0d 05  |.n...forwindow..|
00000ce0  78 38 f1 8a 32 31 2c 32  30 29 bd 31 33 32 3b bd  |x8..21,20).132;.|
00000cf0  31 35 37 3b bd 31 33 31  3b 46 6f 72 20 8a 32 31  |157;.131;For .21|
00000d00  2c 32 31 29 bd 31 33 32  3b bd 31 35 37 3b bd 31  |,21).132;.157;.1|
00000d10  33 31 3b 46 6f 72 0d 05  82 05 e1 0d 05 8c 0a f4  |31;For..........|
00000d20  22 81 2a 2a 2a 0d 05 96  0c dd f2 63 68 61 6e 67  |".***......chang|
00000d30  65 0d 05 a0 56 e7 76 61  6c 75 65 28 4e 25 29 3d  |e...V.value(N%)=|
00000d40  30 20 db 3a f2 68 65 61  64 69 6e 67 3a f1 22 81  |0 .:.heading:.".|
00000d50  53 6f 72 72 79 2c 20 72  61 74 65 73 20 66 6f 72  |Sorry, rates for|
00000d60  20 22 3b 63 6f 75 6e 74  72 79 24 28 4e 25 29 27  | ";country$(N%)'|
00000d70  22 81 6e 6f 74 20 61 76  61 69 6c 61 62 6c 65 2e  |".not available.|
00000d80  22 3a e5 8d 54 76 46 0d  05 aa 2d e7 43 25 20 46  |":..TvF...-.C% F|
00000d90  6f 72 3d 45 6e 67 2a 76  61 6c 75 65 28 4e 25 29  |or=Eng*value(N%)|
00000da0  20 8b 20 45 6e 67 3d 46  6f 72 2f 76 61 6c 75 65  | . Eng=For/value|
00000db0  28 4e 25 29 0d 05 b4 05  e1 0d 05 be 0a f4 22 81  |(N%)..........".|
00000dc0  2a 2a 2a 0d 05 c8 16 f4  22 83 45 72 72 6f 72 20  |***.....".Error |
00000dd0  73 65 71 75 65 6e 63 65  3a 0d 05 d2 06 eb 37 0d  |sequence:.....7.|
00000de0  05 dc 07 ee 85 87 0d 05  e6 19 e7 9f 3d 32 35 34  |............=254|
00000df0  20 64 61 74 65 24 3d 22  22 3a e5 8d 74 42 40 0d  | date$="":..tB@.|
00000e00  05 f0 0a f2 73 68 65 65  74 0d 05 fa 09 40 25 3d  |....sheet....@%=|
00000e10  31 30 0d 06 04 0c f2 68  65 61 64 69 6e 67 0d 06  |10.....heading..|
00000e20  0e 16 e7 76 61 6c 75 65  28 4e 25 29 3d 30 20 e5  |...value(N%)=0 .|
00000e30  8d 54 76 46 0d 06 18 19  f1 27 22 86 52 65 2d 72  |.TvF.....'".Re-r|
00000e40  75 6e 3f 20 28 59 2f 4e  29 3a 83 22 3b 0d 06 22  |un? (Y/N):.";.."|
00000e50  1d f5 3a 51 25 3d a5 20  80 26 44 46 3a fd 51 25  |..:Q%=. .&DF:.Q%|
00000e60  3d 37 38 20 84 51 25 3d  38 39 0d 06 2c 51 e7 51  |=78 .Q%=89..,Q.Q|
00000e70  25 3d 38 39 20 f1 22 59  65 73 22 3b 3a 63 6f 75  |%=89 ."Yes";:cou|
00000e80  6e 74 72 79 24 28 4e 25  29 3d c0 63 6f 75 6e 74  |ntry$(N%)=.count|
00000e90  72 79 24 28 4e 25 29 2b  22 20 20 20 20 20 20 20  |ry$(N%)+"       |
00000ea0  20 20 20 20 20 20 22 2c  31 33 29 3a e5 8d 74 56  |      ",13):..tV|
00000eb0  40 20 8b f1 22 4e 6f 2e  20 22 27 0d 06 40 09 40  |@ .."No. "'..@.@|
00000ec0  25 3d 31 30 0d 06 4a 05  e0 0d 06 54 0a f4 22 81  |%=10..J....T..".|
00000ed0  2a 2a 2a 0d 06 5e 0b dd  f2 73 74 61 72 74 0d 06  |***..^...start..|
00000ee0  68 0c f2 68 65 61 64 69  6e 67 0d 06 72 28 f1 22  |h..heading..r(."|
00000ef0  86 41 20 73 65 6c 65 63  74 69 6f 6e 20 6f 66 20  |.A selection of |
00000f00  63 6f 75 6e 74 72 69 65  73 20 77 69 6c 6c 20 62  |countries will b|
00000f10  65 22 0d 06 7c 2e f1 22  86 64 69 73 70 6c 61 79  |e"..|..".display|
00000f20  65 64 20 73 68 6f 72 74  6c 79 2e 20 4d 61 6b 65  |ed shortly. Make|
00000f30  20 79 6f 75 72 20 63 68  6f 69 63 65 20 61 73 22  | your choice as"|
00000f40  0d 06 86 2e f1 22 86 72  65 71 75 65 73 74 65 64  |.....".requested|
00000f50  2e 20 54 6f 20 65 6e 74  65 72 20 61 6e 20 61 6d  |. To enter an am|
00000f60  6f 75 6e 74 2c 20 74 79  70 65 20 69 6e 22 0d 06  |ount, type in"..|
00000f70  90 1e f1 22 86 74 68 65  20 73 75 6d 20 61 74 20  |...".the sum at |
00000f80  74 68 65 20 70 72 6f 6d  70 74 2e 22 0d 06 9a 2e  |the prompt."....|
00000f90  f1 27 22 86 50 72 65 73  73 69 6e 67 20 6a 75 73  |.'".Pressing jus|
00000fa0  74 83 52 45 54 55 52 4e  86 77 69 74 68 6f 75 74  |t.RETURN.without|
00000fb0  20 65 6e 74 65 72 69 6e  67 22 0d 06 a4 30 f1 22  | entering"...0."|
00000fc0  86 61 6e 79 20 61 6d 6f  75 6e 74 20 77 69 6c 6c  |.any amount will|
00000fd0  20 74 6f 67 67 6c 65 20  62 65 74 77 65 65 6e 83  | toggle between.|
00000fe0  53 74 65 72 6c 69 6e 67  22 3b 0d 06 ae 2e f1 22  |Sterling";....."|
00000ff0  86 65 6e 74 72 69 65 73  2c 20 61 6e 64 83 46 6f  |.entries, and.Fo|
00001000  72 65 69 67 6e 86 63 75  72 72 65 6e 63 79 20 65  |reign.currency e|
00001010  6e 74 72 69 65 73 2c 22  0d 06 b8 25 f1 22 86 61  |ntries,"...%.".a|
00001020  6c 6c 6f 77 69 6e 67 20  63 6f 6e 76 65 72 73 69  |llowing conversi|
00001030  6f 6e 20 69 6e 20 65 69  74 68 65 72 22 0d 06 c2  |on in either"...|
00001040  12 f1 22 86 64 69 72 65  63 74 69 6f 6e 2e 22 0d  |..".direction.".|
00001050  06 cc 2c f1 27 22 86 54  6f 20 65 6e 64 2c 20 70  |..,.'".To end, p|
00001060  72 65 73 73 83 45 53 43  41 50 45 86 2e 20 20 54  |ress.ESCAPE..  T|
00001070  6f 20 73 65 6c 65 63 74  20 61 22 0d 06 d6 2e f1  |o select a".....|
00001080  22 86 64 69 66 66 65 72  65 6e 74 20 63 6f 75 6e  |".different coun|
00001090  74 72 79 2c 20 72 65 2d  72 75 6e 20 74 68 65 20  |try, re-run the |
000010a0  70 72 6f 67 72 61 6d 2e  22 0d 06 e0 2d f1 27 22  |program."...-.'"|
000010b0  85 54 68 65 20 63 75 72  72 65 6e 74 20 69 6e 66  |.The current inf|
000010c0  6f 72 6d 61 74 69 6f 6e  20 69 73 20 6e 6f 77 20  |ormation is now |
000010d0  62 65 69 6e 67 22 0d 06  ea 20 f1 22 85 64 6f 77  |being"... .".dow|
000010e0  6e 6c 6f 61 64 65 64 20  66 72 6f 6d 83 43 45 45  |nloaded from.CEE|
000010f0  46 41 58 85 2e 22 0d 06  f4 26 f1 27 22 85 50 6c  |FAX.."...&.'".Pl|
00001100  65 61 73 65 20 77 61 69  74 20 61 20 66 65 77 20  |ease wait a few |
00001110  6d 6f 6d 65 6e 74 73 2e  2e 2e 22 3b 0d 06 fe 05  |moments...";....|
00001120  e1 0d 07 08 0a f4 22 81  2a 2a 2a 0d 07 12 0b dd  |......".***.....|
00001130  f2 73 68 65 65 74 0d 07  1c 12 e7 76 61 6c 75 65  |.sheet.....value|
00001140  28 4e 25 29 3d 30 20 e1  0d 07 26 0b ee 85 e5 8d  |(N%)=0 ...&.....|
00001150  64 52 45 0d 07 30 0c f2  68 65 61 64 69 6e 67 0d  |dRE..0..heading.|
00001160  07 3a 26 f1 22 82 42 72  69 74 61 69 6e 3a 22 3b  |.:&.".Britain:";|
00001170  8a 32 32 29 3b 63 6f 75  6e 74 72 79 24 28 4e 25  |.22);country$(N%|
00001180  29 3b 22 3a 22 0d 07 44  22 f1 22 81 53 74 65 72  |);":"..D".".Ster|
00001190  6c 69 6e 67 22 8a 32 32  29 3b 63 75 72 72 65 6e  |ling".22);curren|
000011a0  63 79 24 28 4e 25 29 0d  07 4e 0a f7 20 8d 74 54  |cy$(N%)..N.. .tT|
000011b0  47 0d 07 58 20 f1 22 83  20 20 20 35 30 70 2e 22  |G..X .".   50p."|
000011c0  2c 22 20 22 2c 76 61 6c  75 65 28 4e 25 29 2a 2e  |," ",value(N%)*.|
000011d0  35 0d 07 62 0a f7 20 8d  74 54 47 0d 07 6c 19 49  |5..b.. .tTG..l.I|
000011e0  31 25 3d 30 3a f5 3a f3  49 24 3a 49 31 25 3d 49  |1%=0:.:.I$:I1%=I|
000011f0  31 25 2b 31 0d 07 76 1e  e7 49 31 25 83 32 3d 31  |1%+1..v..I1%.2=1|
00001200  20 f1 22 86 60 20 22 3b  3a 20 8b f1 22 83 60 20  | .".` ";: ..".` |
00001210  22 3b 0d 07 80 1c f1 3b  49 24 2c 22 20 22 2c 76  |";.....;I$," ",v|
00001220  61 6c 75 65 28 4e 25 29  2a bb 28 49 24 29 0d 07  |alue(N%)*.(I$)..|
00001230  8a 0e fd 49 24 3d 22 31  30 30 30 22 0d 07 94 75  |...I$="1000"...u|
00001240  dc 20 22 20 20 20 31 22  2c 22 20 20 20 32 22 2c  |. "   1","   2",|
00001250  22 20 20 20 35 22 2c 22  20 20 31 30 22 2c 22 20  |"   5","  10"," |
00001260  20 32 30 22 2c 22 20 20  32 35 22 2c 22 20 20 35  | 20","  25","  5|
00001270  30 22 2c 22 20 20 37 35  22 2c 22 20 31 30 30 22  |0","  75"," 100"|
00001280  2c 22 20 31 35 30 22 2c  22 20 32 30 30 22 2c 22  |," 150"," 200","|
00001290  20 32 35 30 22 2c 22 20  33 30 30 22 2c 22 20 35  | 250"," 300"," 5|
000012a0  30 30 22 2c 22 20 37 35  30 22 2c 22 31 30 30 30  |00"," 750","1000|
000012b0  22 0d 07 9e 23 f1 22 87  50 72 65 73 73 20 53 50  |"...#.".Press SP|
000012c0  41 43 45 20 74 6f 20 63  6f 6e 74 69 6e 75 65 2e  |ACE to continue.|
000012d0  2e 2e 22 3b 0d 07 a8 0b  f5 3a fd a5 3d 33 32 0d  |..";.....:..=32.|
000012e0  07 b2 05 e1 0d 07 bc 17  f4 22 81 2a 2a 2a 2a 2a  |.........".*****|
000012f0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 0d 07 c6 0d dd  |***********.....|
00001300  a4 42 42 43 64 61 74 65  0d 07 da 09 2a 42 42 43  |.BBCdate....*BBC|
00001310  31 0d 07 e4 0f d1 3d 30  3a f5 fd 91 3e 31 32 30  |1.....=0:...>120|
00001320  0d 07 ee 0f 77 6f 72 6b  25 3d 26 37 30 30 30 0d  |....work%=&7000.|
00001330  07 f8 35 41 25 3d 26 37  41 3a 58 25 3d 77 6f 72  |..5A%=&7A:X%=wor|
00001340  6b 25 83 32 35 36 3a 59  25 3d 77 6f 72 6b 25 81  |k%.256:Y%=work%.|
00001350  32 35 36 3a 3f 77 6f 72  6b 25 3d 31 35 3a d6 26  |256:?work%=15:.&|
00001360  46 46 46 31 0d 08 02 18  42 42 31 24 3d c2 c3 7e  |FFF1....BB1$=..~|
00001370  28 77 6f 72 6b 25 3f 38  29 2c 31 29 0d 08 0c 2e  |(work%?8),1)....|
00001380  42 42 32 24 3d c3 7e 28  77 6f 72 6b 25 3f 39 29  |BB2$=.~(work%?9)|
00001390  3a e7 20 a9 28 42 42 32  24 29 3d 31 20 42 42 32  |:. .(BB2$)=1 BB2|
000013a0  24 3d 22 30 22 2b 42 42  32 24 0d 08 16 2f 42 42  |$="0"+BB2$.../BB|
000013b0  33 24 3d c3 7e 28 77 6f  72 6b 25 3f 31 30 29 3a  |3$=.~(work%?10):|
000013c0  e7 20 a9 28 42 42 33 24  29 3d 31 20 42 42 33 24  |. .(BB3$)=1 BB3$|
000013d0  3d 22 30 22 2b 42 42 33  24 0d 08 20 18 4a 44 3d  |="0"+BB3$.. .JD=|
000013e0  bb 28 42 42 31 24 2b 42  42 32 24 2b 42 42 33 24  |.(BB1$+BB2$+BB3$|
000013f0  29 0d 08 2a 1f 59 31 3d  28 31 30 30 2a 28 4a 44  |)..*.Y1=(100*(JD|
00001400  2d 31 35 30 37 38 2e 32  29 29 81 33 36 35 32 35  |-15078.2)).36525|
00001410  0d 08 34 2b 4d 31 3d a8  28 28 4a 44 2d 31 34 39  |..4+M1=.((JD-149|
00001420  35 36 2e 31 2d a8 28 33  36 35 2e 32 35 2a 59 31  |56.1-.(365.25*Y1|
00001430  29 29 2f 33 30 2e 36 30  30 31 29 0d 08 3e 3c 44  |))/30.6001)..><D|
00001440  25 3d 4a 44 2d 31 34 39  35 36 2d a8 28 33 36 35  |%=JD-14956-.(365|
00001450  2e 32 35 2a 59 31 29 2d  a8 28 33 30 2e 36 2a 4d  |.25*Y1)-.(30.6*M|
00001460  31 29 3a 4b 3d a8 28 30  2e 37 2b 28 31 2f 28 31  |1):K=.(0.7+(1/(1|
00001470  37 2d 4d 31 29 29 29 0d  08 48 10 4d 25 3d 4d 31  |7-M1)))..H.M%=M1|
00001480  2d 31 2d 31 32 2a 4b 0d  08 52 0b 5a 25 3d 59 31  |-1-12*K..R.Z%=Y1|
00001490  2b 4b 0d 08 5c 31 57 25  3d 28 4a 44 2b 33 29 83  |+K..\1W%=(JD+3).|
000014a0  37 3a f7 8d 44 66 48 3a  e3 64 61 79 3d 30 b8 57  |7:..DfH:.day=0.W|
000014b0  25 3a f3 44 24 3a ed 3a  44 24 3d 44 24 2b 22 64  |%:.D$:.:D$=D$+"d|
000014c0  61 79 22 0d 08 66 29 dc  20 53 75 6e 2c 4d 6f 6e  |ay"..f). Sun,Mon|
000014d0  2c 54 75 65 73 2c 57 65  64 6e 65 73 2c 54 68 75  |,Tues,Wednes,Thu|
000014e0  72 73 2c 46 72 69 2c 53  61 74 75 72 0d 08 70 1d  |rs,Fri,Satur..p.|
000014f0  f7 8d 44 7a 48 3a e3 64  61 79 3d 31 b8 4d 25 3a  |..DzH:.day=1.M%:|
00001500  f3 6d 6f 6e 74 68 24 3a  ed 0d 08 7a 5b dc 20 4a  |.month$:...z[. J|
00001510  61 6e 75 61 72 79 2c 46  65 62 72 75 61 72 79 2c  |anuary,February,|
00001520  4d 61 72 63 68 2c 41 70  72 69 6c 2c 4d 61 79 2c  |March,April,May,|
00001530  4a 75 6e 65 2c 4a 75 6c  79 2c 41 75 67 75 73 74  |June,July,August|
00001540  2c 53 65 70 74 65 6d 62  65 72 2c 4f 63 74 6f 62  |,September,Octob|
00001550  65 72 2c 4e 6f 76 65 6d  62 65 72 2c 44 65 63 65  |er,November,Dece|
00001560  6d 62 65 72 0d 08 84 54  e7 44 25 3d 31 84 44 25  |mber...T.D%=1.D%|
00001570  3d 32 31 84 44 25 3d 33  31 20 74 68 24 3d 22 73  |=21.D%=31 th$="s|
00001580  74 22 20 8b e7 44 25 3d  32 84 44 25 3d 32 32 20  |t" ..D%=2.D%=22 |
00001590  74 68 24 3d 22 6e 64 22  20 8b e7 44 25 3d 33 84  |th$="nd" ..D%=3.|
000015a0  44 25 3d 32 33 20 74 68  24 3d 22 72 64 22 20 8b  |D%=23 th$="rd" .|
000015b0  74 68 24 3d 22 74 68 22  0d 08 8e 2d 3d 44 24 2b  |th$="th"...-=D$+|
000015c0  22 20 20 22 2b c3 28 44  25 29 2b 74 68 24 2b 22  |"  "+.(D%)+th$+"|
000015d0  20 22 2b 6d 6f 6e 74 68  24 2b 22 20 31 39 22 2b  | "+month$+" 19"+|
000015e0  c3 28 5a 25 29 0d 08 98  17 dd a4 61 64 61 70 74  |.(Z%)......adapt|
000015f0  65 72 3a de 20 77 6f 72  6b 25 20 32 0d 08 a2 4a  |er:. work% 2...J|
00001600  41 25 3d 26 37 41 3a 58  25 3d 77 6f 72 6b 25 83  |A%=&7A:X%=work%.|
00001610  32 35 36 3a 59 25 3d 77  6f 72 6b 25 81 32 35 36  |256:Y%=work%.256|
00001620  3a 3f 77 6f 72 6b 25 3d  31 37 3a d6 26 46 46 46  |:?work%=17:.&FFF|
00001630  31 3a e7 28 77 6f 72 6b  25 3f 31 29 3d 30 20 3d  |1:.(work%?1)=0 =|
00001640  b9 20 8b 20 3d a3 0d ff                           |. . =...|
00001648

24-06-88/FOREX.m0

24-06-88/FOREX.m1

24-06-88/FOREX.m2

24-06-88/FOREX.m4

24-06-88/FOREX.m5

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .