bXz€ ØKOH15-Aug-1986 17:24:2501RTLVAX Pascal V3.3-92 @@$BIT ä@$BYTE å@$WORD @ $LONG æ@@@$QUAD ç@@€$OCTA è@$UBYTE é@$UWORD @ $ULONG ê@@@$UQUAD ë@@€$UOCTA ì@@$IOSB í€>SCR$BUFFER_TYPEî CLI$_ABSENTï CLI$_CONCATðCLI$_DEFAULTEDñ CLI$_NEGATEDò CLI$_PRESENT¤ CLI$_LOCPRES¤ CLI$_LOCNEGôá ó CLI$GET_VALUEöá õ CLI$PRESENTøá ÷ FOR$CVT_D_TDúá ù FOR$CVT_G_TDüá û FOR$CVT_H_TDþá ý FOR$CVT_D_TEá ÿ FOR$CVT_G_TEá  FOR$CVT_H_TEá  FOR$CVT_D_TFá  FOR$CVT_G_TFá  FOR$CVT_H_TF á   FOR$CVT_D_TG á   FOR$CVT_G_TGá   FOR$CVT_H_TGá LIB$ADDXá LIB$ASN_WTH_MBXá  LIB$CALLGá  LIB$DATE_TIMEá LIB$DAYá LIB$DAY_OF_WEEKá LIB$DISABLE_CTRLá LIB$DO_COMMAND á LIB$EMUL"á !LIB$ENABLE_CTRL$á #LIB$ERASE_LINE&á % LIB$FIND_FILE(á 'LIB$FIND_IMAGE_SYMBOL*á ) LIB$FREE_EF,á +LIB$GET_COMMAND.á - LIB$GETDVI0á / LIB$GET_EF2á 1LIB$GET_FOREIGN4á 3 LIB$GET_INPUT6á 5 LIB$GETJPI8á 7LIB$GET_SYMBOL:á 9 LIB$GET_VM<á ;LIB$LOOKUP_KEYá = LIB$LP_LINES?á >LIB$MATCH_COND@á  LIB$MOVC3Bá A LIB$MOVTCDá C LIB$MOVTUCFá ELIB$PUT_BUFFERHá GLIB$PUT_OUTPUTJá ILIB$PUT_SCREENLá KLIB$SCOPY_DXDXNá MLIB$SET_BUFFERPá OLIB$SET_LOGICALRá QLIB$SET_SYMBOLTá S LIB$SIGNALVá ULIB$SKPCXá WLIB$STOPZá YLIB$SUBX\á [LIB$SYS_TRNLOG^á ]LIB$TRA_EBC_ASC`á _LIB$TRIM_FILESPECbá a MTH$JMAX0dá c MTH$JMIN0fá e MTH$RANDOMhá g OTS$CVT_TI_Ljá i OTS$CVT_T_Dlá k OTS$CVT_T_Fná m OTS$CVT_T_Gpá o OTS$CVT_T_H¤ SORT$_FACILITY¤ SOR$_MISS_KEY¤ SOR$_WORK_DEV¤ SOR$_NO_WRK¤ SOR$_VM_FAIL¤ SOR$_WS_FAIL¤ SOR$_SORT_ON¤ SOR$_BAD_KEY¤ SOR$_NUM_KEY¤ SOR$_BAD_LEN¤ SOR$_ONE_IN¤ SOR$_IND_OVR¤ SOR$_INCONSIS¤ SOR$_VAR_FIX¤ SOR$_BAD_TYPE¤ SOR$_LRL_MISS¤ SOR$_BAD_SPEC¤ SOR$_BAD_LRL¤ SOR$_BAD_FILE¤ SOR$_BAD_ADR¤ SOR$_MAP¤ SOR$_EXTEND¤ SOR$_KEY_LEN¤ SOR$_CLEAN_UP¤ SOR$_BAD_MERGE¤ SOR$_BAD_ROUTIN¤ SOR$_INP_FILES¤ SOR$_BAD_ORDER¤ SOR$_DUP_OUTPUT¤ SOR$_MISS_PARAM¤ SOR$_END_SORT¤ SOR$_KEYED¤ SOR$_BAD_SRL¤ SOR$_NODUPEXC¤ SOR$_DELETE1¤ SOR$_DELETE2¤ SOR$_DELBOTH¤ SOR$_NYI¤ SOR$_RTNERROR¤ SOR$_KEYAMBINC¤ SOR$_OBS_0¤ SOR$_ROPRAND¤ SOR$_UNDOPTION¤ SOR$_STABLEEXC¤ SOR$_SRTIWA¤ SOR$_SPCOVR¤ SOR$_SPCMIS¤ SOR$_SPCSIS¤ SOR$_SPCIVP¤ SOR$_SPCIVS¤ SOR$_SPCIVC¤ SOR$_SPCIVF¤ SOR$_SPCIVD¤ SOR$_SPCIVX¤ SOR$_SPCIVK¤ SOR$_SPCIVI¤ SOR$_INCNOKEY¤ SOR$_INCNODATA¤ SOR$_INVFOLD¤ SOR$_OPERFAIL¤ SOR$_REQ_ALT¤ SOR$_USE_ALT¤ SOR$_COL_ADJ¤ SOR$_COL_CMPLX¤ SOR$_COL_CHAR¤ SOR$_COL_PAD¤ SOR$_COL_THREE¤ SOR$_BADDTYPE¤ SOR$_BADLENOFF¤ SOR$_BADOCCURS¤ SOR$_BADOVRLAY¤ SOR$_BADPROTCL¤ SOR$_CDDERROR¤ SOR$_ILLBASE¤ SOR$_ILLLITERL¤ SOR$_ILLSCALE¤ SOR$_INCDIGITS¤ SOR$_MISLENOFF¤ SOR$_MULTIDIM¤ SOR$_NOTRECORD¤ SOR$_SIGNCOMPQ¤ SOR$_UNSUPLEVL¤ SOR$GK_RECORD¤ SOR$GK_TAG¤ SOR$GK_INDEX¤ SOR$GK_ADDRESS¤ SOR$M_EBCDIC¤ SOR$M_MULTI¤ SOR$M_NODUPS¤ SOR$M_NOSIGNAL¤ SOR$M_SEQ_CHECK¤ SOR$M_STABLE¤ SOR$M_LOAD_FILL¤ SOR$V_EBCDIC¤ SOR$V_MULTI¤ SOR$V_NODUPS¤ SOR$V_NOSIGNAL¤ SOR$V_SEQ_CHECK¤ SOR$V_STABLE¤ SOR$V_LOAD_FILL¤ SOR$K_MAX_STAT¤ SOR$K_IDENT¤ SOR$K_REC_INP¤ SOR$K_REC_SOR¤ SOR$K_REC_OUT¤ SOR$K_LRL_INP¤ SOR$K_LRL_INT¤ SOR$K_LRL_OUT¤ SOR$K_NODES¤ SOR$K_INI_RUNS¤ SOR$K_MRG_ORDER¤ SOR$K_MRG_PASSES¤ SOR$K_WRK_ALQ¤ SOR$K_MBC_INP¤ SOR$K_MBC_OUT¤ SOR$K_MBF_INP¤ SOR$K_MBF_OUT qÐ?A_SOR$KEY_BUFFERsá  rSOR$BEGIN_SORTuá t SOR$END_SORTwá  vSOR$PASS_FILESyá xSOR$RELEASE_REC{á zSOR$RETURN_REC}á |SOR$SORT_MERGEá ~ STR$COMPAREá €STR$COMPARE_EQLƒá ‚ STR$COPY_R…á „STR$MATCH_WILD‡á † STR$TRANSLATE‰á ˆSTR$TRIM‹á Š STR$UPCASEá Œ$SETDDIR SYS$SETDDIR €ÿÿÿ €ÿÿÿ$@Ž$€ ÿ ÿÿ$@$€‘$@’ €>Г ð )ý !ý ø ý  CLI$GET_VALUE $”•$NAME  ! CLI$PRESENT $–$NAME  " FOR$CVT_D_TD $— @VAL  # FOR$CVT_G_TD $˜ @VAL  $ FOR$CVT_H_TD $™€VAL  % FOR$CVT_D_TE $š @VAL  & FOR$CVT_G_TE $› @VAL  ' FOR$CVT_H_TE $œ€VAL  ( FOR$CVT_D_TF $ @VAL  ) FOR$CVT_G_TF $ž @VAL  * FOR$CVT_H_TF $Ÿ€VAL  + FOR$CVT_D_TG $  @VAL  , FOR$CVT_G_TG $¡ @VAL  - FOR$CVT_H_TG $¢€VAL  .LIB$ADDX $£¤dA  /LIB$ASN_WTH_MBX $¥¦$DEV_NAM  0 LIB$CALLG $§¨dARGLIST  1 LIB$DATE_TIME $©@DST_STR  2LIB$DAY $ª  DAY_NUMBER  3LIB$DAY_OF_WEEK $«æd@@¬TIME  4LIB$DISABLE_CTRL $­$  DISABLE_MSK  5LIB$DO_COMMAND $®$CMD_TXT  6LIB$EMUL $¯  MULTIPLIER  7LIB$ENABLE_CTRL $°$  DISABLE_MSK  8LIB$ERASE_LINE $± ²LINE_NO  9 LIB$FIND_FILE $³´$ FILE_NAME  :LIB$FIND_IMAGE_SYMBOL $µ¶$FILENAME  ; LIB$FREE_EF $ EVENT  <LIB$GET_COMMAND $·¸GET_STR  = LIB$GETDVI $¹  ITEM_CODE  > LIB$GET_EF $ EVENT  ?LIB$GET_FOREIGN $º»GET_STR  @ LIB$GET_INPUT $¼½GET_STR  A LIB$GETJPI $¾  ITEM_CODE  BLIB$GET_SYMBOL $¿ÀSYMBOL  C LIB$GET_VM $Á  NUM_BYTES  DLIB$LOOKUP_KEY $Âà SEARCH_STR  E LIB$LP_LINES  FLIB$MATCH_COND $Äd COND_VAL $Å LENGTH  H LIB$MOVTC $ÆÇSRC_STR  I LIB$MOVTUC $ÈÉSRC_STR  JLIB$PUT_BUFFER $ Ê OLD_BUFFER  KLIB$PUT_OUTPUT $Ë$MSG_STR  LLIB$PUT_SCREEN $ÌÍTXT  MLIB$SCOPY_DXDX $ÎÏSRC_STR  NLIB$SET_BUFFER $Ðí€>ÑBUFFER  OLIB$SET_LOGICAL $ÒÓLOG_NAM  PLIB$SET_SYMBOL $ÔÕSYMBOL  Q LIB$SIGNAL $Ö ×COND  RLIB$SKPC $ØC  SLIB$STOP $Ù ÚCOND  TLIB$SUBX $ÛÜdA  ULIB$SYS_TRNLOG $ÝÞ LOGICAL_NAME  VLIB$TRA_EBC_ASC $ßàSOURCE  WLIB$TRIM_FILESPEC $áâ$IN_FILE  X MTH$JMAX0 $ NUM  Y MTH$JMIN0 $ NUM  Z MTH$RANDOM $@ SEED  [ OTS$CVT_TI_L $ãä$INP_STR  \ OTS$CVT_T_D $åæ$INP_STR  ] OTS$CVT_T_F $çè$INP_STR  ^ OTS$CVT_T_G $éê$INP_STR  _ OTS$CVT_T_H $ëì$INP_STR$Ð?úí  ÖSOR$BEGIN_SORT $îq$Ð? KEY_BUFFER  × SOR$END_SORT $ ïCONTEXT  ØSOR$PASS_FILES $ðñ$òINP_DESC  ÙSOR$RELEASE_REC $óô$DESC  ÚSOR$RETURN_REC $õöDESC  ÛSOR$SORT_MERGE $ ÷CONTEXT  Ü STR$COMPARE $øù$SRC1_STR  ÝSTR$COMPARE_EQL $úû$SRC1_STR  Þ STR$COPY_R $üýDST_STR  ßSTR$MATCH_WILD $þÿCAND_STR  à STR$TRANSLATE $DST_STR  áSTR$TRIM $DST_STR  â STR$UPCASE $DST_STR  ã$SETDDIR $$NEW$ æ L0$ ç L0$ ê L0$ ë L0$å@ì STATUS  Ð $% RETBUF$$ $OUT_STR $OUT_STR $OUT_STR $OUT_STR $OUT_STR $OUT_STR $OUT_STR $OUT_STR $ OUT_STR $!"OUT_STR $#$OUT_STR $%&OUT_STR $'¤dB$   $( MAX_MSG$ $d PROC$  $% $)æd@@* USER_TIME $ DAY_NUM  $€ OLD_MSK$ $+  MULTIPLICAND $€ OLD_MSK $ ,COL_NO  $-.% RESULT_NAME$ $/0$ SYMBOL_DESC$ $123 PROMPT_STR$ $4é@5CHANNEL $678 USER_PROMPT$ $9:; PROMPT_STR$ $<é@= PROCESS_ID $>?RET_BUF$ $ BASE_ADR $@@  KEY_TABLE$ $d  COND_VAL_I $ABdSOURCE $C FILL_CHAR$ $D STOP_CHAR$ $ $E FLINE_NO$ $GDST_STR$ $ H OLD_BUFFER  $IVALUE$ $JKVALUE$ $ LPARAMS  $M$STR $ NPARAMS  $OÜdB$   $På@QDST_LEN$ $àDEST$ $RSOUT_FILE$ $T@ VALUE_$ $U @VALUE_$ $V VALUE_$ $W @VALUE_$ $X€VALUE_$$Y@qZNUMBER_OF_KEYS $[é$@\IRL  $]^$_OUT_DESC$  $ `CONTEXT$ $aé@bLEN$  $c$SRC2_STR$ $d$SRC2_STR$ $eé@SRC_LEN$ $f PATTERN_STR$ $ghSRC_STR$ $ijSRC_STR$ $k$SRC_STR$ $lå@mOLDLEN$ $ æL1$ çnL1$ êL1$ ëoL1$é@ìpCOUNTqr $s DIGITS_IN_FRACT$ $t DIGITS_IN_FRACT$ $u DIGITS_IN_FRACT$ $v DIGITS_IN_FRACT$ $w DIGITS_IN_FRACT$ $x DIGITS_IN_FRACT$ $y DIGITS_IN_FRACT$ $z DIGITS_IN_FRACT$ ${ DIGITS_IN_FRACT$ $| DIGITS_IN_FRACT$ $} DIGITS_IN_FRACT$ $~ DIGITS_IN_FRACT$ $€@C $ BUF_QUO $ ‚DAY_TIME  $ƒ ADDEND  $„ CONTEXTq… $  SYMBOL_VAL$ $é@†OUT_LEN$  $‡ˆ‰ DEVICE_NAME  $Šå@‹OUT_LEN$  $é@ŒOUT_LEN$  $Ž PROCESS_NAME  $é@‘RET_LEN$ $’ “ KEY_VALUE $”@DEST$ è@ $•–@ TRANS_TBL $—–@ TRANS_TBL $˜ ™COL_NO $ $ $ šTABLE$ $  $›œ@C $žDST_STR  $Ÿé¤`WIDTH$ $  ¡ VALUE_SIZE $¢ £DIGITS_IN_FRACT $¤ ¥DIGITS_IN_FRACT $¦ §DIGITS_IN_FRACT $¨ ©DIGITS_IN_FRACT ÿ$ªÀ?qKEY $«$ ¬OPTIONS  $­è$@®ORG$   $ ¯CONTEXT $$ $ SRC_STR$ $°± TRANS_STR$ $é@²OUT_LEN$$ $³´OLD $ @çµL2$ @ë¶L2$ ìDEV_DEP ÿÿ$· $¸ ¹ SCALE_FACTOR $º » SCALE_FACTOR $¼ ½ SCALE_FACTOR $¾ ¿ SCALE_FACTOR $À Á SCALE_FACTOR $ à SCALE_FACTOR $Ä Å SCALE_FACTOR $Æ Ç SCALE_FACTOR $È É SCALE_FACTOR $Ê Ë SCALE_FACTOR $Ì Í SCALE_FACTOR $Î Ï SCALE_FACTOR $ ÐLEN$   $Ñé@DEV_CHN  $æ@@@PRODUCT $ÒÓ$Ô DEFAULT_NAME$Õ  $Ö@ × OUT_VALUE$  $ Ø FORCE_PROMPT   $Ù@ Ú OUT_VALUE$  $ ÛTBL_IND  $ÜÝÞFULL_STR $ è@ $ßDST_STR à $áâDST_STR $ ãFLAGS   $$ äLEN$   $å TABLE$ $é¤`OUT_LEN $ æFLAGS  $ç è SCALE_FACTOR  $é ê SCALE_FACTOR  $ë ì SCALE_FACTOR  $í î SCALE_FACTOR  À?øð@ï $ñ$ ò FILE_ALLOC  $óè$@ôRFM   $õ MATCH_STR$ $ $ `çL3$ `ëL3 ÿÿ $ö ÷ DIGITS_IN_EXP  $ø ù DIGITS_IN_EXP  $ú û DIGITS_IN_EXP  $ü ý DIGITS_IN_EXP  $þ ÿ DIGITS_IN_EXP  $  DIGITS_IN_EXP  $  DIGITS_IN_EXP  $  DIGITS_IN_EXP  $  DIGITS_IN_EXP  $   DIGITS_IN_EXP  $    DIGITS_IN_EXP  $    DIGITS_IN_EXP   $é@MBX_CHN $$ RELATED_NAME$  ÿÿ $% OUT_STRING   $% OUT_STRING   $å@OUT_LEN$ $   $€  FILL_CHAR$   $ ACC_MODE  $ FLAGS  $ FLAGS  $ FLAGS  $ FLAGS  ÿ$@ $  USER_COMPARE  $ è$@!BKS $ $ "FLAGS  $ #FLAGS  $ $FLAGS  $ %FLAGS  $ &FLAGS  $ 'FLAGS  $ (FLAGS  $ )FLAGS  $ *FLAGS  $ +FLAGS  $ ,FLAGS  $ -FLAGS  $. /STV_ADDR$ q0 q1   $ 2DSB_MSK     $é@ð3 DATA_TYPE $4 56 USER_EQUAL8 7 USER_COMPARE  $9é$@:BLS              $ ; USER_FLAGS $<$= $>@ð?ORDER $@ä$@A SORT_PROCESSC B USER_EQUAL    USER_COMPARE $D@ ADRS1 $Eé$@FMRS   ÿÿ ÿÿ $é@ ðGOFFSET $Hä$@I WORK_FILES   5 USER_EQUAL $J@ ADRS1 $K@ ADRS2 $L$ MALQ $é@0ð KEY_LENGTH $  NCONTEXT  $O@ ADRS2 $P@ LENG1 $Q$  RFOP   $S@ LENG1 $T@ LENG2 $Uè$@  VFSZ  $W@ LENG2 $@ CNTX $  XCONTEXT  $@ CNTX €*€T€|€¤€Ì€ô€€J€v€¢€Î€ø€,€J€j€Œ€¬€Ì€î€ €0€P€r€–€º€Þ€€&€J€n€’€¶€Ú€þ€ €D €d €ˆ €¤ €È €î € €2 €X €~ €  €Ì €ì € €2 €R €x €œ €¾ €â € €& €J €n €Š €¨ €Ê €î € €6 €Z €~ €¤ €Ê €ê € €*€J€n€”€¼€Ü€ü€€B€d€„€¤€Ä€æ€€(€H€j€Š€ª€Ê€ê€ €(€J€l€Ž€°€Ð€ð€€4€V€r€€²€Ô€ö€€:€^€€€¤€Ä€â€€$€F€f€†€¢€Ä€æ€€&€J€n€Œ€¬€Ì€ì€ €,€L€l€Œ€¬€Ì€ì€ €.€N€p€’€²€Ò€ö€€:€^€€€¢€Æ€ê€€0€R€v€˜€º€Þ€€"€F€j€Œ€ª€Ê€î€€,€N€r€”€¶€Ø€ú€€:€^€€€¢€Ä€æ€€$€D€d€„€¤€Ä€ä€€(€N€p€€°€Ð€ð€&€J€n€’€¸€Þ€ €$ €H €j €Ž €° €Î €î €!€8!€X!€|!€ !€À!€à!€"€("€L"€l"€x"€„"€"€œ"€¨"€Ì"€ö"€#€B#€f#€#€²#€Ü#€þ#€($€J$€t$€–$€À$€â$€ %€.%€X%€z%€¤%€Æ%€ð%€&€<&€^&€ˆ&€ª&€Ô&€ò&€'€<'€h'€ˆ'€´'€Ø'€(€ (€R(€x(€¢(€Ê(€ü(€")€P)€n)€ž)€Ä)€ô)€*€H*€l*€œ*€È*€ö*€+€D+€h+€”+€¶+€ä+€,€0,€T,€€,€¤,€Ð,€ò,€ -€F-€r-€’-€À-€æ-€.€:.€^.€Ž.€º.€Ø.€/€&/€T/€z/€ª/€Î/€ü/€"0€L0€r0€ 0€Æ0€ò0€1€D1€j1€–1€¶1€â1€2€(2€F2€r2€’2€¸2€Þ2€3€83€f3€Œ3€¸3€Ø3€4€ 4€H4€j4€–4€º4€è4€5€45€T5€€5€ 5€Ì5€ì5€6€<6€b6€’6€¶6€ä6€ 7€:7€`7€Š7€®7€Ú7€þ7€,8€L8€z8€ 8€Î8€î8€9€B9€r9€”9€À9€Þ9€ :€.:€\:€z:€¤:€Î:€ö:€;€F;€r;€”;€Â;€è;€ <€8<€d<€<€¼<€è<€=€@=€l=€˜=€Ä=€ð=€>€D>€h>€”>€¸>€â>€?€,?€\?€ˆ?€”?€À?€ä?€@€D@€r@€€@€°@€Ô@€A€(A€ZA€€A€¬A€ÜA€B€2B€XB€ŠB€¸B€ÜB€ C€8C€\C€ŽC€ºC€èC€ D€F€LF€tF€¢F€°F€ØF€üF€(G€LG€vG€œG€ÊG€ðG€H€DH€rH€˜H€ÆH€ìH€I€@I€nI€”I€ÊI€ôI€J€.J€TJ€`J€ŒJ€°J€ØJ€üJ€K€6K€\K€ŠK€°K€ÜK€L€0L€TL€€L€¤L€ÐL€ôL€ M€DM€rM€˜M€¤M€ÎM€öM€N€FN€pN€ˆN€¼N€àN€O€8O€lO€O€ÄO€èO€P€@P€tP€˜P€ÌP€ðP€$Q€HQ€|Q€ Q€ÔQ€øQ€,R€PR€„R€¨R€ÐR€üR€*S€8S€fS€tS€ S€¸S€êS€T€