ПППРРРТТТТ]Т]Т]СFСFСFСССУ2У2У2У?У?У?Ф\Ф\Ф\ФФФУ+У+У+У,У,У,ФФФС0С0С0ТOТOТOХ<Х<Х<ХJХJХJФФФЦXЦXЦXШШШЩ0Щ0Щ0ЩCЩCЩCЩCЩCЩCЧЧЧШWШWШWЧPЧPЧPЧЧЧЦSЦSЦSЧ$Ч$Ч$ХPХPХPХ;Х;Х;ХZХZХZЧЧЧЦBЦBЦBШQШQШQЩ%Щ%Щ%ШCШCШCЧUЧUЧUЧ;Ч;Ч;Щ'Щ'Щ'Ш`Ш`Ш`ЩЩЩЧYЧYЧYЧЧЧЧLЧLЧLШUШUШUЫЫЫЫRЫRЫRЬMЬMЬMЮЮЮЮKЮKЮKЯJЯJЯJЮGЮGЮGаGаGаGаааа*а*а*ЮQЮQЮQбQбQбQб,б,б,в_в_в_д*д*д*вввв"в"в"гггдддж
ж
ж
еQеQеQе_е_е_д`д`д`ддддZдZдZг(г(г(гGгGгGгггбcбcбcвввг+г+г+е6е6е6жжже0е0е0д.д.д.в'в'в'в7в7в7д*д*д*дSдSдSвMвMвMб$б$б$бSбSбSвDвDвDдTдTдTе5е5е5зззйййй
й
й
йййк5к5к5кcкcкcк9к9к9к(к(к(и.и.и.еDеDеDж@ж@ж@ииии[и[и[ж<ж<ж<и0и0и0з8з8з8зззииие5е5е5е.е.е.ж
ж
ж
дддг_г_г_дSдSдSййййййиYиYиYй5й5й5к#к#к#з;з;з;ееев8в8в8вввв
в
в
г,г,г,б!б!б!бJбJбJЯЯЯа
а
а
б6б6б6б7б7б7вввгGгGгGг)г)г)ееег7г7г7гbгbгbд"д"д"вMвMвMбббаTаTаTввввввв:в:в:д(д(д(дддееезYзYзYз`з`з`зMзMзMж\ж\ж\y%y%y%zzzyayayaxaxaxazzz{
{
{
|||{M{M{Mz7z7z7z3z3z3|X|X|X~c~c~c{Q{Q{Q{ { { {>{>{>{{{y?y?y?x*x*x*yayayay3y3y3ybybyb}a}a}aАPАPАPГГГЖ/Ж/Ж/Ж,Ж,Ж,ИGИGИGЖ9Ж9Ж9Е9Е9Е9ИIИIИIИ:И:И:ЛЛЛЛЛЛКSКSКSЕ Е Е Ж0Ж0Ж0ЗЗЗЕ;Е;Е;ЕGЕGЕGЗ/З/З/Й1Й1Й1ОWОWОWНUНUНUОООМ,М,М,ПППННННLНLНLЛ5Л5Л5ЙЙЙЗ*З*З*Й]Й]Й]К"К"К"ЙЙЙЖЖЖД]Д]Д]ЕXЕXЕXЖXЖXЖXЖЖЖК6К6К6КHКHКHКRКRКRКEКEКEНMНMНMОHОHОHНQНQНQМММЛ9Л9Л9Л_Л_Л_Й'Й'Й'ЗЗЗЗЗЗЙ1Й1Й1ИИИК=К=К=КSКSКSЛHЛHЛHОООМMМMМMНННМ!М!М!М@М@М@К"К"К"Н#Н#Н#Н`Н`Н`ССС                                                                                                                                                                                                                                                                                                                                        v4
54i242*131%221)232
ў332	3221╡221
232	121р0
20
 ╙.0
.G/0.▀0
10
G01/
;00/d/0/═110є0105/0/

l./.-.-T+
-+F,,+є,,+
$,,+ф+
,+
Ж,,+N║*,'ы*+)M()
(t))
(q)*(Е**)╗***╓*+
*8Q(*'н'''b%(%&&%є&'&>''&
ф'('╝''&
	(('Ш))'
i))
(X**
)b***Ё*+*G,,+
,,+}+,+╟)+
)?·g

#d
■
Зз
┴U%e░aэ╙

s

┬x
B
+e  *
"# $f%%#М$%$%
&#$%
$▐$
$#
&&$#9''&и**'%■++)▐+,*j()'')*')*)а(*(H)
*(4**),+
,*//+$101/╙01/
▄.
/.ф0
1./2.p22.╦131Ё/1/╜./-
q00.╛120
51
2
1
g/1
/}/0/	V0
0
/r220
12
0╥551_464Я5
53Ю786;;5!;<:╞8;8.Й262$╨453o55
4И161л1
20Д120221
t/
2/
·11/451╜444	)664╣454Ё34
3Г141┬231Ш.1-11.C02/╡23/╟020-1-2┼00-'¤120ў221!G452;464┴343o2
42 231▄221║220г441W453)664
Ў787p776Д57
5
Y674X675
Ў786р796675╥675A776787О7
86
╩67
6є474м454+5
64	554
*665?88
7ж8
87
p997є::
9в::
9:8:
8з8871786
q776

▐887Ў786
К776
▒675	t665
p5
75

665─676z886y787!В575д785ъ78
7ў77
6
С887╥::7
8;8n998a8:89
9
89:8Е99
8
ю::9$;;
9
ч<<;=><с<
><▀<<<к;<;л<=
;e<
=<
::
<:
q;;:╚==:
Z=>=ъ>>=ю=
>=Н;=;-;;9;<:`:;:%==;I>
?<D??>A?@>	>?
=▐=
>=┬==<??==?=
	K<>
<

f<<;
;>>;	с>>>	э??>~??>Я>
?>Y=><	p=>=─==<?<=;┌==<
h<=<)8:<:::8╞8:8H|56/!К474!┬77
3686b77
6`574^453
6╦15/.
441СССТNТNТNСNСNСNТEТEТEСIСIСIТAТAТAТGТGТGТ(Т(Т(СССТТТПUПUПUЛaЛaЛaНKНKНKН6Н6Н6РРРР3Р3Р3СССО`О`О`▄╬Ч9╫=>?╜Є?]-Ю2Ж
╜|Я2 ыЮ24ЮЬ"Ю0Я6
'ЮЯ4 ЮЯ4╜я
>&Ц
-╢&r▒&s'
5Я2╜я~є╜'@'х 
&Ю Ю0
Я2 ╠ ╜ё╜5~╣ ╜┌ ╕БL&╜└ пБQ&Ц
ИАЧ
╢   аБ?&> Ш ╜%т яБ0&╜╪ цБ>'2Б<'2БR'4Б='9Б_Б^Б[Б
БSБEБW'
БPБVБF'
УБXБ ' g _ [Ж Ч UН.╜$└Н) L╢ 
Д№╖ 
Ю)┐

▐$OЛ╢ К
╖ пА~▒Н %ЮЯ2Япb╜а9╛^Я-.Нц 	Ж
Ю2╜TЯ2~7Ж ЄЖЮ2╜| юЖ
 їЮ4Ь6'T╜ЮM'Ў
='Б
-юБ-Б -ц
9'Б
'▐Ч;н а&.Ў "┼
&єЦ;╜0]&ыЦ;Б $
╓О1?&№Z&ї
:'░Б
&мЖ
 ╩ :Ю2Я4 4Ю2Я6 .╜PЧ9╫:ЖрЧ
ОёО@Ж╜▌с▌Ж  
OЧ= Ю4Ю6╜{~DOTHER`CONTROL`CHARSSn
	q`m`STRIP
	r`m`PASS ╜ёОр■^ж└Б
'Б %#╜СзАМ-ОжИ зАМр-ЎЖ`зАМ-∙ОрУ$4p╜'@'╜'@'√5pБ
&╝~7ОеЖО@╜АЖИЖ Ч╞ ╞О╠ЖО@╜ЪавЖ Ч\ \~7READ`MODE
	q`m`INPUT
	r`m`LINE`INPUT WRITE`MODE
	q`m`ONLY`CR
	r`m`ALL ╜ёЮ2О#_╜Ъ]-RM&_3╚ 2 AБ&╜Ъ]-=БA&Г'-1ир3╚р %Б	&1!\ШД&ў Б %╜С┴ -1?
?&зд1!\М-и9Ь'#Я;Ь"
'ЮцВ&Я;J'Ь&щЮ;0
Ь&Ю9Ь'Я;цАЬ'Ь%Ю ЇЮ;9]&ьJ&у9Ь'Ь&
'ЮжАЬ&╩А90М¤oВМ"∙О╫oАМ&%∙╛o╬&░╞Аж└зАZ&∙9Ощ╜щЧFОю╜щЧG9XON` XOFF` l°lцl╘l┬l░lЮlМl|
lrlUlJ
lIl8l-
l#lk·kфОїО@Ж╜fnv~ИОG╬1 О╬
 О
╬ О╬%Я▀О(О@Ж╜ЬжблО	
 О	  ОЯОNО@Ж╜╜┐┴ ОЭО@Ж╜╙╫█Ж ЖЧОpО@Ж╜яЇ∙я╠  ╠  ╠9╬╞`#цА┴  9ЧHНэ╜'@'√╞1╫]юфо┴С]'о┴zH']╓]┴:&э╞A╫] чп`9ЧH╞ ╬MЖч└J&√О@╜¤ОM_44╜'@'√54Б&
]'ЁZЖ зЕ╜С цБ
'
зЕ╜С\╤H&╪9ЯIЯKО┬О@Ж╜╧╧╧Ю
&ЮЯIЮI╜Ъ]-0С&&ЎЯIЯ2╜яО╒О╬└╜ЖЧH╜╔Ь╔Ж Ч[ [╜ @9CORRECT`FILE
	q`m`YES
	r`m`NO BAUD`RATE
	q`m`qqp
	r`m`spp
	s`m`vpp
	t`m`qrpp PARITY
	q`m`EVEN
	r`m`OFF
	s`m`ODD DATA`BITS
	q`m`SEVEN
	r`m`EIGHT LINEFEED
	q`m`STRIP
	r`m`INSERT
	s`m`PASS CR`DELAY
	q`m`NORMAL
	r`m`EXTENDED USE`CAPTURE`CHARS
	q`m`YES
	r`m`NO CONTROL`CHAR
	q`m`PASS`ONLY`CR
	r`m`PASS`ALL  ]\░\1[Є [o[ZЩZRnБ 'WM' OОЯаЮаЦг
· AО#Ь╞жДБ 'Б'0И Z&ЁЦбLЧбБ-┘ !╬╞ ж┼Б '\┴D-ї╞ж┼Б 'Z,ў ч
 
ХЯ▒ЦбЧ│ж
ЧвЧ┤
oЮI╬#Ь_4_╜Ъ╫░5
░-+
['
С'&ЖАЧ░ 
\'Б
'Б -	M'\з└]'ЬK&╦ЬK&
Ж
]'\3Aз_ЯI╫╡ЮаЦг╬#Ь
Ц ХЮIЬK'b
░-^ЦбLЧбБ
'Б&Р╓в╫░ОжЕБ 'M-Чвъ x┴!.(┼
&\ └┴-жЕБ &щЦ░чЖ╫в╟ Uо&╘ ы\┴C.ЄжЕБ &ї ▐╓вОжЕБ '4Ж зЕ5M-Д?ЙжЕ э╓вЦбБ
-А	К└зЕЦг╓│╫б╞╫аЮай [╬дЮ▒╞ж└зАZ&∙Ж
зАЖ зАЦ┤зАoАЦ╡зД&Ж
зЮаЦг╬#Ь┐ )О#Ь_oА\&√О#Ь╬╞Dж└зАZ&∙ОЦг╬#ЬЪ  @9*╬_ж┼Б '\┴D-їЖUM9Цв╞
Е
'╞
╫бДGБ-
LЧа9 @О"GО@Ж
╜"F"F9I/O`ERROR ■└зAпBЖз─О#ЬпDOЛн └ЖЛ■└жF'
9оф0пф9ЦгО ╬ О#Ь╞D╬жАз└Z&∙O9Ж 9╛└з!п"я$ЖздOЛн └ ╕Ж ╬M╞з└Z&√О#СЖ╜9Ж ╬дг╞з└Z&√╬MОд╞ж└Б 'OБ/'	Б.'зАZ&э╬M╞ж└Б/'	Б.'Z&є Ом╞ж└Б '#Б:'зАZ&ё╬P╞ж└Б:'Z&ў 
ж└Б 'ДЧг IM&%ОЯаЮаЦг  Б 'ЦбLЧбБ-чO9╓гЖ 9Ж
9О#ЬЖЧпОд╞ж└ба&Z&ўОм╞ж└ба&Z&ўЖ 90И 
п&╓O9FILE`NAME` О%ЁО@Ж╜$╓$╥$╪[ [╜"▒Б 'О%Є~%╖╫гж
Чвю▀└жЧ╟m'╛Ю
['Ц&зАЯ┬╜%╦╓вОжЕЧ─Д?Ч┼■└ЦгзAЮапBЖз─Ю┬пDOЛн └ЖЛ■└жF'О%Є~%╖Ю┬
─.ЦбБ
-А	С┼&0╙└▌┬ 3╔
▀┬
╞'!
╟'жДБ"&жAз└У┬%ў▐┬3_▀┬0
Ь┬%уЦбLЧбБ-А	
─.С┼"
Б
& uЦ─Чв~%Ю┬
['Ц'зАЯ @9 @О%ЄО@Ж
╜%╩%╩9Цв╞
Е
'╞
╫бДGБ-
LЧа999SYSINIT BIN  READ`ERROR   Я}"&$н а4Б
'ЯЖя╖ Ў Ж ╖ ┼&|Я59)Ю}C&"})Ж'+)Ж╛)И&F} !*Ж ╖)Ж╛)К&d╛)О&
ї╛)~0
┐)~╝)z%╛)В&
╥╢r▒)Т'╖)ТО┐)~})Ф&|)Ф╛)АжБ
'Б'
hБ'
МБ'
wБ'
lБ'╠Б'├Б'
ЇБ	'fБ
'MБ'7Б'(Б
'Б'~&╛)Ао╜(уГ' )АO9)Ю~&|)Ю┐)Я~(ю )Х╛)А╜(°┐)АO9о0╜А╛)А╜(°┐)АO9■
k )Я}"&$н а4Б
'ЯЖя╖ Ў Ж ╖ ┼&|Я59*▓}C&"}*Ъ'+*Ъ╛*Ь&*} !*Ж ╖*Ъ╛*Ю&H╛*в&
┘╛*Т0
┐*Т╝*О%╛*Ц&
╢╢&r▒*ж'╖*жО┐*Т}*и&|*и╛*ФжБ
'
єБ'
LБ'
pБ'
[Б'
PБ'░Б'зБ'
╪Б	'fБ
'MБ'7Б'(Б
'Б'~'H╛*Фо╜)ўГ' *ФO9*▓~'H|*▓┐*│~)ю *й╛*Ф╜*┐*ФO9о0╜А╛*Ф╜*┐*ФO9╛*Ф╜*┐*ФO9яф┐*╡╛*░жаБ 'зА\ ї\■*н 
k╢*п╖
jЖ
╛*╡5└~'H}*▓&┐*│╛*Т╝*Р%■С}*и'■К╛3H *╡╜*0Н5Б`%А Б "╝'# ьбД&,0╝*╡"▀*и╛*│о╜)ўГ' *ФO9╝&╛1?жд9}*▓'■-╛*│╜*┐*│~'═ю *РО┐*Т╛*Ф╜*┐*ФO9"O93F *в╬ *лO9╬ *Тю *Ш╛*Ф╜*┐*ФO9╜)ўГ' *ФЖ9■*л'3_ *лO9■*й *л■*вж└Б 'Б\&|Яж└ *вM9╬ *в╛*ФНb┐*ФO9╜)ўГ' *Ф╬ *ЬO9 *ЬO9ю *Ь╛*ФН:┐*ФO9ю *Ю я╜)ўГ' *Ф╬ *ЮO9 *ЮO9┐*╡╛*аю│*╡'Н Ї90жАБ &·жАБ &Ї9О*ОoАМ*╡&∙О*╝┐*а┐*Ф╢C╖*ЪОЁ┐*йО*╖┐╢'B╖"Ж ╞ОMзАZ&√О ОMжАБ 'за Ў╜"┼Б '" ўгж
╖вю └╟О*╖╜%╛┐^9U ' *Ф╬ *ЬO9 *ЬO9ю *Ь╛*ФН:┐*ФO9ю *Ю я╜)ўГ' *Ф╬ *ЮO9 *ЮO9┐*╡╛UE**";FiВX$│ Т:ЕX$│""з27010:ДРF)mиБе100F9Ь@ЕOY│1з40003FwЬAЩ"D",#5,"PRICES/DAT:0",8:OY│1:Щ"D",#6,"PRICEMAP/DAT:0",19FЗЬCЕOX│1з40005FгЬDМR1(5),R8(5),C9(5):OX│1F▄ЬEЕ Р(FL$,7,1)┤▓" "░ Р(FL$,8,1)│" "зC9(LF)│1:ДC9(LF)│0FяЬFЕ е(6)│0з40180G6ЬJАR9│1е е(6):╨#6,8 зF9$,5 зR1$,5 зR8$,1 зBS$:─#6,R9:ЕF9$┤▓FL$з40090GZЬ|R1(LF)│ Й(R1$):R8(LF)│ Й(R8$):РGЕЬЪЛR9:АR9│1е е(6):─#6,R9:ЕBS$┤▓"A"з40099GзЬЮЕ( Й(R8$)м Й(R1$)л1)┤H9з40099HЬЯ╨#6,8 зF9$,5 зR1$,5 зR8$,1 зBS$:╘F9$│FL$:╘BS$│"U":R1(LF)│ Й(R1$):R8(LF)│ Й(R8$):┼#6,R9:РHлЬгЛR9:R9│ е(6)л1:X$│ И( Й(R8$)л1):X$│ П(X$, З(X$)м1):╘R1$│X$:R1(LF)│ Й(R1$):X$│ И( Й(R1$)лH9м1):X$│ П(X$, З(X$)м1):╘R8$│X$:R8(LF)│ Й(R8$):╘BS$│"U":╘F9$│FL$:┼#6,R9:РIЬЇ╨#6,8 зF9$,5 зR1$,5 зR8$,1 зBS$:╘F9$│FL$:╘R1$│ И(1):R1(LF)│1:╘R8$│ И(H9):R8(LF)│H9:╘BS$│"U":R9│1:┼#6,R9:РIЪЮ4R9│RCм1лR1(LF):╨#5,2 зJV$,2 зJC$,2 зJH$,2 зJL$:─#5,R9:VX│ К( О(JV$,1))н256л К( П(JV$,1)):VX$│ И(VX):Е К( П(JC$,1))▓127з40640IоЮ\ЕC9(LF)│1з40600JЮfPX│ К( О(JC$,1))л К( П(JC$,1))о16:PH│ К( О(JH$,1))л К( П(JH$,1))о16:PL│ К( О(JL$,1))л К( П(JL$,1))о16J)ЮДPX$│ И(PX):РJЮЮШPX│ К( О(JC$,1))л К( П(JC$,1))о100:PH│ К( О(JH$,1))л К( П(JH$,1))о100:PL│ К( О(JL$,1))л К( П(JL$,1))о100:Бе40580KЖЮ└PX│ К( О(JC$,1))н128:R9│ К( П(JC$,1)):R9│(R9)░(127):PX│(PXлR9)о10:PH│ К( О(JH$,1))н128:R9│ К( П(JH$,1)):R9│(R9)░(127):PH│(PHлR9)о10:PL│ К( О(JL$,1))н128:R9│ К( П(JL$,1)):R9│(R9)░(127):PL│(PLлR9)о10:Бе40580:VX│ Й(VX$):PX│ Й(PX$)Kэа-╨#5,2 зJV$,2 зJC$,2 зJH$,2 зJL$:L9│ Ш(VXо256):R9│VXмL9н256:╘JV$│ Л(L9)л Л(R9):ЕPX▓256▒PH▓256з41140L
а<ЕC9(LF)│1з41090LЖаFL9│ Ш(PX):R9│(PXмL9)н16:╘JC$│ Л(L9)л Л(R9):L9│ Ш(PH):R9│(PHмL9)н16:╘JH$│ Л(L9)л Л(R9):L9│ Ш(PL):R9│(PLмL9)н16:╘JL$│ Л(L9)л Л(R9)LваdR9│RCм1лR1(LF):┼#5,R9:РMGаВL9│ Ш(PX):R9│ Ш((PXмL9)н100л.5):╘JC$│ Л(L9)л Л(R9):L9│ Ш(PH):R9│ Ш((PHмL9)н100л.5):╘JH$│ Л(L9)л Л(R9):L9│ Ш(PL):R9│ Ш((PLмL9)н100л.5):╘JL$│ Л(L9)л Л(R9):Бе41060N7а┤PX│ Ш(PXн10л.5):L9│ Ш(PXо128):R9│PXмL9н128:R9│(R9)▒(128):╘JC$│ Л(L9)л Л(R9):PH│ Ш(PHн10л.5):L9│ Ш(PHо128):R9│PHмL9н128:R9│(R9)▒(128):╘JH$│ Л(L9)л Л(R9):PL│ Ш(PLн10л.5):L9│ Ш(PLо128):R9│PLмL9н128:R9│(R9)▒(128):╘JL$│ Л(L9)л Л(R9):Бе41060NYвR1(LF)│0:АR9│1е5:ЕR1(R9)┤▓0зРNoв:ЛR9:Ъ#6,#5:OY│0:РNЯ┐hЪ:Е Ж(32764)│0зО"MENU/BAS:0":ДО"MENU/BAS:1"0л.5):L9│ Ш(PHо128):R9│PHмL9н128:R9│(R9)▒(128):╘JH$│ Л(L9)л Л(R9):PL│ Ш(PLн10л.5):L9│ Ш(PLо12░ @q~j                  }
'╞ 9╖~=
`╢ Д№╖ ╢ Оa┐

╢ 
К
╖ 
9z	&(╢
'╛aжА-цА┐a╖  ў	z
&~а
╢╖	z
&~а~Щ╢ ;╢`'>╢ z-╢ "Dvz`'╛жА┐╖
;╢&sL▒&q-
OЎ'╖&sО&АчЖ╢
╖
;╢ ╢ "D%╛жА┐╗
╖
Ж╖╢╖`;╢
╖
;











GHGHGHGHGHGH╬cЮo└НM╓Z
'
Z$
Жз└Н9 o└Н3Z&ы
'ЦЕ
'Ж 
O
.Из└НЖз└НЖ з└╬c▀a_ЦЧ	
9жаз└9│PCл1:Б0Н╝!ОВЯАЮ0ИЬЯОЯ9Б&
9╜^╓Ю4ЦШзЕ5
Щ'%-ЩДОр0И Ь#4O╜^5J,ю -ДЙЩ %
Т&#
У'иУБ4'БN'
 ▐▀Х╬	▀ ▐Х▀ 8ТБG&У ЇБC'
╡БD'ч!БB'
БA&
М'0Ир ╥БH'нБJ&Н
УЖ`4зЕ\┴ -∙59БK&4Нъ0И _М-ї5 ┌БY&Щ ╥БI&4О╨жА4╜0]&·5Б
&Ё5 ╡Бj&НF нБ&Т еБ"╞Б'^!Б
'zБ
'DБ'.Б	'Б'О ?\┴ 'ШД&ї 0Ж`~ш╬Ж`з└Г-°9НЁ!_O╜^▐▀2О _
&-
Ъ&)Э~Ё
!'
!]&0Ир▐Ац@3_ГВ$╬С▀А 
Z ┘Э
&╜! ёЮ4$O╜SцдздШ]&Ї5$Я у4ЖP_╚ў "О00&№J&ё5 Ы!
&W
Ю&S]&PБ 'L
'H4╞ жЕБ`'Z┴р&ї 1ШЛ ▐Аз@\жЕз└Ж`зЕ\&є
&Ю╜S╜Sц?┴ 'ч  єoд5╓╜СзЕ\┴ -НН0жЕЧШ▐У%Жж╖Я╫9Б`'Z▐А3AГС#╬Вч@▀А9_OН:ЦЭЧЮ0И М-"4
&	Ж
Ю2╜|Я2ОжИ зАМр-Ў_╜]59Ь&Ю1?9
&. 	
(&┼&
LЮБ&
}!'Н╪mд'· заЬ%ЮЯ9Б"Б@-Б`-
А }
&А@ Л@97:РH7E╠ТIл6,&HA╜P╫О2НA╜╙╫┘+ +9О4Н
Ч&О6НЧ'9Ж╜9ОMНHHHHЧ#НЪ#9жАДOБ	/ДЛ	9О@Ж94R╬╜╩╢  Ж6╖ !О└} !+	0&ўН5R;Н ∙╢  Ж5╖ !9Ж6Н°P&r&sЦ
ДЧ
╜AпЮЯCЯ2Я╜а╜ё9ОoАМ-∙&r&sЖ/╖&qЖЛ▀$▀╬&`╞АО&░■ж└зАZ&∙ОЯ&╛

Я)О┐
ЖЧC╜*ЮНжОЖЯО	
ЯО
ЯО
рЯ╚ОЯ╩ОЯ╠О Я╬╜7╜Aп╜'@'√-.╜%у╜ё

-
1&} !*~Ё
,'2Ю-ЬD%,-. $жА'ЁЯ-С''Б
&4╜'@Й5┴'▌
0',~%╓ЮЖ░зЕ╜'@'K
C'Б&
C-Ж ЧC ▀╜@1 ╪@Б
'╥
Я'╦Б5&~
C&eБ1&Ж Ч0ЮЯD@,Ю-&╛^Я- ! !
'О8▐A'▀ ОH▐▀AО ╜ Б&  Ж√╖ Ў ┴┐'ёЖ╖  Ж ╖ ~U ╜▀ ╫ ОрЯ-0И ЯD0 Ч О ю Ор чО
╞бБ'Z&∙ ж 6~-|@{7}0` :;[.Д
C/	Ъ╜╛Ъ .4╜0]&·5
C-щ
,'Б $╓yZ&·
+&:

-Ў&rё&s&~єО&А\ё&q-
_ў&rжЕ╓┴	.-
'ДБ&
Ж╜0]&°ЖСF&
-',СG&, 
@&4╜╛5 
@&  Ы
@'@ У~Х╬3_Г&°9FREE`}``````ОЖО╙цАчаJ&∙1;▄У#╬$/г─%г─/ ї
#&
/'4Ц/Лpзд5#1!3BmA&╫9'шd

D D S E BUFFER`UNFROZEN BUFFER`FROZEN`` |╓|┼|┤|д|У|В|r|a╬╞`ч└Г%Ў#цА┴ 'ча Ў9)л" ":_-
_F _P_p_Ж_б(CXм1)л(CYм1)н32,I$;:CX│CXл1яSЕ CX│33зБж105Ю╚ЯЮ╩ЯЮ╠Я4000:ЕTIC$┤▓""з8204q*ER$│"  SERIES NOT FOUND- RE-ENTER  ":Бж780:АIG│96е128й32:З@IG, б(32, Л(128));:ЛIG:Ъ#4:Бе7904б4ЕTIC$│"ZZZZ"зA$│"ZZZZ":Ъ#4:О"MENU/BAS:"лDR$50>Ю0:З@196," PLACE CASSETTE INTO    ";:З@228," TAPE RECORDER - PRESS  ";:З@260," <PLAY> AND <RECORD> -  ";:З@292," THEN PRESS <ENTER>     ";5THK$│ Т:ЕK$│"?"з26080:ДЕK$│""з84067RЮ0:З@232," STORING PRICES ";:F$│TIC$лMC$лSC$:Щ"O",м1,F$:З#м1,TIC$,LD$,LR$,MR$,CU$,OP$,ED$,MC$,SC$,ST$:Ъ#м1:Щ"O",м1,"PRICES":LF│2:FL$│F$:Бж40000:MX│ Й(MR$):АI│1еMX:LF│2:RC│I:Бж40500:З#м1,VX,PH,PL,PX:ЛI:Ъ#м1:LF│2:Бж41500:Ъ#16А▐Ю0:З@228," PRICE STORAGE FINISHED ";:АI│1е1000:ЛI:О"MENU/BAS:"лDR$:К6шHМMO$(13),PC$(13),CC$(13),S$(30),S1$(30):АI│1е12:НMO$(I),CC$(I),PC$(I):ЛI:АI│1е30:НS$(I),S1$(I):ЛI:Р7AШЖ01,A,M,02,B,N,03,C,O,04,D,P,05,E,Q,06,F,R,07,G,S,08,H,T,09,I,U,10,J,V,11,K,W,12,L,X7квЖ5,A,10,B,15,C,20,D,25,E,30,F,35,G,40,H,45,I,50,J,55,K,60,L,65,M,70,N,75,O,80,P,85,Q,90,R,95,S,100,T7ыгЖ110,b,120,d,130,f,140,h,150,j,160,l,170,n,180,p,190,r,200,t7ЄЯЮ08ааАIG│164е292й32:З@IG, б(24, Л(255));:ЛIG:З@198,"    ENTER IDENT.    ";:З@230,"       SYMBOL       ";:З@262,"  OR 'ZZZZ' TO QUIT ";:АIG│352е448й32:З@IG, б(32, Л(128));:ЛIG8№кЗ@363,"   AAAA";:З@362, Л(128);:ЙA$:Е О(A$,1)│"?"з26020:ДЗ@363, б(21, Л(128));:J│ З(A$)9┤Е Р(A$,J,1)┤▓" "з40409'╛J│Jм1:Бе40209H╚A$│ О(A$,J):ЕA$┤▓"ZZZZ"з40809Z▄TIC$│"ZZZZ":Р9ОцБж4160:АIG│96е128й32:З@IG, б(32, Л(128));:ЛIG:Р:ЙЁЮ0:Бж4070:АIG│100е292й32:З@IG, б(24, Л(255));:ЛIG:З@133," ENTER 'S' FOR STOCK  ";:З@165,"       'C' FOR CALL   ";:З@197,"       'P' FOR PUT    ";:З@229,"       'I' FOR INDEX  ";:З@261,"       'F' FOR FUTURE ";:З@365,"   A"; Л(128);:З@364, Л(128);:┌ZZ$│A$:ЙA$:Е О(A$,1)│"?"зA$│ZZ$:Бе26030:ДЗ@369, б(15, Л(128));:TY$│A$:A$│ZZ$:ЇЕTY$│"S"▒TY$│"I"з4340;"ЕTY$│"F"▒TY$│"C"з4170; ,ЕTY$│"P"з4170;U6ER$│"   INVALID ENTRY - RE-ENTER   ":Бж56:Бе4080;Г@АIG│384е448й32:З@IG, б(32, Л(128));:ЛIG:Р<$JЮ0:Бж4160:Бж4470:З@135,"      ENTER       ";:З@167," EXPIRATION MONTH ";:З@199,"  (FOR EXAMPLE -  ";:З@231,"    ENTER '01'    ";:З@263,"   FOR JANUARY)   ";<УTЗ@364,"   AA";:З@363, Л(128);:ZZ$│A$:ЙA$:Е О(A$,1)│"?"зA$│ZZ$:Бе26040:ДЗ@369, б(15, Л(128));:EM$│A$:A$│ZZ$<▒^АI│1е12:ЕEM$┤▓MO$(I)з4240<├rЕTY$│"P"з4230<┘|MX$│CC$(I):Бе4260<яЖMX$│PC$(I):Бе4260='РЛI:ER$│"   INVALID ENTRY - RE-ENTER   ":Бж56:Бе4170=AдSS$│" ":ЕTY$│"F"з4360=тоЮ0:Бж4470:Бж4160:З@135,"      ENTER       ";:З@167,"  OPTION STRIKING ";:З@199," PRICE (EG. '75'  ";:З@231," FOR A $75 STRIKE ";:З@263,"      PRICE)      ";>R╕З@364,"   NNN";:З@363, Л(128);:ZZ$│A$:ЙA$:Е О(A$,1)│"?"зA$│ZZ$:Бе26050:ДЗ@369, б(15, Л(128));:SS$│A$:A$│ZZ$>o┬АI│1е30:ЕSS$┤▓S$(I)з4320>Е╓SS$│S1$(I):Бе4360>╜рЛI:ER$│"   INVALID ENTRY - RE-ENTER   ":Бж56:Бе4270>█ЇЕTY$│"I"зM1$│"Z":ДM1$│" ">я■MX$│M1$:SS$│" "?АЩ"D",#4,"SETUP/DAT",39:╨#4,6 зTIC$,6 зLD$,4 зLR$,4 зMR$,9 зCU$,1 зOP$,6 зED$,1 зMC$,1 зSC$,1 зST$:АI│1е е(4):─#4,I:Е О(TIC$, З(A$))┤▓A$з4450?У:ЕTY$┤▓OP$з4450?жDЕMX$┤▓MC$з4450?╣NЕSS$┤▓SC$з4450?┐XР?╨bЛI:TIC$│"":Р?■vАIG│100е292й32:З@IG, б(24, Л(255));:ЛIG:Р@чeдЮ:З"THE 'IDENT. SYMBOL IS USUALLY   THE TICKER SYMBOL FOR THE SECUR-ITY ALTHOUGH IT DOESN'T HAVE TO BE (EG. 'SILVER' COULD BE USED  FOR THAT COMMODITY).  IT MUST   MATCH THE 'IDENT. SYMBOL' EN-   TERED WHEN THE SERIES WAS FIRST"AЗeжЗ"SET UP.  USE THE 'OBTAIN MASTER LIST' FUNCTION ON THE MAIN OR   UTILITY MENU TO GET A LIST OF   THE 'IDENT. SYMBOLS' ON THIS    DISKETTE.":Бж27000:Бе3999BpeоЮ:З"ENTER TYPE OF PRICE SERIES.  IT SHOULD MATCH THE 'TYPE' DEFINED WHEN THE SERIES WAS SET UP.  USE 'I' FOR INDICES SUCH AS THE    DJIA OR FOR MUTUAL FUNDS.  USE  'S' FOR STOCKS OR BONDS.  USE   'F' FOR ALL COMMODITIES INCLUD-"Bоe░З"ING STOCK INDEX FUTURES CON-    TRACTS.":Бж27000:Бе4080Ce╕Ю:З"ENTER EXPIRATION MONTH OF THIS  OPTION OR FUTURES CONTRACT.":Бж27000:Бе4170C┌e┬Ю:З"ENTER THE STRIKING PRICE OF THE OPTION CONTRACT.  IT MUST BE A  MULTIPLE OF $5 FOR UNDERLYING   STOCK PRICES UNDER $100 OR A    MULTIPLE OF $10 FOR UNDERLYING  STOCK PRICES OF $100 AND ABOVE.":Бж27000:Бе4270D╦e╓Ю:З"IT ASSUMED THAT A TRS-80 COMPUT-ER CASSETTE RECORDER (CTR-80A)  OR ITS EQUIVALENT IS ATTACHED   TO THE CASSETTE PORT.  THE TAPE ABOUT TO BE READ IN SHOULD HAVE BEEN CREATED, USING THE 'SAVE   PRICES ON TAPE' FUNCTION.":Бж27000:Бе100E│eрЮ:З"IT ASSUMED THAT A TRS-80 COMPUT-ER CASSETTE RECORDER (CTR-80A)  OR ITS EQUIVALENT IS ATTACHED   TO THE CASSETTE PORT.  THE TAPE ABOUT TO BE WRITTEN CAN LATER   BE RESTORED TO THE DATABASE,    USING THE 'RESTORE PRICES FROM"E╪eтЗ"TAPE' FUNCTION.":Бж27000:Бе830FixЗ@480,"**PRESS <ANY KEY> TO CONTINvЕ Р(FL$,7,1)┤▓" "░ Р(FL$,8,1)│" "зC9(LF)│1:ДC9(LF)│0AEwЕ е(6)│0з127AКxАR9│1е е(6):╨#6,8 зF9$,5 зR1$,5 зR8$,1 зBS$:─#6,R9:ЕF9$┤▓FL$з122AоyR1(LF)│ Й(R1$):R8(LF)│ Й(R8$):РA╫zЛR9:АR9│1е е(6):─#6,R9:ЕBS$┤▓"A"з125Aў{Е( Й(R8$)м Й(R1$)л1)┤H9з125Bf|╨#6,8 зF9$,5 зR1$,5 зR8$,1 зBS$:╘F9$│FL$:╘R1$│R1$:╘R8$│R8$:╘BS$│"U":R1(LF)│ Й(R1$):R8(LF)│ Й(R8$):┼#6,R9:РBv}ЛR9:ЕH9│0зСBч~R9│ е(6)л1:╘R1$│ И( Й(R8$)л1):R1(LF)│ Й(R1$):╘R8$│ И( Й(R1$)лH9м1):R8(LF)│ Й(R8$):╘BS$│"U":╘F9$│FL$:┼#6,R9:РC╨╨#6,8 зF9$,5 зR1$,5 зR8$,1 зBS$:╘F9$│FL$:╘R1$│ И(1):R1(LF)│1:╘R8$│ И(H9):R8(LF)│H9:╘BS$│"U":R9│1:┼#6,R9:Р:R9│RCм1лR1(LF):╨#5,2 зJV$,2 зJC$,2 зJH$,2 зJL$:─#5,R9:VX│ К( О(JV$,1))н256л К( П(JV$,1)):VX$│ И(VX):Е К( П(JC$,1))▓127з132CтАЕC9(LF)│1з131DLБPX│ К( О(JC$,1))л К( П(JC$,1))о16:PH│ К( О(JH$,1))л К( П(JH$,1))о16:PL│ К( О(JL$,1))л К( П(JL$,1))о16D]ВPX$│ И(PX):РD╨ГPX│ К( О(JC$,1))л К( П(JC$,1))о100:PH│ К( О(JH$,1))л К( П(JH$,1))о100:PL│ К( О(JL$,1))л К( П(JL$,1))о100:Бе130EаДPX│ К( О(JC$,1))н128:R9│ К( П(JC$,1)):R9│(R9)░(127):PX│(PXлR9)о10:PH│ К( О(JH$,1))н128:R9│ К( П(JH$,1)):R9│(R9)░(127):PH│(PHлR9)о10:PL│ К( О(JL$,1))н128:R9│ К( П(JL$,1)):R9│(R9)░(127):PL│(PLлR9)о10:Бе130FЕVX│ Й(VX$):PX│ Й(PX$):╨#5,2 зJV$,2 зJC$,2 зJH$,2 зJL$:L9│ Ш(VXо256):R9│VXмL9н256:╘JV$│ Л(L9)л Л(R9):ЕPX▓256▒PH▓256з138F-ЖЕC9(LF)│1з137F▓ЗL9│ Ш(PX):R9│(PXмL9)н16:╘JC$│ Л(L9)л Л(R9):L9│ Ш(PH):R9│(PHмL9)н16:╘JH$│ Л(L9)л Л(R9):L9│ Ш(PL):R9│(PLмL9)н16:╘JL$│ Л(L9)л Л(R9)F╬ИR9│RCм1лR1(LF):┼#5,R9:РGqЙL9│ Ш(PX):R9│ Ш((PXмL9)н100л.5):╘JC$│ Л(L9)л Л(R9):L9│ Ш(PH):R9│ Ш((PHмL9)н100л.5):╘JH$│ Л(L9)л Л(R9):L9│ Ш(PL):R9│ Ш((PLмL9)н100л.5):╘JL$│ Л(L9)л Л(R9):Бе136H_КPX│ Ш(PXн10л.5):L9│ Ш(PXо128):R9│PXмL9н128:R9│(R9)▒(128):╘JC$│ Л(L9)л Л(R9):PH│ Ш(PHн10л.5):L9│ Ш(PHо128):R9│PHмL9н128:R9│(R9)▒(128):╘JH$│ Л(L9)л Л(R9):PL│ Ш(PLн10л.5):L9│ Ш(PLо128):R9│PLмL9н128:R9│(R9)▒(128):╘JL$│ Л(L9)л Л(R9):Бе136HБЛR1(LF)│0:АR9│1е5:ЕR1(R9)┤▓0зРHТМЛR9:Ъ#6,#5:РH┬НЪ:Е Ж(32764)│0зО"MENU/BAS:0":ДО"MENU/BAS:1" Ш(PHн10л.5):L9│ Ш(PHо128):R9│PHмL9н128:R9│(R9)▒(128):╘JH$                                                                                                                                                                                                                                                                 #а+
Е Ж(32762)┤▓0з10:Д49000+1
Е Ж(32762)│1з15+KЕ Ж(32762)│2з310:Д710+лХ1000:Т32762,0:╤6:DR$│ П( И( Ж(32764)),1):Бж2120:Ю0:З@35," RESTORE PRICES FROM TAPE ";:Бе60,%8З@384, б(32, Л(191));:З@448, б(32, Л(191));:З@416, Л(191);ER$; Л(191);:а190,8:АI│1е200:ЛI:а190,8:АI│1е200:ЛI:а190,8:Р,=<Бж4000:ЕTIC$│""з100,mKЕTIC$│"ZZZZ"зA$│"ZZZZ":Ъ#4:О"MENU/BAS:"лDR$,╦PER$│" PRICE SERIES ALREADY ON DISK ":Бж56:АIG│96е128й32:З@IG, б(32, Л(128));:ЛIG:Ъ#4:Бе60-8dЮ0:З@197," PLACE CASSETTE INTO    ";:З@229," TAPE RECORDER - PRESS  ";:З@261," <PLAY> - THEN <ENTER>  ";-\nK$│ Т:ЕK$│"?"з26070:ДЕK$│""з110.+xЮ0:З@230," RESTORING PRICES ";:F$│A$л О("      ",6м З(A$))лMX$лSS$:Щ"I",м1,F$:Й#м1,A1$,A2$,A3$,A4$,A5$,A6$,A7$,A8$,A9$,A0$:Ъ#м1:╨#4,6 зTIC$,6 зLD$,4 зLR$,4 зMR$,9 зCU$,1 зOP$,6 зED$,1 зMC$,1 зSC$,1 зST$/ЫR│ е(4)л1:╘TIC$│A1$:╘LD$│A2$:╘LR$│A3$:╘MR$│A4$:╘CU$│A5$:╘OP$│A6$:╘ED$│A7$:╘MC$│A8$:╘SC$│A9$:╘ST$│A0$:┼#4,R:Щ"I",м1,"PRICES":LF│2:FL$│F$:H9│ Й(MR$):Бж40000:MX│ Й(MR$):АI│1еMX:Й#м1,VX,PH,PL,PX:LF│2:RC│I:Бж41005:ЛI:Ъ#м1:LF│2:Бж41500:Ъ#1/f
Ю0:З@226," PRICE RESTORATION FINISHED ";:АI│1е1000:ЛI:О"MENU/BAS:"лDR$:К/В
6Е Ж(32762)│2з320:Д49000/с
@Х1000:Т32762,0:╤6:DR$│ П( И( Ж(32764)),1):Бж2120:Ю0:З@36," DELETE A PRICE SERIES  ";:Бе3900[
|З@384, б(32, Л(191));:З@448, б(32, Л(191));:З@416, Л(191);ER$; Л(191);:а190,8:АI│1е200:ЛI:а190,8:АI│1е200:ЛI:а190,8:Р0t
ЖБж4000:ЕTIC$┤▓""з4200╘
ЪER$│"  SERIES NOT FOUND- RE-ENTER  ":Бж380:АIG│96е128й32:З@IG, б(32, Л(128));:ЛIG:Ъ#4:Бе3901
дЕTIC$│"ZZZZ"зA$│"ZZZZ":Ъ#4:О"MENU/BAS:"лDR$1Ч
оF$│TIC$лMC$лSC$:Щ"D",#2,"TEMP/DAT",39:╨#2,6 зA1$,6 зA2$,4 зA3$,4 зA4$,9 зA5$,1 зA6$,6 зA7$,1 зA8$,1 зA9$,1 зA0$:RP│1:АK│1е е(4):─#4,K:ЕK│Iз5202
Ї╘A1$│TIC$:╘A2$│LD$:╘A3$│LR$:╘A4$│MR$:╘A5$│CU$:╘A6$│OP$:╘A7$│ED$:╘A8$│MC$:╘A9$│SC$:╘A0$│ST$:┼#2,RP:RP│RPл12ХЛK:Ъ#2:Ъ#4:╥"SETUP/DAT":╓"TEMP/DAT"е"SETUP/DAT":Щ"D",#6,"PRICEMAP/DAT:0",19:╨#6,8 зF9$,5 зR1$,5 зR8$,1 зBS$:АR9│1е е(6):─#6,R9:ЕF9$┤▓F$з6402┐b╘F9$│"        ":╘BS$│"A":┼#6,R9:Бе6502╟АЛR93КЪ#6:Ю0:З@229," PRICE SERIES DELETED ";:О"MENU/BAS:"лDR$:К3!╞Е Ж(32762)│3з720:Д490003~╨Х1000:Т32762,0:╤6:DR$│ П( И( Ж(32764)),1):Бж2120:Ю0:З@37," SAVE PRICES ON TAPE  ";:Бе7903°З@384, б(32, Л(191));:З@448, б(32, Л(191));:З@416, Л(191);ER$; Л(191);:а190,8:АI│1е200:ЛI:а190,8:АI│1е200:ЛI:а190,8:Р4Бж0зTT│TTл1/'ЛIX/Q(TT│TTл Й( Р(DT$,5,2)):DN│J1лTTм1:DN│DNм Ш(DNо7)н7:ЕDN│0зDN│7/W)Р/Б*Ж 31,28,31,30,31,30,31,31,30,31,30,31/╛+АIZ│1е12:НMT(IZ):ЛIZ:Р:DT$│MO$л"01":Бж36:C│6мDN:ЕC│м1з45/с,F3│Cл15:DT$│MO$л П( И(F3),2):Р/Ї-DT$│MO$л"21":Р08.YY$│ О(DT$,2):MM$│ Р(DT$,3,2):DD$│ П(DT$,2):Бж36:ЕDN│6зC│3:ДC│10▒/DD│ Й(DD$)лC:MM│ Й(MM$):ЕDD┤│MT(MM)з52:ДYR│ Й(YY$):ЕDD│29░MM│2░YRм Ш(YRо4)н4│0з52:ДЕDD│30░MM│2░YRм Ш(YRо4)н4│0зDD│290с0YY│ Й(YY$):DD│DDмMT(MM):MM│MMл1:ЕMM│13зMM│10є1ЕMM│1зYY│YYл11K2YY$│ П( И(YY),2):MM$│ П( И(MM),2):DD$│ П( И(DD),2):Е О(MM$,1)│" "зMM$│"0"л П(MM$,1)1T3Бе531i4DD$│ П( И(DD),2)1О5Е О(DD$,1)│" "зDD$│"0"л П(DD$,1)1д6ND$│YY$лMM$лDD$:Р1╖7Е З(DT$)┤▓6з601ы8АIG│1е6:X$│ Р(DT$,IG,1):Е К(X$)┤48▒ К(X$)▓57з602&9ЛIG:MJ│ Й( Р(DT$,3,2)):DV│ Й( П(DT$,2)):ЕMJ▓12▒MJ┤1з602t:ЕDV▓│1░DV┤│MT(MJ)з59:ДYR│ Й( О(DT$,2)):ЕYRм Ш(YRо4)н4│0░MJ│2░DV│29з59:Д602};Бе102о<ER$│"   INVALID DATE  - RE-ENTER   ":Бж3:Бе82╝=ЕA$│""з672ю>АIX│1е З(A$):X$│ Р(A$,IX,1):ЕX$│"."▒X$│" "з662¤?ЕX$│"+"з663@Е К(X$)▓│48░ К(X$)┤│57з663$AБе6733BЛIX:FF│0:Р3╨CFF│1:X$│"":АIX│1408е1503:X$│X$л Л( Ж(IX)):ЛIX:З@384, б(96, Л(191));:З@417,"     BAD INPUT - RE-ENTER     ";:АIG│1е3:а190,8:АIH│1е200:ЛIH:ЛIG:З@384,X$;:Р4~DАIG│164е292й32:З@IG, б(24, Л(255));:ЛIG:З@198,"    ENTER IDENT.    ";:З@230,"       SYMBOL       ";:З@262,"  OR 'ZZZZ' TO QUIT ";:АIG│352е448й32:З@IG, б(32, Л(128));:ЛIG4╪EЗ@363,"   AAAA";:З@362, Л(128);:ЙA$:Е О(A$,1)│"?"з104:ДЗ@363, б(21, Л(128));:J│ З(A$)4ЁFЕ Р(A$,J,1)┤▓" "з724 GJ│Jм1:Бе705HA$│ О(A$,J):ЕA$┤▓"ZZZZ"з7550ITIC$│"ZZZZ":Р5bJБж81:АIG│96е128й32:З@IG, б(32, Л(128));:ЛIG:Р6[KЮ0:Бж74:АIG│100е292й32:З@IG, б(24, Л(255));:ЛIG:З@133," ENTER 'S' FOR STOCK  ";:З@165,"       'C' FOR CALL   ";:З@197,"       'P' FOR PUT    ";:З@229,"       'I' FOR INDEX  ";:З@261,"       'F' FOR FUTURE ";:З@365,"   A"; Л(128);:З@364, Л(128);6кLZZ$│A$:ЙA$:Е О(A$,1)│"?"зA$│ZZ$:Бе106:ДЗ@369, б(15, Л(128));:TY$│A$:A$│ZZ$6┬MЕTY$│"S"▒TY$│"I"з956┌NЕTY$│"F"▒TY$│"C"з826ъOЕTY$│"P"з827PER$│"   INVALID ENTRY - RE-ENTER   ":Бж3:Бе757JQАIG│384е448й32:З@IG, б(32, Л(128));:ЛIG:Р7шRЮ0:Бж81:Бж103:З@135,"      ENTER       ";:З@167," EXPIRATION MONTH ";:З@199,"  (FOR EXAMPLE -  ";:З@231,"    ENTER '01'    ";:З@263,"   FOR JANUARY)   ";8USЗ@364,"   AA";:З@363, Л(128);:ZZ$│A$:ЙA$:Е О(A$,1)│"?"зA$│ZZ$:Бе108:ДЗ@369, б(15, Л(128));:EM$│A$:A$│ZZ$8qTАI│1е12:ЕEM$┤▓MO$(I)з888БUЕTY$│"P"з878ХVMX$│CC$(I):Бе898йWMX$│PC$(I):Бе898▐XЛI:ER$│"   INVALID ENTRY - RE-ENTER   ":Бж3:Бе828ЎYSS$│" ":ЕTY$│"F"з979ФZЮ0:Бж103:Бж81:З@135,"      ENTER       ";:З@167,"  OPTION STRIKING ";:З@199," PRICE (EG. '75'  ";:З@231," FOR A $75 STRIKE ";:З@263,"      PRICE)      ";:[З@364,"   NNN";:З@363, Л(128);:ZZ$│A$:ЙA$:Е О(A$,1)│"?"зA$│ZZ$:Бе109:ДЗ@369, б(15, Л(128));:SS$│A$:A$│ZZ$:\АI│1е30:ЕSS$┤▓S$(I)з94:1]SS$│S1$(I):Бе97:f^ЛI:ER$│"   INVALID ENTRY - RE-ENTER   ":Бж3:Бе90:Д_ЕTY$│"I"зM1$│"Z":ДM1$│" ":Ш`MX$│M1$:SS$│" ";(aЩ"D",#4,"SETUP/DAT",39:╨#4,6 зTIC$,6 зLD$,4 зLR$,4 зMR$,9 зCU$,1 зOP$,6 зED$,1 зMC$,1 зSC$,1 зST$:АI│1е е(4):─#4,I:Е О(TIC$, З(A$))┤▓A$з102;:bЕTY$┤▓OP$з102;LcЕMX$┤▓MC$з102;^dЕSS$┤▓SC$з102;deР;ufЛI:TIC$│"":Р;гgАIG│100е292й32:З@IG, б(24, Л(255));:ЛIG:Р<МhЮ:З"THE 'IDENT. SYMBOL IS USUALLY   THE TICKER SYMBOL FOR THE SECUR-ITY ALTHOUGH IT DOESN'T HAVE TO BE (EG. 'SILVER' COULD BE USED  FOR THAT COMMODITY).  IT MUST   MATCH THE 'IDENT. SYMBOL' EN-   TERED WHEN THE SERIES WAS FIRST"=+iЗ"SET UP.  USE THE 'OBTAIN MASTER LIST' FUNCTION ON THE MAIN OR   UTILITY MENU TO GET A LIST OF   THE 'IDENT. SYMBOLS' ON THIS    DISKETTE.":Бж110:Ю0:Бе68>jЮ:З"ENTER TYPE OF PRICE SERIES.  IT SHOULD MATCH THE 'TYPE' DEFINED WHEN THE SERIES WAS SET UP.  USE 'I' FOR INDICES SUCH AS THE    DJIA OR FOR MUTUAL FUNDS.  USE  'S' FOR STOCKS OR BONDS.  USE   'F' FOR ALL COMMODITIES INCLUD-">NkЗ"ING STOCK INDEX FUTURES CON-    TRACTS.":Бж110:Бе75>ЮlЮ:З"ENTER EXPIRATION MONTH OF THIS  OPTION OR FUTURES CONTRACT.":Бж110:Бе82?9mЮ:З"ENTER STRIKING PRICE OF OPTION. IT MUST BE A MULTIPLE OF 5 FOR  PRICES UNDER 100 OR A MULTIPLE  OF 10 FOR PRICES OF 100 AND     ABOVE.":Бж110:Бе90?fnЗ@480,"**PRESS <ANY KEY> TO CONTINUE**";?~oX$│ Т:ЕX$│""з111:ДР?°pЮ:З"ENTER THE EARLIEST DATE OF DATA TO BE STORED IN THE DATABASE.   ENTER SIX DIGITS WITH THE YEAR  FIRST.":Бж110:Бе8@ЕqЮ:З"ENTER VOLUME IN 100'S OF SHARES TRADED.  SECURITY PRICES SHOULD BE ENTERED IN DECIMAL FORMAT    (EG. $95 1/8 = $95.125).":Бж110:Бе18@УrЕOY│1з116@╡sЩ"D",#5,"PRICES/DAT:0",8:OY│1@▀tЩ"D",#6,"PRICEMAP/DAT:0",19:ЕOX│1з118@√uМR1(5),R8(5),C9(5):OX│1A4A$)┤8зEN│ З(A$):ДEN│8A<ЪАIX│1еEN:X$│ Р(A$,IX,1):ЕX$│" "з157AeЫЕX$│"/"зTG│9:BG│IXл1:EN│ З(A$):Бе161AБЬ Р(FX$,TG,1)│X$:TG│TGл1AмЭЛIX:Е З(A$)┤│8з Р(FX$,9,3)│"DAT":Бе166A┼ЮЕ Р(A$,9,1)┤▓"/"з170A╪ЯЕ З(A$)▓12з170AшаBG│10:EN│12B
бЕEN▓ З(A$)зEN│ З(A$)BвЕENмBG▓2з170B;гАIX│BGеEN:X$│ Р(A$,IX,1):ЕX$│" "з165BWд Р(FX$,TG,1)│X$:TG│TGл1B_еЛIXBmжЕJX│1з169B╜зАIX│3е11:▀0,17,IX,X$,B$:X$│X$л О(B$,127):АIY│1е225й32:Е Р(X$,IY,11)│FX$з169B∙иЛIY:ЛIX:FF│2:ER$│"     FILE NOT ON DISKETTE     ":Бе171CйFF│0:РC2кFF│1:ER$│"      INVALID FILE NAME       "CнлX$│"":АIX│1408е1503:X$│X$л Л( Ж(IX)):ЛIX:З@384, б(96, Л(191));:З@417,ER$;:АIG│1е3:а190,8:АIX│1е200:ЛIX:ЛIG:З@384,X$;:РC▌мЪ:Е Ж(32764)│0зО"MENU/BAS:0":ДО"MENU/BAS:1"Cїн╤2,256:Т32762,0:Бе31CйF                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 "├&
└4:Е Ж(32762)│1з2:Д141&ИХ1000:Т32762,0:╤6:МMT(13):DR$│ П( И( Ж(32764)),1):Бж32:Бж42:Ю0:З@34," MANUAL PRICE HISTORY INPUT ";:Бе4'З@384, б(32, Л(191));:З@448, б(32, Л(191));:З@416, Л(191);ER$; Л(191);:а190,8:АI│1е200:ЛI:а190,8:АI│1е200:ЛI:а190,8:З@384, б(96, Л(128));:Р'-Бж68:ЕTIC$┤▓""з6'МER$│"  SERIES NOT FOUND- RE-ENTER  ":Бж3:АIG│96е128й32:З@IG, б(32, Л(128));:ЛIG:Ъ#4:Ю0:Бе4'╝ЕTIC$│"ZZZZ"зA$│"ZZZZ":Ъ#4:О"MENU/BAS:"лDR$'┼RS│I(}Ю0:АIG│102е198й32:З@IG, б(20, Л(255));:ЛIG:З@135," ENTER START DATE ";:З@167,"     FOR DATA     ";:З@267,"   YYMMDD";:З@266, Л(128);:ЙDT$:Е О(DT$,1)│"?"з112:ДЗ@276, б(12, Л(128));(Ж	Бе55(Ю
SV$│LD$:ЕDT$│"Z"з31(┬DT│ Й(DT$):Бж36:ЕDN▓│2░DN┤│6з13(єER$│"   NOT A WEEKDAY - RE-ENTER   ":Бж3:Бе8)
Е Й(LD$)│0з16)2SJ$│DT$:DT$│LD$:Бж46:DT$│SJ$:ЕDT$│ND$з16)cER$│"INVALID START DATE - RE-ENTER ":Бж3:Бе8)ВR│ Й(LR$)л1:ЕR▓ Й(MR$)зR│1)нF$│TIC$лMC$лSC$:LF│2:FL$│F$:Бж114:Бе18* Ю0:АIG│102е198й32:З@IG, б(20, Л(255));:ЛIG:АIG│326е390й32:З@IG, б(20, Л(255));:ЛIG:З@359," OR '-9' TO QUIT  ";*╬З@135," ENTER VOLUME FOR ";:З@167,"     "; Р(DT$,3,2);"/"; П(DT$,2);"/"; О(DT$,2);"     ";:З@266, б(13, Л(128));:З@268,"   NNNNN";:З@267, Л(128);:ЙVX$:Е О(VX$,1)│"?"з113+З@276, б(12, Л(128));:З@320, б(96, Л(128));:Бе23+.З@266,"   NNNN.NNNN";:З@265, Л(128);:Р+JЗ@278, б(10, Л(128));:Р+[ЕVX$│"-9"з30+uA$│VX$:Бж61:ЕFF┤▓0з18+▒З@142," HIGH ";:Бж21:ЙA$:Бж22:Бж61:ЕFF┤▓0з25:ДPH│ Й(A$)+эЗ@142," LOW  ";:Бж21:ЙA$:Бж22:Бж61:ЕFF┤▓0з26:ДPL│ Й(A$),&З@142,"CLOSE ";:Бж21:ЙA$:Бж22:Бж61:ЕFF┤▓0з27:ДPX$│A$,dLF│2:RC│R:Бж133:Бж46:SV$│DT$:DT$│ND$:R│Rл1:ЕR▓ Й(MR$)зR│1,mБе18,╥╘LD$│SV$:R│Rм1:╘LR$│ И(R):┼#4,RS:Ю0:З@230,"UPDATING COMPLETED ";:LF│2:Бж139:Ъ#4:О"MENU/BAS:"лDR$,эЪ#4:О"MENU/BAS:"лDR$:К-U МMO$(13),PC$(13),CC$(13),S$(30),S1$(30):АI│1е12:НMO$(I),CC$(I),PC$(I):ЛI:АI│1е30:НS$(I),S1$(I):ЛI:Р-о!Ж01,A,M,02,B,N,03,C,O,04,D,P,05,E,Q,06,F,R,07,G,S,08,H,T,09,I,U,10,J,V,11,K,W,12,L,X-я"Ж110,b,120,d,130,f,140,h,150,j,160,l,170,n,180,p,190,r,200,t.X#Ж5,A,10,B,15,C,20,D,25,E,30,F,35,G,40,H,45,I,50,J,55,K,60,L,65,M,70,N,75,O,80,P,85,Q,90,R,95,S,100,T.к$YR│ Й( О(DT$,2)):C│YRм81л Б((YRм81)о4):J1│5лCл700:J1│J1м Ш(J1о7)н7:ЕJ1│0зJ1│7.┘%MO│ Й( Р(DT$,3,2)):TT│0:АIX│1е12:ЕMO│IXз40/&TT│TTлMT(IX):ЕIX│2░YRм Ш(YRо4)н4│OUND IN STATEMENT ";SN:ЕOZ│2зЗ#м2,"INVALID SECURITY IDENTIFICATION FOUND IN STATEMENT ";SN/i,D│1:Р:D│1:Р/Ш-NC│ З(OP$):NB│ Ш(NCо32):ЕNBн32│NCзD│0:ДD│1/▒.NB│(NBлD)н2:D│NBл2:Р0./Бж113:ЕOP$│"NG"зЗ"INVALID FILE NAME FOUND IN        STATEMENT ";SN:ЕOZ│2зЗ#м2,"INVALID FILE NAME FOUND IN STATEMENT ";SN0>0D│1:Р:D│1:Р0d1D│1:P│ Ю(1,OP$,","):Е З(OP$)│Pз540В2Q│ Ю(Pл1,OP$,","):ЕP│0з540П3ЕQ┤▓0з540╠4SV$│OP$:OP$│ П(OP$, З(OP$)мP):Бж77:ЕAN$│"A"зOP$│SV$:Бе540╥5Р1(6З"INVALID OPERAND IN STATEMENT ";SN:ЕOZ│2зЗ#м2,"INVALID OPERAND IN STATEMENT ";SN1.7Р1Ю8Ъ#2:З"COMPILATION OF COMMAND STREAM     IS COMPLETE":ЕOZ│2зЗ#м2,"COMPILATION OF COMMAND STREAM IS COMPLETE"1╖9Ъ#1:О"MENU/BAS:"лDR$1╠:╘O$│" ":╘AF$│" "1▀;╘DU$│" ":D│1:Р1■<Бж77:ЕAN$│"A"зOP$│"1":Бе642'=ЕCD$│"4 "зX│ Й(OP$):X│Xн60:OP$│ И(X)2C>ЕCD$┤▓"9 "░CD$┤▓"20"з642╘?Бж125:ЕOP$│"NG"зOP$│"NG":AN$│"A":З"UNDEFINED STATEMENT NUMBER IN     STATEMENT ";SN:ЕOZ│2зЗ#м2,"UNDEFINED STATEMENT NUMBER IN STATEMENT ";SN2ю@╘O$│OP$:╘AF$│AN$:Бе592№AБж77:Бе643BБж83:ЕOP$│"NG"зOP$│"ZZZZ"3+CAN$│"A":Бе643zDБж117:╨#1,2 зCD$,1 зDU$,1 зAF$,12 зO$:╘CD$│CS$:╘O$│" ":╘AF$│"A":╘DU$│" ":Р3ЙEБж113:Бе643╝FD│1:╘DU$│" ":P│ Ю(1,OP$,","):ЕP│ З(OP$)▒P│0з733█GQ│ Ю(Pл1,OP$,","):ЕQ┤▓0з734jHSV$│OP$:OP$│ П(OP$, З(OP$)мP):Бж125:X│ Й(OP$):Y│ Ш(Xо256):X│XмYн256:OP$│ О(SV$,Pм1)л О("          ",10мPл1)л Л(Y)л Л(X):╘O$│OP$:╘AF$│"A":Р4ЛI╘CD$│"04":╘O$│"1":╘AF$│"N":Р4жJАJ│1еNO:ЕMN$(J)│CO$з764│KЛJ:J│9994╣LР4╥MЕ З(OP$)│0зAN$│"A":Р5NAN$│"N":АI│1е З(OP$):C$│ Р(OP$,I,1):Е К(C$)▓│48░ К(C$)┤│57з825*OЕC$│"+"▒C$│"-"з8259PЕC$│"."з825GQAN$│"A":Р5PRЛI:Р5jSЕ З(OP$)│0зOP$│"NG":Р5СTP1│ Ю(1,OP$,","):ЕP1┤│1зOP$│"NG":Р5╥UTIC$│ О(OP$,P1м1):OP$│ Р(OP$,P1л1):P2│ Ю(1,OP$,","):ЕP2▓1з905чVЕP2│1зOP$│"NG":Р6
WЕ З(OP$)│0зOP$│"NG":Р65XЕ О(OP$,1)│"S"▒ О(OP$,1)│"I"зT$│ О(OP$,1):Бе1106DYOP$│"NG":Р6{ZT$│ О(OP$,P2м1):OP$│ Р(OP$,P2л1):ЕT$│"S"▒T$│"P"з946С[ЕT$│"C"▒T$│"I"з946а\ЕT$│"F"з946п]OP$│"NG":Р6╞^ЕT$│"S"▒T$│"I"з1106х_P3│ Ю(1,OP$,","):ЕP3▓1з1016·`ЕP3│1зOP$│"NG":Р7aЕ З(OP$)│0зOP$│"NG":Р7/bЕ З(OP$)│1зOP$│"0"лOP$7HcЕT$│"F"зM$│OP$:Бе1027WdOP$│"NG":Р7РeM$│ О(OP$,P3м1):OP$│ Р(OP$,P3л1):Е З(M$)│1зM$│"0"лM$7мfАI│1е12:ЕM$┤▓MO$(I)з1047╢gБе1057╚hЛI:OP$│"NG":Р7╪iЕT$│"F"з1117ЄjЕ З(OP$)│0зOP$│"NG":Р8kАI│1е30:ЕOP$┤▓S$(I)з1098 lSK$│OP$:Бе11282mЛI:OP$│"NG":Р8NnM$│"  ":SK$│"   ":Бе1128[oSK$│"  "8╛pNC│ З(TIC$):TIC$│TIC$л О("      ",6мNC):NC│ З(SK$):SK$│SK$л О("   ",3мNC):OP$│TIC$лT$лM$лSK$:Р8уqP│ Ю(1,OP$,"/"):ЕP┤│1зOP$│"NG":Р8ўrЕP▓9зOP$│"NG":Р9(sT$│ Р(OP$,Pл1):Е З(T$)┤1▒ З(T$)▓3зOP$│"NG":Р9.tР9CuNC│ З(OP$):R│Lл19RvЕNC┤16з1219awЕNC│16з1229пxB$│ О(OP$,16):OP$│ Р(OP$,17):NC│NCм16:╨#1,16 зG$:╘G$│B$:┼#1,R:R│Rл1:Бе1189▌yB$│OP$л О("                ",16мNC):Бе1239шzB$│OP$:Q{╨#1,16 зG$:╘G$│B$:┼#1,R:NB│RмL:MD│NBм Ш(NBо2)н2:ЕMD┤▓0зR│Rл1:╨#1,16 зG$:╘G$│"                ":┼#1,R:|R│Rл1:╨#1,16 зG$:╘G$│"??":┼#1,R:D│RмLл1:Р:Я}АI│1еSI:Е Й(OP$)┤▓ST(I)з127:╟~OP$│ П( И(LO(I)), З( И(LO(I)))м1):Р:┘ЛI:OP$│"NG":Р;ЪАМCH$(7),RC$(7):CH$(1)│"+":RC$(1)│ Л(93):CH$(2)│"-":RC$(2)│ Л(21):CH$(3)│"R":RC$(3)│ Л(9):CH$(4)│"L":RC$(4)│ Л(8):CH$(5)│"E":RC$(5)│ Л(13):CH$(6)│"!":RC$(6)│"!":CH$(7)│"B":RC$(7)│" ":MC│7:Р;вБB│1;╧ВNC│ З(OP$):P│ Ю(B,OP$,"!"):ЕP│0▒P│NCз135;№ГC$│ Р(OP$,Pл1,1):АI│1еMC:ЕC$┤▓CH$(I)з133</ДOP$│ О(OP$,Pм1)лRC$(I)л Р(OP$,Pл2):B│Pл1:Бе130<бЕЛI:З"INVALID SPECIAL CHARACTER IN      STATEMENT ";SN:ЕOZ│2зЗ#м2,"INVALID SPECIAL CHARACTER IN STATEMENT ";SN<╡ЖOP$│ О(OP$,P):Р<╗ЗР<╘ИP│ Ю(1,A$," "):J│Pл1<эЙЕ Р(A$,J,1)┤▓" "з139<¤КJ│Jл1:Бе137=&ЛЕ Р(A$,J,1)│"'"▒ Р(A$,J,3)│"REM"з141=7МЕRF│0з14:Д22=HНЕRF│0з11:Д19=╪ОЗ"NO END STATEMENT ENCOUNTERED -    ASSUMED TO BE AT END OF FILE":ЕOZ│2зЗ#м2,"NO END STATEMENT ENCOUNTERED  - ASSUMED TO BE AT END OF FILE"=сПБе18=ъРБе56>║СЮ:З"THIS SHOULD BE THE NAME OF THE  FILE BUILT UNDER THE 'BASIC'    EDITOR WITH THE NON-COMPACTED   COMMAND STREAM STATEMENTS.  SEE USER'S MANUAL FOR INFORMATION   ON DEFINING COMMAND STREAMS.":Бж147:Бе6?8ТЮ:З"THIS SHOULD BE THE NAME OF THE  FILE IN WHICH THE COMPACTED VER-SION OF THE COMMAND STREAM WILL BE STORED.":Бж147:Бе6?eУЗ@480,"**PRESS <ANY KEY> TO CONTINUE**";?wФЕ Т│""з148:ДР?▀ХМMO$(13),PC$(13),CC$(13),S$(30),S1$(30):АI│1е12:НMO$(I),CC$(I),PC$(I):ЛI:АI│1е30:НS$(I),S1$(I):ЛI:Р@8ЦЖ01,A,M,02,B,N,03,C,O,04,D,P,05,E,Q,06,F,R,07,G,S,08,H,T,09,I,U,10,J,V,11,K,W,12,L,X@бЧЖ5,A,10,B,15,C,20,D,25,E,30,F,35,G,40,H,45,I,50,J,55,K,60,L,65,M,70,N,75,O,80,P,85,Q,90,R,95,S,100,T@тШЖ110,b,120,d,130,f,140,h,150,j,160,l,170,n,180,p,190,r,200,tAЩFX$│ б(11," "):TG│1:Е З( g&Е Ж(32762)│1з1:Д48&.
Х2000:Т32762,0:╤6&ЯЮ0:З@38," PRINT RECV'D INFO  ";:АIG│134е230й32:З@IG, б(20, Л(255));:ЛIG:OZ│ Ж(32763):DR$│ П( И( Ж(32764)),1)'4З@167," ENTER FILE NAME  ";:З@199,"  TO BE OUTPUT    ";:З@296,"   AAAAAAAA/EEE ";:З@295, Л(128);:HE│1:Бж23:ЕA$│"?"з2:ДЗ@312, б(8, Л(128));:F$│A$'FБж31:ЕFZ┤▓0з3(ЕOZ│0з8:ДЮ0:З@133,"'S' FOR SCREEN OUTPUT ";:З@165,"'P' FOR PRINTER OUTPUT";:АIG│261е325й32:З@IG, б(22, Л(207));:ЛIG:З@295," TOUCH 'S' OR 'P' ";:HE│2:Бж24:ЕA$│"?"з5:ДЕA$┤▓"S"░A$┤▓"P"з5(QЕA$│"P"зЮ0:З@225," HOLD DOWN 'S' TO STOP OUTPUT ";:АIG│1е1000:ЛIG:OZ│2:Бе8(ZOZ│0(rЩ"I",#1,F$:ЕOZ│0зЮ0({	CT│0(М
Е М(1)│м1з18(к╗Й#1,A$:З#мOZ,A$:ЕOZ│2з16(└CT│CTл1:ЕCT┤13з17)
CT│0:З б(32, Л(128));"TOUCH     'S'   TO STOP LISTING         <SPACE> TO CONTINUE";),K$│ Т:ЕK$│""з14)CЕK$│"S"з22:ДЮ:Бе10)XG$│ Т:ЕG$│"S"з19)aБе10)xЗ#мOZ," ":ЕOZ│0з20)вЗ#мOZ,"FILE PRINTOUT COMPLETED ":Бе22)╥З б(32, Л(128));"TOUCH <SPACE> TO CONTINUE")цK$│ Т:ЕK$│""з21*3Ю0:З@228," FILE PRINTOUT COMPLETE ";:АI│1е1000:ЛI:Ъ#1:О"MENU/BAS:"лDR$:К*OЙA$:Е О(A$,1)│"?"з26:ДР*oA$│ Т:ЕA$│"?"з26:ДЕA$│""з24*uР*ДИHEБе27,28*ыЮ:З"ENTER THE NAME OF THE FILE TO   BE DISPLAYED ON THE SCREEN OR   OUTPUT ON THE PRINTER.":Бж29:Р+OЮ:З"OUTPUT ON THE SCREEN IS FASTER  AND QUIETER.  HARD COPY IS GOOD FOR RECORD KEEPING.":Бж29:Р+ГЗ@480,"**PRESS <ANY KEY> TO CONTINUE**";:A$│"?"+ФЕ Т│""з30:ДР+╞FX$│ б(11," "):TG│1:Е З(A$)┤8зEN│ З(A$):ДEN│8+э АIX│1еEN:X$│ Р(A$,IX,1):ЕX$│" "з35,!ЕX$│"/"зTG│9:BG│IXл1:EN│IXл3:Бе39,/" Р(FX$,TG,1)│X$:TG│TGл1,Y#ЛIX:Е З(A$)┤│8з Р(FX$,9,3)│"DAT":Бе43,q$Е Р(A$,9,1)┤▓"/"з46,Г%Е З(A$)▓12з46,У&BG│10:EN│12,м'ЕEN▓ З(A$)зEN│ З(A$),╘(АIX│BGеEN:X$│ Р(A$,IX,1):ЕX$│" "з42,Ё) Р(FX$,TG,1)│X$:TG│TGл1,°*ЛIX-G+АIX│3е11:▀0,17,IX,X$,B$:X$│X$л О(B$,127):АIY│1е225й32:Е Р(X$,IY,11)│FX$з45-В,ЛIY:ЛIX:FZ│2:ER$│"     FILE NOT ON DISKETTE     ":Бе47-Н-FZ│0:Р-╗.FZ│1:ER$│"      INVALID FILE NAME       ".6/X$│"":АIX│1408е1503:X$│X$л Л( Ж(IX)):ЛIX:З@384, б(96, Л(191));:З@417,ER$;:АIG│1е3:а190,8:АIX│1е200:ЛIX:ЛIG:З@384,X$;:Р.f0Ъ:Е Ж(32764)│0зО"MENU/BAS:0":ДО"MENU/BAS:1"OT ON DISKETTE     ":Бе47-Н-FZ│0:Р-╗.FZ│1:ER$│"      INVALID FILE NAME       ".6/X$│"":АIX│1408е1503:X$│X$л Л( Ж(IX)):ЛIX:З@384, б(96, Л(191));: Ў&	
Бе2&#Е Ж(32762)│1з173:Д172&zХ2000,32761:OZ│ Ж(32763):DR$│ П( И( Ж(32764)),1):МMN$(20),TY(20),ST(1000),LO(1000)'kЖ GIVE, 3,CLS, 1,EWAIT, 1,TWAIT, 2,SAVEDATA, 1,PRINTCOPY, 5,PRINTMSG, 5,STOP, 1,GOPROCESS, 2,RETURN, 1,SETSECURITY, 4,GIVEIDENT., 1,GIVETYPE, 1,GIVEEXPIRE, 1,GIVESTRIKE, 1,EXECUTEMYPROG, 1,PRINTDATA, 1,GETANDGIVE, 1,TESTINPUT, 7,GOTO, 2'ЯNO│20:АI│1еNO:НMN$(I),TY(I):ЛI:Бж149:Бж128:FG│0(SЮ0:З@36," BUILD A COMMAND STREAM ";:АIG│103е199й32:З@IG, б(18, Л(255));:ЛIG:З@136," ENTER NAME OF  ";:З@168,"  SOURCE FILE   ";:З@264,"   AAAAAAAA/EEE";:З@263, Л(128);:ЕFG│1з9(ЕЙIN$:Е О(IN$,1)│"?"з145:ДЗ@279, б(9, Л(128));(кJX│0:A$│IN$:Бж153:ЕFF┤▓0з6:ДFG│1)>	З@148,"FOR";:З@169,"COMPACTED FILE";:З@264,"   AAAAAAAA/EEE";:З@263, Л(128);:ЙOT$:ЕOT$│"?"з146:ДЗ@279, б(9, Л(128));:A$│OT$:JX│1:Бж153:ЕFF┤▓0з9)Е
Ю:З"      COMMENTS AND ERRORS":Щ"D",#1,OT$,16:Щ"I",#2,IN$:L│3:SI│0)ЧЕ М(2)│м1з142)н╗Й#2,A$:ЕA$│""з11)╝
RF│0:Бе136*/Бж26:ЕCO$│"NG"зCO$│"TWAIT":OP$│"1":З"SYNTAX ERROR IN STATEMENT ";SN:ЕOZ│2зЗ#м2,"SYNTAX ERROR IN STATEMENT ";SN*AЕCO$│"END"з18*╟Бж74:ЕJ│999зCO$│"TWAIT":OP$│"1":J│4:З"INVALID OPERATION IN STATE-       MENT ";SN:ЕOZ│2зЗ#м2,"INVALID OPERATION IN STATEMENT ";SN+Бж129:ИTY(J)Бж39,40,42,43,45,47,49:SI│SIл1:ST(SI)│SN:LO(SI)│L:L│LлD:Бе11+,L│3:Ъ#2:Щ"I",#2,IN$+>Е М(2)│м1з144+T╗Й#2,A$:ЕA$│""з19+cRF│1:Бе136+КБж26:ЕCO$│"NG"зCO$│"TWAIT":OP$│"1"+ЬЕCO$│"END"з56+─Бж74:ЕJ│999зCO$│"TWAIT":OP$│"1":J│4,?╨#1,2 зCD$,1 зDU$,1 зAF$,12 зO$:╘CD$│ П( И(J), З( И(J))м1):CS$│CD$:Бж129:ИTY(J)Бж58,60,65,66,68,69,70:┼#1,L:L│LлD:Бе19,ИNC│ З(A$):P│ Ю(1,A$,"("):Q│ Ю(1,A$,")"):ЕQмP▓│2зSV$│ Р(A$,Pл1,QмPм1),┼P│ Ю(1,A$," "):SN│ Й( О(A$,Pм1)):A$│ Р(A$,Pл1):NC│ З(A$),рP│ Ю(1,A$," "):ЕP│0з30-A$│ О(A$,Pм1)л Р(A$,Pл1):Бе28-0P│ Ю(1,A$,"("):Q│ Ю(1,A$,")"):ЕP│0░Q│0з36-AЕP┤▓0░Q│0з35-R ЕP│0░Q┤▓0з35-`!ЕQмP┤2з35-~"OP$│ Р(A$,Pл1,QмPм1):Бе37-Ч#CO$│"NG":OP$│"":Бе38-о$CO$│A$:OP$│"":Бе38-▄%CO$│ О(A$,Pм1):Е О(CO$,5)│"PRINT"зOP$│SV$-т&Р-ь'D│1:Р.▓(Бж77:ЕAN$│"A"зЗ"NON-NUMERIC CHARACTERS FOUND IN   NUMERIC FIELD IN STATEMENT     ";SN;" - SET TO '1'":ЕOZ│2зЗ#м2,"NON-NUMERIC CHARACTERS FOUND IN NUMERIC FIELD IN STATEMENT ";SN;" - SET TO '1'".╝)D│1:Р.╞*D│1:Р/Y+Бж83:ЕOP$│"NG"зЗ"INVALID SECURITY IDENTIFICATION   FES INPUT):":X│64:З@X, Л(128);/%#Бе47/7$Е К(A$)│21з11/I%B$│B$лA$:Бе35/═&Ю:З"THIS IS THE NAME OF THE FILE TO CONTAIN THE PRICE REQUESTS ABOUTTO BE BUILT.  MULTIPLE REQUEST  FILES CAN BE BUILT.":Бж58:Р0╢'Ю:З"'U' - CAUSES A FILE TO BE BUILT       FOR DAILY UPDATES FROM DOW      JONES.  ALL STOCKS AND          LISTED PUTS AND CALLS BE-       ING TRACKED ON THIS DISK-       ETTE ARE INCLUDED IN THE        FILE.  IF MUTUAL FUNDS OR"1Ш(З"      BONDS ARE TO BE ACCESSED,       USE THE 'GENERAL' OPTION        FOR BUILDING A PRICE RE-        QUEST FILE.":З:З"'H' - USED TO BUILD A PRICE RE-       QUEST FILE FOR HISTORICAL       DATA FOR A SINGLE STOCK,":Бж582~)Ю:З"      LISTED PUT, OR LISTED           CALL.  THE FILE WILL BE         USED TO ACCESS DATA FROM        DOW JONES.  USE THE 'GEN-       ERAL' OPTION FOR BUILDING       A PRICE REQUEST FILE FOR        MUTUAL FUNDS OR BONDS."3\*З"      THE HISTORICAL DATA TO BE       OBTAINED WILL BE USED FOR       INITIALIZING THE DATABASE       FOR A NEW SECURITY OR TO        'CATCH UP' THE DATABASE         AFTER SEVERAL DAYS' LAPSE       IN UPDATES.":Бж584+Ю:З"'G' - USED TO CREATE ANY TYPE OF      FILE TO BE USED FOR RAPID       TRANSMISSION TO A NEWS          SERVICE.  USED FOR ALL          COMPUSERVE PRICE REQUEST        FILES.":Бж58:Р4П,Ю:З"THE PASSWORD ENTERED WILL BE    INCLUDED IN AN AUTOMATIC LOG-ON SEQUENCE IN THE PRICE REQUEST   FILE.":Бж58:Р5-Ю:З"ENTER THE 'IDENT. SYMBOL' NEED- ED BY DOW JONES FOR ACCESS OF   DATA FOR THE SECURITY OF INTE-  REST.":Бж58:Р5E.Ю:З"ENTER THE NUMBER OF DAYS OF     PRICES DESIRED.":Бж58:Р5m/A$│ Т:ЕA$│""з47:ДЕA$┤▓ Л(8)зЗ@X,A$;5Т0ЕA$│ Л(13)зX│ Ш(Xо32)н32л32:Бе515ц1ЕA$┤▓ Л(8)з50:ДЕ Ъ(0)│1з47:ДЗ@X," ";:X│Xм1:B$│ О(B$, З(B$)м1):З@X, Л(128);:Бе475Ё2X│Xл16
3ЕX▓511зX│48064З@X, Л(128);:Бе36635ЙA$:Е О(A$,1)│"?"з57:ДР6S6A$│ Т:ЕA$│"?"з57:ДЕA$│""з546Y7Р6Й8ЙA$:Е О(A$,1)│"?"з57::ДA│ Й(A$):A$│"0"лA$:Р6л9A$│"?":ИHEБе38,39,44,44,45,466╪:З@480,"**PRESS <ANY KEY> TO CONTINUE**";6щ;Е Т│""з59:ДР6№<ЕA$│""зA│м10:Р7'=АIX│1е З(A$):X$│ Р(A$,IX,1):ЕX$│" "з6576>ЕX$│"+"з657T?Е К(X$)▓│48░ К(X$)┤│57з657`@A│м10:Р7jAЛIX:Р7ЎBАIG│70е166й32:З@IG, б(20, Л(255));:ЛIG:З@103,"  ENTER YOUR DOW  ";:З@135,"  JONES PASSWORD  ";:З@265,"   AAAAAAAAAAA";:З@264, Л(128);:Р8(CFX$│ б(11," "):TG│1:Е З(A$)┤8зEN│ З(A$):ДEN│88ODАIX│1еEN:X$│ Р(A$,IX,1):ЕX$│" "з718wEЕX$│"/"зTG│9:BG│IXл1:EN│ З(A$):Бе758УF Р(FX$,TG,1)│X$:TG│TGл18╜GЛIX:Е З(A$)┤│8з Р(FX$,9,3)│"DAT":Бе808╒HЕ Р(A$,9,1)┤▓"/"з828чIЕ З(A$)▓12з828ўJBG│10:EN│129KЕEN▓ З(A$)зEN│ З(A$)9 LЕENмBG▓2з829HMАIX│BGеEN:X$│ Р(A$,IX,1):ЕX$│" "з799dN Р(FX$,TG,1)│X$:TG│TGл19lOЛIX9uPБе819АQFZ│0:Р:%RFZ│1:ER$│"      INVALID FILE NAME       ":X$│"":АIX│1408е1503:X$│X$л Л( Ж(IX)):ЛIX:З@384, б(96, Л(191));:З@417,ER$;:АIG│1е3:а190,8:АIX│1е200:ЛIX:ЛIG:З@384,X$;:Р:USЪ:Е Ж(32764)│0зО"MENU/BAS:0":ДО"MENU/BAS:1":~TOC,LCм1,BLOC:К:╜(L,K):Р:ЕDн10▓30зD│3?;UАJ│1еDн
811124,6673,52.375,50.500,52.250
811125,8719,53.125,52.500,52.625
811126,0,.000,.000,.000
811127,5933,54.500,52.875,54.500
811130,6333,54.500,53.750,54.500
811201,5269,54.625,53.875,54.125
811202,3739,53.750,53.000,53.000
811203,4973,54.000,53.000,54.000
811204,9621,55.125,54.000,54.625
811207,4114,55.375,53.375,53.500
811208,5012,53.750,53.000,53.250
811209,4262,54.000,53.375,53.875
811210,7529,54.750,53.750,54.625
811211,5803,54.750,53.375,54.375
811214,5686,53.875,53.250,53.375
811215,6104,53.875,53.000,53.625
811216,6544,54.500,53.125,54.125
811217,9313,55.750,54.125,55.750
811218,13710,57.000,55.500,56.750
811221,5910,56.875,56.125,56.375
811222,6870,57.250,56.625,56.875
811223,4559,56.875,56.000,56.125
811224,2893,57.000,56.250,57.000
811225,0,.000,.000,.000
811228,4078,57.375,56.250,56.500
811229,3957,57.000,55.750,56.000
811230,7940,57.625,56.000,57.250
811231,3976,57.375,56.625,56.875

870,57.250,56.625,56.875
811223,4559,56.875,56.000,56.125
811224,2893,57.000,56.250,5,65.375
791205,3776,66.375,65.500,65.750
791206,2835,67.250,65.375,67.250
791207,5824,67.625,66.375,66.625
791210,2572,66.625,66.125,66.375
791211,3939,66.750,65.625,65.62556.625,56.875
811223,4559,56.875,56.000,56.125
811224,2893,57.000,56.250,5,65.375
791205,3776,66.375,65.500,65.750
791206,2835,67.250,65.375,67.250
791207,5824,67.625,66.375,66.625
791210                                                                                                                                                                                                                                                                 &
Е Ж(32762)│1з2:Д28&=Х1000:Т32762,0:OQ│ Ж(32763):Бж21&ЦDR$│ П( И( Ж(32764)),1):Ю0:З@36," MASTER RECORDS LISTING ";:ЕOQ│0зАIG│1е1000:ЛIG:Бе8'CЗ@133,"'S' FOR SCREEN OUTPUT ";:З@165,"'P' FOR PRINTER OUTPUT";:АIG│261е325й32:З@IG, б(22, Л(207));:ЛIG:З@295," TOUCH 'S' OR 'P' ";:Бж25:ЕA$│"?"з26:Д:ЕA$┤▓"S"░A$┤▓"P"з4'XЕA$│"S"зOQ│0:Бе8'nЕOQ│0з8:ДЗ#м2," "(iЗ#м2,"                           ";"PRICE SERIES LISTING":З#м2," ":З#м2,"IDENT.    SERIES    MO.  STRK  EXPIRATION  STRIKE    LAST      IDENT    STATUS":З#м2,"SYMBOL  TYPE CODE  CODE  CODE     DATE      PRICE   UPDATE      NO.      CODE":З#м2," "(ЎЩ"D",#1,"SETUP/DAT",39:╨#1,6 зTIC$,6 зLD$,4 зLR$,4 зMR$,9 зCU$,1 зOP$,6 зED$,1 зMC$,1 зSC$,1 зST$:АR│1е е(1):─#1,R:ЕOP$┤▓"C"░OP$┤▓"P"з12)	АI│1е30:ЕS1$(I)┤▓SC$з11)%
SP$│S$(I):Бе13),ЛI)9SP$│"  ")▄
ЕOQ│2зЗ#м2,TIC$;д13);OP$;д21);MC$;д27);SC$;д32); Р(ED$,3,2);"/"; П(ED$,2);"/"; О(ED$,2);д46);SP$;д51); Р(LD$,3,2);"/"; П(LD$,2);"/" О(LD$,2);д61);CU$;д74);ST$*вЮ0:З"IDENT. SYMBOL = ";TIC$:З"":З"TYPE CODE = ";OP$:З"MONTH CODE = '";MC$;"'":З"STRIKE PRICE CODE = '";SC$;"'":З"EXP. DATE = "; Р(ED$,3,2);"/"; П(ED$,2);"/"; О(ED$,2):З"STRIKE PRICE = "; Й(SP$)+З"LAST UPDATE = "; Р(LD$,3,2);"/"; П(LD$,2);"/"; О(LD$,2):З"IDENT. NO. = ";CU$:З"STATUS CODE = ";ST$:ЕOQ│2з19+fАIG│385е449й32:З@IG, б(30, Л(207));:ЛIG:З@418," TOUCH ANY KEY TO CONTINUE  ";+zK$│ Т:ЕK$│""з17+ГБе20+ХАIG│1е700:ЛIG+│ЛR:Ъ#1:О"MENU/BAS:"лDR$:К,МMO$(13),PC$(13),CC$(13),S$(30),S1$(30):АI│1е12:НMO$(I),CC$(I),PC$(I):ЛI:АI│1е30:НS$(I),S1$(I):ЛI:Р,tЖ01,A,M,02,B,N,03,C,O,04,D,P,05,E,Q,06,F,R,07,G,S,08,H,T,09,I,U,10,J,V,11,K,W,12,L,X,▌Ж5,A,10,B,15,C,20,D,25,E,30,F,35,G,40,H,45,I,50,J,55,K,60,L,65,M,70,N,75,O,80,P,85,Q,90,R,95,S,100,T-Ж110,b,120,d,130,f,140,h,150,j,160,l,170,n,180,p,190,r,200,t-5A$│ Т:ЕA$│""з25:ДР-└Ю:З"SCREEN OUTPUT IS FASTER AND     QUIETER.  HARD COPY OUTPUT IS   GOOD FOR RECORD KEEPING.":З@480,"**PRESS <ANY KEY> TO CONTINUE**";-╙Е Т│""з27:ДБе3.Ъ:Е Ж(32764)│0зО"MENU/BAS:0":ДО"MENU/BAS:1",170,n,180,p,190,r,200,t-5A$│ Т:ЕA$│""з25:ДР-└Ю:З"SCREEN OUTPUT IS FASTER AND     QUIETER.  HARD COPY OUTPUT IS   GOOD FOR RECORD KEEPING.":З@480,"**PRESS <ANY KEY> TO CONTINUE**";-╙Е Т│""з27:ДБе3.Ъ:Е Ж(32764)│0зО"MENU/BAS:0":ДО"MENU/BA <&
Е Ж(32762)│1з3:Д83&jЮ0:З@37," BUILD PRICE REQUESTS ";:АIG│102е198й32:З@IG, б(20, Л(255));:ЛIG:Бе4&ИХ2000:Т32762,0:╤6,256:Бе2&╖DR$│ П( И( Ж(32764)),1):OZ│ Ж(32763):B$│""'XЗ@135," ENTER FILE NAME  ";:З@167,"   TO BE BUILT    ";:З@264,"   AAAAAAAA/EEE";:З@263, Л(128);:HE│1:Бж53:ЕA$│"?"з2:ДЗ@279, б(9, Л(128));:F$│A$:Бж67:ЕFZ│1з5(-Ю0:З@65," 'U' - DOW JONES DAILY UPDATE ";:З@97," 'H' - DOW JONES HISTORICAL   ";:З@129," 'G' - GENERAL                ";:АIG│257е321й32:З@IG, б(30, Л(207));:ЛIG:З@295," TOUCH U, H, OR G ";:HE│2:Бж54:ЕA$│"?"з6(<ЕA$│"U"з12(KЕA$│"H"з27(Z	ЕA$│"G"з34(щ
АIG│384е448й32:З@IG, б(32, Л(191));:ЛIG:З@417,"    INVALID ENTRY - RE-ENTER  ";:АIH│1е3:а190,8:АII│1е100:ЛII:ЛIH:З@384, б(96, Л(128));:Бе6)6Щ"O",1,F$:┘#1,B$:Ъ#1:Ю0:З@229," TRANSMIT FILE BUILT  ";:О"MENU/BAS:"лDR$)ПЮ0:Бж66:HE│3:Бж53:ЕA$│"?"з12:ДЗ@279, б(9, Л(128));:B$│"ADOW2;;DJNS"л Л(13)лA$л Л(13)*
Щ"D",#1,"SETUP/DAT",39:╨#1,6 зTX$,6 зLD$,4 зLR$,4 зMR$,9 зCU$,1 зOX$,6 зED$,1 зMC$,1 зSC$,1 зST$:АI│1е е(1):─#1,I:ЕOX$┤▓"S"з19*J│1*3Е Р(TX$,J,1)┤▓" "з17*BJ│Jл1:Бе15*_L│ Ю(J,TX$," "):ЕL│0зL│7*ВB$│B$л","л Р(TX$,J,LмJ)л Л(13)*·ЛI:АI│1е е(1):╨#1,6 зTX$,6 зLD$,4 зLR$,4 зMR$,9 зCU$,1 зOX$,6 зED$,1 зMC$,1 зSC$,1 зST$:─#1,I:ЕOX$┤▓"C"░OX$┤▓"P"з26+J│1+Е Р(TX$,J,1)┤▓" "з23+*J│Jл1:Бе21+GL│ Ю(J,TX$," "):ЕL│0зL│7+kЕ К(SC$)▓│97зSC$│ Л( К(SC$)м32)+ЦB$│B$л"-"л Р(TX$,J,LмJ)лMC$лSC$л Л(13)+║ЛI:Ъ#1:B$│B$л"DISC"л Л(13):Бе11+°Ю0:Бж66:HE│4:Бж53:ЕA$│"?"з27:ДЗ@279, б(9, Л(128));:A1$│A$,╦Ю0:АIG│70е166й32:З@IG, б(20, Л(255));:ЛIG::З@103,"   ENTER IDENT.   ";:З@135," SYMBOL OF SERIES ";:З@256, б(32, Л(128));:З@267,"   AAAAAA ";:З@266, Л(128);:HE│5:Бж53:ЕA$│"?"з28:ДЗ@277, б(11, Л(128));:TC$│A$,∙Ю0:АIG│70е166й32:З@IG, б(20, Л(255));:ЛIG-гЗ@103,"  ENTER NO. DAYS  ";:З@135," OF PRICES DESIRED";:З@256, б(32, Л(128));:З@269,"   NNN";:З@268, Л(128);:HE│6:Бж56:ЕA$│"?"з29:ДЗ@275, б(13, Л(128));:NX│A:ЕA▓0з32.!З@384, б(96, Л(191));:З@417,"     BAD INPUT - RE-ENTER     ";:АIG│1е3:а190,8:АIH│1е200:ЛIH:ЛIG:З@384, б(96, Л(128));:Бе30.E NP│ Ш(NXо12):ЕNPн12┤▓NXзNP│NPл1.═!B$│"ADOW2;;DJNS"л Л(13)лA1$л Л(13)л"//HQ"л Л(13):АI│NPе1йм1:B$│B$лTC$л" P"л П( И(I), З( И(I))м1)л Л(13):ЛI:B$│B$л"DISC"л Л(13):Бе11/"Ю:З"ENTER FILE (<SHIFTED LEFT ARROW> TERMINAT Х&
Е Ж(32762)│1з2:Д66&LХ13000:╤6:Т32762,0:DR$│ П( И( Ж(32764)),1):FF│0'Ю0:З@40," DATA TRANSFER  ";:З@132,"'P' PRICE FILE TRANSFER ";:З@164,"'C' COMMAND STRM.TRANS. ";:З@196,"'O' OTHER FILE TRANSFER ";:АIG│326е390й32:З@IG, б(20, Л(207));:ЛIG:З@359," TOUCH P,C, OR O  ";'5A$│ Т:ЕA$│"?"з38:ДЕA$│""з4'KTF$│A$:ЕA$│"P"з30'`ЕA$│"O"▒A$│"C"з8'hБе4("Ю0:АIG│101е197й32:З@IG, б(22, Л(255));:ЛIG:З@135," ENTER FILE NAME  ";:З@167,"   TO TRANSFER    ";:З@298,"  AAAAAAAA/EEE";:З@296, Л(128);:ЙF$:Е О(F$,1)│"?"з40:ДЗ@310, б(10, Л(128));(D	Бж25:A$│F$:IP│0:Бж46:ЕFQ┤▓0з8(o
Ю0:З@232," READING DATA ";:ЕTF$│"C"з29(ТЩ"I",#1,F$:МB$(500):I│1:ER$│""(гЕ М(1)│м1з15(╪
ЕI│401зER$│"FILE TOO LONG-NOT ALL X'FERED.":Бе15(Є╗Й#1,B$(I):I│Iл1:Бе12)Ъ#1:MX│Iм1:Бж16:Бе19)VЮ0:З@228," INSERT TARGET DISKETTE ";:З@260,"  - THEN PRESS <ENTER>  ";)vK$│ Т:ЕK$│"?"з41:ДЕK$│""з17)ЧЮ0:З@232," STORING DATA ";:Р)╗Щ"O",#1,F$:АI│1еMX:З#1,B$(I):ЛI)╤Ъ#1:ЕER$┤▓""зБж65)ЇЮ0:З@231," DATA TRANSFERRED ";*gЮ0:З@195,"     DATA TRANSFERRED     ";:З@227," INSERT PROGRAM DISKETTE  ";:З@259,"   - THEN PRESS <ENTER>   ";*ЗK$│ Т:ЕK$│"?"з42:ДЕK$│""з23*РБе28*█Ю0:З@228," INSERT SOURCE DISKETTE ";:З@260,"  - THEN PRESS <ENTER>  ";*√K$│ Т:ЕK$│"?"з43:ДЕK$│""з26+
Р+О"MENU/BAS:"лDR$+бЩ"D",#1,F$,16:╨#1,16 зC$:МB$(500):MX│ е(1):АI│1еMX:─#1,I:B$(I)│C$:ЛI:Ъ#1:Бж16:Щ"D",#1,F$,16:АI│1еMX:╨#1,16 зC$:╘C$│B$(I):┼#1,I:ЛI:Бе20,zБж25:Ю0:З@232," READING DATA ";:Щ"D",#1,"SETUP/DAT",39:M1│ е(1):МS$(M1):АI│1еM1:╨#1,39 зC$:─#1,I:S$(I)│C$:ЛI:Ъ#1:Щ"D",#1,"PRICEMAP/DAT",19:M2│ е(1):МPM$(M2):АI│1еM2:╨#1,19 зC$:─#1,I:PM$(I)│C$:ЛI:Ъ#1:B│0:МPR$(800),╕Щ"D",#1,"PRICES/DAT",8:M3│ е(1):ЕBл800▓M3зMX│M3мB:ДMX│800,ї АI│1еMX:╨#1,8 зC$:─#1,IлB:PR$(I)│C$:ЛI:Ъ#1:Бж16:ЕFF│1з35-Є!Щ"D",#1,"SETUP/DAT:0",39:Ъ#1:Щ"D",#1,"PRICEMAP/DAT:0",19:Ъ#1:Щ"D",#1,"PRICES/DAT:0",8:Ъ#1:╥"SETUP/DAT:0":╥"PRICEMAP/DAT:0":╥"PRICES/DAT:0":Щ"D",#1,"SETUP/DAT",39:АI│1еM1:╨#1,39 зC$:╘C$│S$(I):┼#1,I:ЛI:Ъ#1:Щ"D",#1,"PRICEMAP/DAT",19:АI│1еM2:╨#1,19 зC$."╘C$│PM$(I):┼#1,I:ЛI:Ъ#1:FF│1.f#Щ"D",#1,"PRICES/DAT",8:АI│1еMX:╨#1,8 зC$:╘C$│PR$(I):┼#1,IлB:ЛI:Ъ#1:ЕMXлB│M3з37.Ш$B│Bл1000:Бж25:Ю0:З@232," READING DATA ";:Бе31.г%Бе20:К/Z&Ю:З"'P' - CAUSES THE ENTIRE PRICE         DATABASE TO BE TRANSFERRED      TO ANOTHER DISKETTE.":З"'C' - USED TO TRANSFER COMPACTED      COMMAND STREAMS TO ANOTHER      DISKETTE."0C'З"'O' - USED TO TRANSFER CHARAC-        TER ORIENTED FILES TO           ANOTHER DISKETTE (EG. A         RECORDED SESSION WITH A         NEWS SERVICE TO BE MOVED        TO THE UTILITY DISKETTE SO      IT CAN BE LISTED).":Бж44:Бе30В(Ю:З"ENTER THE NAME OF THE FILE TO BETRANSFERRED.":Бж44:Бе80╙)Ю:З"THIS IS THE DISKETTE TO WHICH   THE DATA WILL BE TRANSFERRED.":Бж44:Бе161*Ю:З"INSERT THE UTILITY PROGRAM      DISKETTE.":Бж44:Бе221a+Ю:З"THIS IS THE DISKETTE FROM WHICH THE DATA WILL BE TRANSFERRED.":Бж44:Бе251О,З@480,"**PRESS <ANY KEY> TO CONTINUE**";1Я-Е Т│""з45:ДР1╤.FX$│ б(11," "):TG│1:Е З(A$)┤8зEN│ З(A$):ДEN│81°/АIX│1еEN:X$│ Р(A$,IX,1):ЕX$│" "з502 0ЕX$│"/"зTG│9:BG│IXл1:EN│ З(A$):Бе542<1 Р(FX$,TG,1)│X$:TG│TGл12f2ЛIX:Е З(A$)┤│8з Р(FX$,9,3)│"DAT":Бе592~3Е Р(A$,9,1)┤▓"/"з632Р4Е З(A$)▓12з632а5BG│10:EN│122╣6ЕEN▓ З(A$)зEN│ З(A$)2╔7ЕENмBG▓2з632ё8АIX│BGеEN:X$│ Р(A$,IX,1):ЕX$│" "з583
9 Р(FX$,TG,1)│X$:TG│TGл13:ЛIX3";ЕIP│1з623q<АIX│3е11:▀0,17,IX,X$,B$:X$│X$л О(B$,127):АIY│1е225й32:Е Р(X$,IY,11)│FX$з623м=ЛIY:ЛIX:FQ│2:ER$│"     FILE NOT ON DISKETTE     ":Бе643╖>FQ│0:Р3х?FQ│1:ER$│"      INVALID FILE NAME       "4@X$│"":АIX│1408е1503:X$│X$л Л( Ж(IX)):ЛIX4dAЗ@384, б(96, Л(191));:З@417,ER$;:АIG│1е3:а190,8:АIX│1е200:ЛIX:ЛIG:З@384,X$;:Р4ФBЪ:Е Ж(32764)│0зО"MENU/BAS:0":ДО"MENU/BAS:1"N DISKETTE     ":Бе643╖>FQ│0:Р3х?FQ│1:ER$│"      INVALID FILE NAME       "4@X$│"":АIX│1408е1503:X                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 R&	
Бе3&Бе4&'Х200,32761:└4:Бе2&/Бе6&7Бе7&B╤6:Бе5&Ф╚0:Ю:DR$│ П( И( Ж(32764)),1):Е Ж(32762)│1зТ32762,0:О"MENU/BAS:"лDR$:ДТ32762,1'SЮ0:З@40," UTILITIES MENU ";:З@96л2,"'1' SET UP A PRICE SERIES   ";:З@128л2,"'2' BUILD PRICE REQUESTS    ";:З@160л2,"'3' GET PRICES BY PHONE     ";:З@192л2,"'4' AUTO PRICE HISTORY INPUT";(E	З@224л2,"'5' MANUAL PRICE HISTORY    ";:З@256л2,"    INPUT                   ";:З@288л2,"'6' TRANSFER DATA           ";:З@320л2,"'7' FOR NEXT PAGE           ";:АIG│386е450й32:З@IG, б(28, Л(207));:ЛIG:З@416л3," TOUCH 1,2,3,4,5,6, OR 7  ";(Y
A$│ Т:ЕA$│""з10(jЕA$│"?"зБж41(НЕA$│"1"зБж66:О"SETUP/BAS:"лDR$(░
ЕA$│"2"зБж66:О"BXMIT/BAS:"лDR$(╥ЕA$│"3"зБж66:О"COME/BAS:"лDR$(ўЕA$│"4"зБж66:О"SECINIT/BAS:"лDR$)ЕA$│"5"зБж66:О"MANCTCH/BAS:"лDR$)@ЕA$│"6"зБж66:О"TRANS2/BAS:"лDR$)OЕA$│"7"з20)WБе8*FЮ0:З@37л0," UTILITIES MENU NO. 2 ";:З@96л2,"'1' PRINT RECEIVED INFO     ";:З@128л2,"'2' LIST PRICES             ";:З@160л2,"'3' OBTAIN MASTER LIST      ";:З@192л2,"'4' SAVE PRICES ON TAPE     ";:З@224л2,"'5' DELETE A PRICE SERIES   ";*шЗ@256л2,"'6' RESTORE PRICES FROM TAPE";:З@288л2,"'7' FOR NEXT PAGE           ";:АIG│386е450й32:З@IG, б(28, Л(207));:ЛIG:З@416л3," TOUCH 1,2,3,4,5,6, OR 7  ";*№A$│ Т:ЕA$│""з22+
ЕA$│"?"зБж41+3ЕA$│"1"зБж66:О"PRINTRCV/BAS:"лDR$+WЕA$│"2"зБж66:О"SECDMP/BAS:"лDR$+zЕA$│"3"зБж66:О"MDUMP/BAS:"лDR$+дЕA$│"4"зТ32762,3:О"TRESTORE/BAS:"лDR$+╬ЕA$│"5"зТ32762,2:О"TRESTORE/BAS:"лDR$+ЇЕA$│"6"зБж66:О"TRESTORE/BAS:"лDR$,ЕA$│"7"з32,Бе20,√ Ю0:З@37л0," UTILITIES MENU NO. 3 ";:З@96л2,"'1' BUILD A COMMAND STREAM  ";:З@128л2,"'2' STOCK SPLIT ADJUSTMENT  ";:З@160л2,"'3' SERIES DATA ADJUSTMENT  ";:З@192л2,"'?' FOR HELP                ";:З@224л2,"'7' BACK TO UTILITIES MENU  ";-I!АIG│386е450й32:З@IG, б(28, Л(207));:ЛIG:З@415л6,"  TOUCH 1,2,3,? OR 7  ";-]"A$│ Т:ЕA$│""з34-n#ЕA$│"?"зБж41-У$ЕA$│"1"зБж66:О"COMPILE/BAS:"лDR$-╗%ЕA$│"2"зТ32762,2:О"SECDMP/BAS:"лDR$-у&ЕA$│"3"зТ32762,3:О"SECDMP/BAS:"лDR$-ё'ЕA$│"7"з8-№(Бе32:К.")Ю:З"     SET UP A PRICE SERIES":З/
*З"THIS FUNCTION IS USED TO DEFINE A SECURITY TO BE INCLUDED IN    THE DATABASE AND TO RESERVE     SPACE FOR ITS PRICE/VOLUME DATA.":З:З"THIS FUNCTION MUST BE PERFORMED BEFORE ANY SECURITY CAN BE HAN- DLED BY INVESTOGRAPH.":Бж64/▐+Ю:З"      BUILD PRICE REQUESTS":З:З"THIS FUNCTION IS USED TO CREATE A FILE CONTAINING PRICE REQUESTSTO BE SENT TO A FINANCIAL NEWS  SERVICE (EG. DOW JONES OR COMPU-SERVE).":З:З"WHEN YOU LOG ONTO A NEWS SER-"0╩,З"VICE, THE FILE WILL BE SENT TO  THE NEWS SERVICE AT LINE TRANS- MISSION SPEED, SAVING CONNECT   TIME.":Бж64:Ю:З"THE PRICE REQUESTS FILE MUST BE BUILT BEFORE HISTORICAL OR DAILYUPDATE DATA CAN BE OBTAINED FROMA NEWS SERVICE.":Бж641Ы-Ю:З"      GET PRICES BY PHONE":З:З"THIS FUNCTION IS USED TO OBTAIN PRICE/VOLUME DATA FROM A FINAN- CIAL NEWS SERVICE OVER THE      PHONE.":З:З"IT CAN ALSO BE USED TO LOG ONTO A NEWS SERVICE TO ACCESS ANY"2.З"KIND OF INFORMATION AVAILABLE   FROM THE NEWS SERVICE BY USING  THE MANUAL MODE UNDER 'GET      PRICES BY PHONE'.":Бж642▄/Ю:З"    AUTO PRICE HISTORY INPUT":З:З"THIS FUNCTION IS USED TO EXTRACTPRICE DATA FROM A FILE RECORDED UNDER 'GET PRICES BY PHONE' AND MOVE IT INTO THE PERMANENT      PRICE/VOLUME DATA BASE."3─0З:З"DATA USED TO INITIALLY SET UP A PRICE SERIES DATA BASE OR TO    'CATCH UP' A DATA BASE FOR A    SECURITY AFTER SEVERAL DAYS'    LAPSE OF UPDATING IT IS HANDLED":З"BY THIS FUNCTION.":Бж64:Ю:З"   MANUAL PRICE HISTORY INPUT":З4л1З"THIS FUNCTION IS USED TO INPUT  HISTORICAL PRICE/VOLUME DATA    MANUALLY.  THE DATA IS INPUT TO INITIALLY SET UP THE PRICE DATA-BASE FOR A SECURITY OR 'CATCH   UP' ITS DATABASE AFTER A SEVERALDAYS LAPSE IN UPDATING IT.":Бж644═2Ю:З"         TRANSFER DATA":З5╣3З"THIS FUNCTION IS USED TO TRANS- FER DATA BETWEEN DISKETTES.  IT IS PARTICULARLY USEFUL FOR ONE  DRIVE SYSTEMS.  IT CAN BE USED  TO TRANSFER THE FOLLOWING KINDS OF FILES:":З:З"  (1) PRICE/VOLUME DATA           (2) COMMAND STREAMS"6 4З"  (3) CHARACTER ORIENTED FILES        (EG. A RECORDED SESSION         WITH A NEWS SERVICE)":Бж646ф5Ю:З"      PRINT RECEIVED INFO":З:З"THIS FUNCTION IS USED TO DISPLAYOR GET HARD COPY OF ANY CHARAC- TER ORIENTED FILE.  IT IS VERY  USEFUL FOR REVIEWING RECORDED   NEWS SERVICE SESSIONS.":Бж647├6Ю:З"          LIST PRICES":З:З"THIS FUNCTION IS USED TO DISPLAYOR GET HARD COPY OF A SERIES OF DAILY PRICES FOR A SECURITY.    THE HIGH, LOW, AND CLOSING PRI- CES AS WELL AS TRADING VOLUMES  AND DATES ARE OUTPUT.":Бж648Щ7Ю:З"       OBTAIN MASTER LIST":З:З"THIS FUNCTION IS USE                                                                                                                                                                                                                                                                        ╚╔╔
╚├╔╚╔╞!"╚$%&'()*┼,-./9┼234╞6╔┬┴┴┴┴        TOREBASгCOME    BAS5CCE     BIN
║DD         7>GO      BAS8dINVEST  BAS0#MENU    BAS USECDMP  BAS#ХTRANS2  BASШMDUMP   BASBXMIT   BAS?PRINTRCVBASjCOMPILE BAS∙SECINIT BAS+oMANCTCH BAS╞SETUP   BAS1kTRESTOREBASгCOME    BAS50CCE     BIN
║DD         7>GO      BAS8dINVEST  BAS0#ETUP   DAT
 NPRICES  DAT
 	╕PRICEMAPDAT
 :9SETUP   DAT
 ;N                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                D TO GET A  COMPLETE LIST OF SECURITIES BE- ING TRACKED ON THIS DISKETTE.   GENERAL DATA FOR EACH SECURITY  IS ALSO OUTPUT (EG. ITS 'IDENT.'SYMBOL).":Бж649a8Ю:З"      SAVE PRICES ON TAPE":З:З"THIS FUNCTION IS USED TO ARCHIVEA SECURITY'S PRICE/VOLUME DATA  ON TAPE CASSETTE.  ANOTHER USE  FOR THIS FUNCTION IS TO TRANSFERA  SINGLE SECURITY'S PRICE DATA":W9З"TO ANOTHER DISKETTE USING TAPE  CASSETTE AS AN INTERMEDIATE MED-IUM (DISKETTE 1 -> TAPE -> DISK-ETTE 2).":Бж64:Ю:З"     DELETE A PRICE SERIES":З:З"THIS FUNCTION IS USED TO DELETE ALL DATA ASSOCIATED WITH A SEC- URITY FROM A DISKETTE.":Бж64;?:Ю:З"    RESTORE PRICES FROM TAPE":З:З"THIS FUNCTION IS USED TO RESTOREARCHIVED PRICE/VOLUME DATA FROM TAPE CASSETTE TO DISKETTE.  IT  IS ALSO USEFUL AS THE SECOND    STEP IN THE TRANSFER OF A SINGLESECURITY'S PRICE/VOLUME DATA"<-;З"FROM ONE DISKETTE TO ANOTHER.":Бж64:Ю:З"     BUILD A COMMAND STREAM":З:З"THIS FUNCTION IS USED TO CONVERTA COMMAND STREAM TO ITS COMPACT-ED FORM FROM AN ASCII FILE      STORED ON THE DISKETTE UNDER THERADIO SHACK 'BASIC' SYSTEM.":З<о<З"THIS ASCII FILE IS BUILT THE    SAME WAY A SIMPLE 'BASIC' PRO-  GRAM IS BUILT AND IS 'SAVED'    WITH THE 'A' OPTION.":Бж64=М=Ю:З"     STOCK SPLIT ADJUSTMENT":З:З"THIS FUNCTION IS USED TO ADJUST HISTORICAL DATA FOR A STOCK WHENA STOCK SPLIT OR STOCK DIVIDEND OCCURS.  THIS IS NECESSARY TO   AVOID DISCONTINUITIES IN THE    STOCK'S CHART.":Бж64>>Ю:З"     SERIES DATA ADJUSTMENT":З:З"THIS FUNCTION IS USED TO CORRECTBAD DATA THAT MAY HAVE GOTTEN   INTO A PRICE DATABASE.":Бж64>╪?Ю:З"          IN GENERAL:":З:З:З"HELP CAN BE OBTAINED FOR ANY    PROMPT BY ENTERING '?'.":З:З:З"TO ABORT A FUNCTION AND RETURN  TO THE MAIN MENU, PRESS <BREAK> AND TYPE IN 'RUN<ENTER>'.":Бж64:Р?@З@480,"**PRESS <ANY KEY> TO CONTINUE**";?AЕ Т│""з65:ДР?QBТ32762,1:Р:Ъ:Е Ж(32764)│0зО"MENU/BAS:0":ДО"MENU/BAS:1"    PROMPT BY ENTERING '?'.":З:З:З"TO ABORT A FUNCTION AND RETURN  TO THE MAIN MENU, PRESS <BREAK> AND TYPE IN 'RUN<ENTER>'.":Бж64:Р?@З@480,"**PRESS <ANY KEY> TO CONTIN                                                                                                                                                                                                                                                                 CТ&
Е Ж(32762)┤▓0з3:Д286&"Бе5&JЕ Ж(32762)│2▒ Ж(32762)│3з49:Д╤6,256&RБе2&▒Х1000:XF│1:Т32762,0:OZ│ Ж(32763):DR$│ П( И( Ж(32764)),1):Бж137:МMT(13),ML$(12):Бж189:Бж249&╤Ю0:З@40," PRICE LISTING  ";'ГАIG│168е264й32:З@IG, б(16, Л(255));:ЛIG:З@201," ENTER NO. OF ";:З@233,"PRICES TO LIST";:З@365,"   NNN";:З@364, Л(128);:HE│1:Бж231:ЕA$│"?"з6:ДЗ@370, б(15, Л(128));:NP│A:Бж250'ОЕA┤1з7'Ы	ЕNP▓0з13'┌
ЕNP┤│0зER$│"   INVALID ENTRY - RE-ENTER   ":Бж12:Бж115:Бе7(ЕNP▓245зER$│" ENTRY EXCEEDS 245 - RE-ENTER ":Бж12:Бж115:Бе7(ФЗ@384, б(32, Л(191));:З@448, б(32, Л(191));:З@416, Л(191);ER$; Л(191);:а190,8:АI│1е200:ЛI:а190,8:АI│1е200:ЛI:а190,8:Р(к
Бж101:ЕTC$┤▓""з15)ER$│" SECURITY NOT FOUND- RE-ENTER ":Бж12:АIG│96е128й32:З@IG, б(32, Л(128));:ЛIG:Ъ#4:Бе13)7ЕTC$│"ZZZZ"зA$│"ZZZZ":Ъ#4:О"MENU/BAS:"лDR$)[F$│TC$лMC$лSC$:MX│ Й(MR$):H9│MX*ЕOZ│0з19:ДЮ0:З@133,"'S' FOR SCREEN OUTPUT ";:З@165,"'P' FOR PRINTER OUTPUT";:АIG│261е325й32:З@IG, б(22, Л(207));:ЛIG:З@295," TOUCH 'S' OR 'P' ";:HE│6:Бж229:ЕA$┤▓"S"░A$┤▓"P"з17* ЕA$│"S"зOZ│0+Ю0:З б(32, Л(128));:З Л(128);"IDENT. SYMBOL = ";TC$:З Л(128);"LAST DATE = ";LD$:З Л(128);"LAST RECORD UPDATED = ";LR$:З Л(128);"MAX NO RECORDS IN FILE = ";MR$:З Л(128);"IDENT NUMBER = ";CU$:З Л(128);"SERIES TYPE CODE = ";OX$+■З Л(128);"EXPIRATION DATE = ";ED$:З Л(128);"EXPIRATION MONTH CODE = '";MC$;"'":З Л(128);"OPTION STRIKE PRICE CODE = '";SC$;"'":З Л(128);"INVESTMENT STATUS CODE = ";ST$:АIG│385е449й32:З@IG, б(30, Л(207));:ЛIG:З@419," TOUCH ANY KEY FOR PRICES ";:,6АIG│31е479й32:З@IG, Л(128);:ЛIG:Бж229:Бж34:ЕOZ│0з23,еЗ#м2,"":З#м2,д14);"PRICES FOR ";PD$:З#м2,"":З#м2,"  DATE      VOL       HIGH      LOW      CLOSE":З#м2," ",┌DT$│LD$:NX│NPм1:Бж201:R│ Й(LR$)мNPл1:ЕR┤1зR│MXлR-"FL$│F$:LF│2:Бж259:АI│1еNP:LF│2:RC│R:Бж272:VL$│VX$:PRC$│PX$:ЕOZ│0з26-vЗ#м2, Р(XD$,3,2);"/"; П(XD$,2);"/"; О(XD$,2);д10);VL$;д20);PH;д30);PL;д40);PRC$.sЮ0:З"DATE = "; Р(XD$,3,2);"/"; П(XD$,2);"/"; О(XD$,2):З"VOLUME = ";VL$:З"HIGH = ";PH:З"LOW = ";PL:З"CLOSE = ";PRC$:АIG│224е320й32:З@IG, б(32, Л(207));:ЛIG:З@257," HOLD DOWN:   'S'   TO STOP   ";:З@289,"            <SPACE> TO PAUSE  ";:АIG│1е600:ЛIG.ИB$│ Т:ЕB$│"S"з33.ШЕB$┤▓" "з31.ёЗ@224, б(128, Л(128));:З@256, б(96, Л(207));:З@289,"  TOUCH <SPACE> TO CONTINUE   ";/B$│ Т:ЕB$┤▓" "з30/R│Rл1:ЕR▓MXзR│1/8 DT$│XD$:Бж193:XD$│ND$:ЛI/Г!Ю0:З@228," PRICE LISTING COMPLETE ";:LF│2:Бж284:Ъ#4:О"MENU/BAS:"лDR$:К/Л"J│0/ж#Е Р(TC$,6мJ,1)┤▓" "з37/╡$J│Jл1:Бе35/▄%PD$│ О(TC$,6мJ):ЕMC$│" "▒MC$│"Z"зР/∙&АIK│1е12:ЕMC$│CC$(IK)з410
'ЕMC$│PC$(IK)з410(ЛIK09)PD$│PD$л" "лML$(IK):ЕSC$│" "з450V*АIK│1е30:ЕSC$│S1$(IK)з440^+ЛIK0u,PD$│PD$л" "лS$(IK)0Ц-ЕOP$│"C"зPD$│PD$л" "л"CALLS"0╢.ЕOP$│"P"зPD$│PD$л" "л"PUTS"0╫/ЕOP$│"F"зPD$│PD$л" "л"FUTRS"0▌0Р0ї1Е Ж(32762)│2з50:Д751e2Х1000:XF│2:Т32762,0:╤6:МMT(13):Бж137:Бж189:DR$│ П( И( Ж(32764)),1):Ю0:З@36," STOCK SPLIT ADJUSTMENT ";:Бе521ї3З@384, б(32, Л(191));:З@448, б(32, Л(191));:З@416, Л(191);ER$; Л(191);:а190,8:АI│1е200:ЛI:а190,8:АI│1е200:ЛI:а190,8:З@384, б(96, Л(128));:Р24Бж101:OP$│OX$:TIC$│TC$:ЕTIC$┤▓""з542{5ER$│"  SERIES NOT FOUND- RE-ENTER  ":Бж51:АIG│96е128й32:З@IG, б(32, Л(128));:ЛIG:Ъ#4:Бе522л6ЕTIC$│"ZZZZ"зA$│"ZZZZ":Ъ#4:О"MENU/BAS:"лDR$2ш7ЕTY$┤▓"S"зER$│"  STOCKS ONLY SPLIT ADJUSTED  ":Бж51:Бе742я8Ю03▓9Ю0:АIG│102е230й32:З@IG, б(20, Л(255));:ЛIG:З@135," ENTER LAST DATE  ";:З@167,"   BEFORE SPLIT   ";:З@199,"  MADE EFFECTIVE  ";:З@331,"   YYMMDD";:З@330, Л(128);:HE│7:Бж228:ЕA$│"?"з57:ДED$│A$3▄:З@340, б(12, Л(128));:Бж141:ЕFF┤▓0з574(;DT$│ED$:Бж183:ЕDN│1▒DN│7зER$│"   NOT A WEEKDAY - RE-ENTER   ":Бж51:Бе574l<Е Й(ED$)▓ Й(LD$)зER$│" BAD DATE(> LAST DAY IN FILE) ":Бж51:Бе574┤=DT$│LD$:DN$│ED$:Бж217:NZ│NX:MR│ Й(MR$):ER│ Й(LR$)мNZ:ЕER┤1зER│ERлMR4╤>SR│ Й(LR$)л1:ЕSR▓MRзSR│14┌?FG│05Р@Ю0:АIG│102е198й32:З@IG, б(20, Л(255));:ЛIG:З@135," ENTER NUMBER OF  ";:З@167,"  'OLD' SHARES    ";:З@266,"   NNN.NNNN";:З@265, Л(128);:ЕFG│1з67:ДHE│8:Бж231:З@277, б(11, Л(128));5ЯAЕA$│"?"з645┼BA│ Й(A$):Бж250:ЕA┤│0з64:ДO│A:FG│16)CЗ@169,"'NEW'";:З@266,"   NNN.NNNN";:З@265, Л(128);:HE│9:Бж231:ЕA$│"?"з64:ДЗ@277, б(11, Л(128));6JDA│ Й(A$):Бж250:ЕA┤│0з67:ДN│A6ЪEF│OоN:Ю0:З@230," ADJUSTING PRICES ";:LF│2:F$│TIC$лMC$лSC$:FL$│F$:Бж259:R│SR6чFLF│2:RC│R:Бж272:VX│VXоF:PH│PHнF:PL│PLнF:PX│PXнF:LF│2:RC│R:Бж278:ЕR│ERз736√GR│Rл1:ЕR▓MRзR│17HБе70:LF│2:Бж2847DIЮ0:З@228," SPLIT ADJUSTMENT MADE ";:АI│1е1000:ЛI7[JО"MENU/BAS:"лDR$:К7tKЕ Ж(32762)│3з76:Д2867уLХ1000:Т32762,0:╤6:МMT(13):Бж137:Бж189:DR$│ П( И( Ж(32764)),1):Ю0:З@34,"PRICE SERIES DATA ADJUSTMENT";:Бе788sMЗ@384, б(32, Л(191));:З@448, б(32, Л(191));:З@416, Л(191);ER$; Л(191);:а190,8:АI│1е200:ЛI:а190,8:АI│1е200:ЛI:а190,8:З@384, б(96, Л(128));:Р8ЫNБж101:TIC$│TC$:OP$│OX$:ЕTIC$┤▓""з808∙OER$│"  SERIES NOT FOUND- RE-ENTER  ":Бж77:АIG│96е128й32:З@IG, б(32, Л(128));:ЛIG:Ъ#4:Бе789)PЕTIC$│"ZZZZ"зA$│"ZZZZ":Ъ#4:О"MENU/BAS:"лDR$9┼QЮ0:АIG│103е199й32:З@IG, б(18, Л(255));:ЛIG:З@136," ENTER DATE FOR ";:З@168,"   ADJUSTMENT   ";:З@268,"   YYMMDD";:З@267, Л(128);:HE│10:Бж228:ЕA$│"?"з819ЎRED$│A$:З@277, б(11, Л(128));:Бж141:ЕFF┤▓0з81:BSDT$│ED$:Бж183:ЕDN│1▒DN│7зER$│"   NOT A WEEKDAY - RE-ENTER   ":Бж77:Бе81:ЖTЕ Й(ED$)▓ Й(LD$)зER$│"BAD DATE ( >LAST DAY IN FILE) ":Бж77:Бе81:╬UDT$│LD$:DN$│ED$:Бж217:NZ│NX:MR│ Й(MR$):ER│ Й(LR$)мNZ:ЕER┤1зER│ERлMR;2VLF│2:F$│TIC$лMC$лSC$:FL$│F$:Бж259:RC│ER:Бж272:Ю0:З б(32, Л(128));:З Л(128);"          OLD DATA";█WЗ Л(128);"DATE = ";ED$:З Л(128);"VOLUME = ";VX:З Л(128);"HIGH VALUE = ";PH:З Л(128);"LOW VALUE = ";PL:З Л(128);"CLOSING VALUE = ";PX:АIG│31е479й32:З@IG, Л(128);:ЛIG<РXАIG│262е326й32:З@IG, б(20, Л(255));:ЛIG:З@295," ENTER NEW VOLUME ";:З@396,"   NNNNN";:З@395, Л(128);:HE│11:Бж228:ЕA$│"?"з87:ДЗ@404, б(12, Л(128));:A│ Й(A$):Бж93:ЕA│м10з88:ДVX│A=
YЗ@306," HIGH ";:З@394,"   NNNN.NNNN";:З@393, Л(128);:ЙA$:З@405, б(11, Л(128));:A│ Й(A$):Бж93:ЕA│м10з89:ДPH│A=rZЗ@306," LOW  ";:З@394,"   NNNN.NNNN";:З@393, Л(128);:ЙA$:З@405, б(11, Л(128));:A│ Й(A$):Бж93:ЕA│м10з90:ДPL│A=у[З@306," CLOSE";:З@394,"   NNNN.NNNN";:З@393, Л(128);:ЙA$:З@405, б(11, Л(128));:A│ Й(A$):Бж93:ЕA│м10з91:ДPX│A>G\LF│2:RC│ER:Бж278:LF│2:Бж284:Ю0:З@228," PRICE ADJUSTMENT MADE ";:АI│1е1000:ЛI:О"MENU/BAS:"лDR$:К>U]ЕA$│""з99>А^АIX│1е З(A$):X$│ Р(A$,IX,1):ЕX$│" "з98>Ц_ЕX$│"+"▒X$│"."з98>┤`Е К(X$)▓│48░ К(X$)┤│57з98>╜aБе99>╟bЛIX:Р?HcA│м10:З@384, б(96, Л(191));:З@417,"     BAD INPUT - RE-ENTER     ";:АIG│1е3:а190,8:АIH│1е200:ЛIH:ЛIG:З@384, б(96, Л(128));:Р?OdЮ0?¤eАIG│164е292й32:З@IG, б(24, Л(255));:ЛIG:З@198,"    ENTER IDENT.    ";:З@230,"       SYMBOL       ";:З@262,"  OR 'ZZZZ' TO QUIT ";:АIG│352е448й32:З@IG, б(32, Л(128));:ЛIG@XfЗ@364,"   AAAA";:З@363, Л(128);:HE│2:Бж228:ЕA$│"?"з100:ДЗ@364, б(21, Л(128));:J│ З(A$)@qgЕ Р(A$,J,1)┤▓" "з105@БhJ│Jм1:Бе103@бiA$│ О(A$,J):ЕA$┤▓"ZZZZ"з108@▓jTC$│"ZZZZ":Р@хkБж115:АIG│96е128й32:З@IG, б(32, Л(128));:ЛIG:РA▄lБж107:АIG│100е292й32:З@IG, б(24, Л(255));:ЛIG:З@133," ENTER 'S' FOR STOCK  ";:З@165,"       'C' FOR CALL   ";:З@197,"       'P' FOR PUT    ";:З@229,"       'I' FOR INDEX  ";:З@261,"       'F' FOR FUTURE ";:З@365,"   A"; Л(128);:З@364, Л(128);B/mZZ$│A$:HE│3:Бж228:ЕA$│"?"зA$│ZZ$:Ю0:Бе108:ДЗ@369, б(15, Л(128));:TY$│A$:A$│ZZ$BHnЕTY$│"S"▒TY$│"I"з129BaoЕTY$│"F"▒TY$│"C"з116BrpЕTY$│"P"з116BжqER$│"   INVALID ENTRY - RE-ENTER   ":Бж12:Бе108B╘rАIG│100е292й32:З@IG, б(24, Л(255));:ЛIG:РCsАIG│384е448й32:З@IG, б(32, Л(128));:ЛIG:РCЮtБж115:Бж114:З@135,"      ENTER       ";:З@167," EXPIRATION MONTH ";:З@199,"  (FOR EXAMPLE -  ";:З@231,"    ENTER '01'    ";:З@263,"   FOR JANUARY)   ";DuЗ@364,"   AA";:З@363, Л(128);:ZZ$│A$:HE│4:Бж228:ЕA$│"?"зA$│ZZ$:Ю0:Бе116:ДЗ@369, б(15, Л(128));:EM$│A$:A$│ZZ$D,vАI│1е12:ЕEM$┤▓MO$(I)з122D=wЕTY$│"P"з121DRxMX$│CC$(I):Бе123DgyMX$│PC$(I):Бе123DЮzЛI:ER$│"   INVALID ENTRY - RE-ENTER   ":Бж12:Бе116D╖{SS$│" ":ЕTY$│"F"з131ES|Бж115:Бж114:З@135,"      ENTER       ";:З@167,"  OPTION STRIKING ";:З@199," PRICE (EG. '75'  ";:З@231," FOR A $75 STRIKE ";:З@263,"      PRICE)      ";E┼}З@364,"   NNN";:З@363, Л(128);:ZZ$│A$:HE│5:Бж228:ЕA$│"?"зA$│ZZ$:Ю0:Бе124:ДЗ@369, б(15, Л(128));:SS$│A$:A$│ZZ$Eс~АI│1е30:ЕSS$┤▓S$(I)з128EЎSS$│S1$(I):Бе131F-АЛI:ER$│"   INVALID ENTRY - RE-ENTER   ":Бж12:Бе124FKБЕTY$│"I"зM1$│"Z":ДM1$│" "F_ВMX$│M1$:SS$│" "FэГЩ"D",#4,"SETUP/DAT",39:╨#4,6 зTC$,6 зLD$,4 зLR$,4 зMR$,9 зCU$,1 зOX$,6 зED$,1 зMC$,1 зSC$,1 зST$:АI│1е е(4):─#4,I:Е О(TC$, З(A$))┤▓A$з136F ДЕTY$┤▓OX$з136GЕЕMX$┤▓MC$з136G#ЖЕSS$┤▓SC$з136G)ЗРG9ИЛI:TC$│"":РGбЙМMO$(13),PC$(13),CC$(13),S$(30),S1$(30):АI│1е12:НMO$(I),CC$(I),PC$(I):ЛI:АI│1е30:НS$(I),S1$(I):ЛI:РG·КЖ01,A,M,02,B,N,03,C,O,04,D,P,05,E,Q,06,F,R,07,G,S,08,H,T,09,I,U,10,J,V,11,K,W,12,L,XHcЛЖ5,A,10,B,15,C,20,D,25,E,30,F,35,G,40,H,45,I,50,J,55,K,60,L,65,M,70,N,75,O,80,P,85,Q,90,R,95,S,100,THдМЖ110,b,120,d,130,f,140,h,150,j,160,l,170,n,180,p,190,r,200,tH╝НDW$│ED$:ЕDW$│""з147H╨ОЕ З(DW$)┤▓6з147IПАIG│1е6:X$│ Р(DW$,IG,1):Е К(X$)┤48▒ К(X$)▓57з147IAРЛIG:MJ│ Й( Р(DW$,3,2)):DV│ Й( П(DW$,2)):ЕMJ▓12▒MJ┤1з147IТСЕDV▓│1░DV┤│MT(MJ)з146:ДYR│ Й( О(DW$,2)):ЕYRм Ш(YRо4)н4│0░MJ│2░DV│29з146:Д147IЭТFF│0:РJУFF│1:ER$│"   INVALID DATE  - RE-ENTER   ":Бж12:Р:Ю0:АIG│164е292й32:З@IG, б(24, Л(255));:ЛIG:З@198,"    ENTER IDENT.    ";:З@230,"       SYMBOL       ";:З@262,"  OR 'ZZZZ' TO QUIT ";:АIG│352е448й32:З@IG, б(32, Л(128));:ЛIGJ┘ФЗ@363,"   AAAA";:З@362, Л(128);:ЙA$:Е О(A$,1)│"?"з234:ДЗ@363, б(21, Л(128));:J│ З(A$)JЄХЕ Р(A$,J,1)┤▓" "з151KЦJ│Jм1:Бе149K"ЧA$│ О(A$,J):ЕA$┤▓"ZZZZ"з154K4ШTIC$│"ZZZZ":РKgЩБж160:АIG│96е128й32:З@IG, б(32, Л(128));:ЛIG:РLaЪЮ0:Бж153:АIG│100е292й32:З@IG, б(24, Л(255));:ЛIG:З@133," ENTER 'S' FOR STOCK  ";:З@165,"       'C' FOR CALL   ";:З@197,"       'P' FOR PUT    ";:З@229,"       'I' FOR INDEX  ";:З@261,"       'F' FOR FUTURE ";:З@365,"   A"; Л(128);:З@364, Л(128);L░ЫZZ$│A$:ЙA$:Е О(A$,1)│"?"зA$│ZZ$:Бе236:ДЗ@369, б(15, Л(128));:TY$│A$:A$│ZZ$L╔ЬЕTY$│"S"▒TY$│"I"з174LтЭЕTY$│"F"▒TY$│"C"з161LєЮЕTY$│"P"з161M'ЯER$│"   INVALID ENTRY - RE-ENTER   ":Бж81:Бе154MUаАIG│384е448й32:З@IG, б(32, Л(128));:ЛIG:РMЇбЮ0:Бж160:Бж182:З@135,"      ENTER       ";:З@167," EXPIRATION MONTH ";:З@199,"  (FOR EXAMPLE -  ";:З@231,"    ENTER '01'    ";:З@263,"   FOR JANUARY)   ";NaвЗ@364,"   AA";:З@363, Л(128);:ZZ$│A$:ЙA$:Е О(A$,1)│"?"зA$│ZZ$:Бе238:ДЗ@369, б(15, Л(128));:EM$│A$:A$│ZZ$N~гАI│1е12:ЕEM$┤▓MO$(I)з167NПдЕTY$│"P"з166NдеMX$│CC$(I):Бе168N╣жMX$│PC$(I):Бе168NЁзЛI:ER$│"   INVALID ENTRY - RE-ENTER   ":Бж81:Бе161O	иSS$│" ":ЕTY$│"F"з176OийЮ0:Бж182:Бж160:З@135,"      ENTER       ";:З@167,"  OPTION STRIKING ";:З@199," PRICE (EG. '75'  ";:З@231," FOR A $75 STRIKE ";:З@263,"      PRICE)      ";PкЗ@364,"   NNN";:З@363, Л(128);:ZZ$│A$:ЙA$:Е О(A$,1)│"?"зA$│ZZ$:Бе239:ДЗ@369, б(15, Л(128));:SS$│A$:A$│ZZ$P2лАI│1е30:ЕSS$┤▓S$(I)з173PGмSS$│S1$(I):Бе176P~нЛI:ER$│"   INVALID ENTRY - RE-ENTER   ":Бж81:Бе169PЬоЕTY$│"I"зM1$│"Z":ДM1$│" "P░пMX$│M1$:SS$│" "Q@░Щ"D",#4,"SETUP/DAT",39:╨#4,6 зTIC$,6 зLD$,4 зLR$,4 зMR$,9 зCU$,1 зOP$,6 зED$,1 зMC$,1 зSC$,1 зST$:АI│1е е(4):─#4,I:Е О(TIC$, З(A$))┤▓A$з181QR▒ЕTY$┤▓OP$з181Qd▓ЕMX$┤▓MC$з181Qv│ЕSS$┤▓SC$з181Q|┤РQН╡ЛI:TIC$│"":РQ╗╢АIG│100е292й32:З@IG, б(24, Л(255));:ЛIG:РR
╖YR│ Й( О(DT$,2)):C│YRм81л Б((YRм81)о4):J1│5лCл700:J1│J1м Ш(J1о7)н7:ЕJ1│0зJ1│7R=╕MO│ Й( Р(DT$,3,2)):TT│0:АIX│1е12:ЕMO│IXз187Rl╣TT│TTлMT(IX):ЕIX│2░YRм Ш(YRо4)н4│0зTT│TTл1Rt║ЛIXR╡╗TT│TTл Й( Р(DT$,5,2)):DN│J1лTTм1:DN│DNм Ш(DNо7)н7:ЕDN│0зDN│7R╗╝РRх╜Ж 31,28,31,30,31,30,31,31,30,31,30,31S$╛АIZ│1е12:НMT(IZ):ЛIZ:Р:DT$│MO$л"01":Бж183:C│6мDN:ЕC│м1з192SG┐F3│Cл15:DT$│MO$л П( И(F3),2):РSZ└DT$│MO$л"21":РSЯ┴YY$│ О(DT$,2):MM$│ Р(DT$,3,2):DD$│ П(DT$,2):Бж183:ЕDN│6зC│3:ДC│1T┬DD│ Й(DD$)лC:MM│ Й(MM$):ЕDD┤│MT(MM)з199:ДYR│ Й(YY$):ЕDD│29░MM│2░YRм Ш(YRо4)н4│0з199:ДЕDD│30░MM│2░YRм Ш(YRо4)н4│0зDD│29TJ├YY│ Й(YY$):DD│DDмMT(MM):MM│MMл1:ЕMM│13зMM│1T\─ЕMM│1зYY│YYл1T╒┼YY$│ П( И(YY),2):MM$│ П( И(MM),2):DD$│ П( И(DD),2):Е О(MM$,1)│" "зMM$│"0"л П(MM$,1):Е О(DD$,1)│" "зDD$│"0"л П(DD$,1)T▀╞Бе200U╟DD$│ П( И(DD),2):Е О(DD$,1)│" "зDD$│"0"л П(DD$,1)U+╚ND$│YY$лMM$лDD$:РUП╔Бж183:MO│ Й( Р(DT$,3,2)):DQ│ Й( П(DT$,2)):YR│ Й( О(DT$,2)):T│ Ш(NXо5):R│ Ш(NXмTн5л.01):ЕR│0з208U▒╩АLP│1еR:DN│DNм1:ЕDN│1зDQ│DQм2U╟╦DQ│DQм1:ЕDQ▓0з207Uч╠MO│MOм1:ЕMO│0зMO│12:YR│YRм1V═DQ│MT(MO)лDQ:ЕMO┤▓2з207V"╬Y│ Ш(YRо4):ЕYR│Yн4зDQ│DQл1V*╧ЛLPV7╨ЕT│0з214VU╤АLP│1еT:DQ│DQм7:ЕDQ▓0з213Vu╥MO│MOм1:ЕMO│0зMO│12:YR│YRм1VС╙DQ│MT(MO)лDQ:ЕMO┤▓2з213V░╘Y│ Ш(YRо4):ЕYR│Yн4зDQ│DQл1V╕╒ЛLPW
╓XD$│ П( И(YR),2)л П( И(MO),2)л П( И(DQ),2):ЕDQ┤10зXD$│ О(XD$,4)л"0"л П(XD$,1)W1╫ЕMO┤10зXD$│ О(XD$,2)л"0"л П(XD$,3)W7╪РWД┘M1│ Й( Р(DT$,3,2)):M2│ Й( Р(DN$,3,2)):ЕM1┤M2зGS│(12мM2)н31лM1н31л1:Бе219WЩ┌GS│31н(M1мM2)л31Wж█H│GS:L│0W╩▄NX│(HлL)о2:NX│ Ш(NX):ЕHмL▓1з223Wф▌NX│L:Бж201:ЕDN$│XD$зРWя▐NX│H:РX▀Бж201:Е Й(XD$)▓ Й(DN$)з227X'рЕ Й(XD$)┤ Й(DN$)з226X-сРX<тH│NX:Бе220XKуL│NX:Бе220XhфЙA$:Е О(A$,1)│"?"з232:ДРXКхA$│ Т:ЕA$│"?"з232:ДЕA$│""з229XРцРX└чЙA$:Е О(A$,1)│"?"з232:ДA│ Й(A$):A$│"0"лA$:РXїшИHEБе233,234,236,238,239,240,241,242,243,246,247YVщЮ:З"ENTER A NUMBER BETWEEN 12 AND   245.  THE MOST RECENT PRICES    WILL BE LISTED.":Бж244:РZ?ъЮ:З"THE 'IDENT. SYMBOL IS USUALLY   THE TICKER SYMBOL FOR THE SECUR-ITY ALTHOUGH IT DOESN'T HAVE TO BE (EG. 'SILVER' COULD BE USED  FOR THAT COMMODITY).  IT MUST   MATCH THE 'IDENT. SYMBOL' EN-   TERED WHEN THE SERIES WAS FIRST"Z╪ыЗ"SET UP.  USE THE 'OBTAIN MASTER LIST' FUNCTION ON THE MAIN OR   UTILITY MENU TO GET A LIST OF   THE 'IDENT. SYMBOLS' ON THIS    DISKETTE.":Бж244:Р[┴ьЮ:З"ENTER TYPE OF PRICE SERIES.  IT SHOULD MATCH THE 'TYPE' DEFINED WHEN THE SERIES WAS SET UP.  USE 'I' FOR INDICES SUCH AS THE    DJIA OR FOR MUTUAL FUNDS.  USE  'S' FOR STOCKS OR BONDS.  USE   'F' FOR ALL COMMODITIES INCLUD-"[°эЗ"ING STOCK INDEX FUTURES CON-    TRACTS.":Бж244:Р\EюЮ:З"ENTER EXPIRATION MONTH OF THIS  OPTION OR FUTURES CONTRACT.":Бж244:Р]яЮ:З"ENTER THE STRIKING PRICE OF THE OPTION CONTRACT.  IT MUST BE A  MULTIPLE OF $5 FOR UNDERLYING   STOCK PRICES UNDER $100 OR A    MULTIPLE OF $10 FOR UNDERLYING  STOCK PRICES OF $100 AND ABOVE.":Бж244:Р]wЁЮ:З"SCREEN DISPLAY IS FASTER AND    QUIETER.  HARD COPY IS GOOD FOR RECORD KEEPING.":Бж244:Р]╙ёЮ:З"THIS SHOULD BE THE LAST WORKING DAY BEFORE THE SPLIT BECAME     EFFECTIVE.":Бж244:Р^ЄЮ:З"IN A THREE FOR TWO SPLIT, THIS  ENTRY WOULD BE '2'.":Бж244:Р^]єЮ:З"IN A THREE FOR TWO SPLIT, THIS  ENTRY WOULD BE '3'.":Бж244:Р^СЇЗ@480,"**PRESS <ANY KEY> TO CONTINUE**";:A$│"?"^йїX$│ Т:ЕX$│""з245:ДР_ЎЮ:З"ENTER SIX DIGITS (YEAR FIRST)   REPRESENTING DATE OF DATA TO BE CORRECTED.":Бж244:Р_╦ўЮ:З"VOLUMES SHOULD BE ENTERED IN    100'S OF SHARES TRADED.  PRICES OF SECURITIES, STOCK INDICES,   COMMODITIES, ETC. SHOULD BE EN- TERED IN DECIMAL FORMAT (EG.    $23 1/2 = $23.5).":Бж244:Ю0:Р`°ЖJAN,FEB,MAR,APL,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC`∙АK│1е12:НML$(K):ЛK:Р`(·ЕA$│""з258`T√АIX│1е З(A$):X$│ Р(A$,IX,1):ЕX$│" "з257`b№ЕXF│1з254`А¤ЕX$│"+"▒X$│"."з257:ДБе255`Р■ЕX$│"+"з257`п Е К(X$)▓│48░ К(X$)┤│57з257`╣
Бе258`╥

ЛIX:Е Й(A$)│0з258:ДРaS
A│м10:З@384, б(96, Л(191));:З@417,"     BAD INPUT - RE-ENTER     ";:АIG│1е3:а190,8:АIH│1е200:ЛIH:ЛIG:З@384, б(96, Л(128));:Рaa
ЕOY│1з261aГ
Щ"D",#5,"PRICES/DAT:0",8:OY│1aн
Щ"D",#6,"PRICEMAP/DAT:0",19:ЕOX│1з263a╔
МR1(5),R8(5),C9(5):OX│1b
Е Р(FL$,7,1)┤▓" "░ Р(FL$,8,1)│" "зC9(LF)│1:ДC9(LF)│0b
Е е(6)│0з271bX
	АR9│1е е(6):╨#6,8 зF9$,5 зR1$,5 зR8$,1 зBS$:─#6,R9:ЕF9$┤▓FL$з267bА

R1(LF)│ Й(R1$):R8(LF)│ Й(R8$):Ъ#6:Рbй
ЛR9:АR9│1е е(6):─#6,R9:ЕBS$┤▓"A"з270b╔
Е( Й(R8$)м Й(R1$)л1)┤H9з270c8

╨#6,8 зF9$,5 зR1$,5 зR8$,1 зBS$:╘F9$│FL$:╘R1$│R1$:╘R8$│R8$:╘BS$│"U":R1(LF)│ Й(R1$):R8(LF)│ Й(R8$):┼#6,R9:Рc▒
ЛR9:R9│ е(6)л1:╘R1$│ И( Й(R8$)л1):R1(LF)│ Й(R1$):╘R8$│ И( Й(R1$)лH9м1):R8(LF)│ Й(R8$):╘BS$│"U":╘F9$│FL$:┼#6,R9:Ъ#6:Рd#
╨#6,8 зF9$,5 зR1$,5 зR8$,1 зBS$:╘F9$│FL$:╘R1$│ И(1):R1(LF)│1:╘R8$│ И(H9):R8(LF)│H9:╘BS$│"U":R9│1:┼#6,R9:Ъ#6:Рdв
R9│RCм1лR1(LF):╨#5,2 зJV$,2 зJC$,2 зJH$,2 зJL$:─#5,R9:VX│ К( О(JV$,1))н256л К( П(JV$,1)):VX$│ И(VX):Е К( П(JC$,1))▓127з277d┤
ЕC9(LF)│1з276e
PX│ К( О(JC$,1))л К( П(JC$,1))о16:PH│ К( О(JH$,1))л К( П(JH$,1))о16:PL│ К( О(JL$,1))л К( П(JL$,1))о16e/
PX$│ И(PX):Рeв
PX│ К( О(JC$,1))л К( П(JC$,1))о100:PH│ К( О(JH$,1))л К( П(JH$,1))о100:PL│ К( О(JL$,1))л К( П(JL$,1))о100:Бе275fИ
PX│ К( О(JC$,1))н128:R9│ К( П(JC$,1)):R9│(R9)░(127):PX│(PXлR9)о10:PH│ К( О(JH$,1))н128:R9│ К( П(JH$,1)):R9│(R9)░(127):PH│(PHлR9)о10:PL│ К( О(JL$,1))н128:R9│ К( П(JL$,1)):R9│(R9)░(127):PL│(PLлR9)о10:Бе275:VX│ Й(VX$):PX│ Й(PX$)fэ
╨#5,2 зJV$,2 зJC$,2 зJH$,2 зJL$:L9│ Ш(VXо256):R9│VXмL9н256:╘JV$│ Л(L9)л Л(R9):ЕPX▓256▒PH▓256з283f 
ЕC9(LF)│1з282gД
L9│ Ш(PX):R9│(PXмL9)н16:╘JC$│ Л(L9)л Л(R9):L9│ Ш(PH):R9│(PHмL9)н16:╘JH$│ Л(L9)л Л(R9):L9│ Ш(PL):R9│(PLмL9)н16:╘JL$│ Л(L9)л Л(R9)gа
R9│RCм1лR1(LF):┼#5,R9:РhC
L9│ Ш(PX):R9│ Ш((PXмL9)н100л.5):╘JC$│ Л(L9)л Л(R9):L9│ Ш(PH):R9│ Ш((PHмL9)н100л.5):╘JH$│ Л(L9)л Л(R9):L9│ Ш(PL):R9│ Ш((PLмL9)н100л.5):╘JL$│ Л(L9)л Л(R9):Бе281i1
PX│ Ш(PXн10л.5):L9│ Ш(PXо128):R9│PXмL9н128:R9│(R9)▒(128):╘JC$│ Л(L9)л Л(R9):PH│ Ш(PHн10л.5):L9│ Ш(PHо128):R9│PHмL9н128:R9│(R9)▒(128):╘JH$│ Л(L9)л Л(R9):PL│ Ш(PLн10л.5):L9│ Ш(PLо128):R9│PLмL9н128:R9│(R9)▒(128):╘JL$│ Л(L9)л Л(R9):Бе281iS
R1(LF)│0:АR9│1е5:ЕR1(R9)┤▓0зРia
ЛR9:Ъ#5:РiС
Ъ:Е Ж(32764)│0зО"MENU/BAS:0":ДО"MENU/BAS:1"PH│ Ш(PHн10л.5):L9│ Ш(PHо128):R9│PHмL9н128:R9│(R9)▒(128):╘JH$│ Л(L9)л Л(R9):PL│ Ш(PLн10л.5):L9│ Ш(PLо128):R                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 -l&
Е Ж(32762)│1з2:Д217&2Х1000:Т32762,0:Бе199&hDR$│ П( И( Ж(32764)),1):МMT(13):Бж44:Бж56:Ю0:SF│0&ТЮ0:З@35," AUTO PRICE HISTORY INPUT ";'JАIG│134е230й32:З@IG, б(20, Л(255));:ЛIG:З@167," ENTER FILE NAME  ";:З@199," TO BE SEARCHED   ";:З@296,"   AAAAAAAA/EEE";:З@295, Л(128);:ЙF$:Е О(F$,1)│"?"з166:ДЗ@311, б(9, Л(128));'cA$│F$:Бж200:ЕFF┤▓0з5'юЮ0:З@164," 'C' IF COMPUSERVE FILE ";:З@196," 'D' IF DOW JONES FILE  ";:АIG│324е388й32:З@IG, б(24, Л(207));:ЛIG:З@361," TOUCH C OR D ";(TF$│ Т:ЕTF$│"?"з167:ДЕTF$│""з8(*	ЕTF$┤▓"C"░TF$┤▓"D"з7(>
Щ"I",#2,F$:Бе13(eАIH│1е3:а190,8:АII│1е200:ЛII:ЛIH:Р(жАIG│384е448й32:З@IG, б(32, Л(191));:ЛIG:З@417,ER$;:Бж11:Ю0:Р(└
Ю0:Бж124:ЕTIC$┤▓""з15)"АIG│384е448й32:З@IG, б(32, Л(191));:ЛIG:З@417,"  SERIES NOT FOUND- RE-ENTER  ";:Бж11:Ъ#4:Бе13)RЕTIC$│"ZZZZ"зA$│"ZZZZ":Ъ#4:О"MENU/BAS:"лDR$)kA$│TIC$:L│ З(A$):J│0)ЕЕ Р(A$,LмJ,1)┤▓" "з19)ФJ│Jл1:Бе17)█A$│ О(A$,LмJ):NT│LмJ:SR│I:R│I:Е К(SC$)▓│97зSC$│ Л( К(SC$)м32):SF│1*Ю7:З@224л3," SEARCHING RECEIVED INPUT ";:ЕTF$│"D"з69*;ЕTY$│"C"▒TY$│"P"зA$│A$л" "лMC$лSC$*IA$│A$л","*ZЕ М(2)│м1з48*Т╗Й#2,C$:NO│ З(C$):АP│1еNO:D$│ Р(C$,P,1):ЕD$┤▓","з26*│L│ З(C$)мP:RT$│ П(C$,L):Бе27*┐ЛP:Бе23*╤Е З(RT$)┤1з23*шЕ З(RT$)┤ З(A$)з23+ЕA$│ О(RT$, З(A$))з31+Бе23+?A$│ О(C$,Pм1):NZ│ Й(A$):LD│ Й(LD$):Е М(2)│м1з48+м Й#2,DT$,VOL$,HI$,LO$,CL$:G$│ П(DT$,6):DATE│ Й(G$):VOL│ Й(VOL$):HI│ Й(HI$):LO│ Й(LO$):CL│ Й(CL$):ЕLD│0з35+╒!DT$│LD$:Бж60:ND│ Й(ND$):ЕND▓│DATEз35,Н"Ю0:З@160, б(32, Л(191));:З"EARLIEST DATE IN RECORDED       SESSION IS PAST EXPECTED DATE INPERMANENT FILE - UPDATING NOT   DONE":З б(32, Л(191));:Бж11:Ъ#4:Ъ#2:Ъ#1:О"MENU/BAS:"лDR$,Х#I│1,е$ЕDATE▓LDз39,╢%Е М(2)│м1з48-&Й#2,G$,VOL$,HI$,LO$,CL$:DATE│ Й(G$):VOL│ Й(VOL$):HI│ Й(HI$):LO│ Й(LO$):CL│ Й(CL$):I│Iл1:Бе36-F'LR│ Й(LR$):R│LRл1:ЕSF│1зSC$│ Л( К(SC$)л32)-╝(F$│TIC$лMC$лSC$:FL$│F$:LF│3:Бж170:VX$│ И(VOL):PX$│ И(CL):PH│HI:PL│LO:LF│3:RC│R:Бж189:R│Rл1:АJ│1еNZмI:Е М(2)│м1з48.h)Й#2,DT$,VOL$,HI$,LO$,CL$:G$│ П(DT$,6):DATE│ Й(G$):VOL│ Й(VOL$):HI│ Й(HI$):LO│ Й(LO$):CL│ Й(CL$):VX$│ И(VOL):PX$│ И(CL):PH│HI:PL│LO:LF│3:RC│R:Бж189:R│Rл1:ЕR▓ Й(MR$)зR│1.o*ЛJ.ў+R│Rм1:╘LR$│ И(R):╘LD$│ П( И(DATE),6):┼#4,SR:LF│3:Бж197:Ъ#4:Ъ#4:Ъ#2:Ю0:З@224л6," PRICE DATA UPDATED ";:АI│1е1000:ЛI:О"MENU/BAS:"лDR$/_,МMO$(13),PC$(13),CC$(13),S$(30),S1$(30):АI│1е12:НMO$(I),CC$(I),PC$(I):ЛI:АI│1е30:НS$(I),S1$(I):ЛI:Р/╕-Ж01,A,M,02,B,N,03,C,O,04,D,P,05,E,Q,06,F,R,07,G,S,08,H,T,09,I,U,10,J,V,11,K,W,12,L,X0!.Ж5,A,10,B,15,C,20,D,25,E,30,F,35,G,40,H,45,I,50,J,55,K,60,L,65,M,70,N,75,O,80,P,85,Q,90,R,95,S,100,T0b/Ж110,b,120,d,130,f,140,h,150,j,160,l,170,n,180,p,190,r,200,t0р0Ю0:З@160, б(32, Л(191));:З"RECORDED SESSION FILE REACHED   PREMATURELY - FILES NOT ENTIRELYUPDATED":З б(32, Л(191));:Бж110ў1Ъ:О"MENU/BAS:"лDR$1I2YR│ Й( О(DT$,2)):C│YRм81л Б((YRм81)о4):J1│5лCл700:J1│J1м Ш(J1о7)н7:ЕJ1│0зJ1│71x3MO│ Й( Р(DT$,3,2)):TT│0:АIX│1е12:ЕMO│IXз541з4TT│TTлMT(IX):ЕIX│2░YRм Ш(YRо4)н4│0зTT│TTл11п5ЛIX1Ё6TT│TTл Й( Р(DT$,5,2)):DN│J1лTTм1:DN│DNм Ш(DNо7)н7:ЕDN│0зDN│71Ў7Р2 8Ж 31,28,31,30,31,30,31,31,30,31,30,312]9АIZ│1е12:НMT(IZ):ЛIZ:Р:DT$│MO$л"01":Бж50:C│6мDN:ЕC│м1з592А:F3│Cл15:DT$│MO$л П( И(F3),2):Р2У;DT$│MO$л"21":Р2╫<YY$│ О(DT$,2):MM$│ Р(DT$,3,2):DD$│ П(DT$,2):Бж50:ЕDN│6зC│3:ДC│13P=DD│ Й(DD$)лC:MM│ Й(MM$):ЕDD┤│MT(MM)з66:ДYR│ Й(YY$):ЕDD│29░MM│2░YRм Ш(YRо4)н4│0з66:ДЕDD│30░MM│2░YRм Ш(YRо4)н4│0зDD│293А>YY│ Й(YY$):DD│DDмMT(MM):MM│MMл1:ЕMM│13зMM│13Т?ЕMM│1зYY│YYл13ъ@YY$│ П( И(YY),2):MM$│ П( И(MM),2):DD$│ П( И(DD),2):Е О(MM$,1)│" "зMM$│"0"л П(MM$,1)3єAБе674BDD$│ П( И(DD),2)4-CЕ О(DD$,1)│" "зDD$│"0"л П(DD$,1)4JDND$│YY$лMM$лDD$:Р:╤6:Бе34bEЕMC$│" "░SC$│" "з714┘FЮ0:З@192, б(32, Л(191));:З"DOW JONES SERVICE ONLY GIVES      HISTORICAL DATA ON STOCKS":З б(32, Л(191));:Бж11:Бе135GDZ$│LD$:R│ Й(LR$)л1:ЕR▓ Й(MR$)зR│15HLF│3:FL$│TIC$л"  ":Бж1705=IЕ М(2)│м1зDATE│ Й(DZ$):Бе435nJ╗Й#2,C$:Е Р(C$,4,4)│"DISC"зDATE│ Й(DZ$):Бе435ЦKЕ О(C$,5)│"STOCK"░ Р(C$,8,NT)│A$з785╛LЕ О(C$,5)│"STOCK"░ Р(C$,7,NT)│A$з785╟MБе735чNЕ М(2)│м1зDATE│ Й(DZ$):Бе436	O╗Й#2,C$:Е О(C$,5)┤▓" DATE"з786+PЕ Р(C$,14,3)│"BID"зXW│1:ДXW│064QI│126TRЕ М(2)│м1зDATE│ Й(DZ$):Бе436`S╗Й#2,C$6ЖTЕ Р(C$,3,1)│"/"░ Р(C$,6,1)│"/"з867UЮ0:З@192, б(32, Л(191));:З"PRICE FILE INPUT OUT OF SEQUENCE  - FILES NOT ENTIRELY UPDATED":З б(32, Л(191));:Бж11:Бе497?VDV$│ Р(C$,7,2)л О(C$,2)л Р(C$,4,2):Е Й(DZ$)│0зND$│DV$:Бе947WDT$│DZ$:Бж60:ND$│ П(ND$,6):Е Р(ND$,5,1)│" "з Р(ND$,5,1)│"0"7ЭXND│ Й(ND$):Е Й(DV$)│NDз947░YЕ Й(DV$)┤NDз927їZDZ$│ND$:PX│0:VX│0:PH│0:PL│0:LF│3:RC│R:Бж190:R│Rл1:ЕR▓ Й(MR$)зR│17■[Бе848\I│Iм1:ЕI│0з738]Бе8284^DZ$│ND$:J│9:I│Iм1:IP│18L_Е Р(C$,J,1)┤▓" "з988╩`J│Jл1:ЕJ▓ З(C$)зЮ0:З@192, б(32, Л(191));:З"BAD FILE FORMAT - FILES NOT       ENTIRELY UPDATED":З б(32, Л(191));:Бж11:Бе498╙aБе958хbЕXW│0з99:Д1008■cИIPБе101,102,103,1049dИIPБе110,111,1049,eIP│2:Бж112:PH│X:Бе959EfIP│3:Бж112:PL│X:Бе959^gIP│4:Бж112:PX│X:Бе959ИhK│ Ю(J,C$," "):ЕK┤│J░K┤▓0зJ│2000:Бе969ЭiЕK│0зVX│ П(C$,J)9═jЕ Р(C$,J,3)│"NOT"зVX│0:PX│0:PH│0:PL│0:Бе1089хkVX│ Й( Р(C$,J,KмJ)):lLF│3:RC│R:Бж190:R│Rл1:ЕR▓ Й(MR$)зR│1:mЕI│0з73:Д82:7nIP│2:Бж112:PL│X:Бе95:]oIP│3:Бж112:PH│X:PX│(PHлPL)о2:Бе95:ДpЕ Р(C$,J,10)│"NOT TRADED"зX$│"0":Р:МqX│0:╜rX│Xл Й( Р(C$,J,1)):J│Jл1:Е Р(C$,J,1)│" "з116:╬sX│Xн10:Бе114:ъtJ│Jл1:Е Р(C$,J,1)│" "зР:єuNU│0;&vNU│NUл Й( Р(C$,J,1)):J│Jл1:Е Р(C$,J,1)│"/"з120;9wNU│NUн10:Бе118;HxJ│Jл1:DE│0;{yDE│DEл Й( Р(C$,J,1)):J│Jл1:Е Р(C$,J,1)│" "з123;ОzDE│DEн10:Бе121;Ю{X│XлNUоDE:Р<O|Ю0:АIG│164е292й32:З@IG, б(24, Л(255));:ЛIG:З@198,"    ENTER IDENT.    ";:З@230,"       SYMBOL       ";:З@262,"  OR 'ZZZZ' TO QUIT ";:АIG│352е448й32:З@IG, б(32, Л(128));:ЛIG<й}З@363,"   AAAA";:З@362, Л(128);:ЙA$:Е О(A$,1)│"?"з160:ДЗ@363, б(21, Л(128));:J│ З(A$)<┬~Е Р(A$,J,1)┤▓" "з128<╥J│Jм1:Бе126<ЄАA$│ О(A$,J):ЕA$┤▓"ZZZZ"з131=БTIC$│"ZZZZ":Р=7ВБж137:АIG│96е128й32:З@IG, б(32, Л(128));:ЛIG:Р>1ГЮ0:Бж130:АIG│100е292й32:З@IG, б(24, Л(255));:ЛIG:З@133," ENTER 'S' FOR STOCK  ";:З@165,"       'C' FOR CALL   ";:З@197,"       'P' FOR PUT    ";:З@229,"       'I' FOR INDEX  ";:З@261,"       'F' FOR FUTURE ";:З@365,"   A"; Л(128);:З@364, Л(128);>АДZZ$│A$:ЙA$:Е О(A$,1)│"?"зA$│ZZ$:Бе162:ДЗ@369, б(15, Л(128));:TY$│A$:A$│ZZ$>ЩЕЕTY$│"S"▒TY$│"I"з151>▓ЖЕTY$│"F"▒TY$│"C"з138>├ЗЕTY$│"P"з138>ўИER$│"   INVALID ENTRY - RE-ENTER   ":Бж12:Бе131?%ЙАIG│384е448й32:З@IG, б(32, Л(128));:ЛIG:Р?─КЮ0:Бж137:Бж159:З@135,"      ENTER       ";:З@167," EXPIRATION MONTH ";:З@199,"  (FOR EXAMPLE -  ";:З@231,"    ENTER '01'    ";:З@263,"   FOR JANUARY)   ";@1ЛЗ@364,"   AA";:З@363, Л(128);:ZZ$│A$:ЙA$:Е О(A$,1)│"?"зA$│ZZ$:Бе164:ДЗ@369, б(15, Л(128));:EM$│A$:A$│ZZ$@NМАI│1е12:ЕEM$┤▓MO$(I)з144@_НЕTY$│"P"з143@tОMX$│CC$(I):Бе145@ЙПMX$│PC$(I):Бе145@└РЛI:ER$│"   INVALID ENTRY - RE-ENTER   ":Бж12:Бе138@┘СSS$│" ":ЕTY$│"F"з153AxТЮ0:Бж159:Бж137:З@135,"      ENTER       ";:З@167,"  OPTION STRIKING ";:З@199," PRICE (EG. '75'  ";:З@231," FOR A $75 STRIKE ";:З@263,"      PRICE)      ";AцУЗ@364,"   NNN";:З@363, Л(128);:ZZ$│A$:ЙA$:Е О(A$,1)│"?"зA$│ZZ$:Бе165:ДЗ@369, б(15, Л(128));:SS$│A$:A$│ZZ$BФАI│1е30:ЕSS$┤▓S$(I)з150BХSS$│S1$(I):Бе153BNЦЛI:ER$│"   INVALID ENTRY - RE-ENTER   ":Бж12:Бе146BlЧЕTY$│"I"зM1$│"Z":ДM1$│" "BАШMX$│M1$:SS$│" "CЩЩ"D",#4,"SETUP/DAT",39:╨#4,6 зTIC$,6 зLD$,4 зLR$,4 зMR$,9 зCU$,1 зOP$,6 зED$,1 зMC$,1 зSC$,1 зST$:АI│1е е(4):─#4,I:Е О(TIC$, З(A$))┤▓A$з158C"ЪЕTY$┤▓OP$з158C4ЫЕMX$┤▓MC$з158CFЬЕSS$┤▓SC$з158CLЭРC]ЮЛI:TIC$│"":РCЛЯАIG│100е292й32:З@IG, б(24, Л(255));:ЛIG:РDtаЮ:З"THE 'IDENT. SYMBOL IS USUALLY   THE TICKER SYMBOL FOR THE SECUR-ITY ALTHOUGH IT DOESN'T HAVE TO BE (EG. 'SILVER' COULD BE USED  FOR THAT COMMODITY).  IT MUST   MATCH THE 'IDENT. SYMBOL' EN-   TERED WHEN THE SERIES WAS FIRST"EбЗ"SET UP.  USE THE 'OBTAIN MASTER LIST' FUNCTION ON THE MAIN OR   UTILITY MENU TO GET A LIST OF   THE 'IDENT. SYMBOLS' ON THIS    DISKETTE.":Бж168:Бе124E·вЮ:З"ENTER TYPE OF PRICE SERIES.  IT SHOULD MATCH THE 'TYPE' DEFINED WHEN THE SERIES WAS SET UP.  USE 'I' FOR INDICES SUCH AS THE    DJIA OR FOR MUTUAL FUNDS.  USE  'S' FOR STOCKS OR BONDS.  USE   'F' FOR ALL COMMODITIES INCLUD-"F5гЗ"ING STOCK INDEX FUTURES CON-    TRACTS.":Бж168:Бе131FЖдЮ:З"ENTER EXPIRATION MONTH OF THIS  OPTION OR FUTURES CONTRACT.":Бж168:Бе138G"еЮ:З"ENTER STRIKING PRICE OF OPTION. IT MUST BE A MULTIPLE OF 5 FOR  PRICES UNDER 100 OR A MULTIPLE  OF 10 FOR PRICES OF 100 AND     ABOVE.":Бж168:Бе146GжжЮ:З"ENTER THE NAME OF THE FILE IN   WHICH THE HISTORICAL DATA WAS   STORED UNDER THE 'GET PRICES BY PHONE' FUNCTION.":Бж168:Бе4HзЮ:З"THIS DEFINES WHETHER THE DATA   WAS RECEIVED FROM COMPUSERVE OR DOW JONES.":Бж168:Бе7H1иЗ@480,"**PRESS <ANY KEY> TO CONTINUE**";HIйX$│ Т:ЕX$│""з169:ДРHWкЕOY│1з172HyлЩ"D",#5,"PRICES/DAT:0",8:OY│1HгмЩ"D",#6,"PRICEMAP/DAT:0",19:ЕOX│1з174H┐нМR1(5),R8(5),C9(5):OX│1H°оЕ Р(FL$,7,1)┤▓" "░ Р(FL$,8,1)│" "зC9(LF)│1:ДC9(LF)│0I	пЕ е(6)│0з183IN░АR9│1е е(6):╨#6,8 зF9$,5 зR1$,5 зR8$,1 зBS$:─#6,R9:ЕF9$┤▓FL$з178Ir▒R1(LF)│ Й(R1$):R8(LF)│ Й(R8$):РIЫ▓ЛR9:АR9│1е е(6):─#6,R9:ЕBS$┤▓"A"з181I╗│Е( Й(R8$)м Й(R1$)л1)┤H9з181J*┤╨#6,8 зF9$,5 зR1$,5 зR8$,1 зBS$:╘F9$│FL$:╘R1$│R1$:╘R8$│R8$:╘BS$│"U":R1(LF)│ Й(R1$):R8(LF)│ Й(R8$):┼#6,R9:РJ:╡ЛR9:ЕH9│0зСJл╢R9│ е(6)л1:╘R1$│ И( Й(R8$)л1):R1(LF)│ Й(R1$):╘R8$│ И( Й(R1$)лH9м1):R8(LF)│ Й(R8$):╘BS$│"U":╘F9$│FL$:┼#6,R9:РKФ╖╨#6,8 зF9$,5 зR1$,5 зR8$,1 зBS$:╘F9$│FL$:╘R1$│ И(1):R1(LF)│1:╘R8$│ И(H9):R8(LF)│H9:╘BS$│"U":R9│1:┼#6,R9:Р:R9│RCм1лR1(LF):╨#5,2 зJV$,2 зJC$,2 зJH$,2 зJL$:─#5,R9:VX│ К( О(JV$,1))н256л К( П(JV$,1)):VX$│ И(VX):Е К( П(JC$,1))▓127з188Kж╕ЕC9(LF)│1з187L╣PX│ К( О(JC$,1))л К( П(JC$,1))о16:PH│ К( О(JH$,1))л К( П(JH$,1))о16:PL│ К( О(JL$,1))л К( П(JL$,1))о16L!║PX$│ И(PX):РLФ╗PX│ К( О(JC$,1))л К( П(JC$,1))о100:PH│ К( О(JH$,1))л К( П(JH$,1))о100:PL│ К( О(JL$,1))л К( П(JL$,1))о100:Бе186Md╝PX│ К( О(JC$,1))н128:R9│ К( П(JC$,1)):R9│(R9)░(127):PX│(PXлR9)о10:PH│ К( О(JH$,1))н128:R9│ К( П(JH$,1)):R9│(R9)░(127):PH│(PHлR9)о10:PL│ К( О(JL$,1))н128:R9│ К( П(JL$,1)):R9│(R9)░(127):PL│(PLлR9)о10:Бе186M~╜VX│ Й(VX$):PX│ Й(PX$)Mс╛╨#5,2 зJV$,2 зJC$,2 зJH$,2 зJL$:L9│ Ш(VXо256):R9│VXмL9н256:ЕL9▓255зL9│255:R9│255:ДR9│VXмL9н256N┐╘JV$│ Л(L9)л Л(R9):ЕPX▓256▒PH▓256з196N└ЕC9(LF)│1з195Nв┴L9│ Ш(PX):R9│(PXмL9)н16:╘JC$│ Л(L9)л Л(R9):L9│ Ш(PH):R9│(PHмL9)н16:╘JH$│ Л(L9)л Л(R9):L9│ Ш(PL):R9│(PLмL9)н16:╘JL$│ Л(L9)л Л(R9)N╛┬R9│RCм1лR1(LF):┼#5,R9:РOa├L9│ Ш(PX):R9│ Ш((PXмL9)н100л.5):╘JC$│ Л(L9)л Л(R9):L9│ Ш(PH):R9│ Ш((PHмL9)н100л.5):╘JH$│ Л(L9)л Л(R9):L9│ Ш(PL):R9│ Ш((PLмL9)н100л.5):╘JL$│ Л(L9)л Л(R9):Бе194PO─PX│ Ш(PXн10л.5):L9│ Ш(PXо128):R9│PXмL9н128:R9│(R9)▒(128):╘JC$│ Л(L9)л Л(R9):PH│ Ш(PHн10л.5):L9│ Ш(PHо128):R9│PHмL9н128:R9│(R9)▒(128):╘JH$│ Л(L9)л Л(R9):PL│ Ш(PLн10л.5):L9│ Ш(PLо128):R9│PLмL9н128:R9│(R9)▒(128):╘JL$│ Л(L9)л Л(R9):Бе194Pq┼R1(LF)│0:АR9│1е5:ЕR1(R9)┤▓0зРPВ╞ЛR9:Ъ#6,#5:РPС╟╤6,256:Бе3P├╚FX$│ б(11," "):TG│1:Е З(A$)┤8зEN│ З(A$):ДEN│8Pы╔АIX│1еEN:X$│ Р(A$,IX,1):ЕX$│" "з204Q╩ЕX$│"/"зTG│9:BG│IXл1:EN│IXл3:Бе208Q.╦ Р(FX$,TG,1)│X$:TG│TGл1QY╠ЛIX:Е З(A$)┤│8з Р(FX$,9,3)│"DAT":Бе212Qr═Е Р(A$,9,1)┤▓"/"з215QЕ╬Е З(A$)▓12з215QХ╧BG│10:EN│12Qо╨ЕEN▓ З(A$)зEN│ З(A$)Q╫╤АIX│BGеEN:X$│ Р(A$,IX,1):ЕX$│" "з211Qє╥ Р(FX$,TG,1)│X$:TG│TGл1Q√╙ЛIXRK╘АIX│3е11:▀0,17,IX,X$,B$:X$│X$л О(B$,127):АIY│1е225й32:Е Р(X$,IY,11)│FX$з214RЗ╒ЛIY:ЛIX:FF│2:ER$│"     FILE NOT ON DISKETTE     ":Бе216RТ╓FF│0:РR└╫FF│1:ER$│"      INVALID FILE NAME       "S;╪X$│"":АIX│1408е1503:X$│X$л Л( Ж(IX)):ЛIX:З@384, б(96, Л(19  &Х200,32761:МK(15,64)&}Бж1000:Т32764,0:Т32763,0:Т32762,0:DR$│ П( И( Ж(32764)),1):Т32767,0:Т32766,0:О"MENU/BAS:"лDR$:К'шЖ0,1,0,1,1,0,0,0,1,0,1,0,0,0,1,0,1,1,1,1,0,1,1,1,1,0,1,1,1,1,1,0,1,1,1,1,0,1,1,1,1,1,0,1,1,1,1,0,0,1,1,1,0,0,1,1,1,1,0,1,0,0,1,0'ИщЖ 0,1,0,1,1,1,0,0,1,0,1,1,0,1,1,0,1,0,0,0,0,1,0,0,0,0,0,0,1,0,0,0,1,0,0,1,0,1,0,0,0,0,0,1,0,0,1,0,0,1,0,1,0,0,1,0,0,1,0,1,0,0,1,0(ъЖ 0,1,0,1,0,1,1,0,1,0,1,1,0,1,1,0,1,1,1,0,0,1,1,1,1,0,0,0,1,0,0,0,1,0,0,1,0,1,0,1,1,1,0,1,1,1,1,0,1,1,0,1,1,0,1,1,1,1,0,1,1,1,1,0(ФыЖ 0,1,0,1,0,0,1,1,1,0,0,1,0,1,0,0,1,0,0,0,0,0,0,0,1,0,0,0,1,0,0,0,1,0,0,1,0,1,0,0,0,1,0,1,0,1,0,0,1,1,1,1,1,0,1,0,0,0,0,1,0,0,1,0)ьЖ 0,1,0,1,0,0,0,1,1,0,0,1,1,1,0,0,1,1,1,1,0,1,1,1,1,0,0,0,1,0,0,0,1,1,1,1,0,1,1,1,1,1,0,1,0,1,1,0,1,0,0,0,1,0,1,0,0,0,0,1,0,0,1,0)jэЮ0:АI│9е13:АJ│0е63:НK(I,J):ЛJ:ЛI:АJ│0е63:АI│9е13:ЕK(I,J)│1зЬ(J,I,3):ДЭ(J,I)*6ЛI:ЛJ:З@265," VER 01.00.00 ";:З@320,"COPR. 1983 ROBERT D. MC CULLOUGH";:З@387," LICENSED TO TANDY CORP.  ";:З@453," ALL RIGHTS RESERVED  ";:АI│1е1000:ЛI:Р:Х200,32761:╤2,700:Бе7АI│9е13:АJ│0е63:НK(I,J):ЛJ:ЛI:АJ│0е63:АI│9е13:ЕK(I,J)│1зЬ(J,I,3):ДЭ(J,I)*6ЛI:ЛJ:З@265," VER 01.00.00 ";:З@320,"COPR. 1983 ROBERT D. MC CULLOUGH";:З@387," LICENSED TO TANDY CORP.  ";:З@453," ALL RIGHTS RESERVED  ";:АI│1                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  h+
Е Ж(32762)│1з3:Д49000+╠Х1000:Т32762,0:╤6:МMT(13):Ю0:DR$│ П( И( Ж(32764)),1):Бж4000:Бж1000:Бж20190:Щ"D",#1,"SETUP/DAT",39:╨#1,6 зTIC$,6 зLD$,4 зLR$,4 зMR$,9 зCU$,1 зOP$,6 зED$,1 зMC$,1 зSC$,1 зST$,╛Ю0:Бж4000:АIG│164е292й32:З@IG, б(24, Л(255));:ЛIG:З@198,"    ENTER IDENT.    ";:З@230,"       SYMBOL       ";:З@262,"  OR 'ZZZZ' TO QUIT ";:АIG│352е448й32:З@IG, б(32, Л(128));:ЛIG:З@363,"   AAAA";:З@362, Л(128);:ЙA$:З@363, б(21, Л(128));,╒ Е О(A$,1)│"?"з4010,ш#ЕA$│"ZZZZ"з400-(╘TIC$│A$:╘LD$│"000000":╘LR$│"0000"-╤2Ю0:АIG│165е261й32:З@IG, б(22, Л(255));:ЛIG:З@198," ENTER MAX. NO. OF  ";:З@230,"  PRICES TO STORE   ";:З@333,"   NNN";:З@332, Л(128);:ЙA$:З@339, б(13, Л(128));:Е О(A$,1)│"?"з4020:ДЕA$│""з59-№4АIX│1е З(A$):X$│ Р(A$,IX,1):ЕX$│" "з54.5Е К(X$)▓│48░ К(X$)┤│57з54:Д59.;6ЛIX:Е Й(A$)│0з59:Д60Бе60.Х8АIG│384е448й32:З@IG, б(32, Л(191));:ЛIG:З@417,ER$;:АIH│1е3:а190,8:АII│1е200:ЛII:ЛIH:Р.╚;ER$│"     BAD INPUT - RE-ENTER     ":Бж56:Бе50.╘<╘MR$│A$/uFЮ0:АIG│196е260й32:З@IG, б(24, Л(255));:ЛIG:З@229," ENTER IDENT. NUMBER  ";:З@330,"   AAAAAAAAA";:З@329, Л(128);:ЙA$:З@342, б(10, Л(128));:Е О(A$,1)│"?"з4030/БP╘CU$│A$0tZЮ0:АIG│70е326й32:З@IG, б(20, Л(255));:ЛIG:З@103," ENTER TYPE CODE: ";:З@167," 'S' FOR STOCK    ";:З@199," 'C' FOR CALL     ";:З@231," 'P' FOR PUT      ";:З@263," 'I' FOR INDEX    ";:З@295," 'F' FOR FUTURE   ";:З@366,"   A";:З@365, Л(128);0оdЙA$:З@369, б(15, Л(128));:Е О(A$,1)│"?"з4040:Д╘OP$│A$0┼nЕA$│"C"▒A$│"P"з1200╓sЕA$┤▓"F"з2701txЮ0:АIG│166е230й32:З@IG, б(20, Л(255));:ЛIG:З@199," ENTER EXP. MONTH ";:З@333,"   NN";:З@332, Л(128);:ЙA$:З@338, б(14, Л(128));:Е О(A$,1)│"?"з4050:ДMM$│A$1РМАI│1е12:ЕA$┤▓MO$(I)з1701бЫЕOP$│"P"з1651╖а╘MC$│CC$(I):Бе1841═е╘MC$│PC$(I):Бе1842кЛI:ER$│"          BAD MONTH           ":Бж56:Бе1202Г╕З@199," ENTER EXP YEAR  ";:З@333,"   NN";:З@332, Л(128);:ЙYY$:Е О(YY$,1)│"?"з4060:ДЗ@338, б(14, Л(128));:Бж3000:ЕFF┤▓0з1842Х╣ЕOP$┤▓"F"з1902и║╘SC$│" ":Бе2503@╛Ю0:АIG│165е229й32:З@IG, б(22, Л(255));:ЛIG:З@198," ENTER STRIKE PRICE";:З@333,"   NNN";:З@332, Л(128);:ЙA$:З@339, б(13, Л(128));:Е О(A$,1)│"?"з40703[╚АI│1е30:ЕA$┤▓S$(I)з2303q▄╘SC$│S1$(I):Бе2503ицЛI:ER$│"       BAD STRIKE PRICE       ":Бж56:Бе1903╒·MO$│YY$лMM$:Бж20240:A$│DT$:ЕOP$┤▓"F"з2604

X│ Й( П(A$,2))м1:A$│ О(A$,4)л П( И(X),2)4
╘ED$│A$:Бе2904+
ЕA$│"S"▒A$│"I"з2804^
ER$│"        BAD TYPE CODE         ":Бж56:Бе904|
ЕOP$│"I"зM1$│"Z":ДM1$│" "4а
╘ED$│"000000":╘MC$│M1$:╘SC$│" "4┤
"╘ST$│"A":Бе19904╔
'ЕOP$│"I"зMC$│"Z"5г
(N$│TIC$лMC$лSC$:N│ Й(MR$):R│ е(1)л1:┼#1,R:Ъ#1:FL$│N$:LF│1:H9│N:Бж40000:Ю0:З@224л7," RESERVING SPACE ";:З@256л7," FOR PRICE DATA  ";:АI│1еN:R│I:VX$│"00000":PX$│"000.0000":PH│0:PL│0:LF│1:RC│R:Бж41000:ЛI:LF│1:Бж415005є
ЛЮ0:З@224л7," PRICE SERIES SET ";:З@256л7,"  UP PERMANENTLY  ";:АI│1е1000:ЛI6

РО"MENU/BAS:"лDR$:К6rшМMO$(13),PC$(13),CC$(13),S$(30),S1$(30):АI│1е12:НMO$(I),CC$(I),PC$(I):ЛI:АI│1е30:НS$(I),S1$(I):ЛI:Р6╦▄Ж01,A,M,02,B,N,03,C,O,04,D,P,05,E,Q,06,F,R,07,G,S,08,H,T,09,I,U,10,J,V,11,K,W,12,L,X74▌Ж5,A,10,B,15,C,20,D,25,E,30,F,35,G,40,H,45,I,50,J,55,K,60,L,65,M,70,N,75,O,80,P,85,Q,90,R,95,S,100,T7u▐Ж110,b,120,d,130,f,140,h,150,j,160,l,170,n,180,p,190,r,200,t8s╞Ю0:З б(32, Л(128));:З Л(128);"IDENT. SYMBOL =";TIC$:З Л(128);"NUMBER HISTORICAL PRICES TO":З Л(128);"KEEP =";MR$:З Л(128);"IDENT. NUMBER =";CU$:З Л(128);"TYPE CODE =";OP$:З Л(128);"EXPIRATION DATE = ";ED$:З Л(128);"EXPIRATION MONTH CODE = '";MC$;"'"9@ЇЗ Л(128);"OPTION STRIKE PRICE CODE = '";SC$;"'":З б(32, Л(128));:З Л(128); б(30, Л(207)):З Л(128); Л(207);" TOUCH 'Y' FOR CONFIRMATION "; Л(207):З Л(128); б(30, Л(207)):АIG│31е479й32:З@IG, Л(128);:ЛIG9VA$│ Т:ЕA$│""з20529hЕA$┤▓"Y"з20909r Бе2959~*Ю0:Бе309Ц╕ЕYY$│""зFF│1:Бе31009▓┬Е З(YY$)┤▓2зFF│1:Бе31009я╠АIX│1е2:X$│ Р(YY$,IX,1):Е К(X$)┤48▒ К(X$)▓57зFF│1:Бе3100:рЛIX:Е Й(YY$)│0зFF│1:Бе3100:ъFF│0:Р:_ER$│"     BAD INPUT - RE-ENTER     ":Бж56:З@384, б(96, Л(128));:Р:ЖаЗ@36," SET UP A PRICE SERIES  ";:Р;nкЮ:З"ENTER AN IDENTIFICATION SYMBOL  (MAXIMUM 6 DIGITS) FOR THE SEC- URITY OR COMMODITY.  THIS SHOULDBE THE TICKER SYMBOL IF THE     SECURITY IS A STOCK, BOND,      LISTED PUT OR CALL, ETC.  OTHER-WISE, USE THE SAME SYMBOL USED"<мЗ"BY THE NEWS SERVICE FROM WHICH  THE PRICE DATA WILL BE OBTAINED.(EG. 'SP 500' TO GET THE STAN-  DARD & POOR 500 INDEX FROM COM- PUSERVE).":Бж5000:Бе30<Б┤Ю:З"ENTER THE MAXIMUM NUMBER OF     DAYS' PRICES TO BE KEPT IN THE  DATA BASE FOR THIS PRICE SERIES.":Бж5000:Бе50<ш╛Ю:З"ENTER <SPACE> OR THE SECURITY'S CUSIP NUMBER.  IT MAKES NO      DIFFERENCE WHICH.":Бж5000:Бе70=╢╚Ю:З"THIS ENTRY DEFINES THE TYPE OF  SECURITY.  USE 'S' FOR BONDS.   USE 'I' FOR MUTUAL FUNDS.  USE  'F' FOR COMMODITIES (INCLUDING  STOCK INDEX FUTURES).  OTHER-   WISE, FOLLOW THE PROMPT.":Бж5000:Бе90>&╥Ю:З"ENTER THE EXPIRATION MONTH OF   PUT, CALL, OR FUTURES CONTRACT. USE TWO NUMERICAL DIGITS.":Бж5000:Бе120>┼▄Ю:З"ENTER THE LAST TWO DIGITS OF THEYEAR IN WHICH THE PUT, CALL, OR FUTURES CONTRACT WILL EXPIRE.":Бж5000:Ю0:АIG│166е230й32:З@IG, б(20, Л(255));:ЛIG:Бе184?lцЮ:З"ENTER THE STRIKING PRICE OF THE PUT OR CALL.  IF LESS THAN $100,IT MUST BE A MULTIPLE OF $5.  IFGREATER THAN $100, IT MUST BE A MULTIPLE OF $10.":Бж5000:Бе190?ЩИЗ@480,"**PRESS <ANY KEY> TO CONTINUE**";?┤НZ$│ Т:ЕZ$│""зБе5005:ДР@N YR│ Й( О(DT$,2)):C│YRм81л Б((YRм81)о4):J1│5лCл700:J1│J1м Ш(J1о7)н7:ЕJ1│0зJ1│7@8NpMO│ Й( Р(DT$,3,2)):TT│0:АIX│1е12:ЕMO│IXз20150@gNШTT│TTлMT(IX):ЕIX│2░YRм Ш(YRо4)н4│0зTT│TTл1@oNмЛIX@░N╢TT│TTл Й( Р(DT$,5,2)):DN│J1лTTм1:DN│DNм Ш(DNо7)н7:ЕDN│0зDN│7@╢N╘Р@рN▐Ж 31,28,31,30,31,30,31,31,30,31,30,31@√NшАIZ│1е12:НMT(IZ):ЛIZ:РA'ODT$│MO$л"01":Бж20000:C│6мDN:ЕC│м1з20280AJO.F3│Cл15:DT$│MO$л П( И(F3),2):РAаO8DT$│MO$л"21":Р:YY$│ О(DT$,2):MM$│ Р(DT$,3,2):DD$│ П(DT$,2):Бж20000:ЕDN│6зC│3:ДC│1A╬OLDD│ Й(DD$)лC:MM│ Й(MM$):ЕDD┤│MT(MM)з20390A■O[YY│ Й(YY$):DD│DDмMT(MM):MM│MMл1:ЕMM│13зMM│1BOtЕMM│1зYY│YYл1BЙOyYY$│ П( И(YY),2):MM$│ П( И(MM),2):DD$│ П( И(DD),2):Е О(MM$,1)│" "зMM$│"0"л П(MM$,1):Е О(DD$,1)│" "зDD$│"0"л П(DD$,1)BХOЬБе20410B╦OжDD$│ П( И(DD),2):Е О(DD$,1)│" "зDD$│"0"л П(DD$,1)BсO║ND$│YY$лMM$лDD$:РBёЬ@ЕOY│1з40002CЬAЩ"D",#5,"PRICES/DAT:0",8:OY│1C?ЬBЩ"D",#6,"PRICEMAP/DAT:0",19:ЕOX│1з40005C[ЬDМR1(5),R8(5),C9(5):OX│1CФЬEЕ Р(FL$,7,1)┤▓" "░ Р(FL$,8,1)│" "зC9(LF)│1:ДC9(LF)│0CзЬFЕ е(6)│0з40180CюЬJАR9│1е е(6):╨#6,8 зF9$,5 зR1$,5 зR8$,1 зBS$:─#6,R9:ЕF9$┤▓FL$з40090DЬ|R1(LF)│ Й(R1$):R8(LF)│ Й(R8$):Ъ#6:РDAЬЪЛR9:АR9│1е е(6):─#6,R9:ЕBS$┤▓"A"з40099DcЬЮЕ( Й(R8$)м Й(R1$)л1)┤H9з40099D─ЬЯ╨#6,8 зF9$,5 зR1$,5 зR8$,1 зBS$:╘F9$│FL$:╘BS$│"U":R1(LF)│ Й(R1$):R8(LF)│ Й(R8$):┼#6,R9:Ъ#6:РD╘ЬгЛR9:ЕH9│0зСE{ЬоR9│ е(6)л1:X$│ И( Й(R8$)л1):X$│ П(X$, З(X$)м1):╘R1$│X$:R1(LF)│ Й(R1$):X$│ И( Й(R1$)лH9м1):X$│ П(X$, З(X$)м1):╘R8$│X$:R8(LF)│ Й(R8$):╘BS$│"U":╘F9$│FL$:┼#6,R9:Ъ#6:РFjЬЇ╨#6,8 зF9$,5 зR1$,5 зR8$,1 зBS$:╘F9$│FL$:╘R1$│ И(1):R1(LF)│1:╘R8$│ И(H9):R8(LF)│H9:╘BS$│"U":R9│1:┼#6,R9:Ъ#6:Р:R9│RCм1лR1(LF):╨#5,2 зJV$,2 зJC$,2 зJH$,2 зJL$:─#5,R9:VX│ К( О(JV$,1))н256л К( П(JV$,1)):VX$│ И(VX):Е К( П(JC$,1))▓127з40640F~Ю\ЕC9(LF)│1з40600FшЮfPX│ К( О(JC$,1))л К( П(JC$,1))о16:PH│ К( О(JH$,1))л К( П(JH$,1))о16:PL│ К( О(JL$,1))л К( П(JL$,1))о16F∙ЮДPX$│ И(PX):РGnЮШPX│ К( О(JC$,1))л К( П(JC$,1))о100:PH│ К( О(JH$,1))л К( П(JH$,1))о100:PL│ К( О(JL$,1))л К( П(JL$,1))о100:Бе40580H@Ю└PX│ К( О(JC$,1))н128:R9│ К( П(JC$,1)):R9│(R9)░(127):PX│(PXлR9)о10:PH│ К( О(JH$,1))н128:R9│ К( П(JH$,1)):R9│(R9)░(127):PH│(PHлR9)о10:PL│ К( О(JL$,1))н128:R9│ К( П(JL$,1)):R9│(R9)░(127):PL│(PLлR9)о10:Бе40580H╜а(VX│ Й(VX$):PX│ Й(PX$):╨#5,2 зJV$,2 зJC$,2 зJH$,2 зJL$:L9│ Ш(VXо256):R9│VXмL9н256:╘JV$│ Л(L9)л Л(R9):ЕPX▓256▒PH▓256з41140H╤а<ЕC9(LF)│1з41090IVаFL9│ Ш(PX):R9│(PXмL9)н16:╘JC$│ Л(L9)л Л(R9):L9│ Ш(PH):R9│(PHмL9)н16:╘JH$│ Л(L9)л Л(R9):L9│ Ш(PL):R9│(PLмL9)н16:╘JL$│ Л(L9)л Л(R9)IrаdR9│RCм1лR1(LF):┼#5,R9:РJаВL9│ Ш(PX):R9│ Ш((PXмL9)н100л.5):╘JC$│ Л(L9)л Л(R9):L9│ Ш(PH):R9│ Ш((PHмL9)н100л.5):╘JH$│ Л(L9)л Л(R9):L9│ Ш(PL):R9│ Ш((PLмL9)н100л.5):╘JL$│ Л(L9)л Л(R9):Бе41060Kа┤PX│ Ш(PXн10л.5):L9│ Ш(PXо128):R9│PXмL9н128:R9│(R9)▒(128):╘JC$│ Л(L9)л Л(R9):PH│ Ш(PHн10л.5):L9│ Ш(PHо128):R9│PHмL9н128:R9│(R9)▒(128):╘JH$│ Л(L9)л Л(R9):PL│ Ш(PLн10л.5):L9│ Ш(PLо128):R9│PLмL9н128:R9│(R9)▒(128):╘JL$│ Л(L9)л Л(R9):Бе41060K)вR1(LF)│0:АR9│1е5:ЕR1(R9)┤▓0зРK7в:ЛR9:Ъ#5:РKg┐hЪ:Е Ж(32764)│0зО"MENU/BAS:0":ДО"MENU/BAS:1"│ Ш(PHн10л.5):L9│ Ш(PHо128):R9│PHмL9н128:R9│(R9)▒(128):╘JH$│ Л(L9)л Л(R9):PL│ Ш(PLн10л.5):L9│ Ш(PLо128):R9│PLмL9н128:R9│(R9)▒(128):╘JL$│ Л(L9)л Л(R9)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 -&"ЕRR│0з70:ДЕ Ж(32762)│1з3:Д65&9
└6:╤2,256:RR│1:Бе0&hв:Ю:DR$│ П( И( Ж(32764)),1):О"GO/BAS:"лDR$&жХ1000,31999:Т32762,0:OZ│ Ж(32763):DR$│ П( И( Ж(32764)),1)'|Ю0:З@37," GET PRICES BY PHONE  ";:З@131," 'A'  AUTOMATIC MODE      ";:З@163," 'S'  SEMI-AUTOMATIC MODE ";:З@195," 'M'  MANUAL MODE         ";:АIG│294е358й32:З@IG, б(20, Л(207));:ЛIG:З@327," TOUCH A,S, OR M  ";'ХHE│11:Бж33:ЕA$│"?"з4'лЕA$│"A"зIW│1:Бе10'┴ЕA$│"S"зIW│2:Бе10'╫ЕA$│"M"зIW│3:Бе10'▀	Бе5'э
Бж11:Бе12(Ю0:АIG│103е199й32:З@IG, б(18, Л(255));:ЛIG:Р(cЕIW│3зF1$│"TFILEXXX/DAT":Щ"O",#1,"TFILEXXX/DAT":З#1,"A":Ъ#1:Бе18(О
ЕIW│1зWD$│"REQUEST  ":ДWD$│"TRANSMIT ")З@136," ENTER ";WD$;:З@168,"    FILENAME    ";:З@264,"   AAAAAAAA/EEE";:З@263, Л(128);:HE│12:Бж32:З@278, б(10, Л(128));:ЕA$│"?"з10)-IP│0:Бж46:ЕFQ┤▓0з10)vF1$│ О(FX$,8)л"/"л П(FX$,3):FX$│F1$:LO│ Ю(1,FX$," "):ЕLO│0▒LO▓│10з18)║ Р(F1$,LO,4)│ Р(FX$,9,4): Р(F1$,LOл4,9мLO)│ Р("       ",1,9мLO)*MЗ@136," ENTER RECEIVED ";:З@168," INFO FILENAME  ";:З@264,"   AAAAAAAA/EEE";:З@263, Л(128);:HE│13:Бж32:З@278, б(10, Л(128));:ЕA$│"?"зБж11:Бе18*eIP│1:Бж46:ЕFQ┤▓0з18*оF2$│ О(FX$,8)л"/"л П(FX$,3):FX$│F2$:LO│ Ю(1,FX$," "):ЕLO│0▒LO▓│10з22*Є Р(F2$,LO,4)│ Р(FX$,9,4): Р(F2$,LOл4,9мLO)│ Р("       ",1,9мLO)+c╙M"DD/:"лDR$,28416:АI│1е12:X$│ Р(F1$,I,1):Т32084лI, К(X$):X$│ Р(F2$,I,1):Т32274лI, К(X$):ЛI:ЕIW│1зX│49:ДX│48,	Т32107,X:Т32108,X:Т32019, К(DR$):╪M"D/:0",32000,32306,32000:Бе24:╙M"DD/:"лDR$,28416:Т32027,7:Т32029,255:Т32030,255:Т32019, К(DR$):╪M"D/:0",32000,32030,32000:Бе24,X╙M"CCE/BIN:"лDR$:Т&H1010,1:Т&H1020, К("D"):Т&H1021, К(" "):Т32762,1лIW:Бе2,}Е Ж(32767)┤▓0▒ Ж(32766)┤▓0з25842,СИVFл1Бе27,28,30,┐ЙA:Е О(A$,1)│"?"з34:ДA│ Й(A$):A$│"0"лA$:Р,╪ЙA$:Е О(A$,1)│"?"з34,▐Р,■A$│ Т:ЕA$│"?"з34:ДЕA$│""з30-Р- VF│1:Бе25-*!VF│2:Бе25:VF│0:Бе25-A"И(HEм10)Бе35,41,42.&#Ю:З"IN THE AUTOMATIC MODE, THE FI-  NANCIAL NEWS SERVICE IS ACCESSEDWITHOUT ANY KEYBOARD ENTRIES    REQUIRED AT ALL.  A PRICE RE-   QUEST FILE MUST HAVE BEEN BUILT USING THE UTILITY DISKETTE BE-  FORE THIS MODE CAN BE USED.".v$З"":З"THIS MODE IS USUALLY USED FOR   DOW JONES ACCESS OF PRICE DATA.":Бж44/6%Ю:З"IN THE SEMI-AUTOMATIC MODE, EACHLINE USED TO REQUEST PRICE DATA IS SENT TO THE NEWS SERVICE BY  TYPING <DOWN ARROW> AND '1'.    THIS MODE IS USED MAINLY FOR    COMPUSERVE ACCESS.":З""/╖&З"A PRICE REQUEST FILE MUST ALSO  HAVE BEEN PREVIOUSLY BUILT USINGTHE UTILITY DISKETTE PRIOR TO   USING THIS FUNCTION.":Бж440Г'Ю:З"IN THE MANUAL MODE, ALL ENTRIES REQUIRED TO ACCESS PRICE DATA   ARE MADE MANUALLY.  THIS MODE   CAN BE USED TO ACCESS ANY KIND  OF DATA FROM A FINANCIAL NEWS   SERVICE, INCLUDING PRICE DATA.":З""0°(З"CONSULT FINANCIAL NEWS SERVICES'USER'S MANUALS AND HANDBOOKS FORPRICE AND OTHER DATA ACCESS ME- THODS.":Бж44:Р1┌)Ю:З"THIS FILE SHOULD CONTAIN THE    PRICE REQUESTS FOR THE SECURITY OR SECURITIES WHOSE PRICES ARE  TO BE OBTAINED.  THE FILE IS US-UALLY CREATED BY THE 'BUILD     PRICE REQUESTS' FUNCTION ON THE UTILITY DISKETTE.":Бж44:Р2в*Ю:З"THE ACCESS 'SESSION' WITH THE   NEWS SERVICE WILL BE RECORDED   IN THIS FILE.  LATER, PRICE DATAIS USUALLY EXTRACTED FROM THIS  FILE AND TRANSFERRED TO THE PER-MANENT PRICE/VOLUME DATA BASE."3А+З"HOWEVER, THE SESSION MAY ONLY BEPLAYED BACK, USING THE 'PRINT   RECEIVED INFO' FUNCTION ON THE  UTILITY DISKETTE, ESPECIALLY IF THE MANUAL MODE IS BEING USED   FOR ACCESS OF GENERAL INFO FROM A NEWS SERVICE.":Бж44:Р3┤,З@480,"**PRESS <ANY KEY> TO CONTINUE**";:A$│"?"3╦-X$│ Т:ЕX$│""з45:ДР3¤.FX$│ б(11," "):TG│1:Е З(A$)┤8зEN│ З(A$):ДEN│84$/АIX│1еEN:X$│ Р(A$,IX,1):ЕX$│" "з504L0ЕX$│"/"зTG│9:BG│IXл1:EN│ З(A$):Бе544h1 Р(FX$,TG,1)│X$:TG│TGл14Т2ЛIX:Е З(A$)┤│8з Р(FX$,9,3)│"DAT":Бе594к3Е Р(A$,9,1)┤▓"/"з634╝4Е З(A$)▓12з634╠5BG│10:EN│124х6ЕEN▓ З(A$)зEN│ З(A$)4ї7ЕENмBG▓2з6358АIX│BGеEN:X$│ Р(A$,IX,1):ЕX$│" "з58599 Р(FX$,TG,1)│X$:TG│TGл15A:ЛIX5N;ЕIP│1з625Э<АIX│3е11:▀0,17,IX,X$,B$:X$│X$л О(B$,127):АIY│1е225й32:Е Р(X$,IY,11)│FX$з625╪=ЛIY:ЛIX:FQ│2:ER$│"     FILE NOT ON DISKETTE     ":Бе645у>FQ│0:Р6?FQ│1:ER$│"      INVALID FILE NAME       "6М@X$│"":АIX│1408е1503:X$│X$л Л( Ж(IX)):ЛIX:З@384, б(96, Л(191));:З@417,ER$;:АIG│1е3:а190,8:АIX│1е200:ЛIX:ЛIG:З@384,X$;:Р6дAX│ Ж(32762):ЕX│0з686╕BЕX│2▒X│3зЮ:Бе696╙C╥"TFILEXXX/DAT":Ю:Бе696щDТ32767,0:Т32766,07EЪ:└4:Е Ж(32764)│0зО"MENU/BAS:0":ДО"MENU/BAS:1"7,F└1:╤2,2:Бе1л Л( Ж(IX)):ЛIX:З@384, б(96, Л(191));:З@417,ER$;:АIG│1е3:а190,8:АIX│1е200:ЛIX:ЛIG:З@384,X$;:Р6дAX│ Ж(32762):ЕX│0з686╕BЕX│2▒X│3зЮ:Бе696╙C╥"TFILEXXX/DAT":Ю:Бе696щDТ32767,0:Т32766,07EЪ:└4:Е Ж(32764)│0
4
	RUN"COME/BAS:1"  ▄    (
╚  2
Р  <
  F\5F12R1A       /   
  P011
   Z
р```PLACE`CALL`TO`NEWS`SERVICE  d  ╚╥R  ╥\1  ╫  ▄цIN:  сцIN:  у
  ц
р``````PLEASE`HANG`UP`PHONE  Ё  
РW2B       /   
  
Ъ=  
д   
Р  <
  F\5F12R1A       /   
  P011
   Z
р```PLACE`CALL`TO`NEWS`SERVICE  d  ╚╥R  ╥\1  ╫  ▄цIN:  сцIN:  у
  ц
р``````PLEASE`HANG`UP                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 a&'
Е  Ж(32762)│4 з ╥"TFILEXXX/DAT:0"&`Ъ:└ 4:X│ Ж(32764):Е X│0зО"MENU/BAS:0":ДО"MENU/BAS:1",В GOTO TYMNET3~
6Т &H80,13П
;Т &H300,&H543а
@Т &H301,&H203л
OО "GO"PTION"2╛nA$│ Т2╨xЕ A$│"" з 1102уВЕ A$│"1" з 2002ЎМЕ A$│"2" з 3003
ЦБе 1                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                1));:З@417,ER$;:АIG│1е3:а190,8:АIX│1е200:ЛIX:ЛIG:З@384,X$;:РSk┘Ъ:Е Ж(32764)│0зО"MENU/BAS:0":ДО"MENU/BAS:1"T ON DISKETTE     ":Бе216RТ╓FF│0:РR└╫FF│1:ER$│"      INVALID FILE NAME       "S;╪X$│"":АIX│1408е1503:X$│X$л Л( Ж(IX)):ЛIX:З@384, б(96, Л(191,0'ИщЖ 0,1,0,1,1,1,0,0,1,0,1,1,0,1,1,0,1,0,0,0,0,1,0,0,0,0,0,0,1,0,0,0,1,0,0,1,0,1,0,0,0,0,0,1,0,0,1,0,0,1,0,1,0,0,1,0,0,1,0,1,0,0,1,0(ъЖ 0,1,0,1,0,1,1,0,1,0,1,1,0,1,1,0,1,1,1,0,0,1,1,1,1,0,0,0,1,0,0,0,1,0,0,1,0,1,0,1,1,1,0,1,1,1,1,0,1,1,0,1,1,0,1,1,1,1,0,1,1,1,1,0(ФыЖ 0,1,0,1,0,0,1,1,1,0,0,1,0,1,0,0,1,0,0,0,0,0,0,0,1,0,0,0,1,0,0,0,1,0,0,1,0,1,0,0,0,1,0,1,0,1,0,0,1,1,1,1,1,0,1,0,0,0,0,1,0,0,1,0)ьЖ 0,1,0,1,0,0,0,1,1,0,0,1,1,1,0,0,1,1,1,1,0,1,1,1,1,0,0,0,1,0,0,0,1,1,1,1,0,1,1,1,1,1,0,1,0,1,1,0,1,0,0,0,1,0,1,0,0,0,0,1,0,0,1,0)jэЮ0:АI│9е13:АJ│0е63:НK(I,J):ЛJ:ЛI:АJ│0е63:АI│9е13:ЕK(I,J)│1зЬ(J,I,3):ДЭ(J,I)*6ЛI:ЛJ:З@265," VER 01.00.00 ";:З@320," (C) 1983 ROBERT D. MC CULLOUGH ";:З@387," LICENSED TO TANDY CORP.  ";:З@453," ALL RIGHTS RESERVED  ";:АI│1е1000:ЛI:Р:Х200,32761:╤2,700:Бе7АI│9е13:АJ│0е63:НK(I,J):ЛJ:ЛI:АJ│0е63:АI│9е13:ЕK(I,J)│1зЬ(J,I,3):ДЭ(J,I)*6ЛI:ЛJ:З@265," VER 01.00.00 ";:З@320," (C) 1983 ROBERT D. MC CULLOUGH ";:З@387," LICENSED TO TANDY CORP.  ";:З@453," ALL RIGHTS RESERVED  ";:АI│1                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         1    5   ATAN      6    270 USP 500Z  271  535 U                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       TAN   83090956  265 NOT KNOWNS000000  ASP 500830909176 265 117      I000000Z A