k:h bOXL 4-Jun-1992 04:05:2501INTERACTVAX Pascal V4.2-55p VT100_ESCrq VT100_TOPrt VT100_BOTTOMru VT100_WIDErv VT100_NORMALxw VT100_BRIGHTxz VT100_FLASHx{ VT100_INVERSE}|VT100_BRIGHT_ONLY}VT100_FLASH_ONLY}VT100_INVERSE_ONLY VT100_STORE VT100_RESTORErVT100_GRAPHICS_ONrVT100_GRAPHICS_OFFrVT100_ALTERNATE_GRAPHICSVT100_NORMAL_SCROLLVT100VT100_APPLICATION_KEYPADVT100_NO_APPLICATION_KEYPAD VT100_BELLVT100_BSVT100_LFVT100_CRVT100_SIVT100_SO" p DATE_TIME" DESBLK  QIO_WRITE_SPEED  CHECK_STATUS} CLEAR CREATE_GLOBAL_SECTION CREATE_EVENT_FLAG_CLUSTER DAY_NUM DAY_STR DEC DELETE_GLOBAL_SECTION EXTRACT ERROR FORCE  FORMATED_READ}  GET_CLEAR  GET_DATE_TIME  FULL_CHAR GET_JPI GET_POSN HEX  IMAGE_DIR KILL  LOWER_CASE  LOWER_STRING  NO_HANDLER OPEN_STATUS_NEW OPEN_STATUS_OLD POSN  QIO_1_CHAR QIO_1_CHAR_NOW QIO_1_CHAR_TIMED  QIO_PURGE QIO_READ_INTEGER  QIO_READ_VARYING    QIO_READLN   QIO_WRITE  QIO_WRITELN RANDOM  RANDOMIZE RESET_RANDOMIZER  RESET_SCREEN  RMS_SIGNAL  RMS_STATUS RND SEED_INITIALIZE  SETUP_HANDLER  SHOW_GRAPHEDT!  SIGN" SLEEP%  SLEEP_START  SLEEP_WAIT&  SMART_POSN) SMART_QIO_WRITE*  SMART_SHIFT+ SQUARE START_STOPWATCH /STOP_STOPWATCH0 SWAP2  TERMINATE4 TOP_TEN6 5TRIM8 7 UPPER_CASE: 9 UPPER_STRING #3(s$ #4 #6  ( y$   0(0~$ 0 0 7($ 8 (0 (B )0 8(8$ < = >  (p@$$(4 FINDLINK4 EXITREASON4 PROC4@@ARGLIST(@ $  0SCREEN PWHOLETHING(P $  $ , PORTIONTYPE $ - CLEARTYPE$($ $ SECTION_NAME $  SECTION_SIZE $@  SECTION_PTR $  SECTION_END(  @  (64-95(($ $NAME $ 0CLUSTER  2DAY_NUM"3DAY_STR $ DAY"4DEC $ NUMBER $PAD_CHAR $ PAD_LEN   $@  SECTION_PTR $@  SECTION_END"6EXTRACT $STR $ START $TEXT $ ($    $ RETURN_VALUE $PICTURE_CLAUSE $ X_POSN $ Y_POSN $ 9 DEFAULT_VALUE $FIELD_FULL_TERMINATE $ : BEGIN_BRACE $ ; END_BRACE 0SCREEN PWHOLETHING"? GET_CLEAR $ = PORTIONTYPE $ > CLEARTYPE"A FULL_CHAR $ CHARACTER"BGET_JPI $ JPICODE $ RETLEN"CGET_POSN $ X $ Y"DHEX $ NUMBER $ LEN $ PID G LOWER_CASE $C"H LOWER_STRING $TEXT  JOPEN_STATUS_NEW $FAB $ RAB(P $IFILEVAR( D$ 4  $ 4 , #4@ FAB$B_BID,  4@ RAB$B_BID,  `4 ` FABDEF$$_FILL_9, B [ $4@  FAB$B_BLN,  4  RAB$L_XAB, @4@ RAB$B_BLN,  `4 FAB$W_IFI4X FAB$B_RCF4@XFAB$R_RCF_OVERLAY4@ FAB$V_PPF_RAT4@Z  FAB$V_RCF_BI4!@"FAB$R_IFI_OVERLAY, %$#&4' RAB$W_ISI4 $( RAB$L_BKT4 ) RAB$L_FAB4(* RAB$B_ROP148* RAB$B_ROP3, +@+,-4.@/RAB$R_ISI_OVERLAY401FAB$R_IFI_BITS42X 3FAB$R_RCF_BITS$4 4 FAB$L_FOP4P5 FAB$B_ACMODES(46@P 7FAB$R_ACMODES_OVERLAY$4@8  FAB$V_PPF_IND4@Y 9 FAB$V_RCF_AI(4:@ ; FAB$R_FOP_OVERLAY, >&=<?4@ ARAB$R_ISI_BITS 4  =B RAB$L_DCT4 C RAB$L_ROP4D RAB$B_KSZ4E@ FRAB$R_BKT_OVERLAY40 RAB$B_ROP24G RAB$R_ROP_FIELDS, H7I<>(4J@ KRAB$R_ROP_OVERLAY(4L MFAB$R_FOP_BITS(4NPOFAB$R_ACMODES_BITS4P FAB$B_FAC4Q FAB$B_JOURNAL(4@@R FAB$W_GBC4@ S FAB$V_ASY4@X T FAB$V_RCF_RU(4 @U" FAB$L_STS, -V8,V4@#W RAB$V_PPF_RAT#%4#VX RAB$W_RFA4(4Y Z$RAB$R_ROP_BITS04 &[ RAB$B_PSZ4 `\' RAB$L_STV4 (\ RAB$L_KBF(4@)] RAB$B_MBC(4@5,I RAB$V_EQNXT4@6,+H RAB$V_NXT(4 @^/ RAB$L_STS(4_`1FAB$R_FAC_BITS(4a3bFAB$R_JOURNAL_BITS4c4 FAB$B_SHR45c FAB$B_RAT4 7d FAB$L_SDC4@!e8 FAB$V_MXV4f@V9gFAB$V_CALLERS_MODE4 `h; FAB$L_STV4i <HRAB$R_ROP_BITS14@#j= RAB$V_PPF_IND4 #?k RAB$L_RFA0(4l ` mARAB$R_STV_FIELDS4  Bm RAB$L_PBF4n0DC RAB$W_RFA4o@Fp RAB$B_MBF4q@ `rKRAB$R_STV_OVERLAY(4stMFAB$R_SHR_BITS(4uOtFAB$R_RAT_BITS4QP FAB$B_ORG4 Rv FAB$L_DEV4@"wS FAB$V_SUP$4f@TTxFAB$V_FILE_MODE4 yU FAB$L_ALQ(4@ #zW RAB$V_ASY4p#X{ RAB$W_STV2(4|0 [ZRAB$R_RFA_FIELDS(0@}$4@]~ RAB$B_KRF(4@0^RAB$R_RFA_OVERLAY(4b`FAB$R_ORG_BITS(4@d FAB$B_FSZ4@#e FAB$V_TMP4f@RgFAB$V_CHAN_MODE4@h FAB$W_DEQ4@!#j RAB$V_TPT4`#k RAB$W_STV0($4@pRAB$R_KSZ_OVERLAY(4@rRABDEF$$_FILL_4(4@v FAB$B_BKS4@$w FAB$V_TMD4f@PxFAB$V_LNM_MODE4@yFAB$R_FAC_OVERLAY4@"#z RAB$V_REA4@?#{ RAB$V_CCO(4@ ~RAB$R_KBF_OVERLAY$4  RAB$L_CTX4@ FAB$W_BLS4@% FAB$V_DFW4@FAB$V_JOURNAL_FILE(4@FAB$R_SHR_OVERLAY4@## RAB$V_RRL4@># RAB$V_PMT(4 ` RAB$L_RHB4@RABDEF$$_FILL_54  FAB$L_MRN4@& FAB$V_SQO4@FAB$V_NEVER_RU(4  FAB$L_CTX4@$# RAB$V_UIF4@=# RAB$V_PTA4 @ RAB$L_RBF4@ RAB$B_RAC4@ FAB$W_MRS4@' FAB$V_RWO4@FAB$V_AT4o@ FAB$B_RTV4@%# RAB$V_MAS4@<# RAB$V_ETO4  RAB$L_UBF4@ RAB$B_TMO4@ FAB$B_DNS4@( FAB$V_POS4@FAB$V_AI4@FAB$R_ORG_OVERLAY4@&# RAB$V_FDL4@;# RAB$V_RNF4@ RAB$W_RSZ4@ RAB$W_USZ4@ FAB$B_FNS4@) FAB$V_WCK4@FAB$V_BI(4@FAB$R_RAT_OVERLAY4@'# RAB$V_HSH4@:# RAB$V_CVT4  FAB$L_DNA4@* FAB$V_NEF4@FAB$V_RU(4@ FAB$B_RFM4@(# RAB$V_EOF4@9# RAB$V_TMO4 ` FAB$L_FNA4@+ FAB$V_RWC4@ FAB$V_ONLY_RU4@FAB$R_JOURNAL_OVERLAY4@)# RAB$V_RAH4@8# RAB$V_RNE4 @ FAB$L_NAM4@, FAB$V_DMO4@ FAB$V_BLK(4@FAB$B_RU_FACILITY4@*# RAB$V_WBH4@7# RAB$V_NXR4  FAB$L_XAB4@- FAB$V_SPL4@ FAB$V_PRN4@FABDEF$$_FILL_74@+# RAB$V_BIO4@6# RAB$V_KGT4@. FAB$V_SCF4@FAB$V_CR4@,# RAB$V_CDK4@5# RAB$V_KGE4@/ FAB$V_DLT4@ FAB$V_FTN4@-# RAB$V_LOA4@4# RAB$V_NLK4@0 FAB$V_NFS4@ FAB$V_ORG4@.# RAB$V_LIM4@3# RAB$V_RLK4@1 FAB$V_UFO$4@ FAB$V_UPI4@/# RAB$V_SYNCSTS4@2# RAB$V_ULK4@2 FAB$V_PPF4@ FAB$V_NIL4@0# RAB$V_LOC4@1# RAB$V_WAT4@3 FAB$V_INP4@ FAB$V_MSE4@4 FAB$V_CTG4@ FAB$V_SHRUPD4@5 FAB$V_CBT4@ FAB$V_SHRDEL4@6 FAB$V_SYNCSTS4@ FAB$V_SHRGET4@7 FAB$V_RCK4@ FAB$V_SHRPUT4@8 FAB$V_NAM4@ FAB$V_EXE4@9 FAB$V_CIF4@ FAB$V_BRO4@; FAB$V_ESC4@ FAB$V_BIO4@< FAB$V_TEF4@ FAB$V_TRN4@= FAB$V_OFP4@ FAB$V_UPD4@> FAB$V_KFO4@ FAB$V_DEL4@ FAB$V_PUT4@ FAB$V_GET  KOPEN_STATUS_OLD $FAB $ RAB $IFILEVAR $ X $ Y M QIO_1_CHAR NQIO_1_CHAR_NOW OQIO_1_CHAR_TIMED $ DELAY  QQIO_READ_INTEGER"RQIO_READ_VARYING $  CHARS P"S QIO_READLN $  CHARACTERS $TEXT $ TEXT  VRANDOM $ UB  W RANDOMIZE $ UB  [ RMS_STATUS  \RND $ LB $ UB $  USERS_SEED $ HANDLER_ADDRESS $FILENAME $WAIT$($  `SIGN $ N $# $SEC $ FRAC  $ INTERVAL $' TO_X $( TO_Y $INIT $STR $ I $, X1 $- Y1 $. X2 $ Y2"iSTOP_STOPWATCH $1 I $ J $ 3CODE  $  THIS_SCORE"mTRIM $TEXT n UPPER_CASE $C"o UPPER_STRING $TEXT:Xt8\z6Nx4PtBT~ * B T h |  8 V p $ H \ ~  6 V r  B \ ~ (Df&Bb"4\(8`(8HXbnz8v0X|0`xN8b6f (P|<HTD~4d,Zz8`Dl B d !H!t!!!!"\""""#4#P####$D$$$$(%l%%% &`&|&&&>'~'''(V((()D)l))) *b***+F+d+++$,l,,,$-@-h---.H.../|>>>(?L???@(@h@@@4AtAAA$BHBBBCRC|CCDDDlDDD0EpEEE F`FFF G`GGGH\HHHI\III J`JJJ K`KKKLPLLLMPMMMM8NxNNN