BBFILEIOV1.0 2-AUG-1995 15:35DEC C V4.1-0010 0 $ABS$i$CODE$ $LITERAL$$LINK$$DATA$$BSS$ $READONLY$ DECC$FREE DECC$MALLOCDECC$GA_RMS_FABDECC$GA_RMS_RABDECC$GA_RMS_NAM DECC$GA_RMS_XABFHC DECC$GA_RMS_XABRDT0J@ FILE_CREATE DECC$STRLEN SYS$CREATE SYS$CONNECT SYS$CLOSE SYS$PARSE0Jh FILE_OPENSYS$OPENSYS$DISCONNECT0J  FILE_APPEND0J FILE_FIDOPEN DECC$MEMCPY0J` FILE_CLOSE0J0h FILE_DCLOSE0J8 FILE_READSYS$GET0J0 FILE_WRITE SYS$TRUNCATESYS$PUT0JP FILE_GETPOSSYS$FIND0J` FILE_SETPOS SYS$REWIND0J0 FILE_PARSE DECC$STRNCPY0J FILE_TRUNCATE0J FILE_GET_RDTOTS$MOVE =#4G~^^ ~(0GGG=0B"8b@ZkG`$ "G BG!G@ZkP"¦G B֢G@Zk(⦔" BGG@Zk,#/, I,#/aIBG@ HbY8KD!G<8?4G@Zk4!4#,pH4G#"A/HsH0D/<C.TG"vHRQJ"SFQ>.yHGC#UJ HF>/oH6#"q FXKp FG?#,tKc/A :H[zK0DoG:<z?rSuJtFWBr."GxK F>#,GoI ##/D <. #K.v#KTc/"U JW#.TJFF>>TC#, J/aJzK@ HXKQ :JD<G?qG+c/(C/C" CJ[ cKtCJZCKuG+c?TG(C?#/". vH`vHBY 6KbWJ!GF6?>CW/_"T.2FT! /JX Ks/JPJGF?>GGGtG@ZkGH`BP"hbGGtG@ZkG=aA#."C.&.s"0J.R PJPB"Xb2FCF JV JwJUJFF>>GGGtG@Zk5#.5",C" K@BQ0J0>.uKc.# HHbT JSrJF>uFr>/D"yHXKGG?GGtG@ZkBGb4G@ZkGG]] }(0@#kr0KFtFrO#4G~^^ ~(08GGGBGb"=@ZkG$ +h"GBG!G@ZkP"p¦GB֢G@Zk⦔"BGG@Zk"GBG@Zk/$,,$#,, IvIXBA 9H`b@H7DD9<<G4G@Zk4$,4!pH dHA/HtdH0D/<`3d.0D.GXB4GS dJ`bRDJuFTF3d>0D>5!@ZkaH5d,CoHaDo<D.TG$"sJRQJ"SFQ>.GwJ#F>$/GzXK$ :G8?'d,"$$, JoJC `HA HpD d#`</D <$/ dK/zdKTd.$"Y $KW.XK GG$??TD"d, $J$,o$JrJC dHA$HU JpDd</D$<uF+d.(." JS dJuJTJ`F+d>F(>D/#$/ H{HZ XKY8KAG;GX?8?CW. T-@FTd B H bP JqHOIFE>=GGGtG@ZkGu`BP!bGGGtG@ZkGD`6.6$ 7$.D""JQ !JF d..rJT JtF`GGqDpDpyJXKGpW@C^ pd/4Gq,BdK@ H`GCb@Zkw$.t$ t. HrHQ !JPJ3FF!>>t"t.w.JV JF5GBGbGGtG$ @ZkBGbGGtG@Zk5$ 5. -$""BPJ>D.I KbDsHRQJwKSFQ>.G.GGV JUJFF>>tG@ZkHBPbG4G@ZkGG]] }(08@#kt0JGGt#4G~^^ ~(08GGGBGb"=@ZkG$ 9È"GBG!G@ZkP"¦GB֢G@Zk⦔"BGG@Zk"GBG@Zk/$,,$#,, IvIxBA 9Hb@H7DD9<<G4G@Zk4$,4!pH$"A/Hd"0D/<D." dH{dHRQJQ>.Gu3JGTJ5!F>.WJ>`3D/0$/Z DKY$K@G3D?xB;G0$?4Gb@Zk5d,aHCoHaDo<D.4G$"sJRQJTGSFQ>".vJ"GUJy7KF>/d#Ga;HG?,d $"D#D<$.$- HrHQ #JOI3FE#>= TK'.wTK$. "sJV JUJFF>> JD.$#$. $KTd/w$KR DJW,Q$JTF3FD>$>T$ .aK.@ Hd V JUJFF>>`G+$, dH(D/{dH$"A $HZDK0D[G+$<(D? Hd.tHD.C? XBS qJ`bRQJuFTFq>Q>T"T.DW/ HyHWJX KFG?>GGGtG@ZkGaBP"bGGtG$@ZkT$,c W.AT!W./HTd.P J?"0DC1DTD" 2HT Ju2HSrJF>uFr>GCG`$/D/#$,'8K$.Z XK{#:GC"G KA 0HrKQ0J3D0<2F0>BGbGGtG@Zk5$ 5. d,$""BPJ>D.`H KbDsHRQJwKSFQ>.G.GGV JUJFF>>tG@ZkhBpbG4G@ZkGG]] }(08@#k#4G~^^ ~(08GGGB"b=@ZkG$ G"GBG!G@ZkP"¦GB֢G@Zk⦔"BGG@Zk" GBG@Zk.TG =D<$ pBwHxbVJ$#F>'$.$#$. 8Kr8KQ 8JPJ3FF8>>"GGtG@Zk$,d , HpHA #H@H1DD#<<"+d/ J(D/D"d.`J.[ dKZDKT.rJW/T JaG@G+d?(D?tF$.C.$@Fhbd HQ #JT"sHPJJX K4F#>F>W$,FCT/ FT" HA 7HuH:D`BXK7<GG?GGtG@ZkGV` BP (bGGGtG@ZkGE`6.7$.6$ D"JQ !J"F d..rJT JtF`GGGqDpDpyJXKGpW@C> pd/4Gq,BdK@ H`GCb@Zkw$.t$ t. HrHQ !JPJ3FF!>>t"t.w.JV JFGBGbGGtG$ @ZkBGbGGtG@ZkBbG4G@ZkGG]] }(08@#kt0JGGt#4G~^^~ (Gp0,GGq#.#Ht"Q #J1D t,w#.BHQ 0JbDC@ZkBbP"GGtG@Zk0BG8bGGtG@ZkG5#"5C.c"#, KvK(bRQJQ>.".0H#U JTJFF>>!D#/z8HGGY8KG:G B8?tG@ZkBbG4G@ZkG]G]} (0#kG#~^^~ (G0,G G HG \p#,t q#.4G#HQ #J1D t.w#.BJQ JbFC@Zk B(bP"GGtG@Zk#, .?&.1" Hc.P J`BC"hb0DCD HT JuHSrJFuF>r>GGGtG@ZkG 5C.5#"#,"c"XbRQJQ>.0H"!Du3HTJ KF>yK/G.GGX KWJGPBF?tG>@ZkBGb4G@ZkGG]]} (0#k#tG~^ ^(~08GGG=(BP" ]G0bG}@Zkn.n/ Gr/"PJ>`rO.so. QJ ݢS qJSFCBGbGײx//{O//KZ OK:GBCtG@ZkG]G ](}08@#k#tG~^^ ~(0GG=n# ]Gn,P GGHGXDHBPb@Zkn#,r"n qFA H <pF =rt5JSuJtFrWBx/GݢG{#/GXKzJ JY #KGB;G{#?btGx?@ZkG]] }(0@#kr0 JFtFr#G~tG^^ ~(08GGG=BP bGG@Zk?$0BGz! D #."rc"q`F0Jp`F vKUJFWB+{C/ CJx#/{CJGZ CKY#K@G{C?;G BGx#?G(btG@ZkGPB`#"XbGtG@Zkn,TGnC aH@HGD<]G] }(08@#k0KFFG#G~tG^^ ~(GGG`0BG8bP"@Zk0.J4`c.C"rJ3@`."J2 0B8bGP"GtG@ZkGTGBtGbn0.n"r0HQ0J2F0>GG`"@ZkG BG(btGP"@ZkG]] }(0#k#.Q #J0F.T JF.W JFG#G~^^~GGGG0BGX"0"GG@ZkBG0ݲ4Gb4@ZkqH8=0=HF8 `BbG8}4G@ZkpH8}!{H0D88B"0BX"GG@Zkdݲ?'`} PBGXbGG`\}XFX"tG@ZkG=7`tGG.tAJJFa.SaJtFa>ݢPJB#5/zJY8K:G8?`} B="p`KаHH0pCpH(b!B% @GGtG@Zk G`=" BtG(bpJCG@Zk`pH@$,A$H$<8PBGXbtG0J8`]"h`AFv@JFF`]G@ZkG]G]}#kG#P"~G^G [tGG({@ZkG] #kG`#G~p^x^~GGG" GB!Т "G@ZkB"GG@ZkGpB4GxbL@ZkqHP="47J0B"8b0=HGFP0} "GtG3gJtB0}Dݲ@ZkG@BHb="GGtG@ZkB "bGGtG@ZkGp]Gx]}#k4 0G@ DECC$MALLOC4 8b#@ DECC$MALLOC4 <@@ DECC$MALLOC 4XGlOTS$MOVE4h@lOTS$MOVE4xGOTS$MOVE4@OTS$MOVE4GOTS$MOVE4@OTS$MOVE4G DECC$STRLEN4b#@ DECC$STRLEN4@ DECC$STRLEN4G SYS$CREATE4b#@ SYS$CREATE4@ SYS$CREATE4G SYS$CONNECT4b#@ SYS$CONNECT4@ SYS$CONNECT4 LG SYS$CLOSE4Tb#@ SYS$CLOSE4 @ SYS$CLOSE4 G SYS$PARSE4 b#@ SYS$PARSE4 @ SYS$PARSE4G, DECC$FREE4 b#@ DECC$FREE4(@, DECC$FREE4 G DECC$MALLOC4 b# DECC$MALLOC4 @ DECC$MALLOC4GOTS$MOVE4@OTS$MOVE4GOTS$MOVE4@OTS$MOVE4GOTS$MOVE4@OTS$MOVE4 G0OTS$MOVE4,@0OTS$MOVE4DGp DECC$STRLEN4Lb# DECC$STRLEN4l@p DECC$STRLEN4G DECC$STRLEN4b# DECC$STRLEN4@ DECC$STRLEN4<GxSYS$OPEN4Db#SYS$OPEN4t@xSYS$OPEN4G SYS$CONNECT4b# SYS$CONNECT4@ SYS$CONNECT4 $G@ DECC$MALLOC4 8b# DECC$MALLOC4 <@@ DECC$MALLOC4!GSYS$DISCONNECT4"b#SYS$DISCONNECT4!@SYS$DISCONNECT4 G SYS$CLOSE4b# SYS$CLOSE4 @ SYS$CLOSE4 GT SYS$PARSE4  b# SYS$PARSE4 P @T SYS$PARSE4T Gh DECC$FREE4X b# DECC$FREE4d @h DECC$FREE4  G DECC$MALLOC4  b# DECC$MALLOC4  @ DECC$MALLOC4 G OTS$MOVE4 @ OTS$MOVE4( G8 OTS$MOVE44 @8 OTS$MOVE4@ GT OTS$MOVE4P @T OTS$MOVE4` Gp OTS$MOVE4l @p OTS$MOVE4 G DECC$STRLEN4 b# DECC$STRLEN4 @ DECC$STRLEN40 GH DECC$STRLEN4@ b# DECC$STRLEN 4D @H DECC$STRLEN4 G@ SYS$CREATE4 b# SYS$CREATE4< @@ SYS$CREATE4H Gh SYS$CONNECT4P b# SYS$CONNECT4d @h SYS$CONNECT4 0GL SYS$CLOSE48b# SYS$CLOSE4 H@L SYS$CLOSE4 dG SYS$PARSE4 |b# SYS$PARSE4 @ SYS$PARSE4G DECC$FREE4b# DECC$FREE4@ DECC$FREE4 8GL DECC$MALLOC4 @b# DECC$MALLOC4 H@L DECC$MALLOC4hG|OTS$MOVE4x@|OTS$MOVE4GOTS$MOVE4@OTS$MOVE4GOTS$MOVE4@OTS$MOVE4GOTS$MOVE4@OTS$MOVE4G8 DECC$MEMCPY4b# DECC$MEMCPY44@8 DECC$MEMCPY4b#SYS$OPEN4$GLSYS$OPEN4H@LSYS$OPEN4TGt SYS$CONNECT4\b# SYS$CONNECT4p@t SYS$CONNECT4 G DECC$MALLOC4 b# DECC$MALLOC4 @ DECC$MALLOC4!pGSYS$DISCONNECT4"xb#SYS$DISCONNECT4!@SYS$DISCONNECT4 G SYS$CLOSE4b# SYS$CLOSE4 @ SYS$CLOSE4G DECC$FREE4b# DECC$FREE4@ DECC$FREE4PGl DECC$FREE4\b#` DECC$FREE4h@l DECC$FREE4!lGSYS$DISCONNECT4"pb#`SYS$DISCONNECT4!@SYS$DISCONNECT4 G SYS$CLOSE4b#` SYS$CLOSE4 @ SYS$CLOSE4 b#` SYS$PARSE4 G, SYS$PARSE4 (@, SYS$PARSE4,G@ DECC$FREE40b#` DECC$FREE4<@@ DECC$FREE4G DECC$FREE4b#0 DECC$FREE4@ DECC$FREE4!GSYS$DISCONNECT4"b#0SYS$DISCONNECT4!@SYS$DISCONNECT4 ,Gx SYS$CLOSE44b#0 SYS$CLOSE4 t@x SYS$CLOSE4 b#0 SYS$PARSE4 G SYS$PARSE4 @ SYS$PARSE4G DECC$FREE4b#0 DECC$FREE4@ DECC$FREE ,hGSYS$GET, xb#SYS$GET,@SYS$GET4b# DECC$MEMCPY4G  DECC$MEMCPY4@  DECC$MEMCPY4G SYS$TRUNCATE4b# SYS$TRUNCATE4@ SYS$TRUNCATE,GSYS$PUT,b#SYS$PUT,@SYS$PUT4GSYS$FIND4b#SYS$FIND4@SYS$FIND,G4SYS$PUT,(b#SYS$PUT,0@4SYS$PUT4<GX DECC$MEMCPY4Hb# DECC$MEMCPY4T@X DECC$MEMCPY4G SYS$REWIND4b#` SYS$REWIND4@ SYS$REWIND4DG` SYS$REWIND4Hb#` SYS$REWIND4\@` SYS$REWIND4pG DECC$MEMCPY4xb#` DECC$MEMCPY4@ DECC$MEMCPY4GSYS$FIND4b#`SYS$FIND4@SYS$FIND4PGpOTS$MOVE4l@pOTS$MOVE4pG DECC$STRLEN4b#0 DECC$STRLEN4@ DECC$STRLEN4G DECC$STRLEN4b#0 DECC$STRLEN4@ DECC$STRLEN4GOTS$MOVE4@OTS$MOVE4 G4 SYS$PARSE4 b#0 SYS$PARSE4 0@4 SYS$PARSE4G DECC$STRNCPY4b#0 DECC$STRNCPY4@ DECC$STRNCPY4G DECC$STRNCPY4b#0 DECC$STRNCPY4@ DECC$STRNCPY4  Gd SYS$PARSE4 (b#0 SYS$PARSE4 `@d SYS$PARSE4G SYS$TRUNCATE4{# SYS$TRUNCATE4@ SYS$TRUNCATE4G(OTS$MOVE4$@(OTS$MOVE4(G<OTS$MOVE48@<OTS$MOVE4@GT DECC$STRLEN4Hb# DECC$STRLEN4P@T DECC$STRLEN4dGSYS$OPEN4lb#SYS$OPEN4@SYS$OPEN4G DECC$MEMCPY4b# DECC$MEMCPY4@ DECC$MEMCPY4 G SYS$CLOSE4b# SYS$CLOSE4 @ SYS$CLOSEh h SYS$CREATE DECC$FREE DECC$STRLEN7DECC$GA_RMS_FAB7DECC$GA_RMS_RAB=0 ;=@ 8OTS$MOVE7DECC$GA_RMS_NAM DECC$MALLOC SYS$PARSE SYS$CLOSE SYS$CONNECT=0p ;= 7DECC$GA_RMS_XABRDTSYS$OPEN DECC$MEMCPY=0 ;=  SYS$TRUNCATE=0 ;=<  DECC$STRNCPY=0 ;=0 SYS$FIND SYS$REWIND=0 P;=@< SYS$PUT;=0 0;=@ =0 8;=@  SYS$GET=0 h;=0 !SYS$DISCONNECT=0 ;=0 =0 ;=@< 7DECC$GA_RMS_XABFHC=0  ;=@ =0 h;=@ ! != K< <=,$#FILEIODEC C V4.1-001 = 4@4= file_create4=5- - - 7 7 8 8 : : 9 9 9 < < 9 9 ? > > @ > > @ @ @ B C C* H L L$ =J$ $= 4: := ,4= h = h44= file_openh4=' m m m m x x y y { { ~              $ ج  ( $ $= l4: := h 4= @ =  44= file_append 4=ld                           _        ($ $=  4. .=   4=  = .: := 4= `M M= 44= file_fidopen4=      ,        Z     ( ج  ( k$ $=  4: := 4=  = 4`4= file_close4=nfe ? ? ? F H G H H I I I($ $= 4: := H4= h = h404= file_dcloseh4= j j j r r u v v v v v v v$G$ $= 4: := 4=  = 844= file_read84=MED       $$ $= <4: := 4=  = 044= file_write04=       $      $ V$ $= 44: := 4=   = P44= file_getposP4=skj          $ $ $= T4: := |4= h = 4`4= file_setpos4=C;:      4$ $= 4: := 4= `# #= 404= file_parse4= 6 6 6 > ? @ C F H L M M Q3 S S \ ],$ $= H4. .=  4=  = $: := l4= x = 44= file_truncate4=0(' ~ ~ ~ ~ $ $= 4: := 4= H = 44= file_get_rdt4=`XW        $$ $= 4: := 4= < =  @