E ACCESS_DBV1.028-MAR-2000 09:58DEC C V6.0-001 X $ABS$i@ $CODE$' $LITERAL$$LINK$$DATA$$BSS$ $READONLY_ADDR$ $READONLY$DECC$GA_STDERRDECC$GXFPRINTFDECC$GA_RMS_FABDECC$GA_RMS_RAB DECC$STRCMP DECC$STRLEN SYS$CHKPRO SYS$CLOSE SYS$CONNECT SYS$DELETESYS$GET SYS$GETJPIWSYS$OPENSYS$PUT SYS$UPDATE LIB$FIND_IMAGE_SYMBOL LIB$SIGNAL DECC$FREE DECC$EXIT DECC$MALLOC(JIFOPEN(JpIFCLOSE(J@pIFERROR0J IFREAD_REC0J IFWRITE_REC0J`  IFUPDATE_REC0J  IFDELETE_REC0J IFDLCREATE0J  ICHECK_ACCESSOTS$MOVE =H @ $#P" $$ (^@"$ X"$>"0^ 0[ [p"~tG/8GG  "8{@Zk "0B8bCA" "="tG@ZkhC4G0G(]0]8@#k#; &~>8^(,>0^@^HGG >> {#/_ӠB(b4G@Zk=1vH/(}B0?HbF,4G}@Zk=1vH,}B0?HbF04G}@Zk=@B04vH3?HrtFtG =" "]"GG "G[@ZkG8]@]HP#k;#~_&! "^^~GG#p{# ]PT=$ b_Bb$H"4G X4G\@P`d@Zk =bP1vH0?HsFG@="  ]"$X}"GG4G[@ZkBmHb4G@ZkGGe/H=b&H"!v Hs0@G@="X= ]"`X}"\}GG4G[@Zk0B8b0 G &]""XG\]="`GdX}""GG@Zk=T=GD1@G$DD('H]&':v@Ks"X}#&d&SC0}#"T@B8"(]"4Gh}Hb4GpX"`,0(48ݲ\lt]x|}}@ZkGBbG4G@ZkGG]]}#k#4G^H[~^G ~(0GGGP{@Zk"GGG!G3aB! R"G(B0bX""'@Zk7vJB(B0bG8""'@Zk$!v?H8@$ ¦Bb"GtG@ZkBbG4G@ZkxBb,4G@Zk4$DB?DbF&4GD4G2@JSBD@ZkBbG4G@ZkG`"BP"AG4G@ZkhBpbP"@ZkBbG4G@ZkGGG]] }(0@#k/#4G^0[~^~ GGG8{@Zk  B(b/G4G/@ZkGG]]} 0#kC#~G^G #k [({4G@ZkG] #k>#~?'^^^ GG l8vKlT3 l_& &?D vH@lTb¢FG"4GtP"3v Jw1JpB [ _J({Dp6JF@Zkp=RJ]G]] 0#k///#&~'^#^4GGwS JGlr [({3vJtBlrxP"p6vJFp2T@ZkG]] #k///#&~'^#^4GGwS JGlr [({3vJtBlrxP"p6vJFp2T@ZkG]] #k///#T^4G~ [({^GGP"@ZkG]] #k<PGLIB$FIND_IMAGE_SYMBOL<b#LIB$FIND_IMAGE_SYMBOL<@LIB$FIND_IMAGE_SYMBOL<GLIB$FIND_IMAGE_SYMBOL<b#LIB$FIND_IMAGE_SYMBOL<@LIB$FIND_IMAGE_SYMBOL4@GT DECC$STRLEN4 Hb# DECC$STRLEN4P@T DECC$STRLEN4dG DECC$STRLEN4 lb# DECC$STRLEN4@ DECC$STRLEN4G DECC$STRLEN4 b# DECC$STRLEN4@ DECC$STRLEN4xG DECC$STRLEN4 |b# DECC$STRLEN4@ DECC$STRLEN4G DECC$MALLOC4b# DECC$MALLOC4@ DECC$MALLOC4!G SYS$GETJPIW4"b# SYS$GETJPIW4!@ SYS$GETJPIW4#DG SYS$CHKPRO4$Xb# SYS$CHKPRO h 4#@ SYS$CHKPRO4 G DECC$FREE4b# DECC$FREE4 @ DECC$FREE4G  DECC$MALLOC4b# DECC$MALLOC4@  DECC$MALLOC4hG DECC$STRCMP4lb# DECC$STRCMP4|@ DECC$STRCMP4G DECC$STRCMP4b# DECC$STRCMP4@ DECC$STRCMP4GDECC$GXFPRINTF4b#DECC$GXFPRINTF4@DECC$GXFPRINTF4G DECC$EXIT4b# DECC$EXIT4@ DECC$EXIT4G DECC$STRLEN4 b# DECC$STRLEN4@ DECC$STRLEN4GPSYS$OPEN4$b#SYS$OPEN4L@PSYS$OPEN4 PGl DECC$FREE4Tb# DECC$FREE4 h@l DECC$FREE4xGOTS$MOVE4@OTS$MOVE4G SYS$CONNECT4b# SYS$CONNECT4@ SYS$CONNECT4 G DECC$FREE4b# DECC$FREE4 @ DECC$FREE4G$ SYS$CLOSE4b#p SYS$CLOSE4 @$ SYS$CLOSE4 4GP DECC$FREE48b#p DECC$FREE4 L@P DECC$FREE4 G LIB$SIGNAL4 {#@ LIB$SIGNAL4 @ LIB$SIGNAL, \GSYS$GET, d{#SYS$GET, @SYS$GET, G8 SYS$PUT, {#SYS$PUT,4 @8 SYS$PUT4 G SYS$UPDATE4 {# SYS$UPDATE4 @ SYS$UPDATE4 G$ SYS$DELETE4 {# SYS$DELETE4 @$ SYS$DELETE G=/'I-file open error - invalid mode "%s" =0(";=@x ;0 LIB$FIND_IMAGE_SYMBOL= SECURESHRP= FDLSHRFDL$CREATEh;=SYS$CHANGE_ACL=0" ;= (  SYS$DELETE=0"` ;= (  SYS$UPDATE=0";= ( SYS$PUT=0";=0$  SYS$GET=0"p;=  LIB$SIGNAL=0";=0$  DECC$FREE SYS$CLOSESYS$OPEN DECC$EXIT8OTS$MOVEDECC$GXFPRINTF7DECC$GA_RMS_FAB7DECC$GA_STDERR;=0";=@0 0 DECC$STRCMP=r+P DECC$MALLOC=rh7DECC$GA_RMS_RAB SYS$CONNECT DECC$STRLEN=0" ;= 0 ! SYS$GETJPIW# SYS$CHKPRO=08";=P@ $=  @6= ?=/'& ACCESS_DBDEC C V6.0-001 = 44= load_images4= x x x x x x x x x x x x x $= |4 := 4=  3= 44= ifdlcreate4= x x x x x x x x x x x x x x xB x x x x x x $= $4 := 4= @ =  44= icheck_access 4= x x x x  x x x x x x x x x x x x x x x x x  x x x x x x x  y y y y y y y y y y y y y $= l4 := 4=  = 44= ifopen4= y y y y y y y %y &y &y &y 'y 'y )y. /y 0y 1y$ $= 4 := 4=  = 4p4= ifclose4=+#" :y :y :y $= 4 := T4=  = p4@4= iferrorp4=1)( Gy Ey Ey Jy $= 4 N= 44= ` = 44= ifread_rec4=h`_ Ry Ry \y ay by by by by$ $= 4 := 4=  = 44= ifwrite_rec4=ZRQ qy qy qy qy qy qy sy uy$ $=  4 := < 4=  = ` 44= ifupdate_rec` 4=ZRQ }y }y }y }y }y }y y y$ $=  4 :=  4=  =  44= ifdelete_rec 4=3+* y y y y $=  4 := (