% VAX-11 Librarian V04-00@ @1h! /   \0ADDMJADD_ACLQ ADD_ENTRYVADD_TAGY(BBOARDjBROADCAST_ALL_NODESn BULLETIN$MAINTBULLETIN_MAINCOMMANDS"BULLETIN_SUBCOMMANDS CHANGE_FLAGD CHECK_ACCESSCHECK_BULLETIN_PRIVCHECK_CONNECTIONS CHECK_MAIL CHECK_NEWUSER CHECK_PRIV_IOCHKACLCLEANUP_BULLFILECLEANUP_DIRFILE CLEANUP_LOGIN CLOSE_FILE CLOSE_FILE_DELETECLR2, COMPARE_BTIM  COMPARE_DATE COMPARE_TIME{0ADD ADD_2_ITMLSTADD_2_ITMLST_WITH_RETMJADD_ACLQ ADD_ENTRY*ADD_MERGE_FROM*ADD_MERGE_REST* ADD_MERGE_TOVADD_TAGASSIGN_TERMINALY(BBOARD BROADCASTjBROADCAST_ALL_NODESn BULLETIN$MAINTBULLETIN_MAINCOMMANDS"BULLETIN_SUBCOMMANDSBLCANCEL_CTRLC_AST CHANGE_FLAGCHANGE_FLAG_NOCMDCHECK_BULLETIN_PRIVCHECK_CONNECTIONS CHECK_MAIL CHECK_NEWUSER CHECK_PRIV_IOCHKACL[CLEANUP_BULLFILECLEANUP_DIRFILE CLEANUP_LOGIN CLOSE_BULLDIR CLOSE_BULLDIR_DELETE CLOSE_BULLFIL CLOSE_BULLFIL_DELETECLOSE_BULLFOLDER CLOSE_BULLINFCLOSE_BULLNOTIFY CLOSE_BULLNOTIFY_DELETECLOSE_BULLUSER CLOSE_FILE CLOSE_FILE_DELETE CLOSE_SYSUAFCLR2, COMPARE_BTIM  COMPARE_DATE COMPARE_TIME CONFIRM_PRIVt CONFIRM_USERCONNECTCONNECT_ACCEPT@CHANGE_FLAG_NOCMDCHKACLCLR2CONVERT_HEADER_FROMBIN DELETE_EXPIRED FIND_BULLCP GET_EXPIREDGET_REMOTE_MESSAGE MAKE_CHAR OPEN_FILEREAD_FOLDER_FILE_KEYNUMSEARCHSET_PRIVSTORE_ITMLST_ENTRY UPDATE_FOLDERWRITE_USER_FILE_NEW[CLEANUP_DIRFILE CLEANUP_LOGIN CLOSE_FILE CLOSE_FILE_DELETECLR2, COMPARE_BTIM  COMPARE_DATE COMPARE_TIME CONFIRM_PRIVt CONFIRM_USERCONNECTCONNECT_ACCEPTCONNECT_REMOTE_FOLDERZCONVERT_BULLDIRSCONVERT_BULLFILECONVERT_BULLFILEShCONVERT_BULLFOLDER CONVERT_ENTRY_FROMBIN `CONVERT_ENTRY_TOBIN CONVERT_HEADER_FROMBIN zCONVERT_HEADER_TOBIN ,CONVERT_INFFILE CONVERT_TABSCLEANUP_BULLFILECONVERT_BULLFOLDER DCLEXH FILEGET_BULLGET_UAF OPEN_FILEREC_LOCK SET_GENERIC STORE_BULL UPDATE_FOLDER WRITE_QUEUEGE_LINEP, COMPARE_BTIM  COMPARE_DATE COMPARE_TIME CONFIRM_PRIVt CONFIRM_USERCONNECTCONNECT_ACCEPTCONNECT_REMOTE_FOLDERZCONVERT_BULLDIRSCONVERT_BULLFILECONVERT_BULLFILEShCONVERT_BULLFOLDER CONVERT_ENTRY_FROMBIN `CONVERT_ENTRY_TOBIN CONVERT_HEADER_FROMBIN zCONVERT_HEADER_TOBIN ,CONVERT_INFFILE CONVERT_TABSCONVERT_USERFILECOPY_ACL COPY_ACL1d COPY_BULL N COPY_CHAR_ CONVERT_ENTRY_FROMBIN `CONVERT_ENTRY_TOBIN CONVERT_HEADER_FROMBIN zCONVERT_HEADER_TOBIN ,CONVERT_INFFILE CONVERT_TABSCONVERT_USERFILECOPY_ACL COPY_ACL1d COPY_BULL N COPY_CHAR!CREATE_BBOARD_PROCESS%8 CREATE_BULLCP/ CREATE_FOLDER?CRELNM@" CTRLC_ROUTINEADCLEXHBLDECLARE_CTRLC_ASTDfDELETEM6 DELETE_ENTRYRDELETE_EXPIREDU DELETE_NODE[DEL_ACL^fDEL_TAG` DIRECTORYY zCONVERT_HEADER_TOBIN ,CONVERT_INFFILE CONVERT_TABSCONVERT_USERFILECOPY_ACL COPY_ACL1d COPY_BULL N COPY_CHAR!CREATE_BBOARD_PROCESS%8 CREATE_BULLCP/ CREATE_FOLDER?CRELNM@" CTRLC_ROUTINEADCLEXHBLDECLARE_CTRLC_ASTDfDELETEM6 DELETE_ENTRYRDELETE_EXPIREDU DELETE_NODE[DEL_ACL^fDEL_TAG` DIRECTORYmDIRECTORY_FOLDERSs` DISABLE_CTRLt" DISABLE_PRIVSu& DISCONNECT_BLDECLARE_CTRLC_ASTDfDELETEM6 DELETE_ENTRYRDELETE_EXPIREDU DELETE_NODE[DEL_ACL^fDEL_TAG` DIRECTORYmDIRECTORY_FOLDERSs` DISABLE_CTRLt" DISABLE_PRIVSu& DISCONNECTvBDISCONNECT_REMOTEx$ ENABLE_CTRLy` ENABLE_PRIVSz ERROR_AND_EXIT{ ERROR_TRAP|EXECUTE_COMMANDFILET FILE_LOCKFILTER2 FIND_BULLCP FIND_NEWEST_BULL FINISH_MESSAGE_ADDFOLDER_FILE_ROUTINESRFULL_DIRiU DELETE_NODE[DEL_ACL^fDEL_TAG` DIRECTORYmDIRECTORY_FOLDERSs` DISABLE_CTRLt" DISABLE_PRIVSu& DISCONNECTvBDISCONNECT_REMOTEx$ ENABLE_CTRLx$ENABLE_CTRL_EXITy` ENABLE_PRIVS END_ITMLSTz ERROR_AND_EXIT{ ERROR_TRAP|EXECUTE_COMMANDFILET FILE_LOCKFILTER2 FIND_BULLCPT_BULL FINISH_MESSAGE_ADDFOLDER_FILE_ROUTINESREAD_FOLDER_FILEREAD_FOLDER_FILE_KEYNAMEq FIND_NEWEST_BULL FINISH_MESSAGE_ADD FLUSH_BULLFOLDER_FILE_ROUTINESRFULL_DIRGETACC GETDEVNAME GETDEVUNITGETIMAGE& GETPAGSIZGETPRIV&GETSTSBGETUICGETUSERGETUSERS GET_2_VALSGET_BROADCAST_MESSAGEGET_BULL GET_BULL_LINE GET_EXDATE8 GET_EXPIREDTAGREAD_FOLDER_FILEREAD_FOLDER_FILE_KEYNAMEREAD_FOLDER_FILE_KEYNAME_TEMPREAD_FOLDER_FILE_KEYNUMXT FILE_LOCKFILTER2 FIND_BULLCP FIND_NEWEST_BULL FINISH_MESSAGE_ADDFOLDER_FILE_ROUTINESRFULL_DIRGETACC GETDEVNAME GETDEVUNITGETIMAGE& GETPAGSIZGETPRIV&GETSTSBGETUICGETUSERGETUSERS GET_2_VALSGET_BROADCAST_MESSAGEGET_BULL GET_BULL_LINE GET_EXDATE8 GET_EXPIRED" GET_FIRST_TAGGET_FOLDER_INFOGET_INPUT_NOECHOGET_LINE GET_L_VALREAD_FOLDER_FILE_KEYNUM_TEMPREAD_FOLDER_FILE_TEMP READ_HEADERREAD_MBX" READ_QUEUEREAD_USER_FILEREAD_USER_FILE_HEADERREAD_USER_FILE_KEYNAMEREC_LOCKREDISPLAY_DIRECTORYREGISTER_BULLCP REMOVE_ENTRY& REMOVE_FOLDERREPLACEREPLYh RESET_TIMERRESPONDREWRITE_FOLDER_FILEREWRITE_FOLDER_FILE_TEMP RUN_BULLCP0SAVE_LAST_READ_BTIM2SEARCHDSWRITE_FOLDER_FILEs" GET_FIRST_TAGGET_FOLDER_INFOGET_INPUT_NOECHOGET_INPUT_NOECHO_PROMPT GET_INPUT_NUMGET_INPUT_PROMPTGET_LINE GET_L_VALN GET_MSGKEY,GET_NEWEST_MSG" GET_NEXT_TAG GET_NODE_INFO(GET_NODE_NUMBERGET_NODE_NUMBER_OTHERGET_PROXY_ACCOUNTSGET_PROXY_USERNAMEGET_REMOTE_MESSAGEAGREAD_FOLDER_FILEREAD_FOLDER_FILE_KEYNAMEREAD_FOLDER_FILE_KEYNAME_TEMPREAD_FOLDER_FILE_KEYNUM\ GET_BULL_LINE GET_EXDATE8 GET_EXPIRED" GET_FIRST_TAGGET_FOLDER_INFOGET_INPUT_NOECHOGET_LINE GET_L_VALN GET_MSGKEY,GET_NEWEST_MSG GET_NODE_INFO(GET_NODE_NUMBERGET_NODE_NUMBER_OTHERGET_PROXY_ACCOUNTSGET_PROXY_USERNAMEGET_REMOTE_MESSAGEGET_UAF GET_UPTIME GET_USER_PRIVdGET_VALHELPINIT_MESSAGE_ADD INIT_QUEUE ITMLST_SUBS LNM_MODE_EXECLOGINc"GET_THIS_OR_NEXT_TAGGET_UAF GET_UPTIME GET_USER_PRIVdGET_VALHELP*INITIALIZE_MERGE INIT_ITMLSTINIT_MESSAGE_ADDINIT_MESSAGE_ADD_BBOARDINIT_MESSAGE_ADD_DIGEST INIT_QUEUE ITMLST_SUBS LNM_MODE_EXECLOGIN LOGIN_FOLDERjMAIL$VMAILEDIT' MAKE_CHAR(.MBX_ASTREAD_FOLDER_FILEREAD_FOLDER_FILE_KEYNAMEREAD_FOLDER_FILE_KEYNAME_TEMPREAD_FOLDER_FILE_KEYNUMU GET_UPTIME GET_USER_PRIVdGET_VALHELPINIT_MESSAGE_ADD INIT_QUEUE ITMLST_SUBS LNM_MODE_EXECLOGINjMAIL$VMAILEDIT' MAKE_CHAR(.MBX_AST*MERGE06 MINUTE_DIFF1. MODIFY_FOLDER:MODIFY_SYSTEM_LISTA^MOVESNEW_MESSAGE_NOTIFICATION]< OPEN_FILEh6OPEN_FILE_SHAREDr OPEN_NEW_TAGu OPEN_OLD_TAGx OPEN_USERINFO| OPER_PRIV} OUTPUT_HELPPRINT0 PRINT_OUTPUTD CHECK_ACCESSCHECK_BULLETIN_PRIVCHECK_CONNECTIONS CHECK_MAIL CHECK_NEWUSER CHECK_PRIV_IOCHKACL(.MBX_AST*MERGE06 MINUTE_DIFF1. MODIFY_FOLDER:MODIFY_SYSTEM_LISTA^MOVESNEW_MESSAGE_NOTIFICATION]< OPEN_BULLDIRh6OPEN_BULLDIR_SHARED]< OPEN_BULLFILh6OPEN_BULLFIL_SHARED]<OPEN_BULLFOLDERh6OPEN_BULLFOLDER_SHARED]< OPEN_BULLINFh6OPEN_BULLINF_SHARED]<OPEN_BULLNOTIFYh6OPEN_BULLNOTIFY_SHARED]< OPEN_BULLUSERh6OPEN_BULLUSER_SHARED]< OPEN_FILED_FOLDER_FILE_KEYNAME_TEMPREAD_FOLDER_FILE_KEYNUMh6OPEN_FILE_SHAREDr OPEN_NEW_TAGu OPEN_OLD_TAG]< OPEN_SYSUAFh6OPEN_SYSUAF_SHAREDx OPEN_USERINFO| OPER_PRIV} OUTPUT_HELPPRINT0 PRINT_OUTPUTV PUT_OUTPUTREAD$READACL~READDIR READDIR_KEYGE,READNEWlREAD_ASTf READ_CHANn READ_EDITREAD_FOLDER_FILEREAD_FOLDER_FILE_KEYNAMEREAD_FOLDER_FILE_KEYNAME_TEMPREAD_FOLDER_FILE_KEYNUM\h6OPEN_FILE_SHAREDr OPEN_NEW_TAGu OPEN_OLD_TAGx OPEN_USERINFO| OPER_PRIV} OUTPUT_HELPPRINT0 PRINT_OUTPUTV PUT_OUTPUTREAD$READACL~READDIR READDIR_KEYGE,READNEWlREAD_ASTf READ_CHANn READ_EDIT READ_HEADERREAD_MBX" READ_QUEUEREC_LOCKREGISTER_BULLCP REMOVE_ENTRY& REMOVE_FOLDERREPLACEREPLYRESPOND RUN_BULLCP2SEARCH SELECT_FOLDER_REGISTER_BULLCP REMOVE_ENTRY& REMOVE_FOLDERREPLACEREPLYRESPOND RUN_BULLCP2SEARCH SELECT_FOLDERRSET2 SETDEFAULT SETPRV_PRIV SET_ACCESS( SET_BBOARD1SET_DEFAULT_EXPIRE4SET_FOLDER_DEFAULT<SET_FOLDER_EXPIRE_LIMIT>SET_FOLDER_FLAGA SET_GENERICD& SET_KEYPADO SET_LOGINRSET_NODE\( SET_NOKEYPAD]pSET_PRIVcSET_REMOTE_SYSTEMe SET_SYSTEMh SET_TIMERV SELECT_FOLDERRSET2SETACC SETDEFAULT SETPRV_PRIVSETUICSETUSER SET_ACCESS( SET_BBOARD1SET_DEFAULT_EXPIRE4SET_FOLDER_DEFAULT<SET_FOLDER_EXPIRE_LIMIT>SET_FOLDER_FLAGA SET_GENERICD& SET_KEYPADO SET_LOGINRSET_NODE\( SET_NOKEYPAD]pSET_PRIVcSET_REMOTE_SYSTEMe SET_SYSTEMh SET_TIMER SHOW_SYSTEMTEST_MORE_LINESTEST_MORE_RECORDSWRITE_FOLDER_FILE_D& SET_KEYPADO SET_LOGINRSET_NODE\( SET_NOKEYPAD]pSET_PRIVcSET_REMOTE_SYSTEMe SET_SYSTEMh SET_TIMERi SET_VERSIONkSHOWACLm SHOW_FLAGSp SHOW_FOLDER} SHOW_KEYPAD SHOW_PRIV SHOW_USER SHOW_VERSION SLOW_TERMINAL SPAWN_PROCESS START_DECNET STORE_BULLT STORE_DESCRP STORE_FROMSTORE_ITMLST_ENTRY< STRIP_HEADERSUBTIMEz SYS_BINTIM SYS_GETMSG SYS_TRNLNM\cSET_REMOTE_SYSTEMe SET_SYSTEMh SET_TIMERi SET_VERSIONkSHOWACLm SHOW_FLAGSp SHOW_FOLDER} SHOW_KEYPAD SHOW_PRIV SHOW_SYSTEM SHOW_USER SHOW_VERSION SLOW_TERMINAL SPAWN_PROCESS START_DECNET STORE_BULLT STORE_DESCRP STORE_FROMSTORE_ITMLST_ENTRY< STRIP_HEADERSUBTIMEz SYS_BINTIM SYS_GETMSGTEST_MORE_LINESTEST_MORE_RECORDSWRITE_FOLDER_FILEa< STRIP_HEADERSUBTIMEz SYS_BINTIM SYS_GETMSG SYS_TRNLNMSYS_TRNLNM_SYSTEMTAGtTAG_KEY^TEST2 TEST_BULLCPTEST_MORE_LINESTEST_MORE_RECORDS> TIMER_ERRTOTAL_CLEANUP_LOGINTRIMUNDELETE2UPDATE2 UPDATE_ALWAYSUPDATE_DIR_HEADER UPDATE_FOLDER UPDATE_LOGIN UPDATE_READ0UPDATE_REMOTE_USERINFOUPDATE_SHUTDOWNBUPDATE_USERINFOWRITE_FOLDER_FILE\T STORE_DESCRP STORE_FROMSTORE_ITMLST_ENTRY< STRIP_HEADERSUBTIMEz SYS_BINTIM SYS_GETMSG SYS_TRNLNMSYS_TRNLNM_SYSTEMTAGtTAG_KEY^TEST2 TEST_BULLCP> TIMER_ERRTOTAL_CLEANUP_LOGINTRIMUNDELETE2UPDATEUPDATE_DIR_HEADER UPDATE_FOLDER UPDATE_LOGIN UPDATE_READ0UPDATE_REMOTE_USERINFOUPDATE_SHUTDOWNBUPDATE_USERINFOUSER_FILE_ROUTINES UPDATE_LOGIN UPDATE_READ0UPDATE_REMOTE_USERINFOUPDATE_SHUTDOWNBUPDATE_USERINFOUSER_FILE_ROUTINES VERIFY_DATERWAITWAIT_SECWRITEDIRWRITEDIR_NOCONVWRITEOUT_STORED* WRITE_ASTWRITE_BULL_FILE WRITE_CHANWRITE_FOLDER_FILEPWRITE_MESSAGE_LINE: WRITE_QUEUEWRITE_USER_FILEWRITE_USER_FILE_NEW: UPDATE_LOGIN UPDATE_READ0UPDATE_REMOTE_USERINFOUPDATE_SHUTDOWNBUPDATE_USERINFOUSER_FILE_ROUTINES VERIFY_DATERWAITWAIT_SECWRITEDIRWRITEOUT_STORED* WRITE_ASTWRITE_BULL_FILE WRITE_CHANPWRITE_MESSAGE_LINE: WRITE_QUEUE!"#$%&'()*+,-./11`ϒ01.ADD0128-Oct-1989 11:3228-Oct-1989 11:32VAX FORTRAN V5.2-33  ADDPFILESPECTEXTSYS$LOGIN:BULL.SCRNOINDENTSELECT_FOLDERUSERNAMENODESSYSTEMBROADCASTSHUTDOWNPERMANENT SUBJECTEDITBELL:: SYS$NODELOCALALLCLUSTERSYS$LOGIN:BULL.SCR;*). ERROR: /NODES cannot be used with folder set.& ERROR: Folder is not a SYSTEM folder.) ERROR: Input line length > , . Reinput: Enter2 password for node  ERROR: Password is invalid.# Message successfully sent to node )% Error while sending message to node )! ERROR: Unable to add message to )END3 Enter message: End with ctrl-z, cancel with ctrl-c No message was added. ERROR: Unable to reach node )$ Try using /FOLDER instead of /NODE.& ERROR: Unable to open specified file.& ERROR: Unable to add message to file.5 ERROR: Line length in file exceeds ',I,' characters. Enter description header.9 ERRO3R: SETPRV privileges are needed for system messages.; ERROR: SETPRV privileges are needed to broadcast messages.; ERROR: SETPRV privileges are needed to permanent messages.: ERROR: SETPRV privileges are needed to shutdown messages.$ ERROR: Folder has expiration limit.F ERROR: Nodename cannot be specified for shutdown if folder is remote.) ADDP@      P~ 4H CLI$GET_VALUE@@ ` !! CLI$PRESENT@  ] M ] M ] M9,9 CLI$PRESENT@ ] M B`B CLI$PRESENT@PxP CLI$GET_VALUE@85YY CLI$PRESENT@ __ CLI$PRESENT@ ff CLI$PRESENT@pp CLI$PRESENT@__ CLI$PRESENT@ ff CLI$PRESENT@ y y CLI$PRESENT@pp CLI$PRESENT@p,p CLI$GET_VALUE@  YdY CLI6$PRESENT@ CLI$PRESENT@ CLI$GET_VALUE@ CLI$PRESENT@ CLI$PRESENT@&& MAILEDIT@ MAILEDIT@&& FOR$OPEN@&,4& MAILEDIT@&H& FOR$OPEN@7&t& FOR$OPEN@__ CLI$PRESENT@  STR$POSITION@ ff CLI$PRESENT@  STR$POSITION@ yy CLI$PRESENT@  STR$POSITION@pp CLI$PRESENT@ , STR$POSITION@@ CLI8$PRESENT@ P STR$POSITION@ d STR$POSITION@ x PP CLI$PRESENT@000  STR$POSITION@Ph SYS_TRNLNM@(9 ff CLI$PRESENT@ CLI$PRESENT@ CLI$PRESENT@ CLI$PRESENT@  CLI$PRESENT@< CLI$PRESENT@L CLI$PRESENT@!:! CLI$PRESENT@ LIB$DELETE_FILE@P aP PQGENERAL 'PO[^ DISABLE_CTRLˌ SETPRV_PRIVPk(X˜ CLI$GET_VALUEP CLI$_ABSENTYѫYk DISABLE_PRIVS@ˬh˰˴FOR$OPENP1 ENABLE_PRIVS1 CLI$PRESENTP1,& @hTRIMP@@hFOR$OPENի( FOR$ERRSNS4 SY;S_GETMSG1OPEN_BULLFIL_SHARED<< GET_BULL_LINEի) P GET_BULL_LINEի) d GET_BULL_LINEի1ˀ CLI$PRESENTP FOR$WRITE_SFˈ ˌˈ FOR$IO_T_DS FOR$IO_END FOR$WRITE_SF«^( nЫV>~VVː^˔ː FOR$IO_T_V_DS FOR$IO_END˘ GET_BULL_LINE1k CLOSE_BULLFILԫ˴ CLI$PRESENTP˼GET_FOLDER_INFO1D, < CLI$GET_VALUEP( (  CONFIRM_PRIV CLI$PRESENTP FOR$WRITE_SF FOR$IO_END1 FOR$BJTESTP( CLI$PRESENTP CLI$PRESENTP CLI$PRESENTP FOR$WRITE_SF FOR$IO_END18 CLI$PRESENTPkR FOR$WRITE_SF FOR$IO_END1 Y YH CLI$PRESENTPkP OPER_PRIVP FOR$WRITE_SF FOR$IO_END1` CL=I$PRESENTP1 k FOR$WRITE_SF FOR$IO_END1k) G FOR$WRITE_SF FOR$IO_END1 YPP2P Y,  L( Wp CLI$PRESENTP1k  FOR$WRITE_SF FOR$IO_END1ˀ CLI$GET_VALUEPѫY n FOR$WRITE_SF FOR$IO_END1ˌGET_NODE_NUMBER_OTHERի1˜GET_NODE_NUMBER YPP2P Y,  L(\ FOR$WRI>TE_IFݫ FOR$IO_L_V FOR$IO_END(]ˬ˨ FOR$WRITE_IFݫ FOR$IO_L_V FOR$IO_ENDYYTDW 0DW Y_~.~]~:~Y~:~W~( nWQ^ԫ$˸ CLI$PRESENTP GET_NODE_INFOH1$ YPP GET_EXPIRED1(  L(  W),5  bTRIMP( CLI$PRESENTP CLI$GET_VALUE5 FOR$WRITE_SF FOR$IO_ENDGET_LINEի(1PP(Ы(PP(Ĺ? CLI$PRESENTP1  CLI$PRESENT CLI$_NEGATEDTPTը@8MAILEDITLFOR$OPENP@p FOR$CLOSE@xh|ˈMAILEDIT˜FOR$OPENP FOR$WRITE_SF FOR$IO_END ENABLE_PRIVS1Tը@1~+ FOR$READ_SF߫ FOR$IO_L_RD@ FOR$IO_T_DS FOR$IO_ENDѫTPPXXЫXXPTիT FOR$WRITE_SF FOR$IO_L_R FOR$IO_END  FOR$CLOSE1FOR$OPEN FOR$WRITE_SF FOR$IO_END<TիGET_LINEѫ. FOR$WRITE_SF FOR$IO_L_R FOR$IO_ENDիT FOR$WRITE_SF  FOR$IO_T_DS FOR$IO_ENDѫ1T1 FOR$REWIND$1D1, PaA CLI$PRESENTP^(n STR$POSITIONPP^(Pan^S\\W,Wn PaPQ^( CLI$PRESENTP ^( n8 STR$POSITIONPP^(Pan^S\ \W,Wn PaPQ^L CLI$PRESENTP ^( n\ STR$POSITIONPP^(Pan^S\ \W,Wn PaPQ^p CLI$PRESENTP ^( nˀ STR$POSITIONPP^(Pan^S\ \W,Wn PaPQ^˔ CLI$PRESENTP^(nˤ STR$POSITIONPP^(Pan^S\\W,Wn PaPQ^˸ STR$POSITIONP,D\LD1,B,a Pa LTD LIB$INDEXPXDTRIMPXXPѫPP T LQPQR,TB  X(  XPPX(  Vի1 CLI$PRESENTPX-Pa 1[ FOR$WRITE_SF LP @ FOR$IO_T_DS FOR$IO_T_DS FOR$IO_ENDGET_INPUT_NOECHOTRIMP1Y D~^@^( n(TRIMP^(Pn^SWWZ ~Z TRIMP^(P n^SWWZ"~Z LP«^(@nЫWWCZZ0ZY^48FOR$OPENY^ D~^d\ FOR$CLOSE^իz FOR$WRITE_SF FOR$IO_END1 ^(  n ^(  np STR$POSITIONPP^(Pan^SYYX,Xn PaPQ^ LXX FOR$WRITE_SFl FOR$IO_T_DS FOR$IO_END YPPX FOR$WRITE_SF ^( Wn ~ ^( Ln|^ˀ| FOR$IO_T_V_DS FOR$IO_ENDX FOR$WRITE_SF(˄bˈ˄ FOR$IO_T_DS FOR$IO_ENDԫի1+ FODR$READ_SF߫ FOR$IO_L_RD FOR$IO_T_DS FOR$IO_ENDPPPЫPPիX FOR$WRITE_SFˌ ːˌ FOR$IO_T_DS FOR$IO_END1yX FOR$WRITE_SF˔ FOR$IO_T_DS FOR$IO_ENDX FOR$READ_SFD FOR$IO_T_DS FOR$IO_END-   FOR$WRITE_SF LP ˜@ˠ˜ FOR$IO_T_DS FOR$IO_END FOR$REWIND\L1 FOR$WRITE_SF ELP ˤ@˨ˤ FOR$IO_T_DS FOR$IO_END FOR$WRITE_SF ˰ˬ FOR$IO_T_DS FOR$IO_ENDc FOR$WRITE_SF LP @ FOR$IO_T_DS FOR$IO_END FOR$WRITE_SF FOR$IO_END FOR$CLOSE1$@1D, ˼ SYS_TRNLNMPXDZD1ù i sF   Z\- L(L SELECT_FOLDER1 OPEN_BULLDIR,(b 5 ( L ( W (  A OPEN_BULLFILREADDIRի  FOR$REWIND 8V^ ^( n}~^(nV^ STORE_BULLV^ѫ(5V(~^«(^((bnЫ(W^(nWWWV^ STORE_BULLV^ COPY_BULLի1 GPP PP M 1, CLI$PRESENTP1X1< CLI$PRESENTP^HDGET_BROADCAST_MESSAGE^XT CLI$PRESENTPd CLI$PRESENTP^ˀt CLI$PRESENTP^˄|BROADCAST_ALL_NODES^ː CLI$PRESENTP^ˬˠ CLI$PRESENTP^˰˨ BROADCAST^ CLOSE_BULLFIL ADD_ENTRY UPDATE_FOLDERP@@  CLOSE_BULLDIR FOR$WRITE_SF FOR$IO_END CLOSE_BULLFIL CLOHSE_BULLDIR FOR$CLOSE1 FOR$WRITE_SF ˴L˸˴ FOR$IO_T_DS FOR$IO_ENDZU˼ FOR$CLOSE FOR$WRITE_SF FOR$IO_ENDJ FOR$WRITE_SF FOR$IO_END FOR$CLOSEP ENABLE_CTRL DX X FOR$CLOSEX Ы( SELECT_FOLDER CLI$PRESENTPLIB$DELETE_FILEPFrom: Subj: 5-NOV-200000:00:00.00REPADD/SYSTEM/BROADCAST/PERMANENT/SHUTDOWIN/BELL"::/USERNAME=END OADD CLI$_ABSENT CLI$_NEGATED DISABLE_CTRL SETPRV_PRIV CLI$GET_VALUE DISABLE_PRIVSFOR$OPEN ENABLE_PRIVS CLI$PRESENTTRIM FOR$ERRSNS SYS_GETMSGOPEN_BULLFIL_SHARED GET_BULL_LINE CLOSE_BULLFILGET_FOLDER_INFO CONFIRM_PRIV FOR$BJTEST OPER_PRIVGET_NODE_NUMBER_OTHERGET_NODE_NUMBER GET_NODE_INFO GET_EXPIREDGET_LINEMAILEDIT FOR$CLOSE STR$POSITION LIB$INDEXJGET_INPUT_NOECHO SYS_TRNLNM SELECT_FOLDER OPEN_BULLDIR OPEN_BULLFILREADDIR STORE_BULL COPY_BULLGET_BROADCAST_MESSAGEBROADCAST_ALL_NODES BROADCAST ADD_ENTRY UPDATE_FOLDER CLOSE_BULLDIR ENABLE_CTRLLIB$DELETE_FILE$CODE$PDATA$LOCALPOINTDBULLPARP NODE_INFODECNETEDIT COMMAND_LINE REMOTE_FOLDERLAST_RECORD_WRITTENBULL_DIR INPUT_BUFFERKL HEADER_INFOL BULL_USER FOLDER_TIMES NEW_MESSAGES  BULL_FOLDER  BULL_FOLDER1 FOR$REWIND FOR$IO_END FOR$IO_L_R FOR$IO_L_V FOR$IO_T_DS FOR$IO_T_V_DS FOR$READ_SF FOR$WRITE_SF FOR$WRITE_SF FOR$WRITE_IFPP/SPsP}PHP8PPNPP PP .P;P4mPCPP>PP P8P'DP\PgPLsP@PP PLPsP,PPDP P.P+ P(P 9PAP"DP`P kP0nP-|PP PPP2 P5 P%P 7P :P PP PP$*P MPjP@wP P(Py PPPlPP2P)0P2P!RP \PbP9P"PP_ Pw+P(PP<XP4P P PPPEP5P5ZP5MP5P57 P PJ P( P P  P8 P P P` P Pb PF PD P P P P*_ P4b PF P P P PQC PPFP PPNPdPPP5P2PCP P PPPP,^P'PeP P?"P'IPaP{PP u N" & .ww1b?ϒ012ADD_ACL0128-Oct-1989 11:3328-Oct-1989 11:33VAX FORTRAN V5.2-33ADD_ACL@PCW. ERROR: Specified username cannot be verified.ADD_ACLPPP@8 \ O8  0(Hp PQGENERAL 'PPBULL_DIR: G'BULL_DIR: G'BULL_DIR:BULLUSER.DAT ;'QBULL_DIR:BULLFOLDER.DAT 9'QBULL_DIR:BULLINF.DAT <'PK[}PQP}PQ$P V)~< XX^(X$nXW},ACCESS=~W<PXX^(XnXW ^( 9n WW@WV^DH SYS$PARSE_ACLV^P 1Ѽ !1d LIB$INDEXP1޼ ˈpGET_UAF ޼ ˔ˌ FOR$ERRSNS FOR$WRITE_SF FOR$IO_END޼ ˜˘ SYS_GETMSG<PPPkPP˨ˠ SYS$ADD_IDENTP V)~< XX^(X$nXW},ACCESS=~W<XX^(XnXW ^( 9n WW˴WV^˸˼ SYS$PARSE_ACLV^P  INIT_ITMLST~^^ ADD_2_ITMLST^ END_ITMLST LIB$INDEXP LIB$INDEXPQTRIMPЫ0 SYS$CHANGE_ACLP @TRIMPVW}.BULLDIR~V^(VnVYYXXHXW^LЫ`PSYS$CHANGE_ACLW^P W}.BULLFIL~V^(VnVYYXXpXW^tЫˈxSYS$CHANGE_ACLW^P 9P(IDENTIFIER=G KADD_ACL SYS$PARSE_ACL LIB$INDEXGET_UAF FOR$ERRSNS SYS_GETMSG SYS$ADD_IDENT INIT_ITMLST ADD_2_ITMLST END_ITMLSTSYS$CHANGE_ACLTRIM}$CODEE$PDATA R$LOCAL  BULL_FOLDER  BULL_FOLDER1FILES FOR$IO_END FOR$WRITE_SFTPPPP8P]iPP8P+1PyPL@}ww1Hϒ014 ADD_ENTRY0128-Oct-1989 11:3428-Oct-1989 11:34VAX FORTRAN V5.2-33 ADD_ENTRY?PLOCALBROADCASTBELLALLCLUSTER )) ADD_SENTRY(P5       ` CLI$PRESENT@ p CLI$PRESENT@ CLI$PRESENT@!! CLI$PRESENT@%% CLI$PRESENT@XX @0H8}  aP PQGENERAL 'P|H T[\1T)8H CLI$PRESENTPTT1- FOR$WRITE_SF FOR$IO_L_R FOR$IO_T_DS FOR$IO_T_DS FOR$IO_T_DSݬY FOR$IO_LU_V FOR$IO_L_R FOR$IO_L_R FOR$IO_L_R FOR$IO_L_R FOR$IO_ENDPV1- FOR$WRITE_SF FOR$IO_L_R FOR$IO_T_DS FOR$IO_T_DS FOR$IO_T_DSݬY FOR$IO_LU_VX CLI$PRESENTP FOR$IO_L_VhU CLI$PRESENTP FOR$IO_L_Vx CLI$PRESENTP FOR$IO_L_Vˈ CLI$PRESENTP FOR$IO_L_V FOR$IO_ENDPVV1 FOR$READ_SF߫ FOR$IO_L_R0 FOR$IO_T_DS FOR$IO_ENDPVVѫː SYS$ASCTIMPV( ( } UPDATE_FOLDER4 FOR$WRITE_SFˤ˨ˤ FOR$IO_T_DS FOR$IO_ENDDISCONNECT_REMOTEˬ UPDATE_LOGINVk˴ SYS$ASCTIM( ̕( ̠READDIRk, ; ( EVԬ}́̅̑( ̕( ̠ COMPARE_DATEPV( ̫( ̶V COMPARE_TIMEP( ̶֬}́]ḾYPPP̅( ̕( ̠ UPDATE_LOGINWRITEDIRWRITEDIR8PADD5-NOV-200000:00:00.00 |H ADD_ENTRY CLI$PRESENT SYS$ASCTIM UPDATE_FOLDERDISCONNECT_REMOTE UPDATE_LOGINREADDIR COMPARE_DATE COMPARE_TIMEWRITEDIR$CODEP$PDATA,$LOCALBULL_DIR INPUT_BUFFER W BULL_FOLDER  BULL_FOLDER1 REMOTE_FOLDER COMMAND_LINE FOR$IO_END FOR$IO_LU_V FOR$IO_L_R FOR$IO_L_V FOR$IO_T_DS FOR$READ_SF FOR$WRITE_SF FOR$WRITE_SFP*P :P>PPPjP4mP.PiP+P0 P DP%PPPPPmaaww1@ϒ01X2ADD_TAG0128-Oct-1989 11:3528-Oct-1989 11:35VAX FORTRAN V5.2-33ADD_TAGXP Message was already marked. ERROR: Unable to add mark. IOSTAT error = ,ADD_TAGP aP PQGENERAL 'PH[  FOR$WRITE_SU ^^TAG_KEY (^,( FOR$IO_T_V_DS FOR$IO_ENDPѼ2 FOR$WRITE_SF FOYR$IO_ENDռ FOR$WRITE_SF FOR$IO_END0 FOR$ERRSNSի= FOR$WRITE_SFݼ FOR$IO_L_V FOR$IO_END< SYS_GETMSG HADD_TAGTAG_KEY FOR$ERRSNS SYS_GETMSG$CODEQ$PDATAD$LOCALBULL_DIR INPUT_BUFFER  BULL_FOLDER  BULL_FOLDER1 FOR$IO_END FOR$IO_L_V FOR$IO_T_V_DS FOR$WRITE_SF FOR$WRITE_SU- P1FP^PUdPOP$P $ Zww1ϒ011BBOARD0128-Oct-1989 11:3328-Oct-1989 11:33VAX FORTRAN V5.2-33 BBOARDPNL:$ SET PROTECT=(W:RWED)/DEFAULT$ SET PROC/PRIV=SYSPRV$ MAILREADEXTRACT/ALL/APPEND EXTRACT_FILEDELETE/ALLSELECT/NEW@ 5-NOV-2956 00:00:00.00))8 ERROR:Install program with CMKRNL privileges or relink.3 ERROR:Alert system programmer. Data file problems. BBOARDP[PL  y    y L~  DDD|t44|<  $4\ x LIB$SPAWN@\ LIB$SPAWN@  2HNR q { T\ LIB$SPAWN@d LIB$SPAWN@44 LIB$SPAWN@ LIB$]SPAWN@$, LIB$SPAWN@4 LIB$SPAWN@Dt|4Dlllll4ll,TLl^Xldd\ WRITE_MESSAGE_LINE@ SYS_BINTIM@ aPPPBULL_DIR: G'BULL_DIR: G'BULL_DIR:BULLUSER.DAT ;'QBULL_DIR:BULLFOLDER.DAT 9'QBULL_DIR:BULLINF.DAT <' PQGENERAL ' PPPO[ˤ SYS$SETASTkˬ LIB$GET_EF DISABLE_CTRL_˴ INIT_QUEUE OPEN_BULLFOLDER_SHARED WWWREAD_FOLDER_FILEЫW Ы WRITE_QUEUECLOSE_BULLFOLDER SYS$SETAST SYS$SETAST CHECK_MAIL SYS$SETAST ԫ ԫZ֫ѫ 1 SYS$SETASTЫЫ READ_QUEUE-  y ) y֫ ЫYIGETUSERGETACC GETUIC,TRIMP4SETUSERPWW1@SETACCH FOR$JIBCLRP^dT FO`R$JIBCLRP^h`SETUIC^lTRIMPV\^(ntTRIMP^(P yn^SXXYV^(VʠnVXXYY|Y\^ˀ˄LIB$DELETE_FILE\^  1ˌ FOR$BJTESTP1\^("nV^(VʠnVXXY$@~YY˘Y\^˜˰ LIB$SPAWN\^PW SYS$SETASTWk SYS$WAITFR SYS$SETASTˏ PPˏ PP@1 SYS$SETDFPROT\^("nV^(VʠnVXXYYY\^FOR$OPEN\^P1  FOR$WRITE_SF  FORa$IO_T_DS FOR$IO_END  FOR$WRITE_SF( FOR$IO_T_DS FOR$IO_END  FOR$WRITE_SF^(0nV^(VʠnVYY\^(In\\0^40 FOR$IO_T_V_DS FOR$IO_END  FOR$WRITE_SF8 FOR$IO_T_DS FOR$IO_END  FOR$WRITE_SF@ FOR$IO_T_DS FOR$IO_END  FOR$WRITE_SFH FOR$IO_T_DS FOR$IO_END  FOR$WRITE_SFP FOR$IO_T_DS FOR$IO_END  FOR$WRITE_SFbX FOR$IO_T_DS FOR$IO_END` FOR$CLOSEh SYS$SETDFPROT\^("nV^(VʠnVXXY$@~YYtY\^xˌ LIB$SPAWN\^PW˰ SYS$SETASTWk˼˸ SYS$WAITFR SYS$SETAST FOR$WRITE_SF FOR$IO_END11ԫ(\ݏ.COMTRIMP^(P yn^SXXYV^(VʠnVXXYYY\^ LIB$FIND_FILE\^PWW\ݏ.COMTRIMP^(P yn^SXXYV^(VʠnVXXY$@~YYY\^ LIB$SPAWN\^PW,j SYS$SETASTWk84c SYS$WAITFR< SYS$SETASTˏ PP@Wˏ PP\^(dnV^(VʠnVXXY$@~YYDY\^H\ LIB$SPAWN\^PWˀ SYS$SETASTWkˌˈ SYS$WAITFRː SYS$SETASTЫ˜˘ READ_QUEUE }˨SETACC˰SETUSER˸SETUIC\ݏ.TXTTRIMP^(P yn^SXXYV^(VʠnVXXYYY\^FOR$OPEN\^P1~ FOR$READ_SF߫, FOR$IO_L_R< FOR$IO_T_DS FOR$IO_END\ SYS$SETAST SYdS$SETASTЫ READ_QUEUEի,1)lu, ˟)lz¹  s, ˠ)l(L~ FOR$READ_SF߫, FOR$IO_L_R< FOR$IO_T_DS FOR$IO_END1{TRIM,P LSTR$TRIM$ STR$UPCASE0TRIMPYT LIB$INDEeXP1Y8 y<@ LIB$INDEXP1-L  y1Y 4(  y yXY 1X1Ы48Ы4d` READ_QUEUEpTRIMPVYY 1) y1-  y -L  yXVx y|ˀ LIB$INDEXPZZVˌTRIMPVVP@AVFZZXZJAJZX1X(  Ы8 FOR$READ_SF߫, FOR$IO_L_R< FOR$IO_T_DS FOR$IO_ENDPWWѫ,l  FOfR$READ_SF߫, FOR$IO_L_R< FOR$IO_T_DS FOR$IO_ENDPW)lu1\W1X˔TRIMPYXYYZJ˟ XZYY,Y˟ ˟W˜INIT_MESSAGE_ADD_BBOARDYXWW1ի,YXYZX˴WRITE_MESSAGE_LINEXZX˼WRITE_MESSAGE_LINE FOR$READ_SF߫, FOR$IO_L_R< FOR$IO_T_DS FOR$IO_ENDPWѫ,l Wѫ,l  FOR$READ_SF߫, FOR$IO_L_R< FOR$IO_T_DS FOR$IO_ENDPWgW)luWX1+FINISH_MESSAGE_ADD SYS$SETAST1 FOR$CLOSE SYS$SETAST1 SYS$SETAST OPEN_BULLFOLDER_SHAREDWREAD_FOLDER_FILE_KEYNUMCLOSE_BULLFOLDER ENABLE_CTRL ի  OPEN_BULLUSERREAD_USER_FILE_HEADER SYS_BINTIMFOR$REWRITE_SUL FOR$IO_X_SE FOR$IO_ENDCLOSE_BULLUSER SYS$SETASTPNONE::.TXT;*READ_BOARD.COMQ$ DEFINE/USER EXTRACT_FILE Q'F$GETJPI("h","USERNAME")'QBOARD_SPECIAL.COMFrom:Subj:To: OBBOARD SYS$SETAST LIB$GET_EF DISABLE_CTRL INIT_QUEUEOPEN_BULLFOLDER_SHAREDREAD_FOLDER_FILE WRITE_QUEUECLOSE_BULLFOLDER CHECK_MAIL READ_QUEUEGETUSERGETACCGETUICTRIMSETUSERSETACCSETUIC FOR$JIBCLRLIB$DELETE_FILE FOR$BJTEST LIB$SPAWN SYS$WAITFR SYS$SETDFPROTFOR$OPEN FOR$CLOSE LIB$FIND_FILESTR$TRIM STR$UPCASE LIB$INiDEXINIT_MESSAGE_ADD_BBOARDWRITE_MESSAGE_LINEFINISH_MESSAGE_ADDREAD_FOLDER_FILE_KEYNUM ENABLE_CTRL OPEN_BULLUSERREAD_USER_FILE_HEADER SYS_BINTIMCLOSE_BULLUSER CLOSE_BULLFIL CLOSE_BULLDIRP $CODE$PDATA$LOCALBULL_DIR INPUT_BUFFERFILESL HEADER_INFOL BULL_USER FOLDER_TIMES NEW_MESSAGES  BULL_FOLDER  BULL_FOLDER1 KNOWN_FOLDERS FOR$IO_END FOR$IO_L_Rj FOR$IO_T_DS FOR$IO_T_V_DS FOR$IO_X_SE FOR$READ_SF% FOR$WRITE_SFFOR$REWRITE_SU{P KP,^PP ;PINP8P PPPPyPPPmPPPP[Pz_PPPPdPP/P+PPP1P P-P8P~PEP'PPP6PGPXP}gPlPiPJPP P#PPkPPPP*' PL- PF2 PA5 P*y P= P P P P  P P  P P' P P*= P`B P[G P@M P:R P5U P* P P P P:P ww1 ϒ01>BROADCAST_ALL_NODES0128-Oct-198l9 11:3228-Oct-1989 11:32VAX FORTRAN V5.2-33BROADCAST_ALL_NODESPBROADCAST_ALL_NODESP       D PQGENERAL 'PI[ L TEST_BULLCPPOPEN_BULLUSER_SHAREDV,: VTREC_LOCKPm~ FOR$READ_KU FOR$IO_T_DS߫  FOR$IO_X_DA߫ FOR$IO_X_DA߫, FOR$IO_X_DA FOR$IO_ENDPk:\CLOSEdTEST2PVpCLOSEV^(nxTRIMP^(P n^SXXWWˀWV^˄ˈFOR$OPENV^kV1VWV1W 1  FOR$WRITE_SF FOR$IO_L_R FOR$IO_L_RW FOR$IO_L_VWP XXPPXWPPXWPXˬ@ ˰ˬ FOR$IO_T_DS FOR$IO_ENDPVW1hVn FOR$WRITE_SF FOR$IO_L_R  FOR$IO_L_VW FOR$IO_L_Vݼ FOR$IO_L_Vݼ FOR$IO_L_Vc FOR$IO_L_V< FOR$IO_T_DS FOR$IO_ENDPV˴ FOR$CLOSEVkP::"TASK=BULLETIN1" IBROADCAST_ALL_NODES TEST_BULLCPOPEN_BULLUSER_SHAREDREC_LOCKCLOSETEST2FOR$OPENTRIM FOR$CLOSE$CODE&$PDATA$LOCALL HEADER_INFOL BULL_USER FOLDER_TIMES NEW_MEoSSAGES  BULL_FOLDER  BULL_FOLDER1 BROAD_MESSAGESYSTEM_FOLDERS REMOTE_FOLDER FOR$IO_END FOR$IO_L_R FOR$IO_L_V FOR$IO_T_DS FOR$IO_X_DA FOR$READ_KU FOR$WRITE_SF_P P2Py>PIAP@P P  PPPuPjPdA5kww1`ϒ018 BULLETIN$MAIN0128-Oct-1989 11:3228-Oct-1989 1p1:32VAX FORTRAN V5.2-33 BULLETIN$MAINPPROMPT$LINELOGINSYSTEMREVERSEBULL_DISABLESTOP :]SEPARATEEDITCLEANUPBBOARDSTARTUPBULLCPSYS$INPUTTTPAGEBULL_HELP/$VERBFOLDERSELECT_FOLDERBULLETIN_NUMBERSET_PARAM1DUMPSTRIPDIGESTDEFAULTALLEXPIRATIONPROMPT_EXPIRESHOW_PARAM1* BULLETIN temporarily disabled. Try later.@% ERROR: Invalid parameter in /SYSTEM., ERROR: Access to folder limited to reading. PqAGE has been set. NOPAGE has been set.* ERROR: Invalid command for remote folder.% ERROR: /ALL is a privileged command.% ERROR: Invalid expiration specified.3 ERROR: SET SHOWNEW not allowed for GENERAL folder.5 ERROR: SET NOSHOWNEW not allowed for GENERAL folder.1 ERROR: SET BRIEF not allowed for GENERAL folder.3 ERROR: SET NOBRIEF not allowed for GENERAL folder." There are new messages in folder ).# ERROR: There are no more messages. BULLETIN$MAINPPrP  @ '@ ERROR_TRAP,, CLI$GET_VALUE@\BULLETIN_MAINCOMMANDS33 CLI$GET_VALUE@\9 9 CLI$PRESENT@?0? CLI$PRESENT@F@F CLI$PRESENT@ NPN LIB$SYS_TRNLOG@ @[h[ CLI$PRESENT@s dbdff CLI$GET_VALUE@oo CLI$PRESENT@tt CLI$PRESENT@t(t CLI$GET_VALUE@ @`|L| CLI$PRESENT@\ CLI$PRESENT@[l[ CLI$PRESENT@| CLI$PREtSENT@h  CRELNM@ CRELNM@` CLI$PRESENT@?? CLI$GET_VALUE@ @`   LIB$SYS_TRNLOG@|`@BULLETIN_SUBCOMMANDS LIB$GET_INPUTlxtp`u CLI$GET_VALUE@pp  CLI$PRESENT@t  CLI$PRESENT@`llDxpp CLI$GET_VALUE@ @ppp` v CLI$GET_VALUE@`  SET_FOLDER_FLAG@8 SET_FOLDER_FLAG@ P SET_FOLDER_FLAG@ h SET_FOLDER_FLAG@ SET_FOLDER_FLAG@ SET_FOLDER_FLAG@ CLI$PRESENT@w CLI$PRESENT@   CLI$GET_VALUE@ @< CLI$PRESENT@\ CLI$PRESENT@  CLI$PRESENT@ CLI$PRESENT@($x CLI$PRESENT@ CLI$PRESENT@($P CLI$PRESENT@p CLI$PRESENT@($ CLI$PRESENT@ CLI$PRESENT@($y CLI$PRESENT@0 CLI$PRESENT@($p CLI$PRESENT@ CLI$PRESENT@($ $  SET_FOLDER_FLAG@ $  SET_FOLDER_FLAG@ z0  CLI$GET_VALUE@ @H  ( 4``PPBULL_DIR: G'BULL_DIR: G'BULL_DIR:BULLUSER.DAT ;'QBULL_DIR:BULLFOLDER.DAT 9'QBULL_DIR:BULLINF.DAT <'aP PQGENERAL 'PPPO\[p LIB$ESTABLISHˀ CLI$GET_VALUEkVPːLIB$GET_FOREIGNW^(n ^( n˘W{^˜ˠ CLI$DCL_PARSEW^Vk˴ CLI$GET_VALUEkV LIB$REVERTW CLI$PRESENTPg CLI$PRESENTP CLI$PRESENTPLIB$SYS_TRNLOGPѫ @ CLI$PRESENTPg) FOR$WRITE_SF FOR$IO_ENDFOR$EXIT SYS$SETDFPROTENABLE_CTRL_EXIT^,(DCLEXH^0LIB$DISABLE_CTRLˏPPGETPRIV< CHECK_PRIV_IODLIB$ENABLE_CTRLѫFOR$EXITPGETUSERYZYVYP|@j YP,Pj 'jVYYVV` LIB$INDEXPYt LIB$INDEXYQQPPQQVV'Q,QFj 'jˀTRIMPYYTDjADjZYP,Pj 'jY> ~ˈTRIMP^(Pjn^SYYV,Vn 'jPQ^-'j ,  'j^(nːTRIMP^(PPn^SVVY,Yn PPQ^ˠ CLI$GET_VALUE˴ CLI$PRESENTP FIND_BULLCP CLI$PRESENTP CLI$GET_VALUEVH FOR$READ_IF FOR$IO_L_R FOR$IO_END SELECT_FOLDERCLEANUP_BU}LLFILEFOR$EXIT CLI$PRESENTPBBOARDFOR$EXIT CLI$PRESENTP CLI$PRESENTP CREATE_BULLCP( CLI$PRESENTP RUN_BULLCP0GETSTSgӫ @FOR$EXITHCRELNMӫ 1ASSIGN_TERMINAL, T SELECT_FOLDERP` TEST_BULLCPPDELETE_EXPIREDh GETPAGSIZ| CLI$PRESENTPˌ CLI$GET_VALUEP CLI$_ABSENTPѫP @˜ ˠˤSUB~TIME] FOR$WRITE_SF FOR$IO_ENDFOR$EXITg˴MODIFY_SYSTEM_LIST SHOW_SYSTEMFOR$EXIT OPEN_USERINFOgLOGINFOR$EXITNEW_MESSAGE_NOTIFICATION OPEN_OLD_TAG˼ TEST_BULLCPPFOR$EXITԫԫԫԫLIB$SYS_TRNLOGPѫ,  @  VF:F]:~« ^( nЫ YYV,Vn @PQ^¹& ֫ YTRIMPP^(Pjn^SV ~VVVY^GET_INPUT_PROMPTY^ЫYVYЏz1Y CLI$_NOCOMDYf Y\,\ f\YYY\Lf0YP@f9YY^(fn^(n(nf^ CLI$DCL_PARSEPѫz1 CLI$_NOCOMDPѫP @ի  DIRECTORYիFULL_DIRիDIRECTORY_FOLDERS ~^,$READ^11ԫԫԫԫ0TRIMP8f<H LIB$INDEXPY\ LIB$INDEXY\\PP\\\\PP^(PLfn^SXݏ X,Xn fPQ^ftx CLI$GET_VALUE)f)f)f)f FOR$WRITE_SF FOR$IO_END1)fADD1)f ` FOR$WRITE_SF FOR$IO_END ~^ˌ˄READ^1)fREPLACE1)fːMOVE1)f CREATE_FOLDER1)f˘READ1)fDELETE1)fˬ CLI$PRESENTP˴DIRECTORY_FOLDERS CLI$PRESENTP SELECT_FOLDER DIRECTORY DIRECTORY1)f)fFILE1fE)fFOR$EXIT)fX}BULL.HLB~« ^( nЫ \\YYYX^HELPX^1)fFULL_DIR1)fЏ$READ1)f TAG1)fMAIL1)f MODIFY_FOLDER1)fMOVE1)f ~^,$READ^1)f0RESPOND1)fPRINT1 X)f @ CLI$GET_VALUEP CLI$_ABSENTPѫPhVݨ@ FOR$DECODE_MF߫$ FOR$IO_L_R FOR$IO_ENDPREAD ~^d\READ^1)f REMOVE_FOLDER1)fREPLY1)fhRESPOND1)fpSEARCH1)fx SELECT_FOLDER1)f1ˌ CLI$GET_VALUEhF˘ SELECT_FOLDER1)hHSET_PRIV1)h" FOR$WRITE_SF FOR$IO_END1hK SET_KEYPAD1)h$ SET_NOKEYPAD1)h' FOR$WRITE_SF FOR$IO_END1 FOR$WRITE_SF FOR$IO_END1)h+ˤ SET_SYSTEM1)h-ˬ SET_SYSTEM1)h1˴ SET_BBOARD1)h3˼ SET_BBOARD1)h7SET_FOLDER_FLAG1)h9SET_FOLDER_FLAG1)h=SET_FOLDER_FLAG1)h?SET_FOLDER_FLAG1)hC,SET_FOLDER_FLAG1)hEDSET_FOLDER_FLAG1)hI\ CLI$PRESENTPdSET_FOLDER_DEFAULT| CLI$PRESENTP˄ SETPRV_PRIVPˌSET_FOLDER_DEFAULT FOR$WRITE_SF FOR$IO_ENDĹ C˜ CHANGE_FLAG1hE˰ CLI$GET_VALUEPѨ@VH FOR$READ_IF߫, FOR$IO_L_R FOR$IO_ENDSET_FOLDER_EXPIRE_LIMIT7 FOR$WRITE_SF FOR$IO_END1)hMSET_NODE1)hQSET_NODE1)hWSET_FOLDER_EXPIRE_LIMIT1)hZ CLI$PRESENTPSET_FOLDER_DEFAULT CLI$PRESENTP SETPRV_PRIVPSET_FOLDER_DEFAULT FOR$WRITE_SF FOR$IO_END( CHANGE_FLAG1hS1_ FOR$WRITE_SF FOR$IO_END< CLI$PRESENTPDSET_FOLDER_DEFAULT\ CLI$PRESENTPd SETPRV_PRIVPlSET_FOLDER_DEFAULT FOR$WRITE_SF FOR$IO_END| CHANGE_FLAGˈ CHANGE_FLAG1)h_1 FOR$WRITE_SF FOR$IO_END˜ CLI$PRESENTPˤSET_FOLDER_DEFAULT˼ CLI$PRESENTP SETPRV_PRIVPSET_FOLDER_DEFAULT FOR$WRITE_SF FOR$IO_END CHANGE_FLAG CHANGE_FLAG1hR CLI$PRESENTPSET_FOLDER_DEFAULT CLI$PRESENTP$ SETPRV_PRIVP,SET_FOLDER_DEFAULT FOR$WRITE_SF FOR$IO_END< CHANGE_FLAGH CHANGE_FLAG1)hb\ CLI$PRESENTPdSET_FOLDER_DEFAULT| CLI$PRESENTP˄ SETPRV_PRIVPˌSET_FOLDER_DEFAULT FOR$WRITE_SF FOR$IO_END˜ CHANGE_FLAG˨ CHANGE_FLAG1)he1 FOR$WRITE_SF FOR$IO_END˼ CLI$PRESENTPSET_FOLDER_DEFAULT CLI$PRESENTP SETPRV_PRIVPSET_FOLDER_DEFAULT FOR$WRITE_SF FOR$IO_END CHANGE_FLAG CHANGE_FLAG1)hg1 FOR$WRITE_SF FOR$IO_END CLI$PRESENTP$SET_FOLDER_DEFAULT< CLI$PRESENTPD SETPRV_PRIVPLSET_FOLDER_DEFAULT FOR$WRITE_SF FOR$IO_END\ CHANGE_FLAGh CHANGE_FLAG1hAt SET_ACCESS1)hk| SET_ACCESS1hG˄ SET_GENERIC1)hnˌ SET_GENERIChL˔ SET_LOGIN)hq˜ SET_LOGIN)htˬSET_FOLDER_FLAG)hwSET_FOLDER_FLAG)h{SET_DEFAULT_EXPIRE1)f~1 CLI$GET_VALUE)  SHOW_FLAGS1)  SHOW_FOLDER1 ̏K\}BULL.HLB~« ^( nЫ YYWWW\^ SHOW_KEYPAD\^1 N1\ЬW(l䚏_YԬTEST2P TEST2P SELECT_FOLDER}P@ $ COMPARE_BTIMP7 FOR$WRITE_SF, TRIMP4 l8 4  FOR$IO_T_DS FOR$IO_ENDY(W< SELECT_FOLDER¹ P SHOW_PRIV U SHOW_USER V SHOW_VERSION)f SPAWN_PROCESS)fUNDELETE)fH TAG12@ @PPBULLETIN RUN> BULLETIN> SELECTSYS$HELP:READ QADDDELQCHAQREPQ BACKCHANCOPYCREACURRDELEDIREFILEEXTRQUITHELPINDLASTMARKMAILMODMOVENEXTPOSTPRINREADREMRESSEASELSETPRIPANOKNOPASYNOSYBBNOBBDUNODUSTNOSTDINODINOTINODENONODENOENONOTNOSNORBRNOBRNOANOGNOLPRONOPRDEFSHOWFLFOSPAWUNDEUNM O BULLETIN$MAIN ERROR_TRAPBULLETIN_SUBCOMMANDS LIB$GET_INPUTBULLETIN_MAINCOMMANDSENABLE_CTRL_EXIT CLI$_ABSENT CLI$_NOCOMD LIB$ESTABLISH CLI$GET_VALUELIB$GET_FOREIGN CLI$DCL_PARSE LIB$REVERT CLI$PRESENTLIB$SYS_TRNLOGFOR$EXIT SYS$SETDFPROTDCLEXHLIB$DISABLE_CTRLGETPRIV CHECK_PRIV_IOLIB$ENABLE_CTRLGETUSER LIB$INDEXTRIM FIND_BULLCP SELECT_FOLDERCLEANUP_BULLFILEBBOARD CREATE_BULLCP RUN_BULLCPGETSTSCRELNMASSIGN_TERMINAL TEST_BULLCPDELETE_EXPIRED GETPAGSIZSUBTIMEMODIFY_SYSTEM_LIST SHOW_SYSTEM OPEN_USERINFOLOGINNEW_MESSAGE_NOTIFICATION OPEN_OLD_TAGGET_INPUT_PROMPT DIRECTORYFULL_DIRDIRECTORY_FOLDERSREADADDREPLACEMOVE CREATE_FOLDERDELETEFILEHELPTAGMAIL MODIFY_FOLDERRESPONDPRINT REMOVE_FOLDERREPLYSEARCHSET_PRIV SET_KEYPAD SET_NOKEYPAD SET_SYSTEM SET_BBOARDSET_FOLDER_FLAGSET_FOLDER_DEFAULT SETPRV_PRIV CHANGE_FLAGSET_FOLDER_EXPIRE_LIMITSET_NODE SET_ACCESS SET_GENERIC SET_LOGINSET_DEFAULT_EXPIRE SHOW_FLAGS SHOW_FOLDER SHOW_KEYPADTEST2 COMPARE_BTIM SHOW_PRIV SHOW_USER SHOW_VERSION SPAWN_PROCESSUNDELETE$CODE$PDATA $LOCALFILESBULL_DIR INPUT_BUFFER  BULL_FOLDER  BULL_FOLDER1L HEADER_INFOL BULL_USER FOLDER_TIMES NEW_MESSAGESDBULLPARPOINTREADIT PAGECTRLY'PROMPTACCESSDECNET COMMAND_LINEEDITCOMMAND_SWITCHESTAGSDEF_PROT FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$WRITE_SF FOR$DECODE_MF FOR$READ_IFXPPTP7P/P#PRP tP~PPPhPP1P!PP 6P PPEPP P (P7PKPNPXPtPPPPPuP?P :P]PaPpPP"PPP9P-P%aPkPsP }PpPPPPPP%PPPSP P:$P /P)4P ?PZP _PaP P.PDPP P P+P 9P BP MP>VPnPPW P PC PP- P P PP P P PJPP0+P8P CP NP YP cP lPu uP PP>P PP P P  P$ P 1 P< P I P R P ] Ph Py u P PQ  P P9  P  P#  Pk P5 P: P E P N P Y P b P m Px Pi  P PQ  P P9  Pg P  PI P  P5 P" P  P " P- P 6 PA P"_ Pp P P P P{ P Pc P PK P P3 P P P P% P0 P= PH PU P` Pm Px P Pb P PH P0 P  P P  P5 P^ P/, PG PU P` Pm Px P P P Pb P PH P0 P  P P  PPP(Pi7P BPOOP0[P fPPPPPPiP POP0P PP/P9PnEPPPQ_P0kP vPPPxPnPPQP0P PPP+P4PLPi[P fPOsP0P PPPdPPPiP POP0P &P?PSP]PhPuPPPPPPpPP\PPDPP,PPPP+P{CP LPW]P fP=qP>PPP PaPPP4iP;uP ~P&P PPP<P  P(P PP ww1`ϒ0-00BULLETIN_MAINCOMMANDS0-028-OCT-1989 11:35-VAX/VMS Command Definition Utility (V4-001)  BULLETIN_MAINCOMMANDS CLI$TABLESP  BULL ,,`X BULLETIN0!!P1 SELECT_FOLDER$ALL(BBOARD(BULLCP0,&CLEANUPCLEANUP$PEDIT(xKEYPAD$LOGIN(MARKED$ PAGE( READNEW(8 REVERSE,d 'SEPARATE-( STARTUP$STOP( %SYSTEM7ww1@ϒ0-0/BULLETIN_SUBCOMMANDS0-028-OCT-1989 11:35-VAX/VMS Command Definition Utility (V4-001) BULLETIN_SUBCOMMANDS@ CLI$TABLESP@ADDBACKCHANCOPYCREACURRDELEDIREEEXEXITEXTRFILEHELPINDELASTMAILMARKMODIMOVENEXTPOSTPRINQUITREADREMOREPLRESPSEARSELESETSHOWSPAWUNDEUNMA#< 4 0Tx\8``L|#%L&&$9?@`@(d ADD,!!P1FILESPEC$ALL$BELL( BROADCAST((CLUSTER$LEDIT,x EXPIRATION4s%FOLDER SELECT_FOLDER,q$NODESNODES$ LOCAL($ NOINDENT(L  PERMANENT(t SHUTDOWN( SUBJECT(SYSTEM$TEXT0'USERNAMEUSERNAME(@t8`Ph \          x   , HT $ Lp|   (  d( BACK( 8 CHANGE,!!P1FILESPEC$\EDIT, EXPIRATION(GENERAL(HEADER(SUBJECT$$NEW(LNUMBER(t PERMANENT( SHUTDOWN( SYSTEM$ TEXT <d$  0 8LX  t L t L \ t \  (, ! COPY0\ !(P1FOLDERFolder4!!P2BULLETIN_NUMBER$ ALL$ MERGE(ORIGINAL   (  \ (\ t  CREATE8!/P1 CREATE_FOLDERFolder$ BRIEF,  DESCRIPTION( NEEDPRIV$0 NODE(X NOTIFY$| OWNER( PRIVATE( READNEW,  REMOTENAME,$  SEMIPRIVATE(L SHOWNEW( SYSTEM  4  |      $   (  $ D P  d p | 0 |      ,@ CURRENT$EDIT(4hl DELETE4!!P1BULLETIN_NUMBER$ALL( IMMEDIATE4s%FOLDER SELECT_FOLDER,s$NODESNODES0D'USERNAMEUSERNAME(SUBJECT|  D    , P DIRECTORY0!!P1 SELECT_FOLDER(xFOLDER$NEW$START,$SINCETODAY(MARKED4@H DIRECTORY_FOLDER(pDESCRIBE(FOLDER  x   x$  $ E$ EX( EXIT,0! EXTRACT0!*P1FILESPECFile4!!P2BULLETIN_NUMBER$TALL(|HEADER$NEW  0 (`! FILE0,!*P1FILESPECFile4!!P2BULLETIN_NUMBER$ALL(HEADER$NEW  ` ,( , HELP0!!P1 HELP_FOLDER( INDEX0!!P1 SELECT_FOLDER(MARKED(FOLDER$(NEW(PRESTART$tSTART,$SINCETODAY   t P  , P t( LAST(` MAIL8!,P1 RECIPIENTS Recipients(HEADER(SUBJECT( 8 MARK(a!!P1NUMBER(@ MODIFY, DESCRIPTION$NAME$OWNER($D! MOVE0T!(P1FOLDERFolder4!!P2BULLETIN_NUMBER$ALL$MERGE$NODES(ORIGINAL( IMMEDIATET|dp  T $ ( NEXT( POST$sCC$<LIST(dSUBJECT(NOINDENT$TEXT$EDIT d   (4  @ (tp# PRINT4!!P1BULLETIN_NUMBER(HEADER(NOTIFY0($QUEUE SYS$PRINT$LFORM$ALL | L t( QUIT(( READ4!!P1BULLETIN_NUMBER$LEDIT(tMARKED$NEW$PAGE,$SINCETODAY  t ( D REMOVE8!/P1 REMOVE_FOLDERFolder(X"- REPLY,!!P1FILESPEC$ALL$ BELL(@  BROADCAST(h CLUSTER$ EDIT,  EXPIRATION4s %FOLDER SELECT_FOLDER,q!$NODESNODES$FULL$=:ALL$>:LOGIN(@>:NOLOGIN$d>PRINT4`>>& SHOW_KEYPAD_PRINT49!-P1 SHOW_PARAM1What$PRINT4`$??!& SHOW_FOLDER_FULL4X?9!-P1 SHOW_PARAM1What0!!P2 SHOW_FOLDER$FULL( ? SPAWN,!!P1COMMAND, ,@ UNDELETE4!!P1BULLETIN_NUMBER( @ UNMARK(a!!P1NUMBERww1 ϒ016 CHANGE_FLAG0128-Oct-1989 11:3428-Oct-1989 11:34VAX FORTRAN V5.2-33 CHANGE_FLAGsPFOLDER-5-NOV-1956 11:05:56BULL_SYSTEM_FLAGSMAIL$SYSTEM_FLAGS ERROR: No such folder found. CHANGE_FLAGP  L 8 CLI$PRESENT@H CLI$GET_VALUE@00   t SYS_BINTIM@  SYS_BINTIM@      %% SYS_TRNLNM@77 SYS_TRNLNM@  aP PQGENERAL 'PP H[8 CLI$PRESENTPH CLI$GET_VALUEP OPEN_BULLFOLDER_SHAREDTREAD_FOLDER_FILE_KEYNAME_TEMPCLOSE_BULLFOLDERիI FOR$WRITE_SF FOR$IO_END  k H[OPEN_BULLUSER_SHAREDRТТ`READ_USER_FILE_KEYNAMEիt SYS_BINTIMˈ SYS_BINTIM˔READ_USER_FILE_HEADERP@ˠ˜SET2P@ˬ˨CLR2Ԣ ˴WRITE_USER_FILE_NEWP@x˼SET2P@CLR2FOR$REWRITE_SU  FOR$IO_X_SE FOR$IO_ENDPЫЫ CLOSE_FILEѼ1 SYS_TRNLNMP SYS_TRNLNMi FOR$READ_IF߫  FOR$IO_L_R FOR$IO_ENDP1  FOR$BJTESTP1OPEN_BULLNOTIFY_SHAREDREC_LOCKP  FOR$READ_SU FOR$IO_X_SE FOR$IO_ENDP-  *  FOR$WRITE_SU FOR$IO_X_SE FOR$IO_ENDP REC_LOCKP~~  FOR$READ_KU FOR$IO_ENDPի  FOR$DELETECLOSE_BULLNOTIFYkЫ k H CHANGE_FLAG CLI$PRESENT CLI$GET_VALUEOPEN_BULLFOLDER_SHAREDREAD_FOLDER_FILE_KEYNAME_TEMPCLOSE_BULLFOLDER p HCHANGE_FLAG_NOCMDOPEN_BULLUSER_SHAREDREAD_USER_FILE_KEYNAME SYS_BINTIMREAD_USER_FILE_HEADERSET2CLR2WRITE_USER_FILE_NEW CLOSE_FILE SYS_TRNLNM FOR$BJTESTOPEN_BULLNOTIFY_SHAREDREC_LOCKCLOSE_BULLNOTIFY$CODEl$PDATA0$LOCALBULL_DIR INPUT_BUFFERL HEADER_INFOL BULL_USER FOLDER_TIMES NEW_MESSAGES  BULL_FOLDER  BULL_FOLDER1 FOR$DELETE FOR$IO_END FOR$IO_L_R FOR$IO_X_SE FOR$READ_SU FOR$READ_KU FOR$WRITE_SF FOR$WRITE_SUFOR$REWRITE_SU FOR$READ_IFPZ#P< FPoP P^PPPaPP4PmPzP P+PPP$PPeP#P7P>CP$FPlP P rfww1k|ϒ017 CHECK_ACCESS0128-Oct-1989 11:3428-Oct-1989 11:34VAX FORTRAN V5.2-33 CHECK_ACCESS)P=*READWRITE CHECK_ACCESSE\PP X\dlttt\dlttTthPHP[}PQP }PQP INIT_ITMLSTk^8, ADD_2_ITMLST^߫^H< ADD_2_ITMLST^˰^XL ADD_2_ITMLST^\ END_ITMLSTkЫtdSYS$CHECK_ACCESSP ˰Px SETPRV_PRIVPˀSYS$FORMAT_ACL˨ LIB$INDEXP˼ LIB$INDEXPԼ  ˰PԼ Ѽռ ԼЫSYS$CHECK_ACCESSP˰P SETPRV_PRIVPSYS$FORMAT_ACL  LIB$INDEXP  LIB$INDEXPԼ H CHECK_ACCESS INIT_ITMLST ADD_2_ITMLST END_ITMLSTSYS$CHECK_ACCESS SETPRV_PRIVSYS$F ORMAT_ACL LIB$INDEX1$CODE"$PDATA|$LOCALiP4P)PPPP PPPP2 P&P,P<01ww1@bϒ01>CHECK_BULLETIN_PRIV0128-Oct-1989 11:3528-Oct-1989 11:35VAX FORTRAN V5.2-33CHECK_BULLETIN_PRIVCHECK_BULLETIN_PRIVPPPPBULL_DIR: G'BULL_DIR: G'BULL_DIR:BULLUSER.DAT ;'QBULL_DIR:BULLFOLDER.DAT 9'QBULL_DIR:BULLINF.DAT <'PH[RbӢ TRIMP޼( CHECK_ACCESSkТbТ  HCHECK_BULLETIN_PRIV CHECK_ACCESSTRIMK$CODE$PDATA4$LOCAL PRIVILEGESFILESP4P-@P #Kww1 Nϒ01< CHECK_CONNECTIONS0128-Oct-1989 11:3528-Oct-1989 11:35VAX FORTRAN V5.2-33CHECK_CONNECTIONSCHECK_CONNECTIONSyPPH[\ RՂLL$\k DISCONNECTk\ \ RESET_TIMER HCHECK_CONNECTIONS DISCONNECT RESET_TIMERI$CODE$PDATA $LOCALPACTIVITYREADBUFP0P.P" Iww1ϒ015 CHECK_MAIL0128-Oct-1989 11:3328-Oct-1989 11:33VAX FORTRAN V5.2-33 CHECK_MAIL`PVMSMAIL_PROFILESYS$SYSTEM:VMSMAIL_PROFILE.DATAVMSMAILSYS$SYSTEM:VMSMAIL.DAT) CHECK_MAIL 4P  y% ` FOR$OPEN@h FOR$OPEN@ ,8@ 8 FOR$OPEN@@ FOR$OPEN@ ,(P&  PQGENERAL 'PPH([ЬkHFOR$OPEN$Tի˔FOR$OPEN"TUV1޻Wk READ_QUEUE FOR$BJTESTP FOR$BJTESTP)yY~~ W  FOR$READ_KF0 FOR$IO_T_DS FOR$IO_ENDPRTPP%Q@ LIB$MOVC3RիFgFgFgUVN FOR$CLOSEYP:: H CHECK_MAILFOR$OPEN READ_QUEUE FOR$BJTEST LIB$MOVC3 FOR$CLOSE $CODE[$PDATA8$LOCAL  BULL_FOLDER  BULL_FOLDER1 KNOWN_FOLDERS FOR$IO_END FOR$IO_T_DS FOR$READ_KFe*P JPePmP yP PrPdP(PPPPP>2< ww1ϒ018 CHECK_NEWUSER0128-Oct-1989 11:3428-Oct-1989 11:34VAX FORTRAN V5.2-33 CHECK_NEWUSERP# CHECK_NEWUSER:P  PH[}PQ PЬ  INIT_ITMLSTk^0$ ADD_2_ITMLST^߼ ^@4 ADD_2_ITMLST^D END_ITMLSTԼЫ\L SYS$GETUAIPl FOR$BJTESTP H CHECK_NEWUSER INIT_ITMLST ADD_2_ITMLST END_ITMLST SYS$GETUAI FOR$BJTESTu$CODE$PDATAx$LOCALdPoP"uww1 ϒ018 CHECK_PRIV_IO0128-Oct-1989 11:3428-Oct-1989 11:34VAX FORTRAN V5.2-33 CHECK_PRIV_IOkPSYS$OUTPUTSYS$ERROR#ERROR: SYS$OUTPUT cannot be opened."ERROR: SYS$ERROR cannot be opened. CHECK_PRIV_IOP  FOR$OPEN@  < FOR$OPEN@PH[ DISABLE_PRIVSFOR$OPEN0 FOR$CLOSEDFOR$OPENkիի FOR$WRITE_SF FOR$IO_ENDk= FOR$WRITE_SF FOR$IO_ENDd FOR$CLOSEԼ ENABLE_PRIVS H CHECK_PRIV_IO DISABLE_PRIVSFOR$OPEN FOR$CLOSE ENABLE_PRIVS$CODE d$PDATAp$LOCAL FOR$IO_END FOR$WRITE_SF$+P0P;5POPkP ) ww1@zϒ011CHKACL0128-Oct-1989 11:3428-Oct-1989 11:34VAX FORTRAN V5.2-33 CHKACLP CHKACLPPH[}PQP INIT_ITMLST^ ADD_2_ITMLST^ END _ITMLSTk4$SYS$CHANGE_ACLPѼ  HCHKACL INIT_ITMLST ADD_2_ITMLST END_ITMLSTSYS$CHANGE_ACLV$CODE $PDATAD$LOCALPP!Vww1T ϒ01;CLEANUP_BULLFILE0128-Oct-1989 11:3428-Oct-1989 11:34VAX FORTRAN V5.2-33CLEANUP_BULLFILE%P*.BULLFIL*.BULLDIR*.*;1CLEANUP_BULLFILEPd4aP      4   LIB$RENAME_FILE@  LIB$RENAME_FILE@ 8@ LIB$RENAME_FILE@ \       HP    LIB$RENAME_FILE@  LIB$RENAME_FILE@ LIB$RENAME_FILE@PPBULL_DIR: G'BULL_DIR: G'BULL_DIR:BULLUSER.DAT ;'QBULL_DIR:BULLFOLDER.DAT 9'QBULL_DIR:BULLINF.DAT <'aP PQGENERAL 'PO[OPEN_BULLDIR_SHAREDPREC_LOCKP~~߫H FOR$READ_KU( FOR$IO_X_SE FOR$IO_ENDPk\̑ CLOSE_BULLDIRV̑1X SYS$SETDFPROTW^(ndTRIMP^(Pƹn^SYYXXlXW^p̑́PxPPǏP~^ˤtFOR$OPENW^kW^(nˬTRIMP^(Pƹn^SYYXX˴XW^˸˼FOR$OPENW^k CLOSE_BULLDIR SYS$SETDFPROTW}.BULLFIL~TRIMP^(Pƹn^SYYXXXW^ ^(nTRIMP^(Pƹn^SYYXXXW^COPY_ACLW^OPEN_BULLFIL_SHARED́Ь}W լ}1$READDIRЬ]XЬMYRլḾ0REC_LOCKPX FOR$READ_DU@ FOR$IO_X_SE FOR$IO_ENDPի́ }  FOR$WRITE_SU@ FOR$IO_X_SE FOR$IO_ENDXYRW q CLOSE_BULLFIL1̑1 CLOSE_BULLDIR OPEN_BULLDIRW^(n8TRIMP^(Pƹn^SYYXX@XW^DPLIB$RENAME_FILEW^WWX ^( %n\TRIMP^(Pƹn^SZ ZYYdYX^hlLIB$DELETE_FILEX^PWW^(0ntTRIMP^(Pƹn^SYYXX|XW^ˀˌLIB$RENAME_FILEW^CLOSE_BULLDIR_DELETEWWX ^( 7n˘TRIMP^(Pƹn^SZ ZYYˠYX^ˤ˨LIB$DELETE_FILEX^PWW^(Bn˰TRIMP^(Pƹn^SYYXX˸XW^˼LIB$RENAME_FILEW^PkW^(0nTRIMP^(Pƹn^SYYXXXW^}PďdPƏPP~^8FOR$OPENW^kW^(0n@TRIMP^(Pƹn^SYYXXHXW^LPFOR$OPENW^kˤ FOR$CLOSE CLOSE_BULLDIRˬ SYS$SETDFPROTW}.BULLDIR~˸TRIMP^(Pƹn^SYYXXXW^^(0nTRIMP^(Pƹn^SYYXXXW^COPY_ACLW^̑  FOR$WRITE_SU( FOR$IO_X_SE FOR$IO_ENDPḱЬ}W լ}READDIŔ] GET_MSGKEY  FOR$WRITE_SU  FOR$IO_X_SE FOR$IO_ENDPkḾW  FOR$CLOSE FOR$CLOSE CLOSE_BULLDIR OPEN_BULLDIȒ FOR$WRITE_SU( FOR$IO_X_SE FOR$IO_END\^(nTRIMP^(Pƹn^SXXWWW\^ ,LIB$RENAME_FILE\^\\W ^( %n8TRIMP^(Pƹn^SY YXX@XW^DHLIB$DELETE_FILEW^P\\^(0nPTRIMP^(Pƹn^SXXWWXW\^\hLIB$RENAME_FILE\^CLOSE_BULLDIR_DELETE\\W ^( 7ntTRIMP^(Pƹn^SY YXX|XW^ˀ˄LIB$DELETE_FILEW^P\\^(BnˌTRIMP^(Pƹn^SXXWW˔W\^˘ˤLIB$RENAME_FILE\^Pk˰ SYS$SETDFPROTP.TMPFIL.BULLFIL;-1.TMPDIR.BULLDIR;-1.BULL* OCLEANUP_BULLFILEOPEN_BULLDIR_SHAREDREC_LOCK CLOSE_BULLDIR SYS$SETDFPROTFOR$OPENTRIMCOPY_ACLOPEN_BULLFIL_SHAREDREADDIR CLOSE_BULLFIL OPEN_BULLDIRLIB$RENAME_FILELIB$DELETE_FILECLOSE_BULLDIR_DELETE FOR$CLOSE GET_MSGKEY-$CODEH$PDATA<$LOCALFILESBULL_DIR INPUT_BUFFER  BULL_FOLDER  BULL_FOLDER1 FOR$IO_END FOR$IO_X_SE FOR$READ_DU FOR$READ_KU FOR$WRITE_SU FOR$WRITE_SUP)P!PP jPPVPPPoP(P PP*KP\PrPEFPE0P_tPP6PESPPPEPEz-ww1ϒ01:CLEANUP_DIRFILE0128-Oct-1989 11:3428-Oct-1989 11:34VAX FORTRAN V5.2-33CLEANUP_DIRFILE PCLEANUP_DIRFILEPdPPBULL_DIR: G'BULL_DIR: G'BULL_DIR:BULLUSER.DAT ;'QBULL_DIR:BULLFOLDER.DAT 9'QBULL_DIR:BULLINF.DAT <'aPPI[V(dfp( ƕ( Ơ( ƫ( ƶΦ}}RSмR1ѫ}14READDIRPѫPЫRP Sѫ }@READDIR PѫPЫ SP S}LWRITEDIRΦMMXWRITEDIRЫSR1զM1Ыd INIT_QUEUEЫЦ}TЫѫ}pREADDIRPѫPЫˀ| WRITE_QUEUETЫTЫUSUTUːˌ READ_QUEUEЫUЦ]WЦXSѫTЫˠ˜ READ_QUEUEW]XRS֫1ѫ}SЦ}TS S}ˬREADDIR PѫPRk˸WRITEDIRkRT Ц}TR R}READDIR FOR$DELETEPT R}READDIRPѫPզMΦMMWRITEDIRWRITEDIR(dpf( ƕ( Ơ( ƫ( ƶ ICLEANUP_DIRFILEREADDIRWRITEDIR INIT_QUEUE WRITE_QUEUE READ_QUEUEK$CODE$PDATA$LOCALFILESBULL_DIR INPUT_BUFFER FOR$DELETEIP5SP+gP`sP$zPP PPPP(P'PP,PKKP(QP"fP PoP:P,PP PP}qQKww1 ϒ018 CLEANUP_LOGIN0128-Oct-1989 11:3328-Oct-1989 11:33VAX FORTRAN V5.2-33 CLEANUP_LOGIN CLEANUP_LOGINM0P  LHH, PPP1ZPS]PLPPPPjPfP PN$PKPzPP P$PP`T ww1 Mϒ01;CONVERT_BULLDIRS0128-Oct-1989 11:3428-Oct-1989 11:34VAX FORTRAN V5.2-33CONVERT_BULLDIRSDP2 Converting data files to new format. Please wait.CONVERT_BULLDIRS|Pd4aPst x}  x    xx  muQ$ taP PQGENERAL 'PPBULL_DIR: G'BULL_DIR: G'BULL_DIR:BULLUSER.DAT ;'QBULL_DIR:BULLFOLDER.DAT 9'QBULL_DIR:BULLINF.DAT <'PKt[ FOR$WRITE_SF FOR$IO_END0 SYS$SETDFPROT\}.BULLDIR~<TRIMP^(Pn^SWWVVDV\^HLFOR$OPEN\^ի1 FOR$READ_DU( FOR$IO_X_SE FOR$IO_ENDP\ˈVˀ LIB$MOVC3W}.BULLDIR~ːTRIMP^(Pn^SYYXX˘XW^˜}PďdPƏPP~^ˠFOR$OPENW^իW}.BULLDIR~TRIMP^(Pn^SYYXXXW^ FOR$OPENW^\1\}~ ~ ^( n`\^dh SYS_BINTIM\^\}~ ~ ^( nt\^x| SYS_BINTIM\^( }\}~ ~ ^( nˈ\^ˌː SYS_BINTIM\^ЫƑի  FOR$WRITE_SU FOR$IO_X_SE FOR$IO_ENDP\ի1\ FOR$READ_DU( FOR$IO_X_SE FOR$IO_ENDP1\(5 ( AЫM}YW}~ ~ ^( n˜W^ˠˤ SYS_BINTIMW^W}~ ~ ^( n˰W^˴˸ SYS_BINTIMW^ GET_MSGKEY  FOR$WRITE_SU FOR$IO_X_SE FOR$IO_ENDP\1# FOR$CLOSE FOR$CLOSE SYS$SETDFPROTY KCONVERT_BULLDIRS SYS$SETDFPROTFOR$OPENTRIM LIB$MOVC3 SYS_BINTIM GET_MSGKEY FOR$CLOSE$CODE=$PDATAd$LOCALBULL_DIR INPUT_BUFFER  BULL_FOLDER  BULL_FOLDER1FILES FOR$IO_END FOR$IO_X_SE FOR$READ_DU FOR$WRITE_SF FOR$WRITE_SUSkPoPPB PPP!PPP6PPRFvww1 ϒ01;CONVERT_BULLFILE0128-Oct-1989 11:3428-Oct-1989 11:34VAX FORTRAN V5.2-33CONVERT_BULLFILE[P2 Converting data files to new format. Please wait. P )CONVERT_BULLFILEP P) yPPPPPP  (Q  p  aP PQGENERAL 'PPBULL_DIR: G'BULL_DIR: G'BULL_DIR:BULLUSER.DAT ;'QBULL_DIR:BULLFOLDER.DAT 9'QBULL_DIR:BULLINF.DAT <'PK[ FOR$WRITE_SF FOR$IO_END CLOSE_BULLDIR\ SYS$SETDFPROT\VOPEN_BULLFOLDER= FOR$READ_SF FOR$IO_T_DSߦ FOR$IO_L_R FOR$IO_T_DS$ FOR$IO_T_DS, FOR$IO_T_DSƅ FOR$IO_L_RƉ FOR$IO_L_Rƍ FOR$IO_L_R4 FOR$IO_T_DS. FOR$IO_ENDpTRIMP^(Pfn^SWhTRIMP^(PPn^SXXW,Wn PƹPQ^ ^( TnxTRIMP^(Pƹn^SX XW,Wn PPQ^W}.BULLFIL~ˀTRIMP^(Pƹn^SYYXXˈXW^ˌːFOR$OPENW^իERROR_AND_EXITW}.BULLFIL~TRIMP^(Pƹn^SYYXXXW^FOR$OPENW^W ^( _nTRIMP^(Pƹn^SY YXXXW^LIB$RENAME_FILEW^P OPEN_BULLDIR$READDIRѫ1́Ь}Wլ}10READDIŔ́X]MYЬ]RѬ]YRR  FOR$READ_DFL FOR$IO_T_DS FOR$IO_END<TRIMPD STORE_BULLYRT FLUSH_BULLX́PPMX]\WRITEDIRWȓhWRITEDIRt FOR$CLOSE| FOR$CLOSE CLOSE_BULLDIR1iOPEN_BULLDIR_SHARED˄ SYS$SETDFPROTTP.BULLFILOLD.BULLFIL;-1 KCONVERT_BULLFILE CLOSE_BULLDIR SYS$SETDFPROTOPEN_BULLFOLDERTRIMFOR$OPENERROR_AND_EXITLIB$RENAME_FILE OPEN_BULLDIRREADDIR STORE_BULL FLUSH_BULLWRITEDIR FOR$CLOSEOPEN_BULLDIR_SHARED$CODEj$PDATA0$LOCALBULL_DIR INPUT_BUFFER  BULL_FOLDER  BULL_FOLDER1FILES FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$READ_SF FOR$READ_DF FOR$WRITE_SF3FPkPP"PEPDxP^R~ww1`Zϒ01<CONVERT_BULLFILES0128-Oct-1989 11:3428-Oct-1989 11:34VAX FORTRAN V5.2-33CONVERT_BULLFILEShP2 Converting data files to new format. Please wait.)   5   CONVERT_BULLFILES`P5  A     PQ k T  PT X PTQT  \\  XaP PQGENERAL 'PPBULL_DIR: G'BULL_DIR: G'BULL_DIR:BULLUSER.DAT ;'QBULL_DIR:BULLFOLDER.DAT 9'QBULL_DIR:BULLINF.DAT <'PKT[ FOR$WRITE_SF FOR$IO_END\}.BULLDIR~TTRIMP^(Pn^SWWVV\V\^`dFOR$OPEN\^kERROR_AND_EXIT\}.BULLFIL~ˤTRIMP^(Pn^SWWVVˬV\^˰˴FOR$OPEN\^kERROR_AND_EXIT SYS$SETDFPROT\}.BULLFIL~TRIMP^(Pn^SWWVVV\^FOR$OPEN\^\}.BULLDIR~4TRIMP^(Pn^SWWVV<V\^@DFOR$OPEN\^\( a?  FOR$READ_DF, FOR$IO_T_DS4 FOR$IO_T_DS˜˘ FOR$IO_T_DS߬} FOR$IO_L_Ŕ FOR$IO_L_R̅ FOR$IO_L_R< FOR$IO_T_DSˤˠ FOR$IO_T_DS FOR$IO_ENDPV̑V˨WRITEDIR( a̶WV1PW  FOR$READ_DF  FOR$IO_T_DS FOR$IO_T_DS FOR$IO_T_DS̠˸˴ FOR$IO_T_DS߬M FOR$IO_L_R$ FOR$IO_T_DS߬Y FOR$IO_LU_R߬] FOR$IO_L_R FOR$IO_ENDPV1=  FOR$READ_SFL FOR$IO_T_DS FOR$IO_END= FOR$WRITE_SFސ~P^(PnQ˼^˼ FOR$IO_T_V_DS FOR$IO_ENDЬMXYX=  FOR$READ_SFL FOR$IO_T_DS FOR$IO_END= FOR$WRITE_SFL FOR$IO_T_DS FOR$IO_ENDXYW~^WRITEDIR^W1 FOR$CLOSE FOR$CLOSE FOR$CLOSE FOR$CLOSE SYS$SETDFPROTVkaP00:00:00.00~ KCONVERT_BULLFILESFOR$OPENTRIMERROR_AND_EXIT SYS$SETDFPROTWRITEDIR FOR$CLOSEq$CODEl$PDATAP$LOCALBULL_DIR IN PUT_BUFFER  BULL_FOLDER  BULL_FOLDER1FILES FOR$IO_END FOR$IO_LU_R FOR$IO_L_R FOR$IO_T_DS FOR$IO_T_V_DS FOR$READ_SF FOR$READ_DF FOR$WRITE_SFB`PPUPzP PEPptPPEOC~qww1ϒ01=CONVERT_BULLFOLDER0128-Oct-1989 11:3428-Oct-1989 11:34VAX FORTRAN V5.2-33CONVERT_BULLFOLDERP:].2 Converting data files to new format. Please wait. P  P  P CONVERT_BULLFOLDER`P P) y PPPPPP\P TXT T `TTXT  TXT}TTPaP PQGENERAL 'PPBULL_DIR: G'BULL_DIR: G'BULL_DIR:BULLUSER.DAT ;'QBULL_DIR:BULLFOLDER.DAT 9'QBULL_DIR:BULLINF.DAT <'POP[ FOR$WRITE_SF FOR$IO_ENDx SYS$SETDFPROTˌ LIB$INDEXPRˠ LIB$INDEXRQQPPQQRRQQPPPˬA˰˼ LIB$INDEXRPPV^(nV^(VnVXXW,Wn PPQ^ FILE_LOCKPFOR$OPENիERROR_AND_EXIT FOR$OPENЫWERROR_AND_EXITXѼ+1ԫ W1߫pG FOR$READ_KF FOR$IO_T_DS߫  FOR$IO_L_R FOR$IO_T_DS  FOR$IO_T_DS( FOR$IO_T_DSȅ FOR$IO_L_Rȉ FOR$IO_L_Rȍ FOR$IO_L_R0 FOR$IO_T_DSș FOR$IO_L_R߫8 FOR$IO_X_DAȥ FOR$IO_L_R  FOR$IO_LU_R FOR$IO_ENDPW1\ FOR$WRITE_SF FOR$IO_T_DSݫ  FOR$IO_L_V FOR$IO_T_DS  FOR$IO_T_DS( FOR$IO_T_DSȅ FOR$IO_L_Vȉ FOR$IO_L_Vȍ FOR$IO_L_V0 FOR$IO_T_DSș FOR$IO_L_V߫8 FOR$IO_X_DAȥ FOR$IO_L_V  FOR$IO_LU_V߫8 FOR$IO_X_DA FOR$IO_ENDPW֫ 11ԫ W1߫pq FOR$READ_KF FOR$IO_T_DS߫  FOR$IO_L_R FOR$IO_T_DS  FOR$IO_T_DS( FOR$IO_T_DSȅ FOR$IO_L_Rȉ FOR$IO_L_Rȍ FOR$IO_L_R0 FOR$IO_T_DS FOR$IO_ENDPW1ȥի t FOR$JIBSETPȥˈTRIMP^(Phn^SYˀTRIMP^(PPn^SZZY,Yn PȹPQ^Y}.BULLFIL~ːTRIMP^(Pȹn^SVVZZ˘ZY^˜WˠCHKACLY^ѫ ˬ FOR$JIBSETPȥ˸ FILE_LOCKPY}.BULLDIR~TRIMP^(Pȹn^SVVZZZY^FOR$OPENY^ѫ3$ FILE_LOCKCONVERT_BULLDIRSѫȝȡ10READDIR) }<READDIR( ( HWRITEDIRZ ^( n ~ ^( nTZ^X\ SYS_BINTIMZ^h FOR$CLOSE\ FOR$WRITE_SF FOR$IO_T_DSݫ  FOR$IO_L_V FOR$IO_T_DS  FOR$IO_T_DS( FOR$IO_T_DSȅ FOR$IO_L_Vȉ FOR$IO_L_Vȍ FOR$IO_L_V0 FOR$IO_T_DS} FOR$IO_L_V߫8 FOR$IO_X_DAȥ FOR$IO_L_V FOR$IO_L_R߫8 FOR$IO_X_DA FOR$IO_ENDPW֫ 1 p FOR$CLOSEx FOR$CLOSE˄LIB$RENAME_FILEW^(nP^(PnSːSW^˔˘LIB$RENAME_FILEW^ˤ SYS$SETDFPROTW ^( n˰TRIMP^(Pn^SZ ZXX˸XW^˼LIB$DELETE_FILEW^PPOLD5-NOV-1956 ;-1BOARD.COM;*/ OCONVERT_BULLFOLDER SYS$SETDFPROT LIB$INDEX FILE_LOCKFOR$OPENERROR_AND_EXIT FOR$JIBSETTRIMCHKACLCONVERT_BULLDIRSREADDIRWRITEDIR SYS_BINTIM FOR$CLOSELIB$RENAME_FILELIB$DELETE_FILE$CODE$PDATA$LOCALBULL_DIR INPUT_BUFFER  BULL_FOLDER  BULL_FOLDER1FILES FOR$IO_END FOR$IO_LU_R FOR$IO_LU_V FOR$IO_L_R FOR$IO_L_V FOR$IO_T_DS FOR$IO_X_DA FOR$READ_KF FOR$WRITE_SF FOR$WRITE_SFP PPPzPiPPPaPmPqPzPhPPPPXPPP6P2>P*PR ww1ϒ01@CONVERT_ENTRY_FROMBIN0128-Oct-1989 11:3428-Oct-1989 11:34VAX FORTRAN V5.2-33CONVERT_ENTRY_FROMBIN!CONVERT_ENTRY_FROMBINPQaPP$CODE$PDATAH$ LOCALBULL_DIR INPUT_BUFFER"(>ww1`ϒ01>CONVERT_ENTRY_TOBIN0128-Oct-1989 11:3428-Oct-1989 11:34VAX FORTRAN V5.2-33CONVERT_ENTRY_TOBINCONVERT_ENTRY_TOBINPQaPPPFP PPPP,0߸ߪJww1@ϒ018 CREATE_FOLDER0128-Oct-1989 11:3328-Oct-1989 11:33VAX FORTRAN V5.2-33 CREATE_FOLDERP`NEEDPRIVCREATE_FOLDERNOTIFYREADNEWBRIEFSYSTEMNODEREMOTENAMEDESCRIPTIONOWNERPRIVATESEMIPRIVATE*RNONER+W+CSHOWNEW' ERROR: CREATE is a privileged com1mand., ERROR: Folder name must be < 26 characters.6 ERROR: No privs for SYSTEM, NOTIFY, BRIEF or READNEW.- ERROR: Folder not accessible on remote node.* ERROR: /SYSTEM not allowed as remote node is not SYSTEM folder.& Enter one line description of folder. Aborting folder creation.' ERROR: folder must be < 80 characters.( ERROR: Specified folder already exists.# ERROR: /OWNER requires privileges.! ERROR: Owner not valid username./ ERROR: System programmer has disabled folde2rs., ERROR: Cannot create folder directory file.* ERROR: Cannot create folder message file.0 ERROR: Cannot create private folder using ACLs. ERROR: Folder limit of , has been reached. Unable to add specified folder. Folder is now set to ) CREATE_FOLDER8P P) yP P P( CLI$PRESENT@  CLI$GET_VALUE@83'' CLI$PRESENT@.. CLI$PRESENT@66 CLI$PRESENT@<< CLI$PRESENT@CC CLI$PRESENT@CC CLI$GET_VALUE@P H(H CLI$GET_VALUE@` <H< CLI$PRESENT@ SdS CLI$PRESENT@ StS CLI$GET_VALUE@HH4__ CLI$PRESENT@__ CLI$GET_VALUE@hhpxX   X x  ee CLI$PRESENT@ mm CLI$PRESENT@ m5m CLI$PRESENT@y{y ADD_ACL@ { ADD_ACL@y}$y ADD_ACL@,} ADD_ACL@@D ADD_ACL@Xd$X$CC CLI$PRESENT@ <6(< CLI$PRESENT@'d' CLI$PRESENT@.t. CLI$PRESENT@ CLI$PRESENT@66 CLI$PRESENT@,048 PQGENERAL ' PPBULL_DIR: G'BULL_DIR: G'BULL_DIR:BULLUSER.DAT ;'QBULL_DIR:BULLFOLDER.DAT 9'QBULL_DIR:BULLINF.DAT <' aP 7PPK[˘ CLI$PRESENTPˈ SETPRV_PRIVP FOR$WRITE_SF FOR$IO_END˨ CLI$GET_VALUEѫ FOR$WRITE_SF FOR$IO_END CLI$PRESENTP CLI$PRESENTP CLI$PRESENTP CLI$PRESENTP˸ SETPRV_PRIVP FOR$WRITE_SF FOR$IO_END\V CLI$PRESENTP1 CLI$GET_VALUEPk«^(ynЫW::~W,Wn yPQ^( yy0 CLI$GET_VALUEP(fl<CONNECT_REMOTE_FOLDER8k" FOR$WRITE_SF FOR$IO_ENDP CLI$PRESENTPX FOR$BJTESTPR FOR$WRITE_SF FOR$IO_ENDԫի1l CLI$PRESENTP| CLI$GET_VALUE FOR$WRITE_SF FOR$IO_ENDˌGET_LINE,) P)ի FOR$WRITE_SF FOR$IO_ENDѫP FOR$WRITE_SF FOR$IO_ENDԫ1rOPEN_BULLFOLDER~~8 FOR$READ_KU FOR$IO_ENDPk FOR$WRITE_SF FOR$IO_END91ˠ CLI$PRESENTP˨ SETPRV_PRIVP2 FOR$WRITE_SF FOR$IO_ENDCLOSE_BULLFOLDER˸ CLI$GET_VALUEGET_UAFkX FOR$WRITE_SF FOR$IO_ENDCLOSE_BULLFOLDER( ( (   SYS$SETDFPROTTRIMPW| FOR$WRITE_SF FOR$IO_END1^(fnW^(W PnWYYX,Xn PƹPQ^X}.BULLDIR~TRIMP^(Pƹn^SWWYYYX^FOR$OPENX^k FOR$WRITE_SF FOR$IO_END:\ FOR$ERRSNSh SYS_GETMSG1X}.BULLFIL~pTRIMP^(Pƹn^SWWYYxYX^|ˀFOR$OPENX^k FOR$WRITE_SF FOR$IO_END˰ FOR$ERRSNS˼ SYS_GETMSG1ƥ CLI$PRESENTP CLI$PRESENTP1(Pƹ̹ FOR$CLOSE4 FOR$CLOSE CLI$PRESENTPADD_ACL4ADD_ACLLADD_ACLX}.BULLDIR~\TRIMP^(Pƹn^SWWYYdYX^hlFOR$OPENX^X}.BULLFIL~ˌTRIMP^(Pƹn^SWWYY˔YX^˘˜;FOR$OPENX^k  FOR$WRITE_SF FOR$IO_END˼ SYS_GETMSG1 FOR$JIBSETPƥk(kѫ(_~ˀ FOR$READ_KU FOR$IO_ENDPk֫(k= FOR$WRITE_SF  FOR$IO_L_R FOR$IO_ENDm FOR$WRITE_SF FOR$IO_END FOR$WRITE_SF FOR$IO_ENDù<Cfզ  FOR$CLOSE FOR$CLOSE1( CLI$PRESENTP,} y  FOR$CLOSE ƅƙ }ƝơƭƱƩЬ1 FOR$CLOSE FOR$CLOSE)l  OPEN_BULLDIR,l ( mWRITEDIR_NOCONV CLOSE_BULLDIRې*~PP^(Pyn^SYYX,Xn yPQ^(l  FOR$BJTESTP FOR$JIBSETP̥(P))(l }( 0 CLI$PRESENT=P8 FOR$JIBSETPƥDWRITE_FOLDER_FILELMODIFY_SYSTEM_LISTT FOR$CLOSE\ FOR$CLOSEԫ,ԫ0ԫ4l CLI$PRESENTP,| CLI$PRESENTP0ˌ CLI$PRESENTP4˜ CLI$PRESENTP40ˤSET_FOLDER_DEFAULT FOR$WRITE_SF.~˴TRIMP^(Pfn^SXX\\˼^˼ FOR$IO_T_V_DS FOR$IO_ENDCLOSE_BULLFOLDER SYS$SETDFPROT K CREATE_FOLDER SETPRV_PRIV CLI$PRESENT CLI$GET_VALUECONNECT_REMOTE_>FOLDER FOR$BJTESTGET_LINEOPEN_BULLFOLDERCLOSE_BULLFOLDERGET_UAF SYS$SETDFPROTTRIMFOR$OPEN FOR$ERRSNS SYS_GETMSG FOR$CLOSEADD_ACL FOR$JIBSET OPEN_BULLDIRWRITEDIR_NOCONV CLOSE_BULLDIRWRITE_FOLDER_FILEMODIFY_SYSTEM_LISTSET_FOLDER_DEFAULT$CODE$PDATA$LOCAL  BULL_FOLDER  BULL_FOLDER1L HEADER_INFOL BULL_USER FOLDER_TIMES NEW_MESSAGESFILES?BULL_DIR INPUT_BUFFER REMOTE_FOLDER FOR$IO_END FOR$IO_L_R FOR$IO_T_V_DS FOR$READ_KU FOR$WRITE_SFP# PFPkP$wPP P$PPP PCP$OPrPP P+PPP!P9PGPhSP PPPP^P-PP,P PPBP MP P#PP0)P&,PSPpPPPNP  @ P?PRPP6PFPVPfPeY Vww1( ϒ011CRELNM0128-Oct-1989 11:3228-Oct-1989 11:32VAX FORTRAN V5.2-33 CRELNMPLNM$PROCESS CRELNMP , SYS$CRELNM@PH[}PQ AP}PQP INIT_ITMLST< ~^^  ADD_2_ITMLST^$ END_ITMLSTkH4 SYS$CRELNM HCRELNM INIT_ITMLST ADD_2_ITMLST END_ITMLST SYS$CRELNMW$CODE$PDATAL$LOCALWww1+ϒ018 CTRLC_ROUTINE0128-Oct-1989 11:3328-Oct-1989 11:33VAX FORTRAN V5.2-33 CTRLC_ROUTINEPBulletin aborting... CTRLC_ROUTINEBP LIB$PUT_OUTPUT@PH[LIB$PUT_OUTPUT SYS$CANEXH SYS$SETDFPROT$LIB$ENABLE_CTRLFOR$EXIT H CTRLC_ROUTINELIB$PUT_OUTPUT SYS$CANEXH SYS$SETDFPROTLIB$ENABLE_CTRLFOR$EXITD$CODE$PDATA0$LOCALCTRLY CTRLC_FLAGDEF_PROTP*Dww1ࠈϒ01C1DCLEXH0128-Oct-1989 11:3428-Oct-1989 11:34VAX FORTRAN V5.2-33 DCLEXH DCLEXH?PPH[мޫk SYS$DCLEXHR HDCLEXH SYS$DCLEXH$CODE$PDATA$LOCALww1+ϒ01<DECLARE_CTRLC_AST0128-Oct-1989 11:3328-Oct-1989 11:33VAX FORTRAN V5.2-33DECLARE_CTRLC_ASTDDECLARE_CTRLC_AST6P CTRLC_ROUTINE CTRLC_ROUTINEPH[ IO$_SETMODEP IO$M_CTRLCASTQQPk kSYS$QIOWH[<8 SYS$CANCELHkL@SYS$QIOW HDECLARE_CTRLC_AST IO$_SETMODE IO$M_CTRLCAST CTRLC_ROUTINESYS$QIOW 6HCANCEL_CTRLC_AST SYS$CANCELk$CODE$PDATAt E$LOCAL TERM_CHAN CTRLC_FLAG#kww1jϒ011DELETE0128-Oct-1989 11:3228-Oct-1989 11:32VAX FORTRAN V5.2-33 DELETEPIMMEDIATENODESUSERNAMESUBJECTBULLETIN_NUMBERALLEND+ Last message specified > number in folder.) Do you want to delete to end of folder? ) Deletion aborted.))( ERROR: You are not reading any message.6 ERROR: SpecifiedF message number has incorrect format.9 ERROR: Cannot delete multiple messages in remote folder.( ERROR: Specified message was not found.2 ERROR: Message was not deleted. Not owned by you. Message is not owned by you.% Are you sure you want to delete it?  DELETEpP@5   5  CLI$PRESENT@ CLI$PRESENT@ CLI$GET_VALUE@G!! CLI$GET_VALUE@TPXPxxx$XXXL)L) CLI$GET_VALUE@p@p@\`P9|9 CLI$PRESENT@\PPhPhPh\`LaP PQGENERAL 'HPP3P(%P0PV?PPP6[PPPPPPP +PTP2\P}P PDP4P. Pu NP7IP2}P PEP PP P! P9P+$PLPmP PP!ww1Wϒ017 DELETE_ENTRY0128-Oct-1989 11:3328-Oct-1989 11:33VAX FORTRAN V5.2-33 DELETE_ENTRY:P ) Description: )FroOm: ) Date:   DELETE_ENTRYP5  A Dx]M]M]MaP PQGENERAL 'PH[Vզ} READDIRΦ}},WRITEDIRP8 FOR$BJTESTP1Wݏ.LOGP^(PnTDTW^HLFOR$OPENW^kWݏ.LOGP^(PnTxTW^|ˀFOR$OPENW^P1  FOR$WRITE_SFˤ FOR$IO_T_DS FOR$IO_END OPEN_BULLFIL<ˬ GET_BULL_LINEի)3 FOR$WRITE_SFPP FOR$IO_T_DS}~ ~ ^( n^ FOR$IO_T_V_DS FOR$IO_END GET_BULL_LINE FOR$WRITE_SF FOR$IO_T_DSQ}~ ~ ^( n^ FOR$IO_T_V_DS FOR$IO_ENDի)9  FOR$WRITE_SFPP FOR$IO_T_DS FOR$IO_END  FOR$WRITE_SF FOR$IO_T_DS FOR$IO_ENDի  FOR$WRITE_SF FOR$IO_T_DS FOR$IO_ENDի GET_BULL_LINEի  FOR$WRITE_SF FOR$IO_T_DS FOR$IO_END FOR$CLOSE CLOSE_BULLFIL޼$ RREADDIR FOR$DELETEMƑ,WRITEDIR3PFrom: Subj: a H DELETE_ENTRYREADDIRWRITEDIR FOR$BJTESTFOR$OPEN OPEN_BULLFIL GET_BULL_LINE FOR$CLOSE CLOSE_BULLFIL$CODE?$PDATA8$LOCALBULL_DIR INPUT_BUFFER  BULL_FOLDER  BULL_FOLDER1 FOR$DELETE FOR$IO_END FOR$IO_T_DS FOR$IO_T_V_DS FOR$WRITE_SFpP6PpoP@PP$PxPjbPKPEP7 SPVP0TPCbP0RF_ww1\ϒ019DELETE_EXPIRED0128-Oct-1989 11:3328-Oct-1989 11:33VAX FORTRAN V5.2-33DELETE_EXPIREDP DELETE_EXPIREDP    COMPARE_DATE@ 4 COMPARE_TIME@   T   aP PQGENERAL 'PH[OPEN_BULLDIR_SHAREDOPEN_BULLFIL_SHARED CLOSE_BULLFILREADDIRk1( COMPARE_DATEPkkkk< COMPARE_TIMEPk  H FOR$BJTESTPTTEST2P\`TEST2PlUPDATE_SHUTDOWN\k\ CLOSE_BULLDIR OPEN_BULLDIRUPDATE OPEN_BULLUSERCLOSE_BULLUSER CLOSE_BULLDIR HDELETE_EXPIUREDOPEN_BULLDIR_SHAREDOPEN_BULLFIL_SHARED CLOSE_BULLFILREADDIR COMPARE_DATE COMPARE_TIME FOR$BJTESTTEST2UPDATE_SHUTDOWN CLOSE_BULLDIR OPEN_BULLDIRUPDATE OPEN_BULLUSERCLOSE_BULLUSER$CODE $PDATAt$LOCALL HEADER_INFOL BULL_USER FOLDER_TIMES NEW_MESSAGESBULL_DIR INPUT_BUFFER  BULL_FOLDER  BULL_FOLDER1SHUTDOWNc,PAPHP [P4cP, VkP vPPPPPPP8,ww1`vϒ016 DELETE_NODE0128-Oct-1989 11:3528-Oct-1989 11:35VAX FORTRAN V5.2-33 DELETE_NODEPUSERNAMESUBJECT:: " ERROR: Cannot specify local node. Enter password for node  ERROR: Password is invalid.)( Message successfully deleted from node )& Error while deleting message to node ) EWRROR: Deletion aborted. ERROR: Unable to reach node ) DELETE_NODEP 5 P o CLI$GET_VALUE@  CLI$GET_VALUE@   CLI$PRESENT@P|XaPPO|[ GET_NODE_INFO \H1@D FOR$WRITE_SF FOR$IO_END18 CLI$GET_VALUEP( L CLI$GET_VALUEDVLD1 LRB\h LIB$INDEXPWBx|TRIMPXWWPXPP R LQPQS,RC WX( WPPXW( ˌTRIMP^(Pn^SY ^(  n Y˄TRIMP^(P n^SZZY^(nY,Yn PPQ^W˜ CLI$PRESENTP1kk1: FYOR$WRITE_SF LP ˤ@˨ˤ FOR$IO_T_DSˬ FOR$IO_T_DS FOR$IO_END˴GET_INPUT_NOECHO˼TRIMP1W D~^^((nTRIMP^(Pn^SZZY ~YTRIMP^(Pn^SZZY"~Y LPX^(X@nXZZYYYW^FOR$OPENW^ D~^ FOR$CLOSE^kY FOR$WRITE_SF FOR$IO_END1 FOR$WRITE_SF FOR$IO_END1x LXX FOR$WRITE_SF  FOR$IO_T_DS FOR$IO_ENDZxX FOR$READ_SF  FOR$IO_T_DS FOR$IO_END-P +z FOR$WRITE_SF LP @  FOR$IO_T_DS FOR$IO_END FOR$WRITE_SF LP @ FOR$IO_T_DS FOR$IO_ENDx FOR$WRITE_SF  FOR$IO_T_DS FOR$IO_ENDVL FOR$WRITE_SF LP @  FOR$IO_T_DS FOR$IO_ENDD D~^,$ FOR$CLOSE^DPDELETE/SUBJECT="Q"/USERNAME=Q"::END[ O DELETE_NODE GET_NODE_INFO CLI$GET_VALUE LIB$INDEXTRIM CLI$PRESENTGET_INPUT_NOECHOFOR$OPEN FOR$CLOSE$CODE.$PDATA$LOCALL HEADER_INFOL BULL_USER FOLDER_TIMES NEW_MESSAGESBULL_DIR INPUT_BUFFERP NODE_INFO FOR$IO_END FOR$IO_T_DS FOR$READ_SF FOR$WRITE_SF FOR$WRITE_SFPi#P)PAPxNP qPP@P#PP HPVP8 \aP-PYPP.PPPP7%PUP6Pqe^ ww1@ϒ012DEL_ACL0128-Oct-1989 11:3328-Oct-1989 11:33VAX FORTRAN V5.2-33DEL_ACLPCDEL_ACLPPP,$] x    PQGENERAL 'PPBULL_DIR: G'BULL_DIR: G'BULL_DIR:BULLUSER.DAT ;'QBULL_DIR:BULLFOLDER.DAT 9'QBULL_DIR:BULLINF.DAT <'PK[}PQP}PQP - n1V)~< XX^(XnXW},ACCESS=~W<XX^(XnXW^ ^( n WW,WV^04 SYS$PARSE_ACLV^P  INIT_ITMLST~^L^TH ADD_2_ITMLST^X END_ITMLST INIT_ITMLST^l` ADD_2_ITMLST^p END_ITMLSTˀ LIB$INDEXPˌTRIMP˔˘kˬ˜SYS$CHANGE_ACLP ˼TRIMPVW}.BULLDIR~V^(VnVYYXXXW^kSYS$CHANGE_ACLW^P W}.BULLFIL~V^(VnVYYXXXWB^kSYS$CHANGE_ACLW^P P(IDENTIFIER= _KDEL_ACL SYS$PARSE_ACL INIT_ITMLST ADD_2_ITMLST END_ITMLST LIB$INDEXSYS$CHANGE_ACLTRIM$CODE$PDATA$LOCAL  BULL_FOLDER  BULL_FOLDER1FILES1,PPP%P-lPP:.ww1@ϒ012DEL_TAG0128-Oct-1989 11:3528-Oct-1989 11:35VAX FORTRAN V5.2-33DEL_TAG<`P ERROR: Unable to delete mark. IOSTAT error = ,DEL_TAGP aP PQGENERAL 'PH[޼REC_LOCKP ^^ TAG_KEY 0^4~~0  FOR$READ_KU FOR$IO_END]^Pռ  FOR$DELETEP FOR$WRITE_SF FOR$IO_END8 FOR$ERRSNSի! FOR$WRITE_SFݼ FOR$IO_L_V FOR$IO_ENDaD SYS_GETMSG HDEL_TAGTAG_KEYREC_LOCK FOR$ERRSNS SYS_GETMSG$CODE5$PDATAL$LOCALBULL_DIR INPUT_BUFFER  BULL_FOLDER  BULL_FOLDER1 FOR$DELETE FOR$IO_END FOR$IO_L_V FOR$READ_KU FOR$WRITE_SF-P<5P\PpPOP$P (Xww1@%ϒ014 DIRECTORY0128-Oct-1989 11:3228-Oct-1989 11:32bVAX FORTRAN V5.2-33 DIRECTORYP SELECT_FOLDERMARKEDSTARTSINCENEW-- 00:00:00.001900(DELETED) ERROR: Cannot use /MARKED with remote folder.@! ERROR: Invalid starting message. No new messages are present in folder ).! No messages past specified date.) There are no messages present.@) *  # Description+From Date Press RETURN for more...+@@   DIRECTORY\P cA d    CLI$PRESENT@ CLI$PRESENT@ 4 0l4!! CLI$PRESENT@!! CLI$GET_VALUE@<'' CLI$PRESENT@- - CLI$PRESENT@'0' CLI$PRESENT@'@' CLI$GET_VALUE@1dT1 SYS$BINTIM@tt-- CLI$PRESENT@ |t4'' CLI$PRESENT@-- CLI$PRESENT@!! CLI$PRESENT@@'' CLI$PRESENT@-- CLI$PRESENT@D48l @8l8l|e8l 4X8l@d E 4XaP PQGENERAL '0PPO0[dLIB$ERASE_PAGEW X)ˈ CLI$PRESENTPx CLI$PRESENTPըː GET_FIRST_TAGN FOR$WRITE_SF FOR$IO_ENDˠ INIT_QUEUEkOPEN_BULLDIR_SHAREDˬREADDIRYѫ1թ}1ռ1 CLI$PRESEfNTP CLI$GET_VALUEPݫ  FOR$DECODE_MF߼ FOR$IO_L_R FOR$IO_ENDѼ}Щ}ռ FOR$WRITE_SF FOR$IO_END CLOSE_BULLDIRԼ1 CLI$PRESENTP CLI$PRESENTP1 CLI$PRESENTP CLI$GET_VALUEP- , SYS$BINTIMP8 GET_MSGKEYD SYS_BINTIMP GET_MSGKEY1d CLI$PRESENTP P@pl COMPARE_BTIMP FOR$WRITE_SFxTRIMPˀg ˄ˀ FOR$IO_T_DS FOR$IO_END CLOSE_BULLDIR P@ˌˈ GET_MSGKEY˔ READDIR_KEYGEի FOR$WRITE_SF FOR$IO_END CLOSE_BULLDIRЫ  CLI$PRESENTPˤ CLI$PRESENTP˴ CLI$PRESENTP޼READDIRPѫPԫZZ ZP@iQQQ@i ZZ CLI$PRESENTP CLI$PRESENTPм PPP}PѫPЩ}ü}PP ZPZЩ}Z}ZZм hZZZм ZZZ}ZѫZЩ} Щ} ЫѫREADDIRЫ WRITE_QUEUE1ЫZZի޼  GET_NEXT_TAGЫ($ WRITE_QUEUEZZի׫1  FOR$WRITE_SF FOR$IO_L_Rݫ FOR$IO_L_Vݫ FOR$IO_L_V FOR$IO_ENDPЫZիZ  FOR$READ_SF< FOR$IO_T_DS FOR$IO_ENDPЫ84 WRITE_QUEUEZի CLOSE_BULLDiIRDISCONNECT_REMOTEԩ} CLOSE_BULLDIRթ} FOR$WRITE_SF FOR$IO_ENDDTRIMP ( FOR$WRITE_SF L PL FOR$IO_T_DS FOR$IO_END< FOR$WRITE_SF FOR$IO_END¹  8$gkkXT READ_QUEUEdGET_THISj_OR_NEXT_TAGի}(kЫXѫ1Ыxt READ_QUEUECONVERT_ENTRY_FROMBINѩ$ѩ'$gѩ(0 FOR$WRITE_SF FOR$IO_END6 FOR$WRITE_SF FOR$IO_ENDˌ LIB$INDEXP)ɲ FOR$WRITE_SFݩ FOR$IO_L_Vë$7PP˘ ˜˘ FOR$IO_T_DS, FOR$IO_T_DSˠ FOR$IO_T_DS FOR$IO_END FOR$WRITE_SFݩ FOR$IO_L_Vë$7PP˨ ˬ˨ FOR$IO_T_DS, FOkR$IO_T_DSɞ~^(ɕn ˰^˴˰ FOR$IO_T_V_DS FOR$IO_ENDgѩ(˸ GET_NEXT_TAGի}(XѼ}իԼd FOR$WRITE_SF FOR$IO_END@<P@P PP@TP@T7PPDIRTODAY18i O DIRECTORY CLI$_ABSENT CLI$_NEGATED CLI$_PRESENTLIB$ERASE_PAGE CLI$PRESENT GET_FIRST_TAG INIT_QUEUEOPEN_BULLDIR_SHAREDREADDIR CLI$GET_VALUE CLOSE_BULLDIR SYS$BINTIM GET_lMSGKEY SYS_BINTIM COMPARE_BTIMTRIM READDIR_KEYGE WRITE_QUEUE GET_NEXT_TAGDISCONNECT_REMOTE READ_QUEUEGET_THIS_OR_NEXT_TAGCONVERT_ENTRY_FROMBIN LIB$INDEXG$CODE$PDATA$LOCALBULL_DIR INPUT_BUFFERL HEADER_INFOL BULL_USER FOLDER_TIMES NEW_MESSAGES  BULL_FOLDER  BULL_FOLDER1 PAGEPOINT REMOTE_FOLDERTAGS COMMAND_LINE FOR$IO_END mFOR$IO_L_R FOR$IO_L_V FOR$IO_T_DS FOR$IO_T_V_DS FOR$READ_SF FOR$WRITE_SF FOR$WRITE_SF FOR$DECODE_MFP*P!P2P<,PG0PC P;I PF P4 P.P=PmP"P/PP<PP]PV$PG0P;iP&PPq%Pj0PPPPEP P P PJfPpPPPM%PfP)P P PP}P/P PPw P#P*P58PEP RP ]PmPyP}PyPU PR{P P w ^ww1A.ϒ01/FILE0128-Oct-1989 11:3228-Oct-1989 11:32VAX FORTRAN V5.2-33 FILEMPBULLETIN_NUMBERALLFILESPECNEWHEADER) ERROR: Error in opening file.' ERROR: You have not read any bulletin.6 ERROR: Specified message number has incorrect format.# ERROR: No file name was specified.* ERROR: Following bulletin was not found: , Message(s) written to ) Description: )From: )Date: ) FILEP@5  A8 CLI$GET_VALUE@@@h CLI$PRESENT@x CLI$GET_VALUE@@ CLI$PRESENT@ !! CLI$PRESENT@ ]M0]M0]M0aP PQGENERAL 'PH[@ CLI$GET_VALUEPk CLI$_ABSENT\k\P GET_2_VALSp CLI$PRESENTPkK FOR$WRITE_SF FOR$IO_ENDkիku FOR$WRITE_SF FOR$IO_ENDˀ CLI$GET_VALUEPkk\ FOR$WRITE_SF FOR$IO_ENDː SETPRV_PRIVP DISABLE_PRIVSˠ CLI$PRESENTP@˨ˬ˰FOR$OPENP1@FOR$OPENP1 ENABLE_PRIVS  CLI$PRESENTP\OPEN_BULLDIR_SHAREDOPEN_BULLFIL_SHAREDЫVЫ ѫ1WREADDIR PkP FOR$WRITE_SFݫ  FOR$IO_L_V FOR$IO_ENDѫ 1  FOR$CLOSE CLOSE_BULLFIL CLOSE_BULLDIR<, GET_BULL_LINEի1)D\/ FOR$WRITE_SFPP@D@ FOR$IO_T_DS}~ ~ ^( nH^LH FOR$IO_T_V_DS FOR$IO_ENDP GET_BULL_LINE\/ FOR$WRITE_SF( FOR$IO_T_DS}~ ~ ^( nd^hd FOR$IO_T_V_DS FOR$IO_ENDի)J\ FOR$WRITE_SFPPlpl FOR$IO_T_DS FOR$IO_END\ FOR$WRITE_SF  FOR$IO_T_DS FOR$IO_ENDի( FOR$WRITE_SFtxt FOR$IO_T_DS FOR$IO_ENDի|V GET_BULL_LINEի( FOR$WRITE_SFː˔ː FOR$IO_T_DS FOR$IO_ENDV ˘ FOR$CLOSE FOR$WRITE_SF@ˠˤˠ FOR$IO_T_DS FOR$IO_END CLOSE_BULLFIL CLOSE_BULLDIR* FOR$WRITE_SF FOR$IO_END ENABLE_PRIVSDPFrom: Subj:  HFILE CLI$_ABSENT CLI$GET_VALUE GET_2_VALS CLI$PRESENT SETPRV_PRIV DISABLE_PRIVSFOR$OPEN ENABLE_PRIVSOPEN_BULLDIR_SHAREDOPEN_BULLFIL_SHAREDREADDIR FOR$CLOSE CLOSE_BULLFIL CLOSE_BULLDIR GET_BULL_LINE$CODEP$PDATA$LOCALPOINTDBULLPARBULL_DIR INPUT_BUFFER  BULL_FOLDER  BULL_FOLDER1 FOR$IO_END FOR$IO_L_V FOR$IO_T_DS FOR$IO_T_V_DS FOR$WRITE_SFP )PP6PFP3OP~PPPPP%PP#'P[P6vPEPP}PoP^LPPRPJPJP<P4P[P P0HPCVP0ta ww1`ϒ014 FILE_LOCK0128-Oct-1989 11:3428-Oct-1989 11:34VAX FORTRAN V5.2-33 FILE_LOCK P01 FILE_LOCK P WAIT_SEC@QPH[kkռ޼ FOR$ERRSNSѼWAIT_SECԫkԫԼkЫPd H FILE_LOCK FOR$ERRSNSWAIT_SEC V$CODE$PDATA($LOCAL+ PP=P//P=PGP , ^Vww1 *ϒ011FILTER0128-Oct-1989 11:3328-Oct-1989 11:33VAX FORTRAN V5.2-33 FILTER FILTER]PPH[}PQPмVWռWTD D D .DVWE HFILTERG$CODE$PDATA $LOCAL P%.P5P <PGww1`kϒ016 FIND_BULLCP0128-Oct-1989 11:3328-Oct-1989 11:33VAX FORTRAN V5.2-33 FIND_BULLCPPBULL_BULLCP FIND_BULLCPtP   SYS_TRNLNM@PPH[ SYS_TRNLNMP_ H FIND_BULLCP SYS_TRNLNM$CODE $PDATA $LOCALBCPP ww1Cϒ01;FIND_NEWEST_BULL0128-Oct-1989 11:3328-Oct-1989 11:33VAX FORTRAN V5.2-33FIND_NEWEST_BULL PFIND_NEWEST_BULLP (   aP PQGENERAL 'P|H[OPEN_BULLDIR_SHAREDREADDIRk1 P@GET_NEWEST_MSGիЫ CLOSE_BULLDIR\ѫ}1Y) A1) AYV ^( ̠n ~ ^( ̕n V^$( SYS_BINTIMV^4 COMPARE_BTIMP֫@READDIRԬY֫LREADDIRPkP}1fѫ} CLOSE_BULLDIR_ |HFIND_NEWEST_BULLOPEN_BULLDIR_SHAREDREADDIRGET_NEWEST_MSG CLOSE_BULLDIR SYS_BINTIM COMPARE_BTIM$CODE$PDATA`$LOCALPOINTL HEADER_INFOL BULL_USER FOLDER_TIMES NEW_MESSAGESBULL_DIR INPUT_BUFFER  BULL_FOLDER  BULL_FOLDER1_%PDPhPmPzPPUPLPPPPP ;/ww1`ϒ01=FINISH_MESSAGE_ADD0128-Oct-1989 11:3528-Oct-1989 11:35VAX FORTRAN V5.2-33FINISH_MESSAGE_ADD PFINISH_MESSAGE_ADDP A      aP PQGENERAL 'P9P2DP'pPPPYPP5  ww1@ݟϒ018 GET_FIRST_TAG0128-Oct-1989 11:3528-Oct-1989 11:35VAX FORTRAN V5.2-33 GET_FIRST_TAG P GET_FIRST_TAGP  0 aPPH [޼ OPEN_NEW_TAG}aVH [WW WP@QQQ@ WWH [V޼ REC_LOCKP ^^(޼4,TAG_KEY <^@~<  FOR$READ_KU  FOR$IO_X_SE FOR$IO_END]^PռHD GET_MSGKEYP LIB$MOVC3kռ  FOR$UNLOCKWW WP@RRR@ WW` GET_MSGKEY OPEN_BULLDIR޼pl READDIR_KEYGE CLOSE_BULLDIRˀx| GET_MSGKEYռ)  FOR$UNLOCK V׼ }aԼ  FOR$DELETE1 H GET_FIRST_TAGTAG_KEY OPEN_NEW_TAG 4HGET_THIS_OR_NEXT_TAG jH GET_NEXT_TAGREC_LOCK GET_MSGKEY LIB$MOVC3 OPEN_BULLDIR READDIR_KEYGE CLOSE_BULLDIR$CODE$PDATA$LOCALBULL_DIR INPUT_BUFFERTAGS FOR$UNLOCK FOR$DELETE FOR$IO_END FOR$IO_X_SE FOR$READ_KUP P3PADP#RPaPiP PLP"PPPP#P -PnP1yP&PfZ*ww1@ϒ01:GET_FOLDER_INFO0128-Oct-1989 11:3228-Oct-1989 11:32VAX FORTRAN V5.2-33GET_FOLDER_INFO_PSELECT_FOLDER, Unable to access folder )# ERROR: No write access for folder )GET_FOLDER_INFOP  CLI$GET_VALUE@0 D PQGENERAL 'PO[^VD CLI$_ABSENT CLI$GET_VALUEP1 SYS_TRNLNMP(TRIMP1D8 LIB$INDEXPX DYXXP,P IXP,PH ( I,n IHLTRIMPY DXYPPXQ)AX^(ZnY^(YHnYWWZ,Zn HPQ^(H޼\T SELECT_FOLDER FOR$WRITE_SF DP `@d` FOR$IO_T_DS FOR$IO_END1 FOR$WRITE_SF DP h@lh FOR$IO_T_DS FOR$IO_ENDԼ11XP::GENERAL  OGET_FOLDER_INFO CLI$_ABSENT CLI$GET_VALUE SYS_TRNLNMTRIM LIB$INDEX SELECT_FOLDER$CODEa$PDATAp$LOCAL  BULL_FOLDER  BULL_FOLDER1P NODE_INFOACCESS FOR$IO_END FOR$IO_T_DS FOR$WRITE_SF8/Pk MPIgP(PP-&P1^P5@4Dww1`-ϒ01;GET_INPUT_NOECHO0128-Oct-1989 11:3328-Oct-1989 11:33VAX FORTRAN V5.2-33GET_INPUT_NOECHO%P@@TTKEYPADGET_INPUT_NOECHO P   ( (      SYS$ASSIGN@( CLI$PRESENT@ QPH[}PQ P<VWVWP @ VWk<~^(SMG$READ_STRING^k<~^@0SMG$READ_STRING^H[}PQ P}PQP<WVWVP @ WVk<~^XHSMG$READ_STRING^k<~^p`SMG$READ_STRING^H[}PQ P<VWVWP @ VWk<~^ˈ޼˘xSMG$READ_STRING^k<~^˰޼ˠSMG$READ_STRING^ռѫ ѫ H[ SYS$ASSIGNDECLARE_CTRLC_ASTSMG$CREATE_VIRTUAL_KEYBOARDSMG$CREATE_KEY_TABLESMG$SET_KEYPAD_MODEv CLI$PRESENTP SET_KEYPAD SET_NOKEYPADޫ0W W~^(  FOR$JIBCLR^P9W HGET_INPUT_NOECHOSMG$READ_STRING \HGET_INPUT_NOECHO_PROMPT H GET_INPUT_NUM NHASSIGN_TERMINAL SYS$ASSIGNDECLARE_CTRLC_ASTSMG$CREATE_VIRTUAL_KEYBOARDSMG$CREATE_KEY_TABLESMG$SET_KEYPAD_MODE CLI$PRESENT SET_KEYPAD SET_NOKEYPAD FOR$JIBCLR$CODE$PDATAD$LOCAL TERM_CHANSMG CTRLC_FLAGREADITvP /PFPP PPP P P3P9PCP P PPrfuww1e"ϒ013GET_LINE0128-Oct-1989 11:3328-Oct-1989 11:33VAX FORTRAN V5.2-33GET_LINE P)GET_LINEP$ lPH [}PQ PVH [}PQ P} PQPV<W,n  DECLARE_CTRLC_ASTԼԫ FOR$READ_SF߼ FOR$IO_L_R FOR$IO_T_DS FOR$IO_ENDPV SMG$READ_COMPOSED_LINEPV4SMG$READ_COMPOSED_LINEPVSMG$_EOFRVRVVkHFOR$EXIT޼\PSTR$TRIMCANCEL_CTRLC_ASTVR2RWVVRRVVмVWռG dWPPphGET_VALVW޼|t CONVERT_TABSмPPRRPPa HGET_LINESMG$_EOF HGET_INPUT_PROMPTDECLARE_CTRLC_ASTSMG$READ_COMPOSED_LINEFOR$EXITSTR$TRIMCANCEL_CTRLC_ASTGET_VAL CONVERT_TABSa$CODE$PDATA$LOCALDECNETSMG CTRLC_FLAG FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$READ_SFfP$fP9iP*PP P PPPoP[PQPYPPD#aww1ϒ014 GET_L_VAL0128-Oct-1989 11:3328-Oct-1989 11:33VAX FORTRAN V5.2-33 GET_L_VAL GET_L_VALPH[мPF H GET_L_VAL$CODE$PDATA$LOCALww1`,ϒ015 GET_MSGKEY0128-Oct-1989 11:3228-Oct-1989 11:32VAX FORTRAN V5.2-33 GET_MSGKEY P  GET_MSGKEYP P|H[Ь}PQP@$ LIB$MOVC3VV PPQQPVS,PA CVW |H GET_MSGKEY LIB$MOVC3N$CODE$PDATA4$LOCALNww1 2ϒ019GET_NEWEST_MSG0128-Oct-1989 11:3328-Oct-1989 11:33VAX FORTRAN V5.2-33GET_NEWEST_MSGP )GET_NEWEST_MSGlP aPPH[Ь޻R FOR$WRITE_SF FOR$IO_L_Rߢ FOR$IO_L_Rߢ FOR$IO_L_R FOR$IO_ENDP FOR$READ_SF߼ FOR$IO_L_R FOR$IO_END޼  GET_MSGKEY޼,( READDIR_KEYGEռ HGET_NEWEST_MSG GET_MSGKEY READDIR_KEYGE$CODE $PDATA0$LOCALBULL_DIR INPU T_BUFFER REMOTE_FOLDER FOR$IO_END FOR$IO_L_R FOR$READ_SF FOR$WRITE_SF-Pq!P;`P'cP$P%P"*ww1mϒ018 GET_NODE_INFO0128-Oct-1989 11:3528-Oct-1989 11:35VAX FORTRAN V5.2-33 GET_NODE_INFOPSYS$NODENODES,:: GET_NODE_INFO(P  8 LIB$SYS_TRNLOG@ ( P CLI$PRESENT@ ` CLI$GET_VALUE@00000    $PO [^\H@ LIB$SYS_TRNLOGk_, kD8 CLI$PRESENTP1 CLI$_ABSENTH CLI$GET_VALUEP1T SYS_TRNLNMP`TRIMP1Dp LIB$INDEXPX DYXXP,P IXP,PH ( I,n Iˀ˄TRIMPY DXHː˜ LIB$INDEXPHˬ˸ LIB$INDEXPY DX-k YHD@1DLZ D~^^(nY^(YHnYWWVVVZ^FOR$OPENZ^իD D~^ FOR$CLOSE^DH11@P""::"TASK=BULLETIN" O GET_NODE_INFO CLI$_ABSENTLIB$SYS_TRNLOG CLI$PRESENT CLI$GET_VALUE SYS_TRNLNMTRIM LIB$INDEXFOR$OPEN FOR$CLOSE$CODE'$PDATA($LOCALP NODE_INFOb-P JPtcPWP5P(PP(P3PP.PPPDww1@ϒ01:GET_NODE_NUMBER0128-Oct-1989 11:3328-Oct-1989 11:33VAX FORTRAN V5.2-33GET_NODE_NUMBERP  GET_NODE_NUMBERPPH[ INIT_ITMLST߼^ ADD_2_ITMLST^߼^  ADD_2_ITMLST^$ END_ITMLSTk<, SYS$GETSYIWռ HGET_NODE_NUMBER INIT_ITMLST ADD_2_ITMLST END_ITMLST SYS$GETSYIWR$CODE $PDATAL$LOCALLP#Rww1@ϒ01@GET_NODE_NUMBER_OTHER0128-Oct-1989 11:3228-Oct-1989 11:32VAX FORTRAN V5.2-33GET_NODE_NUMBER_OTHER<P  & ERROR: Specified node name not found.!GET_NODE_NUMBER_OTHERHP<PH[} PQP INIT_ITMLST߼^ ADD_2_ITMLST^߼^( ADD_2_ITMLST^, END_ITMLST4TRIMP<@kTD SYS$GETSYIWP  FOR$WRITE_ SF FOR$IO_ENDԼ HGET_NODE_NUMBER_OTHER INIT_ITMLST ADD_2_ITMLST END_ITMLST SYS$GETSYIWTRIM$CODE5$PDATAd$LOCAL FOR$IO_END FOR$WRITE_SFgP%ww1Uϒ01=GET_PROXY_ACCOUNTS0128-Oct-1989 11:3528-Oct-1989 11:35VAX FORTRAN V5.2-33GET_PROXY_ACCOUNTSHPNETPROXYSYS$SYSTEM:NETPROXY.DATNETUAFSYS$SYSTEM:NETUAF.DAT)GET_PROXY_ACCOUNTSP  FOR$OPEN@ FOR$OPEN@ !(! FOR$OPEN@( FOR$OPEN@ dHPPH[ INIT_QUEUE0FOR$OPEN\k|FOR$OPEN\k1> FOR$READ_SF߫ FOR$IO_L_R  FOR$IO_T_DS FOR$IO_ENDPk1\1,| p ѫ@˲˰PPV@VPPQ,Q@p P˰Vѫ@˰V,L˴ P˰LWAVVLVP @pWV,A P˰Ыp˼ WRITE_QUEUE1 FOR$CLOSEAPDECNET HGET_PROXY_ACCOUNTS INIT_QUEUEFOR$OPEN WRITE_QUEUE FOR$CLOSEJ$CODEG$PDATAh$LOCALNETUAF FOR$IO_END FOR$IO_L_R FOR$IO_T_ DS FOR$READ_SFOP =PAP*rPPP6P/P:PPG;Jww1Pϒ01=GET_PROXY_USERNAME0128-Oct-1989 11:3528-Oct-1989 11:35VAX FORTRAN V5.2-33GET_PROXY_USERNAMEGET_PROXY_USERNAME tPdpPIp[}PQP}PQP <V< WXk, XXk  READ_QUEUE*-V -W *-W *,$ *( Ы,  , PDECNETo IGET_PROXY_USERNAME READ_QUEUE$CODE$PDATA$LOCALNETUAFDHPg\P gPErPxP4PP P P 7+ ww1Wϒ01=GET_REMOTE_MESSAGE0128-Oct-1989 11:3328-Oct-1989 11:33VAX FORTRAN V5.2-33GET_REMOTE_MESSAGE P)GET_REMOTE_MESSAGEP  aPPPH[k INIT_QUEUEkԼMի1ռ1 FOR$READ_SF߫ FOR$IO_L_R FOR$IO_T_DS FOR$IO_ENDPի$ FOR$ERRSNSѫ Լԫ0 SYS_GETMSGMм DISCONNECT_REMOTEЫ իk<8 WRITE_QUEUEM1Z8 HGET_REMOTE_MESSAGE INIT_QUEUE FOR$ERRSNS SYS_GETMSGDISCONNECT_REMOTE WRITE_QUEUE$CODE$PDATAH$LOCALBULL_DIR INPUT_BUFFER REMOTE_FOLDERREMOTE_READ_MESSAGE FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$READ_SFVP PBPJPNP.PEP@P P!PP7+ ww1ࠈϒ012GET_UAF0128-Oct-1989 11:3428-Oct-1989 11:34VAX FORTRAN V5.2-33GET_UAFP# GET_UAFHP PH[}PQP}PQP INIT_ITMLST߼^  ADD_2_ITMLST^< ~^(^0$ ADD_2_ITMLST^?^@4 ADD_2_ITMLST^D END_ITMLSTk\ L SYS$GETUAIP22  HGET_UAF INIT_ITMLST ADD_2_ITMLST END_ITMLST SYS$GETUAI$CODE$PDATAp$LOCAL"ww1ϒ015 GET_UPTIME0128-Oct-1989 11:3328-Oct-1989 11:33VAX FORTRAN V5.2-33 GET_UPTIMEP GET_UPTIME$P 4P)+)+Quitting directory listing. Description+From DateNumber -----------+---- ---------- *) System Messages* *)*+*)* * *)*@ @@)* ERROR: Cannot add new entry to user file.  LOGINP Ad LL '0G0 SYS_BINTIM@/D/ SYS_BINTIM@hl CC CLI$PRESENT@p  hx      h   G4G SYS$BINTIM@( (   ( 4   hLPT( 4  \h   4 ( 4 ( Xh]M]M]M]MOO GET_INPUT_NOECHO_PROMPT@OO GET_INPUT_NOECHO_PROMPT@6m<m GET_INPUT_NOECHO_PROMPT@(( 4 ( aP PQGENERAL 'HPQPOL[ SYS$ASCTIM SYS_BINTIM SYS_BINTIM SYS_BINTIMOPEN_BULLUSER_SHARED MODIFY_SYSTEM_LISTREAD_USER_FILE_HEADER\Rի1 FOR$UNLOCKREAD_USER_FILE_KEYNAMEѢԢ ի 1( COMPARE_BTIMP< CLI$PRESENTPЫĢ ЫȢТ ТЫĢ ЫȢFOR$REWRITE_SUˌ FOR$IO_X_SE FOR$IO_END Pޢ(QՁաP@ P1 CLEANUP_LOGINЫ̢ЫТPެ@Qޢ@SССЁPԢ D CHECK_NEWUSERѫ$Ы ЫТ ТЫ̫ЫЫЫĢ ЫȢPޢ(QՁ P T COMPARE_BTIMPԫ `WRITE_USER_FILEի FOR$WRITE_SF FOR$IO_ENDCLOSE_BULLUSERFOR$EXITѫ$OPEN_BULLINF_SHARED`PQSТТPQ  FOR$WRITE_SU˄ FOR$IO_T_DS`S(Td˸˴ FOR$IO_X_SBTS( FOR$IO_ENDP CLOSE_BULLINFЫ ЫhREAD_USER_FILE_HEADERիp MINUTE_DIFFPЫĬ ЫȬFOR$REWRITE_SU˔ FOR$IO_X_SE FOR$IO_ENDCLOSE_BULLUSER| TEST _BULLCPPCREATE_BBOARD_PROCESSCLOSE_BULLUSERիFOR$EXITի ˄ COMPARE_BTIMP ː COMPARE_BTIMP0˜ COMPARE_BTIMP0  ˨ LIB$MOVC3 ˼SUBTIMEի0OL[  Ы Ы P@ COMPARE_BTIMP0 P@ @  MINUTE_DIFFPP SYS$BINTIMPΫܫΫPPLIB$SUBX OL[  FOR$BJTESTT TTTTPPTUTEST2PT$TEST2PTPPTԫ4ù Xի  0 FOR$BJTESTP  OPEN_BULLDIR_SHARED<READDIR }H INIT_QUEUET INIT_QUEUE` INIT_QUEUE k<Ы@ЫDWZlTEST2PxTEST2PZի WH˄GET_NEWEST_MSGЫHWW}W1ː INIT_QUEUEZ FOR$WRITE_SF FOR$IO_L_RW FOR$IO_L_V} FOR$IO_L_V FOR$IO_ENDP FOR$WRITE_SF FOR$IO_L_R} FOR$IO_L_VW FOR$IO_L_V FOR$IO_ENDPիЫLWSիS} FOR$READ_SFt FOR$IO_T_DS FOR$IO_ENDPЫL ˜ WRITE_QUEUESի CLOSE_BULLDIRDISCONNECT_REMOTEЫLWY}V}W1\ZW}PVP8V8ЫL˰ˬ READ_QUEUE8˼READDIRի 18PѫP1Z COMPARE_BTIMP1 FOR$BJTESTPYPP2PYY) A1YXЫ@ WRITE_QUEUEЫD WRITE_QUEUET COMPARE_BTIMPPZ8 TEST2PTEST2P1֫4Ы8YЫ<($ WRITE_QUEUE18PѫPYPPXЫ@84 WRITE_QUEUEЫDHD WRITE_QUEUEի4Ы8YZ8TTEST2P`TEST2P֫4Ы$P$dPPP PPP PPPP] P!P1P9P"[Pm^PjePpPzPN}P P$PPPPzP$POPHP P!2P >PfPjPqPWvP, PM Pj_ P1 P  P  P  P P  P P  PD P U PX^ PO P P P P P P PJ PE Pf P PCB Pd P P  Pn P& P P PPP PP  PPPP;PoPu,P8P?PFPRPaP&mPPP{P PKPXPm߯߯Pww1 LNϒ01/MAIL0128-Oct-1989 11:3228-Oct-1989 11:32VAX FORTRAN V5.2-33 MAILPSUBJECTSYS$LOGIN:BULL.SCRHEADER1900RECIPIENTS& ERROR: You have not read any message.' ERROR: Subject limit is 64 characters.( ERROR: Specified message was not found.& ERROR: Error in opening scratch file.) Description: )From: ) MAILPP@5  A x CLI$PRESENT@ CLI$GET_VALUE@PD@  FOR$OPEN@@ CLI$PRESENT@"hpp CLI$PRESENT@]MpH]MpH]MpHPP '' CLI$GET_VALUE@L LIB$DELETE_FILE@aPPO@[2 FOR$WRITE_SF FOR$IO_ENDV,5 @@ CLI$PRESENTPP CLI$GET_VALUEPkѫ>[ FOR$WRITE_SF FOR$IO_ENDOPEN_BULLDIR_SHARED`READDIRPkP FOR$WRITE_SF FOR$IO_END CLOSE_BULLDIR CLOSE_BULLDIRtFOR$OPENk FOR$WRITE_SF FOR$IO_ENDWˤ CLI$PRESENTP1YX˴ LIB$INDEXP)Ʋ ^( n^(Ơn ~ ^( ƕn}Date: ~,%n gQ^1XPP^(n^(Ơn ~ ^(  n}Date: ~,/n gQ^1XPP ^( n^(Ơn ~ ^( ƕn}Date: ~,%n gQ^^(ƶn ~ ^( ƫn^('n^(Ơn ~ ^( ƕn}Date: ~,8n gQ^XX ^( 5nTRIMP^(Pgn^SY YX,Xn gPQ^ FOR$WRITE_SFTRIMPg FOR$IO_T_DS FOR$IO_END CLI$PRESENTPXOPEN_BULLFIL_SHARED< GET_BULL_LINEի)g>X FOR$WRITE_SFPP FOR$IO_T_DS FOR$IO_END! GET_BULL_LINEX FOR$WRITE_SF  FOR$IO_T_DS FOR$IO_ENDի)gDX FOR$WRITE_SFPP FOR$IO_T_DS FOR$IO_ENDX FOR$WRITE_SF FOR$IO_T_DS FOR$IO_ENDիw FOR$WRITE_SFﰫ g$  FOR$IO_T_DS FOR$IO_ENDի( GET_BULL_LINEի FOR$WRITE_SFﰫ<g@< FOR$IO_T_DS FOR$IO_ENDD FOR$CLOSE CLOSE_BULLFILLTRIMP"W,J @TTRIMPWXXWXYI"W@`IX@PP^(PHn^SZ"~ZX^(XnXYYZ,Zn @PQ^XWXZԪ@ CLI$_ABSENTYê@@PPdЪ@VFjhX l CLI$GET_VALUEЫ XPYX@PP@@P,@jת@YY@YXHj"Y@PP^(PIjn^SV"~VY^(YjnYXXV,Vn @jPQ^Y֪@Y DISABLE_PRIVSY"~W^(WnWXXV ^( [n Vª@^(@jnЪ@XXV^(enVV|VY^ˀ޼ˠ˄ LIB$SPAWNY^ ENABLE_PRIVSˬLIB$DELETE_FILEW#P18 (DELETED) Expires on shutdown Permanent Expires: / SystemFrom: Subj: BULLETIN message.Q $MAIL SYS$LOGIN:BULL.SCR Q/SUBJECT=" OMAIL CLI$_ABSENT CLI$PRESENT CLI$GET_VALUEOPEN_BULLDIR_SHAREDREADDIR CLOSE_BULLDIRFOR$OPEN LIB$INDEXTRIMOPEN_BULLFIL_SHARED GET_BULL_LINE FOR$CLOSE CLOSE_BULLFIL DISABLE_PRIVS LIB$SPAWN ENABLE_PRIVSLIB$DELETE_FILE$CODE~$PDATA$LOCAL$POINTDBULLPARBULL_DIR INPUT_BUFFER FOR$IO_END FOR$IO_T_DS FOR$WRITE_SFPCP(TPP PPP P9>PJP9PP9PLP/PIP?P1P#P P@!P6$P1WPTZP P,P?P, P0P_;PMDP LP<PPFP73 %ww1ϒ013MAILEDIT0128-Oct-1989 11:3328-Oct-1989 11:33VAX FORTRAN V5.2-33MAILEDIT%PMAIL$EDITCALLABLE_ EDTTPUMAILEDITPPPP  SYS_TRNLNM@   &,<\ TPU$EDIT@BULLETIN_SUBCOMMANDSPK[}PQP}PQP 4 SYS_TRNLNMPV,  P@TRIMP, PV1P LIB$INDEXP1 DISABLE_PRIVS-P WdTRIMP^(Pn^SXݏ "" X\TRIMP^(P`n^SYYX$@~XXlXW^pt LIB$SPAWNW^W˄TRIMP^(Pn^SX ~X<YY^(YnYX' ~X|TRIMP^(P`n^SYYX$@~XXˌXW^ː˔ LIB$SPAWNW^ ENABLE_PRIVSVˤ LIB$INDEXP˰EDT$EDIT LIB$INDEXPk LIB$FIND_FILEPTPU$EDITTPU$EDIT CLI$DCL_PARSE  KMAILEDITBULLETIN_SUBCOMMANDS SYS_TRNLNMTRIM LIB$INDEX DISABLE_PRIVS LIB$SPAWN ENABLE_PRIVSEDT$EDIT LIB$FIND_FILETPU$EDIT CLI$DCL_PARSE$CODE$PDATA$LOCAL CO (MMAND_LINE_BP TPcPxPWPiAP\HP UP`P=pP-~P P :.ww1}ϒ014 MAKE_CHAR0128-Oct-1989 11:3428-Oct-1989 11:34VAX FORTRAN V5.2-33 MAKE_CHAR MAKE_CHARNP PH[Ь޻Pмޠ  RB J H MAKE_CHAR,$CODE$PDATA$L )OCAL ,ww18ϒ012MBX_AST0128-Oct-1989 11:3528-Oct-1989 11:35VAX FORTRAN V5.2-33MBX_AST PMBX_ASTP    ( PH[ \l121VF:VFP`~VQAVPPWWWP @W VF=VWWVP@ @/WWVP@P`~WQAWW WV* F W( GET_PROXY_USERNAME(CONNECTl158READ_MBX8 LIB$MOVC3PP 2\@D\PP PkH DISCONNECTREAD_MBX  HMBX_ASTGET_PROXY_USERNAMECONNECTREAD_MBX LIB$MOVC3 DISCONNECT,$CODE$PDATAd$LOCALL HEADER_INFOL BULL_USER FOLDER_TIMES NEW_MESSAGESREADBUFCHANNELMBXBUFPP*PKP bPvP +%}PPP\PP PP P<PPP =1,ww1yϒ010MERGE0128-Oct-1989 11:3528-Oct-1989 11:35VAX FORTRAN V5.2-33 MERGE P MERGEpPP    d4adp ,h  lh xlh pp   PQGENERAL 'aPPOd[Od[޼PL FILE_LOCKPV^(nXTRIMP^(Pn^SXXWW`WV^dhFOR$OPENV^ռ}  FOR$WRITE_SU<- FOR$IO_X_SE FOR$IO_ENDPCONVERT_HEADER_FROMBINOd[ԼVռ1(df˼READDIR COMPARE_BTIMPPP(dfCONVERT_ENTRY_FROMBIN֦}Ц} GET_MSGKEY  FOR$WRITE_SU4 FOR$IO_X_SE FOR$IO_ENDP( ƕ( Ơ֫(df1q FOR$CLOSEOd[V( ƕ( Ơ COMPARE_DATEPW( ƫ( ƶW COMPARE_TIMEP( ƶYPPPƅ( ƕ( ƠæMƁ]֦}Ц} GET._MSGKEY  FOR$WRITE_SU4 FOR$IO_X_SE FOR$IO_ENDPOd[V  UPDATE_LOGINռ1READDIRWW1~~?   FOR$READ_KU FOR$IO_ENDPCONVERT_HEADER_TOBIN FOR$REWRITE_SU< FOR$IO_X_SE FOR$IO_ENDP1( FOR$CLOSEX^(n4TRIMP^(Pn^SZZYYDYX^H}.BULLDIR~<TRIMP^(Pn^SZZYYLYX^PTLIB$RENAME_FILEX^` FOR$CLOSE֦}Ц}h GET_MSGKEY/  FOR$WRITE_SU4 FOR$IO_X_SE FOR$IO_ENDP( ƕ( ƠW1t FOR$CLOSEP.TMPDIRK OMERGE OINITIALIZE_MERGE FILE_LOCKFOR$OPENTRIMCONVERT_HEADER_FROMBIN O ADD_MERGE_TOREADDIR COMPARE_BTIMCONVERT_ENTRY_FROMBIN GET_MSGKEY FOR$CLOSE NOADD_MERGE_FROM COMPARE_DATE COMPARE_TIME OADD_MERGE_REST UPDATE_LOGINCONVERT_HEADER_TOBINLIB$RENAME_FILEn0$CODE $PDATA$LOCAL  BULL_FOLDER  BULL_FOLDER1BULL_DIR INPUT_BUFFER FOR$IO_END FOR$IO_X_SE FOR$READ_KU FOR$WRITE_SUFOR$REWRITE_SU P #P@hPtPPP PP{PPPPPP&P<=PAPgPP P +PX 1nww1ϒ016 MINUTE_DIFF0128-Oct-1989 11:3428-Oct-1989 11:34VAX FORTRAN V5.2-33 MINUTE_DIFF MINUTE_DIFFP   PH[Ь Ь(4޼@8LIB$DAY޼PHLIB$DAYkPPP,P  ԫԫfԦkk)  FOR$DELETE˰REC_LOCKP FOR$READ_SU FOR$IO_X_SE FOR$IO_ENDPkkѫ؏CLOSE_BULLFOLDEROPEN_BULLFOLDERԦPgQԁPԫի˸READ_FOLDER_FILE_TEMPի FOR$BJTESTPSET2 FOR$BJTESTPSET2CLR2 *  FOR$WRITE_SF FOR$IO_L_R FOR$BJTESTP FOR$IO_LU_V  FOR$IO_T_DS FOR$I?O_ENDPDISCONNECT_REMOTECLOSE_BULLUSER GET_UPTIMEX}~ ~ ^( nX^ SYS_BINTIMX^զիX( COMPARE_BTIMPXX4GET_NODE_NUMBERЫЫPgXަYЈPPWަXՈPWPԦk FOR$WRITE_SU@ FOR$IO_T_DS  FOR$IO_T_DSf FOR$IO_L_Vݦ FOR$IO_L_V߫H FOR$IO_X_DA߫ FOR$IO_X_DA߫8 FOR$IO_X_DA߫( FOR$IO_X_DA FOR$IO_ENDPkFOR$REWRITE_SU@ FOR$IO_T_DS  FOR$IO_T_DSf FOR$IO_L_Vݦ FOR$IO_L_V߫H FOR$IO_X_DA߫ FOR$IO_X_DA߫8 FOR$IO_X_DA߫( FOR$IO_X_DA FOR$IO_ENDPkCLOSE_BULLUSER KMODIFY_SYSTEM_LIST OPEN_BULLUSERREC_LOCKSET2LIB$SYS_TRNLOG LIB$INDEXCLOSE_BULLFOLDEROPEN_BULLFOLDERREAD_FOLDER_FILE_TEMP FOR$BJTESTCLR2DISCONNECT_REMOTECLOSE_BULLUSER GET_UPTIME SYS_BINTIM COMPARE_BTIMGET_NODE_NUMBEAR$CODE.$PDATA|$LOCAL  BULL_FOLDER  BULL_FOLDER1L HEADER_INFOL BULL_USER FOLDER_TIMES NEW_MESSAGES REMOTE_FOLDERSYSTEM_FOLDERSSHUTDOWN FOR$DELETE FOR$IO_END FOR$IO_LU_V FOR$IO_L_R FOR$IO_L_V FOR$IO_T_DS FOR$IO_X_DA FOR$IO_X_SE FOR$READ_SU FOR$READ_KU FOR$WRITE_SF FOR$WRITE_SUFOR$REWRITE_SU P&Pq)PgP PPXPL P> BP$"PLP^PVP'PP P P P`PC%P0PsPLxP}PP&P!PPPjP`IPgNP_Pymww1@Uϒ01/MOVE0128-Oct-1989 11:3228-Oct-1989 11:32VAX FORTRAN V5.2-33 MOVE0PCORIGINALALLMERGEBULLETIN_NUMBER ERROR: Specified message number has incorrect format.REMOTE.BULLDIRREMOTE.BULLFILFOLDER6 ERROR: You have no privileges to keep original owner.( ERROR: You are not reading any message.( ERROR: Specified message was not found. ERROR: No messages were found.), ERROR: Copy aborted. Remote folder problem.' ERROR: Cannot access specified folder.' ERROR: No access to write into folder.* ERROR: /MERGE invalid into remote folder. ERRORD: No privileges to add permanent message. Expiration will be , days. Successful copy to folder )& ERROR: Copy aborted. No files copied. ERROR: Copy aborted. , files copied.( WARNING: Original messages not deleted.% Multiple deletions not possible for remote folders. MOVELP@  d 4 a PPPP CLI$PRESENT@ E CLI$PRESENT@!! CLI$PRESENT@'' CLI$GET_VALUE@L@((L@04$67, CLI$PRESENT@m <m FOR$OPEN@(  |  | FOR$OPEN@( <(<( t$@F  ( CLI$GET_VALUE@ (   $  (($ (  ($  ( ( t Y Y Y\G Y Y\ CLI$PRESENT@( ((  |L $TBULLETIN_SUBCOMMANDSP aP PQGENERAL 'PPBULL_DIR: G'BULL_DIR: G'BULL_DIR:BULLUSER.DAT ;'QBULL_DIR:BULLFOLDER.DAT 9'QBULL_DIR:BULLINF.DAT <'PO[ː CLI$PRESENTP˘ SHETPRV_PRIVP FOR$WRITE_SF FOR$IO_END˨ CLI$PRESENTPk˸ CLI$PRESENTPW CLI$GET_VALUEP CLI$_ABSENTR ZѫRk FOR$WRITE_SF FOR$IO_ENDOPEN_BULLDIR_SHAREDREADDIRPѫ P FOR$WRITE_SF FOR$IO_END CLOSE_BULLDIR1OPEN_BULLDIR_SHAREDREADDIRժ}! FOR$WRITE_SF FOR$IO_END CLOSE_BULLDIRѫR GET_2_VALSիիIC FOR$WRITE_SF FOR$IO_T_DS FOR$IO_END CLOSE_BULLDIRëPPЫk CLI$PRESENTPЪ}1(FOR$OPENի ˀFOR$OPENի 1 OPEN_BULLFIL ˰READDIRЫ RRPѫ PR  FOR$WRITE_SUP FOR$IO_X_SE FOR$IO_ENDP  FOR$WRITE_SUH FOR$IO_X_SE FOR$IO_ENDPʁPPRP1RPѫ P1R ˼READDIRЫ RRPѫ P1ʁ] GET_MSGKEYJ  FOR$WRITE_SUH FOR$IO_X_SE FOR$IO_ENDPE FOR$WRITE_SF FOR$IO_L_RR FOR$IO_L_V FOR$IO_ENDPDISCONNECT_REMOTEGET_REMOTE_MESSAGEի$ЪMSTժMЫ$  READ_QUEUEʁ  FOR$WRITE_DU 8 FOR$IO_X_SE FOR$IO_ENDPʁSTիЫ R1RR CLOSE_BULLFILիI FOR$WRITE_SF FOR$IO_END FOR$CLOSE FOR$CLOSE CLOSE_BKULLDIR CLOSE_BULLDIR(, CLI$GET_VALUE  SELECT_FOLDER x FOR$WRITE_SF FOR$IO_ENDЫ,(Ы, FOR$CLOSE4 FOR$CLOSEW FOR$WRITE_SF FOR$IO_END FOR$WRITE_SF FOR$IO_ENDЫ,(< SELECT_FOLDERЫH FOR$CLOSEP FOR$CLOSE OPEN_BULLDIR OPEN_BULLFILXREADDIRի ʁ^(ndTRIMP^(PPnL^SXXY,Yn PPQ^1l FILE_LOCKPY}.BULLDIR~xTRIMP^(Pn^SVVXXˀXY^˄ˈFOR$OPENY^Ĺի  FILE_LOCKPY}.BULLFIL~TRIMP^(Pn^SVVXXXY^FOR$OPENY^ԫ W$INITIALIZE_MERGEYի ~^M0~~,  FOR$READ_KU FOR$IO_END]^P ի1ի 1  FOR$READ_SUH FOR$IO_X_SE FOR$IO_ENDP ׫4 GET_MSGKEYCONVERT_ENTRY_FROMBIN@ FOR$BJTESTPL SETPRV_PRIVPT FOR$JIBCLRPY` FOR$BJTESTPl FOR$BJTESTPx SETPRV_PRIVPˀ FOR$JIBCLRPYˌ GET_EXDATE( #ʶ˘ FOR$BJTESTPˤ SETPRV_PRIVPk FOR$WRITE_SF FOR$IO_END- FOR$WRITE_SFN FOR$IO_L_V FOR$IO_ENDˬ FOR$JIBCLRPY˸ GET_EXDATE( #ʶ CLI$PRESENTP(  AC FOR$WRITE_SF FOR$IO_L_R FOR$IO_ENDP ERROR_AND_EXITW ADD_MERGE_TOի ʁM]VЪ]RѪ]VR  FOR$READ_DU  FOR$IO_X_SET FOR$IO_ENDP  WRITE_BULL_FILEʁVRի WADD_MERGE_FROM ADD_ENTRY1WADD_MERGE_REST CLOSE_BULLFIL FOR$COLOSE FOR$CLOSEի  UPDATE_FOLDERP@ @  CLOSE_BULLDIRի 1M FOR$WRITE_SF.~TRIMP^(Pn^SVVZZ ^$  FOR$IO_T_V_DS FOR$IO_ENDWZ ^( .n(TRIMP^(Pn^SX XVV0VZ^48LIB$DELETE_FILEZ^Wl FOR$WRITE_SF FOR$IO_END FOR$WRITE_SFY~ FOR$IO_L_V FOR$IO_ENDЫ,(@ SELECT_FOLDERЫիP k FOR$WRITE_SF FOR$IO_END FOR$WRITE_SF FOR$IO_ENDL CLI$DCL_PARSEP DELETE#P00:00:00.00.BULLDIR;-1 OMOVE CLI$_ABSENTBULLETIN_SUBCOMMANDS CLI$PRESENT SETPRV_PRIV CLI$GET_VALUEOPEN_BULLDIR_SHAREDREADDIR CLOSE_BULLDIR GET_2_VALSFOR$OPEN OPEN_BULLFIL GET_MSGKEYDISCONNECT_REMOTEGET_REMOTE_MESSAGE READ_QUEUE CLOSE_BULLFIL FOR$CLOSE SELECT_FOQLDER OPEN_BULLDIRTRIM FILE_LOCKINITIALIZE_MERGECONVERT_ENTRY_FROMBIN FOR$BJTEST FOR$JIBCLR GET_EXDATEERROR_AND_EXIT ADD_MERGE_TOWRITE_BULL_FILEADD_MERGE_FROM ADD_ENTRYADD_MERGE_REST UPDATE_FOLDERLIB$DELETE_FILE CLI$DCL_PARSEDELETE $CODE9$PDATAt$LOCALPOINTDBULLPARACCESS REMOTE_FOLDERREMOTE_READ_MESSAGE COMMAND_LINEBULL_DIR INPUT_BUFRFERL HEADER_INFOL BULL_USER FOLDER_TIMES NEW_MESSAGES  BULL_FOLDER  BULL_FOLDER1FILES FOR$IO_END FOR$IO_L_R FOR$IO_L_V FOR$IO_T_DS FOR$IO_T_V_DS FOR$IO_X_SE FOR$READ_SU FOR$READ_DU FOR$READ_KU FOR$WRITE_SF FOR$WRITE_SF FOR$WRITE_SU FOR$WRITE_DUP" PwPhzPePPPPPV'P,P+oP{P PP PPIP$PSP" PAP!NPmPPPLP0P P PePQ"P([P{P0PC*P -Pr4Pk;PSPPPPDPPS_PDPP P/PPPPCP OP hP;tP P#P}PtPhP\PY+P ;P7>P'kPuP P]PIP&PPP PP 0P,5P'jPPBPD P T P&f PQk PLo P4r P1 P ww1Q'ϒ01CNEW_MESSAGE_NOTIFICATION0128-Oct-1989 11:3428-Oct-1989 11:34VAX FORTRAN V5.2-33"NEW_MESSAGE_NOTIFICATIONPSELECT_FOLDER There are new messages in folder ).U& Type SELECT followed by foldername to read above messages.( Type READ to read new GENERAL messages. There are @ new messages." There are new messages in folder ).$NEW_MESSAGE_NOTIFICATION P 0 CLI$PRESENT@ ( (4( (4 V     (((  (  4(W 4 PQGENERAL 'PH[Ы \TФ Ф UPDATE_READ0 CLI$PRESENTP8 SELECT_FOLDERk\ D INIT_QUEUEЫOPEN_BULLFOLDER_SHARED_UVԦWPCLR2  \ TEST_BULLCPPdTEST2PpSET2Ыˀ| WRITE_QUEUE1ѤѤˌTEST2P˘TEST2PˤCHANGE_FLAG_NOCMD SET_VERSION1 զTEST2P˰TEST2XP˼TEST2P1READ_FOLDER_FILE_KEYNUMkTEST2P FOR$BJTESTP FOR$JIBSETPƥREWRITE_FOLDER_FILEkCHANGE_FLAG_NOCMDCHANGE_FLAG_NOCMDCHANGE_FLAG_NOCMD(TEST2P4MODIFY_SYSTEM_LIST1  <TEST2PH COMPARE_BTIMP\P@XT COMPARE_BTIMP\ ` COMPARE_BTIMP\)y l MINUTE_DIFFPkk\\xSET2Ыˈ˄ WRITE_QUEUEYUCLOSE_BULLFOLDERЫ 1˔TEST2PЫˤˠ READ_QUEUE\_T˰TEST2P1Ы˼ READ_QUEUEP@ COMPARE_BTIMP1P@ COMPARE_BTIMPU COMPARE_BTIMPUP@@ U& FOR$WRITE_SFTRIMP FOR$IO_T_DS FOR$IO_END\T;\R FOR$WRITE_SF FOR$IO_END SELECT_FOLDERP@  COMPARE_BTIMP Z11FIND_NEWEST_BULL  FOR$WRITE_SF FOR$IO_END \\PԫP P֫ FOR$WRITE_SF\ FOR$IO_L_V FOR$IO_END P@@ _\ԦTEST2P1Ы($ READ_QUEUE4 SELECT_FOLDERk1 @TEST2PL COMPARE_BTIMPTP@\X COMPARE_BTIMPTT1 LOGIN_FOLDER 1dTEST2PpTEST2P[ FOR$WRITE_SF|TRIMP˄ˈ˄ FOR$IO_T_DS FOR$IO_ENDˌTEST2P T¹y* dԫ˘READNEWREDISPLAY_DIRECTORYT \FOR$EXIT@P P::3 HNEW_MESSAGE_NOTIFICATION UPDATE_READ CLI$PRESEN\T SELECT_FOLDER INIT_QUEUEOPEN_BULLFOLDER_SHAREDCLR2 TEST_BULLCPTEST2SET2 WRITE_QUEUECHANGE_FLAG_NOCMD SET_VERSIONREAD_FOLDER_FILE_KEYNUM FOR$BJTEST FOR$JIBSETREWRITE_FOLDER_FILEMODIFY_SYSTEM_LIST COMPARE_BTIM MINUTE_DIFFCLOSE_BULLFOLDER READ_QUEUETRIMFIND_NEWEST_BULL LOGIN_FOLDERREADNEWREDISPLAY_DIRECTORYFOR$EXIT$CODE $PDATA$LOCAL  BULL_FOLDER  BULL]_FOLDER1L HEADER_INFOL BULL_USER FOLDER_TIMES NEW_MESSAGESREADITPOINTSYSTEM_FOLDERSCOMMAND_SWITCHESSHUTDOWN FOR$IO_END FOR$IO_L_V FOR$IO_T_DS FOR$WRITE_SFP~/P:P|P7P/P$PPP P,P PPSPP  PP'P5P-AP!MPfP9PPP%PPPXP9P0P" ^PP%P -PbPoPPPP(PP;SPPPP[PP#MP!kPsPPPPPPPOPCP8*PE3P ?P0OP _Pww1 wϒ014 OPEN_FILE0128-Oct-1989 11:3428-Oct-1989 11:34VAX FORTRAN V5.2-33 OPEN_FILEzP@  _ P ' Cannot open file in OPEN_FILE, unit = , IOSTAT error = , OPEN_FILEPPPP@  P P) y   X  X  `) X      L     a  (  X   PPBULL_DIR: G'BULL_DIR: G'BULL_DIR:BULLUSER.DAT ;'QBULL_DIR:BULLFOLDER.DAT 9'QBULL_DIR:BULLINF.DAT <' PQGENERAL ' aPbPPK[ kK[kK[kK[kK[kK[kK[kK[kԫV DISABLE_CTRLk1 1ˠ FILE_LOCKP1W}.BULLDIR~ˬTRIMP^(Pn^SYYXX˴XW^˸˼FOR$OPENW^ѫW}.BULLDIR~ TRIMP^(Pn^SYYXXXW^FOR$OPENW^իp FOR$INQUIREѫ ˀ FOR$CLOSEˈ FILE_LOCKPCONVERT_BULLFILESVѫ3˔ FILE_LOCKPCONVERT_BUcLLDIRSVVVˠ TIMER_ERR1 k1 1˨ FILE_LOCKPW}.BULLFIL~˴TRIMP^(Pn^SYYXX˼XW^FOR$OPENW^ѫ% FILE_LOCKPCONVERT_BULLFILEVVV TIMER_ERRk1 FILE_LOCKP1FOR$OPENѫTFOR$OPEN FOR$WRITE_SF˘ FOR$IO_T_DSː FOR$IO_X_DAˀ FOR$IO_X_DA FOR$IO_L_RW FOR$IO_L_R W FOR$IO_ENDˠ FOR$CLOSE˨ FILE_LdOCKPѫ%˴ FILE_LOCKPCONVERT_USERFILEVVV TIMER_ERR19k1 FILE_LOCKP1FOR$OPENѫ1,s ,z ,  P), y }FOR$OPEN FOR$WRITE_SF` FOR$IO_T_DS FOR$IO_L_Rh FOR$IO_T_DSp FOR$IO_T_DSx FOR$IO_T_DS FOR$IO_L_V FOR$IO_L_V FOR$IO_L_V0 FOR$IO_T_DS } FOR$IO_L_V߫8 FORe$IO_X_DA FOR$IO_L_R FOR$IO_L_R߫H FOR$IO_X_DA FOR$IO_ENDPl FOR$CLOSEt FILE_LOCKPVVˀ TIMER_ERR1k ˈ FILE_LOCKP˔FOR$OPENѫ% FILE_LOCKPCONVERT_INFFILEVk  FILE_LOCKPW^(nTRIMP^(Pn^SYYXXXW^FOR$OPENW^VV@ TIMER_ERRի4 FOR$WRITE_SFk FOR$IO_L_V FOR$IO_ENDիH FOR$ERRSNSի_f FOR$WRITE_SFݫ FOR$IO_L_V FOR$IO_ENDT SYS_GETMSGENABLE_CTRL_EXITk¹?sPGENERALSYSTEMDefault general bulletin folder.NONE.NOTIFY8 K OPEN_FILE KOPEN_BULLNOTIFY K OPEN_BULLINF *K OPEN_SYSUAF 7KOPEN_BULLFOLDER EK OgPEN_BULLUSER SK OPEN_BULLDIR `K OPEN_BULLFIL DISABLE_CTRL FILE_LOCKFOR$OPENTRIM FOR$INQUIRE FOR$CLOSECONVERT_BULLFILESCONVERT_BULLDIRS TIMER_ERRCONVERT_BULLFILECONVERT_USERFILECONVERT_INFFILE FOR$ERRSNS SYS_GETMSGENABLE_CTRL_EXITo$CODE$PDATA\$LOCALFILES  BULL_FOLDER  BULL_FOLDER1L HEADER_INFOL BULL_USER FOLDER_TIMES NEW_MESSAGESBULL_hDIR INPUT_BUFFER REMOTE_FOLDER DIR_POSITION FOR$IO_END FOR$IO_L_R FOR$IO_L_V FOR$IO_T_DS FOR$IO_X_DA FOR$WRITE_SF FOR$WRITE_SF\P P )P 6P DP RP _P }PPPPE&PU,P3;P\PePP PPPpPP .P=PMPzPPP P\ PMP%sPLP `P7oP(~PPcPTP Pg i(P 6P%XP oww1 ϒ01;OPEN_FILE_SHARED0128-Oct-1989 11:3428-Oct-1989 11:34VAX FORTRAN V5.2-33OPEN_FILE_SHAREDPGENERAL.BULLFILGENERAL.BULLDIRSYSUAFSYS$SYSTEM:SYSUAF.DAT- Cannot open file in OPEN_FILE_SHARE, unit = , IOSTAT error = ,OPEN_FILE_SHAREDPPPP@PPPPj   x LIB$RENAME_FILE@ LIB$RENAME_FILE@)      k  )(/,( FOR$OPEN@4/ FOR$OPEN@  LNM_MODE_EXEC      l PPBULL_DIR: G'BULL_DIR: G'BULL_DIR:BULLUSER.DAT ;'QBULL_DIR:BULLFOLDER.DAT 9'QBULL_DIR:BULLINF.DAT <' PQGENERAL ' aPPBULL_DIR:BULLDIR.DAT <'BULL_DIR:BULLETIN.DAT ;'QPK[K[֫K[֫K[֫K[K[K[֫K[\ԫV DISABLE_CTRL\1m 1L FILE_LOCKP1W}.BULLDIR~XTRIMP^(Pn^SYYXX`XW^dhFOR$OPENW^ѫ- LIB$RENAME_FILELIB$RENAME_FILEP FILE_LOCKPի FOR$INQUIREѫ FOR$CLOSE FILE_LOCKPCONVERT_BULLFILESVѫ3 FILE_LOCKPCONVERT_BULLDIRSVVVENABLE_CTRL_EXIT1  1\k ])E  FOR$WRITE_SF FOR$InO_L_R  FOR$IO_L_V FOR$IO_ENDPERROR_AND_EXIT ]k( GET_REMOTE_MESSAGEԫ1\1 1( FILE_LOCKPW}.BULLFIL~4TRIMP^(Pn^SYYXX<XW^@DFOR$OPENW^ѫ%x FILE_LOCKPCONVERT_BULLFILEVVVENABLE_CTRL_EXIT\˄ FILE_LOCKPːFOR$OPENѫ% FILE_LOCKPCONVERT_USERFILEVVVENABLE_CTRL_EXIT\ FILE_LOCKPFOR$OPENիo8 FOR$INQUIREѫ.H FOR$CLOSEP FILE_LOCKP\CONVERT_BULLFOLDERVVVENABLE_CTRL_EXIT\d FILE_LOCKPˀFOR$OPEN\  FILE_LOCKPFOR$OPENѫ% FILE_LOCKPCONVERT_INFFILEVVVENABLE_CTRL_EXIT\   FILE_LOCKPW^(n,TRIMP^(Pn^SYYXX4XW^8<FOR$OPENW^VV/ENABLE_CTRL_EXITѫ\ˀ SYS$SETDFPROT\ˌ OPEN_FILE˔ SYS$pSETDFPROTիI FOR$WRITE_SF\ FOR$IO_L_V FOR$IO_ENDի ˠ FOR$ERRSNSի z FOR$WRITE_SFݫ FOR$IO_L_V FOR$IO_ENDˬ SYS_GETMSGENABLE_CTRL_EXITù ԫPGENERAL.NOTIFY KOPEN_FILE_SHARED LNM_MODE_EXECENABqLE_CTRL_EXIT KOPEN_BULLNOTIFY_SHARED KOPEN_BULLINF_SHARED 'KOPEN_SYSUAF_SHARED 5KOPEN_BULLFOLDER_SHARED DKOPEN_BULLUSER_SHARED SKOPEN_BULLDIR_SHARED aKOPEN_BULLFIL_SHARED DISABLE_CTRL FILE_LOCKFOR$OPENTRIMLIB$RENAME_FILE FOR$INQUIRE FOR$CLOSECONVERT_BULLFILESCONVERT_BULLDIRSERROR_AND_EXITGET_REMOTE_MESSAGECONVERT_BULLFILECONVERT_USERFILECONVERT_BULLFOLDERCONVERT_INFFIrLE SYS$SETDFPROT OPEN_FILE FOR$ERRSNS SYS_GETMSG$CODE$PDATAp$LOCALFILES  BULL_FOLDER  BULL_FOLDER1L HEADER_INFOL BULL_USER FOLDER_TIMES NEW_MESSAGESBULL_DIR INPUT_BUFFERPOINT REMOTE_FOLDER DIR_POSITION FOR$IO_END FOR$IO_L_R FOR$IO_L_V FOR$WRITE_SF FOR$WRITE_SF P P &P 4P CP RP `P P PPP>sPP&P PV$P33PTP]PzPPPzP PfP4P PPP(P~7PpPPPGP8PPP_PPP0$P!LP\PkP |PGP8PPPcPT P1P&6P!WPl\PgP P%P ww1`Iϒ017 OPEN_NEW_TAG0128-Oct-1989 11:3528t-Oct-1989 11:35VAX FORTRAN V5.2-33 OPEN_NEW_TAGxPBULL_MARK" ERROR: BULL_MARK must be defined. See HELP MARK. Cannot create mark file. IOSTAT error = , OPEN_NEW_TAGHP @@ ` SYS_TRNLNM@X t SYS_TRNLNM_SYSTEM@P  SYS_TRNLNM@PH    D@u@PK@[( SYS_TRNLNMP  FOR$WRITE_SF FOR$IO_END<SYS_TRNLNM_SYSTEMPVV)@P SYS_TRNLNMP DISABLE_PRIVSVW ^( qn\TRIMP^(Pn^SY YX ^( zn XXdXW^h޼˜lFOR$OPENW^V ENABLE_PRIVSռA FOR$WRITE_SF FOR$IO_ENDVk˴ FOR$ERRSNSk] FOR$WRITE_SFݼ FOR$IO_L_V FOR$IO_ENDԼ SYS_GETMSGkzPBULL_MARK:Q.BULLMARKav K OPEN_NEW_TAG SYS_TRNLNMSYS_TRNLNM_SYSTEM DISABLE_PRIVSFOR$OPENTRIM ENABLE_PRIVS FOR$ERRSNS SYS_GETMSG($CODE$PDATA$LOCALL HEADER_INFOL BULL_USER FOLDER_TIMES NEW_MESSAGESTAGSDBULLPAR FOR$IO_END FOR$IO_L_V FOR$WRITE_SF>P=P JPPP[P% P P 7+6(ww1`Iϒw017 OPEN_OLD_TAG0128-Oct-1989 11:3528-Oct-1989 11:35VAX FORTRAN V5.2-33 OPEN_OLD_TAGBPBULL_MARK Unable to open mark file. IOSTAT error = , OPEN_OLD_TAG9 P @  SYS_TRNLNM@  D   PI[$ SYS_TRNLNMPkk\\0 FILE_LOCKPV ^( x;n<TRIMP^(Pn^SX XW ^( Dn WWDWV^HLFOR$OPENV^\kk  FOR$WRITE_SF FOR$IO_ENDիˌ FOR$ERRSNSի' FOR$WRITE_SFk FOR$IO_L_V FOR$IO_END˘ SYS_GETMSGkDPBULL_MARK:Q.BULLMARK2 I OPEN_OLD_TAG SYS_TRNLNM FILE_LOCKFOR$OPENTRIM FOR$ERRSNS SYS_GETMSG$CODEN$PDATA$LOCALL HEADER_INFOL BULL_USER FOLDER_TI yMES NEW_MESSAGESTAGSDBULLPAR FOR$IO_END FOR$IO_L_V FOR$WRITE_SFEP P[+PPP\PWP P"P P4(ww1ϒ018 OPEN_USERINFO0128-Oct-1989 11:3428-Oct-1989 11:34VAX FORTRAN V5.2-33 OPEN_USERINFO4PSYS$LOGIN:BULLETIN.INF-5-NOV-1956 11:05:56 OPEN_USERINFO P z   $ FOR$OPEN@ )   SYS_BINTIM@  SYS_BINTIM@PPH[Ы\OPEN_BULLINF_SHAREDV~~  FOR$READ_KU  FOR$IO_T_DS`R\ަ Sߣ FOR$IO_L_Rc FOR$IO_L_RSR\ FOR$IO_ENDPW TEST_BULLCPP CONFIRM_USERP,- ~~{  FOR$READ_KU  FOR$IO_T_DS`S\ަ Rߢ FOR$IO_L_Rb FOR$IO_L_RRS\ FOR$IO_ENDPWW1Wk,FOR$OPENT FOR$INQUIREk  FOR$READ_SUW\WަR߂ FOR$IO_L_R߂ FOR$IO_L_RW\ FOR$IO_ENDd FOR$CLOSEOPEN_BULLUSER_SHAREDpREAD_USER_FILE_KEYNAMECLOSE_BULLUSERk| TEST_BULLCPPˌ SYS_BINTIMˠ SYS_BINTIMˬREAD_USER_FILE_HEADER ˴WRITE_USER_FILE_NEWk`P\ަR|P\k  FOR$WRITE_SU  FOR$IO_T_DS`R\ަ Wߧ FOR$IO_L_Rg FOR$IO_L_RWR\ FOR$IO_END CLOSE_BULLINF\-PDECNET H OPEN_USERINFOOPEN_BULLINF_SHARED TEST_BULLCP CONFIRM_USERFOR$OPEN FOR$INQUIRE FOR$CLOSEOPEN_BULLUSER_SHAREDREAD_USER_FILE_KEYNAMECLOSE_BULLUSER SYS_BINTIMREAD_USER_FILE_HEADERWRITE_USER_FILE_NEW CLOSE_BULLINF$CODE3$PDATA$LOCAL}L HEADER_INFOL BULL_USER FOLDER_TIMES NEW_MESSAGESUSERINFO FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$READ_SU FOR$READ_KU FOR$WRITE_SUoPGiPvvPiP]PIPPBP>P{YP?fP2PPCP@J>6ww1@ ϒ014 OPER_PRIV0128-Oct-1989 11:3228-Oct-1989 11:32VAX ~FORTRAN V5.2-33 OPER_PRIV P OPER_PRIV6PPH[k FOR$BJTESTd H OPER_PRIV FOR$BJTEST$CODE$PDATA$LOCAL PRIVILEGESww1ϒ016 OUTPUT_HELP0128-Oct-1989 11:3528-Oct-1989 11:35VAX FORTRAN V5.2-33 OUTPUT_HELPPTopic?  OUTPUT_HELP\PPTT`dl\XXXdX PUT_OUTPUT (0`dlt SMG$READ_COMPOSED_LINE@X`dlXllXXTPQXPOP[}PQP }PQP$SMG$CREATE_PASTEBOARD,SMG$CREATE_VIRTUAL_DISPLAY<SMG$PASTE_VIRTUAL_DISPLAY`PSMG$CREATE_VIRTUAL_KEYBOARDhSMG$CREATE_KEY_TABLEpSTR$TRIMˀLBR$INI_CONTROLˌLBR$OPENPQԁ P\WV 1զX1?1զX XX,X PXXXXXXP@ XP@/XXXP,X @PЦX@ԦXwXPQ,P AXYYXP,PI PPY@XXXXX1%XXX˘˜XXˠˤXX˨(ˬXX˰<˴XX˸P˼XXdXXxXXXXXX LBR$GET_HELPPkXkP-@ *PPYYPPPPZIVP^QRZSVT OTS$MOVE5_R5k1X11,SMG$READ_COMPOSED_LINEPk1YVZ ~VPjQQ^(Q@n^SWWXY^(YnYWWX,Xn PPQ^YPPYV ^( nY^(YnYZ ZV,Vn PPQ^ YYDHLSMG$READ_COMPOSED_LINEPkdSTR$TRIMkXP@1kt LBR$CLOSE|SMG$UNPASTE_VIRTUAL_DISPLAY1PSubtopic?  O OUTPUT_HELP PUT_OUTPUTSMG$CREATE_PASTEBOARDSMG$CREATE_VIRTUAL_DISPLAYSMG$PASTE_VIRTUAL_DISPLAYSMG$CREATE_VIRTUAL_KEYBOARDSMG$CREATE_KEY_TABLESTR$TRIMLBR$INI_CONTROLLBR$OPEN LBR$GET_HELPSMG$READ_COMPOSED_LINE LBR$CLOSESMG$UNPASTE_VIRTUAL_DISPLAY$CODE$PDATA$LOCALhHELPLEVELS PAGE OTS$MOVE5_R50PHPPPPPPPPP%P"FP=mP uPPPHP)PPPP PPPPPP P ww1@"bϒ010PRINT0128-Oct-1989 11:3228-Oct-1989 11:32VAX FORTRAN V5.2-33 PRINTxP*l6 BULLETIN_NUMBERALLSYS$LOGIN:BULL.LISHEADERQUEUENOTIFYFORMSYS$LOGIN:BULL.LIS;)F ERROR: Unable to open temporary file SYS$LOGIN:BULL.LIS for printing.& ERROR: You have not read any message.6 ERROR: Specified message number has incorrect format.( ERROR: Specified message was not found. Description: )From: )Date: ) PRINTP5  A@ $D CLI$GET_VALUE@@@hld-- CLI$PRESENT@1 1 FOR$OPEN@dD4D CLI$PRESENT@pd]Mx]Mx]MxKK CLI$GET_VALUE@xx Q Q CLI$PRESENT@X@X CLI$PRESENT@XPX CLI$GET_VALUE@||]] LIB$DELETE_FILE@d]] LIB$DELETE_FILE@ddaP PQGENERAL 'PHd[\ CLI$GET_VALUEPk CLI$_ABSENTPkPl GET_2_VALSˌ CLI$PRESENTPk FOR$WRITE_SF FOR$IO_ENDkիk FOR$WRITE_SF FOR$IO_END˔ SETPRV_PRIVP DISABLE_PRIVSˤFOR$OPENP1 ENABLE_PRIVSOPEN_BULLDIR_SHAREDOPEN_BULLFIL_SHARED CLI$PRESENTP\ЫVЫ ѫ1WREADDIR PkPѫ  FOR$WRITE_SF FOR$IO_END FOR$CLOSE CLOSE_BULLFIL CLOSE_BULLDIR1ѫ q FOR$WRITE_SF FOR$IO_T_DS FOR$IO_END< GET_BULL_LINEի1)o\[ FOR$WRITE_SFPP FOR$IO_T_DS}~ ~ ^( n^  FOR$IO_T_V_DS FOR$IO_END$ GET_BULL_LINE\[ FOR$WRITE_SF, FOR$IO_T_DS}~ ~ ^( n8^<8 FOR$IO_T_V_DS FOR$IO_ENDի)u\I FOR$WRITE_SFPP@D@ FOR$IO_T_DS FOR$IO_END\I FOR$WRITE_SF$ FOR$IO_T_DS FOR$IO_ENDիq FOR$WRITE_SFHLH FOR$IO_T_DS FOR$IO_ENDիP GET_BULL_LINEիq FOR$WRITE_SFdhd FOR$IO_T_DS FOR$IO_ENDV l FOR$CLOSE CLOSE_BULLFIL CLOSE_BULLDIR INIT_ITMLST1^ˀt ADD_2_ITMLST^ˌ CLI$GET_VALUEի, { ^˨˜ ADD_2_ITMLST^ˬ ADD_2_ITMLST CLI$PRESENTP ADD_2_ITMLST CLI$PRESENTP CLI$GET_VALUE^ ADD_2_ITMLST^ SETPRV_PRIVP DISABLE_PRIVS END_ITMLSTЫ4$ SYS$SNDJBCWPkk諜D SYS_GETMSGTLIB$DELETE_FILEk\ SYS_GETMSGlLIB$DELETE_FILE ENABLE_PRIVSt FOR$ERRSNS ENABLE_PRIVSs FOR$WRITE_SF FOR$IO_ENDˀ SYS_GETMSGoPFrom: Subj: SYS$PRINT` HPRINT CLI$_ABSENT CLI$GET_VALUE GET_2_VALS CLI$PRESENT SETPRV_PRIV DISABLE_PRIVSFOR$OPEN ENABLE_PRIVSOPEN_BULLDIR_SHAREDOPEN_BULLFIL_SHAREDREADDIR FOR$CLOSE CLOSE_BULLFIL CLOSE_BULLDIR GET_BULL_LINE INIT_ITMLST ADD_2_ITMLST END_ITMLST SYS$SNDJBCW SYS_GETMSGLIB$DELETE_FILE FOR$ERRSNS$CODE$PDATA$LOCALBULL_DIR INPUT_BUFFER  BULL_FOLDER  BULL_FOLDER1POINTDBULLPAR FOR$IO_END FOR$IO_T_DS FOR$IO_T_V_DS FOR$WRITE_SFP )PP7PGP2OP~PPPPPUP9P.EPNP!P}PoP^PPPJUPJ cP<fP4P[P P0PC P0PP PP$P(P<PBPww1fϒ017 PRINT_OUTPUT0128-Oct-1989 11:3528-Oct-1989 11:35VAX FORTRAN V5.2-33 PRINT_OUTPUT P) PRINT_OUTPUTP PH[}PQPk FOR$WRITE_SFTRIMP FOR$IO_T_DS FOR$IO_ENDPЫP H PRINT_OUTPUTTRIMU$CODE$PDATA$LOCAL FOR$IO_END FOR$IO_T_DS FOR$WRITE_SFP1KP Uww1ϒ015 PUT_OUTPUT0128-Oct-1989 11:3528-Oct-1989 11:35VAX FORTRAN V5.2-33 PUT_OUTPUT'P Press RETURN to continue ...  PUT_OUTPUTPP(0P LIB$PUT_OUTPUT@`d ` SMG$READ_COMPOSED_LINE@X  XQ8  'PO[}PQPkVWӼԧ\gPPXXPPPPYHZP^QRYSZT OTS$MOVE5_R51P1Ѽ1Ӽ1PXHX-X@ *мP@XXYI XP%lPwPPPP}PaPPP:P5#P%LP bPrPPP  PjPP:P P["P)P:cP _Snvww1cϒ01/READ0128-Oct-1989 11:3228-Oct-1989 11:32VAX FORTRAN V5.2-33 READ;PMARKEDPAGESINCE-- 00:00:00.00NEWBULLETIN_NUMBEREDIT 1900! ERROR: No marked messages found. No new messages are present.! No messages past specified date. of )) From: ) Subj: ))( ERROR: Specified message was not found. Press RETURN for more... READXP5  A   " CLI$PRESENT@8 CLI$PRESENT@ CLI$PRESENT@ CLI$GET_VALUE@ SYS$BINTIM@pp)8) CLI$PRESENT@p` CLI$PRESENT@)p) CLI$PRESENT@8-- CLI$PRESENT@88888888== CLI$PRESENT@Bx,xBxHxxxxEhxx]MxHxx]MxHxLxxPxB(BD]MxHxLPPxPPP]MTHaP PQGENERAL ',PPO,[tLIB$ERASE_PAGEԫռ1Y ԫZ)21ˈ CLI$PRESENTPː GET_FIRST_TAGի J FOR$WRITE_SF FOR$IO_END˨ CLI$PRESENTPԫ˸ CLI$PRESENTP CLI$GET_VALUEP - 6 SYS$BINTIMP GET_MSGKEY SYS_BINTIM GET_MSGKEY CLI$PRESENTPP@   COMPARE_BTIMPn FOR$WRITE_SF FOR$IO_ENDP@ ,( GET_MSGKEY< CLI$PRESENTPL CLI$PRESENTPOPEN_BULLDIR_SHAREDT READDIR_KEYGE CLOSE_BULLDIRի  FOR$WRITE_SF FOR$IO_ENDЫ ֫ Y1ԫ);- n)2d CLI$PRESENTP)?}}aXԫ ի )X޼xl GET_NEXT_TAGի }aRX޼ˈ| GET_NEXT_TAGXR ԫ Y޼˘ˌGET_THIS_OR_NEXT_TAGOPEN_BULLDIR_SHARED˜READDIR CLOSE_BULLDIR}a޼˴˨ GET_NEXT_TAGի  ԫ XY1)?ռOPEN_BULLDIR_SHARED޼˼˸READDIRѼPѫ PԼREADDIRը}Ш}޼READDIRԫ CLOSE_BULLDIRԫ Pѫ P FOR$WRITE_SF FOR$IO_ENDP@  COMPARE_BTIMPPh@ Ш@ м)2)C CLI$PRESENTP^ READ_EDITTRIMPYL FOR$WRITE_IF FOR$IO_L_V FOR$IO_L_V FOR$IO_END LIB$INDEXPRTRIMRP$ LIB$INDEXPRPSST,R@i TCi0TRIM8TRIMPP^(Pn^SV #~V,Vn iPQ^ PPV, V@i  FOR$WRITE_SF@TRIMP^(Pin^SV+~VVH^LH FOR$IO_T_V_DS FOR$IO_END FOR$WRITE_SFPTRIMPXi\X FOR$IO_T_DS FOR$IO_ENDYVh LIB$INDEXP)ȲG ^( In^(Ƞn ~ ^( ȕn}Date: ~,%n iQ^1VPP^(Un^(Ƞn ~ ^( ȕn}Date: ~,/n iQ^1VPP ^( kn^(Ƞn ~ ^( ȕn}Date: ~,%n iQ^^(ȶn ~ ^( ȫn^(wn^(Ƞn ~ ^( ȕn}Date: ~,8n iQ^ĹڻVV ^( ntTRIMP^(Pin^SW WV,Vn iPQ^ FOR$WRITE_SF|TRIMP˄iˈ˄ FOR$IO_T_DS FOR$IO_ENDVOPEN_BULLFIL_SHAREDԫ<ˌ GET_BULL_LINEի1)i1^(n}From: ~(ni^ˠTRIMP˨TRIM WWPPW FOR$WRITE_SFW˰i˴˰ FOR$IO_T_DS FOR$IO_ENDWP,PGi iV FOR$WRITE_SF4 FOR$IO_T_DS FOR$IO_ENDV)i˸ GET_BULL_LINEЫ  CONVERT_TABSի1)i1^(n}Subj: ~(ni^TRIMPTRIM WWPPW FOR$WRITE_SFWi FOR$IO_T_DS FOR$IO_ENDWP,PGi iV  FOR$WRITE_SF, FOR$IO_T_DS FOR$IO_ENDV< CLOSE_BULLFIL FOR$WRITE_SF FOR$IO_END  FOR$WRITE_SF FOR$IO_ENDVkk$ INIT_QUEUEЫ$kѼШ]Ш]1 1l FOR$WRITE_IF FOR$IO_L_V FOR$IO_L_V FOR$IO_END LIB$INDEXPVTRIMVP  LIB$INDEXPVPWWZ,V@ ZG,TRIMPP^(Pn^SW #~W,Wn PQ^ PPW, W@ FOR$WRITE_SF4TRIMP<@< FOR$IO_T_DS FOR$IO_ENDk$ WOPEN_BULLFIL_SHAREDXX1ի1իD GET_BULL_LINEիԫX1ի1իЫ X CONVERT_TABSѫ  ,  Ы$hd WRITE_QUEUEЫ$xt WRITE_QUEUE  PPZѫ ZPP V,V@ Ы$ˈ˄ WRITE_QUEUEԫPPZ,Z@ Ы$˘˔ WRITE_QUEUEWë PPWPX1 CLOSE_BULLFILk$XW1Ы$˨ˤ READ_QUEUEX  FOR$WRITE_SF˴TRIMP^(Pn^SV+~VV˼^˼ FOR$IO_T_V_DS FOR$IO_END FOR$WRITE_SFTRIMP FOR$IO_T_DS FOR$IO_ENDWX`իԼTEST_MORE_RECORDSի(TEST_MORE_LINESի  FOR$WRITE_SF FOR$IO_ENDԼ  FOR$WRITE_SF FOR$IO_END2PREADTODAYNEXTBACKCURR18 (DELETED) Expires on shutdown Permanent Expires: / SystemFrom: Subj: f OREADLIB$ERASE_PAGE CLI$PRESENT GET_FIRST_TAG CLI$GET_VALUE SYS$BINTIM GET_MSGKEY SYS_BINTIM COMPARE_BTIMOPEN_BULLDIR_SHARED READDIR_KEYGE CLOSE_BULLDIR GET_NEXT_TAGGET_THIS_OR_NEXT_TAGREADDIR READ_EDITTRIM LIB$INDEXOPEN_BULLFIL_SHARED GET_BULL_LINE CONVERT_TABS CLOSE_BULLFIL INIT_QUEUE WRITE_QUEUE READ_QUEUETEST_MORE_RECORDSTEST_MORE_LINES $CODE$PDATA$LOCALPOINTBULL_DIR INPUT_BUFFER  BULL_FOLDER  BULL_FOLDER1L HEADER_INFOL BULL_USER FOLDER_TIMES NEW_MESSAGESREADIT PAGE COMMAND_LINE READ_DISPLAYTAGS FOR$IO_END FOR$IO_L_V FOR$IO_T_DS FOR$IO_T_V_DS FOR$WRITE_SF FOR$WRITE_IFePd (PBPOOP/]PPPJPPPXPL PGP SP?oPP2PPP PPPx PP0P/CP^PdPjkPcnPP>PPP PPPPjPfP^P5$P*5PKPWPePPPPP P iP*PH1P6xP P;PP9PP9FPLP/(P5PlP[P&P P+P`P[P;P P1 PP PV Pn P ~ P  P P. P P P P P  P P PS P'# P4 PqR P- P& P P P PP PH? P6 P Pd P6 P  P P P! P    ww1`ϒ012READACL0128-Oct-1989 11:3428-Oct-1989 11:34VAX FORTRAN V5.2-33READACLP,ACCESSWRITEREAD=ACCESS/ These users can read and write to this folder:' These users can only read this folder:% The following are rights identifiers which will give privileges.)READACLlPPOTlh||$|8|L`|t|PPBULL_DIR: G'BULL_DIR: G'BULL_DIR:BULLUSER.DAT ;'QBULL_DIR:BULLFOLDER.DAT 9'QBULL_DIR:BULLINF.DAT <'OP=[,POT[ ^}PQP}PQ$P INIT_ITMLST޼ <$^D8 ADD_2_ITMLST^H END_ITMLSTk`PSYS$CHANGE_ACLP ԫ1ѫ 1 ЭP@$PPpЭQA$txSYS$FORMAT_ACLPˠ LIB$INDEXPRѫRPPPRQPˬA˰˼ LIB$INDEXPѫ1RPPPRPB LIB$INDEXP1 LIB$INDEXPV LIB$INDEXPWWTD]TVVRB LIB$INDEXPRVVTWVTD˴*( LIB$INDEXPV< LIB$INDEXPWի- Pѫ$ FOR$WRITE_SF FOR$IO_ENDV FOR$WRITE_SF FOR$IO_END FOR$WRITE_SF FOR$IO_ENDVWPPZZXXP FOR$WRITE_SFPPHˬLH FOR$IO_T_DS FOR$IO_END,~VPPWRR^(R@n^SYYP,Pn PˬPQ^Z1XP FOR$WRITE_SFVPPWXX^(X@nXYPP^(Pˬn^SXXYYP^TP FOR$IO_T_V_DS FOR$IO_END,~VPPWW^(W@nWZZYPPPZ,Yn Z@ˬPQ^ЭP@$PP 1Iѫ FOR$WRITE_SFPPXˬ\X FOR$IO_T_DS FOR$IO_END OREADACL INIT_ITMLST ADD_2_ITMLST END_ITMLSTSYS$CHANGE_ACLSYS$FORMAT_ACL LIB$INDEX`$CODE$PDATA$LOCALFILES FOR$IO_END FOR$IO_T_DS FOR$IO_T_V_DS FOR$WRITE_SFmPwPP*P4P(P8PNTPlPPbP8PPP PfmPxP[P ;%P2aUi`ww1ϒ012READDIR0128-Oct-1989 11:3428-Oct-1989 11:34VAX FORTRAN V5.2-33READDIR/P>NL:BULL_CLEANUPREADDIRPd4a' (X lt LIB$SPAWN@| LIB$SPAWN@ LIB$SPAWN@ aP PQGENERAL 'PK[ЬмVռ14REC_LOCKP~~?< FOR$READ_KU FOR$IO_X_SE FOR$IO_ENDPkkCONVERT_HEADER_FROMBIN ! FOR$WRITE_SF FOR$IO_L_R FOR$IO_L_R FOR$IO_ENDPk! FOR$READ_SF߼ FOR$IO_L_R FOR$IO_T_DS FOR$IO_ENDPkk1ERROR_AND_EXITk1զ} CLOSE_BULLDIR OPEN_BULLDIRDCLEANUP_DIRFILE UPDATE_FOLDERƑ ƑƑ1L TEST_BULLCPP%, FOR$WRITE_IF FOR$IO_L_V FOR$IO_ENDW^(n ^( (n\ LIB$INDEXPP^(Pn^SY YX$~XXhXW^lˈ LIB$SPAWNW^ƑCLEANUP_BULLFILE1CONVERT_HEADER_FROMBIN1ˠREC_LOCKPP P FOR$READ_SU  FOR$IO_X_SE FOR$IO_ENDPkѦ$k~~߫ FOR$READ_KU  FOR$IO_X_SE FOR$IO_ENDPkk˨ GET_MSGKEYCONVERT_ENTRY_FROMBINЦ  ! FOR$WRITE_SF FOR$IO_L_Rݼ FOR$IO_L_V FOR$IO_ENDPk! FOR$READ_SF߼ FOR$IO_L_R  FOR$IO_T_DS FOR$IO_ENDPkkERROR_AND_EXITkּ FOR$UNLOCKCONVERT_ENTRY_FROMBIN(P/CLEANUP=k KREADDIRREC_LOCKCONVERT_HEADER_FROMBINERROR_AND_EXIT CLOSE_BULLDIR OPEN_BULLDIRCLEANUP_DIRFILE UPDATE_FOLDER TEST_BULLCP LIB$SPAWN LIB$INDEXCLEANUP_BULLFILE GET_MSGKEYCONVERT_ENTRY_FROMBIN$CODE1$PDATA$LOCALBULL_DIR INPUT_BUFFER  BULL_FOLDER  BULL_FOLDER1'PROMPT REMOTE_FOLDER DIR_POSITION FOR$UNLOCK FOR$IO_END FOR$IO_L_R FOR$IO_L_V FOR$IO_T_DS FOR$IO_X_SE FOR$READ_SF FOR$READ_SU FOR$READ_KU FOR$WRITE_SF FOR$WRITE_IF P(PK6P)9P!cP rPvP4P4P.PPP%P6PCPtPPP/PPhP.P$P)P).P![PuP P{P1P4P.PP|pl  ww1Kϒ018 READDIR_KEYGE0128-Oct-1989 11:3428-Oct-1989 11:34VAX FORTRAN V5.2-33 READDIR_KEYGEP READDIR_KEYGEHPd aPPH[1޼REC_LOCKP  FOR$READ_KU FOR$IO_X_SE FOR$IO_ENDPռ GET_MSGKEYCONVERT_ENTRY_FROMBINԼ FOR$UNLOCK1 FOR$WRITE_SF FOR$IO_L_R FOR$IO_L_R  FOR$IO_T_DS FOR$IO_ENDP  FOR$READ_SFk FOR$IO_L_R FOR$IO_T_DS FOR$IO_ENDPռERROR_AND_EXITCONVERT_ENTRY_FROMBINb H READDIR_KEYGEREC_LOCK GET_MSGKEYCONVERT_ENTRY_FROMBINERROR_AND_EXIT0$CODE$PDATA($LOCALBULL_DIR INPUT_BUFFER REMOTE_FOLDER  DIR_POSITION FOR$UNLOCK FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$IO_X_SE FOR$READ_SF FOR$READ_KU FOR$WRITE_SFVP#P,&P!TP'xP PP>P4P-P P4(50ww1wϒ012READNEW0128-Oct-1989 11:3228-Oct-1989 11:32VAX FORTRAN V5.2-33READNEW2PSYS$LOGIN:[@+uit+xit+o( ERROR: Specified new message not found.+Quit+Dir+ )+Read Enter message number: ) ERROR: Invalid message number specified.M Read messages? Type N(No),E(Exit),message number, or any other key for yes:  No more messages.-L Type Q(Quit), F(File it), D(Dir), R(Read msg #) or other for next message: -J Type Q(Quit), F(File), N(Next), D(Dir), R(Read msg #) or other for MORE:  Message written to ) Description: 5From:   Date: READNEWP@5  A  PQdpx  0 LIB$SYS_TRNLOG@|H@h|th h]M|hh]M|h daP PQGENERAL 'XPQPOX[kV Pt SLOW_TERMINALP@ FOR$WRITE_SF FOR$IO_END| GET_INPUT_NUMˈ STR$UPCASEl FOR$READ_IF߫ FOR$IO_L_R FOR$IO_ENDP1ENQ1Q FOR$WRITE_SF FOR$IO_ENDE% FOR$WRITE_SF FOR$IO_ENDP QRҁSSPPQՁVkPFOR$EXIT- FOR$WRITE_SF FOR$IO_ENDVk˔LIB$ERASE_PAGEիPѫPѫ}3 FOR$WRITE_SF FOR$IO_END1 ԫ ~^˨ˠREAD^ իOPEN_BULLDIR_SHARED ~^˰ˬREADDIR^ Pѫ PY˸ FOR$BJTESTP  CLOSE_BULLDIRի+ FOR$WRITE_SF FOR$IO_END FOR$WRITE_SF FOR$IO_ENDGET_INPUT_NOECHO STR$UPCASEQ^ FOR$WRITE_SF FOR$IO_ENDVkDg FOR$WRITE_SF FOR$IO_ENDVkF1o FOR$WRITE_SF FOR$IO_ENDV1LIB$SYS_TRNLOGW}BULL.DIR~P^(PnXXW^ LIB$FIND_FILEW^P^('n$PP^(Pn^SXXW,Wn PPQ^$V, - P VTRIMPWX^(7nW^(W nWYYZV^(VnVYYZ^(=nZZZX^GET_INPUT_PROMPTX^@ݏ.LISW^(W nWZZXV^(VnVZZX,Xn @PQ^VWW@1W@(g,0LIB$SYS_TRNLOGPѫ@@gDP LIB$INDEXP@\g`l LIB$INDEXP§@^(@gnЧ@XV^(VnVZZX,Xn @gPQ^V@]XMZOPEN_BULLDIR_SHAREDOPEN_BULLFIL_SHAREDxREADDIR˄ SETPRV_PRIVP DISABLE_PRIVS@ˌː˔FOR$OPENP1 FOR$WRITE_SF< FOR$IO_T_DS FOR$IO_END FOR$WRITE_SFD FOR$IO_T_DS^(n ~ ^( n^ FOR$IO_T_V_DS FOR$IO_END<$ի$ GET_BULL_LINEի$t FOR$WRITE_SFTRIMP  FOR$IO_T_DS FOR$IO_ENDի$ FOR$WRITE_SF@ FOR$IO_T_DS FOR$IO_ENDի FOR$ERRSNS SYS_GETMSG  FOR$CLOSEի<$YW GET_BULL_LINEYW CLOSE_BULLFIL CLOSE_BULLDIRZMX] ENABLE_PRIVS1ի1NԫOPEN_BULLDIR_SHARED ~^,(READDIR^ PѫP CLOSE_BULLDIR FOR$WRITE_SF FOR$IO_ENDVkY4 FOR$BJTESTP  CLOSE_BULLDIR1R1v FOR$WRITE_SF FOR$IO_END~ FOR$WRITE_SF FOR$IO_END¹X@ GET_INPUT_NUML STR$UPCASEl FOR$READ_IF߫ FOR$IO_L_R FOR$IO_ENDPի FOR$WRITE_SF FOR$IO_END11 Pѫ Pի FOR$WRITE_SF FOR$IO_ENDVkի1@dP@P'P.BULL]SYS$LOGIN:QName of file? (Default=Q.LIS) J OREADNEW SLOW_TERMINAL GET_INPUT_NUM STR$UPCASEFOR$EXITLIB$ERASE_PAGEREADOPEN_BULLDIR_SHAREDREADDIR FOR$BJTEST CLOSE_BULLDIRGET_INPUT_NOECHOLIB$SYS_TRNLOG LIB$FIND_FILETRIMGET_INPUT_PROMPT LIB$INDEXOPEN_BULLFIL_SHARED SETPRV_PRIV DISABLE_PRIVSFOR$OPEN GET_BULL_LINE FOR$ERRSNS SYS_GETMSG FOR$CLOSE CLOSE_BULLFIL ENABLE_PRIVS$CODET$PDATA$LOCALDBULLPARL HEADER_INFOL BULL_USER FOLDER_TIMES NEW_MESSAGESBULL_DIR INPUT_BUFFER  BULL_FOLDER  BULL_FOLDER1SYSTEM_FOLDERSPOINT READ_DISPLAY PAGE FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$IO_T_V_DS FOR$WRITE_SF FOR$READ_IFP0PPP UP!~PPP PPPnPQP@P8KP UPPUPPP PPFPjP!PPP73PPDPP[,PCDP+PPDPKRP8P3PP(PBPJP}~P!PP PPP!9P>PiP"nPP Pww1?ϒ013READ_AST0128-Oct-1989 11:3528-Oct-1989 11:35VAX FORTRAN V5.2-33READ_A STREAD_ASTPPH[޼PPQA@PkEXECUTE_COMMANDkP@ READ_CHAN HREAD_ASTEXECUTE_COMMAND READ_CHANC$CODE$PDATA$LOCALREADBUFPACTIVITYP# Cww1`9ϒ014 READ_CHAN0128-Oct-1989 11:3528-Oct-1989 11:35VAX FORTRAN V5.2-33 READ_CHAN  READ_CHANP IO$_READVBLKREAD_ASTPH[мP@lмP>@мŏP@kSYS$QIO H READ_CHANREAD_AST IO$_READVBLKSYS$QIOH$CODE$PDATA4$LOCALREADBUF Hww1Jkϒ014 READ_EDIT0128-Oct-1989 11:3228-Oct-1989 11:32VAX FORTRAN V5.2-33 READ_EDITYPSYS$LOGIN:BULL.SCR SYS$LOGIN:BULL.SCR;*) Description: )From: ) Date: ) READ_EDIT P5  A $ FOR$OPEN@]M]M]M MAILEDIT@ MAILEDIT@ LIB$DELETE_FILE@aP PQGENERAL 'P FOR$WRITE_SFPP|ˀ| FOR$IO_T_DS}~ ~ ^( n˄^ˈ˄ FOR$IO_T_V_DS FOR$IO_ENDˌ GET_BULL_LINE> FOR$WRITE_SF FOR$IO_T_DS}~ ~ ^( nˠ^ˤˠ FOR$IO_T_V_DS FOR$IO_ENDի)X, FOR$WRITE_SFPP˨ˬ˨ FOR$IO_T_DS FOR$IO_END, FOR$WRITE_SF L FOR$IO_T_DS FOR$IO_ENDի* FOR$WRITE_SF˰˴˰ FOR$IO_T_DS FOR$IO_ENDի˸ GET_BULL_LINEի* FOR$WRITE_SF FOR$IO_T_DS FOR$IO_END FOR$CLOSE CLOSE_BULLFILMAILEDITLIB$DELETE_FILERPFrom: Subj: i P7DPOP$ZPrPP*P P PP$0PBP-tPwPP3P0fP lP xww1@+ϒ012REPLACE0128-Oct-1989 11:3328-Oct-1989 11:33VAX FORTRAN V5.2-33REPLACEP NUMBERSYSTEMSHUTDOWNPERMANENTEXPIRATIONGENERALHEADERSUBJECTTEXTSYS$LOGIN:BULL.SCRFILESPECEDITNEW SYS$LOGIN:BULL.SCR;-1 ERROR: Unable to replace message.@2 ERROR: Not enough privileges to change to system.3 ERROR: /SYSTEM cannot be set with selected folder.4 ERROR: Not enough privileges to change to shutdown.5 ERROR: /SHUTDOWN cannot be set with selected folder. ERROR: Shutdown node name not permitted for remote folder.5 ERROR: Not enough privileges to change to permanent.)) ERROR: Input line length > , . Reinput:: ERROR: Message has been deleted by another user. New text has been saved in SYS$LOGIN:BULL.SCR.)3 Enter message: End with ctrl-z, cancel with ctrl-c( ERROR: You are not reading any message. No message was replaced.( ERROR: Specified message was not found.& ERROR: Unable to open specified file.5 ERROR: Line length in file exceeds ',I,' characters. Enter description header.. ERROR: Sppecified message is not owned by you. Message is not owned by you.& Are you sure you want to replace it? REPLACE`P@5       CLI$PRESENT@ CLI$GET_VALUE@`@ CLI$PRESENT@&& CLI$PRESENT@& & CLI$GET_VALUE@` /4/ CLI$PRESENT@48 9t9 CLI$PRESENT@DD CLI$PRESENT@ CLI$PRESENT@LL CLI$PRESENT@SS CLI$PRESENT@[[ CLI$PRESENT@&& CLI$PRESENT@ // CLI$PRESENT@ 99 CLI$PRESENT@8LL CLI$PRESENT@S S CLI$PRESENT@S0S CLI$GET_VALUE@<[H[ CLI$PRESENT@` X` FOR$OPEN@8H88]ML]ML]ML]ML[[ CLI$PRESENT@[ [ CLI$PRESENT@ss CLI$GET_VALUE@`@|4| CLI$PRESENT@|D| CLI$PRESENT@|T| CLI$PRESENT@|d| CLI$PRESENT@t CLI$PRESENT@` ` FOR$OPEN@]ML]ML]ML]ML`` MAILEDIT@ MAILEDIT@`8@` MAILEDIT@T LIB$DELETE_FILE@`d` FOR$OPEN@  L` ` FOR$OPEN@L4848[L[ CLI$PRESENT@88DtT<T@T8"484848 99 CLI$PRESENT@ // CLI$PRESENT@& & CLI$PRESENT@4 CLI$PRESENT@YDPD CLI$PRESENT@Y48x CLI$PRESENT@YDD CLI$PRESENT@X // CLI$PRESENT@X&& CLI$PRESENT@X 99 CLI$PRESENT@X 9 9 CLI$PRESENT@5aP PQGENERAL 'PO4[Ы\V˄ CLI$PRESENTP FOR$WRITE_SF FOR$IO_END\k˔ CLI$GET_VALUEfݦ@ FOR$DECODE_MFk FOR$IO_L_R FOR$IO_ENDˬ CLI$PRESENTP˴ SETPRV_PRIVP FOR$WRITE_SF FOR$IO_END\˼ FOR$BJTESTP FOR$WRITE_SF FOR$IO_END\ CLI$PRESENTP1 SETPRV_PRIVP1 FOR$WRITE_SF FOR$IO_END\ FOR$BJTESTPh FOR$WRITE_SF FOR$IO_END\ CLI$GET_VALUE CLI$_ABSENTQPQ FOR$WRITE_SF FOR$IO_END\  CLI$PRESENTP SETPRV_PRIVP FOR$WRITE_SF FOR$IO_END\OPEN_BULLDIR_SHAREDREADDIR CLOSE_BULLDIRkPѫP9 FOR$WRITE_SF FOR$IO_END\)  A1 $ SETPRV_PRIVP )  , SETPRV_PRIVP FOR$WRITE_SF FOR$IO_END\ FOR$WRITE_SF FOR$IO_END FOR$READ_SFt FOR$IO_T_DS FOR$IO_ENDP4 STR$UPCASE쑫Y\X˸ CLI$PRESENTP˨ CLI$PRESENTP˘ CLI$PRESENTPˈ CLI$PRESENTPx CLI$PRESENTPh CLI$PRESENTPH CLI$PRESENTPX CLI$PRESENTPX DISABLE_CTRL YX CLI$PRESENTP GET_EXPIRED1( i( ԫX CLI$PRESENTP FOR$WRITE_SF FOR$IO_END FOR$READ_SF߫ FOR$IO_L_Rl FOR$IO_T_DS FOR$IO_ENDի1 CLI$PRESENTP CLI$GET_VALUEPի^(n^(\n(n^PZZPPZZZԫWXի CLI$PRESENTP1,FOR$OPENիT FOR$ERRSNS` SYS_GETMSG1OPEN_BULLFIL_SHAREDZ<h GET_BULL_LINEի)ib,i Ы| GET_BULL_LINEի)i\իX,i Ыː GET_BULL_LINEի FOR$WRITE_SFﰫˤi˨ˤ FOR$IO_T_DS FOR$IO_ENDˬ GET_BULL_LINE CLOSE_BULLFILX CLI$PRESENTP FOR$CLOSEX CLI$PRESENTP1\TZ CLI$GET_VALUEP CLI$_ABSENTPѫP CLI$PRESENTP1 CLI$PRESENT CLI$_NEGATEDQPQ1( CLI$PRESENTP18 CLI$PRESENT CLI$_NEGATEDQPQ1զ@1ĹH CLI$PRESENTP1XFOR$OPENP1OPEN_BULLFIL_SHARED<ˀ GET_BULL_LINEի)ib˔ GET_BULL_LINEի)i\˨ GET_BULL_LINEի FOR$WRITE_SFﰫ˼i˼ FOR$IO_T_DS FOR$IO_END GET_BULL_LINE CLOSE_BULLFIL FOR$CLOSEMAILEDIT SETPRV_PRIVP DISABLE_PRIVS@fMAILEDIT(LIB$DELETE_FILEP8FOR$OPENP1զ@\ SETPRV_PRIVP DISABLE_PRIVS@dfhlFOR$OPENP1 ENABLE_PRIVS~ FOR$READ_SF߫ FOR$IO_L_RL FOR$IO_T_DS FOR$IO_ENDѫ˔STR$TRIMի\PP\\Tի\\Z FOR$WRITE_SF  FOR$IO_L_R FOR$IO_END FOR$CLOSE1ˬFOR$OPENP1 FOR$WRITE_SF FOR$IO_END횏ի1GET_LINEѫ FOR$WRITE_SF  FOR$IO_L_R FOR$IO_ENDի\PP\ FOR$WRITE_SFﰫi FOR$IO_T_DS FOR$IO_END\Tի\ FOR$WRITE_SFi FOR$IO_T_DS FOR$IO_END\1EѫT\ FOR$WRITE_SF FOR$IO_END FOR$CLOSEP11d FOR$WRITE_SF FOR$IO_END ENABLE_PRIVS1( Ǖ( Ǡ,5 i OPEN_BULLDIRREADDIR-i 5 kPѫP) Ǖ) Ǡ1kPѫP,n ǕkkTѫT-5 i) Ǖ) ǠTkREADDIRѫT CLOSE_BULLDIR  FOR$CLOSEJ FOR$WRITE_SF FOR$IO_ENDX  CLI$PRESENTP FOR$WRITE_SF FOR$IO_END1(READDIRZ1 OPEN_BULLFILǁ]Ч]TMǑ\ǁ4WRITEDIRЧ] ի@DH STORE_BULLիX\` STORE_BULL FOR$REWINDZ p COPY_BULLի FOR$WRITE_SF˄ FOR$IO_T_DS FOR$IO_END CLOSE_BULLFIL CLOSE_BULLDIRˌ FOR$CLOSE1ç]PPZ- CLOSE_BULLFIL˔READDIRZM¹  T]ˠWRITEDIRˬREADDIR1իX(5  CLI$PRESENTXTTP~^ CLI$PRESENTP^ CLI$PRESENTP^UPDATE_DIR_HEADER ^ CLI$PRESENTP FOR$JIBSETPY$ CLI$PRESENTP, FOR$JIBCLRPY8WRITEDIR1ZL CLI$PRESENTPT FOR$BJTESTPh CLI$PRESENTPZ$p FOR$JIBSETPZ˄ CLI$PRESENTPZ$ˌ FOR$JIBSETPZˠ CLI$PRESENTPZ$˨ FOR$JIBSETPZX˼ CLI$PRESENTPZ$ FOR$JIBSETPZիX,5   CLI$PRESENTP( (  FOR$WRITE_SF FOR$IO_L_R4 FOR$IO_T_DSk FOR$IO_L_V FOR$IO_T_DSZ FOR$IO_L_V< FOR$IO_T_DSD FOR$IO_T_DS FOR$IO_ENDP FOR$READ_SF߫( FOR$IO_L_RT FOR$IO_T_DS FOR$IO_ENDPիѫ( FOR$WRITE_SF( FOR$IO_T_DS FOR$IO_ENDDISCONNECT_REMOTE CLOSE_BULLDIR FOR$CLOSE ENABLE_CTRL\@@P\PSubj: From:  OREPLACE CLI$_ABSENT CLI$_NEGATED CLI$PRESENT CLI$GET_VALUE SETPRV_PRIV FOR$BJTESTOPEN_BULLDIR_SHAREDREADDIR CLOSE_BULLDIR STR$UPCASE DISABLE_CTRL GET_EXPIREDFOR$OPEN FOR$ERRSNS SYS_GETMSGOPEN_BULLFIL_SHARED GET_BULL_LINE CLOSE_BULLFIL FOR$CLOSEMAILEDIT DISABLE_PRIVSLIB$DELETE_FILE ENABLE_PRIVSSTR$TRIMGET_LINE OPEN_BULLDIR OPEN_BULLFILWRITEDIR STORE_BULL COPY_BULLUPDATE_DIR_HEADER FOR$JIBSET FOR$JIBCLRDISCONNECT_REMOTE ENABLE_CTRLi $CODEh$PDATA@ $LOCALPOINTDBULLPAREDIT REMOTE_FOLDERLAST_RECORD_WRITTENBULL_DIR INPUT_BUFFERL HEADER_INFOL BULL_USER FOLDER_TIMES NEW_MESSAGES  BULL_FOLDER  BULL_FOLDER1 FOR$REWIND FOR$IO_END FOR$IO_L_R FOR$IO_L_V FOR$IO_T_DS FOR$READ_SF FOR$WRITE_SF FOR$WRITE_SF FOR$DECODE_MFP_ P0'PLP.PYPP(PPPP(+PNP1cPP5P)PPPP P!"P50P'<PpP PPWPKP?P3P'PP P!P -P<PVPP \PSuPyPPPP P>PP-P<PPPBqP#{PP+P!PPP7 P P %P3PUP.\PjP,PPP&PPPPPP  PP $P7vP(PPP5P-PPP5P2CPQPXP \PaPPPPP%PxP;BP9HP3LP/P PPKPPPw P P P + P6 PQ P.\ Pe P n P PN P  P P P P  P5 Pf P= P P P  P P P M P_ Pk P P P P P P P? P P! P  P P" P< PS Pi P5 P.  P? P08 P WKi ww1( ϒ010REPLY0128-Oct-1989 11:3228-Oct-1989 11:32VAX FORTRAN V5.2-33 REPLYP& ERROR: You have not read any message. ERROR: Bulletin was not found.' Adding REPLY message with the subject:) REPLYP@5  aPP1Q FOR$WRITE_SF FOR$IO_ENDOPEN_BULLDIR_SHARED4READDIRPkPz FOR$WRITE_SF FOR$IO_END CLOSE_BULLDIR CLOSE_BULLDIR5^(5 nݏRE: ,9n @Q^H CLI$PRESENTPX CLI$GET_VALUEPk@> FOR$WRITE_SF FOR$IO_END)> FOR$WRITE_SF FOR$IO_ENDhGET_LINE@ FOR$WRITE_SF FOR$IO_END| CLI$PRESENTPˌ CLI$PRESENT CLI$_NEGATEDXPX˜LIB$DELETE_FILEԫˬ CLI$PRESENTP˼FOR$OPENk FOR$ERRSNS SYS_GETMSGY CLI$GET_VALUEP,~« ^( nЫ VVZ,Zn PQ^ Y CLI$PRESENTP)>1OPEN_BULLFIL_SHARED<  GET_BULL_LINEի )B^(nY^(YnYVVZ,Zn PQ^ YPPY4 GET_BULL_LINE ^( AnY^(YnYW WZ,Zn PQ^HTRIMPYX CLI$PRESENTP,~Y^(YnYWWZ,Zn PQ^Y)>Y1h CLI$PRESENTP1ի )Hp GET_BULL_LINEի 1ˌ CLI$PRESENTP FOR$WRITE_SF ˔˘˔ FOR$IO_T_DS FOR$IO_END FOR$WRITE_SF« ^( nЫ Z>~ZZ˜^ˠ˜ FOR$IO_T_V_DS FOR$IO_ENDˤ GET_BULL_LINE1k˸ FOR$CLOSE CLOSE_BULLFIL CLI$PRESENTP LIB$INDEXPZTRIMPZPP^(PJ )n^SVY^(YnYWWV,Vn PQ^TRIMYPPZPY FOR$WRITE_SF FOR$IO_END1ZZYZP@"ZPP^(PJn&^SW"~WZ^(ZnZVVW,Wn PQ^ZYZZTRIMP@WW@WVFj"Ѫ@@`FjW@PP^(PGjn^SX"~XW^(WjnWVVX,Xn @jPQ^W֪@W DISABLE_PRIVS1 MAILEDIT  CLI$PRESENTPԫ0 LIB$FIND_FILEH LIB$INDEXPP@1\LIB$DELETE_FILEW"~@^(@jn ^( NnY^(YnYVLVX^(YnXXdXW^h޼ˈl LIB$SPAWNW^W"~@^(@jn ^( NnY^(YnYVLVX^(snXXˌXW^ː޼˰˔ LIB$SPAWNW^ ENABLE_PRIVS¹n }˼LIB$DELETE_FILE>PPOSTFrom: Subj: Q $MAIL SYS$LOGIN:BULL.SCR "Q"/SUBJECT="Q$MAIL SYS$INPUT "{ ORESPOND CLI$_NEGATEDOPEN_BULLDIR_SHAREDREADDIR CLOSE_BULLDIR CLI$PRESENT CLI$GET_VALUEGET_LINELIB$DELETE_FILEFOR$OPEN FOR$ERRSNS SYS_GETMSGOPEN_BULLFIL_SHARED GET_BULL_LINETRIM FOR$CLOSE CLOSE_BULLFIL LIB$INDEX DISABLE_PRIVSMAILEDIT LIB$FIND_FILE LIB$SPAWN ENABLE_PRIVS+$CODE$PDATA$LOCALPOINTDBULLPAREDIT COMMAND_LINEBULL_DIR INPUT_BUFFER  BULL_FOLDER  BULL_FOLDER1 FOR$IO_END FOR$IO_T_DS FOR$IO_T_V_DS FOR$WRITE_SFuP(P[P P1PPNP>P.P 9P&NP]PfP-rP!PP+P PPPWPI]P7P#PPPPP  PP4MPCP|PRP3P@POLP<PZPKP P:P*P,MP P_ P  +ww1ϒ015 RUN_BULLCP0128-Oct-1989 11:3328-Oct-1989 11:33VAX FORTRAN V5.2-33 RUN_BULLCPPBULL_BULLCP 03:15 RUN_BULLCP PPPP P2P#PP&PPP &P*PGP QP`PCP@P&PP P2PS@PENPpPStPNPH Pr&P7PPPPP?P;PP*]P gPBPPPP PfP #PNPPyPFP:P.PPP P P PPV)PLPDP9P-P PPPPPPPP.P56P->P JPVP bPoP PP PPPpPbPVP4PPP/P9P@PMPoP}xPuP[PP P)P% P# PnbH ww1@ϒ01/SET20128-Oct-1989 11:3428-Oct-1989 11:34VAX FORTRAN V5.2-33 SET2 SET2}P P H[Ь PPR޻SBcRP PP~^ FOR$JIBSET^PBcR HSET2 FOR$JIBSETF$CODE$PDATA $LOCAL Fww1 6ϒ015 SETDEFAULT0128-Oct-1989 11:3528-Oct-1989 11:35VAX FORTRAN V5.2-33 SETDEFAULT@P @ LNM$PROCESSSYS$DISK SETDEFAULThP T `hph d $0$ SYS$CRELNM@0 SYS$CRELNM@ <PH`[}PQ P INIT_ITMLST^$ ADD_2_ITMLST^^4( ADD_2_ITMLST^^D8 ADD_2_ITMLST^?^TH ADD_2_ITMLST^X END_ITMLSTkp` SYS$GETUAIˀSETACCˈSETUSER2~^˔2~^˘ːSETUIC^ INIT_ITMLST뚫~^ˠ^˨˜ ADD_2_ITMLST^ˬ END_ITMLSTЫ SYS$CRELNM횫PP SYS$SETDDIR H SETDEFAULT INIT_ITMLST ADD_2_ITMLST E ND_ITMLST SYS$GETUAISETACCSETUSERSETUIC SYS$CRELNM SYS$SETDDIR$CODE9$PDATAT$LOCAL4($ww1@ ϒ016 SETPRV_PRIV0128-Oct-1989 11:3228-Oct-1989 11:32VAX FORTRAN V5.2-33 SETPRV_PRIV SETPRV_PRIV7PPPPBULL_DIR: G'BULL_DIR: G'BULL_DIR:BULLUSER.DAT ;'QBULL_DIR:BULLFOLDER.DAT 9'QBULL_DIR:BULLINF.DAT <'PH[\լլ OPEN_BULLUSER_SHAREDREAD_USER_FILE_HEADERCLOSE_BULLUSER  lӬ ԫЫP H SETPRV_PRIVOPEN_BULLUSER_SHAREDREAD_USER_FILE_HEADERCLOSE_BULLUSER\$CODE$PDATA$LOCAL PRIVILEGESL HEADER_INFOL BULL_USER FOLDER_TIMES NEW_MESSAGESFILES$P+P&EPLPRP%\ww16pϒ015 SET_ACCESS0128-Oct-1989 11:3428-Oct-1989 11:34VAX FORTRAN V5.2-33 SET_ACCESS7PALLREADONLYACCESS_FOLDERFolder is not private. Do you want to make it so? (Y/N): *RNONER+W+C R+WACCESS_ID,.DIS]", ERROR: Folder name must be < 26 characters. ERROR: No such folder exists.8 ERROR: You are not able to modify access to the folder.' ERROR: Folder is not a private folder. Folder access was not changed.$ Access to folder has been modified. Cannot modify access. ERROR: Cannot find file )) ERROR: Cannot modify access for owner of folder. Cannot modify access for ). Access modified for ). SET_ACCESSP PP P@@A CLI$PRESENT@$ CLI$PRESENT@ 4 CLI$GET_VALUE@ p9 GET_INPUT_PROMPT@Y[Y ADD_ACL@[ ADD_ACL@Y]Y ADD_ACL@] ADD_ACL@bb ADD_ACL@hjh DEL_ACL@j DEL_ACL@Y[ Y ADD_ACL@([ ADD_ACL@!Y[LY DEL_ACL@T[ DEL_ACL@ ntn CLI$GET_VALUE@   x  z z FOR$OPEN@ x  ,4[P[ ADD_ACL@jhj ADD_ACL@"jj DEL_ACL@[[ DEL_ACL@  PQGENERAL ' PPBULL_DIR: G'BULL_DIR: G'BULL_DIR:BULLUSER.DAT ;'QBULL_DIR:BULLFOLDER.DAT 9'QBULL_DIR:BULLINF.DAT <'PO[^T CLI$PRESENTPWWd CLI$PRESENTPXXt CLI$GET_VALUEPk CLI$_ABSENTk(ѫ FOR$WRITE_SF #FOR$IO_ENDOPEN_BULLFOLDER˄READ_FOLDER_FILE_KEYNAME_TEMPCLOSE_BULLFOLDERk FOR$WRITE_SF FOR$IO_END1) ː SETPRV_PRIVP FOR$WRITE_SF FOR$IO_END1^(n˘TRIMP^(P Pn^SYYZ,Zn PPQ^Z}.BULLFIL~ˠTRIMP^(Pn^SVVYY˨YZ^ˬ˰CHKACLZ^k 1WX FOR$WRITE_SF FOR$IO_ENDGET_INPUT_PROMPTxyxY8$ FOR$WRITE_SF FOR$IO_END FOR$JIBSETPXWADD_ACLADD_ACL(ADD_ACLWZ FOR$WRITE_SF FOR$IO_END1WHDEL_ACLXhADD_ACLx FOR$JIBCLRP˔DEL_ACLk FOR$WRITE_SF FOR$IO_ENDˤ SYS_GETMSG˴ CLI$GET_VALUEP1W1 SYS_TRNLNMPky@1 LIB$INDEXP ѫ TRIMP  ZZzFOR$OPENk FOR$WRITE_%SFZ$z($ FOR$IO_T_DS FOR$IO_END FOR$READ_SFD FOR$IO_T_DS FOR$IO_ENDPk, FOR$CLOSE,n yԫ4TRIMP1D LIB$INDEXPZy[X LIB$INDEXPZy"zht LIB$INDEXPZZZP,Py @8ZP,PJy y(@y8,n yˀTRIMP -@8  FOR$WRITE_SF FOR$IO_END1XːADD_ACL˨ADD_ACLDEL_ACLkDEL_ACLk& FOR$WRITE_SF 8 FOR$IO_T_DS FOR$IO_END SYS_GETMSG FOR$WRITE_SF 8 FOR$IO_T_DS FOR$IO_ENDTRIMP FOR$READ_SFD FOR$IO_T_DS FOR$IO_ENDPk FOR$CLOSE,n yԫ1H1YѫOPEN_BULLFOLDERWREAD_FOLDER_FILE_KEYNAME_TEMPWREWRITE_FOLDER_FILE_TEMPCLOSE_BULLFOLDERù '^ O SET_ACCESS CLI$_ABSENT CLI$PRESENT CLI$GET_VALUEOPEN_BULLFOLDERREAD_FOLDER_FILE_KEYNAME_TEMPCLOSE_BULLFOLDER SETPRV_PRIVTRIMCHKACLGET_INPUT_PROMPT FOR$JIBSETADD_ACLDEL_ACL FOR$JIBCLR SYS_GETMSG SYS_TRNLNM LIB$INDEXFOR$OPEN FOR$CLOSEREWRITE_FOLDER_FILE_T(EMPW$CODE,$PDATA$LOCAL  BULL_FOLDER  BULL_FOLDER1L HEADER_INFOL BULL_USER FOLDER_TIMES NEW_MESSAGESFILES FOR$IO_END FOR$IO_T_DS FOR$READ_SF FOR$WRITE_SFPP(P-PJPXP#aPPPP&PPkoPsPvPzPPPPPP PP P\P-*P 5PIP WPPPP )P P.P ?PTP]PrPP PP(P P$P+P.P 9P FPSP _P<P1PKP>P P)P,Www1@ϒ015 SET_BBOARD0128-Oct-1989 11:3328-Oct-1989 11:33VAX FORTRAN V5.2-33 SET_BBOARDPBB_USERNAMEIs the name a mail forwarding entry? (Y/N with N as default): SPECIALVMSMAILEXPIRATI*ON. ERROR: System programmer has disabled BBOARD., ERROR: Cannot set BBOARD for remote folder. ERROR: ) account needs DISUSER flag set." ERROR: User number of UIC cannot be greater than 7777777777.% ERROR: Account used by other folder. WARNING: ) account not in SYSUAF file. Folder was not modified.' ERROR: No BBOARD specified for folder.@ ERROR: Expiration cannot be >  days. ERROR: Expiration must be > 0.% BBOARD has been modified for folder.) You are+ not authorized to modify BBOARD. SET_BBOARDDPLP  &\D(  CLI$GET_VALUE@l,lL040((>|8  GET_INPUT_PROMPT@D(t(t [X[ CLI$PRESENT@,ctc CLI$PRESENT@[[ CLI$PRESENT@ kk CLI$GET_VALUE@d< kk CLI$PRESENT@ PQGENERAL ' PPBULL_DIR: G'BULL_DIR: G'BULL_DIR:BULLUSER.DAT ;'QBULL_DIR:BULLFOLDER.DAT 9'QBULL_DIR:BULLINF.DAT <'PI([\TRIMPv FOR$WRITE_SF FOR$IO_ENDVd SETPRV_PRIVP) 1-OPEN_BULLFOLDERlREAD_FOLDER_FILE_KEYNAME)y FOR$WRITE_SF FOR$IO_ENDCLOSE_BULLFOLDER1ˀ CLI$GET_VALUEPk CLI$_ABSENTWkW1ːGET_UAFCLOSE_BULLFOLDER ˬ FOR$BJTESTP FOR$WRITE_SF˸˼˸ FOR$IO_T_DS FOR$IO_END FOR$BJTESTP FOR$WRITE_SF FOR$IO_ENDOPEN_BULLFOLDERXREAD_FOLDER_FILE_TEMPkѨ) yREAD_FOLDER_FILE._TEMPѨ) yF FOR$WRITE_SF FOR$IO_ENDCLOSE_BULLFOLDER CLOSE_BULLFOLDERn FOR$WRITE_SF FOR$IO_T_DS FOR$IO_ENDGET_INPUT_PROMPTyY FOR$WRITE_SF FOR$IO_ENDOPEN_BULLFOLDERƉƍƍȍƉȉ}ƑȑREAD_FOLDER_FILE_KEYNAMEȍƍȉƉ}ȑƑ( ۦy OPEN_BULLUSER SYS$ASCTIMREAD_USER_FILE_HEADER$ SYS_BINTIMFOR$REWRITE_SU/, FOR$IO_X_SE FOR$IO_ENDCLOSE_BULLUSER8 CLI$PRESENTP@ FOR$JIBSETPƉT CLI$PRESENTP\ FOR$JIBSETPƍp CLI$PRESENTPx FOR$JIBSETPƉƍXXP @y X- y  FOR$WRITE_SF FOR$IO_ENDˌ CLI$GET_VALUEPkkW1ѫ< FOR$READ_IF߫ FOR$IO_L_R FOR$IO_ENDѫ˜ SETPRV_PRIVP FOR$WRITE_SF  FOR$IO_L_R FOR$IO_ENDCLOSE_BULLFOLDER0ի FOR$WRITE_SF FOR$IO_ENDCLOSE_BULLFOLDERЫƅˬ CLI$PRESENTPƅ, yREWRITE_FOLDER_FILECLOSE_BULLFOLDER7 FOR$WRITE_SF FOR$IO_END_ FOR$WRITE_SF FOR$IO_END@<PP::NONE I SET_BBOARD CLI$_ABSENTTRIM SETPRV_PRIVOPEN_BULLFOLDERREAD_FOLDER_FILE_KEYNAMECLOSE_BULLFOLDER CLI$GET_VALUEGET_UAF FOR$BJTESTREAD_FOLDER_FILE_TEMP1GET_INPUT_PROMPT OPEN_BULLUSER SYS$ASCTIMREAD_USER_FILE_HEADER SYS_BINTIMCLOSE_BULLUSER CLI$PRESENT FOR$JIBSETREWRITE_FOLDER_FILE$CODE$PDATA$LOCAL  BULL_FOLDER  BULL_FOLDER1L HEADER_INFOL BULL_USER FOLDER_TIMES NEW_MESSAGESFILES FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$IO_X_SE FOR$WRITE_SFFOR$REWRITE_SU FOR$READ_IFPP=PJPeP2P9P P:P.P$P7P>PFP ZP)bP!PuP PP(PPXP(P$PP PKP8WP,PPPP P&ww1yϒ01=SET_DEFAULT_EXPIRE0128-Oct-1989 11:32283-Oct-1989 11:32VAX FORTRAN V5.2-33SET_DEFAULT_EXPIREPDEFAULT_EXPIRE@ ERROR: Expiration cannot be >  days. ERROR: Expiration must be > -1. Default expiration modified.* You are not authorized to set expiration.SET_DEFAULT_EXPIREP( CLI$GET_VALUE@ PQGENERAL 'P H[ SETPRV_PRIVP) 1, CLI$GET_VA4LUEPkѫ FOR$READ_IF߫ FOR$IO_L_R FOR$IO_ENDOPEN_BULLFOLDER<READ_FOLDER_FILE_KEYNAMEѫH SETPRV_PRIVP FOR$WRITE_SF FOR$IO_L_R FOR$IO_ENDѫF FOR$WRITE_SF FOR$IO_ENDЫi FOR$WRITE_SF FOR$IO_ENDREWRITE_FOLDER_FILECLOSE_BULLFOLDER FOR$WRITE_SF FOR$IO_END@P HSET_DEFAULT_EXPIRE SETPRV_PRIV CL5I$GET_VALUEOPEN_BULLFOLDERREAD_FOLDER_FILE_KEYNAMEREWRITE_FOLDER_FILECLOSE_BULLFOLDER$CODE$PDATAT$LOCAL  BULL_FOLDER  BULL_FOLDER1L HEADER_INFOL BULL_USER FOLDER_TIMES NEW_MESSAGES FOR$IO_END FOR$IO_L_R FOR$WRITE_SF FOR$READ_IFPP P#P5PoP0zP%PBPP P/#eww1`Qϒ016=SET_FOLDER_DEFAULT0128-Oct-1989 11:3428-Oct-1989 11:34VAX FORTRAN V5.2-33SET_FOLDER_DEFAULTPBULL_SYSTEM_FLAGSMAIL$SYSTEM_FLAGSCLUSTER** ( ERROR: No privs to change all defaults.& NOTE: In a cluster, /ALL or /DEFAULT  causes all users to be notified.' They will not be able to disable this.# See HELP SET NOTIFY for more info.SET_FOLDER_DEFAULTP L@7@((44p SYS_TRNLNM@ SYS_TRNLNM@(( CLI$PRESENT@0@@((44(0( CLI$PRESENT@ 1 PQGENERAL 'PH[)  8SETPRV_PRIVP= FOR$WRITE_SF FOR$IO_ENDOPEN_BULLUSER_SHARED READ_USER_FILE_HEADERRVռ(CLR2Ѽ4SET2ռ@CLR2ѼLSET2ռ XCLR2Ѽ dSET2FOR$REWRITE_SU FOR$IO_X_SE FOR$IO_ENDԫx SYS_TRNLNMPˌ SYS_TRNLNMhf˜˘ FOR$READ_IF߫ FOR$IO_L_R FOR$IO_ENDPkѼˠ FOR$BJTESTP˴ CLI$PRESENT CLI$_NEGATEDRPROPEN_BULLNOTIFY~9~˼  FOR$READ_KU FOR$IO_ENDPk  FOR$DELETEѼ1Ѽ 1Ѽ1READ_USER_FILEk1f*1f:1ռCLR2ѼSET2ռCLR2ѼSET2ռ CLR2Ѽ SET2FOR$REWRITE_SU@^(@ n ^( fnL^ FOR$IO_T_V_DS FOR$IO_ENDѫ  FOR$WRITE_SU FOR$IO_X_SE FOR$IO_ENDPkREAD_USER_FILE1ѫCLOSE_BULLNOTIFY1Ѽ1$ FOR:$BJTESTP8 CLI$PRESENT CLI$_NEGATEDWPWk FOR$WRITE_SF FOR$IO_END FOR$WRITE_SF FOR$IO_ENDOPEN_BULLNOTIFYCLOSE_BULLNOTIFY_DELETEOPEN_BULLNOTIFY  FOR$WRITE_SU@ FOR$IO_X_SE FOR$IO_ENDCLOSE_BULLNOTIFYռH FOR$BJTESTPOPEN_BULLNOTIFY  FOR$READ_SU FOR$IO_X_SE FOR$IO_ENDPkѼ Ѽk- f *UCLOSE_BULLNOTIFY_DELETECLOSE_BULLNOTIFYCLOSE_;BULLUSERPSET HSET_FOLDER_DEFAULT CLI$_NEGATED SETPRV_PRIVOPEN_BULLUSER_SHAREDREAD_USER_FILE_HEADERCLR2SET2 SYS_TRNLNM FOR$BJTEST CLI$PRESENTOPEN_BULLNOTIFYREAD_USER_FILECLOSE_BULLNOTIFYCLOSE_BULLNOTIFY_DELETECLOSE_BULLUSER$CODE$PDATAT$LOCAL  BULL_FOLDER  BULL_FOLDER1L HEADER_INFOL BULL_USER FOLDER_TIMES NEW_MESSAGES COMMAND_LINE< FOR$DELETE FOR$IO_END FOR$IO_L_R FOR$IO_T_V_DS FOR$IO_X_SE FOR$READ_SU FOR$READ_KU FOR$WRITE_SF FOR$WRITE_SU FOR$WRITE_SUFOR$REWRITE_SU FOR$READ_IF\P%!P]PkPxPPPPP P' PVPJ.P58PVP oP|PPPPPP P P P P P IP LPP PPP{PfPl Pf,PZ6P =]P gP kPtP }P k_hww11xϒ01BSET_FOLDER_EXPIRE_LIMIT0128-Oct-1989 11:3528-Oct-1989 11:35VAX FORTRAN V5.2-33!SET_FOLDER_EXPIRE_LIMITP, ERROR: Invalid expiration length specified.! Folder expiration date modified.& You are not allowed to modify folder.#SET_FOLDER_EXPIRE_>LIMITP PQGENERAL ' PPBULL_DIR: G'BULL_DIR: G'BULL_DIR:BULLUSER.DAT ;'QBULL_DIR:BULLFOLDER.DAT 9'QBULL_DIR:BULLINF.DAT <'P H[ռ FOR$WRITE_SF FOR$IO_END SETPRV_PRIVP) OPEN_BULLFOLDERREAD_FOLDER_FILE_KEYNAMEмREWRITE_FOLDER_FILECLOSE_BULLFOLDER/ FOR$WRITE_SF FOR$IO_ENDS FOR$WRITE_SF FOR$IO_EN?Di HSET_FOLDER_EXPIRE_LIMIT SETPRV_PRIVOPEN_BULLFOLDERREAD_FOLDER_FILE_KEYNAMEREWRITE_FOLDER_FILECLOSE_BULLFOLDER$CODE|$PDATA $LOCAL  BULL_FOLDER  BULL_FOLDER1L HEADER_INFOL BULL_USER FOLDER_TIMES NEW_MESSAGESFILES FOR$IO_END FOR$WRITE_SF$ P%Pp2P@P?}P*ww11xϒ01@:SET_FOLDER_FLAG0128-Oct-1989 11:3528-Oct-1989 11:35VAX FORTRAN V5.2-33SET_FOLDER_FLAGSP) has been modified for folder." You are not authorized to modify )SET_FOLDER_FLAGzP  PQGENERAL ' PPBULL_DIR: G'BULL_DIR: G'BULL_DIR:BULLUSER.DAT ;'QBULL_DIR:BULLFOLDER.DAT 9'QBULL_DIR:BULLINF.DAT <'PH[} PQPA SETPRV_PRIVP) OPEN_BULLFOLDERREAD_FOLDER_FILE_KEYNAME޼0( FOR$JIBSETP޼<4 FOR$JIBCLRPREWRITE_FOLDER_FILECLOSE_BULLFOLDER FOR$WRITE_SF FOR$IO_T_DS FOR$IO_END$ FOR$WRITE_SF.~<WW^(WnWVV@^D@ FOR$IO_T_V_DS FOR$IO_END HSET_FOLDER_FLAG SETPRV_PRIVOPEN_BULLFOLDERREAD_FOLDER_FILE_KEYNAME FOR$JIBSET FOR$JIBCLRREWRBITE_FOLDER_FILECLOSE_BULLFOLDER$CODEL$PDATAH$LOCAL  BULL_FOLDER  BULL_FOLDER1L HEADER_INFOL BULL_USER FOLDER_TIMES NEW_MESSAGESFILES FOR$IO_END FOR$IO_T_DS FOR$IO_T_V_DS FOR$WRITE_SF%P-Pn@PVPP;."ww1ϒ016 SET_GENERIC0128-Oct-1989 11:3428-Oct-1989 11:34VAX FORTRAN V5C.2-33 SET_GENERICgPUSERNAMEDAYS# ERROR: No privs to change GENERIC.% ERROR: Specified username not found. SET_GENERIC{P @ CLI$GET_VALUE@ < CLI$PRESENT@ L CLI$GET_VALUE@  P/ SMG$ADD_KEY_DEF@ SMG$ADD_KEY_DEF@$> SMG$ADD_KEY_DEF@GMHG SMG$ADD_KEY_DEF@PM SMG$ADD_KEY_DEF@GUtGN SMG$ADD_KEY_DEF@| SMG$ADD_KEY_DEF@U SMG$ADD_KEY_DEF@[b[ SMG$ADD_KEY_DEF@b SMG$ADD_KEY_DEF@[i[ SMG$ADD_KEY_DEF@ SMG$ADD_KEY_DEF@i SMG$ADD_KEY_DEF@rxr SMG$ADD_KEY_DEF@ SMG$ADD_KEY_DEF@x SMG$ADD_KEY_DEF@POH[kSMG$SET_KEYPAD_MODE SMG$ADD_KEY_DEFLSMG$ADD_KEY_DEFˀSMG$ADD_KEY_DEFˬSMG$ADD_KEY_DEFSMG$ADD_KEY_DEF SMG$ADD_KEY_DEF@SMG$ADD_KEY_DEFlSMG$ADD_KEY_DEFˠSMG$ADD_KEY_DEFSMG$ADD_KEY_DEFSMG$ADD_KEY_DEF,SMG$ADD_KEY_DEF`SMG$ADD_KEY_DEFˌSMG$ADD_KEY_DEFSMG$ADD_KEY_DEFSMG$ADD_KEY_DEF SMG$ADD_KEY_DEFLSMG$ADD_KEY_DEFˀSMG$ADD_KEY_DEFˬSMG$ADD_KEY_DEFSMPG$ADD_KEY_DEF SMG$ADD_KEY_DEF8SMG$ADD_KEY_DEFlSMG$ADD_KEY_DEF˘SMG$ADD_KEY_DEFSMG$ADD_KEY_DEFSMG$ADD_KEY_DEF,SMG$ADD_KEY_DEFXSMG$ADD_KEY_DEFˌSMG$ADD_KEY_DEF˸SMG$ADD_KEY_DEFSMG$ADD_KEY_DEF SMG$ADD_KEY_DEF{ H SET_KEYPADSMG$SET_KEYPAD_MODESMG$ADD_KEY_DEF<$CODE$PDATA<$LOCALSMGB6Q<ww1Q@ϒ014 SET_LOGIN0128-Oct-1989 11:3428-Oct-1989 11:34VAX FORTRAN V5.2-33 SET_LOGINsPUSERNAME5-NOV-2956 00:00:00.00! ERROR: No privs to change LOGIN.% ERROR: Specified username not found. SET_LOGIN$P ,P CLI$GET_VALUE@$$  p SYS_BINTIM@ , P$CODE$PDATAT$LOCAL'P # >ww1k@,ϒ016 SET_VERSION0128-Oct-1989 11:3428-Oct-1989 11:34VAX FORTRAN V5.2-33 SET_VERSION P SET_VERSION, P L aP PQGENERAL 'PH[OPEN_BULLUSER_SHAREDREAD_USER_FILE_KEYNAMEkFOR$REWRITE_SU  FOR$IO_X_SE FOR$IO_ENDPkЫЫ CLOSE_FILEX lH SET_VERSIONOPEN_BULLUSER_SHAREDREAD_USER_FILE_KEYNAME CLOSE_FILEm$CODE$PDATA0$LOCALBULL_DIR INPUT_BUFFERL HEADER_INFOL BULL_USER FOLDER_TIMES NEW_MESSAGES  BULL_FOLDER  BULL_FOLDER1 FOR$IO_END FOR$IO_X_SEFOR$REWRITE_SU+P86P&mww1k|ϒ012SHOWACL0128-Oct-1989 11:3428-Oct-1989 11:34mVAX FORTRAN V5.2-33SHOWACLPSHOWACL< P  PH[}PQP INIT_ITMLSTk^  ADD_2_ITMLST^$ END_ITMLSTЫ<,SYS$CHANGE_ACLk~^PL LIB$GET_VM^Ы\X MAKE_CHARЫphREADACL HSHOWACL INIT_ITMLST ADD_2_ITMLST END_ITMLSTSYS$CHANGE_ACL LI nB$GET_VM MAKE_CHARREADACLp$CODE $PDATAx$LOCAL#Hpww1ϒ015 SHOW_FLAGS0128-Oct-1989 11:3428-Oct-1989 11:34VAX FORTRAN V5.2-33 SHOW_FLAGSP For the selected folder ) NOTIFY is set. READNEW is set. BRIEF is set. SHOWNEW is set. No flags are set. SHOW_FLAGSP   @o ( 4 4 ( 4 ( @ aP PQGENERAL 'PH[OPEN_BULLUSER_SHAREDREAD_USER_FILE_KEYNAME FOR$WRITE_SF TRIMP( ,( FOR$IO_T_DS FOR$IO_END0TEST2P FOR$WRITE_SF FOR$IO_END<TEST2PHTEST2P/ FOR$WRITE_SF FOR$IO_END1TTEST2P`TEST2PB FOR$WRITEp_SF FOR$IO_ENDlTEST2PxTEST2PS FOR$WRITE_SF FOR$IO_END˄TEST2Pf FOR$WRITE_SF FOR$IO_ENDCLOSE_BULLUSERl H SHOW_FLAGSOPEN_BULLUSER_SHAREDREAD_USER_FILE_KEYNAMETRIMTEST2CLOSE_BULLUSER&$CODE{$PDATA$LOCALBULL_DIR INPUT_BUFFERL HEADER_INFOL BULL_USER FOLDER_TIMES NEW_MESSAGES  BULL_FOLDER  BULL_FOLDER1 q FOR$IO_END FOR$IO_T_DS FOR$WRITE_SFXVPwP$PPP%PPTP%PP$P4(&ww1 gϒ016 SHOW_FOLDER0128-Oct-1989 11:3428-Oct-1989 11:34VAX FORTRAN V5.2-33 SHOW_FOLDERP/A/aSHOW_FOLDER::FULL*" ERROR: /ALL is invalid qualifier.* ERROR: Invalid command for remote folder.' ErRROR: Specified folder was not found. Folder is a private folder. Folder is not a private folder. Folder is located on node ). Folder is located on node ). Remote folder name is ). BBOARD for folder is @.$ BBOARD was specified with /SPECIAL.$ BBOARD was specified with /VMSMAIL. No BBOARD has been defined. Default expiration is  days.! Default expiration is permanent. No default expiration set. SYSTEM has been set. DUMP has been set. NOPROMPT_sEXPIRE has been set. STRIP has been set. DIGEST has been set. EXPIRATION limit is  days. Default is BRIEF. Default is READNEW. Default is SHOWNEW. Default is NOREADNEW. Default is NOTIFY. Default is NONOTIFY. Current folder is:  Owner:   Description: ) Folder name is:  Owner:   Description: ) SHOW_FOLDERP  P) yPP P4 a PXtPl "" CLI$GET_VALUE@.@((11 CLI$PRESENT@88$8H060h@H0  u(44@ PQGENERAL ' PPBULL_DIR: G'BULL_DIR: G'BULL_DIR:BULLUSER.DAT ;'QBULL_DIR:BULLFOLDER.DAT 9'QBULL_DIR:BULLINF.DAT <' aPPI[` LIB$INDEXPt LIB$INDEXP8 FOR$WRITE_SF FOR$IO_ENDˈ CLI$GET_VALUE CLI$_ABSENTQ\PQ(l˜ LIB$INDEXP] FORv$WRITE_SF FOR$IO_ENDOPEN_BULLFOLDER_SHARED˨READ_FOLDER_FILE_KEYNAME_TEMP^(ln˴TRIMP^(P Pn^SWWV,Vn P̹PQ^k FOR$WRITE_SF FOR$IO_ENDCLOSE_BULLFOLDER)lt FOR$WRITE_SF FOR$IO_T_DS  FOR$IO_T_DS˼TRIMP) FOR$IO_T_DS FOR$IO_END FOR$WRITE_SF FOR$IO_T_DS  FOR$IO_T_DSTRIMP) FOR$IO_T_DS FOR$IO_END CLI$PREwSENTP1V}.BULLFIL~TRIMP^(P̹n^SXXWWWV^CHKACLV^k k FOR$BJTESTP)y. FOR$WRITE_SF FOR$IO_END FOR$WRITE_SF FOR$IO_END1 SETPRV_PRIVPV}.BULLFIL~TRIMP^(P̹n^SXXWW$WV^(, CHECK_ACCESSV^V}.BULLFIL~@TRIMP^(P̹n^SXXWWHWV^LPSHOWACLV^X SETPRV_PRIVP) 1)y.1`TRIMP p LIB$INDEXxP FOR$WRITE_SF PP|{ˀ| FOR$IO_T_DS FOR$IO_END1(P̹^(ln˄TRIMP^(P Pn^SWWV,Vn PPQ^ V  OPEN_BULLDIRˌREADDIR CLOSE_BULLDIRV  FOR$WRITE_SF PP˘{˜˘ FOR$IO_T_DSˠTRIM PP˨ mˬ˨ FOR$IO_T_DS FOR$IO_END1- y 1˰TRIMP U FOR$WRITE_SF ˸y˼˸ FOR$IO_T_DS FOR$IO_END̉̍ yFOR$BJTESTPw FOR$WRITE_SF FOR$IO_END FOR$BJTESTP FOR$WRITE_SF FOR$IO_END FOR$WRITE_SF FOR$IO_END̅ FOR$WRITE_SF̅ FOR$IO_L_V FOR$IO_END̅ FOR$WRITE_SF FOR$IO_END, FOR$WRITE_SF FOR$IO_ENDg FOR$BJTESTPJ FOR$WRITE_SF FOR$IO_END FOR$BJTESTPb FOR$WRITE_SF FOR$IO_END FOR$BJTESTzPx FOR$WRITE_SF FOR$IO_END FOR$BJTESTP FOR$WRITE_SF FOR$IO_END FOR$BJTESTP FOR$WRITE_SF FOR$IO_END FOR$WRITE_SF FOR$IO_L_V FOR$IO_ENDOPEN_BULLUSER_SHAREDREAD_USER_FILE_HEADERTEST2P(TEST2P FOR$WRITE_SF FOR$IO_END FOR$WRITE_SF FOR$IO_END4TEST2P FOR$WRITE_SF FOR$IO_END{- FOR$WRITE_SF FOR$IO_END@TEST2PF FOR$WRITE_SF FOR$IO_END\ FOR$WRITE_SF FOR$IO_ENDCLOSE_BULLUSERCLOSE_BULLFOLDER@ PPNONE I SHOW_FOLDER CLI$_ABSENT LIB$INDEX CLI$GET_VALUEOPEN_BULLFOLDER_SHAREDREAD_FOLDER_FILE_KEYNAME_TEMPTRIMCLOSE_BULLFOLDER CLI$PRESENTCHKACL FOR$BJTEST SETPRV_PRIV CHECK_ACCESSSHOWACL OPEN_BULLDIRREADDIR |CLOSE_BULLDIROPEN_BULLUSER_SHAREDREAD_USER_FILE_HEADERTEST2CLOSE_BULLUSER$CODE$PDATAL$LOCALL HEADER_INFOL BULL_USER FOLDER_TIMES NEW_MESSAGES  BULL_FOLDER  BULL_FOLDER1FILESBULL_DIR INPUT_BUFFER REMOTE_FOLDER COMMAND_LINE FOR$IO_END FOR$IO_L_V FOR$IO_T_DS FOR$WRITE_SFoPP  PSPhPPPN8PLP5PP}LP$PP'P7P APBP@PPP P6<PPP"P-UP[P gP8PPP$P;PP)PKPmPPPP#P=P2PKP:WPoPPP~ww1fϒ016 SHOW_KEYPAD0128-Oct-1989 11:3528-Oct-1989 11:35VAX FORTRAN V5.2-33 SHOW_KEYPADUP PRINTSYS$PRINT:KEYPAD.DATKEYPAD% ERROR WHILE OPENING FILE TO PRINTER. SHOW_KEYPADP  CLI$PRESENT@  FOR$OPEN@ PRINT_OUTPUTD LBR$OUTPUT_HELP@LIB$PUT_OUTPUTl LBR$OUTPUT_HELP@PH[}PQP CLI$PRESENTP$FOR$OPENk& FOR$WRITE_SF FOR$IO_ENDLLBR$OUTPUT_HELPd FOR$CLOSEtLBR$OUTPUT_HELP H SHOW_KEYPADLIB$PUT_OUTPUT PRINT_OUTPUT CLI$PRESENTFOR$OPENLBR$OUTPUT_HELP FOR$CLOSEa$CODEN$PDATA$LOCAL FOR$IO_END FOR$WRITE_SFP8+PCPUP &Va ww14ϒ014 SHOW_PRIV0128-Oct-1989 11:3328-Oct-1989 11:33VAX FORTRAN V5.2-33 SHOW_PRIViP9 Following privileges are needed for privileged commands:) ERROR: Cannot show privileges. SHOW_PRIVnPLP PlPPBULL_DIR: G'BULL_DIR: G'BULL_DIR:BULLUSER.DAT ;'QBULL_DIR:BULLFOLDER.DAT 9'QBULL_DIR:BULLINF.DAT <'PH[OPEN_BULLUSER_SHAREDREAD_USER_FILE_HEADERk1 CLOSE_BULLUSER OPEN_BULLUSER READ_USER_FILE_HEADERЏ@ FOR$REWRITE_SU FOR$IO_X_SE FOR$IO_END FOR$WRITE_SF FOR$IO_END\\ \( FOR$BJTESTP\ \~^<4 FOR$BJTEST^P< FOR$WRITE_SF\P@@D@ FOR$IO_T_DS FOR$IO_END&\@ FOR$WRITE_SF FOR$IO_ENDCLOSE_BULLUSERHTRIMPPTXCHKACLkk dTRIMPlptSHOWACL H SHOW_PRIVOPEN_BULLUSER_SHAREDREAD_USER_FILE_HEADERCLOSE_BULLUSER OPEN_BULLUSER FOR$BJTESTCHKACLTRIMSHOWACL^$CODEb$PDATA|$LOCALL HEADER_INFOL BULL_USER FOLDER_TIMES NEW_MESSAGESFILES8PRVDEF FOR$IO_END FOR$IO_T_D S FOR$IO_X_SE FOR$WRITE_SFFOR$REWRITE_SUOP+PN8PAPPPGP1P7P%@P=1_^ww1ϒ014 SHOW_USER0128-Oct-1989 11:3528-Oct-1989 11:35VAX FORTRAN V5.2-33 SHOW_USERPNOLOGINALLLOGINUSERNAME5-NOV-2956 00:00:00.00! ERROR: No privs to user command. NOLOGIN set for specified user. User last logged in at ).$ Entry for specified user not found. NOLOGIN set for ).) last logged in at ). SHOW_USER P 0 CLI$PRESENT@@ CLI$PRESENT@ P CLI$PRESENT@` CLI$GET_VALUE@ | SYS_BINTIM@  (    CLI$PRESENT@  CLI$PRESENT@(   PQGENERAL 'PPKP\PcPPLPF%P RP P;P!P P8P9PNEP=QP1^P$jPvP PP4P,P#PPPPPXPEP=P 'P3P?P xl-Rww1 ϒ01=STORE_ITMLST_ENTRY0128-Oct-1989 11:3328-Oct-1989 11:33VAX FORTRAN V5.2-33STORE_ITMLST_ENTRYSTORE_ITMLST_ENTRYgP   PH[Ь  P@P`P@P `P@Pм`P@Pм`W HSTORE_ITMLST_ENTRYE$CODE$PDATA$LOCALEww1ϒ017 STRIP_HEADER0128-Oct-1989 11:3528-Oct-1989 11:35VAX FORTRAN V5.2-33 STRIP_HEADER P STRIP_HEADERP PQGENERAL 'PH[}PQP FOR$BJTESTPTRIMPԼ kռk k  TTTP@ TP@:kTԼ k H STRIP_HEADER FOR$BJTESTTRIM~$CODE$PDATA $LOCAL  BULL_FOLDER  BULL_FOLDER1@P +P8PAPGPMPYPdPoP6*@~ww1`ϒ012SUBTIME0128-Oct-1989 11:3228-Oct-1989 11:32VAX FORTRAN V5.2-33SUBTIMESUBTIME$P 8 @hPH [Ь}PQP޼0( SYS$BINTIMP ޻PΠΠRR4 SYS$ASCTIMP kHLP SYS$BINTIM޼d޼h\LIB$SUBXs HSUBTIME SYS$BINTIM SYS$ASCTIM LIB$SUBXz$CODE$PDATA$LOCAL4P#zww1Q'ϒ015 SYS_BINTIM0128-Oct-1989 11:3428-Oct-1989 11:34VAX FORTRAN V5.2-33 SYS_BINTIM SYS_BINTIMP (PI[}PQPkЬ TRIMPV^(nTOTAL_CLEANUP_LOGIN0128-Oct-1989 11:3328-Oct-1989 11:33VAX FORTRAN V5.2-33TOTAL_CLEANUP_LOGINP TOTAL_CLEANUP_LOGINa$P L44   PP BULL_SYSTEM_FLAGSMAIL$SYSTEM_FLAGS UPDATE_LOGINP5  A  L P $@l SYS_TRNLNM@"" SYS_TRNLNM@@  @   @ T   @ aP PQGENERAL 'P PO[DHOPEN_BULLUSER_SHAREDLP`READ_USER_FILE_HEADERLPkCLOSE_BULLUSER Y ^( n ~ ^( nhY^lp SYS_BINTIMY^FOR$REWRITE_SU0 FOR$IO_X_SE FOR$IO_ENDPk1 1Y}.BULLFIL~|TRIMP^(P n^SVVZZ˄ZY^ˈˌCHKACLY^k YYY˨TRIMP^(P n^SZ ^( 7n Z~Z~ZˠTRIMP^(PAn^SVVZ}. From: ~Z˘TRIMP^(P n^SVVZ^(DnZ~Z~Z~Z~Z,Zn TPQ^˸ SYS_TRNLNMPkk SYS_TRNLNMPkԫZk14 FOR$READ_IF߫ FOR$IO_L_R FOR$IO_ENDPk1 FOR$BJTESTP1OPEN_BULLNOTIFY_SHAREDREC_LOCKP  FOR$READ_SU  FOR$IO_X_SE FOR$IO_ENDPի1READ_USER_FILEkTEST2P:*  FOR$WRITE_SU  FOR$IO_X_SE FOR$IO_ENDREAD_USER_FILEREC_LOCKP~  FOR$READ_KU  FOR$IO_X_SE FOR$IO_ENDP<Zի TEST2P-  *V~,TRIMP^(PTn^SWWXX4XV^8<X< SYS$BRKTHRUV^ZիZ1lGETUSERSP1xREAD_USER_FILE_KEYNAME˄TEST2P1k1) A1YV}.BULLFIL~ːTRIMP^(P n^SWWXX˘XV^˜ˠ CHECK_ACCESSV^kk1ZV~˴TRIMP^(PTn^SWWXXXV^˼TRIMPZ SYS$BRKTHRUV^V~TRIMP^(PTn^SWWXXXV^ TRIMP Z@$ SYS$BRKTHRUV^TCLR2FOR$REWRITE_SU@^(@ n ^( nL`^d` FOR$IO_T_V_DS FOR$IO_ENDPkkZ  FOR$DELETEZhREC_LOCKP  FOR$READ_SU  FOR$IO_X_SE FOR$IO_ENDP1 ZCLOSE_BULLNOTIFYpREAD_USER_FILE_KEYNAMEDHCLOSE_BULLUSERDPNew bulletin added to folder QDescription:  O UPDATE_LOGINOPEN_BULLUSER_SHAREDREAD_USER_FILE_HEADERCLOSE_BULLUSER SYS_BINTIMCHKACLTRIM SYS_TRNLNM FOR$BJTESTOPEN_BULLNOTIFY_SHAREDREC_LOCKREAD_USER_FILETEST2 SYS$BRKTHRUGETUSERSREAD_USER_FILE_KEYNAME CHECK_ACCESSCLR2CLOSE_BULLNOTIFY$CODEa$PDATA8$LOCALBULL_DIR INPUT_BUFFERL HEADER_INFOL BULL_USER FOLDER_TIMES NEW_MESSAGES  BULL_FOLDER  BULL_FOLDER1 FOR$DELETE FOR$IO_END FOR$IO_L_R FOR$IO_T_V_DS FOR$IO_X_SE FOR$READ_SU FOR$READ_KU FOR$WRITE_SUFOR$REWRITE_SU FOR$READ_IFQP cPQPPPPWPPPP PuP(#PB2P3GP$JPrPPDP,P#PP,P# P]PQ"PDkPpPvPPPqPjPYPFPP PW`PXPRPBPP P $P33P$6P_PI  ww1Cϒ016 UPDATE_READ0128-Oct-1989 11:3328-Oct-1989 11:33VAX FORTRAN V5.2-33 UPDATE_READ P UPDATE_READ4P LL,LL40,aP(PPH([OPEN_BULLUSER_SHARED,READ_USER_FILE_HEADERիCLOSE_BULLUSERPѠѠ Qޠ4\ԬԬ ԌQ(Џ@Ԡ FOR$REWRITE_SU FOR$IO_X_SE FOR$IO_END4 SYS$ASCTIMH SYS_BINTIM FOR$UNLOCKTREAD_USER_FILE_KEYNAME\իЬЬЫجЫܬFOR$REWRITE_SU FOR$IO_X_SE FOR$IO_ENDЫЫԬ Ыج ЫܬЫجЫܬ`WRITE_USER_FILE_NEWkhMODIFY_SYSTEM_LISTkCLOSE_BULLUSER H UPDATE_READOPEN_BULLUSER_SHAREDREAD_USER_FILE_HEADERCLOSE_BULLUSER SYS$ASCTIM SYS_BINTIMREAD_USER_FILE_KEYNAMEWRITE_USER_FILE_NEWMODIFY_SYSTEM_LIST!$CODE$PDATA$LOCALL HEADER_INFOL BULL_USER FOLDER_TIMES NEW_MESSAGESBULL_DIR INPUT_BUFFER FOR$UNLOCK FOR$IO_END FOR$IO_X_SEFOR$REWRITE_SU.P 8PHBP>P:P$P PD !ww1@bϒ01AUPDATE_REMOTE_USERINFO0128-Oct-1989 11:3528-Oct-1989 11:35VAX FORTRAN V5.2-33 UPDATE_REMOTE_USERINFO"UPDATE_REMOTE_USERINFOPaP PQGENERAL 'P|H[ P( @ DмP@  -   OPEN_USERINFO P@P@ rk COMPARE_BTIMP PQA r@QA v@ UPDATE_USERINFO|H[V ^( n ~ ^( n V^ SYS_BINTIMV^P@ r$ COMPARE_BTIMPPЫ@ rPЫ@ vPDECNETr |HUPDATE_REMOTE_USERINFO OPEN_USERINFO COMPARE_BTIMUPDATE_USERINFO |HSAVE_LAST_READ_BTIM SYS_BINTIM$CODE$PDATA4$LOCALL HEADER_INFOL BULL_USER FOLDER_TIMES NEW_ME SSAGESBULL_DIR INPUT_BUFFER  BULL_FOLDER  BULL_FOLDER1CONNECT_STATUS,PP>PP!PPAPP!PP!PP"P8PG;P;|PP!PPfPP&PP$P#P (PRF68ww1@ϒ01:WRITEOUT_STORED0128-Oct-1989 11:3528-Oct-1989 1 1:35VAX FORTRAN V5.2-33WRITEOUT_STORED P)WRITEOUT_STOREDPPH[ FOR$REWIND\\ FOR$READ_SFk FOR$IO_T_DS FOR$IO_ENDP\WRITE_MESSAGE_LINE FOR$CLOSE HWRITEOUT_STOREDWRITE_MESSAGE_LINE FOR$CLOSEU$CODE$PDATA$LOCAL FOR$REWIND FOR$IO_END FOR$IO_T_DS FOR$READ_SFP4P>P$ Uww1@5>ϒ014 WRITE_AST0128-Oct-1989 11:3528-Oct-1989 11:35VAX FORTRAN V5.2-33 WRITE_AST WRITE_ASTPP H[޼RRP@Rk DISCONNECTSBNBNB&B&BB  READ_QUEUEB&,Rk( WRITE_CHAN H WRITE_AST DISCONNECT READ_QUE UE WRITE_CHAN}$CODE$PDATA$LOCALx PROCBUFCONNECT_STATUS+P 'PT5PFϒ015 WRITE_CHAN0128-Oct-1989 11:3528-Oct-1989 11:35VAX FORTRAN V5.2-33 WRITE_CHAN WRITE_CHAN&P IO$_WRITEVBLK WRITE_ASTPH[}PQPk޼ x P@P LIB$MOVC3м P@L @  P>@(м 0x P@P4м8SYS$QIOP P@ P2@ H WRITE_CHAN IO$_WRITEVBLK WRITE_AST LIB$MOVC3SYS$QIO$CODE$PDATAL$LOCALREADBUF x PROCBUFPPww1ϒ01=WRITE_MESSAGE_LINE0128-Oct-1989 11:3528-Oct-1989 11:35VAX FORTRAN V5.2-33WRITE_MESSAGE_LINE$P %"-------------)WRITE_MESSAGE_LINEP  444 | ,$  $  44<Pd STORE_BULL@  aP PQGENERAL ' P PPPO[}PQP<TRIMP Y1 FOR$WRITE_SFDHD FOR$IO_T_DS FOR$IO_ENDk <ZZ^(ZnLTRIMP^(Pn^SVVZ,Zn PQ^k1)- nѫ<PPZ,PJ k1ի) "1) "ѫ <P P Z,PJ kի- nTGETUSER\TRIMP1k(d FOR$BJTESTPp STORE_FROM˄ LIB$INDEXP˘ LIB$INDEXP ,  ˤTRIMP(iˬ FOR$BJTESTP˸ STORE_DESCRP,n 5 WRITEOUT_STORED FOR$BJTESTP1 LIB$INDEXPZЫVTVTP@-ZVTZZ FINISH_MESSAGE_ADDINIT_MESSAGE_ADD_DIGEST ԫ  1 1) +  <P PP ZJ STORE_DESCRPի STORE_FROM1)41ZZ1TRIMP  PPV"~^(n ^( n XXWWWV^ $ STORE_FROMV^0 STORE_FROM1  ߫PPV"~P