Radio Shack TRS-80 100 - Page 207

TNs retrieves oM etl8raeter from cham~ 111 and ~ it 10
variable Z$
If Z$ 1$ CHRS( 19). htn lI>e ~m fUll page of sign..".,
in/ot1nation has ~ sent by Dow Jones.
Ptirll;s the CUr1enl date and time to QUOTE,DO.
PrinI$ on the o.~ !hIo11he informalion 1$ beingMked for.
Sels 1hfI'8~Abl .. N llQUaito tIwI.......- d qunl8 ''''lI_you
IOiIi asl< lot
l.oop ... 1n0!l 170·200 a r>Jmb .. or lime8 0(j\>l0 10 It"C n...-.bet
of QUOIN you will reqoost.
Sels 0$ eq~'" 10 the r"lSl quole you .... ~ 1<)""'.
$IIncls 0$ oulltMl modem line.
Go and ;01 811M dla,act",. which .,.,.;11 be coming back in
1lIIS_ 10 )'QUI ''''lueS! from Dow Jones
Print. 00 Ihe o;splay IN.! !he rllqUlISl is oomple«>.
ProoIts. 1I1ol .-.e .. request.
Prints on the Display Ihal you are slgning,,".
sels ST$ 10 bol equal 10 !he ASCII code !of bell. This Is !tie
Ill"' character sent If"", Dow Jor>es.
Pm!. DISC to the modem.
saves a111he characlars 10 !he fila. 11>11 1M. record !he
0ll0"lI!0CI tinw.
Disoonnecta the modem as 8fl VO device and closes •
QUOTE.DO.
A ~ac:Ilne·l~ call which will dlSCOfU'H!<:lltlll phOne ir>fl.
The • ..., oIlhe prog<am.
This ,,,,neve. 0t18 charaete< If"", <;hann$! "1 aro lIUigns ~ 10
".
CrealllS aTe,., ble nJmed QUOTE.DO to recelv9 In!ormatlon
from Dow JoIles.
""
lastS 10 see If The cnwaCl(l' r9Ce/IIad ;8 ttla "Sl<lp" chN!OCIet'
If>t1Ic!l sign. t!le end 01 a page 01 KllQrm~lOf'_
PUI. ella'acta< in Z$ ;mo QUOTE.DO that II .:live as dlannel
fJ. The Uaili"ll selr'i-<:oI:)n ""uses ltle d1 .... aet&r to be s.wed
witt>oul a trailing carriage 'etum,
Go ba~ to lIrIe 4000.
------.Appendices-----
•
•
•
•
•
'00
•
'"
•
'"
•
•
•
'"
•
'"
'"
•
•
'"
•
n,
•
'"
•
'"
•
"'"
•
'"
•
""
•
""
•
'"
•
""
•
'"
•
•
""
""
•
."""
•
•
~O10
•
."",
•
•
•
•
•
•
•