P709CEEFAX 709 Thu 220M!y 2p926/17
|B2202208|a1uFOREX|i24BBBC332k|m402AC|p
—|— &7400÷e÷Y—B"÷??A%<160 ?A%=32 —3?A%=(
?A%)—(&7F÷e÷Y—L÷]÷E÷e÷Y—V÷d÷;Z%=1—|—13÷e
÷Y—|—÷lA%=&7140+(40*Z%)÷e÷Y—j÷tT%=?(A%+4
0):?(A%+40)=&0D÷e÷Y—t÷sS%=A%:÷M:S%=S
÷US%<>32÷e÷Y÷.&country$XZ%+((SP%-1)*13))
=—h$S%,13)÷e÷Y÷8&valuehZ%+((SP%-1 *13)9=
—cX$(S%+12))÷e÷Y÷B÷vS%=A%+28:÷E:S%=S
÷US%<>32÷e÷Y÷L"currency$XZ SP
)=VS%÷e÷Y÷V÷g?(A%+40)=T%÷e÷Z÷|—÷]÷%÷e÷Z÷
j÷]÷9÷e÷Z÷t÷b÷L"—)***÷e÷Z&÷j÷5÷Joscli(ca
ll$)÷e÷Z0÷oX%=W —+256:Y%=W —)256÷e÷Z:÷d$
W=call$÷e÷ZD÷b÷.&FFF7÷e÷ZN÷]÷9÷e÷ZX÷b÷L"
—)***÷e÷Zb÷k÷5—L3electcountry÷e÷Zl÷a*L/F
F÷e÷Zv÷b÷Jheading÷e÷Z—(÷]÷)÷e÷Z—1÷2÷;A%=
1—z—13÷e÷Z—<÷h÷?A%<10 ÷I" ";÷e÷Z—F=÷%! 0
1—)";A%;"—+";country$(A%);"—)!;A
";country$(A%+13)÷e÷Z—P÷]÷E÷e÷Z—ZW÷I'—e1
32;—e157;c—+Type0either1the mum"er
me of"'—e132;—e157;"—+the required count
ry:"÷e÷Z—b£÷I'—e132;—e157;"—/Please sele
ct:—.";÷e÷Z—n÷c*FX11,0÷e÷Z÷(÷a÷ Q3N$÷e÷Z
÷2÷k÷?N$=ac ÷G7:÷=—5DvB÷e÷Z÷<÷wN%=—c|c 0
P709CEEFAX 709 Thu 220May 2p:16/51
|B2203208|a15FOREX|i24BBBC332k|m40563|p(
N$):÷?N%>0 —(N%<272÷=—5Dpb÷e÷Z÷b÷n6W=NR:
?W=(?W —(&FF)÷e÷Z÷P÷j÷?—Q(N$)=1 ÷=—5UtC÷
e÷[÷Z$A%=p:÷M:A%=A%+1:÷??(W+A%)=13 ÷=—5T
|—C÷e÷[÷d=÷??(W+A%)=32 —(A%<(—Q(N$5-2) ?
(W+A%+1)=?(W+A%+1)—(&FF:A%=A%+2÷e÷[÷n÷p?
(W+A%)=?(W+A%)2—,&20÷e÷[ ÷g÷U?(W+A%)=13÷
e÷[*÷a $= W÷e÷[4÷|—N%=0÷e÷[>÷ ÷M÷e÷[ ÷cN
%=N%+1÷e÷[R$÷UN$=—hcountry$(N%),—Q(N$))0
—, N%=27÷e÷[\÷k÷?N%=272÷G7:÷=—5DvB÷e÷[f#
Y%=—Q(currency$(N%))+1:÷E:Y%=Y%-1:÷U—icu
rrency$(N%),Y%,1)<>" b:currency$(N%)=—hc
urrency$(N%),Y%)÷e÷[p÷#=N%÷e÷[z÷b÷L"—)**
*÷e÷[—,÷e÷5÷Jheading÷e÷[—6÷]÷3÷e÷[—@>÷I—
20,24)—e148;—e157;—e134;—1(15);"(c)n.*.B
rayshaw.01985";—20,0);÷e÷[—J9÷I'—c147;c0
7|—|—p #p p # #";—e145;"#ppppppppppppp
ppppp0"÷e÷[—TN÷I—e148;—e157;—e147;"0=,j0
55 j,! 91";—e145;"j";—e135;bForeign Cuqr
ency";—e1::;"5"÷e÷[—^8÷I—e147;" 05 |—0
a 2|—!—J —J";—e145;c—J|—|—|—|—|—|—|—|—|—
|—|—|—|—|—|—|—|—|—!"÷e÷[—h÷]÷9÷e÷[—r÷a÷L
"—)***÷e÷[÷,÷l÷5÷Jcalculate(no%)÷e÷[|c10
P709CFEFAX 709 Tut 220May 2p:30/13
|B2204208|a15FOREX|i24BBBC332k|m40826|p÷
6÷d÷Jheading÷e÷[÷@$÷I—e141;—e134;date$'—
f141;—e134;date$÷e÷[÷J%÷)—e1:1;S—*Counts
y:—+ ";countqyV(no%)÷e÷[÷T IC
untry:—+ ";countryV(no%)÷e÷\÷^&÷I—e1:1;!
—*Currency:—+";currency$(no%)÷e÷\÷h&÷I—e
141;"—*Currency:—+";currency$(no%)÷e÷\÷r
2÷I—e141;"—*Current rate:—+";value(no%);
" to1the |—"÷e÷\$2÷I—e141;"—*Current rat
e:—+";value(no%);" to rte |—"÷e÷\.÷t÷I—2
1,18)"—)Sterling value"÷e÷\8<K%=—Q(count
ry$(no%)):÷M:K%=K%-1:÷U—icountry$(no%),K
%,1)<>" "÷e÷\B$country$(no%)=—hcountry$(
no%),K%)÷e÷\L£÷I—222,18);country$(no%);"
value"÷e÷\V÷]÷9÷e÷\|—÷b÷L"—)***÷e÷\j÷j÷
5÷Jprintamounts÷e÷\t÷e@%=&2010A÷e÷\|÷3÷I
—1|,;0)—1\16)—24,31)—1\16)—1;z,;0)—1\1{5
—224,21)—1(16)÷e÷\—0A÷I—20,20)—e141;—e13
2;—e157;—e131;Eng —110,20)—e156;—e132;—e
157;—e131;For÷e÷\—:A÷I—20,21)—e141;—e132
;—c157;—e131;Eng —220,21)—e156;—c132;—e1
57;—e131;For÷e÷\—D÷]÷9÷e÷\—N÷b÷LS—)***÷e
÷\—X÷g÷5÷Jgetamount÷e÷\—b÷i÷Jprint!m|c 0
P709CEEFAX 709 Thu 220May 2p:24/11
|B2205208|a15FOREX|i24BBBC332k|m40AFA|po
vnts÷e÷\—l÷s÷I—20,14)—1(39)—20,15)—1(39)
÷e÷\—v<÷I—22,14)—e141;"—.";:÷?C%2÷Icpoun
ds:—+";:—3÷I;currency$(N%);b:—+";÷e÷\÷0<
÷I—22,15)—e141;"—.";:÷?C72÷Icpounds:—+";
:—3÷I;currency$(N%);":—+";÷e÷\÷:÷aA$=""÷
e÷\÷D÷]÷M÷e÷\÷N÷#Q=—M÷e÷]÷X7÷?Q=13 —(A$=
"" C%=—TC%:forex=—Tforex:steqling=—Tstaq
ling÷e÷]÷b÷g÷?Q=13 ÷=—5RtE÷e÷]÷l÷p÷?Q<46
p—,Q>572÷G7:÷=—5dvD÷e÷]÷v÷h÷GQ,8,Q1,Q,10
÷e÷](÷dA$=A$+—eQ÷e÷]2÷a÷UQ=13÷e÷]<÷h÷?A$
="S1÷=—5hDD÷e÷]F÷l÷?forex For=—c(AV)÷e÷]
P÷o÷?sterling0Eng=—c(A$)÷e÷]Z÷c÷Jchange÷
e÷]d÷]÷9÷e÷]n÷b÷L"—)***÷e÷]x÷g÷5÷Jforwin
vow÷e÷]—*8÷I—221,10)—e132;—e157;—c131;Fo
r0—221,21)—e132;—e157;—c131;For÷e÷]—4÷]÷
9÷e÷]—>÷b÷L"—)***÷e÷]—H÷d÷5÷Jchange÷e÷]—
RV÷?value(N%)=0 ÷3:÷Jteading:÷I"—)Sorry,
rates for ";country$(N%)'"—)not0availab
le.":÷=—5D@F÷e÷]—\-÷?C%2For=Eng*valuehN%
)p—30Fng=For/value(N%)÷e÷]—f÷]÷9÷e÷]—p÷b
÷L"—)***÷e÷]÷*÷n÷L"—+Error sequence:÷e÷]
÷4÷^÷C7÷e÷]÷>÷#÷F—-—/÷e÷]÷H÷q÷?—G=25|c
P709CFFFAX 709 Thu 220May 2p:15/38
|B2206208|a15FOREX|i24BBBC332k|m40D9F|p4
date$="b:÷=—5tL@÷e÷]÷R÷b÷Jsheet÷e÷^÷\÷a
$%=10÷e÷^÷f÷d÷Jheading÷e÷^÷p÷n÷?value(N%
)=0 ÷=—5D@F÷e÷^"÷q÷I'"—.Re-run? (Y/N):—+
";÷e÷^,÷u÷M:Q%=—M —(&FF:÷UQ%=78 —,Q%=89÷
e÷^6Q÷?Q%=89 ÷)"Yes";:countryV(N%)=—hcou
ntqy$(N%)+" ",13):÷=—5t|—@ —
3÷ SNo. "'÷e÷^d÷#*F.÷e÷^*÷a— = 0÷e÷^T÷]÷
8÷e÷^^÷b÷L"—)***÷e÷^h÷c÷5÷Jstart÷e÷^r÷d÷
Jheading÷e÷^||(÷I"—.A selection0of count
ties will "e!÷e÷^—..÷%!—.$isplayed shoqt
ly.0Make your choice as"÷e÷^—8.÷I"—.requ
ested. To0enter an !mount, type in"÷e÷^—
B÷v÷Ic—.the sum at the prompt."÷e÷^—L.÷I
'"—.Pressing just—+RETURN—.without0enter
ing"÷e÷^—V0÷Ic—.any0!mount will
etween—+Steqling";÷e÷^—|—.÷)"—.entries,0
and—+Foreign—.currency0entries,"÷e÷^—j%÷
I"—.allowing conversion0in0either"÷e÷^—t
÷j÷I"—.direction."÷e÷^÷.,÷I'"—.To0end, p
tess—+ESCAPE—.. To0select0a"÷e÷^÷8.÷)c—
.different country, re-run the pqogram.!
÷e÷^÷B-÷I'"—-The current0information|c 0
P709CFFFAX 709 Tut 220May 2p:25/37
|B2207208|a15FOREX|i24BBBC332k|m4107&|p
is now being"÷e÷^÷L ÷I"—-downloaded from
—+CFEFAX—-."÷e÷^÷V&÷I'"—-Ple!se wait0a f
ew moments...";÷e÷#÷|—÷]÷9÷e÷#÷j÷b÷L"—)*
**÷e÷#÷t÷e÷5—LBBCdate÷e÷#&!÷L"—)Take dat
f from0CFgFAX TSDP÷e÷#0÷o÷Lc—)&2cALCULAT
E DATE÷e÷#:÷i÷??&FC10=00=""÷e÷#D÷a*CBC1÷
e÷#N÷k÷;felay=1—|—200p:÷E÷e÷#XKJD=—c(—k|
÷((((?&E68p—(1&F5.&1)*&10000)+(((?&E695.
&11)*&100)+((?&E6A5-&11)))÷e÷#b÷wY1=\100
*XJD-15078.2))—)36525÷e÷#l+M1=—P((JD-149
56.1-—P(365.25*Y1))/30.6001)÷e÷#v<D%=JD-
14956-—P(365.55*Y19.—P(30^65N1):K=—P(0.7
+(1/(17-M1)))÷e÷#—(÷tM%=M1.1-11*K÷e÷#—2÷
cZ%=Y1+K÷e÷#—<1W%=(JD+3)—+7:÷O—5t^G:÷;da
y=0—|—'%:÷KDT:÷E:D$=f$+Shay"÷e÷#—F)÷40Su
n,Mon,Tues,Wednes,Thurs,Fri,Satuq÷e÷#—P÷
u÷O—5tuG:÷;vay=1—|—M%:÷Kmonthd:÷a÷e÷#—Z[
÷42.anuary,February,Natch,April,May,-uni
,.sly,August,Septem"er,Octo"er,Novem"er,
Decem"er÷e÷#—dX÷?D%=1—,B%=21—,B%=312thV=
"st." —3÷?D%=2—,B%=2;2thV=Snv." —3÷?D%=3
—,D%=23 th$="rd." —3th$="th."÷e÷#—n-|c 0
P709CFFFAX 709 Tut 220May 2p:10/15
|B2208208|a15FOREX|i24BBBC332k|m:136%|p=
D$+" "+—k(D%)+th$+" "+month$+"019"+—kXZ
&)÷e÷#÷(÷b÷L"—)***÷e÷#÷2÷c÷5÷Jsheet÷e÷#÷
<÷j÷?value(N%)=0 ÷9÷e÷#÷F÷c÷F—-÷=—5d\E÷e
÷#÷P÷d÷Jheading÷e÷|—÷Z&÷I"—*Critain:";—2
22);country$(N%);b:"÷e÷|—÷d"÷I!—)Staqlin
g"—222);currency$(N%)÷e÷|—÷n÷b÷O —5D\H÷e
÷|— ÷I"—+ 050p."," ",value(N%)*.5÷e÷|—
*÷b÷O —5D\H÷e÷|—4÷qI1%=p:÷M:÷KIT:I1%=I1%
+1÷e÷|—>÷v÷?I1%—+2=1 ÷I"—.|— ";: —3÷I"—+
|— ";÷e÷|—H÷t÷I;I$," ",value(N%)*—c(IV)÷
e÷|—R÷f÷UI$="1000"÷e÷|—\u÷4 " 01"," 2
c c1p0 c,cp010c,cp pc, p23:c,cp0:pc,cpp
75",c0100c,"01:0c,c0200c,c 3:0c,S0300c,S
0500"," 750","1000"÷e÷|—f£÷I"—/Press SPA
CE to continue...";÷e÷|—p÷c÷M:÷U—M=31÷e÷
|—z÷]÷9÷e÷W|c 0
P709CFEFAX 709 Tut 220M!y C2X:34/17
|B2201208|a15FOREX|i24BBBC332k|m40000|p÷
f÷X÷b$÷L"—)*****************************
÷e÷X÷l$÷L"—)*—+FOREX0- Foreign 2cur—ency
—)*÷e÷X÷v$÷L"—)*—+conversion program. V1
bpp—)*÷e÷X)$÷L"—)*—-by—.J.J.Brayshaw—*Oc
t. 1985—)*÷e÷X2$÷L"—)*******************
**********÷e÷Xd÷c÷F—-÷=—5d\E÷e÷Xn÷b÷Jsta
rt÷e÷Xx÷b÷Jsetup÷e÷X—*÷j%a28$=—LCB£date÷
e÷X—4O÷?date$="" ÷Jheading:÷)"—+Sorry,pa
)apter not on."''"—)hrogram terminated."
z÷=—3D@F÷e÷X—>÷e÷Jgetpages÷e÷X—H÷c÷F—-÷=
—5b\E÷e÷X—R'C%=—a:Eng=p:For=p:forex=—C:s
titling=—a÷e÷X—\÷v÷Jcalculate(—L3electco
untry)÷e÷X—f÷,÷L÷e÷X—p÷b÷Jgetamount÷*÷X÷
*÷^÷U—K÷e÷X÷4÷]÷8÷e÷X÷>÷b÷L"—)***÷e÷X÷H÷
c÷5÷J3etup÷e÷X÷R*÷6 country$(27),currenc
y$(26),value(26)÷e÷Y÷\÷b÷6 W 15÷e÷Y÷f÷c*
tiles.÷e÷Y÷p÷|—*)/N÷e÷Y"÷]÷9÷e÷Y,÷a÷,!—)
***÷e÷Y6÷f÷5÷Jgetpages÷e÷Y@÷e÷ su"
2÷e÷YJ ÷Joscli("PAGE169000"+—k(su"%))÷e÷
YT÷j*6RANdFFI47000÷e÷Y^÷7÷Jconvert(su"%)
÷e÷Yh÷]÷E÷e÷Yr÷]÷9÷e÷Y||÷b÷L"—)***÷e÷Y—.
÷j÷5÷Jconvert(7P%)÷e÷v—8÷m÷;A%=&7000|c 0
P709CFFFAX 709 Tut1220May0C2p:14/18
|B2205208|a15FOREX|i24BBBC332k|m40AFA|po
unts÷e÷\—l÷s÷I—20,1:)—1(39)—20,1Z)—1(39)
÷e÷\—v<÷I—22,14)—e141;"—.";:÷?C&2÷)cpoun
ds:—+";:—3÷I;currency$(N%);b:—+";÷e÷\÷0<
÷I—22,15)—e141;b—.";:÷?c%2÷ISpounds:—+";
:—3÷I;currency$(N%);b:—+";÷e÷\÷:÷aA$=""÷
e÷\÷D÷]÷M÷e÷\÷N÷#Q=—M÷e÷]÷X7÷?Q=)3 —(A$=
"" C%=—TC%:forex=—Tforex:steqling=—Tstaq
ling÷e÷]÷b÷g÷?Q=13 ÷=—5RtE÷e÷]÷l÷p÷?Q<46
p—,Q>572÷G7z÷=—5dvD÷e÷]÷v÷h÷GQ,8,11,Q,10
÷e÷](÷dA$=A$+—eQ÷e÷]2÷a÷UQ=13÷e÷]<÷h÷?A$
=""1÷=—5hDD÷e÷]F÷l÷?forex For=—c(A$)÷e÷]
P÷o÷?sterling0Eng=—c(A$)÷e÷]Z÷c÷Jchange÷
e÷]d÷]÷9÷e÷]n÷b÷L"—)***÷e÷]x÷g÷5÷*forwin
vow÷e÷]—*8÷I—221,20)—e132;—e157;—e131;Fo
r —221,21)—e132;—e157;—e131;For÷e÷]—4÷]÷
9÷e÷]—>÷b÷L"—)***÷e÷]—H÷d÷5÷Jchange÷e÷]—
RV÷?value(N%)=0 ÷3:÷Jteading:÷I"—)Sorry,
rates for ";country$(N%)'"—)not0availab
le.":÷=—5D@F÷e÷]—\-÷?C%2For=Eng*value(N%
) —30Eng=For/value(N%)÷e÷]—f÷]÷9÷e÷]—p÷b
÷L"—)***÷e÷]÷*÷n÷L"—+Error sequence:÷e÷]
÷4÷^÷C7÷e÷]÷>÷#÷F—-—/÷e÷]÷H÷q÷?—G=25|c
P709CFFFAX 709 Tut N 2p:11/31
|B2206208|a15FOREX|i24BBBC332k|m40D9F|p4
2date$=bb:÷=—5tL@÷e÷]÷R÷b÷Jsheet÷e÷^÷\÷a
$%=10÷e÷^÷f÷d÷Jheading÷e÷^÷p÷n÷?value(N%
)=01÷=—5D@F÷e÷^"÷q÷I'"—.Re-run? (Y/N):—+
";÷e÷^,÷u÷M:Q%=—M —h&FF:÷UQ%=78 —,Q%=89÷
e÷^6Q÷?Q%=89 ÷I"Yes";:country$(N%)=—hcou
ntqy$(N%)+" ",13):÷=—5t|—@ —
3÷I"No. "'÷e÷^ ÷#*D.÷e÷^J÷a—%=10÷e÷^T÷]÷
8÷e÷^^÷b÷L"—)***÷e÷^h÷c÷5÷Jstart÷e÷^r÷d÷
Jheading÷e÷^||(÷Ic—.A selection0of count
ties will "e"÷e÷^—..÷I"—.$ispl!yid shoqt
ly.0Make0your choice as"÷e÷^—8.÷)S—.requ
ested. To0enter an !mount, type in"÷e÷^—
B÷v÷I"—.the sum0at the prompt."÷e÷^—L.÷I
'"—.Pressing just—+RETURN—.without0enter
ing"÷e÷^—V0÷I"—.any0!mount will toggle
etween—+Starling";÷e÷^—|—.÷I"—.entries,0
and—+Foreign—.currency0fntries,"÷e÷^—j%÷
I"—.allowing conveqsion0in0eithbq!÷e÷^—t
÷j÷I"—.direction."÷e÷^÷.,÷I'"—.To0end, p
tess—+ESCAPE—.. To0select0a"÷e÷^÷8.÷%S—
.different0country, re-run the pqo7r!m.S
÷e÷^÷B-÷I'"—-The0cuqrent0information|c
P709CFFFAX 709 pRut1220Nay0C;p:14/08
|B2204208|a15FOREX|i24BBBC332k|m40826|p÷
6÷d÷J7jading÷e÷[÷b$÷I—e141;—e134;da?e$'—
?141;—e134;date$÷e÷[÷J%÷I—e141;=—*Co1nus
y:—+ ";count1y$(no%)÷e÷[÷T%÷I—e141;"—*Co
untry:—+ ";country$(no%)÷e÷\÷^&÷I—e141;"
—*Currency:—+";currency$(no%)÷e÷\÷h&÷I—e
141;S—*Currency:—+";curZency hmo%)÷e÷\÷r
2÷I—e141;"—*Current rate:—+";value(no%);
"1to1the |—"÷e÷\$2÷I—e141;"—*Current rat
)=—+";value(no%);" to the |—"÷e÷\.÷t÷I—2
1,18)"—)Sterling value"÷e÷\8<K%=—Q(count
ry$(no%)):÷E:=%=K%-1:÷U—icou)try$(no%),E
%,1)<>" "÷e÷\B$country$(no%)=—hcountryL(
no%),K%)÷e÷\L£÷I—222,18);country$(no*);F
2value"÷e÷\V÷]÷n÷e÷\|—÷b÷LI—)***÷e÷\j÷j÷
5÷Jprintamounts÷e÷\t÷e@%=&2010A÷e÷\|÷3÷I
—),;0%;1—1")—24,;1y$1A%))"2)z,; )11;1:+
—224,21)—1(1%)÷e÷\—0A÷I—20,20)—e1W1;—e13
2;—e157;—"131;Eng —220,20)—e156;—e132;—e
1:7;—e131;For÷e÷\—:A÷I—20,21)—e141;—e132
;—:157;—e131;Eng —220,21)—e156;—e132;—e1
57;—e131;For÷e÷\—D÷]÷9÷e÷\—N÷b÷LR—)***÷e
÷\—X÷g÷5÷Jgetamount÷e÷\—b÷i÷Jpqintam|c 0
P709CFgFAX 709 Tlu1220Nay 2p:20/40
|B2203208|a15FOREX|i24BBBC332k|m40563|p(
N$):÷?N%>0 —(N%<272÷=—5DpC÷e÷Z÷F÷n$W=Nd:
?W=(?W —(&FF)÷e÷Z÷P÷j÷?—Q(N$)=1 ÷=—5UtC÷
e÷[÷Z$A%=p:÷M:A%=A%+1:÷??(W+A%)=13 ÷=—5T
|—C÷e÷[÷d=÷??(W+A%)=32 —(A%<(—Q(N$5-2) ?
(W+A%+1)=?(W+A%+1)—h&FF:A%=A%+2÷e÷[÷n÷p?
(W+A%)=?(W+A%) —,&20÷e÷[ ÷g÷U?(W+A%)=13÷
e÷[*÷aN$=$W÷e÷[4÷|—N%=0÷e÷[>÷]÷M÷e÷[H÷cN
%=N%+1÷e÷[R$÷UN$=—hcountry$(N%),—Q(N$))0
—,2N%=27÷e÷[\÷k÷?N%=;72÷G7:÷=—5DvB÷e÷[f#
Y%=—Q(curqency$(N%))+1:÷E:Y%=Y U
rrency$(N%),Y%,1)<>" ":currency$(N%)=—hc
uqrency$(N%),Y [#N[L
*÷e÷[—,÷e÷5÷Jheading÷e÷[—6÷]÷3÷e÷[—@>÷I—
20,24)—e148;—e157;—e134;—1(15);"(c)*.*.B
rayshaw.01985";—20,0);÷e÷[—J9÷I'—e147;"0
7|—|—p #ppp # #";—e1:5;"#ppppppppppppp
ppppp0"÷e÷[—TN÷I—e148;—c157;—e147;"0=,j0
55 j,! 91";—e145;"j";—e135;"Foreign Curq
ency";—e1:5;"5"÷e÷[—^8÷%—e147;S 05 |—
a02|—q—J —*!;—e1::;c—J|—|—|—|—|—|—|—|—|—
|—|— [][F
"—)***÷e÷[÷,÷l÷5÷Jcalculate(no%)÷e÷[|c 0
P709CFgFAX 709 pUtt1220Nay1 ;p:12/17
|B2205208|a15FOREX|i24BBBC332k|m40AFA|po
vnts÷e÷\—l÷s÷I—20,14)—1(39)—20,15)—1(39)
÷e÷\—v<÷I—22,14)—e1:1;"—.";:÷?C72÷)cpoun
ds:—+";:—3÷I;curqency$(N%);R:—+";÷e÷\÷0<
÷I—22,1:)—e141;c—.";:÷?c72÷ISpounds:—+";
:—3÷I;currency$(N%);":—+";÷e÷\÷:÷aA$=""÷
e÷\÷D÷]÷M÷e÷\÷N÷#Q=—M÷e÷]÷X7÷?Q=13 —(A$=
"" C%=—TC%:forex=—Tforex:sterling=—Tster
ling÷e÷]÷b÷g÷?Q=13 ÷=—5RtE÷e÷]÷l÷p÷?Q<46
—,Q>572÷G7:÷=—5dvD÷e÷]÷v÷h÷GQ,8,11,Q,10
÷e÷](÷dA$=A$+—eQ÷e÷]2÷a÷UQ=13÷e÷]<÷h÷?A$
=R"1÷=—5hDD÷e÷]F÷l÷?forex For=—c(A$)÷e÷]
P÷o÷?sterling0Fng=—c(A$)÷e÷]Z÷c÷Jchange÷
e÷]d÷]÷9÷e÷]n÷b÷L"—)***÷e÷]x÷g÷5÷Jfoqwin
dow÷e÷]—*8÷I—221,20)—e132;—e157;—e131;Fo
r —221,21)—e132;—e157;—e131;For÷e÷]—4÷]÷
9÷e÷]—>÷b÷L"—)***÷e÷]—H÷d÷5÷Jchange÷e÷]—
RV÷?value(N%)=0 ÷3:÷Jteading:÷IS—)Sorry,
rates for ";country$(N%)'"—)not0availab
le.":÷=—5D@F÷e÷]—\-÷?C&2For=Eng*value(N%
)p—30Fng=For/value(N%)÷e÷]—f÷]÷9÷e÷]—p÷b
÷L"—)***÷e÷]÷*÷n÷L"—+Error sequence:÷e÷]
÷4÷^÷C7÷e÷]÷>÷#÷F—-—/÷e÷]÷H÷q÷?—G=25|c 0
P709CFgFAX 709 Tut 220May0 2p:27/:2
|B2208208|a15FOREX|i24BBBC332k|m4136%|p=
F$+" "+—k(D%)+th$+" "+month$+"019"+—kTZ
%)÷e÷#÷(÷b÷L"—)***÷e÷#÷2÷c÷5÷Jude"t÷e÷#÷
<÷j÷?value(N%)=0 ÷9÷e÷#÷F÷c÷F—-÷=—5d\E÷e
÷#÷i÷d÷Jheading÷e÷|—÷Z&÷)S—*Critain:";—2
22);country$(N%);b:"÷e÷|—÷d"÷)!—)Staqlin
g"—222);currency$(N%)÷e÷|—÷n÷b÷O —5D\H÷e
÷|— ÷ "—+ 0 0p.", ",value(N%)*.5÷e÷|—
*÷b÷O —5D\H÷e÷|—4÷qI1%=p:÷M:÷KIT:I1%=I1%
+1÷e÷|—>÷v÷?I1%—+2=1 ÷)"—.|— ";: —3÷I"—+
|— ";÷e÷|—H÷t÷I;I$," ",value(N%)*—c(I$)÷
e÷|—R÷f÷UI$="1000"÷e÷|—\u÷4 " 01"," 1
7:c,S010pc,S01:pc,S1;00c,c13:Xc,S030pc,S
0500",c 750","1000"÷e÷|—f£÷I"—/dress SPA
CE to continue...";÷e÷|—p÷c÷M:÷U—M=31÷e÷
|—z÷]÷9÷e÷W|c
P709CFFFAX 709 2Tut 220Nay1 2p:31/11
|B2208208|a15FOREX|i24BBBC332k|m4136E|p=
F$+" "+—k(D%)+th$+" "+month%+"019"+—k=Z
&)÷e÷#÷(÷b÷L"—)***÷e÷#÷2÷c÷5÷Jsheet÷e÷#÷
<÷j÷?value(N%)=0 ÷9÷e÷#÷F÷c÷F—-÷=—5d\E÷e
÷#÷P÷d÷Jheading÷e÷|—÷Z&÷I"—*Critain:";—2
22);country$(N%);b:"÷e÷|—÷d"÷I"—)Staqlin
g"—222);cureency$(N%)÷e÷|—÷n÷b÷O —*DUH÷=
÷|— 2÷I"—+ 050p.",v ",value(N%)*.5÷e÷|—
*÷b÷O —5D\H÷e÷|—4÷qI1%=X:÷M:÷KIT:I1%=11%
+1÷e÷|—>÷v÷?I1%—+2=1 ÷I"—.|— ";: —3÷)S—+
|— ";÷e÷|—H÷t÷I;I$," ",value(N%)*—c(I$)÷
e÷|—R÷f÷UI$="1000"÷e÷|—\uW4 " 1"," 2
,c ÷
7)c,c0100c,k01:0c,c1200c,c 3y0c,S0300c,S
0500Z," 750","1000"÷e÷|—f£÷Ic—/Press SPA
CE to continue...";÷e÷|—p÷c÷M:÷U—M=3)÷e÷
|—z÷]÷9÷e÷W|c
P709CGgGAXp709 pvtz1220Nay0 ;p:21/38
|B2208208|a1:FOREX|i24BBBC332k|m4136%|p=
F$+" "+—k(D%)+th$+A "1month%+"0 93+—k=Z
?)÷e÷#÷(÷b÷L"—)***Ee÷#÷2÷c÷5÷Jsheet÷e÷#÷
<÷j÷?value(N%)=0 ÷9÷e÷#÷F÷c÷F—-÷=—5d\E÷e
÷#÷?÷d÷J4ea=ing÷e÷|—÷Z&÷I=—*Britain:";—2
22);countey$(N%);b:"÷e÷|—÷d"÷I"—)St*rlin
g"—222);cu÷eency$vN%)÷e÷|—÷n÷b÷O —5D3)÷e
÷|—1 ÷%"—+ 050p.B,v %,value(N%)*.5÷e÷|—
*÷b%O —5D\H÷e÷|—4÷qI1%=$:÷%:÷(IP%I1)=11)
+1÷e÷|—>÷v÷?I1%—+2=1 ÷I%—.|— |;: —3÷eS—+
|— ";÷e÷|—H÷t÷I;I),"*",value(N%)*—c(I()÷
e÷|—R÷f÷UI$="1000"÷e÷|—\u÷4 " 01"," 2
=c ÷
7)*,*0100c,k01:Lc,cp200c,n13:0c,Z030*c,S
0500"," 750","1000"÷e÷|—f£÷I"—/P2iss SPA
CE to continue...";÷e÷|—p÷c÷M:÷U—M=3)÷ ÷
|—z÷]÷%÷e÷W|c +
P709CFgFAX 709 Try 220Nay0 ;p:02/1:
|B2203208|a1uF/REX|i24BBBC332k|v40563|p(
N$):÷?N%>0 —(N%<27 ÷=—5DpC÷e÷Z÷F÷n$W=NR:
?W=(?W —h&FF)÷e÷Z÷P÷j÷?—Q(N$)=1 ÷=—5Tt£÷
e÷[÷Z$A%=p:÷M:A%=A%+1:÷??(W+A%)=13 ÷=—5T
|—C÷e÷[÷d=÷??(W+A%)=32 —(A%<(—Q(N$5-2) ?
(W+A%+1)=?(W+A%+1)—X&FF:A%=A%+2÷e÷[÷n÷p?
(W+A%)=?(W+A%) —,&20÷e÷[ ÷g÷U?(W+A%)=13÷
e÷[*÷aN$=$W÷e÷[4÷|—N%=0÷e÷[>÷]÷M÷e÷[H÷cN
%=N%+1÷e÷[R$÷UN$=—hcountry$(N%),—Q(N$))0
—, N%=27÷e÷[\÷k÷?N%=27 ÷G7:÷=—5DvB÷e÷[f#
Y%=—Q(currency$(N%))+1:÷M:Y%=Y%-1:÷U—icu
rrency$(N%),Y%,1)<>S R:currencyV(N%5=—hc
urrency$(N%),Y%)÷e÷[p÷#=N%÷e÷[z÷b÷Lc—)**
*÷e÷[—,÷e÷5÷Jheabing÷e÷[—6÷]÷3÷e÷[—@>÷%—
20,24)—e148;—c157;—e134;—1(15);"(c)m.*.B
rayshaw.01985";—20,0);÷e÷[—J9÷I'—e147;"0
1p7|—|—p0#ppp0# #";—e1::;"#ppppppppppppp
ppppp0"÷e÷[—TN÷I—e148;—e157;—e147;"0=,j0
55 j,!091";—e145;"j";—e135;R'oreign0Curt
ency";—e1:5;"5"÷e÷[—^8÷I—e147;" 05 |—0
ap2|—c—J —J";—e1:5;c—J|—z—|—|—|—|—|—|—|—
|—|—|—|—|—|—|—z—|—!"÷e÷[—h÷]÷9÷e÷[—r÷b÷L
"—)***÷e÷[÷,÷l÷5÷Jcalculate(no%)÷e÷[|c 0
P709CFgFAX 709 pRut1220Nay ;p:18/46
|B2206208|a1:FOREX|i24BBBC332k|v40D9&|p4
date$="":÷=—5tL@÷e÷]÷R÷b÷Jsheet÷e÷^÷\÷a
$%=10÷e÷^÷f÷d÷Jheabing÷e÷^÷p÷n÷?value(N%
5=01÷=—5D@F÷e÷^"÷q÷I'"—.Re-run? (Y/N):—+
";÷e÷^,÷u÷M:Q%=—M —h&FF:÷UQ%=78 —,Q%=89÷
e÷^6Q÷?i%=89 ÷)"Yes";:countqy$(N%5=—hcou
ntqy$(N%)+"1p 0",13):÷=—5t|—@ —
3÷I"No. "'÷e÷^@÷#*D.÷e÷^J÷a@%=10÷e÷^T÷]÷
8÷e÷^^÷b÷L"—)***÷e÷^h÷c÷5÷Jstart÷e÷^r÷d÷
Jleading÷e÷^||(÷)c—.A selection0of count
ties will "e"÷e÷^—..÷)"—.displayeb short
ly.0Make0your1choice0as"÷e÷^—8.÷%S—.requ
ested. To0fnter0an0!mount, type0in"÷e÷^—
B÷v÷Ic—.the sum0at1rte prompt."÷e÷^—L.÷U
'"—.Pressing just—+RETURN—.without0fnter
ing"÷e÷^—V0÷I"—.any0!mount will1toggle b
etween—+Sterling";÷e÷^—|—.÷I!—.entries,0
and—+Foreign—.currency0fntries,"÷e÷^—j%÷
I"—.allowing conver3ion0in0fithbr"÷e÷^—t
÷j÷Ic—.direction."÷e÷^÷.,÷I'"—.To0fnd, p
tess—+ESCAPE—.. To 3elect0a"÷e÷^÷8.÷)"—
.different country, re-run the pqogr!m."
÷e÷^÷B-÷I'"—-The current0information|c 0
P709CGgGAX 7P9 pvtu1220Nay0 2p:21/12
|B2207208|a1:FOREX|i24BBBC332k|m:107&|p
is now "eing"÷e÷^÷L ÷I"—-downloaded fqom
—+CEgFAX—-."÷e÷^÷V&÷I'"—-Please wait0a f
ew0moments...";÷e÷#÷|—÷]÷9÷e÷#÷j÷b÷L"—)*
**÷e÷#÷t÷e÷5—LBBCdate÷e÷#&!÷LS—)Take dat
e from CFFFAX TSDP÷e÷#0÷o÷Lc—)&0CALCULAT
E DATE÷e÷#:÷i÷??&FC10=00=""÷e÷#D÷a*CBC1÷
÷((((?&F68 —(1&F5-&1)*&10000)+(((?&&695.
&11)*&100)+((?&E6A5-&11)))÷e÷#b÷wY1=(100
*XJD-15078.2))—)36525÷e÷#lSM1=—P((JD-1:9
56.1-—P(365.25*Y1))/30.6001)÷e÷#v<D%=JD-
14956-—P(365.55*Y15.—P(30.6*M1):K=—P(0.7
+(1/(17-M1)))÷e÷#—(÷tM%=M1-1-11*K÷e÷#—2÷
cZ%=Y1+K÷e÷#—<1W%=(JD+3)—+7:÷O—5t^G:÷;da
y=0—|—'%:÷KD$:÷%:D$=F$+"day!÷e÷#—F)÷40Su
n,Mon,Tues,Wednes,Thuqs,Fri,Satur÷e÷#—P÷
u÷O—5tuG:÷;vay=1—|—M%:÷Kmonthd:÷a÷e÷#—Z[
÷4 -anuary,Fe"ruary NA M
,.sly,August,Septem"er,Octo"er,Novem"er,
Decem"er÷e÷#—dX÷?D%=1—,D%=21—,B%=31 thV=
"st." —3÷?D%=2—,D%=22 thV="nd." —3÷?D%=3
—,D%=23 th$=Rrd." —3th$=cth."÷e÷#—n-|c 0