% VAX-11 Librarian V04-00@Hr$r!9O87u||  )NPADDsADD_ACLxvADD_DIRECTORIESy ADD_DIRECTORY{F ADD_ENTRYFADD_EXCLADD_LOCAL_NEWS ADD_NEWS_TAG ADD_PROTOCOL ADD_SIGNATUREADD_TAGALLPRIVBALPHAATTACHBBOARD BBOARD_NAMETBROADCAST_ALL_NODES BULLETIN$MAINnBULLETIN_MAINCOMMANDSBULLETIN_SUBCOMMANDS BULL_CONNECT` BULL_NEWS CAPTIVE L CHANGE_FLAG CHECK_ACCESS8CHECK_BULLETIN_PRIV\CHECK_CONNECTIONSPADD ADD_2_ITMLSTADD_2_ITMLST_WITH_RETsADD_ACLxvADD_DIRECTORIESy ADD_DIRECTORY{F ADD_ENTRYFADD_EXCLADD_LOCAL_NEWSADD_MERGE_FROMADD_MERGE_REST ADD_MERGE_TO ADD_NEWS_TAG ADD_PROTOCOL ADD_SIGNATUREADD_TAGALLPRIVBALPHA3(ASSIGN_TERMINALATTACHBBOARD BBOARD_NAME2 BROADCASTTBROADCAST_ALL_NODES BULLETIN$MAINnBULLETIN_MAINCOMMANDSCONNECTBULLETIN_SUBCOMMANDS BULL_CONNECTCANCEL_CTRLC_ASTpCANCEL_NEWS_TIMER CAPTIVE L CHANGE_FLAG LCHANGE_FLAG_NOCMD CHECK_ACCESS8CHECK_BULLETIN_PRIV\CHECK_CONNECTIONSx CHECK_CUSTOM CHECK_DIR#CHECK_DIR_ACCESS% CHECK_EXCL{CHECK_EXCLUDES( CHECK_MAIL+h CHECK_NEWUSER-f CHECK_PRIV_IO/XCHKACL0CHKPRO1CLEANUP_BULLFILE CLOSE_BULLFILFfCLOSE_BULLFOLDERFf CLOSE_BULLINF`GETHOSTBYNAME1Y)BULLETIN_MAINCOMMANDSCLEANUP_BULLFILE COMMAND_INPUT CONVERT_ENTRY_FROMBIN CREATE_FOLDER DETECT_BBOARDFILTERGETHOSTBYNAME1 GET_INPUT_NOECHOGET_NODE_NUMBER_OTHERGET_THIS_NEWS_TAGINIT_MESSAGE_ADD_BBOARD MODIFY_FOLDERNEWS_CREATE_BULLCP NEWS_NEW_FOLDER! NEWS_SOCKET NNTP_LISTEN$ OPEN_FILE%READ_FOLDER_FILE_KEYNAME"READ_FOLDER_FILE_KEYNUM SETUSER_C1ER_FILE_TEMPX(NEWS_SOCKET_AST`NEWS_SOCKET_BULLCP NEWS_TIMENEWS_TO_FOLDERNEWS_TO_FOLDER1NEWS_UPDATE_NEWEST_MESSAGE NEWS_WRITENEWS_WRITE_AST`NEWS_WRITE_PACKET`NEWS_WRITE_PACKET_BULLCPNEW_MESSAGE_NOTIFICATIONNEW_NEWS_ACCESS` NNTP_ACCEPT`NNTP_ACCEPT_WAIT` NNTP_LISTEN`NOTIFY_REMOTE_USERS NOTIFY_USERS OPEN_BULLDIR OPEN_BULLFILVREAD_FOLDER_FILEVREAD_FOLDER_FILE_KEYNAMEKEYNUMDER_FILEXBULLETIN_SUBCOMMANDS BULL_CONNECT` BULL_NEWS CAPTIVE L CHANGE_FLAG CHECK_ACCESS8CHECK_BULLETIN_PRIV\CHECK_CONNECTIONSx CHECK_CUSTOM CHECK_DIR#CHECK_DIR_ACCESS% CHECK_EXCL( CHECK_MAIL+h CHECK_NEWUSER-f CHECK_PRIV_IO/XCHKACL0CHKPRO1CLEANUP_BULLFILE>CLEANUP_DIRFILEB CLEANUP_LOGINFf CLOSE_FILEH CLOSE_FILESICLOSE_FILE_DELETEJL CLOSE_TAGN CLR2OCLR_TAGBULLETIN_MAINCOMMANDSCLEANUP_BULLFILE CONVERT_BULLDIRSCOPY2 DELETE_NODEERROR_AND_EXIT GETPAGSIZ GET_L_VAL GET_SEARCH LNM_MODE_EXECNEWS_FIND_SUBSCRIBE1 NEWS_TIME# PRINT_OUTPUT&REGISTER_BULLCP+RESET-SET_FILE/ SET_SYSTEM1 STORE_BULL13TEST_NEWS_OWNER5UPDATE_SHUTDOWN7ZERO_VMUEUEGE_LINE[`NEWS_DISCONNECT4 NEWS_FEED5NEWS_FIND_SUBSCRIBE7`NEWS_FIND_SUBSCRIBE1` NEWS_GETHOST`NEWS_GETHOSTNAME` NEWS_GET_CHAN8NEWS_GET_NEWEST_MESSAGE:4NEWS_GET_NEWEST_MESSAGE1;0NEWS_GET_SUBSCRIBE=4 NEWS_GROUP@ NEWS_HEADERG NEWS_LISTU. NEWS_LOGINW NEWS_LOGOUTX$NEWS_NEW_FOLDERZNEWS_NEW_NOTIFICATION` NEWS_POSTx0 NEWS_READ{ NEWS_READ_AST`NEWS_READ_PACKET` NEWS_SET_CHAN` NEWS_SOCKETb` GETHOSTNAME1lGETIMAGE GETPAGSIZjGETPRIVGETQUOTAGETSTSGETUICGETUSERFGETUSERS2 GET_2_VALS2GET_BROADCAST_MESSAGE  GET_BULL GET_BULL_LINE  GET_EXDATE GET_EXPIREDbGET_FIRST_NEWS_TAG$ GET_FIRST_TAG,GET_FOLDER_INFO/JGET_FROM3(GET_INPUT_NOECHO3(GET_INPUT_NOECHO_PROMPT3( GET_INPUT_NUM8GET_INPUT_PROMPT7T GET_INTEGER$ GET_NEXT_TAGbGET_THIS_NEWS_TAGh>CLEANUP_DIRFILEB CLEANUP_LOGINFf CLOSE_BULLDIRICLOSE_BULLDIR_DELETEFf CLOSE_BULLFILICLOSE_BULLFIL_DELETEFfCLOSE_BULLFOLDERFf CLOSE_BULLINFFfCLOSE_BULLNEWSFfCLOSE_BULLUSERFf CLOSE_FILEH CLOSE_FILESICLOSE_FILE_DELETEFf CLOSE_SYSUAFJL CLOSE_TAGN CLR2OCLR_TAGPj COMMAND_INPUTQJ COMPARE_BTIMR> COMPARE_DATESCOMPARE_MSG_KEYT COMPARE_TIMEU CONFIRM_TAGY CONFIRM_USER`GETHOSTBYNAME1^>CLEANUP_DIRFILEB CLEANUP_LOGINFf CLOSE_FILEH CLOSE_FILESICLOSE_FILE_DELETEJL CLOSE_TAGN CLR2OCLR_TAGPj COMMAND_INPUTQJ COMPARE_BTIMR> COMPARE_DATESCOMPARE_MSG_KEYT COMPARE_TIMEU CONFIRM_TAGY CONFIRM_USERZ,CONNECT_ACCEPT]CONNECT_REMOTE_FOLDERerCONVERT_BULLDIRSk&CONVERT_BULLFILEpCONVERT_BULLFILESvCONVERT_BULLFOLDERTCONVERT_BULLNEWSCONVERT_BULLNEWSDIRCONVERT_ENTRY_FROMBIN`QJ COMPARE_BTIMR> COMPARE_DATESCOMPARE_MSG_KEYT COMPARE_TIME`COMPRESSU CONFIRM_TAGY CONFIRM_USERZ,CONNECT_ACCEPT]CONNECT_REMOTE_FOLDERerCONVERT_BULLDIRSk&CONVERT_BULLFILEpCONVERT_BULLFILESvCONVERT_BULLFOLDERTCONVERT_BULLNEWSCONVERT_BULLNEWSDIRCONVERT_ENTRY_FROMBINENTRY_FROMBIN_FOLDER,CONVERT_ENTRY_TOBINCONVERT_HEADER_FROMBINCONVERT_HEADER_TOBINCONVERT_INFFILE`GETHOSTBYNAME1[k&CONVERT_BULLFILEpCONVERT_BULLFILESvCONVERT_BULLFOLDERTCONVERT_BULLNEWSCONVERT_BULLNEWSDIRCONVERT_ENTRY_FROMBIN,CONVERT_ENTRY_TOBINCONVERT_HEADER_FROMBINCONVERT_HEADER_TOBINCONVERT_INFFILE CONVERT_ROTC CONVERT_TABSCONVERT_TO_GMTpCONVERT_USERFILEBCOPY2COPY_ACL COPY_ACL1 COPY_BULL COPY_CHAR@ CREATE_BULLCP CREATE_FOLDERCREATE_NEWS_FOLDERDCREATE_PROCESSgCONVERT_ENTRY_FROMBIN_FOLDER,CONVERT_ENTRY_TOBINCONVERT_FROM_GMTCONVERT_HEADER_FROMBINCONVERT_HEADER_TOBINCONVERT_INFFILE CONVERT_ROTC CONVERT_TABSCONVERT_TO_GMTpCONVERT_USERFILEBCOPY2COPY_ACL COPY_ACL1 COPY_BULL COPY_CHAR@ CREATE_BULLCP CREATE_FOLDERCREATE_NEWS_FOLDERDCREATE_PROCESSCRELNM CTRLC_ROUTINEB DATE_TIMEDCLEXH`GETHOSTBYNAME1hCOPY_ACL COPY_ACL1 COPY_BULL COPY_CHAR@ CREATE_BULLCP CREATE_FOLDERCREATE_NEWS_FOLDERDCREATE_PROCESSCRELNM CTRLC_ROUTINEB DATE_TIMEDCLEXHDECLARE_CTRLC_ASTDECREMENT_MSG_KEY DELETE_ENTRYDELETE_EXPIREDDELETE_EXPIRED_NEWSb DELETE_MSG DELETE_NODE DELLNM 6DELPRCDEL_ACLF DEL_NEWS_TAGDEL_TAG DETECT_BBOARD DIRECTORYBDIRECTORY_FOLDERS^CREATE_NEWS_FOLDERDCREATE_PROCESSCRELNM CTRLC_ROUTINEB DATE_TIMEDCLEXHDECLARE_CTRLC_ASTDECREMENT_MSG_KEY DELETE_ENTRYDELETE_EXPIREDDELETE_EXPIRED_NEWSb DELETE_MSG DELETE_NODE DELLNM 6DELPRCDEL_ACLF DEL_NEWS_TAGDEL_TAG DETECT_BBOARD DIRECTORYBDIRECTORY_FOLDERS[ DIRECTORY_HEADER` DISABLE_CTRLa DISABLE_PRIVSb DISCONNECT`GETHOSTBYNAME1\ DELLNM 6DELPRCDEL_ACLF DEL_NEWS_TAGDEL_TAG DETECT_BBOARD DIRECTORYBDIRECTORY_FOLDERS[ DIRECTORY_HEADER` DISABLE_CTRLa DISABLE_PRIVSb DISCONNECTcDISCONNECT_REMOTEe DO_COMMAND DUMP_MESSAGE EDITMESSAGE ENABLE_CTRL ENABLE_PRIVSVERROR_AND_EXIT& ERROR_TRAP\EXECUTE_COMMAND8FILEn FILE_LOCKFILTERR FIND_BULLCPJFIND_NEWEST_BULLFINISH_MESSAGE_ADDv DIRECTORYBDIRECTORY_FOLDERS[ DIRECTORY_HEADER` DISABLE_CTRLa DISABLE_PRIVSb DISCONNECTcDISCONNECT_REMOTEe DO_COMMAND DUMP_MESSAGE EDITMESSAGE ENABLE_CTRLENABLE_CTRL_EXIT ENABLE_PRIVS END_ITMLSTVERROR_AND_EXIT& ERROR_TRAP\EXECUTE_COMMAND8FILEn FILE_LOCKFILTERPJFIND_NEWEST_BULLFINISH_MESSAGE_ADD2 FIRST_ALPHA FIRST_INDEX FOLDER_ACCESS`GETHOSTBYNAME1f& ERROR_TRAP\EXECUTE_COMMAND8FILEn FILE_LOCKFILTERR FIND_BULLCPJFIND_NEWEST_BULLFINISH_MESSAGE_ADD2 FIRST_ALPHA FIRST_INDEX FOLDER_ACCESSVFOLDER_FILE_ROUTINESFOLDER_TO_NEWS FREE_TAGSFULL_DIRGETACC GETDEVNAME2 GETDEVUNITlGETIMAGE GETPAGSIZjGETPRIVGETQUOTAGETSTSGETUICGETUSERFGETUSERS2 GET_2_VALS2GET_BROADCAST_MESSAGE4R FIND_BULLCPJFIND_NEWEST_BULLFINISH_MESSAGE_ADD2 FIRST_ALPHA FIRST_INDEX* FLUSH_BULLFOLDER1_TO_NEWS FOLDER_ACCESSVFOLDER_FILE_ROUTINESFOLDER_TO_NEWS FREE_TAGSFULL_DIRGETACC GETDEVNAME2 GETDEVUNIT`GETHOSTBYNAME1(VREAD_FOLDER_FILE_KEYNUM_GTVREAD_FOLDER_FILE_KEYNUM_GT_TEMPVREAD_FOLDER_FILE_KEYNUM_TEMPVREAD_FOLDER_FILE_TEMP% READ_HEADER)^ READ_INF_REC.READ_IN_FOLDERS3<READ_MBX4READ_MSGWFREAD_NEWS_USERINFO#bREAD_NEXT_EXPIREDY READ_NOTIFY[ READ_PERMd READ_QUEUEREAD_USER_FILEREAD_USER_FILE_HEADERREAD_USER_FILE_KEYNAMEeRECOUNTiREC_LOCK,REDISPLAY_DIRECTORYTUIC_C%SETUSER% SETUSER_C1TEMPajGETPRIVGETQUOTAGETSTSGETUICGETUSERFGETUSERS2 GET_2_VALS2GET_BROADCAST_MESSAGE  GET_BULL GET_BULL_LINE  GET_EXDATE GET_EXPIREDbGET_FIRST_NEWS_TAG$ GET_FIRST_TAG,GET_FOLDER_INFO/JGET_FROM3(GET_INPUT_NOECHO7T GET_INTEGER8GET_LINE: GET_L_VAL; GET_MSGBTIM< GET_MSGKEY=GET_NEWEST_MSG>XGET_NEW_OR_SINCEAGET_NEXT_GROUPFGET_NEXT_NEWS_TAGIGET_NEXT_UNTAGbGET_THIS_OR_NEXT_NEWS_TAG$GET_THIS_OR_NEXT_TAG$ GET_THIS_TAGqGET_UAFr GET_UNAMEtx GET_UPTIMEv& GET_USER_PRIVwGET_VALxFGET_VMS_VERSIONyHELPzHIBER`HTONS1{INCLUDET INCLUDE_MSG` INET_NTOA1INITIALIZE_MERGE INIT_BULLETIN` INIT_COMPRESS INIT_ITMLSTDINIT_MESSAGE_ADDDINIT_MESSAGE_ADD_BBOARD_QUEUE` NEWS_ASSIGN` NEWS_CONNECT` NEWS_CREATE`NEWS_CREATE_BULLCPd3(GET_INPUT_NOECHO_PROMPT3( GET_INPUT_NUM8GET_INPUT_PROMPT7T GET_INTEGER8GET_LINE: GET_L_VAL; GET_MSGBTIM< GET_MSGKEY=GET_NEWEST_MSG>XGET_NEW_OR_SINCEAGET_NEXT_GROUPFGET_NEXT_NEWS_TAG$ GET_NEXT_TAGIGET_NEXT_UNTAGKl GET_NODE_INFOQTGET_NODE_NUMBERRGET_NODE_NUMBER_OTHERTL GET_PATHNAMEVGET_PREVIOUS_TAGY2GET_PROXY_ACCOUNTS\GET_PROXY_USERNAME]GET_REMOTE_MESSAGEbGET_THIS_NEWS_TAG]; GET_MSGBTIM< GET_MSGKEY=GET_NEWEST_MSG>XGET_NEW_OR_SINCEAGET_NEXT_GROUPFGET_NEXT_NEWS_TAGIGET_NEXT_UNTAGKl GET_NODE_INFOQTGET_NODE_NUMBERRGET_NODE_NUMBER_OTHERTL GET_PATHNAMEVGET_PREVIOUS_TAGY2GET_PROXY_ACCOUNTS\GET_PROXY_USERNAME]GET_REMOTE_MESSAGEd GET_SEARCHqGET_UAFr GET_UNAMEtx GET_UPTIMEv& GET_USER_PRIVwGET_VALxFGET_VMS_VERSIONyHELPzHIBER{INCLUDETL GET_PATHNAMEVGET_PREVIOUS_TAGY2GET_PROXY_ACCOUNTS\GET_PROXY_USERNAME]GET_REMOTE_MESSAGEd GET_SEARCHbGET_THIS_NEWS_TAG`qGET_UAFr GET_UNAMEtx GET_UPTIMEv& GET_USER_PRIVwGET_VALxFGET_VMS_VERSIONyHELPzHIBER{INCLUDET INCLUDE_MSG INIT_BULLETIN` INIT_COMPRESSDINIT_MESSAGE_ADDB INIT_QUEUEF INTEGER_KEY ITMLST_SUBSKILL_NEWS_CONNECT LAST_INDEX LISTEN_AST* LNM_MODE_EXEC,LOGIN LOWERCASEMAILMAILEDIT MAIL_ERROR* MAKE_CHARMATCH MBX_ASTMERGEMINGT0vDINIT_MESSAGE_ADD_DIGESTB INIT_QUEUEF INTEGER_KEY ITMLST_SUBSKILL_NEWS_CONNECT% KMODE_EHAND LAST_INDEX LISTEN_AST* LNM_MODE_EXEC,LOGIN, LOGIN_FOLDER LOWERCASEMAILMAILEDIT MAIL_ERROR* MAKE_CHARMATCH MBX_ASTMERGEMINGT0 MINUTE_DIFF MODIFY_FOLDEREM_LISTMOVE"NEWNEWS` NEWS_ASSIGN` NEWS_CONNECT` NEWS_CREATE`NEWS_CREATE_BULLCP_,LOGIN LOWERCASEMAILMAILEDIT MAIL_ERROR* MAKE_CHARMATCH MBX_ASTMERGEMINGT0 MINUTE_DIFF MODIFY_FOLDERMODIFY_SYSTEM_LISTMOVE"NEWNEWS* NEWS2BULL0 NEWS_ACCESS3\NEWS_CREATE_AST4 NEWS_FEED5NEWS_FIND_SUBSCRIBE7`NEWS_FIND_SUBSCRIBE18NEWS_GET_NEWEST_MESSAGE:4NEWS_GET_NEWEST_MESSAGE1;0NEWS_GET_SUBSCRIBE=4 NEWS_GROUP@ NEWS_HEADERG NEWS_LISTMODIFY_SYSTEM_LISTMOVE"NEWNEWS* NEWS2BULL0 NEWS_ACCESS` NEWS_ASSIGN` NEWS_CONNECT` NEWS_CREATE3\NEWS_CREATE_AST`NEWS_CREATE_BULLCPf8NEWS_GET_NEWEST_MESSAGE:4NEWS_GET_NEWEST_MESSAGE1;0NEWS_GET_SUBSCRIBE=4 NEWS_GROUP@ NEWS_HEADERG NEWS_LISTU. NEWS_LOGINW NEWS_LOGOUTX$NEWS_NEW_FOLDERZNEWS_NEW_NOTIFICATION` NEWS_POSTx0 NEWS_READ{ NEWS_READ_AST|NEWS_RECONNECT~NEWS_SET_USER_FLAGNEWS_SOCKET_AST NEWS_TIMENEWS_UPDATE_NEWEST_MESSAGE NEWS_WRITENEWS_WRITE_ASTNEW_MESSAGE_NOTIFICATIONNEW_NEWS_ACCESS(ZNEWS_NEW_NOTIFICATION` NEWS_POSTx0 NEWS_READ{ NEWS_READ_AST`NEWS_READ_PACKET|NEWS_RECONNECT` NEWS_SET_CHAN~NEWS_SET_USER_FLAG` NEWS_SOCKET(VREAD_FOLDER_FILE_KEYNAMEGE_TEMPVREAD_FOLDER_FILE_KEYNAMEGT_TEMPVREAD_FOLDER_FILE_KEYNAME_TEMPVREAD_FOLDER_FILE_KEYNUMYNEWS_UPDATE_NEWEST_MESSAGE NEWS_WRITENEWS_WRITE_ASTNEW_MESSAGE_NOTIFICATIONNEW_NEWS_ACCESS`NOTIFY_REMOTE_USERS NOTIFY_USERS OPEN_FILEtOPEN_FILE_SHARED( OPEN_NEW_TAG OPEN_OLD_TAG> OPEN_USERINFO( OPER_PRIV OUTPUT_HELPPRESENT PRINT PRINT_OUTPUT> PUT_OUTPUT(READACLREADDIR READDIR_KEYGEREADNEW dREAD_AST"l READ_CHAN#bREAD_FIRST_EXPIRED% READ_HEADERU(`NOTIFY_REMOTE_USERS NOTIFY_USERS OPEN_BULLDIRtOPEN_BULLDIR_SHARED OPEN_BULLFILtOPEN_BULLFIL_SHAREDOPEN_BULLFOLDERtOPEN_BULLFOLDER_SHARED OPEN_BULLINFtOPEN_BULLINF_SHARED OPEN_BULLNEWStOPEN_BULLNEWS_SHARED OPEN_BULLUSERtOPEN_BULLUSER_SHARED OPEN_FILEtOPEN_FILE_SHARED( OPEN_NEW_TAG OPEN_OLD_TAG OPEN_SYSUAFtOPEN_SYSUAF_SHAREDVREAD_FOLDER_FILEVREAD_FOLDER_FILE_KEYNAME(tOPEN_FILE_SHARED( OPEN_NEW_TAG OPEN_OLD_TAG OPEN_SYSUAFtOPEN_SYSUAF_SHARED> OPEN_USERINFO( OPER_PRIV OUTPUT_HELPPRESENT PRINT PRINT_NOW PRINT_OUTPUT> PUT_OUTPUT(READACLREADDIR READDIR_KEYGEREADNEW dREAD_AST"l READ_CHAN#bREAD_FIRST_EXPIREDVREAD_FOLDER_FILEVREAD_FOLDER_FILE_KEYNAME_> PUT_OUTPUT(READACLREADDIR READDIR_KEYGEREADNEW dREAD_AST"l READ_CHAN#bREAD_FIRST_EXPIRED% READ_HEADER)^ READ_INF_REC.READ_IN_FOLDERS3<READ_MBX4READ_MSGWFREAD_NEWS_USERINFOY READ_NOTIFY[ READ_PERMd READ_QUEUEeRECOUNTiREC_LOCKjREGISTER_BULLCPpbREMOTE_COPY_BULLqv REMOTE_DELETEtXREMOTE_DIRECTORY_COMMANDREMOTE_GET_HEADERnREMOTE_GET_NEWEST_MSGY(% SETUSER_C2, SET_ACCESS<< SET_BBOARDFSET_BRIEF_CONTINUOUSH SET_BULLFILHSET_BULLFIL_NAMEHSET_BULLFIL_UPDATELXSET_BULLNEWSDIR_FILEN SET_CUSTOMRbSET_DEFAULT_EXPIREVhSET_FILEWbSET_FOLDER_DEFAULT]SET_FOLDER_EXPIRE_LIMITaSET_FOLDER_FILEbRSET_FOLDER_FLAGfl SET_GENERICiR SET_KEYPADu SET_LIBRARYxZ SET_LOGIN{B SET_NEWNAME)^ SET_NEWS_FLAG[SET_PERMSET_PROTECTION[ SET_USER_FLAGEMP,)! NEWS_SOCKET NNTP_LISTEN$ OPEN_FILE%READ_FOLDER_FILE_KEYNAME"READ_FOLDER_FILE_KEYNUMREDISPLAY_DIRECTORY*RESET, SETUSER_C1' SET_GENERIC0 SET_USER_FLAG. STORE_BULL2TEST_MORE_LINES4UPDATE_LOCAL_NEWS6 WRITE_CHAN8ZERO_VMSER_FILE_NEW$NEWS_NEW_FOLDER(ZERO_VMSER_FILE_NEWEMPj(jREGISTER_BULLCPpbREMOTE_COPY_BULLqv REMOTE_DELETEtXREMOTE_DIRECTORY_COMMANDREMOTE_GET_HEADERnREMOTE_GET_NEWEST_MSGREMOTE_READ_MESSAGEREMOTE_REMOVE_FOLDERtREMOTE_WRITE_BULL_FILE REMOVE_ENTRY REMOVE_FOLDERREORDER_SUBSCRIBEREPLACE2REPLY8REQUEUE_NNTP_ACCEPT_WAITRESETTE_FOLDER_FILEVREWRITE_FOLDER_FILE_TEMP%SETACC%SETACC_C%SETUIC%SETUIC_C%SETUSER% SETUSER_C1TpbREMOTE_COPY_BULLqv REMOTE_DELETEtXREMOTE_DIRECTORY_COMMANDREMOTE_GET_HEADERnREMOTE_GET_NEWEST_MSGREMOTE_READ_MESSAGEREMOTE_REMOVE_FOLDERtREMOTE_WRITE_BULL_FILE REMOVE_ENTRY REMOVE_FOLDERREORDER_SUBSCRIBEREPLACE2REPLY8REQUEUE_NNTP_ACCEPT_WAITRESETRESET_PROTECTIONRESPONDP RESPOND_MAIL, RUN_BULLCP8SEARCH8 SELECT_FOLDERSENDMAIL"f SEND_POST&nSET2(RESET_PROTECTIONb RESET_TIMERRESPONDP RESPOND_MAILVREWRITE_FOLDER_FILEVREWRITE_FOLDER_FILE_TEMP, RUN_BULLCP~SAVE_LAST_READ_BTIM~SAVE_LAST_SYS_BTIM8SEARCH8 SELECT_FOLDERSENDMAIL"f SEND_POST&nSET2%SETACC%SETACC_C'  SETDEFAULT* SETPRV_PRIV%SETUIC%SETUIC_C%SETUSER% SETUSER_C1ZRESET_PROTECTIONRESPONDP RESPOND_MAIL, RUN_BULLCP8SEARCH8 SELECT_FOLDERSENDMAIL"f SEND_POST&nSET2'  SETDEFAULT* SETPRV_PRIV, SET_ACCESS<< SET_BBOARDFSET_BRIEF_CONTINUOUSH SET_BULLFILLXSET_BULLNEWSDIR_FILEN SET_CUSTOMRbSET_DEFAULT_EXPIREVhSET_FILEWbSET_FOLDER_DEFAULT]SET_FOLDER_EXPIRE_LIMITaSET_FOLDER_FILEbRSET_FOLDER_FLAGfl SET_GENERICiR SET_KEYPADu SET_LIBRARYf( SET_VERSION.SHOWACL SHOW_EXCLUDE SHOW_FLAGSh SHOW_FOLDER SHOW_KEYPAD SHOW_LIBRARY SHOW_NEWS SHOW_NEW_VERSION SHOW_PRIV, SHOW_SYSTEM SHOW_USER  SHOW_VERSIONP SLOW_TERMINALl SPAWN_PROCESSSPECIAL_NEWSDIR_ENTRY START_DECNETpSTART_NEWS_TIMERt STORE_BULL* STORE_BULL1  TEST_MORE_LINESTEST_MORE_RECORDS` UNCOMPRESSVWRITE_FOLDER_FILEVWRITE_FOLDER_FILE_TEMPhWbSET_FOLDER_DEFAULT]SET_FOLDER_EXPIRE_LIMITaSET_FOLDER_FILEbRSET_FOLDER_FLAGfl SET_GENERICiR SET_KEYPADu SET_LIBRARYxZ SET_LOGIN{B SET_NEWNAMESET_NEWSSET_NEWS_FOLDER_DEFAULT SET_NEWS_MARK SET_NEWS_TAGSET_NODE SET_NOKEYPADDSET_PRIVSET_REMOTE_SYSTEM^ SET_SYSTEMSET_TAGb SET_TIMER SET_VERSION.SHOWACL SHOW_EXCLUDE SHOW_FLAGSh SHOW_FOLDER SHOW_KEYPAD](iR SET_KEYPADu SET_LIBRARYxZ SET_LOGIN{B SET_NEWNAMESET_NEWS)^ SET_NEWS_FLAGSET_NEWS_FOLDER_DEFAULT SET_NEWS_MARK SET_NEWS_TAGSET_NODE SET_NOKEYPAD[SET_PERMDSET_PRIVSET_PROTECTIONSET_REMOTE_SYSTEM^ SET_SYSTEMSET_TAGb SET_TIMER[ SET_USER_FLAG]SET_TAGb SET_TIMER SET_VERSION.SHOWACL SHOW_EXCLUDE SHOW_FLAGSh SHOW_FOLDER SHOW_KEYPAD SHOW_LIBRARY SHOW_PRIV SHOW_USER  SHOW_VERSIONP SLOW_TERMINALl SPAWN_PROCESSSPECIAL_NEWSDIR_ENTRY START_DECNETpSTART_NEWS_TIMERt STORE_BULL* STORE_BULL1!@ STORE_DESCRP"~ STORE_FROM&STORE_ITMLST_ENTRY'<STREQ'STRFIND) STRIP_HEADER+ SUBSCRIBE/VSUBTIMEe(* STORE_BULL1!@ STORE_DESCRP"~ STORE_FROM&STORE_ITMLST_ENTRY'<STREQ'STRFIND) STRIP_HEADER+ SUBSCRIBE/VSUBTIME0 SYS_BINTIM2. SYS_GETMSG3J SYS_TRNLNM5SYS_TRNLNM_SYSTEM7SYS_TRNLNM_SYSTEM_INDEX9^TAG@TAG_KEYABTEST2BTEST_BRIEF_FLAGC TEST_BULLCP  TEST_MORE_LINESTEST_MORE_RECORDSD TEST_NEWSETEST_NEWS_OWNER` UNCOMPRESSVWRITE_FOLDER_FILEVWRITE_FOLDER_FILE_TEMPc!@ STORE_DESCRP"~ STORE_FROM&STORE_ITMLST_ENTRY'<STREQ'STRFIND) STRIP_HEADER+ SUBSCRIBE/VSUBTIME0 SYS_BINTIM2. SYS_GETMSG3J SYS_TRNLNM5SYS_TRNLNM_SYSTEM7SYS_TRNLNM_SYSTEM_INDEX9^TAG@TAG_KEYABTEST2BTEST_BRIEF_FLAGC TEST_BULLCPD TEST_NEWSETEST_NEWS_OWNERGTEST_NOTIFY_FLAGH TEST_SET_FLAGJRTEST_TAGJ TIMER_ERRLTOTAL_CLEANUP_LOGINSTRIMTUNDELETEZ UNSUBSCRIBEY(TEST_MORE_RECORDSD TEST_NEWSETEST_NEWS_OWNERGTEST_NOTIFY_FLAGH TEST_SET_FLAGJRTEST_TAGJ TIMER_ERRLTOTAL_CLEANUP_LOGINSTRIM` UNCOMPRESSTUNDELETEZ UNSUBSCRIBE^VUPDATE^V UPDATE_ALWAYSdvUPDATE_DIR_HEADERiJUPDATE_EXCLUDEn UPDATE_FOLDERp0UPDATE_LOCAL_NEWSt UPDATE_LOGINx>UPDATE_NEWS_FOLDERz UPDATE_READ~UPDATE_REMOTE_USERINFOVWRITE_FOLDER_FILEVWRITE_FOLDER_FILE_TEMPgGTEST_NOTIFY_FLAGH TEST_SET_FLAGJRTEST_TAGJ TIMER_ERRLTOTAL_CLEANUP_LOGINSTRIMTUNDELETEZ UNSUBSCRIBE^VUPDATEdvUPDATE_DIR_HEADERiJUPDATE_EXCLUDEn UPDATE_FOLDERp0UPDATE_LOCAL_NEWSt UPDATE_LOGINx>UPDATE_NEWS_FOLDERz UPDATE_READ~UPDATE_REMOTE_USERINFOUPDATE_SHUTDOWNUPDATE_USERINFOUSER_FILE_ROUTINES VERIFY_DATEWAIT_SECZWRITEDIRWRITEOUT_STORED WRITE_ASTU(t UPDATE_LOGINx>UPDATE_NEWS_FOLDERz UPDATE_READ~UPDATE_REMOTE_USERINFOUPDATE_SHUTDOWNUPDATE_USERINFOUPDATE_USERINFO_NEWS_ALWAYSUSER_FILE_ROUTINES VERIFY_DATEWAIT_SECZWRITEDIRZWRITEDIR_NOCONVWRITEOUT_STORED WRITE_ASTWRITE_BULL_FILE WRITE_CHANWRITE_CHAN_BUFVWRITE_FOLDER_FILEVWRITE_FOLDER_FILE_TEMPWRITE_MESSAGE_LINEWRITE_USER_FILEWRITE_USER_FILE_NEWUPDATE_USERINFOUSER_FILE_ROUTINES VERIFY_DATEWAIT_SECZWRITEDIRWRITEOUT_STORED WRITE_ASTWRITE_BULL_FILE WRITE_CHANWRITE_MESSAGE_LINE WRITE_QUEUEZERO_VM(WRITE_CHAN_BUFVWRITE_FOLDER_FILEVWRITE_FOLDER_FILE_TEMPWRITE_MESSAGE_LINE WRITE_QUEUEWRITE_USER_FILEWRITE_USER_FILE_NEWZERO_VM:;<=>?@ABCDEFGHIJKLMNOQ1R䣿r01.ADD0130-Sep-1995 12:42DEC Fortran V6.1-68  ADDP* ERROR: Cannot extract text without /EDIT.)). ERROR: /NODES cannot be used with folder set.& ERROR: Folder is not a SYSTEM folder. ERROR: Input line length > , . Reinput:& Message is too long for broadcasting.( A truncated message will be broadcast.# Message successfully sent to node )% Error while sending message to node )! ERRROR: 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 ERROR: SETPRV privileges are needed for system messages.; ERROR: SETPRV privileges are needed to broadcast messages.: ERROR: SETPRV privilSeges are needed to shutdown messages.$ ERROR: Folder has expiration limit.F ERROR: Nodename cannot be specified for shutdown if folder is remote.) ADDQ EDITEXTRACTFILESPECSYS$LOGIN:BULL.SCR;*SYS$LOGIN:BULL.SCRINDENTSELECT_FOLDER NODESSYSTEMBROADCASTSHUTDOWNCLUSTERPERMANENTSUBJECT;BELLType C to continue, A to only ADD message, or Q to Quit: QASYS$NODELOCALALL<>P@  D  T, 8PDP4 CLI$PRESENT@D CLI$PRESENT@T CLI$PRESENT@d CLI$PRESENT@%t% CLI$PRESENT@.. LIB$DELETE_FILE@ CLI$PRESENT@  ` PU ` P ` PV8V CLI$PRESENT@VHV CLI$GET_VALUE@ ` P ]] CLI$PRESENT@%% CLI$PRESENT@%% CLI$GET_VALUE@@ CLI$PRESENT@    VkmTm CLI$PRESENT@sps CLI$PRESENT@ zz CLI$PRESENT@ CLI$PRESENT@ss CLI$PRESENT@ zz CLI$PRESENT@ CLI$PRESENT@  CLI$PRESENT@ CLI$PRESENT@W CLI$GET_VALUE@$$  mXm CLI$PRESENT@ ]h] CLI$PRESENT@mxm CLI$PRESENT@  CLI$PRESENT@ CLI$GET_VALUE@CkC MAILEDIT@k MAILEDIT@CXC FOR$OPEN@C,4C MAILEDIT@H CLI$PRESENT@CXC LIB$FIND_FILE@p.. LIB$DELETE_FILE@CC FOR$OPEN@ CLI$PRESENT@CC FOR$OPEN@Y z z CLI$PRESENT@90 GET_INPUT_PROMPT@HP STREQ@dl STREQ@ss CLI$PRESENT@k$k STR$POSITION@ zz CLI$PRESENT@k$k STR$POSITION@  CLI$PRESENT@k$k STR$POSITIONZ@ CLI$PRESENT@k$k STR$POSITION@ CLI$PRESENT@k$ k STR$POSITION@k$4k STR$POSITION@P SYS_TRNLNM@,, [ z,z CLI$PRESENT@< CLI$PRESENT@ z`z CLI$PRESENT@p CLI$PRESENT@ CLI$PRESENT@ CLI$PRESENT@ CLI$PRESENT@ CLI$PRESENT@ CLI$PRESENT@\    X ` |      CLI$PRESENT@. . LIB$DELETE_FILE@P dP,PQGE]NERAL %'P[^˜ CLI$PRESENTPRˬ CLI$PRESENT CLI$_NEGATEDWQPWQQ\\\\RX˼ CLI$PRESENTPX FOR$WRITE_SF FOR$IO_ENDX CLI$PRESENTP CLI$PRESENTPLIB$DELETE_FILE DISABLE_CTRL SETPRV_PRIVPY,(,@ CLI$PRESENTP1,C @ TRIMP@@FOR$OPENkH FOR$ERRSNST SYS_GETMSG1OPEN_BULLFIL_SHARED<\^ GET_BULL_LINEի) p GET_BULL_LINEի)  ˄ GET_BULL_LINEVˠ CLI$PRESENTPWV ˰ CLI$GET_VALUEЫ Vի1V- FOR$WRITE_SF  FOR$IO_T_DS FOR$IO_END- FOR$WRITE_SF«^( nЫWV^(VxnWV\\^ FOR$IO_T_V_DS FOR$IO_END GET_BULL_LINE1k CLOSE_BULLFILW CLI$PRESENTPGET_FOLDER_INFOk1WD(  CLI$PRESENT_P1 CLI$GET_VALUEPk DISABLE_PRIVS, CLI$PRESENTP@48<FOR$OPENP11@dhlFOR$OPENP1kVk1/ FOR$READ_SF߫ FOR$IO_L_RL FOR$IO_T_DS FOR$IO_ENDPRRkV- FOR$WRITE_SF˔ FOR$IO_T_DS FOR$IO_ENDV- FOR$WRITE_SF˜ ˠ˜ FOR$IO_T_DS FOR$IO_END1jˤ FOR$CLOSE,C @ˬTRIMP@ ENABLE_PRIVS`! FOR$WRITE_SF FOR$IO_END ENABLE_PRIVS1,˼ CLI$PRESENTP2 FOR$WRITE_SF FOR$IO_END1, FOR$BJTESTP CLI$PRESENTP CLI$PRESENTP CLI$PRESENTPc FOR$WRITE_SF FOR$IO_END1 CLI$PRESENTPY FOR$WRITE_SF FOR$IO_END1 \ \ CLI$PRESENTPY  OPER_PRIVP FOR$WRITE_SF FOR$IO_END10 CLIa$PRESENTP \RR2R \@ CLI$PRESENTPH FOLDER_ACCESSP FOR$WRITE_SF FOR$IO_END1 \SS2S \,  `,  l` CLI$PRESENTP1YB FOR$WRITE_SF FOR$IO_END1p CLI$GET_VALUEPk CLI$_ABSENTRkR  FOR$WRITE_SF FOR$IO_END1|GET_NODE_NUMBER_OTHERի1ˌGET_NODE_NUMBERb\ \SS2S \,  `l˜˘ FOR$WRITE_IF<~ FOR$IO_L_V FOR$IO_ENDnˤˠ FOR$WRITE_IFzR{ P7 P; P7Q P7 P7 sP7+ P> PRy PD| P P P P*C P4F PJ~ P P P PU+PPP P(P;PTP#uPP PPPPPdPFPzPP,P PJPIsP P PPPP,P$PP=)P,WPgPP0POPIPP.P)P P#PUP!P20PHP)q tPPPP B 8ww1br012ADD_ACL0130-Sep-1995 12:54DEC Fortran V6.1-68ADD_ACL8P. ERROR: Specified username cannot be verified.ADD_ACLQCW.P,uPDPP PH8 l H48 :  @4(<(Pd04x84,PvQGENERAL %'PPBULL_DIR: G'BULL_DIR: G'BULLUSER.DAT D'QBULLFOLDER.DAT B'QBULLINF.DAT E'QPBULLNEWS.DAT D'Q`BULL_DIR: G'P[^}PQP}PQ$P V)~< XX^(X$nX},ACCESS=~XW<XX^(XnWX ^( >nX WWPWV^T޼ XX SYS$PARSE_ACLV^Phh1h!1t LIB$INDEXP1h˘ˀGET_UAFhhˤ˜ FOR$ERRSNS FOR$WRITE_SF FOR$IO_ENDhˬ˨I SYS_GETMSG<RRWkWW˸˰ SYS$ADD_IDENwTPhhW)~< ZZ^(Z$nZ},ACCESS=~ZY<ZZ^(ZnYZ ^( >nZ YYYW^ SYS$PARSE_ACLW^Phh INIT_ITMLST ~^ ^ ADD_2_ITMLST^ END_ITMLST LIB$INDEXP LIB$INDEXP TRIMP(,Ы@0SYS$CHANGE_ACLPhX LIB$INDEXPY^^hl NEWS_ACCESS䛏xY^|ЫːˀSYS$CHANGE_ACLY^PhԭˠTRIMPV}.BULLFIL~V^(VnVWWVV˨V^ˬЫ˰SYS$CHANGE_ACLx^Ph>P(IDENTIFIER= ADD_ACL NEWS_ACCESS SYS$PARSE_ACL LIB$INDEXGET_UAF FOR$ERRSNS SYS_GETMSG SYS$ADD_IDENT INIT_ITMLST ADD_2_ITMLST END_ITMLSTSYS$CHANGE_ACLTRIM$CODEJ$PDATA$LOCAL BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER10FILESACL FOR$IO_END FOR$WRITE_SFTPPPP5P\eP yP8P+PC,PSB6,ww1Ir01:ADD_DIRECTORIES0130-Sep-1995 12:59DEC Fortran V6.1-68ADD_DIRECTORIESADD_DIRECTORIES PPPP@PPBULL_DIR: G'BULL_DIR: G'BULLUSER.DAT D'QBULLFOLDER.DAT B'QBULLINF.DAT E'QPBULLNEWS.DAT D'Q`B zULL_DIR: G'P[ ADD_DIRECTORY ADD_DIRECTORY( ADD_DIRECTORYh ADD_DIRECTORIES ADD_DIRECTORY"$CODE$PDATA0$LOCAL0FILES *"ww1Zbr018 ADD_DIRECTORY0130-Sep-1995 12:59DEC Fortran V6.1-68 ADD_DIRECTORY ADD_DIRECTORYP:]PPP{$8PPBULL_DIR: G'BULL_DIR: G'BULLUSER.DAT D'QBULLFOLDER.DAT B'QBULLINF.DAT E'QPBULLNEWS.DAT D'Q`BULL_DIR: G'P [}PQPk LIB$INDEXPPPnP7qP.PnP0P0P,PQPIPPP<PPP P"P?P$bPPPP PyP;P1P$P SPfP oww1`}r013ADD_EXCL0130-Sep-1995 13:13DEC Fortran V6.1-68ADD_EXCL PADD_EXCL P  LP[}PQPk޼VѼ :~PPPP,   1ww1 Ir019ADD_LOCAL_NEWS0130-Sep-1995 13:08DEC Fortran V6.1-68ADD_LOCAL_NEWSADD_LOCAL_NEWSPP  T<ldPP [ݼ FOR$REWINDV ^( n ~ ^( nV^X SYS_BINTIMV^ OPEN_BULLDIR OPEN_BULLFILSET_BULLFIL_UPDATEȄkW,TRIMP~^H4TRIMP^(P n^SV^(nVYY3P/PPPP=*PCP[PaPlP)PRPUPgPgPYP]PPPP:PPP PPtPpP*P6PP  PC P@b P~ PA P P P P P P P P P" P6f PAi P>x P/{ P, P P7 P* P%# PX) PR2 PI5 P* P P P P P  P  P  P  P+ P# P8& P*X P! Pn Pe PD P> P5 P* P P P[ P: P, P P " ww1r016 BBOARD_NAME0130-Sep-1995 12:52DEC Fortran V6.1-68 BBOARD_NAME BBOARD_NAMEP<%"!>@%P,@Th | P|[}PQPk}PQ P} PQP, k LIB$INDEXPQ<RQR,RA k4 LIB$INDEXPBROADCAST_ALL_NODES0130-Sep-1995 12:42DEC Fortran V6.1-68BROADCAST_ALL_NODESP$ BULLCP not responding to request to broadcast to other nodes. Trying again... Broadcast aborting. !Continuing with message addition.BROADCAST_ALL_NODESQWant to try again? (Y/N with Y as default):  P      ,   ,L,T GET_INPUT_PROMPT@ ,PQGENERAL %'P [X TEST_BULLCPPOPEN_BULLUSER_SHAREDV,: V1`REC_LOCKP~ FOR$READ_KU FOR$IO_T_DS߫ FOR$IO_X_DA߫  FOR$IO_X_DA߫0 FOR$IO_X_DA FOR$IO_ENDPRRk:CLOSE_BULLUSERhTEST2PV1~CLOSE_BULLUSERVtTRIMPW^(nW^(W nWYYWW|WV^ˀ˄FOR$OPENV^k1kUk1U1 FOR$WRITE_SF FOR$IO_L_R FOR$IO_L_RU FOR$IO_L_VURSSRRSUTTSUYS˨Iˬ˨ FOR$IO_T_DS FOR$IO_ENDPWWkU1ek FOR$WRITE_SF FOR$IO_L_R FOR$IO_L_VU FOR$IO_L_Vݼ FOR$IO_L_Vݼ FOR$IO_L_V , FOR$IO_L_V@ FOR$IO_T_DS FOR$IO_ENDPRRk FOR$WRITE_SF FOR$IO_END˸GET_INPUT_PROMPTnNK FOR$WRITE_SF FOR$IO_END1Z^ FOR$WRITE_SF FOR$IO_END FOR$CLOSEP::"TASK=BULLETIN1" BROADCAST_ALL_NODES TEST_BULLCPOPEN_BULLUSER_SHAREDREC_LOCKCLOSE_BULLUSERTEST2FOR$OPENTRIMGET_INPUT_PROMPT FOR$CLOSE$CODE$PDATA$LOCALL HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGES BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_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 FOR$WRITE_SFxP P4P~BPMEP@P PPP!PuPmPdP_AP"HPOCww1`dr018 BULLETIN$MAIN0130-Sep-1995 12:42DEC Fortran V6.1-68 BULLETIN$MAIN BULLETIN$MAINP;P(4H\p  BULLETIN_SUBCOMMANDS LIB$GET_INPUT PPBULL_DIR: G'BULL_DIR: G'BULLUSER.DAT D'QBULLFOLDER.DAT B'QBULLINF.DAT E'QPBULLNEWS.DAT D'Q`BULL_DIR: G'dP,PQGENERAL %'PP [kV INIT_BULLETIN$TRIMPW ~W^(WnWYY\ ~\X,Xn ,PQ^W,,1Vk, COMMAND_INPUTkY1< LIB$INDEXPP LIB$INDEXP,P d LIB$INDEXPP\W-\@ ;WWx LIB$INDEXPQ,Q@ , ,n ˄TRIMPYYЏzV1Y CLI$_NOCOMDVY Y,Y Y09^(n^(n(nT^ˌ CLI$DCL_PARSEPVVzFOR$EXIT1 CLI$_NOCOMDWVW1,n @˜ DIRECTORY FULL_DIRˤDIRECTORY_FOLDERS~^˴ˬREAD_MSG^ V˸ DO_COMMANDTRIMPFOR$EXIT1PPREAD  BULLETIN$MAINBULLETIN_SUBCOMMANDS LIB$GET_INPUT CLI$_ABSENT CLI$_NOCOMD CLI$_NEGATED INIT_BULLETINTRIM COMMAND_INPUT LIB$INDEX CLI$DCL_PARSEFOR$EXIT DIRECTORYFULL_DIRDIRECTORY_FOLDERSREAD_MSG DO_COMMAND$CODE $PDATA$LOCAL0FILESBULL_DIR INPUT_BUFFERNEWS_DIR BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1L HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGESDBULLPARPOINT(PROMPT COMMAND_LINE0 PROMPT_PROMPTCOUNTDCL]P!ePuPPhPP 'P/P 8Pv?P HPcP?lP6uP-P PP}P PSP PBP P,LPRPTP gPtPaUww1ಒr0-00BULLETIN_MAINCOMMANDS0-030-SEP-1995 13:17-VAX/VMS Command Definition Utility (V4-001)  BULLETIN_MAINCOMMANDSD CLI$TABLESPN D BULL ,,X BULLETIN0!!P1 SELECT_FOLDER$ALL(BBOARD(BULLCP0,&CLEANUPCLEANUP$PEDIT(xKEYPAD(LIBRARY$LOGIN( MARKED$ PAGE(8  PGFLQUOTA(` READNEW( REVERSE$SEEN,'SEPARATE-(STARTUP$$STOP(L%SYSTEM7(tUNSEEN(UNMARKED$ WIDTH(WSEXTENT ,    8 ww1qr0-0/BULLETIN_SUBCOMMANDS0-030-SEP-1995 13:17-VAX/VMS Command Definition Utility (V4-001) BULLETIN_SUBCOMMANDSx CLI$TABLESPxADDATTABACKCHANCOPYCREACURRDELEDIREEEXEXCLEXITEXTRFILEFIRSFORWHELPINCLINDELASTMAILMARKMODIMOVENNEWSNEXTPOSTPRINQUITREADREMOREPLRESERESPSEARSEENSELESETSHOWSPAWSUBSUNDEUNMAUNSEUNSU/D8D  <t"""$$8&'L($)|)*/H01l1l2d44x89 ;<<\@@dEF`H@KLMmwdwww@xx(< ADD,!!P1FILESPEC$ALL$8BELL(` BROADCAST$sCC(CLUSTER$EDIT, EXPIRATION($EXTRACT4sX %FOLDER SELECT_FOLDER(s GROUPS( HEADER,q $NODESNODES$ LIST$LOCAL,H%INDENT->(p PERMANENT(SHUTDOWN(FOLLOWUP, NOSIGNATURE(SUBJECT(SYSTEMXh t 8   8    8  $,8 H p(l ATTACH,!!P1PROCESS(PARENT    l ,  l(@` BACK$EDIT(HEADER(ROTATE((  CHANGE,!!P1FILESPEC$LALL$pEDIT, EXPIRATION(GENERAL(HEADER( SUBJECT$8 NEW(` NUMBER(  PERMANENT( SHUTDOWN( SYSTEM$ TEXT$ H |  0 < ( 8 X d  p L   `   ` p   p, 8  (l ! COPY0 !(P1FOLDERFolder4!!P2BULLETIN_NUMBER(s GROUPS( HEADER$D ALL$h MERGE( ORIGINAL,  EXPIRATION(FOLLOWUP     (@ ! CREATE8x !/P1 CREATE_FOLDERFolder,!!P2FILESPEC( ADD_ONLY( ALWAYS$BRIEF(@COMPRESS,l DESCRIPTION$EDIT$ID(NEEDPRIV$ NEWS$$ NODE(L NOTIFY$p OWNER(  POST_ONLY(PRIVATE(READNEW, REMOTENAME,@ SEMIPRIVATE(hSHOWNEW(SYSTEM(<d   L  $0  LX @ t  @  $     $0 p  ,@h CURRENT$EDIT(HEADER(ROTATE(80 DELETE4!!P1BULLETIN_NUMBER$\ALL( IMMEDIATE4s%FOLDER SELECT_FOLDER$LOCAL,s$NODESNODES(SUBJECT@Ph \ x    , DIRECTORY0!!P1 SELECT_FOLDER$8ALL(`CONTINUE$NEWS$END, EXPIRATION(EXTRACT($FEEDBACK$HFF$l FO( FOLDER$s GROUP( HEADER$ NEW(,NOTIFY$PPRINT0$QUEUE SYS$PRINT$FORM($MATCHOR$NOW$POST$8START,d$SINCETODAY(MARKED(UNMARKED$REPLY( NOREPLIES((ROTATE(PSEARCH$tSEEN(UNSEEN(SUBJECT$ FROM(!NEGATED 0SEARCH_MATCHES$TAND$xOR$XOR4` DIRECTORY_FOLDER0!!P1 MATCH_FOLDER$$START(LDESCRIBE(tFOLDER$NEWS0` DIRECTORY_NEWS0!!P1 MATCH_FOLDER$START$@NEWS(hDEFAULT( PERMANENT( SUBSCRIBE(FOLDER( NEWGROUPS$,ALL(T STORED$x CLASS$ COUNT0 < l, !!   $0  (  LX  d|  (    ( ( D,8  T`  |         < T ` l x   (  d P  t !4!\! ! d P!(! d tD!P!  Pl!x!  t!! !!!! d P  t!$"L" ""  84"@"  \"h"  8$ E$ EX," ## EXCLUDE$P1$0#ALL(X#DISABLE$|#FROM$#FULL$#LIMIT(SUBJECT#`$ $$ |#0$<$H$T$  # " X# #p$|$  # $ 0#( EXIT,$H%& EXTRACT,%!!P1EXTRACT4a!!P2BULLETIN_NUMBER$l%ALL$%FF(%HEADER$%NEW(ROTATE & &,& H% %(`&&|' FILE,&!!P1EXTRACT4a!!P2BULLETIN_NUMBER$&ALL$'FF(0'HEADER$T'NEW(ROTATE ''' & &(@' FIRST$'EDIT($(HEADER(ROTATE,`x(( FORWARD8!,P1 RECIPIENTS Recipients$(EDIT((HEADER(SUBJECT( L) HELP0!!P1 HELP_FOLDER,))* INCLUDE$P1$)ALL(*DISABLE$<*FROM$`*FULL(SUBJECT *** ) * )(* +X. INDEX0!!P1 SELECT_FOLDER,L+ EXPIRATION(t+MARKED(+UNMARKED(+FOLDER$+NEW(,$MATCHOR$4,REPLY(\, NOREPLIES(, RESTART(, SEARCH$, SEEN$, SET(- UNSEEN(D- SUBSCRIBE(l-DEFAULT(- PERMANENT(-NEGATED$-FROM(.SUBJECT$,.START,$SINCETODAYh..|..... + ,... . +.. . ,. /4/\///(/ L+ ,D/P/ L+ ,l/x/ t+ ,// t+ ,(@/ LAST$/EDIT( 0HEADER(ROTATE(`p00 MAIL8!,P1 RECIPIENTS Recipients$0EDIT(0HEADER(SUBJECT( D1 MARK(a!!P1NUMBER(1,2 MODIFY,1 DESCRIPTION$1ID$2NAME$OWNER 82H2T2 1 `2 2(224! MOVE02!(P1FOLDERFolder4!!P2BULLETIN_NUMBER$3ALL(sD3GROUPS(l3HEADER$3MERGE$3NODES(3ORIGINAL( IMMEDIATE4<4$404 2 2L4X4 2 3$@4 N$4EDIT(4HEADER(ROTATE($5T56 NEWS0!!P1 MATCH_FOLDER$x5NEWS$5COUNT$5START(5 SUBSCRIBE(6DEFAULT(86 PERMANENT(`6 NEWGROUPS$6ALL(6 STORED$ CLASS6l77P867 6 $707<7H7T7`7 5 5 `6 6 6 5|77 86 777777 5 5 `6 6 6 58(888 5 688D8 5 5`8l8 6 5(@8 NEXT$8EDIT(8HEADER(ROTATE(`<9h9 POST,!!P1FILESPEC$s9CC$9EDIT,9 EXPIRATION(:EXTRACT(,:FOLLOWUP(sT:GROUPS(|:HEADER$:LIST,: %INDENT->,:  NOSIGNATURE( SUBJECT(H;|;<# PRINT4a!!P1BULLETIN_NUMBER(;HEADER(;NOTIFY0;$QUEUE SYS$PRINT$ <FORM$D<NOW(l<CANCEL$ALL <<< l< H;( QUIT(=H=? READ4!!P1BULLETIN_NUMBER$l=ALL$=EDIT(=HEADER(=MARKED(>UNMARKED$,>NEW$P>PAGE$t>POST(> ROTATE$> SEEN(> UNSEEN, $SINCETODAY(?P??8?D? > >`?l? =??? H= > >?? @4@?? = >?@ = >@(@ = >D@P@ = >( @ REMOVE8!/P1 REMOVE_FOLDERFolder(@A\D- REPLY,!!P1FILESPEC$4AALL$XABELL(A BROADCAST$sACC(ACLUSTER$AEDIT,B EXPIRATION(DBEXTRACT4sxB %FOLDER SELECT_FOLDER(sB GROUPS(B HEADER$B LIST$C LOCAL,q(CFOLLOWUP,C NOSIGNATURE(C PERMANENT( DSHUTDOWN(4DSUBJECT(SYSTEMxDDDE(G FOLLOWUP,G  NOSIGNATURE$ EDIT ,HBTLNEWS_SOCKET_BULLCPPRRЫd`NEWS_SOCKET_ASTRh DISCONNECTp READ_CHAN޼ˀ|READ_MBXE  BULL_CONNECT IO$_ACCESS IO$M_ABORTNEWS_SOCKET_AST CONNECT_ACCEPT NEWS_ASSIGN NEWS_GET_CHANNEWS_SOCKET_BULLCP DISCONNECT READ_CHANREAD_MBX$CODE$PDATA$LOCALPPROCBUFDQREADBUFCHANNELPNNTPNEWSHOST/JPUPnkPKP PP/#ww1 rV1.06 BULL_NEWSV1.030-SEP-1995 13:17VAX C V3.2-044PINET0: P P8PPMULTINET_SOCKET_LIBRARY<P Pinet_ntoaDPPP"PMULTINET_SOCKET_LIBRARYTP" :Pgethostname\P:hPFPMULTINET_SOCKET_LIBRARYlPF^PhtonstP^PdPMULTINET_SOCKET_LIBRARYPd |PgethostbynameP|PBULL_NEWS_SERVERP::"TASK=NNTP"P%d.%d.%d.%dPBULL_TCP_NEWS_GATEWAYPrP1 iosb.status = %d PDNSP2 iosb.status = %d P3 iosb.status  NEWS_CREATE NEWS_SOCKET NEWS_ASSIGN NEWS_GETHOSTGETHOSTBYNAME1HTONS1 GETHOSTNAME1 INET_NTOA1 VAXC$VA_COUNTLIB$SIG_TO_RETLIB$FIND_IMAGE_SYMBOL LIB$ESTABLISH LIB$CALLGPRINTFSSCANFFGETSFCLOSEFOPENMEMCPYSTRSTRSTRLENSTRCHRSTRCMPSTRCPY SYS$DASSGNGETENV SYS$ASSIGN SYS$DASSGNSYS$QIOW SYS$ASSIGN SYS$DASSGNSYS$QIOTOLOWER= %d  P4 iosb.status = %d !P5 iosb.status = %d P^T VAXC$VA_COUNTެPPSмRPRQSSP`ARRLL@8PHPLLL LIB$CALLGPHHP^T VAXC$VA_COUNTެPPSЬRPRQSSP`ARRddXPWP`Pddd LIB$CALLGP``P^T VAXC$VA_COUNTެPPSЬRPRQSSP`ARR||phPxP||| LIB$CALLGPxxP^T VAXC$VA_COUNTެPPSЬRPRQSSP`ARRĔĔĈĀ0PĐPĔĔĔ LIB$CALLGPĐP^LIB$SIG_TO_RET LIB$ESTABLISHݬ ݬLIB$FIND_IMAGE_SYMBOL^\(P^Q(^\( SYS$DASSGN ^S\R̊GETENVPcP.cSTRCHRPPcGETHOSTBYNAME1P˜2P<^UTR.eSTRCHRPUeSTRCPYeSTRLENP\ěLSTRCPY \\ |~(  SYS$ASSIGNPP4P˜SkĩeSSCANFPAP\l lP\PxPx\\Px\\PP PPœPœ˜\ݬ ݼ MEMCPYw~HTONS1Pž|~(  SYS$ASSIGNPP2P^|~ݬ  SYS$ASSIGNPP|~|~|~2ЬRb SYS$QIOWP b SYS$DASSGNPԭw~HTONS1P|~|~|~䚏r~ЬRb SYS$QIOWP b SYS$DASSGNP|~|~|~䚏~ЬRb SYS$QIOWP b SYS$DASSGNPP^|~|~|~ݬݬ <~ЬRb SYS$QIOP b SYS$DASSGNP2P|^UTЬRb|~R  SYS$ASSIGNPP|~ݼ|~Ь SS~ݼ SYS$QIOWPcPŵFOPENPVP|~߭  SYS$ASSIGNPP|~|~|~,2ݭ SYS$QIOWP,2,~PRINTFݭ SYS$DASSGNPSTRCPY|~|~o~|~,<2~ݭ SYS$QIOWP,2,~PRINTFݭ SYS$DASSGNP INET_NTOA1PSTRLENP  INET_NTOA1P STRCPY|~|~<~|~,0ݭ SYS$QIOWP,2,~PRINTFݭ SYS$DASSGNP|~|~<~ |~,1ݭ SYS$QIOWP,2,~ PRINTFݭ SYS$DASSGNP2,~!PRINTFݭ SYS$DASSGN2RBScPc~TOLOWERPcScV~hFGETSP1TOLOWERSPhRb Pb~cPbRb bhRb b  Rb b  SYS$DASSGNSYS$QIOW SYS$ASSIGN SYS$DASSGNSYS$QIOWSYS$QIO SYS$DASSGNSYS$QIOWSYS$QIOSYS$QIOWSYS$QIOSYS$QIOW  INET_NTOA1  GETHOSTNAME1 (HTONS1 GETHOSTBYNAME1 t NEWS_GET_CHAN  NEWS_SET_CHAN NEWS_DISCONNECT  NEWS_GETHOST < NEWS_ASSIGN D NNTP_LISTEN NNTP_ACCEPT_WAIT P| NNTP_ACCEPT < NEWS_SOCKETR BULL_NEWS inet_ntoa1 gethostname1 (htons1gethostbyname1P FindRoutine$t news_get_chan news_set_channews_disconnect news_gethostT news_assign;D nntp_listennntp_accept_wait<P nntp_accept< news_socketTnews_socket_bullcpG news_cb 4b#/RSTRCMPPPb.RSTRSTRPPV~hFGETSP1vVFCLOSEPP^R4P|~|~2œ~|~,2( SYS$QIOWP,( SYS$DASSGNP2P^R4P|~|~2œ~ݼݬ ݬ2(ݼ SYS$QIOPP2P^R4P|~|~œ|~,<2~( SYS$QIOWP,( SYS$DASSGNPP^R4P|~|~œݼݬ ݬ<2~(ݼ SYS$QIOPPP<^USRÊGETENVPe\'P.eSTRCHRP\eGETHOST BYNAME1P˜\\P NEWS_ASSIGNPP4T=P|~|~2œ~|~,2( SYS$QIOWP,( SYS$DASSGNTTTP4TAP|~|~œ|~,<2~( SYS$QIOWP,( SYS$DASSGNTPTTP^RЬQPdBPXPwPPPPP< P-PK-P%[P8gP%P rfww1@r017 CHECK_ACCESS0130-Sep-1995 12:56DEC Fortran V6.1-68 CHECK_ACCESS CHECK_ACCESS=P=*READWRITE\PP X\dlttt\dlttDtXP P[}PQP }PQP INIT_ITMLSTk^8, ADD_2_ITMLST^߫^H< ADD_2_ITMLST^˰^XL ADD_2_ITMLST^\ END_ITMLSTkЫt޼ RdSYS$CHECK_ACCESSPb˰QxSYS$FORMAT_ACLˠ LIB$INDEXP˴ LIB$INDEXPbb˰Qb޼ScbcЫSYS$CHECK_ACCESSPc˰QSYS$FORMAT_ACL LIB$INDEXP LIB$INDEXPcc˰Rc  CHECK_ACCESS INIT_ITMLST ADD_2_ITMLST END_ITMLSTSYS$CHECK_ACCESSSYS$FORMAT_ACL LIB$INDEX%$CODE"$PDATAl$LOCALqP)PPPP PPPP'PPP P !PA5i %ww19r01>CHECK_BULLETIN_PRIV0130-Sep-1995 13:04DEC Fortran V6.1-68CHECK_BULLETIN_PRIVCHECK_BULLETIN_PRIVaPP PPBULL_DIR: G'BULL_DIR: G'BULLUSER.DAT D'QBULLFOLDER.DAT B'QBULLINF.DAT E'QPBULLNEWS.DAT D'Q`BULL_DIR: G'P[ S ETPRV_PRIV TRIMP $޼0( CHECK_ACCESSk<COPY2 CHECK_BULLETIN_PRIV SETPRV_PRIV CHECK_ACCESSTRIMCOPY2X$CODE$PDATAH$LOCAL PRIVILEGES0FILESP9*P,NP .Xww1 r01<CHECK_CONNECTIONS0130-Sep-1995 13:04DEC Fortran V6.1-68CHECK_CONNECTI ONSCHECK_CONNECTIONSyPP[@QkPRՂkQkP@AL DISCONNECTk RESET_TIMER CHECK_CONNECTIONS DISCONNECT RESET_TIMERI$CODE$PDATA $LOCALACTIVITYDQREADBUFP0P4P" Iww1@]r017 CHECK_CUSTOM0130-Sep-1995 13:13DEC Fortran V6.1-68 CHECK_CUSTOMP)@ CHECK_CUSTOMQ BULL_USER_CUSTOMdefaults:header:kill:file_directory:exclude_limitPP0 @    L SYS_TRNLNM@,, h $ $/8$ @$   $ T\ COMPARE_DATE@$8$ @$ F$V$dP,PQGENERAL %' PPP[,n @ V4 FOR$BJTESTPff@ FOR$JIBSETPfT SYS_TRNLNMPkk,e @`TRIMPhlpFOR$OPENkW  ˘ INIT_QUEUEЫ  XW1 FOR$READ_SF߫ FOR$IO_L_R$ FOR$IO_T_DS FOR$IO_ENDP\\WˤTRIMPYW1:~Y^(Y0nY\\YˬTRIMPPSSЫST-Yn S TPQ^T1˴ FOR$JIBSETP  LOWERCASETRIMPPUU@  LIB$INDEXP LIB$INDEXP FOR$JIBSETP  LIB$INDEXP  FOR$JIBSETP 1, FOR$JIBSETP 8 CHECK_EXCLҫRRXի \ZZ\S\TC Xd COMPARE_DATEΫ TPTЫtp WRITE_QUEUE   1W1 :1ˈ LIB$INDEXP˔ FOR$JIBSETPf˨ LIB$INDEXP˴ FOR$JIBSETPf LIB$INDEXP(@  LIB$INDEXP ~ FOR$DECODE_MF FOR$IO_L_R FOR$IO_ENDPYY<RRRR1 FOR$CLOSEXCHECK_EXCLUDESSSPePSYS$LOGIN:BULL.CUSTOM{  CHECK_CUSTOM FOR$BJTEST FOR$JIBSET SYS_TRNLNMFOR$OPENTRIM INIT_QUEUE LOWERCASE LIB$INDEX CHECK_EXCL COMPARE_DATE WRITE_QUEUE FOR$CLOSECHECK_EXCLUDES2$CODEz$PDATA$LOCALBULL_DIR INPUT_BUFFERNEWS_DIR BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1BULL_USER_CUSTOM LAST_BUFFER SCRATCH_INCLUDEDBULLPAR@FILE_DIRECTORY EXCLUDE_LIMIT FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$READ_SF FOR$DECODE_MFP$&P*PFPwPP PP]P*PS>P P?PPPP3P <P HPQP]PkP P PPRP,Pqe2ww1 @Sr014 CHECK_DIR0130-Sep-1995 12:59DEC Fortran V6.1-68 CHECK_DIRKP ERROR: Not a valid library.  ERROR: No access to directory: ) CHECK_DIR]BULL_DIR_LIST:PPPP@PPPD F4F SYS_TRNLNM_S!YSTEM_INDEX@TTxT FF SYS_TRNLNM_SYSTEM_INDEX@PPBULL_DIR: G'BULL_DIR: G'BULLUSER.DAT D'QBULLFOLDER.DAT B'QBULLINF.DAT E'QPBULLNEWS.DAT D'Q`BULL_DIR: G'P[}PQP4PRESENTPRDPRESENTPPPRTPRESENTPPPRRVVd" SYS_TRNLNMP,P\ VP,n P\x LIB$INDEXP˄ SYS_TRNLNM, PWW)P\˘SYS_TRNLNM_SYSTEM_INDEXPW-P\ nˤSYS_TRNLNM_SYSTEMPW-P WVP)P\1 FOR$WRITE_SF FOR$IO_ENDVP˸ LIB$INDEXPTRIMPV:~V^(VnVYYV,Vn PPQ^ DISABLE_PRIVSYTRIMPX}BULL.SCR~X^(XnXZZXXXY^WkFOR$OPENY^ FOR$CLOSE ENABLE_PRIVSk  FO#R$WRITE_SFTRIMP FOR$IO_T_DS FOR$IO_ENDFOR$EXIT,P   LIB$INDEXP,TRIMPZ:~Z^(Z\nZXXY,Yn P\PQ^,P\ W<SYS_TRNLNM_SYSTEM_INDEXPWЫP5  CHECK_DIRPRESENT SYS_TRNLNM LIB$INDEXSYS_TRNLNM_SYSTEM_INDEXSYS_TRNLNM_SYSTEMTRIM DISABLE_PRIVSFOR$OPEN FOR$CLOSE ENABLE_PRIVSFOR$EXITU$CODEV$PDATA$LOCAL0FILES FOR$ $IO_END FOR$IO_T_DS FOR$WRITE_SFFPQP yPPPPP$P PPPPP+P<P`P-:PPD0Uww1@Fr01;CHECK_DIR_ACCESS0130-Sep-1995 12:59DEC Fortran V6.1-68CHECK_DIR_ACCESSCHECK_DIR_ACCESSPPPPP%PPPPPPBULL_DIR: G'BULL_DIR: G'BULLUSER.DAT D'QBULLFOLDER.DAT B'QBULLINF.DAT E'QPBULLNEWS.DAT D'Q`BULL_DIR: G'PP|[kk0SYS_TRNLNM_SYSTEMP1< SYS_TRNLNMPVVT)P`TTVV(PH ADD_DIRECTORYԫP LIB$FIND_FILEPV(PV(PP(P`P&` ADD_DIRECTORYV(PPh ADD_DIRECTORYp CHECK_DIR| CHECK_DIRADD_DIRECTORIES |CHECK_DIR_ACCESSSYS_TRNLNM_SYSTEM SYS_TRNLNM ADD_DIRECTORY LIB$FIND_FILE CHECK_DIRADD_DIRECTORIES$CODE$PDATA($LOCAL0FILES5 PP.PCP,rPP P 8,0ww1wr015 CHECK_EXCL'0130-Sep-1995 13:13DEC Fortran V6.1-68 CHECK_EXCLP@ CHECK_EXCLQ::exclude:P   LAST_INDEX@ 4< LAST_INDEX@PXl  STRFIND@P[}PQ P޼Tмd޼UeVWF :W޼RWbb1PP  LAST_INDEXPk1kWW,( 0< LAST_INDEXP1kQ޼ SѫQ«QЫWG ëkPP~ FOR$DECODE_MFc FOR$IO_L_R FOR$IO_ENDPWWbQbQQbcbdkVVHkP@ LVPkQA TX STR$UPCASEbVdkSC hl SYS_BINTIMPbkebˀSTRFINDPb޼˔ˌADD_EXCL TtP  CHECK_EXCL LAST_INDEX STR$UPCASE SYS_BINTIMSTRFINDADD_EXCLc$CODE$PDATA$LOCAL EXCLUDE_LIMIT FO )R$IO_END FOR$IO_L_R FOR$DECODE_MFdPQAP_P}PPKP2P PP,P=P@P@4 cww1r015 CHECK_MAIL0130-Sep-1995 12:52DEC Fortran V6.1-68 CHECK_MAIL P) CHECK_MAILwQVMSMAIL_PROFILESYS$SYSTEM:VMSMAIL_PROFILE.DATAP  *   FOR$OPEN@ FOR$OPEN@  ,PQGENERAL %'PP [Ь kLFOR$OPENVW1޻ Xkˌˈ READ_QUEUE˘ FOR$BJTESTPˤ FOR$BJTESTP1)<1)>1˰+REC_LOCKP~~$  FOR$READ_KF4 FOR$IO_T_DS FOR$IO_ENDPRR ի ,e x˸TRIMPxQQ| LIB$MOVC3,n xzPPPQ,Q@x xի իGhGhGhVW FOR$CLOSEREDREC_LOCK CLOSE_BULLDIR SYS$SETDFPROTFOR$OPENTRIM FOR$ERRSNS SYS_GETMSGCOPY_ACLOPEN_BULLFIL_SHAREDREADDIR CLOSE_BULLFIL OPEN_BULLDIRLIB$RENAME_FILELIB$DELETE_FILECLOSE_BULLDIR_DELETE FOR$CLOSE GET_MSGKEY$CODE$PDATA$LOCAL0FILESBULL_DIR INPUT_BUFFERNEWS_DIR BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1? FOR$IO_END FOR$IO_L_V FOR$IO_T_DS FOR$IO_X_SE FOR$READ_DU FOR$READ_KU FOR$WRITE_SF FOR$WRITE_SU FOR$WRITE_SUP-P!TP gP#PP#9P PPoP(PHPUP)PPPIPIPPP$<P P P?PcPP!P 3PPI6PIww1!Ar01:CLEANUP_DIRFILE0130-S@ep-1995 13:02DEC Fortran V6.1-68CLEANUP_DIRFILECLEANUP_DIRFILEPPdPPBULL_DIR: G'BULL_DIR: G'BULLUSER.DAT D'QBULLFOLDER.DAT B'QBULLINF.DAT E'AQPBULLNEWS.DAT D'Q`BULL_DIR: G'dPP [(dl( ( ( ( R€€STмS1ѫ€14READDIRQѫQЫUQ Tѫ €@READDIR QѫQЫ TQ T€LWRITEDIR΢PPXWRITEDIRЫTUS1բP1Ыd INIT_QUEUEЫ€UЫѫ€pREADDIRQѫQЫˀ| WRITE_QUEUEUЫUЫVTVUVːˌ READ_QUEUEЫVТ`WТXTѫUЫˠ˜B READ_QUEUEW`XST1ѫ€T€XT T€ˬREADDIR QѫQSk˸WRITEDIRkSX €VS S€READDIR FOR$DELETEPUUV S€իREADDIRXѫXբP΢PPWRITEDIRWRITEDIR(dl( ( ( (  CLEANUP_DIRFILEREADDIRWRITEDIR INIT_QUEUE WRITE_QUEUE READ_QUEUE|$CODE$PDATA$LOCAL0FILESCBULL_DIR INPUT_BUFFERNEWS_DIR FOR$DELETEUPA`P6tPgP(P PPPPP&P;PP@PK_P(eP"zP PvP9P)PP#P'.P3P{ou|ww1r018 CLEANUP_LOGIN0130-Sep-1995 12:54DDEC Fortran V6.1-68 CLEANUP_LOGIN CLEANUP_LOGINPBULL_MARKDEFINED0P  L  P SYS_TRNLNM_SYSTEM@X SYS_TRNLNM_SYSTEM@HH, 0P ,[4SYS_TRNLNM_SYSTEMPV@ SYS$ASCTIMT SYS_BINTIMOPEN_SYSUAF_SHARED( ܟ~  FOR$READ_KU FOR$IO_X_SE FOR$IO_EENDP\\W( ( `REC_LOCKP~~ FOR$READ_KU FOR$IO_X_SE FOR$IO_ENDP\\kk1W1) 1h MINUTE_DIFFP1 FOR$DELETE OPEN_BULLINF~~  FOR$READ_KU FOR$IO_ENDPTTU  FOR$DELETEtTRIMP\VW}.*MARK;*~\^(\n\XX ^( nX VV|VW^ˀ˄LIB$DELETE_FILEW^\RBTTTB~~  FOR$READ_KU FOR$IO_ENDPXXV  FOR$DELETE\\LFRRRLXXX~~  FOR$READ_KUk FOR$IO_ENDPWWk  FOR$DELETE CLOSE_BULLINF CLOSE_SYSUAFP BULL_MARK: CLEANUP_LOGINSYS_TRNLNM_SYSTEM SYS$ASCTIM SYS_BINTIMOPEN_SYSUAF_SHAREDREC_LOCK MINUTE_DIFF OPEN_BULLINFTRIMLIB$DELETE_FILE CLOSE_BULLINF CLOSE_SYSUAF$CODE($PDATA$LOCALL HEADER_INFOL BULL_USER FOLDER_TIMES GSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGES FOR$DELETE FOR$IO_END FOR$IO_X_SE FOR$READ_KU6P"~P-P"PbP[PJP6PP (PEPP PPPP D8Eww1 ``Zr015 CLOSE_FILE0130-Sep-1995 12:59DEC Fortran V6.1-68 CLOSE_FILEH CLOSE_FILEPPPP[[kk[kk[[kk[kk[kk[kk ENABLE_CTRL FOR$CLOSEkk$  CLOSE_FILE  CLOSE_BULLINF  CLOSE_SYSUAF )CLOSE_BULLNEWS 4CLOSE_BULLFOLDER CCLOSE_BULLUSER R CLOSE_BULLDIR a CLOSE_BULLFIL ENABLE_CTRL FOR$CLOSE$CODE I$PDATA$LOCALBULLFILB P P (P 3P BP QP `P PP 9- ww1vr016 CLOSE_FILES0130-Sep-1995 12:45DEC Fortran V6.1-68 CLOSE_FILES CLOSE_FILESPP[ FOR$INQUIREk CLOSE_BULLFIL FOR$INQUIREk CLOSE_BULLDIR J  CLOSE_FILES FOR$INQUIRE CLOSE_BULLFIL CLOSE_BULLDIR5$CODE$PDATA$$LOCALCLOSE_FILES_INFOP%P5ww1br01<CLOSE_FILE_DELETE0130-Sep-1995 12:59DEC Fortran V6.1-68CLOSE_FILE_DELETECLOSE_FILE_DELETEPQP[[kk[kk ENA KBLE_CTRL FOR$CLOSEkk CLOSE_FILE_DELETE CLOSE_BULLDIR_DELETE CLOSE_BULLFIL_DELETE ENABLE_CTRL FOR$CLOSEQ$CODE$PDATA$LOCALBULLFIL P P :PBP (Qww1֦r014 CLOSE_TAG0130-Sep-1995 13:13DEC Fortran V6.1-68 CLOSE_TAG CLOSE_TAGLPP  P [^Ы Rԭ 1 U VWPP@Yթ1ѩ1 OPEN_OLD_TAGWffԦi\\QQ\P@ԦQQkTiXЩѫX1Щ4ީ8,TEST_TAGPT< SET_NEWS_MARKЫRkkTTQRQë~^PH SET_NEWS_MARK^kkTѫiMTRΫ~^\T SET_NEWS_MARK^kk\SkkS` SET_NEWS_MARKS\kk\1lREC_LOCKP~~fx߫t FOR$READ_KU FOR$IO_ENDPSSի FOR$WRITE_SU߫ FOR$IO_X_SE FOR$IO_ENDPSSFOR$REWRITE_SU߫ FOR$IO_X_SE FOR$IO_ENDPSSQQkfѫi|REC_LOCKP~~fˈ˄ FOR$READ_KU FOR$IO_ENDPSS FOR$DELETEfˌREC_LOCKXmYW_˔ FOR$CLOSERN  CLOSE_TAG OPEN_OLD_TAGTEST_TAG SET_NEWS_MARKREC_LOCK FOR$CLOSEy$CODE$PDATA$LOCALL HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGES NEWS_MARK TAGS NEWS_TAGS FOR$DELETE FOR$IO_END FOR$IO_X_SE FOR$READ_KU FOR$WRITE_SUFOR$REWRITE_SUPWNPWP\P lPqPPPP OPP*P$P P@#P)PLPgPvP)yPP'PP%PPOPAP8PthFNyww1br01/CLR20130-Sep-1995 13:02DEC Fortran V6.1-68 CLR2 CLR2{P  P [Ь P RR޻SBcRP PP~^ FOR$JIBCLR^PBcR CLR2 FOR$JIBCLRD$CODE$PDATA $LOCAL Dww1`r012CLR_TAG0130-Sep-1995 13:13DEC Fortran V6.1-68CLR_TAGCLR_TAGyP P [Ьü R RPPS SQQRk޻RC FOR$JIBCLRPCW CLR_TAG Q FOR$JIBCLRA$CODE$PDATA$$LOCALAww1E᣿r018 COMMAND_INPUT0130-Sep-1995 12:42DEC Fortran V6.1-68 COMMAND_INPUT COMMAND_INPUTkPP[޼, GET_INPUT_PROMPT  COMMAND_INPUTGET_INPUT_PROMPT'$CODE$PDATA $LOCAL CO RMMAND_LINE0 PROMPT_PROMPT  'ww1轫r017 COMPARE_BTIM0130-Sep-1995 13:02DEC Fortran V6.1-68 COMPARE_BTIM COMPARE_BTIM P  P [ЬЬ$޼,޼0(LIB$SUBXիիЫPX  COMPARE_BTIMLIB$SUBXJ$CODE$PDATAD$LOCAL5P S;P @PJww1@*ͫr017 COMPARE_DATE0130-Sep-1995 13:02DEC Fortran V6.1-68 COMPARE_DATE COMPARE_DATE#P P  [}PQ P}PQP SYS_BINTIM$ VERIFY_DATE,LIB$DAY- n8 SYS_BINTIMD VERIFY_DATEL SYS$GETT TIMTLIB$DAYëkQQP  COMPARE_DATE SYS_BINTIM VERIFY_DATELIB$DAY SYS$GETTIMq$CODE$PDATAl$LOCALBPTP +qww1zΦr01:COMPARE_MSG_KEY0130-Sep-1995 13:13DEC Fortran V6.1-68COMPARE_MSG_KEYCOMPARE_MSG_KEYPP U[}PQ}PQ  GET_MSGBTIM GET_MSGBTIM( COMPARE_BTIMo COMPARE_MSG_KEY GET_MSGBTIM COMPARE_BTIM2$CODE$PDATAH$LOCAL2ww1竿r017 COMPARE_TIME0130-Sep-1995 13:02DEC Fortran V6.1-68 COMPARE_TIME COMPARE_TIMEQ(P8P<([}PQPkV}PQ P- n SYS$ASCTIM, , QRRQďQSCTUUTďTTQP@RSSRďXRRQUETPPTPzP#P9P`PEP^Rww1%r01<CONVERT_BULLFILES0130-Sep-1995 12:5r9DEC Fortran V6.1-68CONVERT_BULLFILES`P2 Converting data files to new format. Please wait.)   5   CONVERT_BULLFILESQ`P8  D     PQ k T  PT  sDTQT  \XX  dP,PQGENERAL %' PPBULL_DIR: G'BULL_DIR: G'BULLUSER.DAT D'QBULLFOLDER.DAT B'QBULLINF.DAT E'QPBULLNEWS.DAT D'Q`BULL_DIR: G'P T[ FOR$WRITE_SF FOR$IO_ENDVTTtRIMPW}.BULLDIR~W^(WnWYY\\\\V^`dFOR$OPENV^kERROR_AND_EXITWˤTRIMPY}.BULLFIL~Y^(YnY\\VVˬVW^˰˴FOR$OPENW^kERROR_AND_EXITSET_PROTECTIONYTRIMP\}.BULLFIL~\^(\n\VVWWWY^FOR$OPENY^\(TRIMPV}.BULLDIR~V^(VnVWWYY0Y\^48FOR$OPEN\^, ` V7  FOR$READ_DF, FOR$IO_T_DS4 FOR$IO_T_DSːˌ FOR$IO_T_DSu FOR$IO_L_RƄ FOR$IO_L_Rƈ FOR$IO_L_R< FOR$IO_T_DS˘˔ FOR$IO_T_DS FOR$IO_ENDPWWXƔX˜WRITEDIR, ` ƼYX1HY  FOR$READ_DF  FOR$IO_T_DS FOR$IO_T_DS FOR$IO_T_DSƤˬ˨ FOR$IO_T_DSߦP FOR$IO_L_R$ FOR$IO_T_DSߦ\ FOR$IO_LU_Rߦ` FOR$IO_L_R FOR$IO_ENDP\\X15  FOR$READ_SFL FOR$IO_T_DS FOR$IO_END5 FOR$WRITE_SFސ~P^(vPnQ˰^˴˰ FOR$IO_T_V_DS FOR$IO_ENDЦPRSP5  FOR$READ_SFL FOR$IO_T_DS FOR$IO_END5 FOR$WRITE_SFL FOR$IO_T_DS FOR$IO_ENDRSY~^˼˸WRITEDIR^Y1 FOR$CLOSE FOR$CLOSE FOR$CLOSE FOR$CLOSERESET_PROTECTIONXk`P00:00:00.00 CONVERT_BULLFILESFOR$OPENTRIMERROR_AND_EXITSET_PROTECTIONWRITEDIR FOR$CLOSERESET_PROTECTION$CODEwk$PDATA8$LOCALBULL_DIR INPUT_BUFFERNEWS_DIR BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER10FILES 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_SFBbPP_P{P  PI PpPPEOCww1x`ӯr01=CONVERT_BULLFOLDER0130-Sep-1995 12:59DEC Fortran V6.1-68CONVERT_BULLFOLDERP Converting ) to new format. Please wait. P  P , P   P CONVERT_BULLFOLDER:].5-NOV-1982|P,0 8PD   PP PP yPPx|||(<Dlp|l )tl ,-018 , SYS_BINTIM@ppzllpl  lplllD ` SYS_BINTIM@pp|dP,PQGENERAL %' PPBULL_DIR: G'BULL_DIR: G'{BULLUSER.DAT D'QBULLFOLDER.DAT B'QBULLINF.DAT E'QPBULLNEWS.DAT D'Q`BULL_DIR: G'Pl[^}PQP FOR$WRITE_SF˘TRIMPˠˤˠ FOR$IO_T_DS FOR$IO_ENDSET_PROTECTION˰ LIB$INDEXPR LIB$INDEXRQQPPQQR<PRSSPPC LIB$INDEXRPpV^(nPBPP PPP!PPPPyPmPPP;PDPcP\PPPP2P*{Py ww1r01;CONVERT_BULLNEWS0130-Sep-1995 12:59DEC Fortran V6.1-68CONVERT_BULLNEWSBP Converting ) to new format. This will take a while.CONVERT_BULLNEWSQ:].5-NOV-19825-NOV-2956 00:00:00.00 P08P7iFHJ $ X ,-0189@ LL SYS_BINTIM@ppW W SYS_BINTIM@ppDl<,<d<h<l@pnldP,PQGENERAL %' PPBULL_DIR: G'BULL_DIR: G'BULLUSER.DAT D'QBULLFOLDER.DAT B'QBULLINF.DAT E'QPBULLNEWS.DAT D'Q`BULL_DIR: G'P [}PQ P FOR$WRITE_SF8TRIMP@ D@ FOR$IO_T_DS FOR$IO_ENDSET_PROTECTIONP LIB$INDEXPRd LIB$INDEXRQQPPQQR<PRSSPPpC tˀ LIB$INDEXRPpV^(pnCONVERT_BULLNEWSDIR0130-Sep-1995 12:59DEC Fortran V6.1-68CONVERT_BULLNEWSDIRP2 Converting data files to new format. Please wait.% BULLNEWSDIR.DAT has been renamed to ( BULLNEWSDIR.OLD and may now be deleted.& ERROR: Cannot convert BULLNEWSDIR.DAT IOSTAT error = ,CONVERT_BULLNEWSDIRL.].BULLNEWSBULLNEWSDIR.OLDP8PP -    TU`d x   #    9@@  LIB$RENAME_FILE@dP,PQGENERAL %' PPBULL_DIR: G'BULL_DIR: G'BULLUSER.DAT D'QBULLFOLDER.DAT B'QBULLINF.DAT E'QPBULLNEWS.DAT D'Q`BULL_DIR: G'P [ FOR$WRITE_SF FOR$IO_ENDSET_PROTECTION OPEN_BULLNEWS8FOR$OPENk1V˸ LIB$INDEXP^ LIB$INDEXP^MINGT0^PW ^( nW^(WnWY Y\\\V^LIB$CREATE_DIRV^P1ԫk1 FOR$READ_SU0 FOR$IO_X_SE FOR$IO_ENDPRRk GET_INTEGERPի FOR$CLOSE GET_INTEGERPSET_BULLNEWSDIR_FILEFOR$OPENk1Pːˌ GET_INTEGERP}X} ($`˜˔COPY2ˠCONVERT_TO_GMT˨ GET_MSGKEY˼˴ LIB$MOVC3  FOR$WRITE_SU FOR$IO_X_SE FOR$IO_ENDPYY1  FOR$CLOSE FOR$CLOSERESET_PROTECTION, P  ADD_DIRECTORYTRIMP LIB$RENAME_FILEPk5 FOR$WRITE_SF FOR$IO_ENDRESET_PROTECTIONCLOSE_BULLNEWS FOR$WRITE_SF FOR$IO_ENDk FOR$ERRSNSի FOR$WRITE_SFk FOR$IO_L_V FOR$IO_END SYS_GETMSGENABLE_CTRL_EXITPBULLNEWSDIR]BULLNEWSDIR.DAT CONVERT_BULLNEWSDIRSET_PROTECTION OPEN_BULLNEWSFOR$OPENLIB$CREATE_DIRMINGT0 LIB$INDEX GET_INTEGER FOR$CLOSESET_BULLNEWSDIR_FILECOPY2CONVERT_TO_GMT GET_MSGKEY LIB$MOVC3RESET_PROTECTION ADD_DIRECTORYLIB$RENAME_FILETRIMCLOSE_BULLNEWS FOR$ERRSNS SYS_GETMSGENABLE_CTRL_EXIT$CODE$PDATA$LOCALBULL_DIR INPUT_BUFFERNEWS_DIR BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER10FILESP NEWSDIR_FILE FOR$IO_END FOR$IO_L_V FOR$IO_X_SE FOR$READ_SU FOR$WRITE_SF FOR$WRITE_SU\:PPjPPP4P PP?P MP"nP l`! ww1檿r01@CONVERT_ENTRY_FROMBIN0130-Sep-1995 12:59DEC Fortran V6.1-68CONVERT_ENTRY_FROMBIN!CONVERT_ENTRY_FROMBINPTP 88XTXdPP<[H GET_MSGKEYT GET_MSGKEY` GET_MSGKEYlCONVERT_FROM_GMT(8H ( D@`DP\<[t SYS$ASCTIM, , ˈ SYS$ASCTIM, ,  <CONVERT_ENTRY_FROMBIN GET_MSGKEYCONVERT_FROM_GMT o<CONVERT_ENTRY_FROMBIN_FOLDER SYS$ASCTIM$CODE$PDATA$LOCALBULL_DIR INPUT_BUFFERNEWS_DIR REMOTE_FOLDERPOSTP[(PnP 4(E ww1r01>CONVERT_ENTRY_TOBIN0130-Sep-1995 12:59DEC Fortran V6.1-68CONVERT_ENTRY_TOBINCONVERT_ENTRY_TOBIN P  8(T Pd TdP,PQGENERAL %'P [V ^( n ~ ^( n(V^,X0 SYS_BINTIMV^ <CONVERT_TO_GMTD GET_MSGKEY\ ^( n ~ ^( nP\^TX SYS_BINTIM\^V ^( Ȥn ~ ^( ȘndV^hl SYS_BINTIMV^ YxTRIMP\00~\\^(\n\VV\ ~\W ^( nW \\ˀ\Y^˄ˈ SYS_BINTIMY^˔ GET_MSGKEY (8 H( D`@PDˠ GET_MSGKEYˬ GET_MSGKEY˸ GET_MSGKEYS CONVERT_ENTRY_TOBIN SYS_BINTIMCONVERT_TO_GMT GET_MSGKEYTRIM$CODE$PDATA$LOCALBULL_DIR INPUT_BUFFERNEWS_DIR BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1 REMOTE_FOLDER LOCALPOST(IPBP0P_'PPtP 4(ww1 ߪr01ACONVERT_HEADER_FROMBIN0130-Sep-1995 12:59DEC Fortran V6.1-68 CONVERT_HEADER_FROMBIN"CONVERT_HEADER_FROMBINPplxp88p8x8dP,PQGENERAL %'P<[ (COPY24 GET_MSGKEY@ SYS$ASCTIM, , T SYS$ASCTIM, , h SYS$ASCTIM, , 2 <CONVERT_HEADER_FROMBINCOPY2 GET_MSGKEY SYS$ASCTIM$CODE$PDATA$LOCALBULL_DIR INPUT_BUFFERNEWS_DIR BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1 REMOTE_FOLDERP!0$ww1 r01?CONVERT_HEADER_TOBIN0130-Sep-1995 12:59DEC Fortran V6.1-68CONVERT_HEADER_TOBIN CONVERT_HEADER_TOBINP8px0pxp,PQGENERAL %'dPP [V ^( n ~ ^( nV^  SYS_BINTIMV^X ^( n ~ ^( nX^ $ SYS_BINTIMX^W ^( n ~ ^( n0W^48 SYS_BINTIMW^ DCOPY2P GET_MSGKEY0 CONVERT_HEADER_TOBIN SYS_BINTIMCOPY2 GET_MSGKEY$CODE$PDATA\$LOCAL BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1BULL_DIR INPUT_BUFFERNEWS_DIR REMOTE_FOLDER P"ww1r01:CONVERT_INFFILE0130-Sep-1995 12:59DEC Fortran V6.1-68CONVERT_INFFILEP( ERROR: Old data files have more folders& than was specified with BULLUSER.INC.# Recompile with correct FOLDER_MAX.CONVERT_INFFILEP P @    )      PPBULL_DIR: G'BULL_DIR: G'BULLUSER.DAT D'QBULLFOLDER.DAT B'QBULLINF.DAT E'QPBULLNEWS.DAT D'Q`BULL_DIR: G'P<[ЫT FOR$OPEN\ FOR$INQUIREQQUU` FOR$WRITE_SF FOR$IO_ENDS FOR$WRITE_SF FOR$IO_END-  yl SYS$DELPRC ENABLE_CTRLx SYS$CANEXHFOR$EXITˀFOR$OPENk\\1  FOR$READ_SU FOR$IO_T_DSURTRSc FOR$IO_X_SBSRT FOR$IO_ENDP\  FOR$WRITE_SU FOR$IO_T_DSTSc FOR$IO_X_SBS`T FOR$IO_END1k FOR$CLOSE FOR$CLOSETU\kyPDECNET <CONVERT_INFFILEFOR$OPEN FOR$INQUIRE SYS$DELPRC ENABLE_CTRL SYS$CANEXHFOR$EXIT FOR$CLOSER$CODE$PDATA$LOCALL HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAG ES0FILES FOR$IO_END FOR$IO_T_DS FOR$IO_X_SB FOR$READ_SU FOR$WRITE_SF FOR$WRITE_SU7.P_jP tPPPDP P?6*cRww1@r017 CONVERT_ROTC0130-Sep-1995 12:47DEC Fortran V6.1-68 CONVERT_ROTC CONVERT_ROTCPP [}PQPмVWVWXHAHZHP P PHHAHSSSHHaHzHU UUHHaHSSSHVWK CONVERT_ROTC$CODE$PDATA $LOCAL9Pn+P,3P$HP WP2_P*gP"|P "ww1 /cr017 CONVERT_TABS0130-Sep-1995 12:54DEC Fortran V6.1-68 CONVERT_TABS CONVERT_TABS,P P$P[}PQ P<RRV޼WgV1 LIB$INDEXP, LIB$INDEXPXXQQQ QQYXQQZYRRV<PXPSRP,SH PB XYXP @ YXgZZgVYXYXP @ YXVg1tg@8FILTERd  CONVERT_TABS LIB$INDEXFILTER$CODE$PDATAD$LOCAL.&P3Px]P2wP PP 3' ww1@7]r019CONVERT_TO_GMT0130-Sep-1995 13:08DEC Fortran V6.1-68CONVERT_TO_GMTCONVERT_TO_GMTPLISP$TIME_ZONEMULTINET_TIMEZONEPMDF_TIMEZONE:LP $ , SYS_TRNLNM_SYSTEM@h SYS_TRNLNM_SYSTEM@p !! SYS_TRNLNM_SYSTEM@pxpxpxph/h<4@D`\<p/h<phQ  'EST CST MST PST IST 'Q-5:30 'P 8[Ь$k 8[Ь$- n1XSYS_TRNLNM_SYSTEMP1lSYS_TRNLNM_SYSTEMPˀSYS_TRNLNM_SYSTEMPˌ LIB$INDEXPP^(1n˘ LIB$INDEXPP4PP~,n Q^ˤ LIB$INDEXPPP(@,4 ˰aTRIMPV^(1nV^(VnVXXV,Vn PQ^,9  LIB$INDEXPP OTS$CVT_TI_Lѫ1ѫ1޼ SYS$ASCTIM OTS$CVT_TI_L޼LIB$DAY_OF_WEEK(, LIB$INDEXPPP ë XXPP Pѫ <@ OTS$CVT_L_TIի, ѫ ë` LIB$INDEXPPW,W@ ڞpt OTS$CVT_L_TI葫 , ԫˌTRIMPV˔TRIMP^(Pn^SW0 ~WXX˜XV^ˠˤ SYS_BINTIMV^kk޼˴޼˼˰LIB$SUBX޼޼LIB$ADDXk1P:0000:00GMT" CONVERT_TO_GMT  CONVERT_FROM_GMTSYS_TRNLNM_SYSTEM LIB$INDEXTRIM OTS$CVT_TI_L SYS$ASCTIMLIB$DAY_OF_WEEK OTS$CVT_L_TI SYS_BINTIMLIB$SUBXLIB$ADDX$CODE<$PDATA $LOCAL$MONTHSZONEP7P#EPQP ]PZnP-PP P4-P6P}~P P+P&P!PPPPKPBPP_PbPePiPPZNww1êr01;CONVERT_USERFILE0130-Sep-1995 12:59DEC Fortran V6.1-68CONVERT_USERFILEP2 Converting data files to new format. Please wait.( ERROR: Old data files have more folders& than was specified with BULLUSER.INC.# Recompile with correct FOLDER_MAX. Cannot convert user file.@  CONVERT_USERFILEQ :].PP      (  4  @  JPJh|` `   )`L  (@   PPBULL_DIR: G'BULL_DIR: G'BULLUSER.DAT D'QBULLFOLDER.DAT B'QBULLINF.DAT E'QPBULLNEWS.DAT D'Q`BULL_DIR: G'P[^ FOR$WRITE_SF FOR$IO_ENDˬ LIB$INDEXPR LIB$INDEXR\\PP\\QQPRRA LIB$INDEX\PpV^(nV^(VnVXX\,\n PPQ^LIB$RENAME_FILEPkFOR$OPENk4 FOR$INQUIREXXX5 FOR$WRITE_SF FOR$IO_END FOR$WRITE_SF FOR$IO_ENDDLIB$RENAME_FILEP-  P SYS$DELPRC ENABLE_CTRL\ SYS$CANEXHFOR$EXITխSET_PROTECTIONЭkdFOR$OPENkխ FOR$WRITE_SF FOR$IO_ENDի˨ FOR$ERRSNS˴ SYS_GETMSGRESET_PROTECTIONENABLE_CTRL_EXIT\Wާ(RԢԢ Ԃ\ѫJѫBѫ:ѫ*ѫ21ѫ:2YY1  FOR$READ_SF˔ FOR$IO_T_DS FOR$IO_ENDPSSY1( <, H }S, [ }fѫ:n˼ LIB$MOVC3ѫBv LIB$MOVC3ѫJ~ LIB$MOVC3Z}~ ~ ^( nZ^ SYS_BINTIMZ^V}~ ~ ^( nV^ SYS_BINTIMV^ FOR$WRITE_SF, FOR$IO_T_DS߫4 FOR$IO_X_DA߫D FOR$IO_X_DA߫T FOR$IO_X_DA߫d FOR$IO_X_DA߫t FOR$IO_X_DA˄ FOR$IO_X_DA FOR$IO_END1ѫB1 FOR$READ_KF, FOR$IO_T_DS߫4 FOR$IO_X_DA߫D FOR$IO_X_DA߫T FOR$IO_X_DA߫d FOR$IO_X_DA߫t FOR$IO_X_DA˄ FOR$IO_X_DA FOR$IO_ENDЏ@ FOR$WRITE_SF, FOR$IO_T_DS߫4 FOR$IO_X_DA߫D FOR$IO_X_DA߫T FOR$IO_X_DA߫d FOR$IO_X_DA߫t FOR$IO_X_DA˄ FOR$IO_X_DA FOR$IO_END1Xխ1  FOR$READ_SF, FOR$IO_T_DS߫4 FOR$IO_X_DA߫D FOR$IO_X_DAXR\RާS߃ FOR$IO_L_RR\XT\Tާ(U߅ FOR$IO_L_RT\XZ\Zާ4V߆ FOR$IO_L_RZ\XY\Yާ@R߂ FOR$IO_L_RY\ FOR$IO_ENDPSS FOR$WRITE_SF, FOR$IO_T_DS߫4 FOR$IO_X_DA߫D FOR$IO_X_DA߫T FOR$IO_X_DA߫d FOR$IO_X_DA߫t FOR$IO_X_DA˄ FOR$IO_X_DA FOR$IO_END1 FOR$CLOSE$ FOR$CLOSERESET_PROTECTIONP  UUUPPOLDDECNETR CONVERT_USERFILE LIB$INDEXLIB$RENAME_FILEFOR$OPEN FOR$INQUIRE SYS$DELPRC ENABLE_CTRL SYS$CANEXHFOR$EXITSET_PROTECTION FOR$ERRSNS SYS_GETMSGRESET_PROTECTIONENABLE_CTRL_EXIT LIB$MOVC3 SYS_BINTIM FOR$CLOSEq$CODE$PDATA$LOCAL0FILESL HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGES FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$IO_X_DA FOR$READ_SF FOR$READ_KF FOR$WRITE_SFPVP`Pn PP7PTP;oP P PPP PCPPUP!P#KPePPOPP"&P*PbP~PPPP]\qww1+r010COPY20130-Sep-1995 12:45DEC Fortran V6.1-68 COPY2 COPY2MPP P[޼޼ k LIB$MOVC3R COPY2 LIB$MOVC3$CODE$PDATA$LOCAL ww1 &r013COPY_ACL0130-Sep-1995 12:59DEC Fortran V6.1-68COPY_ACLCOPY_ACLP P   P[}PQP }PQP INIT_ITMLSTk^( ADD_2_ITMLST^, END_ITMLSTЫD4SYS$CHANGE_ACL k~^`\ LIB$GET_VM^Ыlh MAKE_CHARЫ˄x COPY_ACL1 k~^ːˌ LIB$FREE_VM COPY_ACL INIT_ITMLST ADD_2_ITMLST END_ITMLSTSYS$CHANGE_ACL LIB$GET_VM MAKE_CHAR COPY_ACL1 LIB$FREE_VM$CODE $PDATA$LOCAL(Mww1'9r014 COPY_ACL10130-Sep-1995 12:59DEC Fortran V6.1-68 COPY_ACL1 COPY_ACL1P(ID=*,ACCESS=NONE)P h SYS$PARSE_ACL@    P,[}PQP}PQP} PQ$P INIT_ITMLST޼Rb,$^4( ADD_2_ITMLST^8 END_ITMLSTkP@SYS$CHANGE_ACLP1p SYS$PARSE_ACLPSSbԫS1 INIT_ITMLST뚻$~^ˈ$^ː˄ ADD_2_ITMLST^˔ END_ITMLSTЫˬ˜SYS$CHANGE_ACL INIT_ITMLSTb$^˼ ADD_2_ITMLST^ END_ITMLSTkSYS$CHANGE_ACLPS< PPQA$ LIB$MOVC3ի 1a INIT_ITMLSTSSbSUE$~^< PUPE$^  ADD_2_ITMLST^E$PPS END_ITMLSTk4$SYS$CHANGE_ACL , COPY_ACL1 INIT_ITMLST ADD_2_ITMLST END_ITMLSTSYS$CHANGE_ACL SYS$PARSE_ACL LIB$MOVC3$CODE#$PDATAD$LOCAL)fPuPPP4P7D8Mww15 r014 COPY_BULL0130-Sep-1995 12:54DEC Fortran V6.1-68 COPY_BULL P)) COPY_BULLQ  P  $ STORE_BULL@ dPP[мVмW޼XhREMOTE_COPY_BULLhERROR_AND_EXITVRSRW FOR$READ_SF FOR$IO_ENDRSм VYZXԨPըP1ԫի1~W FOR$READ_SF߫ FOR$IO_L_R  FOR$IO_T_DS FOR$IO_ENDTRIM֚RRPPRRSSЫSSѫQARR S CP @իYV)YիYVZ15ZZRSZ, STORE_BULLRSZZZPZ< STORE_BULLPQQP1PTǏTP޼UըPeeL FLUSH_BULLPFrom: FROMR  COPY_BULLREMOTE_COPY_BULLERROR_AND_EXITTRIM STORE_BULL FLUSH_BULL$CODE$PDATAT$LOCAL REMOTE_FOLDERLAST_RECORD_WRITTENBULL_DIR INPUT_BUFFERNEWS_DIR FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$READ_SF FOR$READ_SFP+P=PzP PPP0PP$P*P 9P@PEPOP!YPPPRFTww1 ]r014 COPY_CHAR0130-Sep-1995 13:02DEC Fortran V6.1-68 COPY_CHAR COPY_CHARIPP<[}PQPk} PQ P,  J < COPY_CHAR+$CODE$PDATA$LOCAL +ww1`5r018 CREATE_BULLCP0130-Sep-1995 12:52DEC Fortran V6.1-68 CREATE_BULLCPP' ERROR: You do not have the privileges to execute the command.) ERROR: You need SETPRV to execute /STOP.$ ERROR: This new version of BULLETIN# needs to be installed with SYSNAM.G BULLCP process running. Do you wish to kill it and restart a new one? )$ BULLCP process has been terminated.! BULLCP is not presently running.& WARNING: Account with username DECNET does not exist.) BULLCP will be owned by present account.. Successfully created BULLCP detached process. CREATE_BULLCPQSTOPBULLCP$SET NOON$LOOP:$B/BULLCP$WAIT 00:01:00$GOTO LOOPSYS$SYSTEM:LOGINOUTNL:DECNETPPP( CLI$PRESENT@0 DELPRC@ l    . 8L 8 SYS$CREPRC@L SYS$CREPRC@ SYS$CREPRC@@ T PP CONFIRM_USER@PPBULL_DIR: G'BULL_DIR: G'BULLUSER.DAT D'QBULLFOLDER.DAT B'QBULLINF.DAT E'QPBULLNEWS.DAT D'Q`BULL_DIR: G'P[  SETPRV_PRIVP FOR$WRITE_SF FOR$IO_ENDFOR$EXIT0 CLI$PRESENTPTT8 FOR$BJTESTPC FOR$WRITE_SF FOR$IO_ENDFOR$EXITD FOR$BJTESTPTP SYS$SETPRVd FOR$BJTESTPo FOR$WRITE_SF FOR$IO_ENDFOR$EXITp TEST_BULLCPP1T FOR$WRITE_SF FOR$IO_END FOR$READ_SF|x FOR$IO_T_DS FOR$IO_ENDYyFOR$EXITˈDELPRCk˔ SYS_GETMSGFOR$EXITT FOR$WRITE_SF FOR$IO_ENDFOR$EXITT/ FOR$WRITE_SF FOR$IO_ENDFOR$EXIT˜GETIMAGE˨TRIMPV˰ SYS$SETDFPROTW ^( WnV^(VPnVY Y\\˼\W^FOR$OPENW^k  FOR$WRITE_SF FOR$IO_T_DS FOR$IO_END  FOR$WRITE_SF«^(xnЫY^(anY\\^ FOR$IO_T_V_DS FOR$IO_END  FOR$WRITE_SF FOR$IO_T_DS FOR$IO_END  FOR$WRITE_SF ^( fnV^(VPnVX XY^(pnYXX^ FOR$IO_T_V_DS FOR$IO_END  FOR$WRITE_SF ^( fnV^(VPnV\ \Y^(wnY\\^  FOR$IO_T_V_DS FOR$IO_END  FOR$WRITE_SF ^( nV^(VPnVX XY^(nYXX^ FOR$IO_T_V_DS FOR$IO_END  FOR$WRITE_SF 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_END0 FOR$CLOSE8 SYS$SETDFPROTDGETQUOTAWWW\ ^( WnV^(VPnVX XWWXW\^\p SYS$CREPRC\^PWWX ^( nV^(VPnVZ Z\\ˤ\X^˨ˬFOR$OPENX^ի  FOR$CLOSEWWk SYS_GETMSGkW CONFIRM_USERPS FOR$WRITE_SF FOR$IO_END FOR$WRITE_SF FOR$IO_END FOR$WRITE_SF FOR$IO_ENDFOR$EXITWkWPBULLCP.COM$B:=$Q $PURGE QBULLCP.LOGQ$DEF/USER SYS$OUTPUT Q $DEF/USER SYS$ERROR QBULLCP.ERRQBULLCP.COM;-1  CREATE_BULLCP SETPRV_PRIVFOR$EXIT CLI$PRESENT FOR$BJTEST SYS$SETPRV TEST_BULLCPDELPRC SYS_GETMSGGETIMAGETRIM SYS$SETDFPROTFOR$OPEN FOR$CLOSEGETQUOTA SYS$CREPRC CONFIRM_USER$CODE$PDATA$LOCAL0FILESREALPROCDBULLPAR FOR$IO_END FOR$IO_T_DS FOR$IO_T_V_DS FOR$READ_SF FOR$WRITE_SFP>P-IP"hPAvP3yP0PPPPPPP(P#.PMP"RPPP P?*PFgP sPPRP,w ߷ߩww1r018 CREATE_FOLDER0130-Sep-1995 12:54DEC Fortran V6.1-68 CREATE_FOLDERP' ERROR: CREATE is a privileged command., ERROR: Folder name must be < 45 characters.' ERROR: Privileged qualifier specified.$ ERROR: REMOTENAME cannot be longer than 40 characters.- 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: Folder owner name must be! no more than 12 characters long. ERROR: ID not valid.! ERROR: Owner not valid username./ ERROR: System programmer has disabled folders., 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_FOLDERQ` NEWSNEEDPRIVCREATE_FOLDERALWAYSNOTIFYREADNEWBRIEFSYSTEMNODEREMOTENAMEDESCRIPTIONOWNERIDPRIVATESEMIPRIVATE*RNONER+W+CPOST_ONLYADD_ONLYCOMPRESSSHOWNEW8P, 8PD P, 8PP( CLI$PRESENT@ CLI$PRESENT@  CLI$GET_VALUE@888 CLI$PRESENT@ CLI$PRESENT@ CLI$PRESENT@ CLI$PRESENT@( CLI$PRESENT@ 8  CLI$PRESENT@ H  CLI$GET_VALUE@P ` CLI$GET_VALUE@`  CLI$PRESENT@  CLI$PRESENT@  CLI$GET_VALUE@HH'' CLI$PRESENT@-- CLI$PRESENT@'' CLI$GET_VALUE@h -- CLI$PRESENT@hhpxXd   X   0(0 CLI$PRESENT@ 888 CLI$PRESENT@ 8X8 CLI$PRESENT@DFhD ADD_ACL@pF ADD_ACL@DHD ADD_ACL@H ADD_ACL@M@M ADD_ACL@X$X$ 4  CLI$PRESENT@ CLI$PRESENT@-- CLI$PRESENT@ CLI$PRESENT@ SS CLI$PRESENT@]] CLI$PRESENT@ff CLI$PRESENT@T CLI$PRESENT@d CLI$PRESENT@oto CLI$PRESENT@ CLI$PRESENT@,048,PQGENERAL %'PPBULL_DIR: G'BULL_DIR: G'BULLUSER.DAT D'QBULLFOLDER.DAT B'QBULLINF.DAT E'QPBULLNEWS.DAT D'Q`BULL_DIR: G'dPPP[ː CLI$PRESENTPCREATE_NEWS_FOLDER˨ CLI$PRESENTP˰ FOR$BJTESTP˘ SETPRV_PRIVP FOR$WRITE_SF FOR$IO_END CLI$GET_VALUE STR$UPCASEѫ,* FOR$WRITE_SF FOR$IO_END0 CLI$PRESENTP  CLI$PRESENTP CLI$PRESENTP CLI$PRESENTP CLI$PRESENTP SETPRV_PRIVPY FOR$WRITE_SF FOR$IO_ENDV@ CLI$PRESENTP1P CLI$GET_VALUEPk«^(nЫW::~W\,\n PQ^( Ɣh CLI$GET_VALUEP(,fѫ ( FOR$WRITE_SF FOR$IO_END`,xCONNECT_REMOTE_FOLDERk FOR$WRITE_SF FOR$IO_ENDˌ CLI$PRESENTP˔ FOR$BJTESTP FOR$WRITE_SF FOR$IO_ENDԫի1˨ CLI$PRESENTP˸ CLI$GET_VALUE4 FOR$WRITE_SF FOR$IO_ENDGET_LINE,D PDի] FOR$WRITE_SF FOR$IO_ENDѫPz FOR$WRITE_SF FOR$IO_ENDԫ1nOPEN_BULLFOLDER~~8 FOR$READ_KU FOR$IO_ENDPXXk FOR$WRITE_SF FOR$IO_END1 CLI$PRESENTP1 SETPRV_PRIVP CLI$PRESENTP FOR$WRITE_SF FOR$IO_ENDCLOSE_BULLFOLDER CLI$GET_VALUEѫ  FOR$WRITE_SF FOR$IO_ENDCLOSE_BULLFOLDER CLI$PRESENTP$CHKPROPkk< FOR$WRITE_SF FOR$IO_ENDCLOSE_BULLFOLDER,GET_UAFkT FOR$WRITE_SF FOR$IO_ENDCLOSE_BULLFOLDER( 88(  8( 88,H SYS$SETDFPROTTTRIMPW\Wx FOR$WRITE_SF FOR$IO_END1,^(,lnW^(WPnWY,YW,Wn PPQ^Y\TRIMPX}.BULLDIR~X^(XnXZZXXdXY^hlFOR$OPENY^k FOR$WRITE_SF FOR$IO_END FOR$ERRSNSA SYS_GETMSG1ZTRIMPW}.BULLFIL~W^(WnWYYWWWZ^FOR$OPENZ^k FOR$WRITE_SF FOR$IO_END FOR$ERRSNS  SYS_GETMSG10 CLI$PRESENTP@ CLI$PRESENTP1(PH FOR$CLOSEP FOR$CLOSE(,lf` CLI$PRESENTPxADD_ACL˘ADD_ACL˰ADD_ACLYTRIMPX}.BULLDIR~X^(XnXZZXXXY^FOR$OPENY^ZTRIMPW}.BULLFIL~W^(WnWYYWWWZ^FOR$OPENZ^k FOR$WRITE_SF FOR$IO_END  SYS_GETMSG1( FOR$JIBSETPk(kѫ(_~ˀ FOR$READ_KU FOR$IO_ENDPRRk֫(k9 FOR$WRITE_SF FOR$IO_L_R FOR$IO_ENDi FOR$WRITE_SF FOR$IO_END] FOR$WRITE_SF FOR$IO_ENDլ,,˴ FOR$CLOSE FOR$CLOSE1(,< CLI$PRESENTP,H ̔D FOR$CLOSE̴̸̠̼Ц,,1P FOR$CLOSE\ FOR$CLOSE),fl OPEN_BULLDIR((fphWRITEDIR_NOCONV CLOSE_BULLDIR֐*~WW^(WƔnWZZY,Yn ƔPQ^(,lft FOR$BJTESTPˀ FOR$JIBSETP(PDD(fl̴,,l P0( 88˔ CLI$PRESENTP˜ FOR$JIBSETP˰ CLI$PRESENTP˸ FOR$JIBSETP CLI$PRESENTP FOR$JIBSETP CLI$PRESENTP FOR$JIBSETP CLI$PRESENTP  FOR$JIBSETP  CLI$PRESENTP( FOR$JIBSETP4WRITE_FOLDER_FILE<bMODIFY_SYSTEM_LISTD FOR$CLOSEL FOR$CLOSEԫ,ԫ0ԫ4\ CLI$PRESENTP,l CLI$PRESENTP0| CLI$PRESENTP4ˌ CLI$PRESENTP40˔SET_FOLDER_DEFAULT FOR$WRITE_SFˤTRIMPZ.~Z^(ZlnZYYVVˬ^˰ˬ FOR$IO_T_V_DS FOR$IO_ENDCLOSE_BULLFOLDER SYS$SETDFPROT  CREATE_FOLDER CLI$PRESENTCREATE_NEWS_FOLDER SETPRV_PRIV FOR$BJTEST CLI$GET_VALUE STR$UPCASECONNECT_REMOTE_FOLDERGET_LINEOPEN_BULLFOLDERCLOSE_BULLFOLDERCHKPROGET_UAF SYS$SETDFPROTTRIMFOR$OPEN FOR$ERRSNS SYS_GETMSG FOR$CLOSEADD_ACL FOR$JIBSET OPEN_BULLDIRWRITEDIR_NOCONV CLOSE_BULLDIRWRITE_FOLDER_FILEMODIFY_SYSTEM_LISTSET_FOLDER_DEFAULT^ $CODEw$PDATA$LOCAL BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1L HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGES0FILESBULL_DIR INPUT_BUFFERNEWS_DIR REMOTE_FOLDER BULL_CUSTOM FOR$IO_END FOR$IO_L_R FOR$IO_T_V_DS FOR$READ_KU FOR$WRITE_SF'P +P 7P$CPsPP0P$PP P$PPKP UP]PPP$PPP P1(PIPqPPPPP-P!P!/P4>P!aP.oP PPP`P+P P.PPPJP UP P#P+P05P&8P _PpPP~PNP -PGPMPP P&PBP^PzPPPPPznG ^ ww1_r01=CREATE_NEWS_FOLDER0130-Sep-1995 12:54DEC Fortran V6.1-68CREATE_NEWS_FOLDERP Enter newsgroup description:$ End with ctrl-z, cancel with ctrl-c ERROR: Input line length > , . Reinput:)& ERROR: Unable to open specified file. No news group was added.CREATE_NEWS_FOLDERQEDITCREATE_FOLDERFILESPECSYS$LOGIN:BULL.SCR Adding newsgroup. PP0 @ $ CLI$PRESENT@4 CLI$PRESENT@ D CLI$GET_VALUE@  d CLI$PRESENT@t CLI$GET_VALUE@ @   MAILEDIT@ MAILEDIT@ FOR$OPEN@  MAILEDIT@( FOR$OPEN@T FOR$OPEN@ NEWS_POST@,PQGENERAL %'dP PP[, CLI$PRESENT PR< CLI$PRESENT CLI$_NEGATEDQSPQSS\\\W\RSL CLI$GET_VALUEPk\ LOWERCASE @l CLI$PRESENTP| CLI$GET_VALUEPk DISABLE_PRIVS @ˌ ː˔FOR$OPENP ENABLE_PRIVSu FOR$WRITE_SF FOR$IO_END ENABLE_PRIVSS @MAILEDITFOR$OPENP1 @ FOR$CLOSE @  MAILEDIT0FOR$OPENP11 @1\FOR$OPEN FOR$WRITE_SF FOR$IO_ENDԫRի|GET_LINEѫF FOR$WRITE_SF FOR$IO_L_R FOR$IO_ENDիs FOR$WRITE_SFˈ ˌˈ FOR$IO_T_DS FOR$IO_ENDRѫR FOR$WRITE_SF FOR$IO_END˼ FOR$CLOSE FOR$REWINDV«^(0nЫW ^( nW \\ː\V^˔ˠ NEWS_POSTV^˴ FOR$CLOSEPnewgroup  CREATE_NEWS_FOLDER CLI$_ABSENT CLI$_NEGATED CLI$PRESENT CLI$GET_VALUE LOWERCASE DISABLE_PRIVSFOR$OPEN ENABLE_PRIVSMAILEDIT FOR$CLOSEGET_LINE NEWS_POSTF$CODE$PDATA$LOCAL BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1BULL_DIR INPUT_BUFFERNEWS_DIRDBULLPAREDIT FOR$REWIND FOR$ IO_END FOR$IO_L_R FOR$IO_T_DS FOR$WRITE_SF^PYP P PaP!PP3PP%PPPwcP(P<P4PPP nb1Fww1r019CREATE_PROCESS0130-Sep-1995 12:52DEC Fortran V6.1-68CREATE_PROCESS P)CREATE_PROCESSQ;$ON ERROR THEN GOTO EXIT$ON SEVERE THEN GOTO EXIT$ON WARNING THEN GOTO EXIT$B/'F$PROCESS()'$EXIT:$LOGOUTSYS$SYSTEM:LOGINOUTNL:BULLCP NEWSPP      L `&?Yio v v SYS$CREPRC@ SYS$CREPRC@@ ( DELPRC@PPBULL_DIR: G'BULL_DIR: G'BULLUSER.DAT D'QBULLFOLDER.DAT B'QBULLINF.DAT E'QPBULLNEWS.DAT D'Q`BULL_DIR: G'P[}PQP(GETIMAGE4TRIMPVW^(nV^(VnVYYDELETE_EXPIRED_NEWS0130-Sep-1995 12:52DEC Fortran V6.1-68DELETE_EXPIRED_NEWS PDELETE_EXPIRED_NEWSQ BULL_NEWS_SERVERDEFINEDBULL NEWS1BULL NEWS.]-5-NOV-2956 00:00:00.00.BULLNEWSBULL_NEWS_CLEANUP*.*;11 00:00]1JAN]`PP,8TPpl  P P (# SYS_TRNLNM@# SYS_TRNLNM@ ++ SYS$SETPRN@ 6$6 SYS$SETPRN@@CLC SYS_BINTIM@lEE SYS_BINTIM@@|p88HTHTpH@HHTELE SYS_BINTIM@h@@L@T@L@Tp @HTHh@ p@@`0 \`DdPf#f SYS_TRNLNM@# SYS_TRNLNM@ff DELLNM@T@@EE SYS_BINTIM@8,(XHx`hx LIB$RENAME_FILE@   #@   9@@ TppT p,@@,@xdlx LIB$RENAME_FILE@p@,@T~~ SYS_BINTIM@PTPT```,D,PQGENERAL %'dP PPBULL_DIR: G'BULL_DIR: G'BULLUSER.DAT D'QBULLFOLDER.DAT B'QBULLINF.DAT E'QPBULLNEWS.DAT D'Q`BULL_DIR: G'P@[^Ы SYS_TRNLNMPЭ SYS$SETPRNPFOR$EXIT SYS$SETPRNPkkFOR$EXIT<,TRIMPX.]~XX^(X nXZZX,Xn PPQ^OPEN_BULLNEWS_SHAREDREC_LOCKP~? FOR$READ_KU FOR$IO_ENDPZZkkCLOSE_BULLNEWSЭ SYS_BINTIM  GET_MSGKEY ~04GET_VMS_VERSION,n  Q^) ) мZk1H SYS_BINTIMTREC_LOCKP1k1\ FOR$BJTESTPh COMPARE_BTIMP FOR$READ_SU8 FOR$IO_X_SE FOR$IO_ENDPRRkt GET_MSGKEYˠ FOR$READ_KU8 FOR$IO_X_SE FOR$IO_ENDPTTk1jNEWS_TO_FOLDER FOR$UNLOCKkCLOSE_BULLNEWS1Wˀ FOR$BJTESTP1OPEN_BULLDIR_SHAREDˌ GET_MSGKEYXYV˘READ_FIRST_EXPIREDի1ˠ COMPARE_BTIMP1ѫYѫǴVѫˬREAD_NEXT_EXPIRED˴ COMPARE_BTIMPXREAD_NEXT_EXPIRED)ʷժP DUMP_MESSAGE SYS$ASCTIM, ʰ,  ʼԪPWRITEDIRXREAD_FIRST_EXPIREDREAD_NEXT_EXPIREDCOPY2Xѫ SYS_BINTIMԫ FOR$UNLOCK1 READ_FOLDER_FILE_KEYNAME ,READDIRYkk  Ǵ k RR ѫ Ǵ8READDIRD COMPARE_BTIMPkЫ  PREADDIRǴVǴkǴ Ǵkѫ k  SS ѫ \READDIRh COMPARE_BTIMPЫ kѫ tCOPY2ѫ kЫ ǴXTTUUUˀ GET_MSGKEYˌ FOR$JIBSETP˘REWRITE_FOLDER_FILEkˠREAD_FIRST_EXPIREDիѫ˨ COMPARE_BTIMPժP˴ DUMP_MESSAGE FOR$DELETE˼READ_FIRST_EXPIREDREAD_FOLDER_FILE_KEYNAME FOR$JIBCLRP GET_MSGKEYREWRITE_FOLDER_FILE CLOSE_BULLDIR1aCLOSE_BULLNEWSk1 LIB$INDEXP^  LIB$INDEXP^ MINGT0^PY^(nY^(YnYXXY,Yn PPQ^~(,GET_VMS_VERSION,n  Q^8LIB$DAY_OF_WEEKѫT SYS_TRNLNMPkkhDELLNM) ) ԫp LIB$FIND_FILEPˀTRIMPˈ ˌː CONV$RECLAIM1ѫ1 OPEN_BULLNEWS_SHARED˘READ_FOLDER_FILE_KEYNUMˤREAD_FOLDER_FILE˴ SYS_BINTIMk1 FOR$UNLOCK GET_MSGKEY FOR$BJTESTP1SET_BULLNEWSDIR_FILEԫVTRIMPY;1~Y^(YnYWWYYYV^ LIB$FIND_FILEV^PWTRIMPX;2~X^(XnXVVXXXW^ LIB$DELETE_FILEW^PkTRIMP $0LIB$RENAME_FILEPkOPEN_BULLDIR_SHAREDŏRǏR~^X<FOR$OPEN^k CLOSE_BULLDIRCLOSE_BULLNEWSЭk1˸REC_LOCKP FOR$READ_SUˈ FOR$IO_X_SE FOR$IO_ENDPSSkk  FOR$WRITE_SUˈ FOR$IO_X_SE FOR$IO_ENDPUUk CLOSE_BULLDIRCLOSE_BULLNEWSЭ GET_MSGKEY COMPARE_BTIMPCOPY21b FOR$CLOSECLOSE_BULLDIR_DELETE GET_MSGKEY)8READ_FOLDER_FILE_KEYNUM}8REWRITE_FOLDER_FILEREAD_FOLDER_FILE_KEYNUMTRIMP$(4LIB$RENAME_FILEPX1ѫpѫt@ GET_MSGKEYLREWRITE_FOLDER_FILE OPEN_BULLDIRCLOSE_BULLDIR_DELETETSET_BULLNEWSDIR_FILEXXW\TRIMPV;~V^(VnVXXVVdVW^hlLIB$DELETE_FILEW^PXXktREAD_FOLDER_FILE19CLOSE_BULLNEWS|COPY2YYː SYS_BINTIM˜LIB$ADDX SET_BULLFILVˬTRIMPW ^( nW^(WnWZ ZYY˴YV^˸˼LIB$DELETE_FILEV^ LIB$INDEXQPQQY LIB$INDEXPWWZJ FOR$DECODE_MF߫ FOR$IO_L_R FOR$IO_ENDPSST1UUѫcJ FOR$ENCODE_MFݫ FOR$IO_L_V FOR$IO_ENDPYYRV^(nW^(WnWXXXV^LIB$DELETE_FILEV^ zYTRIMPX^(nX^(X nXZZWWWY^ LIB$DELETE_FILEY^PkЭPV5V41995BULLNEWSDIR.*]*..BULLFIL;*.*;*BULLNEWS*.DIR;* DELETE_EXPIRED_NEWSGET_VMS_VERSION SYS_TRNLNM SYS$SETPRNFOR$EXITTRIMOPEN_BULLNEWS_SHAREDREC_LOCKCLOSE_BULLNEWS SYS_BINTIM GET_MSGKEY FOR$BJTEST COMPARE_BTIMNEWS_TO_FOLDEROPEN_BULLDIR_SHAREDREAD_FIRST_EXPIREDREAD_NEXT_EXPIRED DUMP_MESSAGE SYS$ASCTIMWRITEDIRCOPY2READ_FOLDER_FILE_KEYNAMEREADDIR FOR$JIBSETREWRITE_FOLDER_FILE FOR$JIBCLR CLOSE_BULLDIRMINGT0 LIB$INDEXLIB$DAY_OF_WEEKDELLNM LIB$FIND_FILE CONV$RECLAIMREAD_FOLDER_FILE_KEYNUMREAD_FOLDER_FILESET_BULLNEWSDIR_FILELIB$DELETE_FILELIB$RENAME_FILEFOR$OPEN FOR$CLOSECLOSE_BULLDIR_DELETE OPEN_BULLDIRLIB$ADDX SET_BULLFIL $CODE$PDATAT$LOCAL BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1BULL_DIR INPUT_BUFFERNEWS_DIR0FILESNEXT  REMOTE_FOLDERBULLFILP NEWSDIR_FILENEWSLISTDIRLIST FOR$UNLOCK FOR$DELETE FOR$IO_END FOR$IO_L_R FOR$IO_L_V FOR$IO_X_SE FOR$READ_SU FOR$READ_KU FOR$WRITE_SU FOR$ENCODE_MF FOR$DECODE_MFP'P)3PIPP$PPP-PAPWP']PdP~qP ~PeP1PP.P"P PPFPVP_PjPwP PvPP[PDP P P0 P P JPQPVkP0oP,P PPoPPeP4P.P PP "P^PrlP;vP1P$P PPuPP PHP:P$PP-PNPPCP#2PMP[P(^PP[PPP  P#SPaP kP$P PA Pu P+ P P P'% P5 ww1"Or015 DELETE_MSG0130-Sep-1995 12:45DEC Fortran V6.1-68 DELETE_MSG-P$ IMMEDIATE not valid for news group.END+ 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: Specified 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? 4 State reason for deleting message not owned by you. DELETE_MSGQIMMEDIATENODESSUBJECTBULLETIN_NUMBERALLLOCALpP@8  D   8 8 (( CLI$PRESENT@22 CLI$PRESENT@88 CLI$GET_VALUE@P$LTLxxx(TTTH@P@ CLI$GET_VALUE@p@p@X\LPP CLI$PRESENT@X`XHxdL$LhLPP CLI$PRESENT@`PlhLhX\HTT CLI$PRESENT@hHxdLdP,PQGENERAL %'P<H[kˀ CLI$PRESENTP FOR$WRITE_SF FOR$IO_ENDkː CLI$PRESENTP DELETE_NODE1ˠ CLI$GET_VALUEP˰ STR$UPCASE OPEN_BULLDIR˼READDIRԫ  \\\ READDIR STR$UPCASE LIB$INDEXP QQ)  D REMOVE_ENTRY CLOSE_BULLDIR' FOR$WRITE_SF FOR$IO_END CLOSE_BULLDIRC FOR$WRITE_SF FOR$IO_END CLI$GET_VALUEP CLI$_ABSENT\ѫ\  GET_2_VALS@ CLI$PRESENTPԫ FOR$WRITE_SF FOR$IO_ENDԫիի FOR$WRITE_SF FOR$IO_ENDѫ11ѫ1- FOR$WRITE_SF FOR$IO_END[ FOR$WRITE_SF FOR$IO_END FOR$READ_SF` FOR$IO_T_DS FOR$IO_ENDP\\H STR$UPCASEY FOR$WRITE_SF FOR$IO_END1ѫ FOR$WRITE_SF FOR$IO_ENDѫTREADDIRRh SETPRV_PRIVP`TEST_NEWS_OWNERP FOR$WRITE_SF FOR$IO_END FOR$READ_SF0 FOR$IO_T_DS FOR$IO_ENDP\\RRQѫQp REMOTE_DELETEի1ѫˌ SYS$ASCTIM,  ,    UPDATE_FOLDER FOR$WRITE_SFˠˤˠ FOR$IO_T_DS FOR$IO_ENDիDISCONNECT_REMOTE OPEN_BULLDIR˨READDIR ѫ 1  \\˴READDIR RѫRR ѫ  CLOSE_BULLDIR CLI$PRESENTPC FOR$WRITE_SF FOR$IO_END CLOSE_BULLDIRTEST_NEWS_OWNERP)  D1 STR$UPCASE, SETPRV_PRIVP, FOLDER_ACCESSPn FOR$WRITE_SF FOR$IO_ENDX CLOSE_BULLDIRѫ1TRIMP OPEN_BULLFIL<$ GET_BULL_LINE CLOSE_BULLFILT)ZTUի$UUTT\U)  UU\\1 CLOSE_BULLDIR FOR$WRITE_SF FOR$IO_END FOR$READ_SF` FOR$IO_T_DS FOR$IO_ENDPRR STR$UPCASEY OPEN_BULLDIR$READDIR TѫTC FOR$WRITE_SF FOR$IO_END CLOSE_BULLDIR FOR$WRITE_SF FOR$IO_END FOR$READ_SF0 FOR$IO_T_DS FOR$IO_ENDPUU0 REMOVE_ENTRYjTTEST_NEWS_OWNERP\ SETPRV_PRIVPL CLI$PRESENTPd REMOTE_DELETE1z CLOSE_BULLDIRZPFrom: t < DELETE_MSG CLI$_ABSENT CLI$PRESENT DELETE_NODE CLI$GET_VALUE STR$UPCASE OPEN_BULLDIRREADDIR LIB$INDEX REMOVE_ENTRY CLOSE_BULLDIR GET_2_VALSTEST_NEWS_OWNER SETPRV_PRIV REMOTE_DELETE SYS$ASCTIM UPDATE_FOLDERDISCONNECT_REMOTE FOLDER_ACCESSTRIM OPEN_BULLFIL GET_BULL_LINE CLOSE_BULLFILl$CODE`$PDATA$LOCALPOINTDBULLPARP NODE_INFODECNETBULL_DIR INPUT_BUFFERNEWS_DIRL HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGES BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1 REMOTE_FOLDER FOR$IO_END FOR$IO_T_DS FOR$READ_SF FOR$WRITE_SFP$PFP XPPuPBP7P)EPPPV_PpP6{PPPPPPP NPxPJPP PWPKP?P P!P 1P;PxEP:~P1PPP~Pe PMPP )P.7PdP pPP P PP+PPFP@'P>P_P PP!PCP P1P-=P IPUP lww1@Ӑr016 DELETE_NODE0130-Sep-1995 13:05DEC Fortran V6.1-68 DELETE_NODEP" ERROR: Cannot specify local node.)( Message successfully deleted from node )& Error while deleting message to node ) ERROR: Unable to reach node )  DELETE_NODESUBJECTTP8 Pd CLI$GET_VALUE@T xT dPP P[ GET_NODE_INFO H1 @ D FOR$WRITE_SF FOR$IO_END1 CLI$GET_VALUE DV L D1 L \L ,0TRIM8TRIMP^(P n^SW^(nW\,\n PPQ^%  LXX FOR$WRITE_SF  FOR$IO _T_DS FOR$IO_END%X FOR$READ_SF  FOR$IO_T_DS FOR$IO_END-P ' FOR$WRITE_SF L \ @L D@ FOR$IO_T_DS FOR$IO_ENDS FOR$WRITE_SF L R HB LH FOR$IO_T_DS FOR$IO_END% FOR$WRITE_SF  FOR$IO_T_DS FOR$IO_ENDV L} FOR$WRITE_SF L S PC TP FOR$IO_T_DS FOR$IO_END D  D~^`X FOR$CLOSE^  DPDELETE/SUBJECT="END DELETE_NODE GET_NODE_INFO CLI$GET_VALUETRIM FOR$CLOSE$CODE$PDATA$LOCALL HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGESBULL_DIR INPUT_BUFFERNEWS_DIRP NODE_INFO FOR$IO_END FOR$IO_T_DS FOR$READ_SF FOR$WRITE_SF FOR$WRITE_SFbP P(P@PcPJ PPPP9MPWP8P ?3ww1_r011DELLNM0130-Sep-1995 13:08DEC Fortran V6.1-68 DELLNM DELLNMPLNM$SYSTEMP  SYS$DELLNM@P[}PQPk SYS$DELLNMR DELLNM SYS$DELLNM$CODE$PDATA  $LOCAL Hww1٨r011DELPRC0130-Sep-1995 12:52DEC Fortran V6.1-68 DELPRC DELPRCP  4P 0 Q P<[}PQ(P$T-  $(T INIT_ITMLST^8, ADD_2_ITMLST^߫^H< ADD_2_ITMLST^T߫^XL ADD_2_ITMLST^߫^h\ ADD_2_ITMLST^߫^xl ADD_2_ITMLST^| END_ITMLST<$QQ˄(ˈЫ ˜޼Uˌ SYS$GETJPIWPeeee<$Q-Q $(Ы ˰ SYS$GETJPIWPeeիT QѫQѫkѫЫkЫЫe SYS$DELPRCPeeTkԫԫPBULLCP NEWS <DELPRC INIT_ITMLST ADD_2_ITMLST END_ITMLST SY S$GETJPIW SYS$DELPRC;$CODE'$PDATA$LOCAL`XP6P-P%PPKPFP)P PP.P 1PA5;ww1`r012DEL_ACL0130-Sep-1995 12:54DEC Fortran V6.1-68DEL_ACLDEL_ACLPC.P,PDPP <4 ,  $ $,PQGENERAL %'PPBULL_DIR: G'BULL_DIR: G'BULLUSER.DAT D'QBULLFOLDER.DAT B'QBULLINF.DAT E'QPBULLNEWS.DAT D'Q`BULL_DIR: G'P [^}PQP}PQP ޼ V- n1W)~< YY^(YnY},ACCESS=~YX<YY^(YnXY ^( nY XX> CLI$PRESENT@ CLI$GET_VALUE@L CLI$GET_VALUE@L"" CLI$GET_VALUE@L    CLI$PRESENT@F,F CLI$PRESENT@F<F CLI$GET_VALUE@<@LTL CLI$PRESENT@\LpL CLI$GET_VALUE@\\\\\RR CLI$PRESENT@[[ CLI$PRESENT@[[ CLI$GET_VALUE@D, 4 aa CLI$PRESENT@ll CLI$PRESENT@l l CLI$GET_VALUE@<@[8[ CLI$PRESENT@[H[ CLI$PRESENT@[X[ CLI$GET_VALUE@Dd4D84|4|4|4|4|4 ,44 ,44 ,4  ,44 ,44rr CLI$GET_VALUE@<@4  ,8  ,8  ,4 ,44l!ll CLI$PRESENT@vv CLI$PRESENT@T  ,4   ,4l\l CLI$PRESENT@ <LD\ ,4<4T" ,4<44$44\d4,h 4d8D,4$4\\ CLOSE_FILES\\N {\\N N#  CLI$PRESENT@4BULLETIN_SUBCOMMANDSdP ,PQGENERAL %',PP,[8^ˀ˰ЫlЫLЫD˼ЫxYЫ(˔ˌZЫTիH LIB$GET_EFX SYS$BINTIMPdLIB$ERASE_PAGEp FOR$BJTESTPR| FOR$BJTESTPPPRRԫ ԫT)ː CLI$PRESENTPTի)TT1$ЫЫ$ Ы,Ы40Ы<8Ы@ɫ$Qȫ,Qɫ4Q FOR$WRITE_SF FOR$IO_ENDЭˀЭ˰ЭlЭLЭDЭ˼YxЭ(Э˔ZˌЭܫT,n @ЫHЭXЫHVѫHV1X)1ˠ CLI$PRESENTP1˰ CLI$PRESENTP CLI$PRESENTP CLI$PRESENTP  CLI$PRESENTP  CLI$PRESENTP  ,*% FOR$WRITE_SF FOR$IO_END1 GET_FIRST_TAG CLI$PRESENTPR  CLI$PRESENTPRR0 CLI$PRESENTP Ы X@ CLI$PRESENTPP CLI$PRESENTP0ɫ SȭSɫ0S` CLI$PRESENTP\p CLI$PRESENTP`ˀ CLI$PRESENTPː CLI$PRESENTPˠ CLI$PRESENTPd˰ CLI$GET_VALUEP  CLI$GET_VALUEP 0 CLI$GET_VALUEP  ,n P CLI$PRESENTP, Phd CLI$PRESENT&P CLI$GET_VALUE-@ -@ ԫ\ԫ`)ԫԫ ԫXԭԫ0ԭɫ`\Tԫ8)10 CLI$PRESENTP18 INIT_QUEUEЫptY CLI$_ABSENTRL CLI$GET_VALUEPRYX LOWERCASEЫtd` WRITE_QUEUEЫptЫptp READ_QUEUEˀTRIMP|ː CLI$PRESENTP2X2ЫЫ $Э,Ы04Vˠ CLI$PRESENTP88˰ CLI$GET_VALUEPЫ8<@1˼& INIT_QUEUEk˄'OPEN_BULLDIR_SHAREDREADDIRѫ11ռ1 CLI$PRESENTPˈ CLI$PRESENTPT CLI$GET_VALUEP޼U\@ FOR$DECODE_MFe FOR$IO_L_R FOR$IO_ENDec FOR$WRITE_SF FOR$IO_END  CLOSE_BULLDIRe11(S CLI$PRESENTP1$ CLI$PRESENTP884 CLI$GET_VALUEP@GET_NEW_OR_SINCE1ի1 FOR$WRITE_SFTTRIMP\ `\ FOR$IO_T_DS FOR$IO_END CLOSE_BULLDIR1 FOR$WRITE_SFdTRIMPl 0pl FOR$IO_T_DS FOR$IO_END CLOSE_BULLDIR1ի FOR$WRITE_SF FOR$IO_END CLOSE_BULLDIR1Ыcccԫ 10)   FOR$WRITE_SF FOR$IO_ENDԫԫ ԭԫ0ԭ CLOSE_BULLDIR1޼ST8ccxtREADDIRcQѫ Qˀ FOR$BJTESTPcDECREMENT_MSG_KEYTѼ1T޼ST8cQcQqZPZPZ1UccːˌREADDIR ,QA˜˘ COMPARE_BTIMPU ,QAA U{DECREMENT_MSG_KEYc Uːˤ*NEWS_GET_NEWEST_MESSAGEːcːQQUUUcQQUQUZQQUUUcQcQqZUZUZԫ  11c 11811T11cPԭcUTѭTѫPˬREADDIRѫP PQѫPcQQcQ֭QPի PѭPU ի ѭTUP޼TQѭQѫP ˸READDIRЫPUU+ UQQ֭UdUP޼P``QQZ1Ѽ11ԫԫ ԭԫ0PRRPPSSSZíQQRQRRPPPZխ1ѭ 1íZSSRZSTURS SPREADDIRЫPSS SQQUSURTS$,RSTPTP1ի S UQѭQUPREADDIRЫPUURR֭TѭTի S  RUURRPREADDIRЫPRRQQUT SSZ1޼R1b1 GET_FIRST_TAG˘QQ˘޼R˘bЫ ԫUˌTѭTTSѭ˘իܫTREADDIRЫTQѫQb GET_THIS_TAG-իUbˌUTUTSSQUQԫb˘SREADDIRԫիQUQb0$ GET_NEXT_TAGիUbˌS޼D8 GET_NEXT_TAGSիмˌULREADDIRˌQQX GET_NEXT_TAGիЭܫTlREADDIRЫTx FOR$BJTESTPDECREMENT_MSG_KEYUUZbTbTtZQZQZZ)ˌ CLI$GET_VALUEP\@ FOR$DEC.ODE_MFˌ FOR$IO_L_Rv FOR$IO_ENDˌRRRRZ11ЭˤЭSSZ˜READDIRˤ ˤTѫT˄ˬ˨ WRITE_QUEUESˤSZTˤ11R޼TRZի d˸ GET_NEXT_TAGRի ­ZdZddR\˨PPSȭSS\˄ WRITE_QUEUERrZի Z1 GET_NEXT_TAGի ԫZˬSի\Q˨TTRRQQ\˄/ WRITE_QUEUEZ GET_NEXT_TAGSի GET_FIRST_TAG˘TѭTˬZ ˬZZˌЭܫT$REMOTE_DIRECTORY_COMMANDЫTˌZ¹ի CLOSE_BULLDIRDISCONNECT_REMOTE1Z1 CLOSE_BULLDIR1< FOR$BJTESTPH FOR$BJT0ESTP, T FOR$BJTESTP` FOR$BJTESTP, l FOR$BJTESTP, x FOR$BJTESTP, Q FOR$WRITE_SF˄TRIMPˌːˌ FOR$IO_T_DS˔TRIMP˜ 0ˠ˜ FOR$IO_T_DS FOR$IO_END)ˬ CLI$PRESENTP˼ CLI$PRESENTP FOR$WRITE_SFݭ FOR$IO_L_V FOR$IO_END1 FOR$WRITE_SF FOR$IO_END1DIRECTOR1Y_HEADERSSTTTSSUUUURQQQPPPPTTR111)k˄k READ_QUEUEGET_THIS_OR_NEXT_TAGի˴k˄ZUЭRѭZ˄T˄ READ_QUEUE˴\˨PPSȭSS\T  WRITE_QUEUE GET_NEXT_TAGի˴UR CLOSE_BULLDIRk˄ЭVЭܭXܭ8 CLI$PRESENTPԭԭXOPEN_BULLDIR_SHARED2OPEN_BULLFIL_SHAREDVZ1ѫ1˄D@ READ_QUEUE1XVЭ˼P GET_SEARCH˼ի)ˌGET_THIS_OR_NEXT_TAGի˴ˠREADDIRԫXի1޼SXV VcˬLIB$ERASE_PAGE˸DIRECTORY_HEADERc,n PЫ˴ GET_NEXT_TAGի˴READDIR\Q˨RRTTQQ\˜˨XWW3UѭUZV1X1V1 CLOSE_BULLFIL CLOSE_BULLDIRԭDECLARE_CTRLC_ASTY111OPEN_BULLNEWS_SHAREDX~^READ_FOLDER_FILE_KEYNUM_TEMP^իREAD_FOLDER_FILE_KEYNAME_TEMPի FOR$BJTESTPREAD_FOLDER_FILE_TEMPիXX111GET_NEXT_GROUPCLOSE_BULLFOLDER1 ,W ,D LIB$INDEX,PD ,P SELECT_FOLDER4 8OPEN_BULLDIR_SHARED\GET_NEW_OR_SINCE CLOSE_BULLDIRի  ԫW ,OPEN_BULLNEWS_SHAREDpREAD_FOLDER_FILE_KEYNUM_TEMP|READ_FOLDER_FILE_KEYNAME_TEMPCLOSE_BULLFOLDER5 FOR$WRITE_SFˈTRIMPː 0˔ː FOR$IO_T_DS FOR$IO_END ,X  V ZX1XYXYЫt˜˘ READ_QUEUE˨TRIMP|2XX FOR$WRITE_SF FOR$IO_ENDXZVXOPEN_BULLDIR_SHAREDOPEN_BULLFIL_SHAREDX1 FOR$WRITE_SF FOR$IO_ENDZVCANCEL_CTRLC_ASTZVЫ˴˰ SYS$SETIMRPX1V1VZ1CONVERT_ENTRY_FROMBIN_FOLDER6 FOR$BJTESTP,> PD,n PD FOR$BJTESTP,* OE,n OENP MTH$ALOG10_R5JPPPѭPPЭ- F FOR$WRITE_IF FOR$IO_L_Ví6RR  FOR$IO_T_DS FOR$IO_T_DS FOR$IO_T_DS FOR$IO_END1ˈ1 FOR$BJTESTP,  FOR$BJTESTP,  ), ~^(n, n Q^7F  FOR$WRITE_IF FOR$IO_L_Ví6WW     FOR$IO_T_DS FOR$IO_T_DS   FOR$IO_T_DS FOR$IO_END1F( $  FOR$WRITE_IF FOR$IO_L_Ví6RR,  0 ,  FOR$IO_T_DS FOR$IO_T_DS~^(n 4 ^8 4  FOR$IO_T_V_DS FOR$IO_END FOR$WRITE_SF( FOR$IO_T_DS FOR$IO_END< SYS$SETAST`D PRINTP FILEZVԫ8` SYS$SETASTVh SYS$CANTIMP1޼Wg CLOSE_BULLFIL CLOSE_BULLDIRիggg1ի `| CLI$PRESENTP,  ˄  CLI$DCL_PARSEː PRINT\˜ FILEX; FOR$WRITE_SF FOR$IO_ENDgXέRR , ; FOR$WRITE_SF FOR$IO_END FOR$9WRITE_SF FOR$IO_ENDXέTT ,޼UeHeHЭˀЭ˰ЭlЭLЭDЭ˼YxЭ(XЭ˔ZˌЭܫT@PP@6VVPPDIR RE:ANDXORINDunmarkedunseenmarkedseen1994ShutdownPermanent18UnknownPRINT/NOW  DIRECTORY CLI$_ABSENT CLI$_NEGATED CLI$_PRESENT CLOSE_FILESBULLETIN_SUBCOMMANDS LIB$GET_EF SYS$BINTIMLIB$ERASE_PAGE FOR$BJTEST CLI$PRESENT GET_FIRST_TAG CLI$GET_VALU:E INIT_QUEUE LOWERCASE WRITE_QUEUE READ_QUEUETRIMOPEN_BULLDIR_SHAREDREADDIR CLOSE_BULLDIRGET_NEW_OR_SINCEDECREMENT_MSG_KEY COMPARE_BTIMNEWS_GET_NEWEST_MESSAGE GET_THIS_TAG GET_NEXT_TAGREMOTE_DIRECTORY_COMMANDDISCONNECT_REMOTEDIRECTORY_HEADERGET_THIS_OR_NEXT_TAGOPEN_BULLFIL_SHARED GET_SEARCH CLOSE_BULLFILDECLARE_CTRLC_ASTOPEN_BULLNEWS_SHAREDREAD_FOLDER_FILE_KEYNUM_TEMPREAD_FOLDER_FILE_KEYN;AME_TEMPREAD_FOLDER_FILE_TEMPGET_NEXT_GROUPCLOSE_BULLFOLDER LIB$INDEX SELECT_FOLDERCANCEL_CTRLC_AST SYS$SETIMRCONVERT_ENTRY_FROMBIN_FOLDER MTH$ALOG10 SYS$SETASTPRINTFILE SYS$CANTIM CLI$DCL_PARSE$CODE$PDATA $LOCALBULL_DIR INPUT_BUFFERNEWS_DIRL HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGES< BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1 PAGEPOINT REMOTE_FOLDER TAGS COMMAND_LINECLOSE_FILES_INFODBULLPARPOSTNEXTNEW_DIRBULL_USER_CUSTOMNEWGROUP CTRLC_FLAG FOR$IO_END FOR$IO_L_R FOR$IO_L_V FOR$IO_T_DS FOR$IO_T_V_DS FOR$WRITE_SF FOR$DECODE_MF FOR$WRITE_IF MTH$ALOG10_R5^PP=PQP PPPPPPPSPPP1PP P{P PeP PMP  P5P&+P9PHP<PP+YP"xP'P6P[;PJPGOP^P3cP oP"{PP1PPP9PP%P4P]PP Pt!Py ,Pn 4P2SPhP#PP'PPP P PP>DXPPP#P~PPPP PPP1,P6P:P AP\PeP qP {PP(PP PP PP,PPPlPcBPPPYPbP0lP&PPP=P&PP'P P PP PI% P=/ P36 P,= P%C PM PW Py PF P< P P  P P P P  P?n Pi Pc P> P4- P; Pe Ps P} P P P P P  Pj P]# PH, P?F PT PX Pg Pt P P P` PW P/ P! P P  Pb PZ PQ P+! P"= PM P f Pt P P Px Ps PL P1 P P P P) P/ P4 PF PfI Pc\ P+i P| P P  P P P P  P P @P)6PAPHP]POiPCPPPP PP{PPWPP P4PBPQPE\PhP_mPZPPPPP{P78P#MPXPbP5PP PP PaPPPP^PPP6P,P;P PjPPPBP6P*PR P2 lPsP}PP+P PnAPOPD)P PP XPgPvPzP5PPPPPPCPPPPP@P<P.$P NPWP7`PeP)iP P\PQP PPP"P)P.P 6P;P?PCPePMmPEyP9P PP PPeP]PQP1'PW4PJJP4QPUP)qP yPP PP8PBP\P8+P7P=P*AP&dPkPPPPPPPP PP&P 3P IPVP PsPcPh PP$P_3P@PCLPZP gPPP^P P+P PP PP4P#P'P9P>P EP XP_PePkP|oP8tP.P"PPP P"PPP^PP+ CP3" P"P ,PRP _PpPww1`r01<DIRECTORY_FOLDERS0130-Sep-1995 12:56DEC Fortran V6.1-68DIRECTORY_FOLDERSP' ERROR: NEWS connection is not present.' Fetching NDEWS groups from remote node.! This will take several minutes.% This is the only time this will have to be done. There are no folders. The total count is: , Listing aborted.Folder Last messageMessagesOwnerP- News group@First Last Count-Class- News group@First Last Last Read- News group@StatusFirst Last-) @@E   @@  @@    Press RETURN for more...DIRECTORY_FOLDERSQ  NEWSBULL_NEWS_SERVERDEFINEDDESCRIBEaCOUNTSTOREDSUBSCRIBENEWGROUPSCLASSPERMANENTDEFAULT*PERM*DEFAULTALLSTARTMATCH_FOLDER*::P, 8PD P     PPdD CLI$PRESENT@FT SYS_TRNLNM@\ SYS_TRNLNM@p CLI$PRESENT@ CLI$PRESENT@ READ_FOLDER_FILE_KEYNAME_TEMP@ READ_FOLDER_FILE_KEYNAME_TEMP@ CLI$PRESENT@ CLI$PRESENT@  CLI$PRESENT@  CLI$PRESENT@ CLI$PRGESENT@  CLI$PRESENT@ CLI$PRESENT@ T CLI$PRESENT@d CLI$GET_VALUE@j ## CLI$GET_VALUE@,h,0,lH  READ_FOLDER_FILE_KEYNAME_TEMP@2Dt$$  DLI4,hx<t,PQGENERAL %'dPlPPl[^Ы@,n  CLI$PRESENTP SYS_TRNLNMPOPEN_BULLNEWS_SHARED FOR$WRITE_SF FOR$IO_ENDЭ@OPEN_BUJLLFOLDER_SHAREDռ1ԫԫԫ ԫԫԫԫ޼Wg ԫ$  CLI$PRESENTPԫ( CLI$PRESENTP 1(,READ_FOLDER_FILE_KEYNAME_TEMPի,* FOR$WRITE_SF FOR$IO_ENDw FOR$WRITE_SF FOR$IO_ENDCLOSE_BULLFOLDER NEWS_LISTOPEN_BULLNEWS_SHARED@READ_FOLDER_FILE_KEYNAME_TEMPT CLI$PRESENTP00ԫ4d CLI$PRESENTP t CLI$PRESENTP˄ CLI$PRESENTP˔ CLI$PRESENTPˤ CLI$PRESENTP˴ CLI$PREKSENTPCLOSE_BULLFOLDEROPEN_BULLNEWS_SHARED<RR  RR81˼NEWS_GET_SUBSCRIBE<11OPEN_BULLINF_SHAREDREC_LOCKP~~  FOR$READ_KU˘ FOR$IO_T_DS˨ FOR$IO_X_DA FOR$IO_ENDPSS,ի,U RԂԂ`U CLOSE_BULLINF11OPEN_BULLINF_SHAREDREC_LOCKP~~  FOR$READ_KU˘ FOR$IO_T_DS˨ FOR$IO_X_DA FOR$IO_ENDPSS,ի,LR Uԅԅ`R CLOSE_BULLINF CLI$PRESENTP CLI$GET_VALUEP( LOWERCASE2QQ READ_FOLDER_FILE_KEYNAMEGE_TEMPի, FOR$WRITE_SF FOR$IO_ENDCLOSE_BULLFOLDERgЭ@$4 CLI$GET_VALUEPDD(D LOWERCASEDT LIB$INDEXP*~2SS^(Sn^SZZ*~ZY,Yn PPQ^(0ի4 FOR$WRITE_SFΫ4~ FOR$IO_L_V FOR$IO_ENDԫ4Э@H<`MREAD_FOLDER_FILE_KEYNAME_TEMPl INIT_QUEUEkLDECLARE_CTRLC_ASTYԫ,ZԭɫDRɫ Rի,1Z1,ի<ի,x=NEWS_GET_SUBSCRIBEի<˄READ_FOLDER_FILE_KEYNUM_TEMPի,<ի<,1,ѭ`ի,SC N ˼READ_FOLDER_FILE_KEYNAME_TEMPh8READ_FOLDER_FILE_TEMP LOWERCASEԭ-, a,ի,1( LIB$INDEXP1 FOR$BJTESTP1 SETPRV_PRIVP1SET_FOLDER_FILE(1^^  NEWS_ACCESST- nTRS^T^^ $ NEWS_ACCESS,n QO^0TRIMP8<@CHKACLѫT LTRIMPTX\ CHECK_ACCESSXԭpTRIMPW}.BULLFIL~W^(WnWXXWWxW^|ˀ CHECK_ACCESS^XX1˜ LIB$INDEXPXXPQ,QHD ,n ˨TRIMPX(X,XD PDYЫL˴˰ WRITE_QUEUEDXXD2VVSTR$MATCH_WILDP  FOR$BJTESTPx FOR$BJTESTP1ū YQQRQRZPZ1ԭ޼S FOR$WRITE_SF FOR$IO_ENDcCANCEL_CTRLC_ASTCLOSE_BULLFOLDERЭHЭ@CANCEL_CTRLC_ASTCLOSE_BULLFOLDERY FOR$WRITE_SF FOR$IO_ENDcЫ8 ЭHЭ@kLLIB$ERASE_PAGE( FOR$WRITE_SF FOR$IO_END0. FOR$WRITE_SF FOR$IO_ENDm FOR$WRITE_SF FOR$IO_END FOR$WRITE_SF FOR$IO_ENDQ FOR$WRITE_SF FOR$IO_ENDYXVd1XY11ЫL READ_QUEUEX(1,TD  COMPARE_BTIMPWƴ SYS$ASCTIM, 5 Wƴ  FOR$WRITE_SF,^(,fn ~-0^40 FOR$IO_T_V_DS<8 FOR$IO_T_DSƴ FOR$IO_L_Vp FOR$IO_T_DS FOR$IO_END  FOR$WRITE_SF,^(,fn*~-@^D@ FOR$IO_T_V_DSLH FOR$IO_T_DSƴ FROR$IO_L_Vp FOR$IO_T_DS FOR$IO_END1 FOR$UNLOCKRPSSRRSS&TQUUTTUUX LIB$INDEXPZZPW,WJD =Z,ZD PD,n d FOR$BJTESTP,n 014ƴ; FOR$WRITE_SF2WWpDtp FOR$IO_T_DS FOR$IO_L_Vƴ FOR$IO_L_V FOR$IO_L_V FOR$IO_END; FOR$WRITE_SF2ZZxD|x FOR$IO_T_DS FOR$IO_L_R FOR$IO_L_RS FOR$IO_L_R FOR$IO_END1; FOR$WRITE_SF2RRˀD˄ˀ FOR$IO_T_DS FOR$IO_END1ƴ11Ц,,ˈNEWS_GET_NEWEST_MESSAGE1\WWƴƴT FOR$WRITE_SFӣS2STT^(TDn^S*~ZZː^˔ː FOR$IO_T_V_DS FOR$IO_L_Vƴ FOR$IO_L_VW FOR$IO_L_V FOR$IO_ENDT FOR$WRITE_SFӣU2URR^(RDn^S ~ZZ˘^˜˘ FOR$IO_T_V_DS FOR$IO_L_Vƴ FOR$IO_L_TVW FOR$IO_L_V FOR$IO_ENDiO FOR$WRITE_SF2SSˠDˤˠ FOR$IO_T_DSˬ˨ FOR$IO_T_DS FOR$IO_L_Vƴ FOR$IO_L_V FOR$IO_END1T FOR$WRITE_SFգT2TUU^(UDn^SZ ~ZWW˰^˴˰ FOR$IO_T_V_DS FOR$IUO_L_R FOR$IO_L_R FOR$IO_L_R FOR$IO_END FOR$WRITE_SF2RR˸D˼˸ FOR$IO_T_DS FOR$IO_T_DS FOR$IO_L_R FOR$IO_L_R FOR$IO_ENDѫ   FOR$WRITE_SFx FOR$IO_T_DS FOR$IO_ENDЦ,`Yū YSSTSTGET_NEXT_GROUPҫdUUZZREAD_FOLDER_FILE_KEYNUM_TEMP˭dddd1]޼W FOR$WRITE_SFV FOR$IO_ENDgCANCEL_CTRLC_ASTCLOSE_BULLFOLDERЭHЭ@CANCEL_CTRLC_ASTCLOSE_BULLFOLDERի,(0Ϋ44gЫ8 o FOR$WRITE_SF FOR$IO_ENDЦ, ЭHЭ@)RRPP)SSP)TTP 2jUUP2jZZXXXP2jYYP2jWWQQQP@2jVVP2j\\R%RRP5P NONE DIRECTORY_FOLDERS NEWS_ACCESS CLI$PREWSENT SYS_TRNLNMOPEN_BULLNEWS_SHAREDOPEN_BULLFOLDER_SHAREDREAD_FOLDER_FILE_KEYNAME_TEMPCLOSE_BULLFOLDER NEWS_LISTNEWS_GET_SUBSCRIBEOPEN_BULLINF_SHAREDREC_LOCK CLOSE_BULLINF CLI$GET_VALUE LOWERCASEREAD_FOLDER_FILE_KEYNAMEGE_TEMP LIB$INDEX INIT_QUEUEDECLARE_CTRLC_ASTREAD_FOLDER_FILE_KEYNUM_TEMPREAD_FOLDER_FILE_KEYNUM_GT_TEMP FOR$BJTESTREAD_FOLDER_FILE_TEMP SETPRV_PRIVSET_FOLDER_FILECHKACLTRIMX CHECK_ACCESS WRITE_QUEUESTR$MATCH_WILDCANCEL_CTRLC_ASTLIB$ERASE_PAGE READ_QUEUE COMPARE_BTIM SYS$ASCTIMNEWS_GET_NEWEST_MESSAGE1GET_NEXT_GROUP$CODE?$PDATAd$LOCAL BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1L HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMES INF_REC NEW_MESSAGESBULL_DIRY INPUT_BUFFERNEWS_DIR PAGE CTRLC_FLAG LAST_BUFFER FOR$UNLOCK FOR$IO_END FOR$IO_L_R FOR$IO_L_V FOR$IO_T_DS FOR$IO_T_V_DS FOR$IO_X_DA FOR$READ_KU FOR$WRITE_SF>P!dP/|P/P9P/PGP/"PU(Pb?PzEPXP^P(P34P =P%iP!PPPPJPqPPP)PPP}ZP<P/P4P=P}SP<VP/PPPWP P&<P @P MP:ZP-P_P8P4P/PPP P Px!Pq&P=0P'5P"CPQP\PbPgPkPDyP2~P-PPPPPXP*PP P PP3$P 1P8PEPPP1UPdP&sPPPPxP$5P=P[IPPPPP0PPP^P+2P-6P BPFPMPYP[PfP{PPPP4P2 P0PHPmOPgPNkPP2PPP PPPPP|P P4 P ? P N PT P_ P] P P < Pb P%y P  P P P PS PWd Pqk P4 P8 P\ P Pp Pj \> Ph PZ P Ppz P\ P PjPaP,PJP cP gPP3PP)P%P P PPP% PVJww1)r01;DIRECTORY_HEADER0130-Sep-1995 12:45DEC Fortran V6.1-68DIRECTORY_HEADER~P [,-,] [1-,]+)@) # De]scription+From Date # Description+FromExpiresDIRECTORY_HEADERQ- [ PP 0@ 4H\p|xdP ,PQGENERAL %'P [Ь}PQ P^ FOR$WRITE_IF  FOR$IO_L_V  FOR$IO_L_V FOR$IO_END  FOR$WRITE_IF FOR$IO_L_V FOR$IO_END( LIB$INDEXP< LIB$INDEX<RPQQRTPR,TA R@ P LIB$INDEXPd LIB$INDEX<QPSSQTPQ,TC Q@ x LIB$INDEXPR˄TRIMRP˔ LIB$INDEX<QPQSPUUQ,S@ QE ˠTRIMPV<WW^(W nV^(V 0nVXWXV,Vn  PQ^,n @k˨ FOR$BJTESTP, @,_ @˴ FOR$BJTESTP@^(@nUN~(@nB^@^(@n ^( n(@nI^ @^(@n ^( n(@nK^ FOR$WRITE_SFTRIMP FOR$IO_T_DSTRIMP  FOR$IO_T_DS FOR$IO_ENDL FOR$WRITE_SF FOR$IO_END$ FOR$WRITE_SF FOR$IO_ENDTRIMPXTRIMPXXPPMARKEDSEENPRINTING EXTRACTIN`G - DIRECTORY_HEADER LIB$INDEXTRIM FOR$BJTEST$CODE$PDATA$LOCALBULL_DIR INPUT_BUFFERNEWS_DIRL HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGES BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1 REMOTE_FOLDERDBULLPAR PAGE FOR$IO_END FOR$I aO_L_V FOR$IO_T_DS FOR$WRITE_SF FOR$WRITE_IFzP"P5UP&P$P$P'`PblP~PP'P1P3P-PPNBww17r017 DISABLE_CTRL0130-Sep-1995 13:02DEC Fortran V6.1-68 DISABLE_CTRL DISABLE_CTRL\PPP[ bkLIB$DISABLE_CTRL{  DISABLE_CTRLLIB$DISABLE_CTRL%$CODE$PDATA $LOCALCTRLY CTRL_LEVELP %ww1wr018 DISABLE_PRIVS0130-Sep-1995 13:02DEC Fortran V6.1-68 DISABLE_PRIVS DISABLE_PRIVSPPP[PP ck SYS$SETPRV SYS$SETPRVt  DISABLE_PRIVS SYS$SETPRV?$CODE$PDATA($LOCAL PRIVSREALPROC P#?ww1 r015 DISCONNECT0130-Sep-1995 13:04DEC Fortran V6.1-68 DISCONNECT DISCONNECTPP[мP@P@Pk SYS$DASSGNмQAd޼ UPDATE_REMOTE_USERINFO@Q@QмRBPBPBB NEWS_SET_CHANNEWS_DISCONNECTB  DISCONNECT SYS$DASSGNUPDATE_REMOTE_USERINFO NEWS_SET_CHANNEWS_DISCONNECT$CODE$PDATA$LOCALDQREADBUFMBXBUFPNNTPP4P hP)ww1`r01<DISCONNECT_REMOTE0130e-Sep-1995 13:02DEC Fortran V6.1-68DISCONNECT_REMOTEWP1 ERROR: Connection to remote folder disconnected. Resetting to ) folder.DISCONNECT_REMOTEP,P,PQGENERAL %'P[ FOR$WRITE_SF FOR$IO_END, SELECT_FOLDER4 FOR$WRITE_SFTRIMP $  FOR$IO_T_DS FOR$IO_END DISCONNECT_REMOTE f SELECT_FOLDERTRIMb$CODET$PDATA($LOCAL BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1 FOR$IO_END FOR$IO_T_DS FOR$WRITE_SF Ybww1~r015 DO_COMMAND0130-Sep-1995 12:42DEC Fortran V6.1-68 DO_COMMAND^P, ERROR: Access to folder limited to reading.& ERROR: /FOLDER not valigd when posting a message to a news group.- ERROR: There are no more preceding messages.@ PAGE has been set. NOPAGE has been set.* ERROR: Invalid command for remote folder.% ERROR: Invalid expiration specified.# ERROR: Command invalid for folder. DO_COMMANDQ  /$VERBBULL_HELPSELECT_FOLDERFOLDERNEWSBULLETIN_NUMBER<SET_PARAM1file_directoryDUMPSTRIPDIGESTALWAYSANONYMOUSCOMPRESSPOST_ONLYADhD_ONLYDEFAULTALLNODEFAULTPERMANENTNOPERMANENTEXPIRATIONPROMPT_EXPIREexclude_limitSHOW_PARAM1PPD@@ CLI$GET_VALUE@  LIB$SYS_TRNLOG@p  ( CLI$PRESENT@ @ CLI$PRESENT@BULLETIN_SUBCOMMANDS il  | CLI$PRESENT@ CLI$PRESENT@   CLI$PRESENT@Xl  \XlX tl tX`X  pBULLETIN_SUBCOMMANDS\Xd CLI$GET_VALUE@@ t jp XxXl  CLI$GET_VALUE@Xl SET_CUSTOM@XlXlX`$ SET_FOLDER_FLAG@l`< SET_FOLDER_FLAG@XtT SET_FOLDER_FLAG@ltl SET_FOLDER_FLAG@Xk| SET_FOLDER_FLAG@l| SET_FOLDER_FLAG@X SET_FOLDER_FLAG@l SET_FOLDER_FLAG@ X SET_FOLDER_FLAG@ l SET_FOLDER_FLAG@ X  SET_FOLDER_FLAG@ l,  SET_FOLDER_FLAG@ XD SET_lFOLDER_FLAG@p lph  SET_FOLDER_FLAG@ l SET_FOLDER_FLAG@ Xp  SET_FOLDER_FLAG@ l SET_FOLDER_FLAG@ lp  SET_FOLDER_FLAG@)) CLI$PRESENT@11 CLI$PRESENT@ 5 5 CLI$PRESENT@ ?m? CLI$PRESENT@ I,I CLI$PRESENT@`dd`dd U\U CLI$GET_VALUE@@xXl\)) CLI$PRESENT@11 CLI$PRESENT@ 55 CLI$PRESENT@ ?? CLI$PRESENT@ II CLI$PRESENT@\dd\dd)) n CLI$PRESENT@11 CLI$PRESENT@ 5$5 CLI$PRESENT@ ?4? CLI$PRESENT@ IDI CLI$PRESENT@d\`d\`)t) CLI$PRESENT@11 CLI$PRESENT@ 55 CLI$PRESENT@ ?? CLI$PRESENT@ II CLI$PRESENT@d\\d\\o)) CLI$PRESENT@11 CLI$PRESENT@ 55 CLI$PRESENT@ ?? CLI$PRESENT@ I$I CLI$PRESENT@d`\d`\)T) CLI$PRESENT@1d1 CLI$PRESENT@ 5t5 CLI$PRESENT@ ?? CLI$PRESENT@ II CLI$PRESENT@d\p\d\\)) CLI$PRESENT@11 CLI$PRESENT@ 55 CLI$PRESENT@ ?? CLI$PRESENT@ II CLI$PRESENT@d``d``)4) CLI$PRESENT@1D1 CLI$PRESENT@ 5T5 CLI$PRESENT@ ?d? CLI$PRESENT@ ItI CLI$PREqSENT@d\\d\\|XlXlXlXl `lh` SET_FOLDER_FLAG@ `Xh ` SET_FOLDER_FLAG@tt n< n SET_CUSTOM@ |L | CLI$GET_VALUE@@\`t lll`lrx,PQGENERAL %' P PP l[}PQ P<TRIMPD HT LIB$INDEXP^xh LIB$INDEXP^|tMINGT0^Pk<QkPPQP QP>\P_PjP uPPPP PiPPBP$P2P ;PJP=SPkPPP PP PsP P]PP?P P)PUP &P 1P/?PKP VP bPnP yPPP PP P PnPPOP9P *P:P FP QP ^PxP P P P P Pv P Pa P PG P P/ P P(P 6PYBPAP P P P PmP<PP *P 3P BP9KP XPdP mP xP P P P P P Pg P PO P P7 PV P#P0 5P@P QP ZPiP"PP PP PP"PpP#PP>%P0P#APLP]PhPyPPPPPPPP{PP_ P PC! P, P'= PH P Y Pd Pu P P P P P P P P P" P  PN P P31 P"F P Q Pa Pl P} PV P0 P$ P P  P P  P PZ P, P7 PI PT Pe Pp P P P PV P0 P$ P P  P P  Pa PV P0 P$% P1 P = PH P V Pe PVq P0} P$ P P  P P  P PV P0 P$ P P  P P  P9) PV5 P0A P$M PY P e Pp P ~ P PV P0 P$ P P  P P  Pq PV P0 P$P!P -P8P FP UP:^PrP-PPPPPPP{PP_P PGP(P+9P BPQP\PmPxPPPPPP PP PrPPQP#P11P<PMPVPdPF|PP P PP PPPP>P)P 2Pv=P2oP9yP P&P PPPP PjP PVP PBP P, P P"P3'5ww1`Ar017 DUMP_MESSAGE0130-Sep-1995 12:54DEC Fortran V6.1-68 DUMP_MESSAGE-P) Subject: )From: ) Date:   DUMP_MESSAGEQ dP 8PD8  D P  P(,l T TdP(X(.`P\`P\`P\,PQGENERAL %'dP PPBULL_DIR: G'BULL_DIR: G'BULLUSER.DAT D'QBULLFOLDER.DAT B'QBULLINF.DAT E'QPBULLNEWS.DAT D'Q`BULL_DIR: G'P P[T FOR$BJTESTP1(P 1h LIB$INDEXP,PD PtTRIMPЫVWVW\L._LVW|TRIMP\P^(Pn\^(\ n\WPW\,\n PPQ^W˄TRIMPVݏ.LOGV^(VnVYY\\ˌ\W^ː˔FOR$OPENW^ի1VTRIMPYݏ.LOGY^(YnY\\WWWV^FOR$OPENV^իYTRIMP\^(/n\^(\8n\WWV ^( AnV WWWY^ SYS$PARSE_ACLY^P INIT_ITMLST ~^  ^( ADD_2_ITMLST^, END_ITMLSTX4TRIMP\ݏ.LOG\^(\n\WWYY<YX^@ЫTDSYS$CHANGE_ACLX^P FOR$WRITE_SFd FOR$IO_T_DS FOR$IO_END OPEN_BULLFIL< l GET_BULL_LINEի ) M FOR$WRITE_SF TTˀ ˄ˀ 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ի ) S FOR$WRITE_SF随RR Ы RRRˬ ˰ˬ 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_BULLFILAP(IDENTIFIER=Q,ACCESS=R+W+E+D+C)Q From: Subj: ' DUMP_MESSAGE FOR$BJTEST LIB$INDEXTRIMFOR$OPEN SYS$PARSE_ACL INIT_ITMLST ADD_2_ITMLST END_ITMLSTSYS$CHANGE_ACL OPEN_BULLFIL GET_BULL_LINE FOR$CLOSE CLOSE_BULLFIL$CODEY$PDATA0$LOCAL BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1BULL_DIR INPUT_BUFFERNEWS_DIR0FILES REMOTE_FOLDERACL FOR$IO_END FOR$IO_T_DS FOR$IO_T_V_DS FOR $WRITE_SFP,P[PfPP1PPy P#GPxUPjPKPQPC^PVP0PCP0_Sdww1 2r016 EDITMESSAGE0130-Sep-1995 12:52DEC Fortran V6.1-68 EDITMESSAGE EDITMESSAGERPP[}PQPk}  PQ PL  EDITMESSAGE&$CODE$PDATA$LOCAL &ww11r016 ENABLE_CTRL0130-Sep-1995 13:02DEC Fortran V6.1-68 ENABLE_CTRL P ERROR: Error in CTRL. ENABLE_CTRLQP  ,PQGENERAL %'P[k[ˏkPPRR  R FOR$WRITE_SF FOR$IO_END RLIB$ENABLE_CTRLR SMG$CREATE_VIRTUAL_KEYBOARD,SMG$SET_KEYPAD_MODE CLOSE_TAG8SET_FOLDER_FILEUPDATE_USERINFO PRINT_NOW@ SYS$SETDFPROTFOR$EXITk  ENABLE_CTRL ENABLE_CTRL_EXITLIB$ENABLE_CTRLSMG$CREATE_VIRTUAL_KEYBOARDSMG$SET_KEYPAD_MODE CLOSE_TAGSET_FOLDER_FILEUPDATE_USERINFO PRINT_NOW SYS$SETDFPROTFOR$EXIT$CODE$$PDATAL$LOCAL BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1CTRLY CTRL_LEVELDEF_PROTKEYPAD FOR$IO_END FOR$WRITE_SF9 P &P4P9PWP[PgPJoP8,aww1 r017 ENABLE_PRIVS0130-Sep-1995 13:02DEC Fortran V6.1-68 ENABLE_PRIVS ENABLE_PRIVS\PP[PPk SYS$SETPRVb  ENABLE_PRIVS SYS$SETPRV,$CODE$PDATA$LOCAL PRIVS P ,ww1 r019ERROR_AND_EXIT0130-Sep-1995 12:59DEC Fortran V6.1-68ERROR_AND_EXIT ERROR_AND_EXIThPP[ FOR$ERRSNS SYS_GETMSGENABLE_CTRL_EXITz ERROR_AND_EXIT FOR$ERRSNS SYS_GETMSGENABLE_CTRL_EXIT!$CODE$PDATA$LOCAL !ww1x r015 ERROR_TRAP0130-Sep-1995 12:42DEC Fortran V6.1-68 ERROR_TRAP ERROR_TRAPP[PC  E RROR_TRAP $CODE$PDATA$LOCAL ww1`br01:EXECUTE_COMMAND0130-Sep-1995 13:04DEC Fortran V6.1-68EXECUTE_COMMANDPEXECUTE_COMMANDQ8 hP 8             P  (4( d88(<<,,,,84 88\(<<\ \ DHPTX\<`(TX\<0< < ,< <hhlpp<,<<@<4<txL<`(`((<pp<p<(<<<<0<pp<`(`((<(<4pp<<4 88  <<`(p<< \\p<0<4(<<<<88<0<<<(<< , ,DX\D,X\< L  \ l <,PQGENERAL %'dPPPBULL_DIR: G'BULL_DIR: G'BULLUSER.DAT D'QBULLFOLDER.DAT B'QBULLINF.DAT E'QPBULLNEWS.DAT D'Q`BULL_DIR: G'PP4[^Ы WCOPY2Q2Akx RB LIB$MOVC3kмQAż V( F ż,P(,@dмP@,(FYI COPY2мQA($ INIT_QUEUE 1 1F4I@8 GET_USER_PRIV( F ILDCOPY2 PCHECK_BULLETIN_PRIVI\XCOPY2(PPddTRIMP)PP(PPADD_DIRECTORIESWG?Q޼X-Q Hxl LIB$MOVC3hˈ| WRITE_CHAN˜ː LIB$MOVC3hˬˠ WRITE_CHAN11TD+YTYQ,Q ,,˴ SELECT_FOLDER LIB$MOVC3 LIB$MOVC31-   O1 OPEN_USERINFO޼W-   Og S(  C LIB$MOVC3 LIB$MOVC3,QA   LIB$MOVC3gR,SC BhC Bl LIB$MOVC3,  LIB$MOVC3V޼WYV,TD8gUE <0 LIB$MOVC3,QAHL@ LIB$MOVC3E ,RB XB\P LIB$MOVC3^(nV^(VnVX,Xn PQ^V~^dgl` WRITE_CHAN^YgxtSAVE_LAST_SYS_BTIMgXH H g,Q(,AdgY,I1V޼XhYIII|1޼WgYII|ˈI|ˌˀ˄ WRITE_QUEUE1Z1޼Yi X( HƔD- D O( HD˜˔ LIB$MOVC3ˬˤ LIB$MOVC3˼˴ LIB$MOVC3  LIB$MOVC3Y(,, SELECT_FOLDER) 8  SETPRV_PRIVP,.U TRIMP^i WRITE_CHAN^1\XX1, FOR$JIBCLRP FOR$BJTESTP\QQ2Q\ GET_EXDATE\RR( SETPRV_PRIVP#Pt 0 FOLDER_ACCESSP\@ GET_EXDATE\SS2S\L FOR$BJTESTP1XGET_NODE_NUMBER˄ FOR$WRITE_IFݫ FOR$IO_L_V FOR$IO_ENDhd FOR$WRITE_IFݫ FOR$IO_L_V FOR$IO_ENDXXTDʼ 0Dʼ X~.~~:~ʾ~:~ʼ~, n ʼQ^$tl LIB$MOVC3| SETPRV_PRIVP˄ OPER_PRIVPԫ(˔ˌ LIB$MOVC3,ˤ˜ LIB$MOVC3e0˴ˬ LIB$MOVC3˼SET_FOLDER_FILE OPEN_BULLDIRREADDIRիʄ OPEN_BULLFILiSC,CPCЪPTUժPЫ, READ_QUEUEUʄ~ FOR$WRITE_DU FOR$IO_X_SE FOR$IO_ENDTUGET_BROADCAST_MESSAGE BROADCAST CLOSE_BULLFIL FOR$BJTESTP,  D ADD_ENTRY UPDATE_FOLDER CLOSE_BULLDIRi  WRITE_CHANiSAVE_LAST_READ_BTIM111˘ː LIB$MOVC3ˠSET_FOLDER_FILEOPEN_BULLDIR_SHAREDի<˨READDIR˼j˴ LIB$MOVC3 READDIR_KEYGE CLOSE_BULLDIR LIB$MOVC3޼Xի<,dj h WRITE_CHAN,4d h WRITE_CHAN1 1  LIB$MOVC3 LIB$MOVC3$SET_FOLDER_FILEOPEN_BULLDIR_SHAREDмQA,ë@DYYRxRSSTSTTXYTUTUUWЫ@W,READDIR,dj Ы,<8 WRITE_QUEUEXW CLOSE_BULLDIR޼RbQA,dAYSYSSAЫ,LH READ_QUEUEbTЫ,D|D\bdX WRITE_CHAN1 tl LIB$MOVC3|SET_FOLDER_FILE OPEN_BULLDIRի<(dj˄WRITEDIR_NOCONV(4dːWRITEDIR_NOCONV CLOSE_BULLDIR1޼W1ˤ˜ LIB$MOVC3˴ˬ LIB$MOVC3 Y,Y 8(,,˼ SELECT_FOLDER OPEN_BULLDIRREADDIRѫP)8  CLOSE_BULLDIR,% TRIMP^g WRITE_CHAN^1) 8 )  Dg R) BDS SETPRV_PRIVP CLOSE_BULLDIR,1 TRIMP^g  WRITE_CHAN^1 REMOVE_ENTRY CLOSE_BULLDIRg4( WRITE_CHAN11D< LIB$MOVC3LSET_FOLDER_FILEOPEN_BULLDIR_SHAREDTREADDIROPEN_BULLFIL_SHARED޼XhQA,P`RЪ`SѪ`RS FOR$READ_DU FOR$IO_X_SE FOR$IO_ENDPTTЫ,d` WRITE_QUEUERS CLOSE_BULLFIL CLOSE_BULLDIRhQA,AЪPAЫ,tp READ_QUEUEhTЫ,D|D˄hˌˀ WRITE_CHANh˘˔SAVE_LAST_READ_BTIM1޼X 1Ĺ- Dq(,,˜ SELECT_FOLDER˨SET_FOLDER_FILE OPEN_BULLDIR˸˰ LIB$MOVC3 LIB$MOVC3AREADDIRѫ<)8  CLOSE_BULLDIR,& TRIMP^h WRITE_CHAN^1  LIB$MOVC3D LIB$MOVC3H  LIB$MOVC3T0( LIB$MOVC3U) 8 UUR8 SETPRV_PRIVPRTӫ\T,@ FOR$BJTESTPL FOR$BJTESTPX FOR$BJTESTP)  DT CLOSE_BULLDIR,2 dTRIMP^phxl WRITE_CHAN^1ˀREADDIR OPEN_BULLFILhQARAA,RSTSЫ,ːˌ READ_QUEUETʄ~ FOR$WRITE_DU FOR$IO_X_SE FOR$IO_ENDST CLOSE_BULLFILRPʔRPʄ`˜WRITEDIRRʄ˨WRITEDIR˴ FOR$BJTESTP^ FOR$BJTESTP^ FOR$BJTESTP^UPDATE_DIR_HEADER ^ FOR$BJTESTP FOR$JIBSETP\ FOR$JIBCLRP\WRITEDIR CLOSE_BULLDIRh,  WRITE_CHAN1 1<4 LIB$MOVC3UUQQSALD LIB$MOVC38UU(,,T SELECT_FOLDER OPEN_BULLDIR`READDIRѫP)8  CLOSE_BULLDIR,': lTRIMP^xhˀt WRITE_CHAN^1) 8 )  Dh Q) ADˈ SETPRV_PRIVP CLOSE_BULLDIR,3a ːTRIMP^˜hˤ˘ WRITE_CHAN^1ZZYJ˴ˬ LIB$MOVC3 RRSSTC˼ LIB$MOVC3 RWRITEDIR CLOSE_BULLDIRh WRITE_CHAN1 SET_FOLDER_FILEOPEN_BULLDIR_SHAREDREADDIR  GET_NEWEST_MSG CLOSE_BULLDIR޼ WRITE_CHAN11( LIB$MOVC3(,,0 SELECT_FOLDEROPEN_BULLUSER_SHARED< TRIMP^(Pn^SZ:~ZY,Yn  PQ^D REC_LOCKP~~ˌ FOR$READ_KUˌ FOR$IO_T_DS˜ FOR$IO_X_DAˬ FOR$IO_X_DA˼ FOR$IO_X_DA FOR$IO_ENDPZZիR SԃRdL SET2X CLR2իFOR$REWRITE_SUˌ FOR$IO_T_DS˜ FOR$IO_X_DAˬ FOR$IO_X_DA˼ FOR$IO_X_DA˔ FOR$IO_T_DS FOR$IO_ENDd TRIMP^(Pn^SY:~YZ,Zn  PQ^ FOR$WRITE_SUˌ FOR$IO_T_DS˜ FOR$IO_X_DAˬ FOR$IO_X_DA˼ FOR$IO_X_DA˔ FOR$IO_T_DS FOR$IO_ENDCLOSE_BULLUSER11t l LIB$MOVC3˄ | LIB$MOVC3޼YiZJ˸J˸˔ ˌ LIB$GET_VM ~^˜ ˠ iZhJ˸Ssˤ ˘ LIB$MOVC3^1iZJ˸˰ ˴ ˨ LIB$MOVC3 ˸ LIB$MOVC3 LIB$MOVC3J˸ LIB$FREE_VMѭ1 LIB$MOVC3(,GETUSEROPEN_BULLUSER_SHARED,:   :1$REC_LOCKP1~ˌ FOR$READ_KUˌ FOR$IO_T_DS˜ FOR$IO_X_DAˬ FOR$IO_X_DA˼ FOR$IO_X_DA˔ FOR$IO_T_DS FOR$IO_ENDPWW,TRIM,P   ի<TEST2P4TRIMP-P   :HREC_LOCKP1> :CLOSE_BULLUSERPSETUSERX FOR$CLOSE1dSETUSER, , ^(  n:~( n ^lCONNECT_REMOTE_FOLDERիx FOR$ERRSNSի8SS$_NOSUCHNODEZѫ8Z SS$_NOSUCHOBJVѫ8V FOR$DELETE1ԫXի1X1 FOR$WRITE_SF  FOR$IO_L_R$ FOR$IO_L_RX FOR$IO_L_VXWYYWWYXRRYXSYˈCˌˈ FOR$IO_T_DS FOR$IO_ENDPUUX1_ի FOR$WRITE_SF  FOR$IO_L_R FOR$IO_L_Vݫ  FOR$IO_L_Vݫ$ FOR$IO_L_Vݫ( FOR$IO_L_V FOR$IO_ENDPVV11 SETPRV_PRIVP OPER_PRIVP BROADCAST11OPEN_BULLFOLDER_SHAREDԫի1 READ_FOLDER_FILEի TRIMPP^(Pn^SY::~YX, 0 TRIMPT-Xn PTPQ^T< @ TRIM P,P H REWRITE_FOLDER_FILE1lCLOSE_BULLFOLDERP COPY2)PPd(PdPADD_DIRECTORIESЭ HPSYSTEM?DECNETERROR: Insufficient privileges to add message.ANONYMOUSQGENERALQERROR: Cannot find message to delete.ERROR: Insufficient privileges to delete message.ERROR: Cannot find message to replace.ERROR: Insufficient privileges to replace message.ERROR: Cannot find message to undelete.ERROR: Insufficient privileges to undelete message. EXECUTE_COMMANDSS$_NOSUCHNODE SS$_NOSUCHOBJCOPY2 LIB$MOVC3 INIT_QUEUE GET_USER_PRIVCHECK_BULLETIN_PRIVTRIMADD_DIRECTORIES WRITE_CHAN SELECT_FOLDER OPEN_USERINFOSAVE_LAST_SYS_BTIM WRITE_QUEUE SETPRV_PRIV FOR$JIBCLR FOR$BJTEST GET_EXDATE FOLDER_ACCESSGET_NODE_NUMBER OPER_PRIVSET_FOLDER_FILE OPEN_BULLDIRREADDIR OPEN_BULLFIL READ_QUEUEGET_BROADCAST_MESSAGE BROADCAST CLOSE_BULLFIL ADD_ENTRY UPDATE_FOLDER CLOSE_BULLDIRSAVE_LAST_READ_BTIMGETUSEROPEN_BULLUSER_SHAREDREC_LOCKTEST2CLOSE_BULLUSERSETUSER FOR$CLOSECONNECT_REMOTE_FOLDER FOR$ERRSNSOPEN_BULLDIR_SHARED READDIR_KEYGEWRITEDIR_NOCONV REMOVE_ENTRYOPEN_BULLFIL_SHAREDWRITEDIRUPDATE_DIR_HEADER FOR$JIBSETGET_NEWEST_MSGSET2CLR2 LIB$GET_VM LIB$FREE_VMOPEN_BULLFOLDER_SHAREDREAD_FOLDER_FILEREWRITE_FOLDER_FILECLOSE_BULLFOLDER$CODE$PDATA $LOCAL BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1BULL_DIR INPUT_BUFFERNEWS_DIRL HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGES0FILESDQREADBUF CONNECT_STATUSACCESS PRIVILEGESPOINT REMOTE_FOLDER BROAD_MESSAGEPMAIN_FOLDER_DIRECTORY FOR$DELETE FOR$IO_END FOR$IO_L_R FOR$IO_L_V FOR$IO_T_DS FOR$IO_X_DA FOR$IO_X_SE FOR$READ_DU FOR$READ_KU FOR$WRITE_SF FOR$WRITE_SU FOR$WRITE_DUFOR$REWRITE_SU FOR$WRITE_IFP)P"PPPPP{ PsUP)bPP%PPhP[P P'PZ4PVBP KPPPP4PIAP"mP|P%;PJ?PFBPRPPPPP1PPsPPNP@P4PP6P5P(P,PF8P:@PLP]PPP-P9PEPPP7P(P jPmP xPP P P P" P_, P P0 Pa * PUO Pb P| P  P2 P P9. PS = P^H PSV PEb P9 P  P  P P: P P  P& P. P9f P  P P: P$ P  P PP=P:MP4 ~P5P.P=PlPxPP P;(PY9PfGPXZPEfP9PP}PEOP2\PPTPE P?5P@P QPJPrPl PRPM\PP3P6PtEPIP PP:PPP P#%P\eP6sPP P PPPPyLP\OPRPP P PPPP{PP(PSGww1`|r01/FILE0130-Sep-1995 12:45DEC Fortran V6.1-68 FILEgP- ERROR: Command invalid from CAPTIVE account.)) Newsgroup: ) ERROR: Error in opening file ).' ERROR: You have not read any bulletin.6 ERROR: Specified message number has incorrect format:* ERROR: Following bulletin was not found: , Message ) written to ) Messages )-+) written to )Subj: )From: )Date: ) FILEQBULLETIN_NUMBERALLEXTRACT:[NEWFF HEADERP@@8  D P 0`dd CLI$GET_VALUE@@@t,t CLI$PRESENT@xLx CLI$GET_VALUE@| CLI$PRESENT@ 0\ CLI$PRESENT@t CLI$PRESENT@tt CLI$PRESENT@ CLI$PRESENT@`P`P`PdP ,PQGENERAL %'PP[^ЫЫWмdCAPTIVEP FOR$WRITE_SF FOR$IO_ENDЭW޼Zj1kl FOR$CLOSEЭW| CLI$GET_VALUEP CLI$_ABSENTRѫRˌ GET_2_VALSЫѫ    1k CLOSE_BULLFIL CLOSE_BULLDIRˤ FOR$CLOSEkЭW˴ CLI$PRESENTP  ԫk FOR$WRITE_SF FOR$IO_ENDЭW ԫѫ խի FOR$WRITE_SF FOR$IO_ENDk CLOSE_BULLFIL CLOSE_BULLDIR˼ FOR$CLOSEk0 FOR$WRITE_SF@ FOR$IO_T_DS FOR$IO_ENDЭWЭjj k1 CLI$GET_VALUEP,,  VVTD髀._DVTRIMPVݏ.TXTV^(VnVXXV,Vn PQ^TRIMP LIB$INDEXPTRIMP LIB$INDEXP$TRIMPX^(nX^(XnXVVX,Xn PQ^,TRIMP4 STR$UPCASE DISABLE_PRIVSH CLI$PRESENTPPTXFOR$OPENP1|ˀ˄FOR$OPENի˰˴˸FOR$OPENPF FOR$WRITE_SFDHD FOR$IO_T_DS FOR$IO_END ENABLE_PRIVSЭWЭ CLI$PRESENTP4 FOR$WRITE_SF FOR$IO_T_DS FOR$IO_END ENABLE_PRIVS CLI$PRESENTPWOPEN_BULLDIR_SHAREDOPEN_BULLFIL_SHAREDk 6 FOR$WRITE_SFTRIMP  0  FOR$IO_T_DS FOR$IO_ENDЫ VЭѭ 1ЫYREADDIRXѫXѫ ѫY( CLI$PRESENTPY FOR$WRITE_SFY FOR$IO_L_V FOR$IO_ENDY10 FOR$CLOSEk CLOSE_BULLFIL CLOSE_BULLDIRЭWЭ<REMOTE_READ_MESSAGEի$DISCONNECT_REMOTEHGET_REMOTE_MESSAGEի$1X CLI$PRESENTP4 FOR$WRITE_SF` FOR$IO_T_DS FOR$IO_ENDԭ<(h GET_BULL_LINEի() WI FOR$WRITE_SF(SS| ˀ| FOR$IO_T_DS}~ ~ ^( n˄^ˈ˄ FOR$IO_T_V_DS FOR$IO_ENDˌ GET_BULL_LINEWI FOR$WRITE_SFD FOR$IO_T_DS}~ ~ ^( nˠ^ˤˠ FOR$IO_T_V_DS FOR$IO_ENDի() W> FOR$WRITE_SF(UU˨ ˬ˨ FOR$IO_T_DS FOR$IO_ENDW> FOR$WRITE_SF< FOR$IO_T_DS FOR$IO_ENDի(4 FOR$WRITE_SF(˰ ˴˰ FOR$IO_T_DS FOR$IO_ENDի(˸ GET_BULL_LINEի(4 FOR$WRITE_SF(  FOR$IO_T_DS FOR$IO_ENDV%jajjЭWЭЭ OTS$CVT_L_TIPѫ  FOR$WRITE_SF FIRST_ALPHAPP@SS@ FOR$IO_T_DS FOR$IO_T_DS FOR$IO_END1 FOR$WRITE_SF FIRST_ALPHAPP@YY @  FOR$IO_T_DS FOR$IO_END OTS$CVT_L_TIP* FOR$WRITE_SF, FIRST_ALPHAPP@UU4@84 FOR$IO_T_DS<@< FOR$IO_T_DS FOR$IO_END13PFrom: Subj: $ FILE CLI$_ABSENTCAPTIVE FOR$CLOSE CLI$GET_VALUE GET_2_VALS CLOSE_BULLFIL CLOSE_BULLDIR CLI$PRESENTTRIM LIB$INDEX STR$UPCASE DISABLE_PRIVSFOR$OPEN ENABLE_PRIVSOPEN_BULLDIR_SHAREDOPEN_BULLFIL_SHAREDREADDIRREMOTE_READ_MESSAGEDISCONNECT_REMOTEGET_REMOTE_MESSAGE GET_BULL_LINE OTS$CVT_L_TI FIRST_ALPHA$CODE$PDATA$LOCALPOINTDBULLPAR REMOTE_FOLDER READ_DISPLAY@FILE_DIRECTORYBULL_DIR INPUT_BUFFERNEWS_DIR BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1 FOR$IO_END FOR$IO_L_V FOR$IO_T_DS FOR$IO_T_V_DS FOR$WRITE_SF$P#QPaVPP#PPP%PP>P 1P 6P;PtTPP PPePDPdQPW^PJPP7PP^PPqcP!PP8PP P%Pv+Pp7Pd@PFPmPl}PP*P P PP'P#PPP}(Po+P^PPPJPJP<P40P[6P [P0PCP0P P_hPww1+r014 FILE_LOCK0130-Sep-1995 13:02DEC Fortran V6.1-68 FILE _LOCK FILE_LOCKP01 P WAIT_SEC@QP[޼Rkkbռbb FOR$ERRSNSbWAIT_SECԫkԫbkЫPd  FILE_LOCK FOR$ERRSNSWAIT_SEC]$CODE$PDATA($LOCAL2P P> P/$P 9PGPOP, ]ww1dr011FILTER0130-Sep-1995 12:54DEC Fortran V6.1-68 FILTER FILTERYPP[}PQPмVWVWTD D D .DVWE FILTERC$CODE$PDATA $LOCALP"*P1P 8PCww1 7>r016 FIND_BULLCP0130-Sep-1995 12:52DEC Fortran V6.1-68 FIND_BULLCP FIND _BULLCPPBULL_BULLCPPPP X SYS_TRNLNM@PPP P[ SYS_TRNLNMP-P   PIGNORE_  FIND_BULLCP SYS_TRNLNM+$CODE$PDATAl$LOCALBCPP"P +ww1"r01;FIND_NEWEST_BULL0130-Sep-1995 12:52DEC Fortran V6.1-68FIND_NEWEST_BULLFIND_NEWEST_BULL?PP (    dP,PQGENERAL %'P|[OPEN_BULLDIR_SHAREDREADDIRk1,QAGET_NEWEST_MSGիЫ CLOSE_BULLDIRѫ 1 \)  D1)  D \V ^(  n ~ ^(  n V^$( SYS_BINTIMV^4 COMPARE_BTIMP@READDIR \LREADDIRQkQ 1Lѫ  CLOSE_BULLDIR |FIND_NEWEST_BULLOPEN_BULLDIR_SHAREDREADDIRGET_NEWEST_MSG CLOSE_BULLDIR SYS_BINTIM COMPARE_BTIM'$CODE$PDATA`$LOCALPOINTL HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGESBULL_DIR INPUT_BUFFERNEWS_DIR BULL_FOLDER BU LL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1_%PDPcPkP{PP]PTPPP!P P =1'ww1 Xr01=FINISH_MESSAGE_ADD0130-Sep-1995 13:05DEC Fortran V6.1-68FINISH_MESSAGE_ADDFINISH_MESSAGE_ADDP <>MX_NODE_NAMEDEFINEDMX_REPLY_TOPMDF_ROOTPMDF_REPLY_TOSYS$LOGIN:BULL.SCRSYS$LOGIN:BULL.SCR;*BULL.SCRBULL.SCR;*8P D ,PD    h8hp8hxp   STRIP_HEADER@,8 @`@XHHH0``  SYS_TRNLNM@ SYS_TRNLNM@h '' LIB$SET_LOGICAL@ 3$3 SYS_TRNLNM@, SYS_TRNLNM@h =H= LIB$SET_LOGICAL@PPKlK RESPOND_MAIL@Ht4^^ LIB$DELETE_FILE@Pss RESPOND_MAIL@H4 || LIB$DELETE_FILE@dP,PQGENERAL %'P ,[Vd FOR$BJTESTPp STORE_FROM|GETUSER, D f˄TRIMPˌ STORE_DESCRPWRITEOUT_STORED˘ FOR$CLOSEˠGETUSER, D f˨TRIMP˰TRIMP(˸ FOR$BJTESTP STORE_DESCRP,n ,n 8 WRITEOUT_STORED NEWS_FEEDPWRITEOUT_STORED FOR$CLOSE STRIP_HEADER FLUSH_BULL CLOSE_BULLFIL FOR$BJTESTP CLOSE_BULLDIR,  W ^( n ~ ^( n W^ SYS_BINTIMW^Pkk  SYS$ASCTIM8< COMPARE_DATEPkk,  \H GET_EXDATE\PYYP ADD_ENTRY CLOSE_BULLDIR UPDATE_FOLDER1T FOR$BJTESTP1h LIB$INDEXP1PP\,\@D | LIB$INDEXpWWˈTRIMPW,W Wː ADD_PROTOCOL˜ FOR$CLOSE(  (  ˨ CONFIRM_USERP˰SETUSER SYS_TRNLNMPTRIMPfLIB$SET_LOGICALPk SYS_TRNLNMPTRIMP$f(,LIB$SET_LOGICALPk)(  X8TRIMP\^(nW^(nWY\^(\n\WYW\\H\X^LP RESPOND_MAILX^lLIB$DELETE_FILEWtTRIMPY^(n\^(n\VY^(YnYXVX\\˄\W^ˈˌ RESPOND_MAILW^˨LIB$DELETE_FILE˰SETUSER(  ˸ FOR$CLOSEP00:00:00.005-NOV-2100NONE folder message: s FINISH_MESSAGE_ADD FOR$BJTEST STORE_FROMGETUSERTRIM STORE_DESCRPWRITEOUT_STORED FOR$CLOSE NEWS_FEED STRIP_HEADER FLUSH_BULL CLOSE_BULLFIL CLOSE_BULLDIR SYS_BINTIM SYS$ASCTIM COMPARE_DATE GET_EXDATE ADD_ENTRY UPDATE_FOLDER LIB$INDEX ADD_PROTOCOL CONFIRM_USERSETUSER SYS_TRNLNMLIB$SET_LOGICAL RESPOND_MAILLIB$DELETE_FILE}$CODE$PDATA$LOCALBULL_DIR INPUT_BUFFERNEWS_DIR BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1L HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGESDIGESTSCRTYPE TEXT_PRESENT MAIN_HEADER_INFOSAVE_IN&PqPj(P_.P 8P%cP PzPqP#P P P!BPJPVP {PvP6PPPPP6 PPaPpP PP P P#9PLGP$hPyP PfPdjP }ww1@ցr016 FIRST_ALPHA0130-Sep-1995 13:08DEC Fortran V6.1-68 FIRST_ALPHA FIRST_ALPHA PP [}PQ P<RRVWVWP@ RR  @ VW<PPQQRB TT ЫPQЫPH  FIRST_ALPHAj$CODE$PDATA$LOCAL"P1PIPZPjww1>r016 FIRST_INDEX0130-Sep-1995 13:08DEC Fortran V6.1-68 FIRST_INDEX FIRST_INDEXPP [}PQ P}PQP ԫ< RSRSP@ LIB$INDEXPիPPRSЫPX  FIRST_INDEX LIB$INDEX^$CODE$PDATA,$LOCAL.P*EPJPPP^ww1Фr018 FOLDER_ACCESS0130-Sep-1995 12:47DEC Fortran V6.1-68 FOLDER_ACCESS FOLDER_ACCESSPP  P[}PQPk} PQ P SETPRV_PRIVP޼ FOR$BJTESTP$CHKPROPT-k  TTЫPx  FOLDER_ACCESS SETPRV_PRIV FOR$BJTESTCHKPROl$CODE$PDATA0$LOCAL*P 0P6CPQPlww1d r01?FOLDER_FILE_ROUTINES0130-Sep-1995 12:56DEC Fortran V6.1-68FOLDER_FILE_ROUTINES FOLDER_FILE_ROUTINESP,PQGENERAL %'P[[ЬkFOLDER_TO_NEWS޻84REC_LOCKP FOR$WRITE_SU FOR$IO_X_SE FOR$IO_ENDPRR FOR$WRITE_SU  FOR$IO_X_SE FOR$IO_ENDPRR[ЬkFOLDER1_TO_NEWS޻@<REC_LOCKP FOR$WRITE_SU$ FOR$IO_X_SE FOR$IO_ENDPRR FOR$WRITE_SU FOR$IO_X_SE FOR$IO_ENDPRR[ЬkFOLDER_TO_NEWSFOR$REWRITE_SU FOR$IO_X_SE FOR$IO_ENDPRRFOR$REWRITE_SU  FOR$IO_X_SE FOR$IO_ENDPRR[ЬkFOLDER1_TO_NEWSFOR$REWRITE_SU$ FOR$IO_X_SE FOR$IO_ENDPRRFOR$REWRITE_SU FOR$IO_X_SE FOR$IO_ENDPRR[Ьk޻HDREC_LOCKP FOR$READ_SU FOR$IO_X_SE FOR$IO_ENDPRR FOR$READ_SU  FOR$IO_X_SE FOR$IO_ENDPRRջNEWS_TO_FOLDER[Ьk޻PLREC_LOCKP FOR$READ_SU$ FOR$IO_X_SE FOR$IO_ENDPRR FOR$READ_SU FOR$IO_X_SE FOR$IO_ENDPRRջNEWS_TO_FOLDER1[ЬkЬ0,R޻XTREC_LOCKP~߫, FOR$READ_KU FOR$IO_X_SE FOR$IO_ENDP~߫, FOR$READ_KU  FOR$IO_X_SE FOR$IO_ENDPջNEWS_TO_FOLDERR,[ЬkЬ0޻`\REC_LOCKP߫, FOR$READ_KU FOR$IO_X_SE FOR$IO_ENDPRR߫, FOR$READ_KU  FOR$IO_X_SE FOR$IO_ENDPRRջNEWS_TO_FOLDER[ЬkЬ0޻hdREC_LOCKP~߫, FOR$READ_KU$U FOR$IO_X_SE FOR$IO_ENDPRR~߫, FOR$READ_KU FOR$IO_X_SE FOR$IO_ENDPRRջNEWS_TO_FOLDER1[ЬkЬ0޻plREC_LOCKP߫, FOR$READ_KU$ FOR$IO_X_SE FOR$IO_ENDPRR߫, FOR$READ_KU FOR$IO_X_SE FOR$IO_ENDPRRջNEWS_TO_FOLDER1[Ьk}PQP޻xtREC_LOCKP~~ FOR$READ_KU$ FOR$IO_X_SE FOR$IO_ENDPRR~~ FOR$READ_KU FOR$IO_X_SE FOR$IO_ENDPRR]ջNEWS_TO_FOLDER1[Ьk}PQP޻ˀ|REC_LOCKP~ FOR$READ_KU$ FOR$IO_X_SE FOR$IO_ENDPRR~ FOR$READ_KU FOR$IO_X_SE FOR$IO_ENDPRRջNEWS_TO_FOLDER1[Ьk}PQP޻ˈ˄REC_LOCKP~ FOR$READ_KU$ FOR$IO_X_SE FOR$IO_ENDPRR~ FOR$READ_KU FOR$IO_X_SE FOR$IO_ENDPRRջNEWS_TO_FOLDER1[Ьk}PQP޻ːˌREC_LOCKP~~ FOR$READ_KU FOR$IO_X_SE FOR$IO_ENDPRR~~ FOR$READ_KU  FOR$IO_X_SE FOR$IO_ENDPRRջNEWS_TO_FOLDER FOLDER_FILE_ROUTINES WRITE_FOLDER_FILEFOLDER_TO_NEWSREC_LOCK WRITE_FOLDER_FILE_TEMPFOLDER1_TO_NEWS REWRITE_FOLDER_FILE }REWRITE_FOLDER_FILE_TEMP READ_FOLDER_FILENEWS_TO_FOLDER pREAD_FOLDER_FILE_TEMPNEWS_TO_FOLDER1 READ_FOLDER_FILE_KEYNUM READ_FOLDER_FILE_KEYNUM_GT @READ_FOLDER_FILE_KEYNUM_TEMP READ_FOLDER_FILE_KEYNUM_GT_TEMP xREAD_FOLDER_FILE_KEYNAME_TEMP READ_FOLDER_FILE_KEYNAMEGE_TEMP READ_FOLDER_FILE_KEYNAMEGT_TEMP lREAD_FOLDER_FILE_KEYNAME$CODE$PDATA$LOCAL BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1 NEWS_OPEN FOR$IO_END FOR$IO_X_SE FOR$READ_SU FOR$READ_KU FOR$WRITE_SUFOR$REWRITE_SU P P7PX>P)APdP'jPPPXP)PP'P(P/2PUP&ZPP/PP&PPX P) P0P'6PbP gPPXP)PP'PP P'P`.P-1P!XP+^P!P PPdP-P!P+P!2P 7PcPdjP-mP!P+P!P PPdP- P!3P+6P!jP oPPdP-P!P+P!P PHPgOP0RP!|P.P!P PPfP/P!%P-*P!^P cPPfP/P!P-P!P  PK?ww1Ւr019FOLDER_TO_NEWS0130-Sep-1995 12:59DEC Fortran V6.1-68FOLDER_TO_NEWSFOLDER_TO_NEWSP PPDPD,, 4,PQGENERAL %'P[(,VWЧ,,( LIB$INDEX-\\PP\\\PQ,QLD $@ǴlhdxǸpǼt|Ǡƀƈ[(,\VЦ,,< LIB$INDEX-WWPPWWWPQ,QGD $@ƴlhdxƸpƼt|Ờ̈[(,WVЦ,,HTRIMPX$^($@n\\XX\\^(\fn\X$X\,\n PDPQ^, ǔЦlǴЦhЦdЦxЦpǸЦtǼЦ|P FOR$BJTESTP, ǔƀǠƈ[(,XYЩ,,\TRIMP\$^($@nWW\\WW^(WinWZ$Z\,\n PDPQ^, ȔЩhЩlȴЩdЩxЩpȸЩtȼЩ|d FOR$BJTESTP, ȔɀȠɈP::NONE+ FOLDER_TO_NEWS LIB$INDEX FOLDER1_TO_NEWS NEWS_TO_FOLDERTRIM FOR$BJTEST NEWS_TO_FOLDER1$CODE $PDATAp$LOCAL BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1P lP j^Yww1@㦿r014 FREE_TAGS0130-Sep-1995 13:13DEC Fortran V6.1-68 FREE_TAGS FREE_TAGSPP ,PQGENERAL %'P[RSTTPP@Ue1åPPP~^e LIB$FREE_VM^e, REC_LOCKP~,߫( FOR$READ_KU߫ FOR$IO_X_SE FOR$IO_ENDPVVk2QQ, FOR$DELETE0REC_LOCKk FOR$UNLOCKRVR^VPRPP@Wާ @gD8 LIB$MOVC3 W^VQRP@ð VԆQUR  FREE_TAGS LIB$FREE_VMREC_LOCK LIB$MOVC3,$CODE$PDATAH$LOCAL BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1L HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGES NEWS_TAGS NEWS_MARK  FOR$UNLOCK FOR$DELETE FOR$IO_END FOR$IO_X_SE FOR$READ_KU7)PnPYqP*P!PP P+2&,ww1\&r013FULL_DIR0130-Sep-1995 13:05DEC Fortran V6.1-68FULL_DIRPFolder Last messageMessagesOwnerP- News group@First Last Last Read-" The following folders are present4 The following folders with new messages are present@@    . Type Return to continue to the next folder... End of folder search. Type Return to continue... FULL_DIRQRESTARTSETNEWMARKEDSEENUNMARKEDUNSEENSUBSCRIBE HIT any key for next page....INDEXHPPPPD, 8PDP   CLI$PRESENT@x CLI$PRESENT@ CLI$PRESENT@ CLI$PRESENT@ CLI$PRESENT@ CLI$PRESENT@ CLI$PRESENT@  CLI$PRESENT@ CLI$PRESENT@ , CLI$PRESENT@x,4,00 (, 4,xHP8|p8|xxhDdl GET_INPUT_NOECHO_PROMPT@x0,00 CLI$DCL_PARSE@BULLETIN_SUBCOMMANDSdPPPBULL_DIR: G'BULL_DIR: G'BULLUSER.DAT D'QBULLFOLDER.DAT B'QBULLINF.DAT E'QPBULLNEWS.DAT D'Q`BULL_DIR: G',PQGENERAL %'PP[ ^Ы խ˄ CLI$PRESENTP  1ˌ INIT_QUEUEkˠ CLI$PRESENTPX˰ CLI$PRESENTP  CLI$PRESENTP CLI$PRESENTP CLI$PRESENTP CLI$PRESENTޫQPQ  CLI$PRESENTP CLI$PRESENTޫRPR ˫  CLI$PRESENTPYY(NEWS_GET_SUBSCRIBEOPEN_BULLNEWS_SHAREDOPEN_BULLFOLDER_SHAREDԭԫի1WYիի4NEWS_GET_SUBSCRIBEի@READ_FOLDER_FILE_KEYNUM_TEMPիǴѫ ǴǴի\ի\LREAD_FOLDER_FILE_TEMPիXTTEST2P`TEST2P,QApl COMPARE_BTIMRPRR\QQ\ի1x FOR$BJTESTP1˄ SETPRV_PRIVP1ˌTRIMP\,^(,n\^(\Pn\W,W\,\n PPQ^YW^^˘˜ NEWS_ACCESSꛏ˨W^ˬ˰ CHECK_ACCESSW^VTRIMP\}.BULLFIL~\^(\n\ZZ\\\V^ CHECK_ACCESSV^$$֭Ы WRITE_QUEUE1'CLOSE_BULLFOLDERk FOR$WRITE_SF FOR$IO_END FOR$WRITE_SF FOR$IO_ENDY FOR$WRITE_SF FOR$IO_END; FOR$WRITE_SF FOR$IO_ENDZY&RQSSRRSS(Э\խ1VЫ READ_QUEUEY1 LIB$INDEXPTDD=T,TD PDƴЦ, ,NEWS_GET_NEWEST_MESSAGE1 FOR$WRITE_SF(XX^(XDnXW*~WXX$^($ FOR$IO_T_V_DS FOR$IO_L_Vƴ FOR$IO_L_V0~ FOR$IO_L_V FOR$IO_END FOR$WRITE_SF(SS^(SDn^SW ~WXX,^0, FOR$IO_T_V_DSx FOR$IO_L_Rx FOR$IO_L_Rx FOR$IO_L_R FOR$IO_ENDƴ4 SYS$ASCTIM,   FOR$WRITE_SFD FOR$IO_T_DSLH FOR$IO_T_DSƴ FOR$IO_L_VL FOR$IO_T_DS FOR$IO_ENDZ\ZWW\ZZXX\ZZq FOR$WRITE_SF FOR$IO_ENDT`GET_INPUT_NOECHO_PROMPT\խ: FOR$WRITE_SF FOR$IO_END ЭS FOR$WRITE_SF FOR$IO_ENDk Э 1Ы1խ׭Ыpl READ_QUEUE,| SELECT_FOLDER: FOR$WRITE_SF FOR$IO_END Эˈ GET_FIRST_TAG Ы ˘NEWS_GET_NEWEST_MESSAGEիѫFIND_NEWEST_BULL)˨ CLI$DCL_PARSEP˴ DIRECTORYЭխ  FOR$WRITE_SF FOR$IO_END Э)SSPP<P<T%TTPP NONEINDE FULL_DIR NEWS_ACCESSBULLETIN_SUBCOMMANDS CLI$PRESENT INIT_QUEUENEWS_GET_SUBSCRIBEOPEN_BULLNEWS_SHAREDOPEN_BULLFOLDER_SHAREDREAD_FOLDER_FILE_KEYNUM_TEMPREAD_FOLDER_FILE_TEMPTEST2 COMPARE_BTIM FOR$BJTEST SETPRV_PRIVTRIM CHECK_ACCESS WRITE_QUEUECLOSE_BULLFOLDER READ_QUEUE LIB$INDEXNEWS_GET_NEWEST_MESSAGE1 SYS$ASCTIMGET_INPUT_NOECHO_PROMPT SELECT_FOLDER GET_FIRST_TAGNEWS_GET_NEWEST_MESSAGEFIND_NEWEST_BULL CLI$DCL_PARSE DIRECTORY$CODE$PDATA$LOCALBULL_DIR INPUT_BUFFERNEWS_DIR0FILES BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1L HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGESPOINTTAGSNEW_DIR REMOTE_FOLDER PAGE COMMAND_LINECOUNT FOR$IO_END FOR$IO_L_R FOR$IO_L_V FOR$IO_T_DS FOR$IO_T_V_DS FOR$WRITE_SFKPLvPZPdPnP$P0P HPP P]PPHPPP"PP PP6PAPbLPKQPF_P6mPsP"zPPPPPPeP[PXPHPP P-PP,PiP:PGPPP5PPPhPPPPPP PymPlPePPIPQOPK\PaPnP,sP'P%P>P},P?4P7NPbPsP$P PAP; P#PP PP P $P<P A5ww1 ?r011GETACC0130-Sep-1995 13:04DEC Fortran V6.1-68 GETACC GETACCPPP[}PQP INIT_ITMLST<~^^ ADD_2_ITMLST^ END_ITMLSTk4$ S YS$GETJPIW GETACC INIT_ITMLST ADD_2_ITMLST END_ITMLST SYS$GETJPIWK$CODE$PDATAH$LOCALKww1r015 GETDEVNAME0130-Sep-1995 13:04DEC Fortran V6.1-68 GETDEVNAME GETDEVNAMEP PP[}PQP INIT_ITMLST <~^^߼ ^ ADD_2_ITMLST_WITH_RET ^ END_ITMLSTм0k8( SYS$GETDVIWP  GETDEVNAME INIT_ITMLSTADD_2_ITMLST_WITH_RET END_ITMLST SYS$GETDVIW[$CODE$PDATAL$LOCAL! [ww1r015 GETDEVUNIT0130-Sep-1995 13:04DEC Fortran V6.1-68 GETDEVUNIT GETDEVUNITP P P[ INIT_ITMLST߼^ ADD_2_ITMLST^ END_ITMLSTм$k, SYS$GETDVIWP   GETDEVUNIT INIT_ITMLST ADD_2_ITMLST END_ITMLST SYS$GETDVIW@$CODE$PDATA@$LOCAL@ww1Ϲr013GETIMAGE0130-Sep-1995 12:52DEC Fortran V6.1-68GETIMA GEGETIMAGEPPP[}PQP INIT_ITMLST<~^^߼^ ADD_2_ITMLST_WITH_RET ^ END_ITMLSTk8( SYS$GETJPIW GETIMAGE INIT_ITMLSTADD_2_ITMLST_WITH_RET END_ITMLST SYS$GETJPIWR$CODE$PDATAL$LOCAL Rww1}r014 GETPAGSIZ0130-Sep-1995 12:54DEC Fortran V6.1-68 GETPAGSIZ GETPAGSIZ+P TTP 0 SYS$GETDVIW@P[ INIT_ITMLST^ ADD_2_ITMLST^޼Rb^  ADD_2_ITMLST^$ END_ITMLSTkD4 SYS$GETDVIW뚫QQbbQQb  GETPAGSIZ INIT_ITMLST ADD_2_ITMLST END_ITMLST SYS $GETDVIW`$CODE$PDATA\$LOCAL$`ww1@r012GETPRIV0130-Sep-1995 12:42DEC Fortran V6.1-68GETPRIVGETPRIVPPP[ INIT_ITMLST^ ADD_2_ITMLST^ END_ITMLSTk, SYS$GETJPIW GET PRIV INIT_ITMLST ADD_2_ITMLST END_ITMLST SYS$GETJPIWP$CODE$PDATA@$LOCAL PRIVILEGESREALPROC Pww1ęr013GETQUOTA0130-Sep-1995 12:52DEC Fortran V6.1-68GETQUOTAP@GETQUOTAQ PGFLQUOTAWSEXTENTP  @  $$ CLI$GET_VALUE@0@.. CLI$GET_VALUE@0@  P [Ь , INIT_ITMLSTk^D8 ADD_2_ITMLST^߫^TH ADD_2_ITMLST^߫^dX ADD_2_ITMLST^߫ ^th ADD_2_ITMLST^߫^˄x ADD_2_ITMLST^ˈ END_ITMLSTЫˠː SYS$GETJPIWR,S1˼ CLI$GET_VALUEP@ FOR$DECODE_MF߫ FOR$IO_L_R FOR$IO_END LIB$MOVC3R CLI$GET_VALUEP@ FOR$DECODE_MF߫ FOR$IO_L_R FOR$IO_ENDRPP @@ LIB$MOVC3RRQQ AA LIB$MOVC3RRQQ AA  LIB$MOVC3RRQQAA0$ LIB$MOVC3RRQQ AA@4 LIB$MOVC3RRRBBPD LIB$MOVC3@P GETQUOTA INIT_ITMLST ADD_2_ITMLST END_ITMLST SYS$GETJPIW CLI$GET_VALUE LIB$MOVC3$CODE7$PDATAT$LOCALDBULLPAR FOR$IO_END FOR$IO_L_R FOR$DECODE_MF%PPP@P*H<ww1`Cr011GETSTS0130-Sep-1995 13:04 DEC Fortran V6.1-68 GETSTS GETSTSPPP[ INIT_ITMLST߼^ ADD_2_ITMLST^ END_ITMLSTk, SYS$GETJPIW GETSTS INIT_ITMLST ADD_2_ITMLST END_ITMLST SYS$GETJPIW7$CODE$PDATA@$LOCAL7ww1ќr011GETUIC0130-Sep-1995 12:52DEC Fortran V6.1-68 GETUIC GETUICPPP[ INIT_ITMLST߼^ ADD_2_ITMLST^߼^  ADD_2_ITMLST^$ END_ITMLSTk<, SYS$GETJPIW GETUIC INIT_ITMLST ADD_2_ITMLST END_ITMLST SYS$GETJPIWI$CODE $PDATAP$LOCALI ww1r012GETUSER0130-Sep-1995 12:42DEC Fortran V6.1-68GETUSERGETUSERPPP[}PQP INIT_ITMLST<~^^ ADD_2_ITMLST^ END_ITMLSTk4$ SYS$GETJPIW GETUSER INIT_ITMLST ADD_2_ITMLST END_ITMLST SYS$GETJPIWK$CODE $PDATAH$LOCALwKww1hr013GETUSERS0130-Sep-1995 13:02DEC Fortran V6.1-68GETUSERSGETUSERSP  P  Q`P@[}PQP }PQPk INIT_ITMLSTADD_2_ITMLST_WITH_RET0 ADD_2_ITMLST@ END_ITMLSTЫPHSYS$PROCESS_SCAN INIT_ITMLST< ~^X^`T ADD_2_ITMLST^<~^h^pd ADD_2_ITMLST^t END_ITMLSTVVЫˌ| SYS$GETJPIWPVVkVP @GETUSERS INIT_ITMLSTADD_2_ITMLST_WITH_RET ADD_2_ITMLST END_ITMLSTSYS$PROCESS_SCAN SYS$GETJPIW$CODE$PDATA$LOCAL $P,PPP4(; ww1`JXr015 GET_2_VALS0130-Sep-1995 12:45DEC Fortran V6.1-68 GET_2_VALSP@@ GET_2_VALS0:-CURRENTLASTP$DLhp,PQGENERAL %'P [Ь}PQ P LIB$INDEXPR, LIB$INDEXRPPRRk޼S޼T޼ UR ݻ FOR$DECODE_MFe FOR$IO_L_R FOR$IO_ENDPced1 R~ FOR$DECODE_MFe FOR$IO_L_R FOR$IO_ENDPc8 STR$UPCASEcRQQL PT LIB$INDEXPecc1RQQ<WRWB Q FOR$DECODE_MFd FOR$IO_L_R FOR$IO_ENDPXXc`TRIMRPPpB tx LIB$INDEXPdc˄TRIMRPP˔B ˘˜ LIB$INDEXPdcdecPXXP! GET_2_VALS LIB$INDEX STR$UPCASETRIM$CODE$PDATA$LOCAL BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1POINT FOR$IO_END FOR$IO_L_R FOR$DECODE_MF}P| PGP0JP#uPzP$P#P PP*P]7P BP0iP wPA5]e iww1@ ,r01@GET_BROADCAST_MESSAGE0130-Sep-1995 12:42DEC Fortran V6.1-68GET_BROADCAST_MESSAGE P)!GET_BROADCAST_MESSAGEPP ( `   dPP [ ^( Dn^(n ~ ~ ~~~($nQ^% ^( Dn^(n ~ ~ ~("nQ^# FOR$REWIND<kVk1 FOR$READ_SFk FOR$IO_L_R FOR$IO_T_DS FOR$IO_ENDPWWR~^ GET_BULL_LINE^kVkV))kQQQWWk^(knkX ~XY ~YXR RWS,Xn SBPQ^W1 [ SYS$SETRWM޼YiX ~QQ^(Qn^SVVV(VX^,0 SYS$BRKTHRUX^W ~RR^(Rn^SXXX`XW^dh SYS$BRKTHRUW^iV ~SS^(Sn^SWWYY˘YV^˜ˠ SYS$BRKTHRUV^W ~TT^(Tn^SYYVVVW^ SYS$BRKTHRUW^ SYS$SETRWMPNEW BULLETIN FROM: From: Subj: N GET_BROADCAST_MESSAGE GET_BULL_LINE y BROADCAST  SYS$SETRWM SYS$BRKTHRU$CODE"$PDATA$LOCALBULL_DIR INPUT_BUFFERNEWS_DIR REMOTE_FOLDER BROAD_MESSAGE FOR$REWIND FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$READ_SF P;EP3P PP:P)PPPPzP PgPY/PPrP7P5P{P=AP;XL ww1 [2r013GET_BULL0130-Sep-1995 12:54DEC Fortran V6.1-68GET_BULLGET_BULLPdPPPP[^Ь }PQPЫkWѻWԭԫW1޼T))(REC_LOCKPd  FOR$READ_DU  FOR $IO_X_SE FOR$IO_ENDPRR d`Ы40 READ_QUEUEԫ @REC_LOCKPd FOR$READ_DU  FOR$IO_X_SE FOR$IO_ENDP КˀPѻի WWԻkЭի kԫխ1XXѭ1ի­^(ˀnЭYíXQQ^(Qn^SZYZ,Zn PQ^Y­^(ˀnЭZíXPP^(Pn^SVZVVHVY^L޻\P UNCOMPRESSY^Wԭ­XXXQ,ˀ QHԻ1WZJˀYYWXYXZP,PJˀ XYԻWYWYVի,VGˀ YV`Gˀd޻th UNCOMPRESSVWWЭWk[^ЬkԻkZJˀPMOVECOPY@ GET_BULLREC_LOCK READ_QUEUE UNCOMPRESS TEST_MORE_LINES$CODE$PDATA$LOCALBULL_DIR INPUT_BUFFERNEWS_DIR COMMAND_LINE REMOTE_FOLDERREMOTE_READ_MESSAGE FOR$IO_END FOR$IO_X_SE FOR$READ_DU.P >PQP_P8jP)mPP^P%PP2P%PPP  PPP0P BPXP^P5PDP'P&P%HPHOPTP<_PpPPPvj`ww1@,r018 GET_BULL_LINE0130-Sep-1995 12:54DEC Fortran V6.1-68 GET_BULL_LINE GET_BULL_LINEP$P $$$4$,$$$dPPP [} PQ(P$޼WѼ< STRIP_HEADERRRQQg ԫԫ޼VfXLGET_BULLf֫ԫRRRQ˫QԼ޼X,n $(hԫh1޼Yhhh\GET_BULLh֫igQѫQ1 )()( ) (ԫ ԫ 1h 1) () (&1     hP Q,PA(   hP QGww1 %r016 GET_EXPIRED0130-Sep-1995 12:52DEC Fortran V6.1-68 GET_EXPIREDP Message will be permanent. Expiration date will be ). It is ). Specify when message expires. It is ). Specify when message expires. Default is permanent. It is ). Specify when message expires. Default is  days.- Enter absolute time: [dd-mmm-yyyy] hh:mm:ss or delta time: dddd hh:mm:ss& ERROR: Invalid date format specified.* ERROR: Specified time has already passed.. ERROR: Specified expiration period too large. Limit is  days. GET_EXPIREDQEXPIRATION.-: 4P   8L h CLI$GET_VALUE@4(< D 4,44LLL4(\4,444@4Thp4444440404  `h< D  \4 ,PQGENERAL %'dPP([^}PQ, SYS$ASCTIMPH CLI$GET_VALUEP Z  Z1 CLI$_ABSENTRѭRԭ1 Y  YZYZYX FOLDER_ACCESSP Yh FOR$BJTESTPY\QQ2Q\, Yt GET_EXDATEˀTRIMPY ^( nY^(YnYX XY,Yn PQ^ˈTRIMPk1Y> FOR$WRITE_SF˘ LIB$INDEXPPˤ˨ˤ FOR$IO_T_DS FOR$IO_END1Yj FOR$WRITE_SF˴ LIB$INDEXPP FOR$IO_T_DS FOR$IO_END FOR$WRITE_SF LIB$INDEXPP FOR$IO_T_DSY FOR$IO_L_V FOR$IO_END FOR$WRITE_SF FOR$IO_ENDGET_LINEkYY,  FOR$JIBSETP\Y GET_EXDATETRIMPX ^( nX^(XnXY YX,Xn PQ^TRIMPkkԼ,k k@DP LIB$INDEXP  LIB$INDEXP4 LIB$INDEXP`l LIB$INDEXPX^(nXX^(XnXWWX,Xn PQ^1WG|;ˈ LIB$INDEXP˜ LIB$INDEXP˰ LIB$INDEXpYY˼TRIMPY LIB$INDEXPXYQQ^(QIn^SWX^(HnWXY^(YnYVXVW,Wn PQ^ STR$UPCASE޼Y SYS_BINTIMPii@ FOR$WRITE_SF FOR$IO_ENDi1} SYS$ASCTIMPiѫ  SYS$GETTIMLIB$SUBX$ SYS$ASCTIMPiVF-^(n0~(n^<DH COMPARE_DATEPiiZZT FOLDER_ACCESSP FOR$WRITE_SFZ FOR$IO_L_V FOR$IO_ENDi1i WGhpt COMPARE_TIMEPiii FOR$WRITE_SF FOR$IO_ENDi1ˀ FOR$BJTESTP FOR$WRITE_SF FOR$IO_END FOR$WRITE_SFˌTRIMP˔˘˔ FOR$IO_T_DS FOR$IO_ENDP5-NOV-2100 00:00:00.00 00:00:00.00  GET_EXPIRED CLI$_ABSENT SYS$ASCTIM CLI$GET_VALUE FOLDER_ACCESS FOR$BJTEST GET_EXDATETRIM LIB$INDEXGET_LINE FOR$JIBSET STR$UPCASE SYS_BINTIM SYS$GETTIMLIB$SUBX COMPARE_DATE COMPARE_TIME$CODE$PDATA$LOCALL HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGES BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1BULL_DIR INPUT_BUFFERNEWS_DIR REMOTE_FOLDER FOR$IO_END FOR$IO_L_V FOR$IO_T_DS FOR$WRITE_SFX?PGPUPcPhP {PPPPPPP PnPP=*P^/P<iPtP;PBPvPr P=P@PPTPGP:PP{+Pn@P PP P=P6AP2MP&wPPPYPP5 ww1@/r01=GET_FIRST_NEWS_TAG0130-Sep-1995 13:13DEC Fortran V6.1-68GET_FIRST_NEWS_TAGGET_FIRST_NEWS_TAGP0P     dP ,PQGENERAL %'P| [Ь$Ь($$0NEWS_FIND_SUBSCRIBEPkk_8 FOR$BJTESTPЫkQQQRBD FOR$INQUIREҫ OPEN_BULLDIR_SHAREDS QQЫTѫ !TTTREADDIRTS CLOSE_BULLDIRBTBѫTBhBl`TEST_TAGPUp FOR$BJTESTPUUU޻$ˀ|GET_NEXT_NEWS_TAGջ$Ы(S CLOSE_BULLDIRTS CLOSE_BULLDIR| [Ь$Ь5(Ь ,$$˔NEWS_FIND_SUBSCRIBEP_Ի,PUUQQAR b˜ FOR$BJTESTP˨ FOR$BJTESTPb˼ޢ˴TEST_TAGPԻ$޻, FOR$JIBSETP,"R FOR$BJTESTP޻, FOR$BJTESTP FOR$BJTESTP޻, FOR$BJTESTP FOR$BJTESTPԻ$$$| [Ь$Ь (Ь,$$ NEWS_FIND_SUBSCRIBEPkk_ԫԻ,T޼Sջ$1UkRRQQAVզ1 FOR$BJTESTP1$$fPPccPP ջ$ѫ Ц(f, TEST_TAGPX0 FOR$BJTESTPXXXԻ$֫ ջ$ѫЫ (UUѻ( Ы (UV[UU޻$@޻(DU<GET_NEXT_NEWS_TAGջ$#T FOR$BJTESTP޻,d` FOR$JIBSETP,ëXkQXQQAѻ(A޻(pAtAxlTEST_TAGP GBS޻,ˀX^˄| FOR$JIBSET^P,ë~^ːˈ FOR$BJTEST^P1y | GET_FIRST_NEWS_TAGNEWS_FIND_SUBSCRIBE FOR$BJTEST FOR$INQUIREOPEN_BU$LLDIR_SHAREDREADDIR CLOSE_BULLDIRTEST_TAGGET_NEXT_NEWS_TAG l| GET_THIS_NEWS_TAG FOR$JIBSET e| GET_THIS_OR_NEXT_NEWS_TAG5$CODE $PDATA$LOCALL HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGESBULL_DIR INPUT_BUFFERNEWS_DIR BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT% NEWS_FOLDER1 NEWS_TAGS NEWS_MARK TAGSNEXTx*P:PYPlPPPPPPgP!P28PHPcPPPIPEP P-PPE0P <P#NP ZP_PPPPPP?P8&P,P1P@P&FP PPWP^PtPPzPPEP=P,P5ww1&r018 GET_FIRST_TAG0130-Sep-1995 13:13DEC Fortran V6.1-68 GET_FIRST_TAG GET_FIRST_TAGP(P     (  ' ( $8   (dPP[޼Vf0, OPEN_NEW_TAGf޼ Wf8g<4GET_FIRST_NEWS_TAG޼Y@ FOR$BJTESTPiPf(TgXLGET_NEXT_UNTAGfgQQgQ}d}d` FOR$BJTESTPЫ fpitgxl CONFIRM_TAG[޼V޼ X޼YiˈhˌfːGET_THIS_NEWS_TAGf ޼W˔ FOR$BJTESTPˠ FOR$BJTESTPi˰ˬREC_LOCKP ^^˸g˼TAG_KEY ^~~  FOR$READ_KU FOR$IO_X_SE FOR$IO_END]^PRRiif FOR$JIBSETPf hf FOR$BJTESTP FOR$BJTESTPf) FOR$BJTESTP FOR$BJTESTPf FOR$BJTESTP  FOR$BJTESTPi  FOR$UNLOCKih$i[DECREMENT_MSG_KEY[޼W޼ V޼XRRRRh4f8g<,GET_THIS_OR_NEXT_NEWS_TAG$hԫg޼Y@ FOR$BJTESTPiPhTfXg\LGET_NEXT_UNTAGh1Z` FOR$BJTESTP1hplREC_LOCKP ^^xi˄|TAG_KEY ː^˔~ː  FOR$READ_KU FOR$IO_X_SE* FOR$IO_END]^PSShh˘ LIB$MOVC3ѫѫiѫiRRRѫR$hhѫ}ZZˬ˰COMPARE_MSG_KEYPZ'ZZ }hifZ ˼ CONFIRM_TAGh1g FOR$JIBSETPghREC_LOCKP ^^޼ë ~^TAG_KEY^ ^~~  FOR$READ_KU FOR$IO_X_SE FOR$IO_END]^PSShhgë ~^  FOR$JIBSET^Pg¹ILRW+pxDhë ~^  FOR$BJTEST^P}}1 B  GET_FIRST_TAGTAG_KEY OPEN_NEW_TAGGET_FIRST_NEWS_TAG FOR$BJTESTGET_NEXT_UNTAG CONFIRM_TAG  GET_THIS_TAGGET_THIS_NEWS_TAGREC_LOCK FOR$JIBSET 8GET_THIS_OR_NEXT_TAGDECREMENT_MSG_KEY P ,GET_NEXT_TAGGET_THIS_OR_NEXT_NEWS_TAG LIB$MOVC3COMPARE_MSG_KEY$CODE$PDATA8$LOCALBULL_DIR INPUT_BUFFERNEWS_DIR TAGS REMOTE_FOLDER FOR$UNLOCK FOR$IO_END FOR$IO_X_SE FOR$READ_KUuPP%P,P;PLPnP9PPP7P CPyTPSwP#PP PFPTP P7 P PP 1POP mP.P P -PPS'P#[P+jPpPvPPP+P PPPPPP_EP#wPP ww1/r01:GET_FOLDER_INFO0130-Sep-1995 12:42DEC Fortran V6.1-68GET_FOLDER_INFOKP Unable to access folder )# ERROR: No write access for folder )GET_FOLDER_INFO^SELECT_FOLDER,P .HH CLI$GET_VALUE@V< PD,PQGENERAL %'P[^D޼V CLI$_ABSENT CLI$GET_VALUEP1 SYS_TRNLNMPf( STR$UPCASE4TRIMP1DDD LIB$INDEXPXD YXXQ,Q IXP,PH ( I,n ITXTRIMPXD YXQQYR)BX/^(ZnX^(XInXWWX,Xn IPQ^,, I ,fh` SELECT_FOLDERf FOR$WRITE_SFD W lGpl FOR$IO_T_DS FOR$IO_END  FOR$WRITE_SFD Z tJxt FOR$IO_T_DS FOR$IO_ENDf11ifXP::GENERALt GET_FOLDER_INFO CLI$_ABSENT CLI$GET_VALUE SYS_TRNLNM STR$UPCASETRIM LIB$INDEX SELECT_FOLDER$CODEa$PDATA|$LOCAL 0BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1P NODE_INFOACCESS FOR$IO_END FOR$IO_T_DS FOR$WRITE_SF8/PQPauP*PP-9P6vP9H<juww1 dr013GET_FROM0130-Sep-1995 13:05DEC Fortran V6.1-68GET_FROMGET_FROMP!1@<(P 4H\pP[}PQ P}PQPм V, ( LIB$INDEXP< LIB$INDEXPRP LIB$INDEXRPd LIB$INDEXPQ,Q@ x LIB$I2NDEXPPQQ˄@ˈ˔ LIB$INDEXP˨ LIB$INDEXPS,S@ ˼ LIB$INDEXPPQQ@ LIB$INDEXP LIB$INDEXPS,S@ WWV1WP@'WSC"WP@WSC WP@\WSC<WP@@WSC.WP@ WSC%W1xWPPQ,Q@ WVVTTUE'E"EE E\E<E@TVE E%TT,T  TRIMPЫWVWVTD3Q AD ZVP@ AVSC ZVQA aVSC zD R RRD WV` GET_FROM LIB$INDEXTRIM$CODE$PDATA$LOCAL?P8WP P@PP@PP'Po3Pc@PVLPJYP=eP1rP$~PP PPLPDP;P3P*P"PP P P<PXKPESP=_P kPwPP H< 4ww1sr01;GET_INPUT_NOECHO0130-Sep-1995 12:54DEC Fortran V6.1-68GET_INPUT_NOECHOGET_INPUT_NOECHOP@@TTKEYPAD,P,,,4,4 , ( ,(5 SYS$ASSIGN@4 CLI$PRESENT@ QP[}PQP<RRVWVWP @VWk<~^4$SMG$READ_STRING^k<~^L<SMG$READ_STRING^[}PQP}PQ P<RRVWVWS CVWk<~^dTSMG$READ_STRING^k<~^|lSMG$READ_STRING^[}PQP<RRVWVWS CVW޼Rk<~6^˔bˤ˄SMG$READ_STRING^k<~^˼bˬSMG$READ_STRING^bѫ ѫb[ SYS$ASSIGNDECLARE_CTRLC_ASTSMG$CREATE_VIRTUAL_KEYBOARDSMG$CREATE_KEY_TABLESMG$SET_KEYPAD_MODE$ CLI$PRESENTP SET_KEYPAD SET_NOKEYPADޫ0V V~^4, FOR$JIBCLR^P9V GET_INPUT_NOECHOSMG$READ_STRING `GET_INPUT_NOECHO_PROMPT  GET_INPUT_NUM7 [ASSIGN_TERMINAL SYS$ASSIGNDECLARE_CTRLC_ASTSMG$CREATE_VIRTUAL_KEYBOARDSMG$CREATE_KEY_TABLESMG$SET_KEYPAD_MODE CLI$PRESENT SET_KEYPAD SET_NOKEYPAD FOR$JIBCLR$CODE$PDATAP$LOCAL TERM_CHANSMG CTRLC_FLAGREADITv"P3PJPPPPPP !PAPGPQPP PPu 8ww1Ҫr016 GET_INTEGER0130-Sep-1995 12:59DEC Fortran V6.1-68 GET_INTEGER GET_INTEGER~PPP[~޼ INTEGER_KEYЎ LIB$MOVC3ЫPf  GET_INTEGER INTEGER_KEY LIB$MOVC3+$CODE$PDATA,$LOCAL 9+ww1Xr013GET_LINE0130-Sep-1995 12:54DEC Fortran V6.1-68GET_LINE P)GET_LINEP8 lQtP [}PQ PV [}PQ P} PQPV<RRW,n  DECLARE_CTRLC_AST޼Rb: FOR$READ_SFb FOR$IO_L_R FOR$IO_T_DS FOR$IO_ENDPSSTbVSMG$READ_COMPOSED_LINEPk04SMG$READ_COMPOSED_LINEPkSMG$_EOFUkUkHFOR$EXITb\PSTR$TRIMCANCEL_CTRLC_ASTkU2TWQQTTQQbQVUVE dUWWphGET_VALVUb|t CONVERT_TABSbQQTTQQbbba GET_LINESMG$_EOF GET_INPUT_PROMPTDECLARE_CTRLC_ASTSMG$READ_COMPOSED_LINEFOR$EXIT;STR$TRIMCANCEL_CTRLC_ASTGET_VAL CONVERT_TABSP$CODE$PDATA$LOCALDECNETSMG CTRLC_FLAG FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$READ_SFfP$_P8bP)PP PP PPiPU PBPHPMA%Pww1sr014 GET_L_VAL0130-Sep-1995 12:52<DEC Fortran V6.1-68 GET_L_VAL GET_L_VALP[мPF  GET_L_VAL$CODE$PDATA$LOCALww1`Kr016 GET_MSGBTIM0130-Sep-1995 13:08DEC Fortran V6.1-68 GET_MSGBTIM GET_MSGBTIMPP P|[}PQЬ }VVPV RR =SSR,@ RCVP@( LIB$MOVC3X | GET_MSGBTIM LIB$MOVC3S$CODE$PDATA4$LOCALSww1 yr015 GET_MSGKEY0130-Sep-1995 12:45DEC Fortran V6.1-68 GET_MSGKEY GET_MSGKEYPP P|[Ь}PQRB$ LIB$MOVC3VV QQRRQVS,QB >CVW | GET_MSGKEY LIB$MOVC3N$CODE$PDATA4$LOCALNww1@꿨r019GET_NEWEST_MSG0130-Sep-1995 12:52DEC Fortran V6.1-68GET_NEWEST_MSGGET_NEWEST_MSGP dPP[Ь޼R޼ b$REMOTE_GET_NEWEST_MSG޼, ?( GET_MSGKEYb84 READDIR_KEYGEbb GET_NEWEST_MSGREMOTE_GET_NEWEST_MSG GET_MSGKEY READDIR_KEYGEU$CODE$PDATA<$LOCALBULL_DIR INPUT_BUFFERNEWS_DIR REMOTE_FOLDERP1P"PP$DHUww1Dr01;GET_NEW_OR_SINCE0130-Sep-1995 12:45DEC Fortran V6.1-68GET_NEW_OR_SINCE@GET_NEW_OR_SINCE+P-- 00:00:00.00P SYS$BINTIM@ dP ,PQGENERAL %'P[}PQ޼ T-  SYS$BINTIMPd$ GET_MSGKEY0 SYS_BINTIM< GET_MSGKEYdLH READDIR_KEYGE ,QATP COMPARE_BTIMPd ,QA`\ GET_MSAGKEYdlh READDIR_KEYGEdtpNEWS_GET_NEWEST_MESSAGEPTODAY GET_NEW_OR_SINCE SYS$BINTIM GET_MSGKEY SYS_BINTIM READDIR_KEYGE COMPARE_BTIMNEWS_GET_NEWEST_MESSAGE$CODE$PDATA$LOCALBULL_DIR INPUT_BUFFERNEWS_DIRL HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGES BULL_FOLDER BULL_FOLD BER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1 REMOTE_FOLDER;PC%P:PYPf_P`hPKPP 8,ww1Lr019GET_NEXT_GROUP0130-Sep-1995 12:56DEC Fortran V6.1-68GET_NEXT_GROUPGET_NEXT_GROUPP * PPD  C0Th ((, dP,PQGENERAL %'P[^}PQ P}PQP޼Zj8 LIB$INDEXPYDTRIMRPRQYQQQQRRXԭYYPT)P DTTЭV1ռ1j1XLTRIMPT X޼d\READ_FOLDER_FILE_KEYNAME_TEMP,n  VYPPh l޼xpREAD_FOLDER_FILE_KEYNAMEGE_TEMPV޼ˀ|READ_FOLDER_FILE_TEMPˌ LIB$INDEXPWWPR,RGD ,n ˘TRIMPWXWW˸D˼ STR$MATCH_WILDP1ˬ FOR$BJTESTP1ռ1 x1ˠ7 FOR$BJTESTP1 FOR$BJTESTP1^^ NEWS_ACCESST- nTERS^T^^ NEWS_ACCESS,n Q^TRIMPCHKACLk $TRIMP,04 CHECK_ACCESSЫjjռYW)W X1v GET_NEXT_GROUP NEWS_ACCESS LIB$INDEXTRIMREAD_FOLDER_FILE_KEYNAME_TEMPREAD_FOLDER_FILE_KEYNAMEGE_TEMPREAD_FOLDER_FILE_TEMP FOR$BJTESTSTR$MATCH_WILDCHKACL CHECK_ACCESS$CODE$PDATAH$LOCALFBULL_DIR INPUT_BUFFERNEWS_DIR BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1L HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGES LAST_BUFFER CTRLC_FLAG]PPPPP+P5P!PPP3P/7P+aPfPtP|PPPP GPPv(P#JPUP\PcPhPwP~PRF-ww1Ir01<GET_NEXT_NEWS_TAG0130-Sep-1995 13:13DEC Fortran V6.1-68GET_NEXT_NEWS_TAGGET_NEXT_NEWS_TAG%PP  H dPP|[ FOR$INQUIREkkkOPEN_BULLDIR_SHARED޼R$bS޼TQQQUdE 1b1E PPddPPbѫE E (E , TEST_TAGPV0 FOR$BJTESTPVVVbЫd֫b1dd@<READDIRdQѫ QdLHREADDIRdQѫ Q$bT FOR$BJTESTP޼ddh޼l` DEL_NEWS_TAGp FOR$BJTESTP| FOR$BJTESTPISk CLOSE_BULLDIRd$bˈ FOR$BJTESTP޼˘޼ˠ˔ DEL_NEWS_TAGE d1 bdVVdV Sk CLOSE_BULLDIR |GET_NEXT_NEWS_TAG FOR$INQUIREOPEN_BULLDIR_SHAREDTEST_TAG FOR$BJTESTREADDIR DEL_NEWS_TAG CLOSE_BULLDIR$CODE $PDATA$LOCALL HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESJSAGESBULL_DIR INPUT_BUFFERNEWS_DIR NEWS_TAGS TAGSNEXTPHP>OP7kPLvPAPP PPPPT P2*P 5P9P@EPUP$dP{P PPPaU|ww1`Ȧr019GET_NEXT_UNTAG0130-Sep-1995 13:13KDEC Fortran V6.1-68GET_NEXT_UNTAGGET_NEXT_UNTAGQ P,PQGENERAL %'dPP[ FOR$INQUIREkkkOPEN_BULLDIR_SHAREDRQ޼ SQc޼TQc d$READDIRcQdQ޼,d0޼8( GET_THIS_TAGddk CLOSE_BULLDIRRc$dk CLOSE_BULLDIRZ GET_NEXT_UNTAG FOR$INQUIREOPEN_BULLDIR_SHAREDREADDI LR GET_THIS_TAG CLOSE_BULLDIR$CODE$PDATA<$LOCAL BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1BULL_DIR INPUT_BUFFERNEWS_DIR TAGS,P@PG\P'vP {PP*ww1@_r018 GET_NODE_INFO0130-Sep-1995 13:04DEC Fortran V6.1-68 GEMT_NODE_INFOEP Enter password for node  ERROR: Password is invalid. GET_NODE_INFOSYS$NODENODES,:: TP    @>t> LIB$SYS_TRNLOG@L\GG CLI$PRESENT@GG CLI$GET_VALUE@TTTTMT  ORddldN @Pl PPL[^H@0LIB$SYS_TRNLOGkQQ_, ׭DH CLI$PRESENTP1 CLI$_ABSENTX CLI$GET_VALUEP1d SYS_TRNLNMPpTRIMP1DDˀ LIB$INDEXPXD YXX\,\ IX\,\H ( I,n Iː˔TRIMPXOD \Lˠˬ LIB$INDEXPY,n YYX\\>xXD P,X@ @1Y1YX\\1YPP QSD ZPZR,QB yX,XJ JDLի1 FOR$WRITE_SFD \X˸L˼˸ FOR$IO_T_DS FOR$IO_T_DS FOR$IO_ENDGET_INPUT_NOECHOTRIMPD D~^ FOR$CLOSE^DHЭkZTRIMP\TRIMPY D~^^(Sn\^(\n\WW\ ~\PVY^(YnYWVW\"~\WD SX^(XCnXVWVYYYZ^FOR$OPENZ^ի FOR$WRITE_SF FOR$IO_END1D T- XDDD@1,TRIMP1DL\ D~^D^(enD SX^(XCnXWWYY4Y\^8<FOR$OPEN\^իD D~^tl FOR$CLOSE^DHЭk11u@ЭkSP"::"TASK=BULLETIN"::"TASK=BULLETIN"6  GET_NODE_INFO CLI$_QABSENTLIB$SYS_TRNLOG CLI$PRESENT CLI$GET_VALUE SYS_TRNLNMTRIM LIB$INDEXGET_INPUT_NOECHO FOR$CLOSEFOR$OPEN$CODEv$PDATA$LOCALP NODE_INFO TEMP_INPUT FOR$IO_END FOR$IO_T_DS FOR$WRITE_SF.P LPgP{PYP1P3P(<PYPaPmPPHP;P$PP/PBPP9P$P wk- Rww1r01:GET_NODE_NUMBER0130-Sep-1995 12:50DEC Fortran V6.1-68GET_NODE_NUMBERGET_NODE_NUMBERP  PP[ INIT_ITMLST޼Rb^ ADD_2_ITMLST^߼^  ADD_2_ITMLST^$ END_ITMLSTk<, SYS$GET SSYIWbb GET_NODE_NUMBER INIT_ITMLST ADD_2_ITMLST END_ITMLST SYS$GETSYIWS$CODE $PDATAL$LOCALNP#Sww1@r01@GET_NODE_NUMBER_OTHER0130-Sep-1995 12:45DEC Fortran V6.1-68GET_NODE_NUMBER_OTHER0P& ERROR: Specified node name not found.!GET_NODE_NUMBER_OTHER\Q  PT,0,4<P[} PQP INIT_ITMLST޼Rb^ ADD_2_ITMLST^߼^( ADD_2_ITMLST^, END_ITMLST4TRIMP<@kTD SYS$GETSYIWP FOR$WRITE_SF FOR$IO_ENDb GET_NODE_NUMBER_OTHER INIT_ITMLST ADD_2_ITMLST END_ITMLST SYS$GETSYIWTRIM$CODE8$PDATAd$LOCAL FOR$IO_END FOR U$WRITE_SFjP%ww1楿r017 GET_PATHNAME0130-Sep-1995 13:08DEC Fortran V6.1-68 GET_PATHNAME.P$ ERROR: Cannot find local host name. GET_PATHNAME,MX_NODE_NAMEARPANET_HOST_NAMEINTERNET_HOST_NAMEP  '' SYS_TRNLNM_SYSTEM@4$4 SYS_TRNLNM_SYSTEM@F8VF SYS_TRNLNM_SYSTEM@LP<[NEWS_GETHOSTNAMEPSYS_TRNLNM_SYSTEMPRR,SYS_TRNLNM_SYSTEMPRR@SYS_TRNLNM_SYSTEMPRR FOR$WRITE_SF FOR$IO_END PTALPHAP^( n@~(n ^\ LOWERCASEdTRIMP J < GET_PATHNAMENEWS_GETHOSTNAMESYS_TRNLNM_SYSTEMALPHA LOWERCASETRIM$CODEY$PDATAl$LOCALL W HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGESPATH FOR$IO_END FOR$WRITE_SF$PB'P 5P CPnP&(=ww1榿r01;GET_PREVIOUS_TAG0130-Sep-1995 13:13DEC Fortran V6.1-68GET_PREVIOUS_TAGGET_PREVIOUS_TAGPPX  dP,PQGENERAL %'P[$W 1 FOR$INQUIREkkkOPEN_BULLDIR_SHARED NEWS_FIND_SUBSCRIBEP޼Vfѧק޼,f0޼8( GET_THIS_TAGfЧ<READDIRQѫ QH FOR$BJTESTP޼XT DEL_NEWS_TAG$fЧ k CLOSE_BULLDIR1էЧYЧZԧ}dg޼Xh޼ VhѧYէY}gЧZ޼hhlfp޼td GET_NEXT_TAGZYZ}g޼|޼ˀf˄޼ˈxGET_THIS_OR_NEXT_TAG$ GET_PREVIOUS_TAG FOR$INQUIREOPEN_BULLDIR_SHAREDNEWS_FIND_SUBSCRIBE GET_THIS_TAGREADDIR FOR$BJTEST DEL_NEWS_TAG CLOSE_BULLDIR GET_NEXT_TAGGET_THIS_OR_NEXT_TAGI$CODE$PDATA$LOCALBULL_DIR INPUT_BUFFERNEWS_DIR BULL_FOLDER BULL_FOLDER1 NEWS_FOLD ZER NEWS_FOLDER_DEFAULT NEWS_FOLDER1 REMOTE_FOLDER TAGSvP-PKP\UPRrP3PP PPPP0P*PP+@PQE Iww1Gr01=GET_PROXY_ACCOUNTS0130-Sep-1995 13:04DEC Fortran V6.1-68GET_PROXY_ACCOUNTS P)GET_PROXY_[ACCOUNTSVNETPROXYSYS$SYSTEM:NETPROXY.DATNETUAFSYS$SYSTEM:NETUAF.DATPd  FOR$OPEN@ FOR$OPEN@ $+$ FOR$OPEN@ + FOR$OPEN@ dPPP[p INIT_QUEUE8FOR$OPENVk˄FOR$OPENV\k1 FOR$READ_SF߫ FOR$IO_L_R  FOR$IO_T_DS FOR$IO_ENDPRRk1V1,| p ѫ@˲˰PPPW@WQQR,RAp P˰Wѫ@˰\,L˴ P˰A\\L\W GpL\,A P˰Ыp WRITE_QUEUE1 FOR$CLOSEAPDECNET GET_PROXY_ACCOUNTS INIT_QUEUEFOR$OPEN WRITE_QUEUE FOR$CLOSEZ$CODEG$PDATAp$LOCALNETU ]AF FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$READ_SFP$P EP IP*}PPP6P/P:P'PE9Zww1:r01=GET_PROXY_USERNAME0130-Sep-1995 13:04DEC Fortran V6.1-68GET_PROXY_USERNAMEGET_PROXY_USERNAMEtPdpP p[}PQ^P}PQP <RRV< PPWXk, XXk  READ_QUEUE*-V -W *-W *,$ *( Ы,  , PDECNETo GET_PROXY_USERNAME READ_QUEUE$CODE$PDATA$LOCALNETUAFDLPg`P kPEvP|P4PP P P 7+ ww1hr01=_GET_REMOTE_MESSAGE0130-Sep-1995 13:08DEC Fortran V6.1-68GET_REMOTE_MESSAGE P)GET_REMOTE_MESSAGE: : P  $,X,p$ 444dPP`P[^k< INIT_QUEUEk޼VfPԭ HTRIMP PTRIMP ի1f1 FOR$READ_SF߫ FOR$IO_L_R FOR$IO_T_DS FOR$IO_ENDPRRf1ѫԫխTTЭTT, «ѫ1ի1 X \`COMPRESSЫXԫf^( nX~(n^XëYXZZYYZZ^(ZnZ«^(nY,Yn aPQ^ZZXZY,YJ 1ի 1  p txCOMPRESSЫ Xԫ f^( nX~(n^XëYXZZYYZZ^(ZnеZ«^(nY,Yn PQ^ZZXZY,YJ 1ˈ NEWS_READPff1XXYZ-YJ .1fSSSX1XTTZZUU^(UJn^SYX~YW,Wn PQ^ 1ːTRIMP 1XXYY ˠ bLIB$INDEXP˴ LIB$INDEXPXWWQQWW^(WAnWY ~YWXX~WY,Yn PQ^J.PQP^(PAn^SWXX~WZ,Zn PQ^ XXCOMPRESSЫXX ,  XXëWXZZWWZZ^(ZnZY«^(nYW,Wn PQ^ZZXZY,YJ ff~«^(nЫWWY,Yn PQ^, fի FOR$ERRSNSѫfԫ SYS_GETMSGcPfDISCONNECT_REMOTEЫWWWWk WRITE_QUEUEP1  P  GET_REMOTE_MESSAGE INIT_QUEUETRIMCOMPRESS NEWS_READ LIB$INDEX FOR$ERRSNS SYS_GETMSGDISCONNECT_REMOTE WRITE_QUEUEt$CODE $PDATA$LOCALBULL_DIR INPUT_BUFFERNEWS_DIRBUFFER REMOTE_FOLDERREMOTE_READ_MESSAGEREF NEWSGROUPS NEWS_HEADER_INFOd LOCAL_UPDATE HEADER_SEEN LF FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$READ_SFrP PQP*qP PPP<P.P3PP&PP$PP$PPPiPP)PPZ)P7P @PLPSP-\PffP\sPOPBPDP7P);PP9P1PPP; P6P#P?P&QP etww1 r015 GET_SEARCH0130-Sep-1995 12:50DEC Fortran V6.1-68 GET_SEARCHXP No search string present. ERROR: No message being read. Search aborted. GET_SEARCHQRE: dP 8  Df(dT8 8XX STREQ@ 88`PH`PHX08X STREQ@ddT8,8TX,8TX,8TXT88`PH`PgHd<d|d8XLTX STREQ@T88`PH 8 88dP,PQGENERAL %'(P  'P0[ ^}PQ8P4Ь@LЫЫkм(м DISABLE_CTRLDECLARE_CTRLC_ASTxTRIMPԭ޼hZ ѭ$, 48ˀTRIMP FOR$WRITE_SF FOR$IO_ENDCANCEL_CTRLC_AST ENABLE_CTRLЭЭЭkѭjѭ$, 48ѭjOPEN_BULLDIR_SHAREDˈREADDIRЭЫ 0м4м Э1 ѭм4м 10ѭм4м 1$1Эм4м ˔READDIR QQ FOR$WRITE_SF FOR$IO_END CLOSE_BULLDIRCANCEL_CTRLC_ASTi ENABLE_CTRLЭЭЭk,8  48 ˤ˰STREQP1˼TRIMP81REMOTE_READ_MESSAGEիDISCONNECT_REMOTE1GET_REMOTE_MESSAGEի1< GET_BULL_LINEի)] GET_BULL_LINEի)c,  48,88 48,4 48 STREQP,4 48TRIMQPALjЫ ޻LRբ$$TRIMPWjQQWWQQj ۫ jRRRjм ,48 j, STR$UPCASE$8ѭѫ ѭ,jjSjTTSSTTj  jPPPjjYYѭ CLOSE_BULLDIRCANCEL_CTRLC_AST ENABLE_CTRL,n 48ЭЭЭkOPEN_BULLFIL_SHAREDQѭQQ|ѭiԭY$ѭѫ$ ѭ1PPPѫ$P18READDIR ѭD GET_THIS_TAGkիXGET_PREVIOUS_TAGlGET_THIS_OR_NEXT_TAGի$1ѭ$1Ы$$QѫQ1ѭ1ѭˀ STR$UPCASE1ˌTRIM8P1˔REMOTE_READ_MESSAGEիDISCONNECT_REMOTE1ˠGET_REMOTE_MESSAGEի1<˨ GET_BULL_LINEի)]˼ GET_BULL_LINEիl)c( STR$UPCASE STR$UPCASEѭ޼޼ MATCHPѭ  LIB$INDEXP ,STREQP- 48TRIMP8-8 48Ы$1 > FOR$WRITE_SF FOR$IO_END1Ы$1$SѫS1ѭ18REMOTE_READ_MESSAGEիDISCONNECT_REMOTE1DGET_REMOTE_MESSAGEի1<W޼ ZjjTTVXP^QRVSXT OTS$MOVE5_R5޻LRի1L GET_BULL_LmINE` STR$UPCASESjTUjVQALXSYfYPSSPPlC8pt LIB$INDEXQPQQffWYSVTUWի Wjѫ Ы$ > FOR$WRITE_SF FOR$IO_END1=޼YWѫ Ы$iiЫ$ii$$1cԼռˀREADDIRˌREMOTE_READ_MESSAGEիDISCONNECT_REMOTE˘GET_REMOTE_MESSAGE CLOSE_BULLFIL CLOSE_BULLDIRCANCEL_CTRLC_AST ENABLE_CTRL,n n48ѭ|ЭЭЭk]PFrom: Subj: BACK*  GET_SEARCH DISABLE_CTRLDECLARE_CTRLC_ASTTRIMCANCEL_CTRLC_AST ENABLE_CTRLOPEN_BULLDIR_SHAREDREADDIR CLOSE_BULLDIRSTREQREMOTE_READ_MESSAGEDISCONNECT_REMOTEGET_REMOTE_MESSAGE GET_BULL_LINE STR$UPCASEOPEN_BULLFIL_SHARED GET_THIS_TAGGET_PREVIOUS_TAGGET_THIS_OR_NEXT_TAGMATCH LIB$INDEX CLOSE_BULLFILo$CODEm$PDATA$LOCALBULL_DIR INPUT_BUFFERNEWS_DIR BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1POINT TAGS CTRLC_FLAG REMOTE_FOLDERNEWGROUPNEXT COMMAND_LINE FOR$IO_END FOR$WRITE_SF OTS$MOVE5_R5XP]PkPqPfuPbyP^P5PP(P!PPPP P/$P*Pp/P5PLPSPYPiPoPuPPPqP?PP+P3P)AP JP[PpP~P P'PP P#P PPW P P!>PsPwP{PPPPTPPPP"PPP;P5P/PaP yPP)PPjPBPP P P PPP  P Pv)qPm0P;POPWP)eP nPPPP PP P PPRP_P*P&7PEPPPTP [PaP6lPPPPPaPXP+P PIP6PP:PPRP.~PPP PP PoP*PPFqPPP(PPPP9$P0AP JP XPcP|PP  rfww1 r012GET_UAF0130-Sep-1995 13:13DEC Fortran V6.1-68GET_UAFGET_UAF^P# P sP[}PQP}PQP INIT_ITMLST߼^  ADD_2_ITMLST^< ~^(^0$ ADD_2_ITMLST^?^@4 ADD_2_ITMLST^D END_ITMLSTk\L SYS$GETUAIP22  GET_UAF INIT_ITMLST ADD_2_ITMLST END_ITMLST SYS$GETUAI$CODE$PDATAp$LOCAL"ww1 Ur014 GET_UNAME0130-Sep-1995 13:08tDEC Fortran V6.1-68 GET_UNAME GET_UNAMEPL PP [}PQ P DISABLE_PRIVSkMAIL$USER_BEGINP INIT_ITMLST<~^$ ^, ADD_2_ITMLST^0 END_ITMLSTЫD8MAIL$USER_GET_INFOPH MAIL$USER_ENDP ENABLE_PRIVS- ,n  XTRIMP`TRIMPV)~P27+ww1 ߟr015 GET_UPTIME0130-Sep-1995 12:52DEC Fortran V6.1-68v GET_UPTIME GET_UPTIME#P$P 4P< [}PQP}PQP INIT_ITMLST߫^( ADD_2_ITMLST^, END_ITMLSTkD4 SYS$GETSYIT SYS$ASCTIM, ,  < GET_UPTIME INIT_ITMLST ADD_2_ITMLST END_ITMLST SYS$GETSYI SYS$ASCTIMi$CODE$PDATA$LOCAL$ wiww1`-r018 GET_USER_PRIV0130-Sep-1995 13:04DEC Fortran V6.1-68 GET_USER_PRIV GET_USER_PRIV?PP P<[}PQPЬ INIT_ITMLST߼^, ADD_2_ITMLST^0 END_ITMLSTkH8 SYS$GETUAIP,  xkhX SYS$GETUAIPDECNET < GET_USER_PRIV INIT_ITMLST ADD_2_ITMLST END_ITMLST SYS$GETUAIi$CODE$PDATAx$LOCALOP!iww1gr012GET_VAL0130-Sep-1995 12:54DEC Fortran V6.1-68GET_VALGET_VAL:PP<[}PQPk~,n kPQ^F <GET_VAL$$CODE y$PDATA$LOCAL $ww1`좨r01:GET_VMS_VERSION0130-Sep-1995 12:52DEC Fortran V6.1-68GET_VMS_VERSIONGET_VMS_VERSIONPPP[}PQ INIT_ITMLST^ ADD_2_ITMLST^ END_ITMLSTk4$ SYS$GETSYIЫ GET_VMS_VERSION INI zT_ITMLST ADD_2_ITMLST END_ITMLST SYS$GETSYID$CODE$PDATAH$LOCAL Dww1\r01/HELP0130-Sep-1995 13:04DEC Fortran V6.1-68 HELP HELPPHELP_FOLDERP@  CLI$GET_VALUE@@(P<[}PQPk CLI$GET_VALUEP,n @@(, {0 OUTPUT_HELPs <HELP CLI$GET_VALUE OUTPUT_HELPD$CODE $PDATA<$LOCALDBULLPARP Dww1`Yr010HIBER0130-Sep-1995 12:52DEC Fortran V6.1-68 HIBER HIBERPP [}PQPkV^(n ~W^(WnWYYW,Wn (PQ^-( -( -( $, ( ( INIT_COMPRESS TRIMPY,^(,nY^(YPnYW,WY,Yn PPQ^0 CLI$GET_VALUED CLI$PRESENTP FIND_BULLCPT CLI$PRESENTPd CLI$GET_VALUE-< FOR$READ_IF, FOR$IO_L_R FOR$IO_ENDt SELECT_FOLDERCLEANUP_BULLFILEFOR$EXIT1ˈ CLI$PRESENTPBBOARDFOR$EXIT1˘ CLI$PRESENTP˨ CLI$PRESENTP CREATE_BULLCP˸ CLI$PRESENTP CLI$GET_VALUEP RUN_BULLCP- 2 NEWS2BULL- 6 NEWS2BULLGETSTSӫ@FOR$EXITVCRELNMӫ 1VASSIGN_TERMINAL  LIB$ESTABLISH CLI$PRESENTP LIB$REVERT$ CLI$DCL_PARSE LIB$REVERT,; 0 SELECT_FOLDERkZ< TEST_BULLCPPDELETE_EXPIRED OPEN_USERINFO.  OPEN_OLD_TAGVNEW_MESSAGE_NOTIFICATIONZD GETPAGSIZX CLI$GET_VALUE CLI$_ABSENTYPY-@ FOR$DECODE_MF FOR$IO_L_R FOR$IO_ENDp CLI$PRESENTPӫ@P1ˀ CLI$GET_VALUEPkkY@ː˔˘SUBTIMEk4 FOR$WRITE_SF FOR$IO_ENDFOR$EXIT˨MODIFY_SYSTEM_LISTREAD_IN_FOLDERS  WX Ы˴˰ READ_QUEUETEST2P SHOW_SYSTEMWXLOGINFOR$EXIT"NEW_MESSAGE_NOTIFICATION TEST_BULLCPPFOR$EXITZ@P PBULLETIN ENABLEQRUN> RU> QR> Q BULLETIN> NEWSNEWS1SELECT  INIT_BULLETIN ERROR_TRAPBULLETIN_MAINCOMMANDSENABLE_CTRL_EXIT CLI$_ABSENT CLI$_NOCOMD CLI$_NEGATEDSYS_TRNLNM_SYSTEM OTS$CVT_TZ_LTRIMLIB$GET_FOREIGN LIB$INDEX LIB$ESTABLISH CLI$GET_VALUE LIB$REVERT CLI$DCL_PARSE CLI$PRESENTLIB$SYS_TRNLOGFOR$EXIT SYS$SETDFPROTDCLEXHLIB$DISABLE_CTRLGETPRIV CHECK_PRIV_IOCHECK_DIR_ACCESS CHECK_DIRADD_DIRECTORIESLIB$ENABLE_CTRLGETUSERCHECK_BULLETIN_PRIV INIT_COMPRESS FIND_BULLCP SELECT_FOLDERCLEANUP_BULLFILEBBOARD CREATE_BULLCP RUN_BULLCP NEWS2BULLGETSTSCRELNMASSIGN_TERMINAL TEST_BULLCPDELETE_EXPIRED OPEN_USERINFO OPEN_OLD_TAGNEW_MESSAGE_NOTIFICATION GETPAGSIZSUBTIMEMODIFY_SYSTEM_LISTREAD_IN_FOLDERS READ_QUEUETEST2 SHOW_SYSTEMLOGIN$CODEA$PDATA$LOCAL0FILESBULL_DIR INPUT_BUFFERhNEWS_DIR BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1L HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGESDBULLPARPOINTREADIT PAGECTRLY(PROMPTDECNET COMMAND_LINEEDITCOMMAND_SWITCHESDEF_PROT0 PROMPT_PROMPT BULL_CUSTOM SAVE_FOLDERSCOUNTDCL FOR$IO_END FOR$IO_L_R FOR$WRITE_SF FOR$DECODE_MF FOR$READ_IFH/PPPSP PMP?PPuPL}PDP8P$PP &P6rPP PKPP%PPPP,PFBP0RP ]PP PP;PUPJPPPP P P]PNP P9P #P4P MPTP^PhP }PPPP P5PPP =P-vPPPP;PPSP):PLPSPbPpPyP#PQ Eww1r018 INIT_COMPRESS0130-Sep-1995 12:54DEC Fortran V6.1-68 INIT_COMPRESS INIT_COMPRESSDDPQ e th ts aint erheonat: reanittin i oesneted senedisicy staror, walouhaduler nt.endtof vengct po meomof. cioricase m btacoelsiashide fl ecllroeta dni eeanolichs.ramacescnsg ssncusbe h> h acosciblphrt rot Itrut nlacslyprwawsoopeagyssoieurun (pofoem lm holowi Te.imdiia.cpagegaeerspisuThilaiwholulgrowu ivplabammoP@D[^VWxVXWXP @WVްWWX(HWVXVVP(@˾XW(GX~PQxQQQP@X WVVP(@˾WX(HW~PQxQQQP@WƚXVVP(@˾XW(GX~PQxQQQP@X@D[^}PQP}PQP <WW XX1XYISS~ IHQQ~ H<PYPRITXPHRxRRRT ZDJJ X޼ Vf1XѭIHXP)I@VXXXSXPC@VXXUE~V~~޼ V(nJQ^f޼ V)IЭXJfIJJYY Y  JX޼ WgYYg1޼ ZXӭXjQHAjVVj, @D[^}PQP}PQP <WW޼ YiXX1XЭZJRRѭHTTWVWXZiUUiUJEWVXŭP(@)iZZiZЭP@JiZZiZ(JX1`,i P   INIT_COMPRESS COMPRESS  UNCOMPRESS$CODE$PDATATD$LOCAL[P+nPPPPPdP[PMP P 6PNGPTP0jPlP qPPP PP/#PAPK]PtPd www1>r01;INIT_MESSAGE_ADD0130-Sep-1995 13:05DEC Fortran V6.1-68INIT_MESSAGE_ADDINIT_MESSAGE_ADDP BULL_DISABLEBULL_DIR_LIST <SYS$LOGIN:BULL.SCRBULL_DIR:BULL.SCR%"PPPPD@  X LIB$SYS_TRNLOG@@P  SYS_TRNLNM_SYSTEM_INDEX@00'' STRIP_HEADER@ )8+ 0+ FOR$OPEN@>d> FOR$OPEN@@P@P@(HPPBULL_DIR: G'BULL_DIR: G'BULLUSER.DAT D'QBULLFOLDER.DAT B'QBULLINF.DAT E'QPBULLNEWS.DAT D'Q`BULL_DIR: G',PQGENERAL %' dP PPPP[Ь Ь Ь}PQP} PQ$P }PQ,P(ЫVkW`LIB$SYS_TRNLOGPѻ@-@ Sp SYS$DELPRC |CHECK_DIR_ACCESS INIT_COMPRESS(PPջ1OPEN_BULLFOLDER˄TRIMPˌː޻˜˔READ_FOLDER_FILE_KEYNAMECLOSE_BULLFOLDERջWW˨SYS_TRNLNM_SYSTEM_INDEXPVV)PPWWVADD_DIRECTORIES޻˼˴ FOR$ERRSNSVWk1i,, P0[Ь ЬЬ } PQ$P }PQ,P(ЫVkW,,,TRIMPX,^(,nX^(XPnXZ,ZX,Xn PPQ^[Ь ЬЬ } PQ$P }PQ,P(ЫVkW NEWS_FEEDP OPEN_BULLDIR OPEN_BULLFILWkREADDIRkW    P޻ STRIP_HEADERTRIMPYI$%"~<ZZ^(Z$nZY,Yn  PQ^ $ FOR$BJTESTP NEWS_FEEDP FOR$BJTESTP LIB$INDEXPWk8FOR$OPENkWWlFOR$OPEN,(, ,n 1, $ ː FOR$BJTESTP˜ STORE_FROM˰ LIB$INDEXP LIB$INDEXPP ,   TRIMP,(,  FOR$BJTESTP STORE_DESCRP,n 8 ,n VWkSPENABLE INIT_MESSAGE_ADDLIB$SYS_TRNLOG SYS$DELPRCCHECK_DIR_ACCESS INIT_COMPRESSOPEN_BULLFOLDERREAD_FOLDER_FILE_KEYNAMETRIMCLOSE_BULLFOLDERSYS_TRNLNM_SYSTEM_INDEXADD_DIRECTORIES FOR$ERRSNS RINIT_MESSAGE_ADD_BBOARD INIT_MESSAGE_ADD_DIGEST NEWS_FEED OPEN_BULLDIR OPEN_BULLFILREADDIR STRIP_HEADER FOR$BJTEST LIB$INDEXFOR$OPEN STORE_FROM STORE_DESCRP$CODEY$PDATA$LOCAL0FILES BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1BULL_DIR INPUT_BUFFERNEWS_DIRBCP MAIL_PROTOCOLDIGEST MAIN_HEADER_INFO TEXT_PRESENTSAVE_IN LAST_BUFFER OLD_BUFFERSCRTYPEDBULLPARPMAIN_FOLDER_DIRECTORYTP$\PpPPPVP)P PPP PQP7PPP70P;OPhPP6P P-P%PPPPC(P\PwP P2P$P%P P  ww1 (꫿r015 INIT_QUEUE0130-Sep-1995 13:02DEC Fortran V6.1-68 INIT_QUEUE INIT_QUEUEPP [}PQPռ<RRSzSP{PQQQSQS S~^޼ LIB$GET_VM^мR^ Sk MAKE_CHARf  INIT_QUEUE LIB$GET_VM MAKE_CHARf$CODE$PDATA($LOCALP0P fww1ժr016 INTEGER_KEY0130-Sep-1995 12:59DEC Fortran V6.1-68 INTEGER_KEY INTEGER_KEYOPP|[}PQмVVRRPPRVS,R@ CVJ | INTEGER_KEY9$CODE$PDATA$LOCAL9ww1樿r016 ITMLST_SUBS0130-Sep-1995 12:54DEC Fortran V6.1-68 ITMLST_SUBS\P* ERROR: INIT_ITMLST called before previous$+ ITMLST terminated with END_ITMLST. ITMLST_SUBSQ P\`X`Xh Xh  dh `XQP[[ի LIB$GET_VMЫ, LIB$MOVC3QQ<0 LIB$MOVC3kQ Q~^D@ LIB$FREE_VM^ԫk FOR$WRITE_SF FOR$IO_END. FOR$WRITE_SF FOR$IO_ENDFOR$EXIT[L LIB$GET_VM QQ\޼`޼d޼ hXSTORE_ITMLST_ENTRYЫ tЫxp LIB$INSQTI[| LIB$GET_VM QQˌ޼ː޼˔޼ ˘޼˜ˈSTORE_ITMLST_ENTRYЫ ˤЫ˨ˠ LIB$INSQTI[ЫRRQ Q~^˰޼Sc˴ˬ LIB$GET_VM^ckTRЫ˼˸ LIB$REMQHI QQTP PcPP LIB$MOVC3 LIB$FREE_VMRT RQcQQ LIB$MOVC3RO  ITMLST_SUBS  INIT_ITMLST LIB$GET_VM LIB$MOVC3 LIB$FREE_VMFOR$EXIT  ADD_2_ITMLSTSTORE_ITMLST_ENTRY LIB$INSQTI ADD_2_ITMLST_WITH_RET > END_ITMLST LIB$REMQHI$CODEl$PDATA$LOCAL FOR$IO_END F OR$WRITE_SF, P P+@PZGP fP4vP?bVww1or01<KILL_NEWS_CONNECT0130-Sep-1995 13:08DEC Fortran V6.1-68KILL_NEWS_CONNECTKILL_NEWS_CONNECTzPP[k NEWS_GET_CHANP  SYS$CANCELNEWS_DISCONNECT  KILL_NEWS_CONNECT NEWS_GET_CHAN SYS$CANCELNEWS_DISCONNECT0$CODE$PDATA$LOCALNEWS_CONNECTEDP 0ww1Er015 LAST_INDEX0130-Sep-1995 12:56DEC Fortran V6.1-68 LAST_INDEX LAST_INDEXPP<[}PQP}PQP < RRTTU<PTPPPPUTQQRRQ-QB ЫPU ЫPI < LAST_INDEXp$CODE$PDATA$LOCALA0R(NEWS_SOCKET_BULLCPЫRPSSR@<NEWS_SOCKET_ASTSRD DISCONNECTkPL SYS$DASSGNkkXT SYS$DASSGN\REQUEUE_NNTP_ACCEPT_WAIT,  LISTEN_ASTNEWS_SOCKET_AST NNTP_ACCEPT NEWS_ASSIGN NEWS_GET_CHANNEWS_SOCKET_BULLCP DISCONNECT SYS$DASSGNREQUEUE _NNTP_ACCEPT_WAIT$CODE$PDATAl$LOCALDQREADBUFPPROCBUF LISTENPNNTPNEWSHOSTVP P,P5PBPuPMP P P PP 6*ww1Fr018 LNM_MODE_EXEC0130-Sep-1995 13:04DEC Fortran V6.1-68 LNM_MODE_EXEC LNM_MODE_EXECPP P D DP[ЬЬJRBQa,(SYS$OPENPRR40 SYS$CONNECTPRRPk  LNM_MODE_EXECSYS$OPEN SYS$CONNECTF$CODE$PDATA<$LOCAL1PGFww18r010LOGIN0130-Sep-1995 12:45DEC Fortran V6.1-68 LOGINeP+))+Quitting directory listing. Description+From DateNumber -----------+---- ---------- *) System Messages* *)*+*)* * *)*5 @@))* ERROR: Cannot add new entry to user file.  LOGIN5-NOV-2956 00:00:00.005-NOV-1956 11:05:56ALLBBOARD0 00:15 HIT any key for next page....HIT Q(Quit listing) or any other key for next page....>PPP Dd LLPDP0(8((tXt SYS_BINTIM@l SYS_BINTIM@tx  CLI$PRESENT@   |   t   t CREATE_PROCESS@    `  td0 dd     P SYS$BINTIM@    h,, d0 h ( d0  (  04,(,,\tX\`0,,l httl \hh0lh,,l0lh,,,,d0t`P`P`P`P GET_INPUT_NOECHO_PROMPT@dd4LT GET_INPUT_NOECHO_PROMPT@dd6 GET_INPUT_NOECHO_PROMPT@dd(\,,,    @ 0(PPBULL_DIR: G'BULL_DIR: G'BULLUSER.DAT D'QBULLFOLDER.DAT B'QBULLINF.DAT E'QPBULLNEWS.DAT D'Q`BULL_DIR: G'dP,PQGENERAL %'TPPT[^Ы,, P0 SYS$ASCTIM SYS_BINTIM  SYS_BINTIM  SYS_BINTIMOPEN_BULLUSER_SHARED,READ_USER_FILE_HEADER\Rի 1 FOR$UNLOCK4READ_USER_FILE_KEYNAMEѢԢ ի$1@ COMPARE_BTIMPT CLI$PRESENTP\COPY2ЭhCOPY2tCOPY2FOR$REWRITE_SUˬ FOR$IO_X_SE FOR$IO_ENDSޢ(TՄդSCS1 CLEANUP_LOGINˀCOPY2Uެ@Qޢ@SССЁUԢ ˌ CHECK_NEWUSERѫ(˜COPY2˨COPY2˴COPY2COPY2Uޢ(\ՌU COMPARE_BTIMPԫ$WRITE_USER_FILEի * FOR$WRITE_SF FOR$IO_ENDCLOSE_BULLUSERFOR$EXITѫ(ЭOPEN_BULLINF_SHARED\ UeCOPY2U`\矯  FOR$WRITE_SUˤ FOR$IO_T_DS, \l,( FOR$IO_X_SB\`, FOR$IO_ENDPUU CLOSE_BULLINFCOPY2READ_USER_FILE_HEADERի  MINUTE_DIFFP COPY2FOR$REWRITE_SU˴ FOR$IO_X_SE FOR$IO_END TEST_BULLCPP(CREATE_PROCESSի CLOSE_BULLUSERFOR$EXITի$0 COMPARE_BTIMP<COPY2H COMPARE_BTIMP4T COMPARE_BTIMP4`COPY2  l LIB$MOVC3ˀ˄SUBTIMEի4˔ UPDATE_READ˜COPY2READ_IN_FOLDERS˨MODIFY_SYSTEM_LISTCLOSE_BULLUSERЭREAD_IN_FOLDERS˰MODIFY_SYSTEM_LIST˸TRIMPW,^(,nW^(WPnWY,Y\,\n PPQ^T[^Ы,  COPY21,WG G COPY2,YI I G  COMPARE_BTIMP4,XH @COPY2 MINUTE_DIFFPP SYS$BINTIMP '.<IΫ̫\\LIB$SUBXT[^ЫT  FOR$BJTESTPR, TEST_SET_FLAGPR4TEST_BRIEF_FLAGPRQQRUԭWSի$դ,<COPY2H UPDATE_READPCOPY2CLOSE_BULLUSERЭ8Э\ FOR$BJTESTPhCOPY2tCOPY2ˀ UPDATE_READˈCOPY2˔COPY2CLOSE_BULLUSER11դ,1,XH H ˨ˠ COMPARE_BTIMP4,\L ˴ˬCOPY2,QA ˼˸COPY2TEST2PTEST2PTEST2P1OPEN_BULLDIR_SHAREDREADDIRĴ INIT_QUEUE INIT_QUEUE  INIT_QUEUEЫ@ЫDЫ HLZ( FOR$BJTESTP TEST_SET_FLAGP TEST_BRIEF_FLAGPZի$4GET_NEWEST_MSGѫLL@ INIT_QUEUEЫPZ~^XLREMOTE_DIRECTORY_COMMAND^ի  CLOSE_BULLDIRDISCONNECT_REMOTE1ЫPTЫPdGET_NODE_NUMBERЫLXL1VZLƀSXS<X<ѫPT1ЫPtp READ_QUEUE< ˀREADDIRի$1P PP P9P (P7P UP*bPPDP?P"P&P.P ;P OPaP.PqPP8P)P$PcPDhP?oP+xPPP P4P$ PPP~,PIEPPPPP P PCP P+P#P6P FPCmP}PPPPP!P_P PwPiP!P0P pPPPPP%PPP"P P P  PZ P + P0@ PL PZ Pw P P P P0 P$ Pg P  PT P  P- P P  PN PZ Pb Ph P o PMt P P Pa P Pn P1 P  P  P  P  P. P < PJ P X P| P  P P` PT P P P PC PVK P`Y PR P P  P  PSPPOhP1oP}PP PPPc-P&SP'P PP PPP$P,PPPPPPtPPhPilPxPPPPP&PPPTP-kPP_PyPwkww1եr014 LOWERCASE0130-Sep-1995 13:08DEC Fortran V6.1-68 LOWERCASE LOWERCASE`PP[}PQP<RRVWVWTDADZDP PPDVWF  LOWERCASEJ$CODE$PDATA $LOCAL"P&/P7P Jww1@r01/MAIL0130-Sep-1995 12:47DEC Fortran V6.1-68 MAILP* ERROR: MAIL invalid from DISMAIL account.& ERROR: You have not read any message.( ERROR: Specified message was not found.& ERROR: Error in opening scratch file.) ERROR: No message mailed. Description: )From: ) MAILQEDITSYS$LOGIN:BULL.SCR;*SYS$LOGIN:BULL.SCRHEADER SUBJECTRECIPIENTS;P 8  D ` CLI$PRESENT@p LIB$DELETE_FILE@    FOR$OPEN@ CLI$PRESENT@0000088 CLI$PRESENT@`P8`P8&P& CLI$PRESENT@&`& CLI$GET_VALUE@`P8 .. CLI$GET_VALUE@  CLI$PRESENT@ $  MAILEDIT@$ MAILEDIT@   LIB$FIND_FILE@898$ LIB$DELETE_FILE@ 4  SENDMAIL@<X LIB$DELETE_FILE@dPP[@CAPTIVEP^LH FOR$BJTEST^P FOR$WRITE_SF FOR$IO_END- FOR$WRITE_SF FOR$IO_ENDOPEN_BULLDIR_SHAREDTREADDIR\k\V FOR$WRITE_SF FOR$IO_END CLOSE_BULLDIR CLOSE_BULLDIRh CLI$PRESENTPxLIB$DELETE_FILEˈFOR$OPENk FOR$WRITE_SF FOR$IO_ENDV˸ CLI$PRESENTP1)Ʒ;1TRIMPW ^( ?n^(Ƥn ~W^(WƘnWYY\}Date: ~\Y,Yn PQ^TRIMPX^(Ƥn ~X^(XƘnX\\W}Date: ~W\,\n PQ^1\YYXXTRIMPW^(Kn^(Ƥn ~W^(WƘnWZZX}Date: ~XZ,Zn PQ^1YYTRIMP\ ^( an^(Ƥn ~\^(\Ƙn\WWY}Date: ~Y\,\n PQ^TRIMPW^(Ƽn ~ ^( ưn^(mn^(Ƥn ~W^(WƘnW\&\Z}Date: ~ZW,Wn PQ^\\\\TRIMPY ^( {nY^(YnYZ ZW,Wn PQ^ FOR$WRITE_SFTRIMP FOR$IO_T_DS FOR$IO_END CLI$PRESENTP\OPEN_BULLFIL_SHARED< GET_BULL_LINEի)\ FOR$WRITE_SFZZ$($ FOR$IO_T_DS FOR$IO_END, GET_BULL_LINE\ FOR$WRITE_SF( FOR$IO_T_DS FOR$IO_ENDի)W\ FOR$WRITE_SFW@D@ FOR$IO_T_DS FOR$IO_END,W  \ FOR$WRITE_SF  FOR$IO_T_DS FOR$IO_ENDի FOR$WRITE_SFHLH FOR$IO_T_DS FOR$IO_END,8  X CLI$PRESENTPh CLI$GET_VALUEPkիxs GET_BULL_LINEի FOR$WRITE_SFˌːˌ FOR$IO_T_DS FOR$IO_END˔ FOR$CLOSE CLOSE_BULLFIL˜TRIMPY,  ˤTRIMPYZZYZXH "Y@`H ZWW^(WJ nWV"~VWZ^(Z nZ\W\X,Xn  PQ^ZYZV CLI$_ABSENT\VWW˴F˸Z ˼ CLI$GET_VALUEЫ ZP\ZVVVQ,AVWXXWXP@"XSS^(SHn^SZ""~ZVX^(XnX\V\Z,Zn PQ^XWX CLI$PRESENTPMAILEDITԫ LIB$FIND_FILEPk LIB$INDEXPP@1,LIB$DELETE_FILE FOR$WRITE_SF FOR$IO_ENDY DISABLE_PRIVSW<@DSENDMAIL ENABLE_PRIVS`LIB$DELETE_FILEY;P1995 (DELETED) Expires on shutdown Permanent Expires: / SystemFrom: Subj: BULLETIN message.5 MAIL CLI$_ABSENTCAPTIVE FOR$BJTESTOPEN_BULLDIR_SHAREDREADDIR CLOSE_BULLDIR CLI$PRESENTLIB$DELETE_FILEFOR$OPENTRIMOPEN_BULLFIL_SHARED GET_BULL_LINE CLI$GET_VALUE FOR$CLOSE CLOSE_BULLFILMAILEDIT LIB$FIND_FILE LIB$INDEX DISABLE_PRIVSSENDMAIL ENABLE_PRIVS$CODE$PDATAh$LOCALPOINT REMOTE_FOLDER NEWS_HEADER_INFOBULL_DIR INPUT_BUFFERNEWS_DIR FOR$IO_END FOR$IO_T_DS FOR$WRITE_SF:$PCPwP PPPdPPVYPIP-PU PPViPiP9xPSPEP4P&P PXPJ P/JPfNP sP0P PCP01PXPkfPYoP zPEPPS$ PCwPTP%Oww1.r013MAILEDIT0130-Sep-1995 12:52DEC Fortran V6.1-68MAILEDITYP/ ERROR: /EDIT not allowed from CAPTIVE account.) Could not activate editor.MAILEDITQ MAIL$EDITVMSMAIL_PROFILESYS$SYSTEM:VMSMAIL_PROFILE.DATACALLABLE__NL:0P  PPP$T ZxZ SYS_TRNLNM@Pdt d FOR$OPEN@t FOR$OPEN@ $$ `PPXP P PXPXhPPPPPt|(0`, EDT$EDIT@X0XXX EDITMESSAGE@X0X ERROR_TRAPHBULLETIN_SUBCOMMANDSQ  O'P$[^}PQP }PQPLCAPTIVEP FOR$WRITE_SF FOR$IO_END-P n1\ SYS_TRNLNMP1xFOR$OPENk1˴REC_LOCKP~~2  FOR$READ_KF< FOR$IO_T_DS FOR$IO_ENDPRRk˼ FOR$CLOSEk1,e˛ |TRIMP|QQ~RR^(Rˀn^SV ^( nV W,Wn PPQ^,n |~VVVW,WF| | STR$UPCASE, P,TRIMP,  P, DISABLE_PRIVSDECLARE_CTRLC_ASTTRIMP1 LIB$INDEXP1@,O P-P, TRIMPVTRIMP^(P,n^SWݏ "" WXV^(VnVWXWV$@~VX,Xn PQ^ TRIMPWTRIMP^(P,n^SV ~VX< VV^(VnXV ~VXW^(WnWVXVW$@~WX,Xn PQ^ LIB$SPAWN1$TRIMP,  P4 LIB$INDEXPPVԭ@TRIMPXHTRIMPY^(nVVXX^(XFnXWWXXPX^T^(nVYY^(YFnYZZXXXX^\`LIB$FIND_IMAGE_SYMBOL^Pkk1ԫp LIB$FIND_FILEPT-P TˈEDT$EDIT˔EDT$EDITTЫˬ˨ EDITMESSAGEЫ˼˸ EDITMESSAGE LIB$ESTABLISH CLI$DCL_PARSEPk LIB$REVERT4 FOR$WRITE_SF FOR$IO_ENDCANCEL_CTRLC_AST ENABLE_PRIVSPCALLABLE_EDTSHR$EDIT MAILEDITBULLETIN_SUBCOMMANDS ERROR_TRAPCAPTIVE SYS_TRNLNMFOR$OPENREC_LOCK FOR$CLOSETRIM STR$UPCASE DISABLE_PRIVSDECLARE_CTRLC_AST LIB$INDEX LIB$SPAWNLIB$FIND_IMAGE_SYMBOL LIB$FIND_FILEEDT$EDIT EDITMESSAGE LIB$ESTABLISH CLI$DCL_PARSE LIB$REVERTCANCEL_CTRLC_AST ENABLE_PRIVS$CODE$PDATA$LOCALL HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGES COMMAND_LINE FOR$IO_END FOR$IO_T_DS FOR$READ_KF FOR$WRITE_SF.PUPcPrPP4P(PPgP=%PiP PPPPXPiPLPHP~hPkP vP P$PPPqeww11r015 MAIL_ERROR0130-Sep-1995 13:13DEC Fortran V6.1-68 MAIL_ERROR MAIL_ERRORDPP[޼k SYS$PUTMSGPX  MAIL_ERROR SYS$PUTMSG$CODE$PDATA$LOCALww1`jr014 MAKE_CHAR0130-Sep-1995 13:02DEC Fortran V6.1-68 MAKE_CHAR MAKE_CHARNP P[Ь޻Rмޢ  P@ J  MAKE_CHAR,$CODE$PDATA$LOCAL ,ww1 r010MATCH0130-Sep-1995 12:50DEC Fortran V6.1-68 MATCH MATCHP ,P [}PQP}PQP Ь  $мRмSTUVS޻$WP@$XUYYQUUQQ(E,0 LIB$INDEXQPQQRQPRQPTRPYUSVЫPX MATCH LIB$INDEX$CODE$PDATA@$LOCAL??Po~P PP PP P P( ww1¬r012MBX_AST0130-Sep-1995 13:04DEC Fortran V6.1-68MBX_ASTMBX_ASTPP  $$, P [ V޼Wf121XH:XHP`~XRBXPPYYYQ AY XYI=YXXYP@ @/XXYQARb~XTDXX XP @ X( GET_PROXY_USERNAMEg^8( BULL_CONNECT^f158g^@<READ_MBX^D LIB$MOVC3QQ2RA PRQQQkT DISCONNECTg^`\READ_MBX^A MBX_ASTGET_PROXY_USERNAME BULL_CONNECTREAD_MBX LIB$MOVC3 DISCONNECTR$CODE$PDATA|$LOCALL HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_RE C NEW_MESSAGESDQREADBUFMBXBUFP"P.POP jP~P%PPPqP(P PPPHP*P4P G;Rww1r010MERGE0130-Sep-1995 13:05DEC Fortran V6.1-68 MERGE MERGEPpPP    d4ddph  lhxlhpp,PQGENERAL %'dPPd[^d[^޼VfPL FILE_LOCKPWXTRIMPX^(nX^(XnXZZXX`XW^dhFOR$OPENW^f FOR$WRITE_SU< FOR$IO_X_SE FOR$IO_ENDPRRfCONVERT_HEADER_FROMBINd[^޼Yii1(d˼READDIR COMPARE_BTIMPXX(dCONVERT_ENTRY_FROMBIN GET_MSGKEY FOR$WRITE_SU4 FOR$IO_X_SE FOR$IO_ENDPWWi( ( (d1O FOR$CLOSEd[^( (  COMPARE_DATEPZ( ( Z COMPARE_TIMEP( X\VVVȈ( Ș( ȤèPȄ`ȀȀ GET_MSGKEY FOR$WRITE_SU4 FOR$IO_X_SE FOR$IO_ENDPWWd[^޼Z  UPDATE_LOGINj1READDIRVV1~~?  FOR$READ_KU FOR$IO_ENDPRRjCONVERT_HEADER_TOBINFOR$REWRITE_SU< FOR$IO_X_SE FOR$IO_ENDPTTj1( FOR$CLOSEԭ4TRIMPW<TRIMP^(nW^(WnWYYWWDW^H}.BULLDIR~­^(nЭXXWWLW^PTLIB$RENAME_FILE^` FOR$CLOSEh GET_MSGKEY FOR$WRITE_SU4 FOR$IO_X_SE FOR$IO_ENDPRRj( ( V1t FOR$CLOSEP.TMPDIR MERGE INITIALIZE_MERGE FILE_LOCKFOR$OPENTRIMCONVERT_HEADER_FROMBIN  ADD_MERGE_TOREADDIR COMPARE_BTIMCONVERT_ENTRY_FROMBIN GET_MSGKEY FOR$CLOSE ADD_MERGE_FROM COMPARE_DATE COMPARE_TIME VADD_MERGE_REST UPDATE_LOGINCONVERT_HEADER_TOBINLIB$RENAME_FILE$CODE $PDATA$LOCAL BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1BULL_DIR INPUT_BUFFERNEWS_DIR FOR$IO_END FOR$IO_X_SE FOR$READ_KU FOR$WRITE_SUFOR$REWRITE_SU P .PEwPPPP P(PPPPP P3PuP]PPPPjP Pww1$r011MINGT00130-Sep-1995 13:04DEC Fortran V6.1-68 MINGT0 MINGT0CP[ռмռммPPмPPЫPE MINGT0;$CODE$PDATA$LOCAL P P!P#P;ww1ǫr016 MINUTE_DIFF0130-Sep-1995 13:02DEC Fortran V6.1-68 MINUTE_DIFF MINUTE_DIFFP    P[Ь Ь(4޼@8LIB$DAY޼PHLIB$DAYkRRPiPPPP_PPP)PGPZPPP PPPPPPP .PA1PQPPTPE5PWPP@PP`6PPPPP ww1kr01=MODIFY_SYSTEM_LIST0130-Sep-1995 12:50DEC Fortran V6.1-68MODIFY_SYSTEM_LIST PMODIFY_SYSTEM_LIST*SYSTEMSYS$NODE:-*SYSTEM 

PP P#PJP gP rP`vPP PPPPPg'P^8P#FP OP ZPcPnPPPP3P-P.P0*POP'RP$UP{PPPPP4*PBPJP NPEVP=]PuPPpPgP[PX!PPP PYP*PgP rPlP7P P PPP$P3PHPWPHPP#P PP &PH*P0P ;P3KPPPPP'P$PPPT PO P P6& P8 P@ PE P P PX P` Pf Pk Ph{ P P( P  P  P PC P  P  P P  P|0 P < P W P"d Pr P P1 P/ P} Ps Pg+ P[ P  P7 P$ P P P P P  P# P/ P@? P0t PC P0 P P  P Pb PN P&5 PT P,X P c Pf P  P  P  P P P P PL PG PB P>P P.P{PEPBPP%PPP $PKPPPPKTP3XP/P #ww1 $br012NEWNEWS0130-Sep-1995 13:08DEC Fortran V6.1-68NEWNEWSNEWNEWSP NEXTHEAD$P 8@x$88H` NEWS_WRITE@x8 NEWS_WRITE@%08L NEWS_WRITE@ NEWS_WRITE@8dP,PQGENERAL %' PP[Ь$kV޼Wg 1 18 OTS$CVT_L_TIPVP OTS$CVT_L_TIP , V}~-~}~ ^(  nhV^l&p NEWS_WRITEV^Px NEWS_READP) 1ˀ NEWS_READP TT U-UD  .1g1UˈD ˌ˘ LIB$INDEXPYY VV QQVVˤA ˨ˬ OTS$CVT_TI_L YYY SSI  NEWS_TIMECONVERT_FROM_GMT޼ COMPARE_BTIMPЫg NEWS_READP15gg OTS$CVT_L_TIPX}~^(n  X^  NEWS_WRITEX^P NEWS_READP1 1 '1  OTS$CVT_L_TIPY}~^(n 8 Y^<@ NEWS_WRITEY^PH NEWS_READP) 1X NEWS_WRITEP` NEWS_READP RRSShB lx LIB$INDEX PP UUPP˄E ˈˌ OTS$CVT_TI_LPѫ k) 1( k) kkˠH OTS$CVT_L_TIPV}~^(n ˸ V^˼ NEWS_WRITEV^P NEWS_READP) ԫ (NEWS_WRITEP NEWS_READP RRSSB  LIB$INDEX PP UUPPE   OTS$CVT_TI_LkXXVԫk g1ի1ѫ V1 QQRR A $0 LIB$INDEX PP TTPP<D @D OTS$CVT_TI_LPX NEWS_HEADERի`CONVERT_FROM_GMT޼lh COMPARE_BTIMPg ZZ g ѫ V| NEWS_WRITEP˄ NEWS_READP)  ԫ˔) NEWS_WRITEP˜ NEWS_READPԫ1gˤ OTS$CVT_L_TIPZ}~^(#n ˼ Z^ NEWS_WRITEZ^P NEWS_READP PXHDR DATE 22HEAD 500223STAT  NEWNEWS OTS$CVT_L_TI NEWS_WRITE NEWS_READ LIB$INDEX OTS$CVT_TI_L NEWS_TIMECONVERT_FROM_GMT COMPARE_BTIM NEWS_HEADER$CODE($PDATA$LOCALBULL_DIR INPUT_BUFFERNEWS_DIR BULL_FOLDER BULL_*FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1BUFFER REMOTE_FOLDERXHDRPOINT0P@\PPD,@Ld,H\\PdPdH\0\D\\hHTHtXX|tlBULLETIN_SUBCOMMANDStXX,PQGENERAL %'PH[^< SYS$GETTIMALLPRIV޼HDDELETE-_EXPIRED_NEWSFOR$EXIT SEND_POST NEWS_LISTUPDATE_LOCAL_NEWSL INIT_QUEUEЫOPEN_BULLFOLDER_SHAREDVkk1XREAD_FOLDER_FILEk1h LIB$INDEXPR| LIB$INDEXPSRSRRQQPPP˘AD˜˨ LIB$INDEXPSRSSˈBDˌː TEST_NEWSPBD@VЫ˸˴ WRITE_QUEUE1dCLOSE_BULLFOLDERV NEWS_LOGINPFOR$EXITЫWXWV1WЫ READ_QUEUE SELECT_FOLDER(,h( Ȕ. LIB$INDEXPPQ,Q@D PD LIB$INDEXP,PD PDk1YOPEN_BULLNEWS_SHAREDTRIM,PD ,TRIMP D$(READ_FOLDER_FILE_KEYNAMECLOSE_BULLNEWS(PDDk4CONNECT_REMOTE_FOLDERk(hk-  ȴROPEN_BULLFOLDER@READ_FOLDER_FILE_KEYNAMER, ȔLREWRITE_FOLDER_FILECLOSE_BULLFOLDER1ȴ1k1ȴY1 QYȴQYQRRYYRR~^XT OTS$CVT_L_TI/^lTRIMP^(n}~ ~­^(nY^(nYZ,Zn PQ^ȴYt CLI$DCL_PARSEˀMOVEOPEN_BULLFOLDERˈREAD_FOLDER_FILE_KEYNAMEիY˔REWRITE_FOLDER_FILECLOSE_BULLFOLDER1FOR$EXIT PNONENONEFEEDQCOPY/ORIGINAL Q-LAST  NEWS2BULLBULLETIN_SUBCOMMANDS SYS$GETTIMALLPRIVDELETE_EXPIRED_NEWSFOR$EXIT SEND_POST NEWS_LISTUPDATE_LOCAL_NEWS INIT_QUEUEOPEN_BULLFOLDER0_SHAREDREAD_FOLDER_FILE LIB$INDEX TEST_NEWS WRITE_QUEUECLOSE_BULLFOLDER NEWS_LOGIN READ_QUEUE SELECT_FOLDEROPEN_BULLNEWS_SHAREDTRIMREAD_FOLDER_FILE_KEYNAMECLOSE_BULLNEWSCONNECT_REMOTE_FOLDEROPEN_BULLFOLDERREWRITE_FOLDER_FILE OTS$CVT_L_TI CLI$DCL_PARSEMOVE8$CODE)$PDATA$LOCAL BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1 COMMAN1D_LINEBUFFER REMOTE_FOLDER+PePtPPiPdP<P PP P.PPP P PIP<?PNPUP_PtP {PPi8ww1`Ar016 NEWS_ACCESS0130-Sep-1995 12:56DEC 2Fortran V6.1-68 NEWS_ACCESS NEWS_ACCESSP_ dPPP||||||t|dT| LAST_INDEX@PPBULL_DIR: G'BULL_DIR: G'BULLUSER.DAT D'QBULLFOLDER.DAT B'QBULLINF.DAT E'QPBULLNEWS.DAT D'Q`BULL_DIR: G'P P[}PQP}PQ P, P4TRIMPЫV3WVWTD._DVWD LIB$INDEXP,P PPTRIMPVXTRIMVVP-PF _`TRIMP,P PԫhTRIMP1VxTRIMP pTRIMP^(n« ^( n X«^(nXWWˀWV^˄ˈ LIB$FIND_FILEV^Pˠ LAST_INDEXݞpX,n P,X P1gP.ACCESS NEWS_ACCESSTRIM LIB$INDEX LIB$FIND_FILE LAST_INDEXE$CODE $PDATA$LOCAL0FILES8BPNPPP 4P+&P 1P /#.Eww1r01:NEWS_CREATE_AST0130-Sep-1995 13:04DEC Fortran V6.1-68NEWS_CREATE_ASTNEWS_CREATE_ASTPP[޼PPkkQAk WRITE_ASTkRBP READ_CHAN DISCONNECT NEWS_CREATE_AST WRITE_AST READ_CHAN DISCONNECT 5I$CODE$PDATA $LOCALPPROCBUFDQREADBUFP"?PIww1r014 NEWS_FEED0130-Sep-1995 12:47DEC Fortran V6.1-68 NEWS_FEED NEWS_FEEDP<PPD ,PQGENERAL %'P[ԫ LIB$INDEXPPTTRIMPUUVTUTWGD>VTGD%G6D@GD:GDAGDߏZTUTTVЫP  NEWS_FEED LIB$INDEXTRIM$CODE$PDATA($LOCAL BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1OPy0PW>PCP@MP2XP'bPmP xP|PP3'Y dww1;r01>NEWS_FIND_SUBSCRIBE0130-S7ep-1995 13:08DEC Fortran V6.1-68NEWS_FIND_SUBSCRIBENEWS_FIND_SUBSCRIBEX ,PQGENERAL %'P[PPQ2ARR ,P_PF NEWS_FIND_SUBSCRIBE1$CODE$PDATA$LOCALL HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGES BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOL 8DER_DEFAULT NEWS_FOLDER1 P)P1ww1`@r01?NEWS_FIND_SUBSCRIBE10130-Sep-1995 13:08DEC Fortran V6.1-68NEWS_FIND_SUBSCRIBE1 NEWS_FIND_SUBSCRIBE1X ,PQGENERAL %'P[PPQ2ARR,P_PG NEWS_FIND_SUBSCRIBE11$CODE$PDATA$LOCALL HEADER_INFOL BULL_USER 9 FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGES BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1 P)P1ww1Er01BNEWS_GET_NEWEST_MESSAGE0130-Sep-1995 13:08DEC Fortran V6.1-68!NEWS_GET_NEWEST_MESSAGE#NEWS_GET_NEWEST_MESSAGEP: ,PQGENERAL %'P[kNEWS_FIND_SUBSCRIBEPQAR޼QRaaP_a af NEWS_GET_NEWEST_MESSAGENEWS_FIND_SUBSCRIBEA$CODE$PDATA$LOCALL HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGES BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1%P1P :P ;"Aww1@Rr01CNEWS_GET_NEWEST_MESSAGE10130-Sep-1995 13:08DEC Fortran V6.1-68"NEWS_GET_NEWEST_MESSAGE1$NEWS_GET_NEWEST_MESSAGE1xP ,PQGENERAL %'P[kNEWS_FIND_SUBSCRIBE1PQ޼RAbP_bh NEWS_GET_NEWEST_MESSAGE1NEWS_FIND_SUBSCRIBE11$CODE$PDATA$LOCALL < HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGES BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1)P1ww1r01=NEWS_GET_SUBSCRIBE0130-Sep-1995 13:08DEC Fortran V6.1-68NEWS_GET_SUBSCRIBENEWS_GET_SUBSCRIBE=PP|[kR޼S޼TckdcRUR_UP@Vަf COPY2V_UcRR_RQ2AcRP@dcRk |NEWS_GET_SUBSCRIBECOPY2$CODE$PDATA$LOCALL HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGES4P ,PG8P+qPwPPP3'<@ >ww1Xr015 NEWS_GROUP0130-Sep-1995 13:08DEC Fortran V6.1-68 NEWS_GROUP NEWS_GROUPP STATPPD(< Th   ?     NEWS_WRITE@8@T,PQGENERAL %'P [޼V LIB$INDEXPfW0 LIB$INDEXPP^(PDn^SX^(nXYYWPP˸G˼ FIRST_ALPHAP PPPR,R@  V1X1ЭY) IJ1XW,WH F^(nY ~YVXWW^(WHnWZVZY,Yn PQ^TRIMPV1V1ЭWG /1ЭZJ FIRST_ALPHAPYTRIMPVYYYQQ^(QIn^SW ~WZV^(V nVYZYX,Xn  PQ^ TRIMP^GET_FROM^VV1;ԼPSubject:Subj: Date:Expires:From:From: Message-ID:Newsgroups:Followup-To:References:F  NEWS_HEADER LIB$INDEX NEWS_READ FIRGST_ALPHA NEWS_TIMEGET_FROMTRIMP$CODEU$PDATA$LOCALBULL_DIR INPUT_BUFFERNEWS_DIRBUFFERREF NEWSGROUPSFOLLOWUP NEWS_HEADER_INFO HEADER_SEEN LFEP)PPPUPPXP2pP zPPoP?P,$P 0P?CP,lPzPP/PFP\PPPMPAP_#PLlPP_ HPLPhPP P$POPPPCPthRPww1̥r014 NEWS_LIST0130-Sep-1995 13:08DEC Fortran V6.1-68 NEWS_LIST NEWS_LISTP  LISTBULL_SPECIAL_NEWS_UPDATEDEFINED 03:5-NOV-2956 00:00:00.00. -BULL_NEWS_RECIOUNT,P,,h,,08t NEWS_WRITE@6 SYS_TRNLNM@6 SYS_TRNLNM@>t 4$CC SYS_BINTIM@d\L(\<DXlJ\t|d^^ SYS_BINTIM@p|,L((|ZLp\CC SYS_BINTIM@d| | | T| | T|$(((|(|| K T^^ SYS_BINTIM@$| $d$,( L`6d` SYS_TRNLNM@l6 SYS_TRNLNM@,PQGENERAL %' PP [^\ LIB$DATE_TIMEd NEWS_LOGINPt NEWS_WRITEP| NEWS_READP)r˔ SYS_TRNLNMPR˨ LIB$INDEX\P\\QQR˴ INIT_QUEUE k OPEN_BULLNEWS_LSHAREDREAD_FOLDER_FILE_KEYNUM_TEMPЫ,a ,<,<h| SYS_BINTIM GET_MSGKEY FOR$WRITE_SUL FOR$IO_X_SE FOR$IO_ENDP\\|h<hhh NEWS_READP1SSTU-TE .1\\PPL LIB$INDEXp\,QQ\\QQQRRQ,QB ,խREAD_FOLDER_FILE_KEYNAME_TEMPM\QQRRSSTTC , LIB$INDEXRPPTSTQQ8C<@ OTS$CVT_TI_LTTRRQQTBXd LIB$INDEXTP>pURUQQpBtx OTS$CVT_TI_Ldl˔ SYS_BINTIMUUիխˠ FOR$JIBCLRP|իխ1ˬ STR$UPCASEY\WXШhhYWWVFh.,Wh ,h˸REC_LOCKP~~  FOR$READ_KU$ FOR$IO_X_SE FOR$IO_ENDPRRYYVWhh\,TTUU^(UDNn^SV\QQ+RRQQ^(QBn^SZVZ,Zn $@PQ^VVZ,ZF $@ԫիխREC_LOCKP~߫ FOR$READ_KU FOR$IO_ENDPVVի֨hRШh,YШ|| FOR$JIBCLRP| LIB$INDEXWPȀ€Ȉˆ|€ˆ GET_MSGKEY SYS_BINTIM GET_MSGKEYâdlSSSTTTh FOR$BJTESTPԢhԢdԢl„Ԣx\,,\\­\\\$ FOR$WRITE_SUL FOR$IO_X_SE FOR$IO_ENDPUOU֨h  FOR$BJTESTP, FOR$BJTESTPk<8 WRITE_QUEUE1H FOR$BJTESTP1T FOR$BJTESTPZѪxlѪdlʄdʄlԪxdlFOR$REWRITE_SUL FOR$IO_X_SE FOR$IO_ENDPYYѪxlkd` WRITE_QUEUE1p FOR$BJTESTP1V\,1XXWW^(WHnW\\+ZZ\\^(\Jn\YU-$@ YnURS^UW^(WHnWY\^(\Jn\VYVW,Wn $@PQ^VXXZ-$@ PZH,ZH $@VVdlVYdY\l\\YYVVFOR$REWRITE_SUL FOR$IO_X_SE FOR$IO_ENDPWW1KЭ|READ_FOLDER_FILE_KEYNUM_TEMPZhhFOR$REWRITE_SUL FOR$IO_X_SE FOR$IO_END1eQuˈREAD_FOLDER_FILE_KEYNUM_TEMPRТ,Sի1˔READ_FOLDER_FILE_TEMPիS, FOR$DELETE˜READ_FOLDER_FILE_TEMPТ,Sի1ˤ FOR$BJTESTP1´ldh˰ NEWS_GROUPի1˸ FOR$BJTESTP1 FOR$BJTESTPѪx´´ʄʄ´ԪxFOR$REWRITE_SUL FOR$IO_X_SE FOR$IO_ENDPTTѪx´k WRITE_QUEUEѪhd´l SYS_BINTIMREWRITE_FOLDER_FILE_TEMRP1ѫ FOR$BJTESTP FOR$DELETEԫѫѪldժdCLOSE_BULLNEWSТ,, SELECT_FOLDEROPEN_BULLDIR_SHAREDREADDIR CLOSE_BULLDIRd\Y\YYOPEN_BULLNEWS_SHARED READ_FOLDER_FILE_KEYNUM_TEMP FOR$DELETE1Dk84 WRITE_QUEUECLOSE_BULLNEWS T SYS_TRNLNMPRECOUNTrP215F  NEWS_LIST LIB$DATE_TIME NEWS_LOGIN NEWS_WRITE NEWS_READ SYS_TRNLNM LIB$INDEXS INIT_QUEUEOPEN_BULLNEWS_SHAREDREAD_FOLDER_FILE_KEYNUM_TEMP SYS_BINTIM GET_MSGKEYREAD_FOLDER_FILE_KEYNAME_TEMP OTS$CVT_TI_L FOR$JIBCLR STR$UPCASEREC_LOCK FOR$BJTEST WRITE_QUEUEREAD_FOLDER_FILE_TEMP NEWS_GROUPREWRITE_FOLDER_FILE_TEMPCLOSE_BULLNEWS SELECT_FOLDEROPEN_BULLDIR_SHAREDREADDIR CLOSE_BULLDIRRECOUNT; $CODEu$PDATA$LOCAL BULL_FOLDER BULL_FOLDER1 NEWS_FOLDERT NEWS_FOLDER_DEFAULT NEWS_FOLDER1BUFFER LOCAL_UPDATENEWSLIST FOR$DELETE FOR$IO_END FOR$IO_X_SE FOR$READ_KU FOR$WRITE_SUFOR$REWRITE_SUFOR$REWRITE_SUP*P6PEPPfP.P QPzPP PPPPPUP\PWPA P,P!;PPPWPPCP>P$PPP0?POPPPPOPPU)PPP%P2Py@PgDPcKP\SP?[P7qPPPKP;PP3RP1qPPPP,P(P$P8PVPhPnPPyPjPPPcPXPOP0P'P.P>P1GPMP"UP]PqPyPPPuPoPhPcP*P 2 PXL V; ww1Wr015 NEWS_LOGIN0130-Sep-1995 13:08DEC Fortran V6.1-68 NEWS_LOGIN NEWS_LOGINGPInterNetNewsmode readerXHDRP $,  @ NEWS_WRITE@X NEWS_WRITE@PPP[1ԫkSTART_NEWS_TIMER NEWS_WCONNECTPCANCEL_NEWS_TIMERP NEWS_READPPQQRR A$0 LIB$INDEXPD NEWS_WRITEPPL NEWS_READPP\ NEWS_WRITEPPd NEWS_READPPT)TTPP500  NEWS_LOGINSTART_NEWS_TIMER NEWS_CONNECTCANCEL_NEWS_TIMER NEWS_READ LIB$INDEX NEWS_WRITE$CODE!$PDATAp$LOCALNEWS_CONNECTEDXHDR XBUFFER HEADER_SEEN LF>P:PJPxPPPPP+ww15r016 NEWS_LOGOUT0130-Sep-1995 13:08DEC Fortran V6.1-68 NEWS_LOGOUT NEWS_LOGOUT&PNEWS_DISCONNECTo NEWS_LOGOUTNEWS_DISCONNECT$CODE$PDATA$LOCALNEWS_CONNECTED Y  ww1 |r01:NEWS_NEW_FOLDER0130-Sep-1995 13:08DEC Fortran V6.1-68NEWS_NEW_FOLDERNEWS_NEW_FOLDER P-Ph  SYS_BINTIM@p,PQGENERAL %'P|[~? FOR$READ_KU FOR$IO_X_SE FOR$IO_ENDPRRV(,($]@V~k FOR$REAZD_KU FOR$IO_ENDP\\Vhh,( SYS_BINTIM FOR$WRITE_SU FOR$IO_X_SE FOR$IO_ENDPS?4 FOR$READ_KU FOR$IO_T_DS FOR$IO_ENDhhFOR$REWRITE_SU FOR$IO_X_SE FOR$IO_END8 |NEWS_NEW_FOLDER SYS_BINTIM$CODE$PDATA<$LOCAL BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1 FOR$IO_END FOR$IO_T_DS FOR$IO_ [X_SE FOR$READ_KU FOR$READ_KU FOR$WRITE_SUFOR$REWRITE_SU% P!OP,RPpPP*Yww1 "r01@NEWS_NEW_NOTIFICATION0130-Sep-1995 13:08DEC Fortran V6.1-68NEWS_NEW_NOTIFICATIONYP" There are new messages in folder )." There are new messages in folder ).!NEWS_NEW_NOTIFICATIONQBULL_NEWS_SERVERDE\FINED PPD\m\ SYS_TRNLNM@$m SYS_TRNLNM@T,,,,u,,uX ,,PQGENERAL %'P[޼Vf, SYS_TRNLNMP8NEWS_GET_SUBSCRIBEOPEN_BULLNEWS_SHARED,n PDWXYի1Zի]1Z1DNEWS_GET_SUBSCRIBE(PDDի1ZPREAD_FOLDER_FILE_KEYNUMЫZЫ, FOR$UNLOCK)PDبDWȴZkȴ~^`\NEWS_UPDATE_NEWEST_MESSAGE^ZȴkȴȴZZիdTEST_BRIEF_FLAGPl TEST_SET_FLAGPZ tTEST_BRIEF_FLAGP| TEST_SET_FLAGP˄ COMPARE_BTIMPZ1ի FOR$WRITE_SF˘ LIB$INDEXPPˤD˨ˤ FOR$IO_T_DS^ FOR$IO_ENDf1ի1ˬTEST_BRIEF_FLAGP˴ TEST_SET_FLAGP) FOR$WRITE_SF LIB$INDEXPPD FOR$IO_T_DS FOR$IO_ENDCLOSE_BULLNEWS SELECT_FOLDER LOGIN_FOLDERШ,,TEST_BRIEF_FLAGPTԫREADNEWREDISPLAY_DIRECTORYTOPEN_BULLNEWS_SHARED1WREORDER_SUBSCRIBECLOSE_BULLNEWS NEWS_NEW_NOTIFICATION SYS_TRNLNM_NEWS_GET_SUBSCRIBEOPEN_BULLNEWS_SHAREDREAD_FOLDER_FILE_KEYNUMNEWS_UPDATE_NEWEST_MESSAGETEST_BRIEF_FLAG TEST_SET_FLAG COMPARE_BTIM LIB$INDEXCLOSE_BULLNEWS SELECT_FOLDER LOGIN_FOLDERREADNEWREDISPLAY_DIRECTORYREORDER_SUBSCRIBE$CODEw$PDATA$LOCAL BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1L HEADER_INFOL BULL_USER FOLDER_TIMES`SYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGESREADITPOINT LOGIN_BTIM FOR$UNLOCK FOR$IO_END FOR$IO_T_DS FOR$WRITE_SF;PRP8^P ePPPPP%P!PP(PPP PPP^ PYPP!P,P1P5@PKP VPcPsPDxP?PPPHP<Pv'PX;PDOP0_P oPPy am'ww1Vڥr014 NEWS_POST0130-Sep-1995 13:08DEC Fortran V6.1-68 NEWS_POSTP) ERROR: Posting not allowed.) is not a valid news group.)% ERROR: Server rejected your posting:)" Use /INDENT to change indentation&+ character. See Manager for permanent + change.b NEWS_POSTQ . POSTGROUPS,Do you still want to specify it? (default = Y) @%Subject: (none)BULL_NEWS_ORGANIZATIONDEFINEDEXPIRATIONFOLLOWUPHEADERnew textP,,P0   $   P  $\c NEWS_WRITE@ 4< CLI$PRESENT@ CLI$GET_VALUE@LLLLLd/TX GET_INPUT_PROMPT@$ $   d dDDD d   ` P\,e|"" NEWS_WRITE@2I2 SYS_TRNLNM@I SYS_TRNLNM@22 SYS_TRNLNM@$\< QTQ CLI$PRESENT@t\\f CLI$GET_VALUE@LLLee CLI$PRESENT@, NEWS_WRITE@,(8 NEWS_WRITE@d NEWS_WRITE@t NEWS_WRITE@lg NEWS_WRITE@  PMIT PLASMA FUSION CENTER l'IN%  ',PQGENERAL %' dPPPBULL_DIR: G'BULL_DIR: G'BULLUSER.DAT D'QBULLFOLDER.DAT B'QBULLINF.DAT E'QPBULLNEWS.DAT D'Q`BULL_DIR: G'P$P() 'P[^}PQ P}PQ(P$ T) uTT- }FOR$OPENkkkh FOR$READ_SFt FOR$IO_T_DS FOR$IO_ENDPRRk1TRIMPk FOR$REWIND SYS$GETTIMCONVERT_TO_GMT SYS$ASCTIMP , d  ^(n}p~, n  Q^y~v~s~p~.~m~^(gnd~,n $ Q^  ,#  $  NEWS_FEEDP NEWS_LOGINP1( NEWS_WRITEP10 NEWS_READP1) FOR$WRITE_SF FOR$IO_END11@ LIB$INDEXPX PԭTTiRIMPZLTRIMPV^(nXZZ^(ZH nZYYZXX^(X nXYZYWV^(VnVXWXYY\Y^`޼ ScxdFOR$OPEN^cˌ INIT_QUEUEЫ GET_PATHNAME˘ NEWS_FEEDP1ˠTRIM P T~X^(XnXYYV^(nVYYYZ^ NEWS_WRITEZ^P1TRIMP NEWS_WRITEP1WTRIM~Z^(Z nZYYW ^( nW YY4YV^8< NEWS_WRITEV^P1 ^( mn ~^(gn ~d~,n dQ^d ,e dիT SYS_TRNLNMPh SYS_TRNLNMPktTRIMPիV«^(nЫY^(nYWW|WV^ˀ˄ NEWS_WRITEV^P1ZˌTRIMPX^(pnY ~YVX^(XdnXWVWY^(nYWW˔WZ^˘˜ NEWS_WRITEZ^P1Vˤ NEWS_FEEDP11- }1˴ CLI$PRESENTP1X˼ FIRST_ALPHAPYTRIMPW^(nZ ~ZV} ~VZ ~ZV WW^(W nWZVZW ~WV^( nVW ~WVYYRR^(RI n^SZVZW ^( nW ZZZX^ NEWS_WRITEX^P1 GET_EXDATE GET_EXDATE,    CLI$GET_VALUEqP LOWERCASEVTRIMP^(Pn^SY ^(  nY ZZZV^  NEWS_WRITEV^P10 CLI$PRESENTPVX8TRIM~Z^(ZnZVVZ^( nZXXXXW^\` NEWS_WRITEW^Pp NEWS_WRITEPVxTRIMPZ>~Z^(ZnZWWZ}cancel <~ZXXˀXV^˄ˈ NEWS_WRITEV^P˘ NEWS_WRITEPˠ NEWS_FEEDPr NEWS_READP)1i˰ FOR$CLOSEiV NEWS_WRITEP1kkB FOR$READ_SF߫ FOR$IO_L_Rt FOR$IO_T_DS FOR$IO_ENDPTTk- .,4 k NEWS_WRITEP1 NEWS_FEEDP1 NEWS_WRITEP1 NEWS_READP1)1i1E FOR$WRITE_SF FOR$IO_ENDm FOR$WRITE_SFOXXVVVsRRVVB FOR$IO_T_DS FOR$IO_ENDRTTB LIB$INDEXPq FOR$WRITE_SF FOR$IO_END FOR$WRITE_SF FOR$IO_END FOR$WRITE_SF FOR$IO_END1 PZǏZ PЫ,X!SЫ VЫ$  READ_QUEUE,i80 SELECT_FOLDERi<ADD_LOCAL_NEWSV,XX,iLD SELECT_FOLDERS!X NEWS_WRITEP` FOR$CLOSEi- }lt FOR$CLOSEt STR$UPCASEuPnewgroupcancel.00340.POSTNewsgroups: REPath: ()From: From:Subject: cancel A<8 FOR$BITESTP) FOR$WRITE_SF FOR$IO_ENDTW>GHD FOR$IIBCLRPG1ѼT>DTP FOR$IIBSET߰PDWRSVQ>A`\ FOR$BITESTPVQ>Alh FOR$BITESTPkWRSV]Q>Axt FOR$BITESTPVQ>A˄ˀ FOR$BITESTPkWRSVQ>Aːˌ FOR$BITESTPWVP>@˜˘ FOR$BITESTPWWkkSTW>G˨ˤ FOR$IIBSETPGSTV>F˴˰ FOR$IIBCLRPFRTW>G˼ FOR$IIBSETPGRT>D FOR$IIBCLRPD1X FOR$WRITE_SF FOR$IO_END FOR$WRITE_SF FOR$IO_ENDV>FT FOR$BITESTP>D FOR$IIBSETPD>D FOR$IIBCLRPD>F FOR$BITESTP>D FOR$IIBSETPD>D FOR$IIBCLRPDUPDATE_USERINFO- NEWS_SET_USER_FLAGNEWS_FIND_SUBSCRIBEOPEN_BULLINF_SHAREDREC_LOCK CLOSE_BULLINF FOR$BITEST FOR$IIBCLR FOR$IIBSETUPDATE_USERINFOM$CODE$PDATA$LOCALL HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGES BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1 FOR$IO_END FOR$IO_T_DS FOR$IO_X_DA FOR$READ_KU FOR$WRITE_SF8$PNP5QP,PPPPPPMP. P<PEPbP9fP5jP1PPPP9P4P0P PP@P=P8P3PPyP<PZPwPPPPP.PMww1`r01:NEWS_SOCKET_AST0130-Sep-1995 13:04DEC Fortran V6.1-68NEWS_SOCKET_ASTNEWS_SOCKET_ASTPPNEWS_CREATE_ASTP[޼PPkkRBkQA NEWS_SET_CHAN>B NEWS_CREATE_BULLCPP DISCONNECT NEWS_SOCKET_ASTNEWS_CREATE_AST NEWS_SET_CHANNEWS_CREATE_BULLCP DISCONNECTQ$CODE$PDATA($LOCALPPROCBUFPNNTPP*EP" Qww1 sår014 NEWS_TIME0130-Sep-1995 13:08DEC Fortran V6.1-68 NEWS_TIME NEWS_TIMEP-.$P$< SYS_BINTIM@,Pd SYS_BINTIM@xP$[^}PQPkRTRIMRPRQAQQ0RSCQQ9RRP޼( SYS_BINTIMP2P P"ww1 >r01:NEW_NEWS_ACCESS0130-Sep-1995 12:56DEC Fortran V6.1-68NEW_NEWS_ACCESSNEW_NEWS_ACCESS<P XPPPppppphpPPBULL_DIR: G'BULL_DIR: G'BULLUSER.DAT D'QBULLFOLDER.DAT B'QBULLINF.DAT E'QPBULLNEWS.DAT D'Q`BULL_DIR: G'P P[}PQ P}PQP, P(TRIMPЫVWVWTD._DVW8 LIB$INDEXP,P PDTRIM PVLTRIMVVP-PF _TTRIMP,P PdTRIMPV\TRIMPW^(nV^(VnVYYVW^(WnWYVYX,Xn  PQ^P.ACCESSs NEW_NEWS_ACCESSTRIM LIB$INDEX$CODE $PDATA$LOCAL0FILESBPNPP#.ww1`Өr01>NOTIFY_REMOTE_USERS0130-Sep-1995 12:52DEC Fortran V6.1-68NOTIFY_REMOTE_USERSNOTIFY_REMOTE_USERSIPP \dPP[Ь ޼($ GET_MSGKEY0 READDIR_KEYGEkOPEN_BULLUSER_SHAREDkkRR8 FOR$BJTESTPD NOTIFY_USERSRkLREADDIR CLOSE_BULLDIR NOTIFY_REMOTE_USERS GET_MSGKEY READDIR_KEYGEOPEN_BULLUSER_SHARED FOR$BJTEST NOTIFY_USERS READDIR CLOSE_BULLDIRp$CODE$PDATAX$LOCALBULL_DIR INPUT_BUFFERNEWS_DIR REMOTE_FOLDER,PEP"PP(Cpww1ܝr017 NOTIFY_USERS0130-Sep-1995 13:02DEC Fortran V6.1-68 NOTIFY_USERS P NOTIFY_USERSQBULL_SYSTEM_FLAGSMAIL$SYSTEM_FLAGSP8   DP DP P 0    T SYS_TRNLNM@$h SYS_TRNLNM@$444 444,444 ,444 4@ ,4 dP ,PQGENERAL %'PP[мVˀTRIMPWxTRIMPXˈTRIMP^(P n^SY ^( 0nY Z ~ZY ~YZW^(W DnWYZYW}. From: ~WZX^(X 0nXYZYW^(=nWY ~YX ~XZ ~ZW~WY,Yn OPEN_BULLFOLDER_SHARED O OPEN_BULLUSER_SHARED ` OPEN_BULLDIR_SHARED q OPEN_BULLFIL_SHARED DISABLE_CTRLSET_BULLNEWSDIR_FILE FILE_LOCKFOR$OPENCONVERT_BULLNEWSDIR FOR$ERRSNSLIB$CREATE_DIR LIB$INDEX TIMER_ERRTRIMLIB$RENAME_FILE FOR$INQUIRE FOR$CLOSECONVERT_BULLFILESCONVERT_BULLDIRSREMOTE_READ_MESSAGEERROR_AND_EXITGET_REMOTE_MESSAGESET_BULLFIL_NAMEREC_LOCKCONVERT_BULLFILECONVERT_USERFILECONVERT_BULLFOLDERCONVERT_BULLNEWSCONVERT_INFFILE OPEN_FILE SYS_GETMSG$CODEv$PDATA$LOCAL0FILES BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1L HEADER_INFOL BULL_USER FOLDER_TIMESxSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGESBULL_DIR INPUT_BUFFERNEWS_DIRPOINT REMOTE_FOLDER DIR_POSITION NEWS_OPENBULLFILNEWSLISTDIRLISTP NEWSDIR_FILE FOR$IO_END FOR$IO_L_R FOR$IO_L_V FOR$IO_T_DS FOR$READ_DU FOR$WRITE_SF P P ,P =P NP _P pP PPPP P PP'PP PH P5HP \P tP!PP PPCPP+P %PV,P3;P\PePPPRPLP P8P PP PPPP-P{PSPNP,PPPPPFP8P;PMPQ[P8jPPPPgPLP P PPPPP 1PF?P8NPkP}PP P8P0P PAP8P$P K? ww1 r017 OPEN_NEW_TAG0130-Sep-1995 13:13DEC Fortran V6.1-68 OPEN_NEW_TAGOP Cannot create mark file. IOSTAT error = , Created MARK file: ) OPEN_NEW_TAGBULL_MARK-(P @  PPP SYS_TRNLNM@0 PdP SYS_TRNLNM_SYSTEM@0 PxP SYS_TRNLNM@0(    ZZ SYS_BINTIM@HLHH(    ZtZ SYS_BINTIM@$ "00 ,PQGENERAL %'P[^޼V< SYS_TRNLNMPff, \ , f PSYS_TRNLNM_SYSTEMPd SYS_TRNLNMPf DISABLE_PRIVSԭ1 XpTRIMPY ^( pnY^(YnYW WY ^( nY ZZxZX^|f˴ˀFOR$OPENX^f SYS_BINTIM GET_MSGKEY  FOR$WRITE_SUTAG_KEYP FOR$IO_L_VR FOR$IO_END1WTRIMPY ^( ynY^(YnYX XY ^( nY ZZZW^f@ FOR$OPENW^f` SYS_BINTIM FOR$WRITE_SU߫ FOR$IO_X_SE FOR$IO_ENDPSSf ENABLE_PRIVSf FOR$WRITE_SF FOR$IO_ENDЭkl FOR$ERRSNSk FOR$WRITE_SFf FOR$IO_L_V FOR$IO_ENDfx SYS_GETMSGkfˀ FOR$INQUIRE0 FOR$WRITE_SF˔TRIMP˜ˠ˜ FOR$IO_T_DS FOR$IO_ENDѫ ѫf\PBULL_MARK:SYS$LOGIN:.BULLMARK.NEWSMARK  OPEN_NEW_TAG SYS_TRNLNMSYS_TRNLNM_SYSTEM DISABLE_PRIVSFOR$OPENTRIM SYS_BINTIM GET_MSGKEYTAG_KEY ENABLE_PRIVS FOR$ERRSNS SYS_GETMSG FOR$INQUIREW$CODE$PDATA$LOCALL HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGES BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1 TAGSDBULLPAR REMOTE_FOLDER NEWS_MARK FOR$IO_END FOR$IO_L_V FOR$IO_T_DS FOR$IO_X_SE  FOR$WRITE_SF FOR$WRITE_SU FOR$WRITE_SUP*P FPfPP4PXP2jPPPZP#P PdPA>PKPQEWww1@Φr017 OPEN_OLD_TAG0130-Sep-1995 13:13DEC Fortran V6.1-68 OPEN_OLD_TAG8P Unable to open mark file. IOSTAT error = , OPEN_OLD_TAGQBULL_MARK -0P   4 d @    FpF SYS_TRNLNM@P0    4 4@88 ,<@8@ ,8 P8tP COMPARE_DATE@ 0000000 (0D0 h   RR SYS_BINTIM@  H <H80  D80  RR SYS_BINTIM@0  P8hP COMPARE_DATE@0000000080\  DRR SYS_BINTIM@ , ($,$, dP ,PQGENERAL %'P[` SYS_TRNLNMPkk, T , ^ VVl FILE_LOCKPWxTRIMPX ^( hnX^(XnXZ Z\ ^( n\ ZZˀZW^˄ˈFOR$OPENW^Vk1 FOR$JIBSETPREC_LOCKP ^^TAG_KEY ^~~  FOR$READ_KU FOR$IO_END]^PRRի FOR$JIBSETP REC_LOCKP ^^TAG_KEY 0^4~0  FOR$READ_KUP FOR$IO_X_SE FOR$IO_END]^PTT8 LIB$MOVC3ի,} H SYS$ASCTIMd COMPARE_DATEP  FOR$DELETEի,1p FOR$CLOSEXxTRIMP\ ^( qn\^(\n\W W\ ^( n\ ZZˀZX^˄ˈLIB$DELETE_FILEX^PWːTRIMP\˘TRIMPZ ^( hn\^(\n\Y Y\ ^( n\ XXˠXW^ˤ ^( }nZ^(ZnZ\ \X ^( nX \\˨\W^ˬ˰CONV$PASS_FILESW^˼CONV$PASS_OPTIONS CONV$CONVERTYTRIMPZTRIMPX ^( hnZ^(ZnZW WZ ^( nZ \\\Y^ ^( nX^(XnXZ Z\ ^( n\ ZZZY^LIB$RENAME_FILEY^WTRIMPXTRIMP\ ^( }nX^(XnXY YX ^( nX ZZZW^  ^( hn\^(\n\X XZ ^( nZ XXXW^LIB$RENAME_FILEW^Y$TRIMP\ ^( qn\^(\n\X XW ^( nW XX,XY^04LIB$DELETE_FILEY^V< FILE_LOCKPZHTRIMP\ ^( hn\^(\n\X XY ^( nY XXPXZ^TXFOR$OPENZ^Vˠ SYS_BINTIMˬ GET_MSGKEY  FOR$WRITE_SU ^^˼TAG_KEY ^ FOR$IO_T_V_DS FOR$IO_ENDPRRk  FOR$UNLOCKWkk1W FILE_LOCKPYTRIMPX ^( nX^(XnXV VX ^( nX ZZZY^FOR$OPENY^Wk<REC_LOCKP~~?D FOR$READ_KU߫@ FOR$IO_X_SE FOR$IO_ENDPTT\իL SYS$ASCTIMի1V`TRIMPX ^( nX^(XnXY YX ^( nX ZZhZV^lpFOR$OPENV^k˼REC_LOCKP FOR$READ_SU߫@ FOR$IO_X_SE FOR$IO_ENDPRRkk2lTlT FOR$WRITE_SU߫@ FOR$IO_X_SE FOR$IO_ENDPUUkl SYS_BINTIM FOR$WRITE_SU߫@ FOR$IO_X_SE FOR$IO_ENDPXXk FOR$CLOSE FOR$CLOSEW FILE_LOCKPVTRIMPY ^( nY^(YnYZ ZY ^( nY XXXV^ FOR$OPENV^W1X COMPARE_DATEP1d FOR$CLOSEZlTRIMPY ^( nY^(YnYV VY ^( nY XXtXZ^x|LIB$DELETE_FILEZ^PV˄TRIMPYˌTRIMPX ^( nY^(YnY\ \Y ^( nY ZZ˔ZV^˘ ^( nX^(XnXY YZ ^( nZ YY˜YV^ˠˤCONV$PASS_FILESV^˰CONV$PASS_OPTIONS˸ CONV$CONVERT\TRIMPXTRIMPZ ^( nX^(XnXV VX ^( nX YYY\^ ^( nZ^(ZnZX XY '^( nY XXX\^LIB$RENAME_FILE\^VTRIMPZTRIMPY ^( nZ^(ZnZ\ \Z ^( nZ XXXV^ ^( nY^(YnYZ ZX ^( nX ZZZV^ LIB$RENAME_FILEV^\TRIMPY ^( nY^(YnYZ ZV ^( nV ZZ Z\^$(LIB$DELETE_FILE\^W0 FILE_LOCKPX<TRIMPY ^( nY^(YnYZ Z\ ^( n\ ZZDZX^HLFOR$OPENX^WːREC_LOCKP~~?˘ FOR$READ_KU߫@ FOR$IO_X_SE FOR$IO_ENDPRR˨ SYS_BINTIMFOR$REWRITE_SU߫@ FOR$IO_X_SE FOR$IO_ENDPTTkkk FOR$WRITE_SF FOR$IO_ENDի˴ FOR$ERRSNSի FOR$WRITE_SFk FOR$IO_L_V FOR$IO_END SYS_GETMSG1*VYi,\OPEN_BULLNEWS_SHAREDk1REC_LOCKP~i FOR$READ_KU߫@ FOR$IO_X_SE FOR$IO_ENDPZZkk112WWV1W,NEWS_FIND_SUBSCRIBEP ѫ _ FOR$DELETE12VREAD_FOLDER_FILE_KEYNUM_TEMPի FOR$ERRSNSѫԫ 1R SSTTDUԥZZZ~^e LIB$GET_VM^WWW~^e ZERO_VM^UR2QQVի  FOR$DELETE FOR$UNLOCKٵiթT>Z2~^ SET_NEWS_TAG^TXީRނ$  SET_NEWS_TAGX1?\,CLOSE_BULLNEWSTPBULL_MARK:SYS$LOGIN:.BULLMARK.BULLMARK;-1.BULLMARKTMP.BULLMARK;1.NEWSMARK.NEWSMARK;-1.NEWSMARKTMP.NEWSMARK;1  OPEN_OLD_TAGTAG_KEY SYS_TRNLNM FILE_LOCKFOR$OPENTRIM FOR$JIBSETREC_LOCK LIB$MOVC3 SYS$ASCTIM COMPARE_DATE FOR$CLOSELIB$DELETE_FILECONV$PASS_FILESCONV$PASS_OPTIONS CONV$CONVERTLIB$RENAME_FILE SYS_BINTIM GET_MSGKEY FOR$ERRSNS SYS_GETMSGOPEN_BULLNEWS_SHAREDNEWS_FIND_SUBSCRIBEREAD_FOLDER_FILE_KEYNUM_TEMP LIB$GET_VMZERO_VM SET_NEWS_TAGCLOSE_BULLNEWS+ $CODE$PDATAH$LOCALL HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGESBULL_DIR INPUT_BUFFERNEWS_DIR BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1 NEWS_TAGS TAGSDBULLPAR NEWS_MARK FOR$UNLOCK FOR$DELETE FOR$IO_END FOR$IO_L_V FOR$IO_T_V_DS FOR$IO_X_SE FOR$READ_SU FOR$READ_KU6 FOR$WRITE_SF FOR$WRITE_SUFOR$REWRITE_SU:P #P 8P_CPTP~PDPP#PPAP#P=P0P PP@PX\PchPWP6P "P)P0Pc<PWPPP0P#P PkWPhcP(fPP.PPPcPWiPiPSPX Pc PWw P0z P# P P\ PW P  P"& P < P] Pk P4n P( Po Pg P P P P P P Pu P Pe P P P' P WK + ww1nr018 OPEN_USERINFO0130-Sep-1995 13:02DEC Fortran V6.1-68 OPEN_USERINFO OPEN_USERINFOP-SYS$LOGIN:BULLETIN.INF5-NOV-1956 11:05:56*DEFAULTP       T SYS_BINTIM@   FOR$OPEN@ )   SYS_BINTIM@  SYS_BINTIM@1    PP[OPEN_BULLINF_SHARED~~  FOR$READ_KU FOR$IO_T_DS߫< FOR$IO_X_DA FOR$IO_ENDPRRk\VP\QA RAfSЂP`\kT SYS_BINTIMTަScd` COMPARE_BTIMPЫcЫS`Tk1l TEST_BULLCPPt CONFIRM_USERP,9 ~~  FOR$READ_KU FOR$IO_T_DS߫< FOR$IO_X_DA FOR$IO_ENDP\\kSTSUE PEfQЀT`Sk1˄FOR$OPENˬ FOR$INQUIREk  FOR$READ_SU\R\ަT߄ FOR$IO_L_R߄ FOR$IO_L_R\R FOR$IO_END˼ FOR$CLOSE1OPEN_BULLUSER_SHAREDREAD_USER_FILE_KEYNAMEk TEST_BULLCPP SYS_BINTIM SYS_BINTIMREAD_USER_FILE_HEADER  WRITE_USER_FILE_NEWCLOSE_BULLUSERkSަU`ST\TQAfPA RЀ\`Tk  FOR$WRITE_SU FOR$IO_T_DS߫< FOR$IO_X_DA FOR$IO_ENDPUUkREC_LOCKP~~  FOR$READ_KU  FOR$IO_T_DS߫, FOR$IO_X_DA FOR$IO_ENDPRRkk1$TRIMPVVWGSSSGVV\LQQQL\\\  FOR$WRITE_SU FOR$IO_T_DS߫, FOR$IO_X_DA FOR$IO_ENDP\\kGTʏTTGVVFWʏWWF\ʏ\\,TRIMPVFWWWF~~  FOR$READ_KU FOR$IO_T_DS߫ FOR$IO_X_DA FOR$IO_ENDP\\WFSʏSSFW\VԆԆ`\4READ_NEWS_USERINFO CLOSE_BULLINF@ LIB$MOVC3P LIB$MOVC3` LIB$MOVC3 9PDECNET  OPEN_USERINFOOPEN_BULLINF_SHARED SYS_BINTIM COMPARE_BTIM TEST_BULLCP CONFIRM_USERFOR$OPEN FOR$INQUIRE FOR$CLOSEOPEN_BULLUSER_SHAREDREAD_USER_FILE_KEYNAMEREAD_USER_FILE_HEADERWRITE_USER_FILE_NEWCLOSE_BULLUSERREC_LOCKTRIMREAD_NEWS_USERINFO CLOSE_BULLINF LIB$MOVC3K$CODE?$PDATAx$LOCALL HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGES USERINFO FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$IO_X_DA FOR$READ_SU FOR$READ_KU FOR$WRITE_SUP,vP5P PPwPkP,<PSSPHhPPP@P2PFP-IP$P8P-PPPP$^PzPP,PFPKww1r014 OPER_PRIV0130-Sep-1995 12:42DEC Fortran V6.1-68 OPER_PRIV OPER_PRIV@PPP[k FOR$BJTESTd  OPER_PRIV FOR$BJTEST$CODE$PDATA$LOCAL PRIVILEGES ww16r016 OUTPUT_HELP0130-Sep-1995 13:05DEC Fortran V6.1-68 OUTPUT_HELP OUTPUT_HELPP Topic? \PP\`l\TPPdP PUT_OUTPUT \`lH SMG$READ_COMPOSED_LINE@T\`lhTllT LIB$PUT_OUTPUT@P\PPP[^}PQP }PQP\$SMG$CREATE_VIRTUAL_KEYBOARD<SMG$CREATE_KEY_TABLEDSTR$TRIMTLBR$INI_CONTROL`LBR$OPENRQԁ R1XV 1զT1?1QQզT TY,Y PYTYYTYP@ YSC/YYTP,T @XЦTHԦTYPQ,P AYZZTP,PJ PXZHYTPPT1OTQQlpRRtxSS|(ˀTT˄<ˈUUˌPːYY˔d˘PP˜xˠQQˤ˨RRˬ˰SS˴˸˼ LBR$GET_HELPPYTYT-D *QQRRQQSSZBVP^QRZSVT OTS$MOVE5_R5YdXHY1T11SMG$READ_COMPOSED_LINEPY1ZYV ~YQfRR^(RAn^SXXZ^(ZnXZW,Wn PPQ^ZZY ^( nZ^(ZnZW WV,Vn PPQ^ ZZ SMG$READ_COMPOSED_LINEPY8STR$TRIMYTWG1YPLIB$PUT_OUTPUTX LBR$CLOSE1UPSubtopic? :  OUTPUT_HELP PUT_OUTPUTSMG$CREATE_VIRTUAL_KEYBOARDSMG$CREATE_KEY_TABLESTR$TRIMLBR$INI_CONTROLLBR$OPEN LBR$GET_HELPSMG$READ_COMPOSED_LINELIB$PUT_OUTPUT LBR$CLOSE$CODE$PDATA$LOCALhHELPLEVELS OTS$MOVE5_R5+PuPPPPPPPP PP*?PEhP pPzPPHP)P$PPPPPP+P<PIPPPP  +ww12Yr012PRESENT0130-Sep-1995 12:59DEC Fortran V6.1-68PRESENTPRESENTP:][<P 4H\pP [}PQP}PQP } PQP$ LIB$INDEX<VPVR,R@ 8 LIB$INDEXPV,V@ t LIB$INDEXPL LIB$INDEXP` LIB$INDEXPˀTRIMPW:~PJPJP<P4P[P P04PCBP0PPFP{PPPbV-ww1nﭿr017 PRINT_OUTPUT0130-Sep-1995 13:05DEC Fortran V6.1-68 PRINT_OUTPUT P) PRINT_OUTPUTP P[}PQPk FOR$WRITE_SFTRIMP FOR$IO_T_DS FOR$IO_ENDPRRPЫP  PRINT_OUTPUTTRIMY$CODE$PDATA$LOCAL FOR$IO_END FOR$IO_T_DS FOR$WRITE_SFP1OP Yww1^ r015 PUT_OUTPUT0130-Sep-1995 13:05DEC Fortran V6.1-68 PUT_OUTPUT PUT_OUTPUTP Press RETURN to continue ...  PP08\ LIB$PUT_OUTPUT@\`(l SMG$READ_COMPOSED_LINE@T((T  Q(  'P[^}PQ PмVмˏdӭXRRPPRRQQX@YP^QRXSYT OTS$MOVE5_R51 P1V1ӭ11QRBS-SA *FUUXH U<RXRVY,RH III$F4(STR$TRIMXXQQXXRRYAXP^QRYSXT OTS$MOVE5_R5X8LIB$ERASE_PAGEXQQ1RR1LLIB$PUT_OUTPUT\SMG$READ_COMPOSED_LINEPStSTR$TRIMSTԫ˄LIB$ERASE_PAGEVTTXӭXXY<ZZ^(Z nX^(XnXWZWXXːXY^˔˘LIB$PUT_OUTPUTY^PˠLIB$PUT_OUTPUTPVVӭVVW<ZZ^(Z nV^(VnVXZXYY˨YW^ˬ˰LIB$PUT_OUTPUTW^P˸LIB$PUT_OUTPUTPЫP  PUT_OUTPUTSTR$TRIMLIB$ERASE_PAGELIB$PUT_OUTPUTSMG$READ_COMPOSED_LINE$CODE$$PDATA$LOCALLEVELShHELP PAGE OTS$MOVE5_R53P\APHUP)PP PPPPbPP<PHGP=[P)PPPPP PqPP?XPqP[|PP<P `Tnww1@ r012READACL0130-Sep-1995 12:59DEC Fortran V6.1-68READACLP/ 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.)READACLQ(ID=*,ACCESS=NONE),ACCESSWRITEREAD=ACCESS`PPP` SYS$PARSE_ACL@hXpP `T4Xp\plppppPPBULL_DIR: G'BULL_DIR: G'BULLUSER.DAT D'QBULLFOLDER.DAT B'QBULLINF.DAT E'QPBULLNEWS.DAT D'Q`BULL_DIR: G'PP[ ^}PQP}PQP INIT_ITMLST޼ ,^4( ADD_2_ITMLST^8 END_ITMLSTkP@SYS$CHANGE_ACLPҭh SYS$PARSE_ACLP ԫV1ѭ 1ЭQARR|ЭP@ˀ˄SYS$FORMAT_ACLP INIT_ITMLST޼ ˨^˰ˤ ADD_2_ITMLST^˴ END_ITMLSTk˼SYS$CHANGE_ACL횻WWSYS$FORMAT_ACLP<RRQA  LIB$MOVC3ի ԭ$ LIB$INDEXPSѭSQQRSPR0@4@ LIB$INDEXPѭ1SQQRSPRL@P\ LIB$INDEXP1SQQRSRhClx LIB$INDEXP1ˌ LIB$INDEXPYˠ LIB$INDEXpWWTD]1TYUUYSC,YRB[YSC=YXH,H0H9UUH,XYUYTWYP@*˴ LIB$INDEXPY LIB$INDEXPWV- Pѭ FOR$WRITE_SF FOR$IO_END2 FOR$WRITE_SF FOR$IO_END\ FOR$WRITE_SF FOR$IO_ENDVYWXXXVZZP FOR$WRITE_SFVV˰ FOR$IO_T_DS FOR$IO_ENDې,~YYWW^(WInWVVW,Wn P˰P5Q^XV1ZP FOR$WRITE_SFYYWW^(WInWXVV^(V˰nVZXZWW^ FOR$IO_T_V_DS FOR$IO_ENDV,~YYWW^(WInWXXWVVPT,Wn TF˰PQ^VЭYIXX1sV FOR$WRITE_SFVV˰ FOR$IO_T_DS FOR$IO_END, READACL INIT_ITMLST ADD_2_ITMLST END_ITMLSTSYS$CHANGE_ACL SYS$PARSE_ACLSYS$FORMAT_ACL LIB$MOVC3 LIB$INDEXQ$CODE$PDATA<$LOCAL0FILES FOR$IO_END FOR$IO_T_DS FOR$IO_T_V_DS FOR$WRITE_SFbPPPP)Px:POP*yPaP~PQP&PP PI'P<3P0?PGPOPUP]PfP+wPP_P6PPP P^iPtPWP8P0{y GQww1ɪr012READDIR0130-Sep-1995 12:59DEC Fortran V6.1-68READDIR PREADDIRQ>NL:BULL_CLEANUPP8  Dd4d,(  P  LIB$SPAWN@ LIB$SPAWN@ LIB$SPAWN@H  8 dP,PQGENERAL %'PP[ЬkWмռ1 1Wk\REC_LOCKP W~~?d FOR$READ_KU, FOR$IO_X_SE FOR$IO_ENDPRRWkCONVERT_HEADER_FROMBIN   k1 1 CLOSE_BULLDIR OPEN_BULLDIR|CLEANUP_DIRFILE UPDATE_FOLDER )!1˄ TEST_BULLCPP1T FOR$WRITE_IF, FOR$IO_L_V FOR$IO_ENDZ˔ LIB$INDEXPYݫ ^( #nYY^(Y nYX XY$~YVVˠVZ^ˤ LIB$SPAWNZ^PCLEANUP_BULLFILE1 ޼p޼tWklREMOTE_GET_HEADER޼X 1VWkREC_LOCKP1 1ZhR R FOR$READ_SU< FOR$IO_X_SE FOR$IO_ENDPRRW~߫  FOR$READ_KU< FOR$IO_X_SE FOR$IO_ENDPRRW1hhhʴʴhhQ Q FOR$READ_SU< FOR$IO_X_SE FOR$IO_ENDPRRW~~߫  FOR$READ_KU< FOR$IO_X_SE FOR$IO_ENDPRRWh~߫  FOR$READ_KU< FOR$I O_X_SE FOR$IO_ENDPRRWh),Whh~~߫  FOR$READ_KU< FOR$IO_X_SE FOR$IO_ENDPWW1Ѧʴ$W FOR$UNLOCKhѦ FOR$INQUIREOPEN_BULLNEWS_SHAREDWkREC_LOCKREAD_FOLDER_FILE_KEYNAMEЦREWRITE_FOLDER_FILECLOSE_BULLNEWS REC_LOCKkW޼YWѦiЦhЦi1Q Q1 FOR$READ_SU$ FOR$IO_X_SE FOR$IO_ENDPRRWզ` FOR$REWRITE_SU ^( An^(0nA^(Afnd^ FOR$IO_T_V_DS FOR$IO_END~~߫  FOR$READ_KU$ FOR$IO_X_SE FOR$IO_ENDPRRWѦ$W FOR$UNLOCK1~~߫  FOR$READ_KU$ FOR$IO_X_SE FOR$IO_ENDPYYWզ`FOR$REWRITE_SU ^( An^(0nA^(Afnd^  FOR$IO_T_V_DS FOR$IO_END~~߫  FOR$READ_KU$ FOR$IO_X_SE FOR$IO_ENDPRRW1pk$ GET_MSGKEYCONVERT_ENTRY_FROM BINЦ   SET_BULLFIL ޼4h8Wk0REMOTE_GET_HEADERk޼Z j FOR$UNLOCKj@ FOR$BJTESTPL FOR$BJTESTPX INCLUDE_MSGPj!P::/CLEANUP=BACK  READDIRREC_LOCKCONVERT_HEADER_FROMBINREMOTE_GET_HEADER CLOSE_BULLDIR OPEN_BULLDIRCLEANUP_DIRFILE UPDATE_FOLDER TEST_BULLCP LIB$SPAWN LIB$INDEXCLEANUP_BULLFILE FOR$INQUIREOPEN_BULLNE WS_SHAREDREAD_FOLDER_FILE_KEYNAMEREWRITE_FOLDER_FILECLOSE_BULLNEWS GET_MSGKEYCONVERT_ENTRY_FROMBIN SET_BULLFIL FOR$BJTEST INCLUDE_MSG $CODE3$PDATAh$LOCALBULL_DIR INPUT_BUFFERNEWS_DIR BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1(PROMPT REMOTE_FOLDER DIR_POSITIONNEXTKEEPLOCK COMMAND_LINEBULLFILBULL_USER_CUSTOM FOR$UNLOCK FOR$IO_END FOR$IO_L_V FOR$IO_T_V_DS FOR$IO_X_SE FOR$READ_SU FOR$READ_KUFOR$REWRITE_SU FOR$WRITE_IFaP&P|5P:>PBP+FP!sP"P P PPPPPP P}PPPPP~P Pd P'P1P,6P!_PjPvPP'PPhP!P:P3P!P#P8'P4.P-3P!aPrPPaPWPOPPPPPf PP1Pu6PpP!P PP!PuPp9P!gP4PPP PPHPP P&PPPO ww1@٪r018 READDIR_KEYGE0130-Sep-1995 12:59DEC Fortran V6.1-68 READDIR_KEYGE READDIR_KEYGEPP8  Dd$ dP,PQGENERAL %' PP[V޼W 1g84REC_LOCKP1 1 զ $ FOR$READ_KU, FOR$IO_X_SE FOR$IO_ENDPRRg FOR$READ_SU, FOR$IO_X_SE FOR$IO_ENDPRRggѦ զѦg@<REC_LOCK$g FOR$UNLOCK1$ FOR$READ_KU FOR$IO_X_SE FOR$IO_ENDPRRgզ`FOR$REWRITE_SU ^( An^( nA^(AfndD^HD FOR$IO_T_V_DS FOR$IO_END~~߫ FOR$READ_KU FOR$IO_X_SE FOR$IO_ENDPRRg1gЦgL GET_MSGKEYCONVERT_ENTRY_FROMBINЦ  FOR$UNLOCK  SET_BULLFILg gdXREMOTE_GET_HEADERghI FOR$BJTESTPt FOR$BJTESTPˀ INCLUDE_MSGP1 P P  READDIR_KEYGEREC_LOCK GET_MSGKEYCONVERT_ENTRY_FROMBIN SET_BULLFILREMOTE_GET_HEADER FOR$BJTEST INCLUDE_MSG$CODE$PDATA$LOCALBULL_DIR INPUT_BUFFERNEWS_DIR BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1 REMOTE_FOLDER DIR_POSITIONKEYIDKEEPLOCKBULLFILBULL_USER_CUSTOM FOR$UNLOCK FOR$IO_END FOR$IO_T_V_DS FOR$IO_X_SE FOR$READ_SU FOR$READ_KUFOR$REWRITE_SUP0P^B0Dà<>B@(NEWS_WRITE_PACKET_BULLCPPkQAkT2DPPD DISCONNECTLEXECUTE_COMMANDkRBÜPXT READ_CHAN READ_ASTNEWS_WRITE_AST I #O$_WRITEVBLK LIB$MOVC3 DISCONNECT NEWS_SET_CHANNEWS_WRITE_PACKET_BULLCPEXECUTE_COMMAND READ_CHAN$CODE$PDATA`$LOCALDQREADBUFACTIVITYPNNTPR!P@мx QAkSYS$QIO  READ_CHANREAD_AST IO$_READVBLKSYS$QIO7$CODE$PDATA4$LOCALDQREADBUF 7ww1r01=READ_FIRST_EXPIRED0130-Sep-1995 12:59DEC Fortran V6.1-68READ_F%IRST_EXPIREDREAD_FIRST_EXPIREDPTdP,PQGENERAL %'P[TX[   GET_MSGKEY޼ READDIR_KEYGE  U READ_FIRST_EXPIRED READ_NEXT_EXPIRED GET_MSGKEY READDIR_KEYGEW$CODE$PDATA$LOCALBULL_DIR INPUT_BUFFERNEWS_DIR BULL_FOLDER BULL_FOLDER1& NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1KEYIDKEEPLOCKP $Www1 @PPr1-0019 READ_HEADER1-00130-SEP-1995 13:16 VAX MACRO V5.4-3 MAC ALLMACS- Read Image Header READ_HEADERvCTL$GL_IMGHDRBF CTL$GL_PCB CTL$T_ACCOUNTCTL$T_USERNAME SYS$ASCTIM SYS$CMKRNL SYS$UNWIND . ABS .P'$ABS$ PP DATA PQ aCODEP SETACC&APlVV%VЬWЧW,Vg 2 SYS$CMKRNL| 2|SETACC_C&Qm CTL$GL_PCBVЦ|V(( CTL$T_ACCOUNT<&P SETUIC_DATA PQN SETUIC_CODEP   SETUIC&>PlRR"мSSSSS/ SYS$CMKRNL /SETUIC_C&2m CTL$GL_PCBR(<&P SETUSER_DATAPQ Q Q SETUSER_CODEP SETUSER&PlXX^VЬWЧW,Vg X4VЬWЧW,Vg  V SYS$CMKRNLPPk SYS$CMKRNL k SETUSER_C1&Tm CTL$GL_PCBWЧ|W(  ( CTL$T_USERNAME<&P  SETUSER_C2&5m CTL$GL_PCBWЧ|W)  ` ` KMODE_EHAND&JЬUѥ) ЬVХ  SYS$UNWINDPPPPPL READ_HEADERP   READ_HEADER&elЏPCTL$GL_IMGHDRBF[kV2WGfW(PЬX,P) hlP8 SYS$ASCTIM KMODE_EHAND READ_HEADER SETACC2SETACC_C SETUIC/SETUIC_CSETUSERk SETUSER_C1 SETUSER_C2DATA CODEa SETUIC_DATA SETUIC_CODEN * SETUSER_DATA SETUSER_CODE READ_HEADERLww1 V}r017 READ_INF_REC0130-Sep-1995 13:05DEC Fortran V6.1-68 READ_INF_RECCP ERROR: You have " reached the news folder limit of ,. READ_INF_REC_ *PERMP   L@@DDHH+@@DDHH,PQGENERAL %'P[OPEN_BULLINF_SHAREDREC_LOCKP~~$  FOR$READ_KU FOR$IO_T_DS߫  FOR$IO_X_DA FOR$IO_ENDPRRkkQ PԀԀ`Q CLOSE_BULLINF[T UT_TR2BQQ,TP@T޼VT_* FOR$WRITE_SF< FOR$IO_L_R FOR$IO_END,fTW2GR޼X޼ YR,1޼Zj>G0, FOR$IIBSETPGj>G<8 FOR$IIBCLRPGi>GHD FOR$IIBSETPGi>GTP FOR$IIBCLRPGh>G`\ FOR$IIBSETPGh>Glh FOR$IIBCLRɰPGijQhQQTRT^RP@eSޣxc|tCOPY2S^Rf QQQTZ1ZZP<@~^˄fˈˀREAD_FOLDER_FILE_KEYNUM_TEMP^)PDDZQAːA˔ˌCOPY2Z)PDD1ZS,C-QQP<RRPPRRCZZQJCZZJ޼Rb>G˜˘ FOR$IIBSETPGb>G˨ˤ FOR$IIBCLRPG޼ Sc>G˴˰ FOR$IIBSETPGc>G˼ FOR$IIBCLRPG޼Zj>G FOR$IIBSETPGj>G FOR$IIBCLRPGfZ1W  READ_INF_RECOPEN_BULLINF_SHAREDREC_LOCK CLOSE_BULLINF x SET_NEWS_FLAG FOR$IIBSET FOR$IIBCLRCOPY2READ_FOLDER_FILE_KEYNUM_TEMPx$CO.DEQ$PDATA$LOCAL BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1L HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGES REMOTE_FOLDER FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$IO_X_DA FOR$READ_KU FOR$WRITE_SFP9P,WPP#PPP/P&PP0PHP_P /wPPP2P&PPsPJ7PWPiPP/PPPPP:PSPui xww1r01:READ_IN_FOLDERS0130-Sep-1995 13:02DEC Fortran V6.1-68READ_IN_FOLDERSREAD_IN_FOLDERSPP0,, 4, (, (, 4,,,,,,PQGENERAL %'PP|[ INIT_QUEUEkOPEN_BULLFOLDER_SHAREDVԦ,READ_FOLDER_FILE_KEYNUM,,f P0ի11( TEST_BULLCPP0TEST2P1  <TEST2PHTEST2PTCHANGE_FLAG_NOCMD SET_VERSION1`TEST2PlTEST2P,x FOR$BJTESTP˄TEST2PːTEST2P˜ FOR$BJTESTP˨ FOR$JIBSETP˴REWRITE_FOLDER_FILE FOR$BJTESTP˼TEST2P FOR$INQUIREMODIFY_SYSTEM_LISTkp WRITE_QUEUEREAD_FOLDER_FILE_KEYNUM_GT21CLOSE_BULLFOLDERk  READ_QUEUE |READ_IN_FOLDERS INIT_QUEUEOPEN_BULLFOLDER_SHAREDREAD_FOLDER_FILE_KEYNUM TEST_BULLCPTEST2CHANGE_FLAG_NOCMD SET_VERSION FOR$BJTEST FOR$JIBSETREWRITE_FOLDER_FILE FOR$INQUIREMODIFY_SYSTEM_LIST WRITE_QUEUEREAD_FOLDER_FILE_KEYNUM_GTCLOSE_BULLFOLDER READ_QUEUE$CODE $PDATA$LOCAL BULL_FOLDER BULL_FOLDER1 NEWS_FOLDE3R NEWS_FOLDER_DEFAULT NEWS_FOLDER1L HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGES SAVE_FOLDERSREADITSYSTEM_FOLDERSSHUTDOWNCOMMAND_SWITCHES=P NP4dP#lPwPPPP P*PPPP3P(PPwP  P`P*!P<P-KPWPE9 4ww1ǿr013READ_MBX0130-Sep-1995 13:04DEC Fortran V6.1-68READ_MBXREAD_MBXP IO$_READVBLKMBX_ASTQP[k LIB$GET_EFѼQQkQм(SYS$QIOPD SYS_GETMSGFOR$EXIT READ_MBX 5MBX_AST IO$_READVBLK LIB$GET_EFSYS$QIO SYS_GETMSGFOR$EXIT`$CODE$PDATAL$LOCALCHANNELMBXBUF$ PP 'PKPWP%`ww1r013READ_MSG0130-Sep-1995 12:47DEC Fortran V6.1-68READ_MSG)P ERROR: Invalid qualifier with remote folder. No new messages are present.! No messages past spe6cified date., of ,-,, of ,))From: ) From: )Subj: )) Subj: )) No more messages. Message not found. Press RETURN for more...READ_MSGHEADERROTATEPOSTMARKEDSEENUNMARKEDUNSEENALLPAGESINCE-- 00:00:00.00NEW BULLETIN_NUMBEREDITSYS$LOGIN:BULL.SCR- SYS$LOGIN:BULL.SCR;*P8  D P0  $7$  $$0l0 CLI$PRESENT@0|0 CLI$PRESENT@77 CLI$PRESENT@>> CLI$PRESENT@CC CLI$PRESENT@JJ CLI$PRESENT@OO CLI$PRESENT@CC CLI$PRESENT@XX CLI$PRESENT@JJ CLI$PRESENT@_8 _ CLI$PRESENT@,c,c CLI$PRESENT@h<h CLI$PRESENT@hLh CLI$GET_VALUE@0n`n SYS$BINTIM@((0}} CLI$PRESENT@$,$,9h8h CLI$PRESENT@H CLI$PRESENT@_X_ CLI$PRESENT@ ,,,,,,,,,(:,$`P`P $,,L CLI$PRESENT@ \ FOR$OPEN@@@;@@@@@@@@`P\ `P@<`P888 MAILEDIT@ MAILEDIT@ LIB$DELETE_FILE@888`P dP,PQGENERAL %'PPPP[ ^Ы$Ы =Ы,PѼPPˠ FOR$BJTESTPˬ FOR$JIBCLRP˸LIB$ERASE_PAGEZռ1N))))) CLI$PRESENTP CLI$PRESENT CLI$_NEGATEDZPZ CLI$PRESENTPԭԭԫ ԫ)1 CLI$PRESENTPT޼U  CLI$PRESENTP1 CLI$PRESENTP, CLI$PRESENTP< CLI$PRESENT CLI$_NE>GATEDRPR L CLI$PRESENTP\ CLI$PRESENT CLI$_NEGATEDQPQ l CLI$PRESENTPee, FOR$WRITE_SF FOR$IO_END 1t GET_FIRST_TAGˌ CLI$PRESENTPԫ˜ CLI$PRESENTPˬ CLI$GET_VALUEP -d  SYS$BINTIMP  GET_MSGKEY SYS_BINTIM GET_MSGKEYOPEN_BULLDIR_SHARED READDIR_KEYGE CLOSE_BULLDIR1 CLI$PRESENTP1?1,QA  COMPARE_BTIMP2 FOR$WRITE_SF FOR$IO_END1,RB GET_MSGKEYOPEN_BULLDIR_SHAREDԫ ի 1  READDIR_KEYGEdի ( FOR$BJTESTP4 GET_THIS_TAGի,QALHCOPY2,RBXT GET_MSGKEYԫ ի  CLOSE_BULLDIR2 FOR$WRITE_SF FOR$IO_END11e CLOSE_BULLDIR1ԫ ի `NEWS_GET_NEWEST_MESSAGEի d@h FOR$BJTESTPЫ t GET_THIS_TAGիˈNEWS_UPDATE_NEWEST_MESSAGEԫ ի 2 FOR$WRITE_SF FOR$IO_END1Ы  ˘ CLI$PRESENTPի R FOR$WRITE_SF FOR$IO_END1Ы ֫ N- n)˨ CLI$PRESENTP˸ CLI$PRESENTP޼X1ԫ U) FOR$BJTESTP)ŹA ի)ŴЫhGET_PREVIOUS_TAGիh 1)OPEN_BULLDIR_SHARED޼ZjGET_PREVIOUS_TAG CLOSE_BULLDIRիj 1޼Y)1OPEN_BULLDIR_SHAREDիREADDIRTѫ Tԫi GET_THIS_OR_NEXT_TAGիԫիBi  GET_FIRST_TAGիi իi4( GET_NEXT_TAGիi  CLOSE_BULLDIR1)iH< GET_FIRST_TAGi\P GET_NEXT_TAGիi 11RRWм޼ZWjpdGET_THIS_OR_NEXT_TAGЫիOPEN_BULLDIR_SHAREDxREADDIR CLOSE_BULLDIR}djː˄ GET_NEXT_TAGWիj ԫ 1)1)11C)1h1OPEN_BULLDIR_SHAREDh˜˘READDIRhTѫ T)h˨ˤREADDIRhY޼Zѫ Yjjѫ Y˰READDIRhh˼READDIRԫ ѫ Yh GET_THIS_TAGիԫ CLOSE_BULLDIRԫ hRѫ R FOR$WRITE_SF FOR$IO_END FOR$WRITE_SF FOR$IO_END CLOSE_BULLFIL1YhDOPEN_BULLFIL_SHARED FOR$BJTESTP1)))1<`W GET_BULL_LINEի)Q,Q  GET_BULL_LINE, D ի)Q,Q ,8   INCLUDE_MSGP1Y))hh) CLOSE_BULLFILE,TD$ COMPARE_BTIMP,UE,(COPY2h84NEWS_UPDATE_NEWEST_MESSAGEhh FOR$WRITE_SF FOR$IO_END FOR$WRITE_SF FOR$IO_END CLOSE_BULLFIL11W`YV1)F),TDD< COMPARE_BTIMP,UELHCOPY2T FOR$BJTESTP`ADD_TAG- ,ZJplCOPY21,$ xADD_TAG- ˄NEWS_UPDATE_NEWEST_MESSAGE޼X))hːˌNEWS_UPDATE_NEWEST_MESSAGE˔NEWS_GET_NEWEST_MESSAGEѫ hhˠ˜NEWS_UPDATE_NEWEST_MESSAGEԭ ˬ CGLI$PRESENTP˼FOR$OPENի  FOR$ERRSNS SYS_GETMSG1ԫƴƴv˘ FOR$WRITE_IF FOR$IO_L_V FOR$IO_L_Vƴ FOR$IO_L_V FOR$IO_END LIB$INDEXP LIB$INDEXPSSTPW,TC| W@|˘ FOR$WRITE_IF FOR$IO_L_Vƴ FOR$IO_L_V FOR$IO_END( LIB$INDEXPX4TRIMXPD LIB$INDEXPWPRRS,W@| SB|PTRIMXHTRIMPP^(P}n^SV #~VW,Wn |PQ^`TRIMPZZX,P0 XJ| FOR$WRITE_SFhTRIMP^(P|n^SW+~WXXp^tp FOR$IO_T_V_DS FOR$IO_END FOR$WRITE_SFxTRIMPˀ|˄ˀ FOR$IO_T_DS FOR$IO_END FOR$WRITE_SFˈTRIMPː|˔ː FOR$IO_T_DS FOR$IO_END)ɷ1˘TRIMPV ^( n^(ɤn ~V^(VɘnVXXZ}Date: ~ZX,Xn IPQ^ˠTRIMPW^(ɤn ~W^(WɘnWZZV}Date: ~VZ,Zn PQ^1\XXWW˨TRIMPV^(n^(ɤn ~V^(VɘnVWWV}Date: ~VZ,Zn PQ^1XX˰TRIMPW ^( n^(ɤn ~W^(WɘnWZZX}Date: ~XZ,Zn PQ^˸TRIMPV^(ɼn ~ ^( ɰn^( n^(ɤn ~V^(VɘnVX&XW}Date: ~WX,Xn PQ^\ZZZTRIMPV ^( .nV^(VnVX XZ,Zn PQ^J FOR$WRITE_SFTRIMP FOR$IO_T_DS FOR$IO_END FOR$WRITE_SFTRIMP FOR$IO_T_DS FOR$IO_ENDZԭ< GET_BULL_LINEի1)1 FOR$BJTESTP1^(n}From: ~(n^TRIMP1TRIMЭWWPPW FOR$WRITE_SFW FOR$IO_T_DS FOR$IO_END FOR$WRITE_SFW $  FOR$IKO_T_DS FOR$IO_ENDWX,XG Z1W FOR$WRITE_SFH FOR$IO_T_DS FOR$IO_END8 FOR$WRITE_SFH FOR$IO_T_DS FOR$IO_ENDZM^Ⱦ)( GET_BULL_LINEЫ0< CONVERT_TABSի1)L1^(n}Subj: ~(n^HTRIMP1PTRIMЭVVPPV FOR$WRITE_SFVX\X FOR$IO_T_DS FOR$IO_END FOR$WRITE_SFV`d` FOR$IO_T_DS FOR$IO_ENDVX,XF Z1W FOR$WRITE_SF FOR$IO_END1Z FOR$WRITE_SFhTRIMPp tp FOR$IO_T_DS FOR$IO_END FOR$WRITE_SF0xM|x FOR$IO_T_DS FOR$IO_END FOR$WRITE_SFˀTRIMPˈ ˌˈ FOR$IO_T_DS FOR$IO_ENDíː CONVERT_ROTC< CLOSE_BULLFIL1 FOR$WRITE_SF FOR$IO_END FOR$WRITE_SF FOR$IO_ENDZkk4˜ INIT_QUEUEЫ4k޼Vf`f1`f FOR$WRITE_SF˨TRIMP˰|˴˰ FOR$IO_T_DS FOR$IO_ENDZkN4WZOPEN_BULLFIL_SHAREDXX1ի1խ˸ GET_BULL_LINEիԫX1ի1 FOR$WRITE_SF FOR$IO_T_DS FOR$IO_END1խЫ0 CONVERT_TABS CONVERT_ROTCѫ0, |Ы4 WRITE_QUEUEЫ4 WRITE_QUEUEVVYYѫ0YQQ0R,RA |Ы4  WRITE_QUEUEԭVVY,YF |Ы4  WRITE_QUEUEWZVVWVXO1 CLOSE_BULLFIL޼Y, FOR$CLOSEDMAILEDITXLIB$DELETE_FILEi1k4WVXW1Ы4d` READ_QUEUEX FOR$WRITE_SFpTRIMP^(P|n^SZ+~ZWWx^|x FOR$IO_T_V_DS FOR$IO_END FOR$WRITE_SFˀTRIMPˈ|ˌˈ FOR$IO_T_DS FOR$IO_ENDVX\իiːTEST_MORE_RECORDSի<ˠPTEST_MORE_LINESի FOR$WRITE_SF FOR$IO_ENDiP FOR$WRITE_SF FOR$IO_END˨ FOR$JIBSETPЭ$Э Э,PREADLASTQBACKQCURQFIRSQTODAYFrom: Subj: SEAR1995 (DELETED) Expires on shutdown Permanent Expires: / System READ_MSG CLI$_NEGATED FOR$BJTEST FOR$JIBCLRLIB$ERASE_PAGE CLI$PRESENT FOR$JIBSET GET_FIRST_TAG CLI$GET_VALUE SYS$BINTIM GET_MSGKEY SYS_BINTIMOPEN_BULLDIR_SHARED READDIR_KEYGE CLOSE_BULLQDIR COMPARE_BTIM GET_THIS_TAGCOPY2NEWS_GET_NEWEST_MESSAGENEWS_UPDATE_NEWEST_MESSAGEGET_PREVIOUS_TAGREADDIRGET_THIS_OR_NEXT_TAG GET_NEXT_TAG CLOSE_BULLFILOPEN_BULLFIL_SHARED GET_BULL_LINE INCLUDE_MSGADD_TAGFOR$OPEN FOR$ERRSNS SYS_GETMSG LIB$INDEXTRIM CONVERT_TABS CONVERT_ROTC INIT_QUEUE WRITE_QUEUE FOR$CLOSEMAILEDITLIB$DELETE_FILE READ_QUEUETEST_MORE_RECORDSTEST_MORE_LINESR$CODE7$PDATA\ $LOCALPOINTBULL_DIR INPUT_BUFFERNEWS_DIR BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1L HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGESREADIT PAGE COMMAND_LINE REMOTE_FOLDER READ_DISPLAY TAGSHEADERNEXTSPOSTMSGIDBULL_USER_CUSTOM MAIN_HEADER_INFO FOR$IO_END FOR$IO_L_V FOR$IO_T_DS FOR$IO_T_V_DS FOR$WRITE_SF FOR$WRITE_IFbP0mPF{P8P*PPP@P PPPP`BP HPWP]PykPPPPPPP(PP PP:P)P P P/P`JPbPPPP PPP#P\(PWT4PKBP9}P*P#PPPwPEP PP2P&P P"P0PtNP-SPkP9PP P6P'P#PPPPAPP"PQ0PC5PCP OPjPqPP.PPPP1PPPPP$P7PHPYP*zPPPPPPPPVP P2PUP*P 1P<P!DP=TP ePoPPPP0P'PPPJPAP8P+P'P,P&6P<POP[PhPWqPPPPPPPPP. P* P& P P) PE P.S P s P P' P P P$ P P  P$ P% P3 PC P<b P P P  PT P P P VP  P, PB: P4V Pu P P  P P P P P  P P  P* P: PJ Pk PDt P; P/ P P  P  Pw P+A P2 P.!PJkProP8P6PPVIPIP-PUPPVYPiP9P;JP9PPPPP3MP1PNP$P"P "P3PrPP3P1P7PAPjP[WPP P!P@P\PbP}P PPHP9PP^PVPP #P).P3P4ePlP[~P P%PPqP0 P);PKPbP!P#PPTPLP8@PDPaUP2cP kPPPPP  X ww1vr01=READ_NEWS_USERINFO0130-Sep-1995 13:02DEC Fortran V6.1-68READ_NEWS_USERINFOREAD_NEWS_USERINFOYP P [}PQPkTRIMPVVWGQQQGVVP@RRR@P@QQQ~SC~~k  FOR$READ_KUk FOR$IO_T_DS߫ FOR$IO_X_DA FOR$IO_END޼YXPRRhGUʏUUGVVFPʏPPFWGVʏVV~QAhWVԆԆ`W% READ_NEWS_USERINFOTRIM$CODE$PDATA $LOCALL HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGES FOR$IO_END FOR$IO_T_DS FOR$IO_X_DA FOR$READ_KU.5PIPeP*PPP/#>Zww1֨r016 READ_NOTIFY0130-Sep-1995 12:52DEC Fortran V6.1-68 READ_NOTIFY READ_NOTIFYP*NOTIFY*NOTIFY P    ,PQGENERAL %'P[OPEN_BULLUSER_SHAREDREC_LOCKP~~$ FOR$READ_KU FOR$IO_T_DS߫  FOR$IO_X_DA FOR$IO_ENDPRRkkPQԁP FOR$WRITE_[SU, FOR$IO_T_DS߫  FOR$IO_X_DA FOR$IO_ENDPRRk CLOSE_BULLDIR  READ_NOTIFYOPEN_BULLUSER_SHAREDREC_LOCK CLOSE_BULLDIR$CODE$PDATA4$LOCAL BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1L HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGES BULL_NOTIFY FOR$IO_END FOR$ \IO_T_DS FOR$IO_X_DA FOR$READ_KU FOR$WRITE_SUP9P,WP?lP$%ww1Pér014 READ_PERM0130-Sep-1995 12:56DEC Fortran V6.1-68 READ_PERM_P& ERROR: Cannot set flags for protected' folder without explicit access granted1 via SET ACCESS. See HELP SET ACCESS for further information., ERROR: NOTIFY is not valid for this folder., ERROR: ]NOTIFY is permanent for this folder.. ERROR: PERMANENT flags exist for this folder./ Flags will be set to those permanent settings. READ_PERMQ*PERM*PERM P L       l q(\4\ (\ 4\l,,,,^ , ,l,\X`X, ,, ,, ,hd,`h\h ,`d\d,PQGENERAL %'P[DREC_LOCKP~~L FOR$READ_KU FOR$IO_T_DS߫ FOR$IO_X_DA߫$ FOR$IO_X_DA߫4 FOR$IO_X_DA_ FOR$IO_ENDPkk1PQԡԡԁP  FOR$WRITE_SUT FOR$IO_T_DS߫ FOR$IO_X_DA߫$ FOR$IO_X_DA߫4 FOR$IO_X_DA FOR$IO_ENDPk\READ_USER_FILE_HEADERdTEST2PpSET2FOR$REWRITE_SU  FOR$IO_X_SE FOR$IO_END|READ_USER_FILEk*:˄TEST2PːSET2FOR$REWRITE_SU@^(@ n ^( nL˜^ˠ˜ FOR$IO_T_V_DS FOR$IO_ENDˤREAD_USER_FILE` FOR$UNLOCK[ˬREC_LOCKP~~˴ FOR$READ_KU FOR$IO_T_DS߫ FOR$IO_X_DA߫$ FOR$IO_X_DA߫4 FOR$IO_X_DA FOR$IO_ENDPVVk޼Rb˼CLR2bSET2޼VfCLR2fSET2޼ WgCLR2gSET2FOR$REWRITE_SU FOR$IO_T_DS߫ FOR$IO_X_DA߫$ FOR$IO_X_DA߫4 FOR$IO_X_DA FOR$IO_ENDPRRk[ FOR$WRITE_SF FOR$IO_END޼V޼ W޼Rab FOR$WRITE_SF FOR$IO_ENDbf gNEWS_SET_USER_FLAGOPEN_BULLUSER_SHAREDREC_LOCKP~~ FOR$READ_KU FOR$IO_T_DS߫ FOR$IO_X_DA߫$ FOR$IO_X_DA߫4 FOR$IO_X_DA FOR$IO_ENDPkCLOSE_BULLUSERkb$TEST2P FOR$WRITE_SF FOR$IO_END0 CHANGE_FLAG1b< CHANGE_FLAGgfHTEST2PTTEST2Pkgf`TEST2PlTESTb2PkgfxTEST2PR˄TEST2PRRkkff˔ː CHANGE_FLAGggˠ˜ CHANGE_FLAG FOR$WRITE_SF FOR$IO_END$ FOR$WRITE_SF FOR$IO_END˨TEST2P˴ CHANGE_FLAG CHANGE_FLAGTEST2P CHANGE_FLAG CHANGE_FLAG  READ_PERMREC_LOCKREAD_USER_FILE_HEADERTEST2SET2READ_USER_FILE SET_PERMCLR2  SET_USER_FLAGNEWSc_SET_USER_FLAGOPEN_BULLUSER_SHAREDCLOSE_BULLUSER CHANGE_FLAG$CODE}$PDATA$LOCAL BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1L HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGES$ BULL_PERM FLAG_ACCESS REMOTE_FOLDER FOR$UNLOCK FOR$IO_END FOR$IO_T_DS FOR$IO_T_V_DS FOR$IO_X_dDA FOR$IO_X_SE FOR$READ_KU FOR$WRITE_SF FOR$WRITE_SUFOR$REWRITE_SUFOR$REWRITE_SUPIP@ePP8P"PtP`PW%PK}P PLPAP P P  P 1P ?P KP8PP;PPPLPAqP2}PPP P PP PPOP#PPPP*P" P$P)P&-P?POPmP P P P e ww1Or015 READ_QUEUE0130-Sep-1995 13:02DEC Fortran V6.1-68 READ_QUEUE READ_QUEUEP P[Ь} PQP޻RТk޼QQ( COPY_CHARkQzQS{SPPP fQPQ QQAbY  READ_QUEUE COPY_CHAR[$CODE$PDATA0$LOCALHP [ww1 \r012RECOUNT0130-Sep-1995 13:08DEC Fortran V6.1-68RECOUNTRECOUNTPBULL_NEWS_RECOUNTPP |d DELgLNM@,PQGENERAL %'dP PPBULL_DIR: G'BULL_DIR: G'BULLUSER.DAT D'QBULLFOLDER.DAT B'QBULLINF.DAT E'QPBULLNEWS.DAT D'Q`BULL_DIR: G'P [V<,TRIMPW.]~WW^(W nWYY\,\n PPQ^OPEN_BULLNEWS_SHARED REC_LOCKP~?( FOR$READ_KU FOR$IO_ENDPWWkkCLOSE_BULLNEWS k10REC_LOCKP FOR$READ_SU FOR$IO_X_SE FOR$IO_ENDPXhXkk18 FOR$BJTESTPNEWS_TO_FOLDEROPEN_BULLDIR_SHAREDDREADDIR ЫRRkRѫƴPREADDIR ƴ CLOSE_BULLDIR\REWRITE_FOLDER_FILE1=lDELLNMCLOSE_BULLNEWS7 RECOUNTTRIMOPEN_BULLNEWS_SHAREDREC_LOCKCLOSE_BULLNEWS FOR$BJTESTNEWS_TO_FOLDEROPEN_BULLDIR_SHAREDREADDIR CLOSE_BULLDIRREWRITE_FOLDER_FILEDELLNMh$CODE$PDATAit$LOCAL BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1BULL_DIR INPUT_BUFFERNEWS_DIR0FILESNEXT REMOTE_FOLDERBULLFILP NEWSDIR_FILE FOR$IO_END FOR$IO_X_SE FOR$READ_SU FOR$READ_KUYZP%]PPPP%PPPvPIP-PXLh jww1`6Or013REC_LOCK0130-Sep-1995 13:04DEC Fortran V6.1-68REC_LOCKWP% Bulletin aborting due to record lock& problem. Alert system administrator.REC_LOCK01PPP WAIT_SEC@QP[kRѼ4 WAIT_SECkQQRR< FOR$WRITE_SF FOR$IO_ENDFOR$EXITԫRRkЫP REC_LOCKWA kIT_SECFOR$EXIT^$CODES$PDATA$LOCAL FOR$IO_END FOR$WRITE_SF$ PPBP6-PLP +_^ww1Pr01:REGISTER_BULLCP0130-Sep-1995 12:52DEC Fortran V6.1-68REGISTER_BULLCP PREGISTER_BULLCP*SYSTEMSYS$NODE:*SYSTEM P     l  4           LIB$SYS_TRNLOG@||       P|[ OPEN_BULLUSER˔REC_LOCKP1~~˜ FOR$READ_KU FOR$IO_T_DSˌ FOR$IO_T_DS  FOR$IO_L_R  FOR$IO_L_R߫D FOmR$IO_X_DA߫d FOR$IO_X_DA߫T FOR$IO_X_DA߫| FOR$IO_X_DA FOR$IO_ENDPRRk1uˬLIB$SYS_TRNLOG LIB$INDEXP,P   k1\ P QԀԁ\SET2  FOR$WRITE_SU FOR$IO_T_DSt FOR$IO_T_DS  FOR$IO_L_V~ FOR$IO_L_V߫D FOR$IO_X_DA߫d FOR$IO_X_DA߫T FOR$IO_X_DA߫| FOR$IO_X_DA FOR$IO_ENDPRRkCLOSE_BULLUSER1S T UЄSFOR$REWRITE_SUn FOR$IO_T_DSt FOR$IO_T_DS  FOR$IO_L_V  FOR$IO_L_V߫D FOR$IO_X_DA߫d FOR$IO_X_DA߫T FOR$IO_X_DA߫| FOR$IO_X_DA FOR$IO_ENDP\\k) CLOSE_BULLUSER,: :1REC_LOCKP~ FOR$READ_KU FOR$IO_T_DS߫$ FOR$IO_X_DA߫4 FOR$IO_X_DA߫D FOR$IO_X_DA FOR$IO_T_DS FOR$IO_ENDPRRkTRIM,P k:CLOSE_BULLUSERV^(*n ^( onV^FOR$OPENV^k$ FOR$ERRSNSիޫ QѫQޫRѫR FOR$DELETE  FOR$WRITE_SF FOR$IO_L_Rˌ FOR$IO_T_DSt FOR$IO_T_DS FOR$IO_ENDPSSk4 FOR$CLOSE1*P::"TASK=BULLETIN1"B |REGISTER_BULLCP OPEN_BULLUSERREC_LOCKLIB$SYS_TRNLOG LIB$INDEXSET2CLOSE_BULLUSERTRIMFOR$OPEN FOR$ERRSNS FOR$CLOSEi$CODE<$PDATAH$LOCALL HEADERp_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGESSYSTEM_FOLDERSSHUTDOWN REMOTE_FOLDER FOR$DELETE 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 FOR$WRITE_SUFOR$REWRITE_SUP}!PpPPccPPfP PH+Pl.PJP P P/PP P PGP<WK qHiww1`r01;REMOTE_COPY_BULL0130-Sep-1995 13:08DEC Fortran V6.1-68REMOTE_COPY_BULL P)REMOTE_COPY_BULLsQP FOR$WRITE_SF FOR$IO_L_R FOR$IO_ENDPRRPP REMOTE_COPY_BULL@$CODE$PDATA$LOCAL rREMOTE_FOLDER FOR$IO_END FOR$IO_L_R FOR$WRITE_SF P4 P'  @ww1@8r018 REMOTE_DELETE0130-Sep-1995 13:08DEC Fortran V6.1-68 REMOTE_DELETE.P٩) ERROR: Not owner of message. REMOTE_DELETEQcancelP  ` P0@0 NEWS_POST@, dPsP| [} PQP}PQP ޼V 1  FOR$WRITE_SF( FOR$IO_L_Rݼ FOR$IO_L_Vݼ FOR$IO_L_V FOR$IO_T_DS FOR$IO_ENDPRRf  FOR$READ_SF߼ FOR$IO_L_R  FOR$IO_T_DS FOR$IO_ENDPRRf1 1TEST_NEWS_OWNERP$ SETPRV_PRIVP XOPEN_BULLFIL_SHARED<kk, GET_BULL_LINE)  7kR,R  k CLOSE_BULtLFILXfTH NEWS_POST  FOR$WRITE_SF FOR$IO_ENDf7PMessage-ID:' | REMOTE_DELETETEST_NEWS_OWNER SETPRV_PRIVOPEN_BULLFIL_SHARED GET_BULL_LINE CLOSE_BULLFIL NEWS_POSTv$CODEB$PDATA\$LOCALL HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGESBULL_DIR INPUT_BUFFERNEWS_DIR u REMOTE_FOLDERMSGIDHEADER FOR$IO_END FOR$IO_L_R FOR$IO_L_V FOR$IO_T_DS FOR$READ_SF FOR$WRITE_SF FOR$WRITE_SFj/P3PEP7P.PPP PvP_P0PSP\P<0vww1@Dr01CREMOTE_DIRECTORY_COMMAND0130-Sep-1995 13:08DEC Fortran V6.1-68"REMOTE_DIRvECTORY_COMMAND P)$REMOTE_DIRECTORY_COMMANDQ NEXTHEAD(P DdH8@ H8@ H,@X NEWS_WRITE@w px8@8 H H $,@$ dlH8 NEWS_WRITE@ x 8@X NEWS_WRITE@ pxH H ( 4<P0 NyEWS_WRITE@ NEWS_WRITE@8dP,PQGENERAL %' PPP[^ kk@ INIT_QUEUEЫk\ 1޼Y޼X޼W   FOR$WRITE_SF FOR$IO_L_Rg FOR$IO_L_Vh FOR$IO_L_V FOR$IO_ENDPRRi  FOR$WRITE_SF FOR$IO_L_Rh FOR$IO_L_Vg FOR$IO_L_zV FOR$IO_ENDPRRi޼Q޼P`aRRR``RRa 1 1ԭ޼ZjPL OTS$CVT_L_TIP޼hd OTS$CVT_L_TIP , WW1X}~-~}~ ^( n|X^ˀ˄ NEWS_WRITEX^Pˌ NEWS_READP) "WԼjW1˔ NEWS_READPW1 RR S T-SD  . YY XX˜I ˠˬ LIB$INDEX PP RRPP˸B {˼j OTS$CVT_TI_LP TT U-UD  .WW,UD  Ы WRITE_QUEUE NEWS_READPW1޼YjiiVXXVVXXjëjQRRQQRRjjTTij OTS$CVT_L_TIPi OTS$CVT_L_TIP , 1W1X$ LIB$INDEXPP^(Pn^SY^($nYVV0VX^48 NEWS_WRITEX^P@ NEWS_READPP NEWS_WRITEPX NEWS_READP)| "W1 RRSS`B dp LIB$INDEX PP UUP,PE  | OTS$CVT_TI_LP }~ ~}n ^WYYYː OTS$CVT_L_TIP , 1jˬ˨ OTS$CVT_L_TI LIB$INDEXP,P jYY ѫ X}~-~}~ ^( )nX^ NEWS_WRITEX^PV}~-~}~ ^( 6nV^ NEWS_WRITEV^P NEWS_READP) "1k} NEWS_READPYY1 RR S T-SD  .1YЫ READ_QUEUE XX V-VH  .VH $ LIB$INDEX PP TTP UP0E 48 OTS$CVT_TI_LPL NEWS_READP QQ RRTA Xd LIB$INDEX PPVVXX TTpH tx FIRST_ALPHAVPpPPP Wx RRS,W@  SBЫ˄ˀ WRITE_QUEUEː NEWS_READP1 kԼ1~ 1 1޼Xh˜˘ OTS$CVT_L_TIPV}~^(@n ˰ V^˴˸ NEWS_WRITEV^P NEWS_READP޼W) "1 NEWS_WRITEP NEWS_READP RRSSB  LIB$INDEX PP UUPPE  OTS$CVT_TI_LPѫ h) "1(E h) "hh OTS$CVT_L_TIPY}~^(@n 0 Y^48 NEWS_WRITEY^P@ NEWS_READP) "ghP NEWS_WRITEPX NEWS_READP RRSS`B dp LIB$INDEX PP UUPP|E ˀhˌ˄ OTS$CVT_TI_LPghYYg޼Vf1м ޼Xf1ѫ h1   FOR$READ_SF  FOR$IO_T_DS FOR$IO_ENDPRRf1 1Ы˜˘ READ_QUEUE˰ LIB$INDEXPTTUU˼ OTS$CVT_TI_LTRIMTPPD NEWS_TIME<YIQQ~I  I(8 TRIMP^ GET_FROM^ ZZWW$J (4 LIB$INDEX PP QQPP@A DH OTS$CVT_TI_LPff`\ NEWS_HEADERfмh޼ld WRITE_QUEUE SS   ѫ hf| NEWS_WRITEP˄ NEWS_READP) H hf˔ NEWS_WRITEP˜ NEWS_READPf1 fˤ OTS$CVT_L_TIPY}~^($n ˼ Y^ NEWS_WRITEY^P NEWS_READPfPXHDR DATE 22STAT% XHDR SUBJECT XHDR FROM HEAD 500223_ REMOTE_DIRECTORY_COMMAND INIT_QUEUE OTS$CVT_L_TI NEWS_WRITE NEWS_READ OTS$CVT_TI_L LIB$INDEX WRITE_QUEUE READ_QUEUE FIRST_ALPHA NEWS_TIMETRIMGET_FROM NEWS_HEADER $CODEK$PDATA$LOCALBULL_DIR INPUT_BUFFERNEWS_DIR BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1BUFFER REMOTE_FOLDERXHDRPOINT FOR$IO_END FOR$IO_L_R FOR$IO_L_V FOR$IO_T_DS FOR$READ_SF FOR$WRITE_SFRPP P#P)P:aPoPPPP_P6PbMPYPPP8"P),PFPuPPPPPPP-PDPgRPYePPPP PPV P,i Pr P| P3 P$ PC P3 P; P Po P Pg P`# PZ2 P? PQ P g Pw P PY PP P P PXLR ww10r01<REMOTE_GET_HEADER0130-Sep-1995 13:08DEC Fortran V6.1-68REMOTE_GET_HEADERPREMOTE_GET_HEADERHEADNEXTLAST <>Pd4d $T NEWS_WRITE@l NEWS_WRITE@ NEWS_WRITE@44 NEWS_WRITE@ NEWS_WRITE@4 NEWS_WRITE@L NEWS_WRITE@dl!,#,dP,PQGENERAL %'PP[ 1޼W޼ Vg  FOR$WRITE_SF FOR$IO_L_Rg FOR$IO_L_V FOR$IO_ENDPRRf  FOR$WRITE_SF FOR$IO_L_R  FOR$IO_L_R FOR$IO_T_DS FOR$IO_ENDPRRff1g  FOR$READ_SFg FOR$IO_L_R  FOR$IO_T_DS FOR$IO_ENDPRRf1g  FOR$READ_SFf FOR$IO_L_R FOR$IO_T_DS FOR$IO_ENDPRRPERROR_AND_EXITfCONVERT_ENTRY_FROMBIN  FOR$READ_SFg FOR$IO_L_R FOR$IO_T_DS FOR$IO_ENDPRRffERROR_AND_EXITgCONVERT_HEADER_FROMBINCONVERT_ENTRY_FROMBIN1 1޼Xhhh , GET_MSGBTIM8REMOTE_GET_NEWEST_MSGkL NEWS_WRITEPERROR_AND_EXITT NEWS_READPERROR_AND_EXIT1 d NEWS_WRITEPERROR_AND_EXITl NEWS_READPERROR_AND_EXIT) %| NEWS_WRITEPERROR_AND_EXIT˄ NEWS_READPERROR_AND_EXIThhhhhːˌ OTS$CVT_L_TIPZ}~^((n ˤ Z^˨ˬ NEWS_WRITEZ^PERROR_AND_EXIT˴ NEWS_READPERROR_AND_EXIT) -111h1hh˼ OTS$CVT_L_TIPW}~^((n W^ NEWS_WRITEW^PERROR_AND_EXIT NEWS_READPERROR_AND_EXIT) - RR Z-ZB  . NEWS_READPERROR_AND_EXIT19h) / NEWS_WRITEPERROR_AND_EXIT NEWS_READPERROR_AND_EXIT) % NEWS_WRITEPERROR_AND_EXIT NEWS_READPERROR_AND_EXIT) 3, NEWS_WRITEPERROR_AND_EXIT4 NEWS_READPERROR_AND_EXIT) %D NEWS_WRITEPERROR_AND_EXITL NEWS_READPERROR_AND_EXIT) - Xd LIB$INDEXPPp thˀ޼ Sx OTS$CVT_TI_LPcchkh˔ LIB$INDEXPW˨ LIB$INDEXPWP,PG  ޼ Yii˸˴ NEWS_HEADER˼CONVERT_FROM_GMTiERROR_AND_EXITCONVERT_ENTRY_FROMBINk`k\hhki%P223HEAD 22BACKREAD REMOTE_GET_HEADERERROR_AND_EXITCONVERT_ENTRY_FROMBINCONVERT_HEADER_FROMBIN GET_MSGBTIMREMOTE_GET_NEWEST_MSG NEWS_WRITE NEWS_READ OTS$CVT_L_TI OTS$CVT_TI_L LIB$INDEX NEWS_HEADERCONVERT_FROM_GMT$CODE7$PDATA$LOCALBULL_DIR INPUT_BUFFERNEWS_DIR BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1 COMMAND_LINE REMOTE_FOLDERBUFFERMSGIDNEXTNEWGROUP FOR$IO_END FOR$IO_L_R FOR$IO_L_V FOR$IO_T_DS FOR$READ_SF FOR$WRITE_SF>P P;#P0[PG^P>PP:P-PPOP-(P 1P 7PBP-yP PP P PPPPGPPPPPe%P^0PBPWPfPyPP|PPPPPPP"P.PBPpPPP;PPPkP]P P"P/PBPKPrYPd`P]lPPPPPP PdP mP PP ww1r01@REMOTE_GET_NEWEST_MSG0130-Sep-1995 13:08DEC Fortran V6.1-68REMOTE_GET_NEWEST_MSG P)!REMOTE_GET_NEWEST_MSGQ P ,PQGENERAL %'P [Ь޼R޻S FOR$WRITE_SF FOR$IO_L_Rߣ FOR$IO_L_Rߣ FOR$IO_L_R FOR$IO_ENDPSSk FOR$READ_SFb FOR$IO_L_R FOR$IO_ENDPSSk1NEWS_FIND_SUBSCRIBEPQA S2SSPP@ SSSbSb@ S<PPSSPA S2SSSPPA b޼$ NEWNEWSkkb REMOTE_GET_NEWEST_MSGNEWS_FIND_SUBSCRIBENEWNEWS0$CODE $PDATA,$LOCAL BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1L HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGESREADIT REMOTE_FOLDERBUFFER FOR$IO_END FOR$IO_L_R FOR$READ_SF FOR$WRITE_SFN P{'P;jP,mP#PPsPP6P+P-!.0ww1 jr01>REMOTE_READ_MESSAGE0130-Sep-1995 13:08DEC Fortran V6.1-68REMOTE_READ_MESSAGE PREMOTE_READ_MESSAGEP(,PQGENERAL %'P[޼V޼R FOR$WRITE_SF FOR$IO_L_Rb FOR$IO_L_V FOR$IO_ENDPffbbb  OTS$CVT_L_TIPW}~}ARTICLE ~ W^$( NEWS_WRITEW^P0 NEWS_READP) fP22Q REMOTE_READ_MESSAGE OTS$CVT_L_TI NEWS_WRITE NEWS_READ$CODE $PDATA@$LOCAL BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1 REMOTE_FOLDERBUFFER FOR$IO_END FOR$IO_L_R FOR$IO_L_V FOR$WRITE_SF<P:P0QPp_PuPPPP'aeww1r01?REMOTE_REMOVE_FOLDER0130-Sep-1995 13:08DEC Fortran V6.1-68REMOTE_REMOVE_FOLDER REMOTE_REMOVE_FOLDER Pg REMOTE_REMOVE_FOLDER$CODE$PDATA$LOCAL REMOTE_FOLDER ww1r01AREMOTE_WRITE_BULL_FILE0130-Sep-1995 13:08DEC Fortran V6.1 -68 REMOTE_WRITE_BULL_FILE P"REMOTE_WRITE_BULL_FILEPP[}PQPk FOR$WRITE_SF FOR$IO_L_Rk FOR$IO_T_DS FOR$IO_ENDPR REMOTE_WRITE_BULL_FILEY$CODE$PDATA$LOCAL REMOTE_FOLDER FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$WRITE_SFP;P0TP Yww1 =Ur017 REMOVE_ENTRY0130-Sep-1995 12:45DEC Fortran V6.1-68 REMOVE_ENTRY REMOVE_ENTRYP0 0:15P8 8 SYS$BINTIM@,p,PQGENERAL %'dPP|[м VѼ޼ DELETE_ENTRY\QQQ1\RRR)  ) ) 6-19~^(n( nQ^^(n19~^(n( nQ^޼ WRITEDIR0 SYS$BINTIM< SYS$GETTIMDLIB$SUBXT SYS$ASCTIMPkѼѼVhREADDIR,   ,   tWRITEDIR OPEN_BULLNEWS_SHAREDˀREAD_FOLDER_FILE_KEYNUMˌ GET_MSGKEY˘REWRITE_FOLDER_FILECLOSE_BULLNEWSѼV ޼ˤˠCLEANUP_DIRFILE UPDATE_ALWAYS Ѽ  V¼VVV   P19182099 | REMOVE_ENTRY DELETE_ENTRYWRITEDIR SYS$BINTIM SYS$GETTIMLIB$SUBX SYS$ASCTIMREADDIROPEN_BULLNEWS_SHAREDREAD_FOLDER_FILE_KEYNUM GET_MSGKEYREWRITE_FOLDER_FILECLOSE_BULLNEWSCLEANUP_DIRFILE UPDATE_ALWAYS$CODE$PDATA$LOCAL BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1BULL_DIR INPUT_BUFFERNEWS_DIRPOINT REMOTE_FOLDERP)0P8PLPWZP sP PP PSP#P&+Ph1PbfP)P[PSPP+P!PP TH ww1ͩr018 REMOVE_FOLDER0130-Sep-1995 12:56DEC Fortran V6.1-68 REMOVE_FOLDERP ERROR: No folder specified., ERROR: Folder name must be < 26 characters. Folder was not removed. ERROR: No such folder exists.. ERROR: You are not able to remove the folder. Folder removed. Resetting to ) folder. REMOVE_FOLDERQREMOVE_FOLDER.*dP,, 8       CLI$GET_VALUE@lXl\llTlTt||4TH|tT``Td,PQGENERAL %'dPP T[H CLI$GET_VALUEPk CLI$_ABSENTQkQ, FOR$WRITE_SF FOR$IO_END(,ѫ, FOR$WRITE_SF FOR$IO_ENDVXTRIMPW^(nW^(WnWYY\'^('8n\'YY`YV^dhGET_INPUT_PROMPTV^yYN FOR$WRITE_SF FOR$IO_ENDˀ LIB$INDEXPOPEN_BULLNEWS_SHAREDOPEN_BULLFOLDERˌREAD_FOLDER_FILE_KEYNAME_TEMP˘SET_FOLDER_FILEki FOR$WRITE_SF FOR$IO_END1˨ LIB$INDEXP˴REMOTE_REMOVE_FOLDERk1˼ FOLDER_ACCESSP,)_ FOR$WRITE_SF FOR$IO_END1(P(PX FOR$BJTESTP1)_1TRIMP\ LIB$INDEXP\Y^(an\\^(\n\WW\\\Y^FOR$OPENY^k1( LIB$INDEXP OPEN_BULLDIR4READDIRk,(p , CLOSE_BULLDIR FOR$WRITE_SF FOR$IO_L_R FOR$IO_T_DS FOR$IO_ENDPWWk FOR$READ_SF FOR$IO_ENDP\\kk FOR$WRITE_SF FOR$IO_L_R FOR$IO_L_R FOR$IO_ENDPRRk@ FOR$CLOSE,TTV,H SYS$SETDFPROT OPEN_BULLDIR OPEN_BULLFILCLOSE_BULLFIL_DELETECLOSE_BULLDIR_DELETET SYS$SETDFPROT(PV, FOR$DELETE,)_,Y,,\` FOR$BJTESTPl FOR$JIBCLRPxMODIFY_SYSTEM_LISTˀSET_FOLDER_DEFAULT\Y, FOR$WRITE_SF FOR$IO_END),CLOSE_BULLFOLDER,,ː SELECT_FOLDER FOR$WRITE_SF˜TRIMPˤ˨ˤ FOR$IO_T_DS FOR$IO_ENDXCLOSE_BULLFOLDER8PAre you sure you want to remove folder Q (Y/N with N as default): Q'::::"TASK=BULLETIN1" REMOVE_FOLDER CLI$_ABSENT CLI$GET_VALUEGET_INPUT_PROMPTTRIM LIB$INDEXOPEN_BULLNEWS_SHAREDOPEN_BULLFOLDERREAD_FOLDER_FILE_KEYNAME_TEMPSET_FOLDER_FILEREMOTE_REMOVE_FOLDER FOLDER_ACCESS FOR$BJTESTFOR$OPEN OPEN_BULLDIRREADDIR CLOSE_BULLDIR FOR$CLOSE SYS$SETDFPROT OPEN_BULLFILCLOSE_BULLFIL_DELETECLOSE_BULLDIR_DELETE FOR$JIBCLRMODIFY_SYSTEM_LISTSET_FOLDER_DEFAULTCLOSE_BULLFOLDER SELECT_FOLDERS$CODEs$PDATA$LOCAL BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1L HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGESBULL_DIR INPUT_BUFFERNEWS_DIR REMOTE_FOLDER FOR$DELETE FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$READ_SF FOR$WRITE_SF FOR$WRITE_SFP0&PMP"UPPPP P P0P@PNP[PcP(qPPPBP1P-P;P*PPhP-PPP9P0dPrPUPPXSww1 %r01<REORDER_SUBSCRIBE0130-Sep-1995 13:08DEC Fortran V6.1-68REORDER_SUBSCRIBEREORDER_SUBSCRIBEJP ,PQGENERAL %'P [^PPQA PpЭVѭ1VRRWXW> YX\2i\P2@  READ_FOLDER_FILE_KEYNUM$READ_FOLDER_FILE_KEYNUM_TEMPR)PDDPXR\\B QL SaUcUPYWXV1r REORDER_SUBSCRIBEREAD_FOLDER_FILE_KEYNUMREAD_FOLDER_FILE_KEYNUM_TEMP$CODE$PDATA0$LOCAL BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1L HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGES'P7PJPuP8P(5)ww1ԧr012REPLACE0130-Sep-1995 12:50DEC Fortran V6.1-68REPLACEP' Cannot CHANGE messages in this folder.( ERROR: Specified message was not found. ERROR: No messages were found.)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: Cannot change text when replacing more than one messsage.) ERROR: Message  cannot be found./ All messages up to that message were modified. 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: Unable to open specified file.5 ERROR: Line length in file exceeds ',I,' characters. Enter description header.. ERROR: Specified message is not owned by you. Message(s) is not owned by you.& Are you sure you want to replace it? REPLACEQ ALLNUMBER ERROR: Specified message number has incorrect format.SYSTEMSHUTDOWNPERMANENTEXPIRATIONGENERALHEADERSUBJECTTEXTEDITSYS$LOGIN:BULL.SCRFILESPECNEW SYS$LOGIN:BULL.SCR;-1 ERROR: Unable to replace message.pP@8       8    CLI$PRESENT@ CLI$GET_VALUE@p@@@p@8<460 CLI$PRESENT@@ CLI$PRESENT@d CLI$PRESENT@ CLI$GET_VALUE@p  CLI$PRESENT@D@8@  CLI$PRESENT@ CLI$PRESENT@ CLI$PRESENT@( CLI$PRESENT@8 CLI$PRESENT@H CLI$PRESENT@X CLI$PRESENT@ h CLI$PRESENT@x CLI$PRESENT@"" CLI$PRESENT@  CLI$PRESENT@@\ CLI$PRESENT@ CLI$PRESENT@ CLI$GET_VALUE@LT@' ' FOR$OPEN@@`@@`Pd`Pd`Pd`Pd:: CLI$GET_VALUE@p@"" CLI$PRESENT@"" CLI$PRESENT@"" CLI$PRESENT@"" CLI$PRESENT@CC CLI$PRESENT@' ' FOR$OPEN@`Pd`Pd`Pd`Pd'G' MAILEDIT@G MAILEDIT@'' MAILEDIT@II LIB$DELETE_FILE@'' FOR$OPEN@  d' T' FOR$OPEN@dT@T@@\hLhXh@"_@T@T@T@ X CLI$PRESENT@ h CLI$PRESENT@x CLI$PRESENT@ CLI$PRESENT@\ CLI$PRESENT@\T@ CLI$PRESENT@\  CLI$PRESENT@l   CLI$PRESENT@l8  CLI$PRESENT@l T  CLI$PRESENT@l p  CLI$PRESENT@8dP,PQGENERAL %'P4[^ FOR$WRITE_SF FOR$IO_ENDˤ CLI$PRESENTPR˴ CLI$GET_VALUEPk CLI$_ABSENTkRC FOR$WRITE_SF FOR$IO_ENDOPEN_BULLDIR_SHAREDREADDIR CLOSE_BULLDIR\ѫ \* FOR$WRITE_SF FOR$IO_END1OPEN_BULLDIR_SHAREDREADDIR CLOSE_BULLDIRU FOR$WRITE_SF FOR$IO_ENDk GET_2_VALSիkw FOR$WRITE_SF FOR$IO_T_DS FOR$IO_END CLI$PRESENTP CLI$PRESENTP SETPRV_PRIVPy FOR$WRITE_SF FOR$IO_END,$ FOR$BJTESTP FOR$WRITE_SF FOR$IO_END8 CLI$PRESENTP1@ SETPRV_PRIVP FOR$WRITE_SF FOR$IO_END,H FOR$BJTESTP FOR$WRITE_SF FOR$IO_END\ CLI$GET_VALUEPS FOR$WRITE_SF FOR$IO_ENDp CLI$PRESENTPx FOLDER_ACCESSP FOR$WRITE_SF FOR$IO_ENDOPEN_BULLDIR_SHAREDTЫUЫѫˈREADDIR)  DTU˔READDIR CLOSE_BULLDIRT1,ˠ SETPRV_PRIVP,˨ FOLDER_ACCESSP FOR$WRITE_SF FOR$IO_END9 FOR$WRITE_SF FOR$IO_ENDw FOR$READ_SF˔ FOR$IO_T_DS FOR$IO_ENDP\\ ˸ STR$UPCASEYX< CLI$PRESENTP, CLI$PRESENTP CLI$PRESENTP  CLI$PRESENTP CLI$PRESENTP CLI$PRESENTP CLI$PRESENTP CLI$PRESENTPXL CLI$PRESENTPT\ CLI$PRESENTPTYѫYX FOR$WRITE_SF FOR$IO_END DISABLE_CTRLZXl CLI$PRESENTP\t GET_EXPIREDˀ FOR$BJTESTPZ 1,   ,   ԫX˔ CLI$PRESENTP FOR$WRITE_SF FOR$IO_END FOR$READ_SF߫ FOR$IO_L_Rˌ FOR$IO_T_DS FOR$IO_ENDի1ˤ CLI$PRESENTP˴ CLI$GET_VALUEP ի^(n^(n(n^\<WW\\WWѫ OPEN_BULLDIRЫЫWѫ1W ѫREADDIR Qѫ Q CLOSE_BULLDIRj FOR$WRITE_SFݫ  FOR$IO_L_V FOR$IO_END< FOR$WRITE_SF FOR$IO_END\ԫ(VYիX1FOR$OPENի  FOR$ERRSNS  SYS_GETMSG1OPEN_BULLFIL_SHARED\<0 GET_BULL_LINEի0) ,0  Ы0(( GET_BULL_LINEի0) իX,0  Ы0< GET_BULL_LINEի0w FOR$WRITE_SF0P TP FOR$IO_T_DS FOR$IO_ENDX GET_BULL_LINE CLOSE_BULLFILYXl FOR$CLOSEYX1TU\| CLI$GET_VALUEP ѫ ˔ CLI$PRESENTP1ˤ CLI$PRESENT CLI$_NEGATEDRPR1˴ CLI$PRESENTP1 CLI$PRESENT CLI$_NEGATEDSPS1@1 CLI$PRESENTP1FOR$OPENP1OPEN_BULLFIL_SHARED<0  GET_BULL_LINEի0)   GET_BULL_LINEի0) 4 GET_BULL_LINEի0w FOR$WRITE_SF0H LH FOR$IO_T_DS FOR$IO_ENDP GET_BULL_LINE CLOSE_BULLFILd FOR$CLOSE|MAILEDIT DISABLE_PRIVS@ˈˌ˘MAILEDITˬLIB$DELETE_FILEP ˼FOR$OPENP1@ DISABLE_PRIVS@FOR$OPENP1 ENABLE_PRIVS~ FOR$READ_SF߫0 FOR$IO_L_R\ FOR$IO_T_DS FOR$IO_ENDѫ0STR$TRIMի00TTTUի0TT\ FOR$WRITE_SF FOR$IO_L_R FOR$IO_ENDp FOR$CLOSE1(FOR$OPENP1  FOR$WRITE_SF FOR$IO_END횏0ի01TGET_LINEѫ0n FOR$WRITE_SF FOR$IO_L_R FOR$IO_END1ի0T0Tw FOR$WRITE_SF0` d` FOR$IO_T_DS FOR$IO_ENDTUի0Tw FOR$WRITE_SF0h lh FOR$IO_T_DS FOR$IO_ENDT1=ѫ0Un FOR$WRITE_SF FOR$IO_ENDd FOR$CLOSEP11 FOR$WRITE_SF FOR$IO_END ENABLE_PRIVS1( Ƙ( Ƥ,8  ѫ1c OPEN_BULLDIRpREADDIR-  8  Rѫ R) Ƙ) Ƥ1 Uѫ U,n Ƙ¹1ԫ   Tѫ T-8  ) Ƙ) ƤT |READDIRѫ T CLOSE_BULLDIRˈ FOR$CLOSE FOR$WRITE_SF FOR$IO_ENDYX FOR$WRITE_SF FOR$IO_END1˔READDIR\1 OPEN_BULLFILƄ`Ц`SPƔЦ`4ի((ˠˤ˨ STORE_BULLի˸˼ STORE_BULL FOR$REWIND\$ COPY_BULLի w FOR$WRITE_SF FOR$IO_T_DS FOR$IO_END CLOSE_BULLFIL CLOSE_BULLDIR FOR$CLOSE1æ`UUUƄWRITEDIR CLOSE_BULLFILREADDIRUPS` WRITEDIRREADDIR1Xի(8 , CLI$PRESENTX\\PZP~^X< CLI$PRESENTZP~^\L CLI$PRESENTP^`TUPDATE_DIR_HEADER ^t CLI$PRESENTP| FOR$JIBSETP\ː CLI$PRESENTP˘ FOR$JIBCLRP\ˤWRITEDIR1ԫ8˸ CLI$PRESENTP FOR$BJTESTP CLI$PRESENTP FOR$JIBSETP8Z CLI$PRESENTP FOR$JIBSETP8  CLI$PRESENTP FOR$JIBSETP8X( CLI$PRESENTPZ0 FOR$JIBSETP8իX,8  XD CLI$PRESENTP( (  FOR$WRITE_SF FOR$IO_L_RD FOR$IO_T_DSݫ  FOR$IO_L_VPL FOR$IO_T_DSݫ8 FOR$IO_L_VL FOR$IO_T_DST FOR$IO_T_DS FOR$IO_ENDP\\  FOR$READ_SF߫ FOR$IO_L_Rt FOR$IO_T_DS FOR$IO_ENDPRR ի ѫ  FOR$WRITE_SFTXT FOR$IO_T_DS FOR$IO_ENDDISCONNECT_REMOTEWV CLOSE_BULLDIR\ FOR$CLOSE ENABLE_CTRLPSubj: From:  REPLACE CLI$_ABSENT CLI$_NEGATED CLI$PRESENT CLI$GET_VALUEOPEN_BULLDIR_SHAREDREADDIR CLOSE_BULLDIR GET_2_VALS SETPRV_PRIV FOR$BJTEST FOLDER_ACCESS STR$UPCASE DISABLE_CTRL GET_EXPIRED OPEN_BULLDIRFOR$OPEN FOR$ERRSNS SYS_GETMSGOPEN_BULLFIL_SHARED GET_BULL_LINE CLOSE_BULLFIL FOR$CLOSEMAILEDIT DISABLE_PRIVSLIB$DELETE_FILE ENABLE_PRIVSSTR$TRIMGET_LINE OPEN_BULLFIL STORE_BULL COPY_BULLWRITEDIRUPDATE_DIR_HEADER FOR$JIBSET FOR$JIBCLRDISCONNECT_REMOTE ENABLE_CTRL$CODE$PDATA $LOCALPOINTDBULLPAREDIT REMOTE_FOLDERLAST_RECORD_WRITTENBULL_DIR INPUT_BUFFERNEWS_DIRL HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGES BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_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_SFPQPrTPo\PPPPP:PP$9PGP _PPkPP$PPPP$PP)%PGP0SP$_PP PPP PP&P P!XPiPWuPKP?P3P'PPPPPP P P:8PWP cPT|PPPcPP P?P4P BPUVPAP PPPPCP+P%P33P%8P;P`P;PP PPP.PP,P PP.0P;PJPYPuPP PP P;P#DPGP0OP(vPPP.P PP PP P% PJ P^ P) P P; P< P7 P3 P P PH; P> P^ P P P  P P  P Pf P1 P P  P! PFJ PM Pe Pv P P P P> P: P Q Pm P  P P P P P P  P* P6 PB P R P ^ P m P={ P P  P  P P  P P P  P PkZP8]P.P<P0Pww1 r010REPLY0130-Sep-1995 12:42DEC Fortran V6.1-68 REPLYP& ERROR: You have not read any message. ERROR: Bulletin was not found.' Adding REPLY message with the subject:) REPLYdRE:P `P`PyLTy STREQ@dP,PQGENERAL %'P<[ FOR$WRITE_SF FOR$IO_ENDOPEN_BULLDIR_SHAREDREADDIRRkR) FOR$WRITE_SF FOR$IO_END CLOSE_BULLDIROPEN_BULLFIL_SHARED<$ GET_BULL_LINEի)}8 GET_BULL_LINEի),  ,8    CLOSE_BULLFIL CLOSE_BULLDIRK FOR$WRITE_SF FOR$IO_END P\STREQP^( n^(n(n Q^^( nݏRe: (n ^u FOR$WRITE_SFhTRIMPp tp FOR$IO_T_DS FOR$IO_ENDADD}PFrom: Subj: Re: <REPLYOPEN_BULLDIR_SHAREDREADDIR CLOSE_BULLDIROPEN_BULLFIL_SHARED GET_BULL_LINE CLOSE_BULLFILSTREQTRIMADD$CODE$PDATAx$LOCALPOINTBULL_DIR INPUT_BUFFERNEWS_DIR BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1 INDESCRIP FOR$IO_END FOR$IO_T_DS FOR$WRITE_SFFPCP }PPP#PPP--P*K? ww1 r01CREQUEUE_NNTP_ACCEPT_WAIT0130-Sep-1995 13:04DEC Fortran V6.1-68"REQUEUE_NNTP_ACCEPT_WAIT$REQUEUE_NNTP_ACCEPT_WAITIP LISTEN_ASTP[kNNTP_ACCEPT_WAIT REQUEUE_NNTP_ACCEPT_WAIT LISTEN_ASTNNTP_ACCEPT_WAIT$CODE$PDATA$LOCAL LISTEN  ww1rr010RESET0130-Sep-1995 13:13DEC Fortran V6.1-68 RESETTP% ERROR: NEWS group is not subscribed.) ERROR: Message was not found: , RESETCURRENTNUMBER ERROR: Specified message number has incorrect format. P@MM CLI$PRESENT@U,U CLI$GET_VALUE@ @ @6\  dP ,PQGENERAL %'P[NEWS_FIND_SUBSCRIBEP_ FOR$WRITE_SF FOR$IO_END$ CLI$PRESENTPk4 CLI$GET_VALUEP kD GET_2_VALSի( FOR$WRITE_SF\ FOR$IO_T_DS FOR$IO_ENDOPEN_BULLDIR_SHAREDdREADDIRk\ѫ\ ,QAtpCOPY2|NEWS_FIND_SUBSCRIBEP\kLk Q<RRQQRP?@\2\QQRR@* FOR$WRITE_SFk FOR$IO_L_V FOR$IO_END˄READDIR CLOSE_BULLDIRk RESETNEWS_FIND_SUBSCRIBE CLI$PRESENT CLI$GET_VALUE GET_2_VALSOPEN_BULLDIR_SHAREDREADDIRCOPY2 CLOSE_BULLDIR]$CODE$PDATA$LOCALL HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGESBULL_DIR INPUT_BUFFERNEWS_DIR BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1POINTDBULLPAR REMOTE_FOLDER FOR$IO_END FOR$IO_L_V FOR$IO_T_DS FOR$WRITE_SFbP*"PFP OPDZP cP0pP#P PnPPG"P KP D8]ww1Ar01;RESE T_PROTECTION0130-Sep-1995 12:59DEC Fortran V6.1-68RESET_PROTECTIONRESET_PROTECTIONPPQP[kPPk SYS$SETDFPROT[kQQkk SYS$SETDFPROTu RESET_PROTECTION SYS$SETDFPROT SET_PROTECTION=$CODE$PDATA $LOCALP1P(=ww1 r012RESPOND0130-Sep-1995 12:50DEC Fortran V6.1-68RESPONDP* ERROR: MAIL invalid from DISMAIL account. Sending message to )& ERROR: You have not read any message. ERROR: Bulletin was not found. ERROR: Subject length exceeded. Enter subject of message: ERROR: No subject specified. Message will have the subject:)( ERROR: Specified file cannot be opened.* ERROR: Cannot extract text without /EDIT.)) ERROR: Multiple newsgroup feed is present. ERROR: No list address found in folder description. Message successfully posted. Enter message: End with ctrl-z, cancel with ctrl-c ERROR: Input line length > , . Reinput: ERROR: No message added.RESPONDQALLLISTmailing listRE:EXPIRATIONSUBJECTEDITSYS$LOGIN:BULL.SCR;*EXTRACTFILESPECSYS$LOGIN:BULL.SCRCC%"INDENT <>;Do you want to save message? (Y/N with N as default): YSYS$LOGIN:BULL.SAV Message saved in SYS$LOGIN:BULL.SAV.P DPDP0@ P CLI$PRESENT@` CLI$PRESENT@ 8p8 `P `P  STREQ@  CLI$PRESENT@  CLI$PRESENT@, CLI$GET_VALUE@@@@` CLI$PRESENT@p CLI$PRESENT@ LIB$DELETE_FILE@ CLI$PRESENT@ CLI$PRESENT@ CLI$GET_VALUE@     FOR$OPEN@ @ CLI$GET_VALUE@  `P        `P `P    CLI$PRESENT@    CLI$GET_VALUE@8 @`P (   ( MAILEDIT@ MAILEDIT@ LIB$FIND_FILE@   4 LIB$DELETE_FILE@D ADD_SIGNATURE@0d NEWS_POST@@ RESPOND_MAIL@H@  FOR$OPEN@  ADD_SIGNATURE@0 NEWS_POST@@< RESPOND_MAIL@H@6 X GET_INPUT_PROMPT@SpxS STREQ@U LIB$RENAME_FILE@U LIB$RENAME_FILE@%h LIB$DELETE_FILE@dP,PQGENERAL %' PP[^V),  @ ,  @ X CLI$PRESENTP, @ , @ V1)V, @ h CLI$PRESENTP, @ , @ ,  @ ,  @ x LIB$INDEXPW˄ NEWS_FEEDP W\\@QQ^(QL n^SX ^( nX \WW@S,\n SG PQ^VˌCAPTIVEP^˘˔ FOR$BJTEST^P FOR$WRITE_SF FOR$IO_END- FOR$WRITE_SFˠTRIMP˨ ˬ˨ FOR$IO_T_DS FOR$IO_END)1 E FOR$WRITE_SF FOR$IO_ENDOPEN_BULLDIR_SHARED˰READDIR WkWn FOR$WRITE_SF FOR$IO_END CLOSE_BULLDIROPEN_BULLFIL_SHARED<˼ GET_BULL_LINEի) GET_BULL_LINEի) , ,8   CLOSE_BULLFIL CLOSE_BULLDIRSTREQP^(n^(n(nQ^^(nݏRe: (n^ CLI$PRESENTP GET_EXPIREDk,  ,   $ CLI$PRESENTP4 CLI$GET_VALUEPkѫ FOR$WRITE_SF FOR$IO_END1) FOR$WRITE_SF FOR$IO_ENDDGET_LINEի FOR$WRITE_SF FOR$IO_END FOR$WRITE_SF FOR$IO_END FOR$WRITE_SFPTRIMPWWWWX\X FOR$IO_T_DS FOR$IO_END h CLI$PRESENTPx CLI$PRESENT CLI$_NEGATED\P\XˈLIB$DELETE_FILEX˘ CLI$PRESENTP˨ CLI$PRESENTPԫ˸ CLI$GET_VALUEP CLI$_ABSENTZѭZ DISABLE_PRIVSFOR$OPEN ENABLE_PRIVSk FOR$WRITE_SF FOR$IO_ENDЭXFOR$OPENk, FOR$ERRSNS8 SYS_GETMSG1XA FOR$WRITE_SF FOR$IO_END1\H CLI$GET_VALUEPZX ADD_PROTOCOL\,~«^(nW,Wn PQ^,~«^(nW\^(\nW\Y,Yn PQ^\\\V\X)1OPEN_BULLFIL_SHARED<d GET_BULL_LINEի1)1VxTRIMP^(n\^(\n\WWY,Yn PQ^\VVˀL˄ˈ ADD_PROTOCOL\X11, ˜ LIB$INDEXP˰ LIB$INDEXPZ˼TRIMPZZP,PJ n FOR$WRITE_SFTRIMPV^(nV^(VnVYYZ^(nZYY^ FOR$IO_T_V_DS FOR$IO_END GET_BULL_LINEV ADD_PROTOCOL ^( Dn\^(\n\Z ZY,Yn PQ^TRIMP\X11ի)  GET_BULL_LINE @ CLI$PRESENT CLI$_NEGATEDZPZ( CLI$GET_VALUEի1 @n FOR$WRITE_SF8<8 FOR$IO_T_DS FOR$IO_ENDn FOR$WRITE_SF«^(nЫW @^( @ n @YWYVV@^D@ FOR$IO_T_V_DS FOR$IO_ENDH GET_BULL_LINE1V1n FOR$WRITE_SF\ FOR$IO_T_DS FOR$IO_ENDkkp FOR$READ_SF߫ FOR$IO_L_R  FOR$IO_T_DS FOR$IO_ENDPRRkn FOR$WRITE_SFdhd FOR$IO_T_DS FOR$IO_ENDl FOR$CLOSEԭt FOR$CLOSE CLOSE_BULLFILX111kTkp FOR$READ_SF߫ FOR$IO_L_R  FOR$IO_T_DS FOR$IO_ENDPUUkn FOR$WRITE_SF|ˀ| FOR$IO_T_DS FOR$IO_ENDT˄ FOR$CLOSEԭTˌ FOR$CLOSE˘ FOR$CLOSE11˨ LIB$INDEXPY1˴ NEWS_FEEDP1YPW,WID  LIB$INDEXpZZTRIMPZ,Z Z ADD_PROTOCOL\\VF,,~\^(\n\VVW,Wn PQ^\«^(nЫY\^(\n\VYVZ,Zn PQ^\TRIMPYP,PID PDD@s FOR$WRITE_SF FOR$IO_END1 FOR$WRITE_SF FOR$IO_END1ZZ\ZWG"ZSS^(SJn^SV"~VYZ^(ZnZWYWV,Vn PQ^Z\ZX1MAILEDITԫ LIB$FIND_FILEPk( LIB$INDEXPP@1<LIB$DELETE_FILEkkkkL ADD_SIGNATURE\ NEWS_FEEDPl NEWS_POSTVkVVk FOR$WRITE_SF FOR$IO_ENDk\ˈ RESPOND_MAIL1ˤFOR$OPENkR1 FOR$WRITE_SF FOR$IO_END<SիGET_LINEѫ4 FOR$WRITE_SF FOR$IO_L_R FOR$IO_ENDիSn FOR$WRITE_SF FOR$IO_T_DS FOR$IO_END1RSRp FOR$READ_SF߫ FOR$IO_L_R  FOR$IO_T_DS FOR$IO_ENDPTTRSn FOR$WRITE_SF FOR$IO_T_DS FOR$IO_END FOR$CLOSEԭѫS FOR$CLOSEk1 ADD_SIGNATURE FOR$REWIND NEWS_FEEDPRk  NEWS_POSTZkZZk FOR$WRITE_SF FOR$IO_ENDk4 FOR$CLOSEk\D RESPOND_MAILka FOR$WRITE_SF FOR$IO_END`GET_INPUT_PROMPTtˀSTREQP˜LIB$RENAME_FILEn FOR$WRITE_SF˨ FOR$IO_T_DS FOR$IO_END˰ FOR$CLOSELIB$DELETE_FILEPREPLnews group.mailing list.message owner and news group.meswsage owner and mailing list.RESPmessage owner.news groupPOSTFrom: Subj: Re:QIn a previous article, Q wrote: RESPOND CLI$_NEGATED CLI$_ABSENT CLI$PRESENT LIB$INDEX NEWS_FEEDCAPTIVE FOR$BJTESTTRIMOPEN_BULLDIR_SHAREDREADDIR CLOSE_BULLDIROPEN_BULLFIL_SHARED GET_BULL_LINE CLOSE_BULLFILSTREQ GET_EXPIRED CLI$GET_VALUEGET_LINELIB$DELETE_FILE DISABLE_PRIVSFOR$OPEN ENABLE_PRIVS FOR$ERRSNS SYS_GETMSG ADD_PROTOCOL FOR$CLOSEMAILEDIT LIB$FIND_FILE ADD_SIGNATURE NEWS_POST RESPOND_MAILGET_INPUT_PROMPTLIB$RENAME_FILE$CODE2$PDATA$LOCALBULL_DIR INPUT_BUFFERNEWS_DIR BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1POINTDBULLPAREDIT COMMAND_LINE REMOTE_FOLDER PAGE INDESCRIP FOR$REWIND FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$IO_T_V_DS FOR$READ_SF FOR$WRITE_SFPl$P6PRP0[PmPPPNP,PPP.PPPP(PDoP8PP?P,PfPtP P%PPP-P*8P7DP+PP{P4PPPBPPcgP sP$PPPCPP0P#P(0PDPd IP"OPRPjP> }PjP%P0PPPPPO%PA6P0:PcPPP-dPDjP>PPPP P PP49P\PPhP* P0\ Pc Pj Ps Plv P* P2 P  P  PP PD' P6 Pe P  P/ P# PE P8 Pp= PW PQd POp P? P P P& P  P P P Pb PD" P . P/G Pa P e P p P P Pw P( P< P4% P/ Pl2 P|*d P2 P P P PJ P  P5P&P6P :P GPbaPHP*P WK ww1ŧr017 RESPOND_MAIL0130-Sep-1995 12:50DEC Fortran V6.1-68 RESPOND_MAIL RESPOND_MAILPLISTSERVVMSSERVMX_NODE_NAMEMX_REPLY_TOPMDF_REPLY_TOBULL_MAILER@%""P P D     SYS_TRNLNM@  SYS_TRNLNM@ , LIB$SET_LOGICAL@4 *H* SYS_TRNLNM@ *d* LIB$SET_LOGICAL@l 88 SYS_TRNLNM@ 88 SYS_TRNLNM_SYSTEM@F(D<X` ** LIB$DELETE_LOGICAL@  LIB$DELETE_LOGICAL@ ,PQGENERAL %'dPP[^}PQP}PQP } PQPT- JTT, DTRIMPWXXWXTD"W`DXPP^(PHn^SY"~YZX^(XnZXY,Yn PQ^XWXT LIB$INDEXZPZZh LIB$INDEXQPQQtSETUSER DISABLE_PRIVS˄ SYS_TRNLNMP˘ SYS_TRNLNMPkkˤTRIMP˴˸˼LIB$SET_LOGICAL SYS_TRNLNMPkkTRIMPLIB$SET_LOGICALTRIMPZ SYS_TRNLNMP11$SYS_TRNLNM_SYSTEMP1ԭ8TRIMPV0TRIMP@TRIMP^(Pn^SXݏ""" XYW^(WnWXYXW^(\nWYPnP)}P PPPPPP#PP P ;P`P?P *ww1`맿r011SEARCH0130-Sep-1995 12:50DEC Fortran V6.1-68 SEARCHP@ ERROR: Cannot find folder ). Searching ) Search aborted.% No matches found in current folder: ) No matches found., ERROR: No more messages in current folder: ) ERROR: No more messages. SEARCHQ NOREPLIESREPLY SEARCH_STRINGSELECT_FOLDERGROUPFEEDBACKSTARTMATCHREVERSESUBJECTFROMNEGATEDType new folder name or hit RETURN to continue: <PP0,PDP0@ (P | CLI$PRESENT@ CLI$PRESENT@  CLI$PRESENT@  CLI$GET_VALUE@  CLI$PRESENT@T  CLI$GET_VALUE@TT T  CLI$PRESENT@$ CLI$PRESENT@l@ CLI$GET_VALUE@ll l ll CLI$PRESENT@!! CLI$PRESENT@!! CLI$GET_VALUE@\ @ CLI$PRESENT@'' CLI$PRESENT@'' CLI$GET_VALUE@\ @ CLI$PRESENT@d- - CLI$PRESENT@  CLI$PRESENT@5,5 CLI$PRESENT@ < CLI$PRESENT@L CLI$PRESENT@!\! CLI$PRESENT@=l= CLI$PRESENT@B|B CLI$PRESENT@  CLI$PRESENT@$d ,( T0T0JT4J GET_INPUT_PROMPT@ T<0D00l8t0L0< ll<<dP,PQGENERAL %'P[^ЫVЫWЫX CLI$_ABSENTY˄ CLI$PRESENTP,{ (kX1˔ CLI$PRESENTP,n (kXˤ CLI$PRESENTPkRRQQSS˴A(˸kUE˼ CLI$GET_VALUEPYkXHRkkkXXX,n ( CLI$PRESENTP INIT_QUEUEЫ X CLI$GET_VALUEPYTRIMP(P00XЫ  WRITE_QUEUE CLI$PRESENTPЫ X, CLI$PRESENTP4 INIT_QUEUEЫ WH CLI$GET_VALUEPYWT LOWERCASEЫ `\ WRITE_QUEUEЫ Ыpl READ_QUEUE|TRIMPˌ CLI$PRESENTPV2X,n  Y˜ CLI$PRESENTPˬ CLI$GET_VALUEP  @ FOR$DECODE_MF߫ FOR$IO_L_RЫY FOR$IO_END CLI$PRESENTPYԫ  CLI$PRESENTP CLI$GET_VALUE- @  ~ - @   Xԫ$ԭ CLI$PRESENTPTRIMP CLI$PRESENTPԭѫ$1X1ի$1Xѫ $ CLI$PRESENTPX1- n14 CLI$PRESENTPUD CLI$PRESENTPU~^˼T CLI$PRESENTP^d CLI$PRESENTP^t CLI$PRESENTP^˄ CLI$PRESENTPR˔ CLI$PRESENTPR~^Э(Э,Y˜ GET_SEARCH^ЫYЫ,Ы(ի$1ѫ$1xX1Ы  READ_QUEUE,Z,ԫ0X101(,0 SELECT_FOLDER0Z, FOR$WRITE_SFTRIMP0 FOR$IO_T_DS FOR$IO_END GET_INPUT_PROMPTի4XXЫ  READ_QUEUEV) FOR$WRITE_SF,TRIMP4084 FOR$IO_T_DS FOR$IO_ENDYY1$1X1Xԫ8DECLARE_CTRLC_ASTW1811OPEN_BULLNEWS_SHAREDX~^@<READ_FOLDER_FILE_KEYNUM_TEMP^ի0HREAD_FOLDER_FILE_KEYNAME_TEMPի0T FOR$BJTESTP`5READ_FOLDER_FILE_TEMPի0XX1811hGET_NEXT_GROUP81YY,Z,˔ LIB$INDEX,PD ,ˠ SELECT_FOLDER0Z,ԫ8V) FOR$WRITE_SFˬTRIMP˴0˸˴ FOR$IO_T_DS FOR$IO_END,XX T1;CLOSE_BULLFOLDERXWXWЫ ˼ READ_QUEUETRIMP2X18 FOR$WRITE_SF FOR$IO_ENDXCANCEL_CTRLC_AST1Yѫ$ԫ$ի$$RR ޼ ~^READ_MSG^1ի$K FOR$WRITE_SFTRIMP0 FOR$IO_T_DS FOR$IO_ENDt FOR$WRITE_SF FOR$IO_ENDѫ$ FOR$WRITE_SFTRIMP0 FOR$IO_T_DS FOR$IO_END FOR$WRITE_SF FOR$IO_ENDVWX @P{PRE:ANDXOR3 SEARCH CLI$_ABSENT CLI$PRESENT CLI$GET_VALUE INIT_QUEUETRIM WRITE_QUEUE LOWERCASE READ_QUEUE GET_SEARCH SELECT_FOLDERGET_INPUT_PROMPTDECLARE_CTRLC_ASTOPEN_BULLNEWS_SHAREDREAD_FOLDER_FILE_KEYNUM_TEMPREAD_FOLDER_FILE_KEYNAME_TEMP FOR$BJTESTREAD_FOLDER_FILE_TEMPGET_NEXT_GROUP LIB$INDEXCLOSE_BULLFOLDERCANCEL_CTRLC_ASTREAD_MSGa$CODE$PDATA$LOCALBULL_DIR INPUT_BUFFERNEWS_DIR BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1POINTDBULLPAR COMMAND_LINE LAST_BUFFER CTRLC_FLAG FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$WRITE_SF FOR$DECODE_MF|PW*PEPSPePssPTPPPPPP.P?PRP{qPPHP.&P7P9TPlPtPP PPPPPPP$PPPPPPPPPe7P;PNPNRP8PPPPeP^ PRP P P P%P,P8PHPOPPPHP8PPP%P!,PYPaP.PPWP;PP^PTP:3PD8aww1&שr018 SELECT_FOLDER0130-Sep-1995 12:56DEC Fortran V6.1-68 SELECT_FOLDERP' Fetching NEWS groups from remote node.! This will take several minutes.% This is the only time this will have to be done.# Type NEWS/NEWGROUP to see recently added news groups.# This news group has been disabled.$ ERROR: Unable to select the folder. Cannot connect to node ).$ Cannot connect to remote NEWS node.* You are not allowed to access news group.& You are not allowed to access folder. See ) if you wish to access folder. Use the POST command to send a $message to this folder's news group. Use the POST command to send a &message to this folder's mailing list. Folder has been set to )# WARNING: The local news server has deactivated this group. NOTE: This group is no longer" active. It has been replaced by:)$ Folder only accessible for reading. ERROR: invalid qualifier with remote folder. NOTE: Only ) messages will be shown. WARNING: No ) messages found. Type READ to read new messages. There are @ new Pmessages. Cannot access specified folder. ERROR: Folder does not exist. SELECT_FOLDER  SELECT_FOLDER::.BULL_NEWS_SERVERDEFINED- <X=MARKEDSEENUNMARKEDUNSEENPPDP0, 8PD PP0   L @ bb CLI$GET_VALUE@s4DsTuhu SYS_TRNLNM@p SYS_TRNLNM@`,Psp,TDP SYS_BINTIM@TX SYS_BINTIM@@@<@ (<Pt@@@ 4, (, 4, (,@@H@ , P\ STREQ@ STREQ@,,@` COMPARE_DATE@L,,,, CLI$PRESENT@ CLI$PRESENT@ CLI$PRESENT@ CLI$PRESENT@ CLI$PRESENT@ CLI$PRESENT@,L,PQGENERAL %'dPPPPQP[^мUPDATE_EXCLUDEUPDATE_USERINFOT)TU)UUTU)UUTU)UUTU)UUTU)UUTU)UUTU)UUTT,1ˌ CLI$GET_VALUEP(,0˘TRIMPZZZQ)Ap^(nZ^(ZnZYYZ,Zn ,PQ^ CLI$_ABSENTYѼY-, ,-, ,, ,Yԭ (ԼTaTUzUUUUT˨ LIB$INDEXQPQQTT˴ FOR$BJTESTP1UaUTzTTTTU LIB$INDEXRPRRUUSQ,QɭQWWWWST,T˭TPPSV1 SYS_TRNLNMP1OPEN_BULLNEWS_SHARED~? FOR$READ_KU\ FOR$IO_X_SE FOR$IO_END޼ZPRRjj FOR$WRITE_SF FOR$IO_ENDM FOR$WRITE_SF FOR$IO _ENDCLOSE_BULLFOLDER(,f NEWS_LISTOPEN_BULLFOLDER_SHARED(,f11h1hk1(,f,jjjREAD_FOLDER_FILE_KEYNUM_GT_TEMPj FOR$BJTESTPj(,fj FOR$WRITE_SF FOR$IO_ENDhhk(,f STR$UPCASE$ LIB$INDEXP0f4j@8READ_FOLDER_FILE_KEYNAME_TEMPj(,fD LOWERCASEOPEN_B ULLFOLDER_SHARED޼X,1,-,f 1T LIB$INDEXPYYRR^(Rfn^SZ::~ZW-,Wn ƔPQ^`TRIMYZZP,PJf ,f,h)hTRIMPpfthˀxREAD_FOLDER_FILE_KEYNAME_TEMPhˌ˄READ_FOLDER_FILE_KEYNAME_TEMP,,h˘ːREAD_FOLDER_FILE_KEYNUM_TEMPYh˜ FOR$BJTESTPʏ˨REWRITE_FOLDER_FILE_TEMPCLOSE_BULLFOLDERh˰ FOR$BJTESTP SYS_BINTIM FOR$BJTEST P FOR$WRITE_SF FOR$IO_ENDռ1ѭ1)p1,޼Vf(P0DW(PDCONNECT_REMOTE_FOLDERի11 FOR$WRITE_SF FOR$IO_ENDTRIMPZZTDǔ*TZ  FOR$WRITE_SFZZǖ FOR$IO_T_DS FOR$IO_END* FOR$WRITE_SF FOR$IO_END¹ D  YTRIMPZ,^(,gn::~ZZ^(ZǖnZY.YZ,Zn ,gPQ^,11OPEN_BULLNEWS_SHAREDfNEWS_NEW_FOLDERfREAD_FOLDER_FILE_KEYNAMEYǴɴ1ɴǴɴ SYS_BINTIMǴɴf$ NEWS_GET_NEWEST_MESSAGEfXXǴ(NEWS_UPDATE_NEWEST_MESSAGEǴɴɴf40REWRITE_FOLDER_FILECLOSE_BULLFOLDER(PD8 FOR$BJTESTPD FOR$JIBSETPЫռ1PSET_FOLDER_FILEX FOR$BJTESTP1X^^hl NEWS_ACCESS䛏xX^|޼ˈˀCHKACLX^XˌTRIMPV}.BULLFIL~V^(VnVWWVV˔VX^˘޼ˤ˜CHKACLX^޼Wg1g 1)  81Z^^ˬ˰ NEWS_ACCESSꛏ˼Z^ CHECK_ACCESSZ^VTRIMPX}.BULLFIL~X^(XnXYYXXXV^ CHECK_ACCESSV^ SETPRV_PRIVP ԭ  11Q FOR$WRITE_SF FOR$IO_END1NEWS_FIND_SUBSCRIBEP_ NEWS_SET_USER_FLAG1~ FOR$WRITE_SF FOR$IO_END FOR$WRITE_SFTRIMP$8($ FOR$IO_T_DS FOR$IO_END,TEST2P8TEST2POPEN_BULLUSER_SHAREDgLDREAD_USER_FILE_KEYNAMEPCLR2\CLR2gFOR$REWRITE_SUt FOR$IO_X_SE FOR$IO_ENDCLOSE_BULLUSERg1gg h FOR$BJTESTP)pOPEN_BULLNEWS_SHAREDOPEN_BULLFOLDERtREAD_FOLDER_FILE_KEYNAME_TEMPˀ FOR$JIBCLRPˌREWRITE_FOLDER_FILE_TEMPCLOSE_BULLFOLDER)p< g< ѭ˔ FOR$CLOSEЭ޼Yi1Э((PZժ,,,ѭ,,j P0ˠ FOR$BJTESTPPP))˴ LIB$INDEXP,PD P0(ѭժ,=OPEN_BULLFOLDERREAD_FOLDER_FILE_KEYNAMEʸxʼ|(jREWRITE_FOLDER_FILECLOSE_BULLFOLDER COMPARE_BTIMPի READ_NOTIFYTEST2PNOTIFY_REMOTE_USERS1 FOR$BJTESTP FOR$BJTESTP LIB$INDEXP)  NEWS_FEEDP FOR$WRITE_SF FOR$IO_ENDի FOR$WRITE_SF FOR$IO_END)d FOR$WRITE_SF(TRIMPV.~V^(V0nVXXVV0^40 FOR$IO_T_V_DS FOR$IO_ENDX11h@ LIB$INDEXPPR,R@D P\STREQP FOR$WRITE_SF FOR$IO_ENDlxSTREQP FOR$WRITE_SF FOR$IO_END FOR$WRITE_SFˌ LIB$INDEXPPWW˘@D˜˘ FOR$IO_T_DS FOR$IO_ENDhhhi )  8ի)  FOR$WRITE_SF FOR$IO_ENDժ,11ˠ TEST_BULLCPP˨SET21˴TEST2P1 OPEN_BULLDIRiREADDIRi COMPARE_DATEPi, FOR$BJTESTPTEST2PTEST2PUPDATE_SHUTDOWNիiiUPDATE CLOSE_BULLDIR SET21  CLI$PRESENTP, @10 CLI$PRESENTP, @1@ CLI$PRESENTPP CLI$PRESENT CLI$_NEGATEDWPW , @` CLI$PRESENTPp CLI$PRESENT CLI$_NEGATEDWPW , @,iˀx GET_FIRST_TAG0 FOR$WRITE_SF FOR$IO_END1)ib FOR$WRITE_SFˈTRIMPː˔ː FOR$IO_T_DS FOR$IO_END FOR$WRITE_SF˘TRIMPˠˤˠ FOR$IO_T_DS FOR$IO_ENDiˬ˨NEWS_GET_NEWEST_MESSAGEiiih FOR$WRITE_SF FOR$IO_END1,1111)1,SC ˴˰ COMPARE_BTIMPFIND_NEWEST_BULLh FOR$WRITE_SF FOR$IO_ENDhUUWԫW W֫ FOR$WRITE_SFU FOR$IO_L_V FOR$IO_ENDhi˼ TEST_BULLCPP CHECK_CUSTOM FOR$BJTESTP FOR$WRITE_SF FOR$IO_ENDi SYS_GETMSGi FOR$WRITE_SF FOR$IO_ENDԼ,PPADDDELDIRINDREPSELSETSEAGENERALSE  SELECT_FOLDER CLI$_ABSENT CLI$_NEGATED NEWS_ACCESSUPDATE_EXCLUDEUPDATE_USERINFO CLI$GET_VALUETRIM LIB$INDEX FOR$BJTEST SYS_TRNLNMOPEN_BULLNEWS_SHAREDCLOSE_BULLFOLDER NEWS_LISTOPEN_BULLFOLDER_SHAREDREAD_FOLDER_FILE_KEYNUM_GT_TEMP STR$UPCASEREAD_FOLDER_FILE_KEYNAME_TEMP LOWERCASEREAD_FOLDER_FILE_KEYNUM_TEMPREWRITE_FOLDER_FILE_TEMP SYS_BINTIMCONNECT_REMOTE_FOLDERNEWS_NEW_FOLDERREAD_FOLDER_FILE_KEYNAMENEWS_GET_NEWEST_MESSAGENEWS_UPDATE_NEWEST_MESSAGEREWRITE_FOLDER_FILE FOR$JIBSETSET_FOLDER_FILECHKACL CHECK_ACCESS SETPRV_PRIVNEWS_FIND_SUBSCRIBENEWS_SET_USER_FLAGTEST2OPEN_BULLUSER_SHAREDREAD_USER_FILE_KEYNAMECLR2CLOSE_BULLUSEROPEN_BULLFOLDER FOR$JIBCLR FOR$CLOSE COMPARE_BTIM READ_NOTIFYNOTIFY_REMOTE_USERS NEWS_FEEDSTREQ TEST_BULLCPSET2 OPEN_BULLDIRREADDIRy COMPARE_DATEUPDATE_SHUTDOWNUPDATE CLOSE_BULLDIR CLI$PRESENT GET_FIRST_TAGFIND_NEWEST_BULL CHECK_CUSTOM SYS_GETMSG$CODE$PDATAl$LOCAL BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1BULL_DIR INPUT_BUFFERNEWS_DIRL HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGESPOINTACCESS COMMAND_LINE REMOTE_FOLDERSHUTDOWNDBULLPARTAGS SAVE_FOLDERS BULL_NOTIFYHEADERREADIT FLAG_ACCESSBULL_USER_CUSTOM LAST_FOLDER FOR$IO_END FOR$IO_L_V FOR$IO_T_DS FOR$IO_T_V_DS FOR$IO_X_SE FOR$READ_KU FOR$WRITE_SFFOR$REWRITE_SUPPPPP P> P+OP\P.lPtPvP(PPPdPP PrPPP"PO9P APQP]PkP=P#PPPPP P& P 3P NPbPhPqPPPEPDP&PP1P&5P"APbPfPrP P PPP3P*PPPP!P<POTPPPP@PPP&P 1P8P APtJP `P?iP&P P PP,P P  PP=OPJPPPP7PDG PS PW Ph P o Pt Px P P P  P  P PP Pd P # PLN Pu Pz P  Pd P` PT P PB P  P P P P  P P . P@_ P 2h P w P  PT P" P P P Pk Pf: P!? PR P a Pj Pxv Pl P` PO PA P P P PX PJK PW P P Pg PT PP P#P,P 5PDPOOPDSP8XP(\P$jPPPPPP PPPP P7P/P (P4P@POP aP eP nPwPPPPPPPPPE+P@PYP iP7qPPPPwP;P93PH<P?CP8UP#^PzPPPPPPPnPfPTP<PRPePnP)sP$PPe ſ ww1 r013SENDMAIL0130-Sep-1995 13:13DEC Fortran V6.1-68SENDMAILSENDMAILP"",P4H\$p$$ MAIL_ERROR$   P [}PQP}PQ P} PQ(P$, SYS$SETAST DISABLE_PRIVS< LIB$INDEXPd LIB$INDEXPRP LIB$INDEXPV<PRRP2oww1@_r01/SET20130-Sep-1995 13:02DEC Fortran V6.1-68 SET2 ( SET2{P P [Ь RR޻SBcRP PP~^ FOR$JIBSET^PBcR SET2 FOR$JIBSETD$CODE$PDATA $LOCAL Dww1`r015 SETDEFAULT0130-Sep-1995 13:04DEC Fortran V6.1-68 SETDEFAULT SETDEFAULTP @ LNM$PROCESSSYS$DISKSY)S$LOGINP T   $0\$ SYS$CRELNM@d0 SYS$CRELNM@   $ 9$ SYS$CRELNM@9 SYS$CRELNM@ P|[}PQ P INIT_ITMLST^*$ ADD_2_ITMLST^\^4( ADD_2_ITMLST^^D8 ADD_2_ITMLST^?X^TH ADD_2_ITMLST^X END_ITMLSTkp` SYS$GETUAIˀSETACCˈSETUSER2Z~^˔2X~^˘ːSETUIC^ INIT_ITMLST뚫~^ˠ^˨˜ ADD_2_ITMLST^ˬ END_ITMLSTЫ SYS$CRELNM INIT_ITMLST?^(?]n ^( Cn(HnQ^\V V~^^ ADD_2_ITMLST^ END_ITMLSTЫC SYS$CRELNM\QQ] $ SYS$SETDDIRCPSYS$DISK: + | SETDEFAULT INIT_ITMLST ADD_2_ITMLST END_ITMLST SYS$GETUAISETACCSETUSERSETUIC SYS$CRELNM SYS$SETDDIRb$CODEL$PDATA$LOCALA5@bww1r016 SETPRV_PRIV0130-Sep-1995 12:42DEC Fortran V6.1-68 SETPRV_PRIV SETPRV_PRIVGPP PPBULL_D,IR: G'BULL_DIR: G'BULLUSER.DAT D'QBULLFOLDER.DAT B'QBULLINF.DAT E'QPBULLNEWS.DAT D'Q`BULL_DIR: G'P[Rբբ OPEN_BULLUSER_SHAREDREAD_USER_FILE_HEADERCLOSE_BULLUSER  bӢ ԫЫP7  SETPRV_PRIVOPEN_BULLUSER_SHAREDREAD_USER_FILE_HEADERCLOSE_BULLUSER\$CODE$PDATA$LOCAL PRIVILEGESL HEADER_INFOL BULL_USER FOLDER_TIMES -SYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGES0FILES$P+P&EPLPRP%\ww1@ r015 SET_ACCESS0130-Sep-1995 12:56DEC Fortran V6.1-68 SET_ACCESSP ERROR: No such folder exists.8 ERROR: You are not able to modify access to the folder.( ERROR: Must use SET NEWS/CLASS/PRIVATE.& ERROR: Access file can.not be created. Cannot modify access.' ERROR: Folder is not a private folder. Access was not changed.$ Access to folder has been modified. ERROR: Cannot find file )) ERROR: Cannot modify access for owner of folder. Cannot modify access for ). Access modified for ). SET_ACCESSQALLREADONLYACCESS_IDACCESS_FOLDER.CLASS*NONEAccess is presently unlimited. Do you want to change this? (Y/N): RR+W+C R+W,.DIS]"P, /8PDP  @@D CLI$PRESENT@( CLI$PRESENT@ 8 CLI$GET_VALUE@ P CLI$GET_VALUE@h| CLI$PRESENT@ CLI$PRESENT@ CLI$PRESE0NT@,@T ADD_ACL@ ADD_ACL@B GET_INPUT_PROMPT@G ADD_ACL@G ADD_ACL@ A1DD_ACL@ ADD_ACL@II ADD_ACL@OQ0O DEL_ACL@8Q DEL_ACL@GP ADD_ACL@XG ADD_ACL@G DEL_ACL@G DEL_ACL@  CLI$GET_VALUE@U2W W FOR$OPEN@UD\X^ltGG ADD_ACL@QQ ADD_ACL@QQ DEL_ACL@GG DEL_ACL@,P3QGENERAL %'P[^Ы мX CLI$PRESENTPԭh CLI$PRESENTPYYx CLI$GET_VALUEPkː CLI$GET_VALUEPk CLI$_ABSENTk(,˨ LIB$INDEXQPQQVV˼ CLI$PRESENTP CLI$PRESENTP LOWERCASETRIMPRTRIMRRP-PB .TRIMPZ.~Z^(ZnZXXZ,Zn ,PQ^ OPEN_BULLNEWSOPEN_BULLFOLDERREAD_FOLDER_FILE_KEYNAME_TEMPCLOSE_BULLFOLDERk4 FOR$WRITE_SF FOR$IO_END1 FOLDER_ACCESSP! FOR$WRITE_SF FOR$IO_END1 CLI$PRESENTP  FOR$BJTESTP\ FOR$WRITE_SF FOR$IO_END1,SET_FOLDER_FILEVZ^^8<NEW_NEWS_ACCESSꛏHZ^LPCHKACLZ^ԭ\TRIMPW}.BULLFIL~W^(WnWZZWWdW^hlCHKACL^V1k1SET_PROTECTIONZ^^|ˀNEW_NEWS_ACCESSꛏˌZ^ː˔FOR$OP5ENZ^˴ FOR$CLOSERESET_PROTECTIONk FOR$WRITE_SF FOR$IO_ENDЭ ADD_ACLk FOR$WRITE_SF FOR$IO_END SYS_GETMSGЭ k(PX OPEN_BULLFIL CLOSE_BULLFILX< kSET_FOLDER_FILEk 1YV FOR$WRITE_SF FOR$IO_ENDЭ GET_INPUT_PROMPTxyxY FOR$WRITE_SF FOR$IO_ENDЭ  FOR$JIBSETP6Y ADD_ACL@ADD_ACLVXADD_ACL FOR$WRITE_SF FOR$IO_END111xDEL_ACLY˘ADD_ACLV˨ FOR$JIBCLRPV˴SET_FOLDER_FILE(PX OPEN_BULLDIR OPEN_BULLFILvCLOSE_BULLFIL_DELETECLOSE_BULLDIR_DELETEX˼SET_FOLDER_FILEDEL_ACLk FOR$WRITE_SF FOR$IO_END SYS_GETMSG CLI$GET_VALUEP711 SYS_TRNLNMPk|@1 LIB$INDEXpѫ$TRIMPZZ,}0<FOR$OPENk5 FOR$WRITE_SFZd}hd FOR$IO_T_DS FOR$IO_ENDЭ R FOR$READ_SFH FOR$IO_T_DS FOR$IO_ENDPRRkl FOR$CLOSE,n |ԭtTRIMP1˄ LIB$INDEXPX|[˘ LIB$INDEXPX|"}˨˴ LIB$INDEXPXX8XQ,Q| @8XW,WH| |(@|8,n |TRIMP-@8 8VT FOR$WRITE_SF FOR$IO_END1YADD_ACLADD_ACLDEL_ACLkDEL_ACLk FOR$WRITE_SF(8,( FOR$IO_T_DS FOR$IO_END0 SYS_GETMSG FOR$WRITE_SF88<89 FOR$IO_T_DS FOR$IO_END@TRIMPR FOR$READ_SFH FOR$IO_T_DS FOR$IO_ENDPXXkH FOR$CLOSE,n |ԭ1A1IѭV OPEN_BULLNEWSOPEN_BULLFOLDERWPREAD_FOLDER_FILE_KEYNAME_TEMPW\REWRITE_FOLDER_FILE_TEMPCLOSE_BULLFOLDERЭ   SET_ACCESS CLI$_ABSENTNEW_NEWS_ACCESS CLI$PRESENT CLI$GET_VALUE LIB$INDEX LOWERCASETRIM OPEN_BULLNEWSOPEN_:BULLFOLDERREAD_FOLDER_FILE_KEYNAME_TEMPCLOSE_BULLFOLDER FOLDER_ACCESS FOR$BJTESTSET_FOLDER_FILECHKACLSET_PROTECTIONFOR$OPEN FOR$CLOSERESET_PROTECTIONADD_ACL SYS_GETMSG OPEN_BULLFIL CLOSE_BULLFILGET_INPUT_PROMPT FOR$JIBSETDEL_ACL FOR$JIBCLR OPEN_BULLDIRCLOSE_BULLFIL_DELETECLOSE_BULLDIR_DELETE SYS_TRNLNMREWRITE_FOLDER_FILE_TEMP$CODE`$PDATA,$LOCAL BULL_FOLDER B;ULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1L HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGES REMOTE_FOLDER FOR$IO_END FOR$IO_T_DS FOR$READ_SF FOR$WRITE_SF P&P5P:PAPNP iP P PwP PWP/P2PJPvWPoPQP(PPP8PH7PCPP<P(PIP>=PBPEPIP"LP|P'PPP PP P PP~P PP$Pp*PjAPSDPPP PPPP P 5P6nP PPPPP PP(.P`PcP{PPP P PP P<P1%PN2PA5P ]PP<P P QE=ww1@r015 SET_BBOARD0130-Sep-1995 12:50DEC Fortran V6.1-68 SET_BBOARDP. 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.' WARNING: Account used by other folder.! If you specify the same account,> you must specify the address/ of the mailing list in the folder description. Folder was not modified. WARNING: ) account not in SYSUAF file.' 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_BBOARDQBB_USERNAMEDo you still want to make this change? Is the name a mail forwarding entry? (Y/N? with N as default): SPECIALVMSMAILEXPIRATIONHP, 8  LP (p`PH,  CLI$GET_VALUE@0X484,,'<( GET_INPUT_PROMPT@><H GET_INPUT_PROMPT@H@,,    CLI$PRESENT@ CLI$PRESENT@   CLI$PRESENT@  CLI$GET_VALUE@x@  CLI$PRESENT@,,PQGENERAL %'PPBULL_DIR: G'BULL_DIR: G'BULLUSER.DAT D'QBULLFOLDER.DAT B'QBULLINF.DAT E'QPBULLNEWS.DAT D'Q`BULL_DAIR: G'P ,[lTRIMP FOR$WRITE_SF FOR$IO_ENDVt FOLDER_ACCESSP1OPEN_BULLFOLDER˄READ_FOLDER_FILE_KEYNAMEː NEWS_FEEDP)Ɣ&1 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$BJTESTPB FOR$WRITE_SF FOR$IO_ENDOPEN_BULLFOLDERREAD_FOLDER_FILE_TEMPk,,) READ_FOLDER_FILE_TEMP,,)  FOR$WRITE_SF FOR$IO_END FOR$WRITE_SF FOR$IO_ENDGET_INPUT_PROMPTyYCLOSE_BULLFOLDERn FOR$WRITE_SF FOR$IO_END CLOSE_BULLFOLDER FOR$WRITE_SF FOR$IO_T_DS FOR$IO_END$GET_INPUT_PROMPTyCYn FOR$WRITE_SF FOR$IO_ENDOPEN_BULLFOLDERƤƨƨƤ}Ƭ4READ_FOLDER_FILE_KEYNAMEƨƤ}Ƭ( Ɣ OPEN_BULLUSER@ SYS$ASCTIMTREAD_USER_FILE_HEADER\ SYS_BINTIMFOR$REWRITE_SU< FOR$IO_X_SE FOR$IO_ENDCLOSE_BULLUSERp CLI$PRESENTPx FOR$JIBSETPƤˌ CLI$PRESENTP˔ FOR$JIBSETPƨ˨ CLI$PRESENTPЏƤƨXXR BƔ X)ƔD( FOR$WRITE_SF FOR$IO_END˸ CLI$GET_VALUEPkkW1ѫL FOR$READ_IF߫ FOR$IO_L_R FOR$IO_ENDѫ SETPRV_PRIVP FOR$WRITE_SF FOR$IO_L_R FOR$IO_ENDCLOSE_BULLFOLDERի FOR$WRITE_SF FOR$IO_ENDCLOSE_BULLFOLDERЫƠ CLI$PRESENTPƠ,( REWRITE_FOLDER_FILECLOSE_BULLFOLDER7 FOR$WRITE_SF FOR$IO_ENDE_ FOR$WRITE_SF FOR$IO_END@P&P::NONE@ SET_BBOARD CLI$_ABSENTTRIM FOLDER_ACCESSOPEN_BULLFOLDERREAD_FOLDER_FILE_KEYNAME NEWS_FEEDCLOSE_BULLFOLDER CLI$GET_VALUEGET_UAF FOR$BJTESTREAD_FOLDER_FILE_TEMPGET_INPUT_PROMPT OPEN_BULLUSER SYS$ASCTIMREAD_USER_FILE_HEADER SYS_BINTIMCLOSE_BULLUSER CLI$PRESENT FOR$JIBSET SETPRV_PRIVREWRITE_FOLDER_FILEi$CODEF,$PDATA$LOCAL BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1L HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGES0FILES FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$IO_X_SE FOR$WRITE_SFFOR$REWRITE_SU FOR$READ_IF%P_P?P\P hPPPZP:P.P$P3P G=P HP ]PnhPcP'P PuP PP(PPNP /P";PdPkPP9P-PPPPEP|iww1 r01?SET_BRIEF_CONTINUOUS0130-Sep-1995 13:13DEHC Fortran V6.1-68SET_BRIEF_CONTINUOUS SET_BRIEF_CONTINUOUSP LP[OPEN_BULLUSER_SHAREDREAD_USER_FILE_KEYNAME  kFOR$REWRITE_SU  FOR$IO_X_SE FOR$IO_ENDCLOSE_BULLUSERV SET_BRIEF_CONTINUOUSOPEN_BULLUSER_SHAREDREAD_USER_FILE_KEYNAMECLOSE_BULLUSERT$CODE$PDATA $LOCALL HEADER_INFOL BULL_USER I FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGES FOR$IO_END FOR$IO_X_SEFOR$REWRITE_SUP $P 1P'?Tww1Aor016 SET_BULLFIL0130-Sep-1995 13:04DEC Fortran V6.1-68 SET_BULLFIL SET_BULLFILP-.].BULLNEWS PP TJTh |,PQGENERAL %'dP PP [^k [^kk [^ҫ SYS$ASCTIMP) , SYS$ASCTIM ( @ FIRST_ALPHAPP \,\@ P LIB$INDEXPW˘ LIB$INDEXPXˤTRIMPYd LIB$INDEXP^ˈx LIB$INDEXP^ˌ˄MINGT0^PZ^(GnWW^(WnW\\W]~WKVXXYY^(YHnY\V\W}BULLNEWS~WYZ^(ZnZ\Y\V,Vn PPQ^)P(Pԫ  CLOSE_BULLFIL   OPEN_BULLFIL  OPEN_BULLFIL_SHAREDԫk FOR$READ_DU FOR$IO_L_R FOR$IO_ENDFOR$REWRITE_SUP~ FOR$IO_L_V FOR$IO_ENDkP17-NOV-1858   SET_BULLFIL SET_BULLFIL_UPDATE &SET_BULLFIL_NAME SYS$ASCTIM FIRSLT_ALPHA LIB$INDEXMINGT0TRIM CLOSE_BULLFIL OPEN_BULLFILOPEN_BULLFIL_SHARED$CODE$PDATA$LOCAL BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1BULL_DIR INPUT_BUFFERNEWS_DIRBULLFIL FOR$IO_END FOR$IO_L_R FOR$IO_L_V FOR$READ_DUFOR$REWRITE_SU\P %P AP LP]P FP`XPgP{PPPPDK? Mww1=yr01?SET_BULLNEWSDIR_FILE0130-Sep-1995 12:59DEC Fortran V6.1-68SET_BULLNEWSDIR_FILE P SET_BULLNEWSDIR_FILE.].BULLNEWSPPP  4,PQGENERAL %'P[,n PN FOR$ENCODE_MFݼ FOR$IO_L_V FOR$IO_END FIRST_ALPHAPPPR,R@ PTRIMPVTTRIMPW( LIB$INDEXP^L< LIB$INDEXP^PHMINGT0^PX.~VVWW^(WFnWZZW]~WYV^(VnVZYZW ^( nW ZX^(XnXYZYV,Vn PPQ^PBULLNEWSDIR.6 SET_BULLNEWSDIR_FILE FIRST_ALPHATRIMMINGT0 LIB$INDEX$CODE$PDATA\$LOCAL BULL_FOLDER BULL_FOLDER1 O NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1P NEWSDIR_FILE FOR$IO_END FOR$IO_L_V FOR$ENCODE_MF!\ww1Wr015 SET_CUSTOM0130-Sep-1995 13:13DEC Fortran V6.1-68 SET_CUSTOM;P% ERROR: Error in opening custom file.))@ SET_CUSTOMBULL_USER_CUSTOMSET_PARAM2 P@4$4P SYS_TRNLNM@ @  x  EE CLI$GET_VALUE@dPPP [}PQP , SYS_TRNLNMPkk,P @ DISABLE_PRIVS8TRIMP@DHFOR$OPENpTRIMPx|ˀFOR$OPEN ENABLEQ_PRIVSk FOR$WRITE_SF FOR$IO_END< RRVTT1( FOR$READ_SF߫ FOR$IO_L_R FOR$IO_T_DS FOR$IO_ENDPSST)V+ FOR$WRITE_SF˰˴˰ FOR$IO_T_DS FOR$IO_ENDPSST1} CLI$GET_VALUEP+ FOR$WRITE_SF«^(nЫW:~WX  days. ERROR: Expiration must be > -1. Default expiration modified.* You are not authorized to set expiration.SET_DEFAULT_EXPIREQDEFAULT_EXPIREP, 8   @ CLI$GET_VALUE@(,PQGENERAL %'P[, FOLDER_ACCESSP1D CLI$GET_VALUEPkѫU$ FOR$READ_IF߫ FOR$IO_L_R FOR$IO_ENDOPEN_BULLFOLDERTREAD_FOLDER_FILE_KEYNAMEѫ` SETPRV_PRIVP FOR$WRITE_SF FOR$IO_L_R FOR$IO_ENDѫ3 FOR$WRITE_SF FOR$IO_ENDЫV FOR$WRITE_SF FOR$IO_ENDhREWRITE_FOLDER_FILECLOSE_BULLFOLDERv FOR$WRITE_SF FOR$IO_ENDP SET_DEFAULT_EXPIRE FOLDER_ACCESS CLI$GET_VALUEVOPEN_BULLFOLDERREAD_FOLDER_FILE_KEYNAME SETPRV_PRIVREWRITE_FOLDER_FILECLOSE_BULLFOLDER $CODE$PDATAt$LOCAL BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1L HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGES FOR$IO_END FOR$IO_L_R FOR$WRITE_SF FOR$READ_IFIPP'PaP2lP' WPDPP P5) ww1@4lr013SET_FILE0130-Sep-1995 13:04DEC Fortran V6.1-68SET_FILESET_FILEPPPPPPPBULL_DIR: G'BULL_DIR: G'BULLUSER.DAT D'QBULLFOLDER.DAT B'QBULLINF.DAT E'QPBULLNEWS.DAT D'Q`BULL_DIR: G' XP [}PQPk}PQ P޼$ FOR$BJTESTP,TRIMPVP$PP PP P4POP8RP,PP$PP3P$P1P$'P>3P$6P\P Anww1 ?r013SET_NEWS0130-Sep-1995 13:13DEC Fortran V6.1-68SET_NEWSP ERROR: No privs to change NEWS. ERROR: Invalid value for LIMIT.% ERROR: Invalid value for EXPIRATION.+ ERROR: You have not selected a news group. ERROR: Class name too long. ERROR: Class not found. Class deleted. Unable to add entry. ERROR: Invalid news group. Stored setting was not removed. For class ): Disable is set. Default is stored. Default is not stored.) Default expiration for stored groups is ). Expiration is DEFAULT value.) Default expiration for stored groups is 14. Default expiration limit is ).# Expiration limit is DEFAULT value.& There is no default expiration limit. Private is set. For news group ): News group is stored. Expiration is ). News group is not stored. Expiration limit is ). There is no expiration limit. DUMP has been set. This is a default news group. This is a permanent news group.& Default is BRIEF, which is permanent. Default is BRIEF.( Default is READNEW, wh$ich is permanent. Default is READNEW.( Default is SHOWNEW, which is permanent. Default is SHOWNEW. BRIEF is the permanent setting." READNEW is the permanent setting." SHOWNEW is the permanent setting.' Default is NOTIFY, which is permanent. Default is NOTIFY. NOTIFY is permanent. Default is NONOTIFY. Access is not limited. Modifying news groups...( ERROR: No news groups match class name. ERROR: Class has been removed. Resetting to ) folder. Modifying news groups. This will take a while...SET_NEWS  LIMITEXPIRATIONDEFAULTCLASSSHOW_FOLDER.DELETE6-NOV-2956 00:00:00.005-NOV-1956 00:00:00.00ALLDISABLEENABLEPRIVATESTOREDAre you sure you want to remove stored setting? (Y/N with N as default): *DEFAULT*PERMFULLP   , , P DP 008hP@,44 CLI$GET_VALUE@@ ` :<: CLI$GET_VALUE@@ThEpE CLI$PRESENT@EE CLI$PRESENT@MM CLI$PRESENT@ SS CLI$PRESENT@EE CLI$PRESENT@dMM CLI$GET_VALUE@@paa CLI$PRESENT@   4dddh|h SYS_BINTIM@ SYS_BINTIM@ ddtd SS CLI$GET_VALUE@_dM$M CLI$PRESENT@E4E CLI$PRESENT@D CLI$PRESENT@_T\p CLI$PRESENT@ CLI$PRESENT@ CLI$PRESENT@ CLI$PRESENT@ CLI$PRESENT@   CLI$PRESENT@I@ GET_INPUT_PROMPT@   d ,d  $ld    d$d   ( (d  (      (Pt      x$,0| $,0t CLI$PRESENT@  dd0d_D  d ,d  $   ( (    dd d , d d dd     $ ( (d d d ,PQGENERAL %'PPBULL_DIR: G'BULL_DIR: G'BULLUSER.DAT D'QBULLFOLDER.DAT B'QBULLINF.DAT E'QPBULLNEWS.DAT D'Q`BULL_DIR: G'P`[(^ˠ SETPRV_PRIVP FOR$WRITE_SF FOR$IO_END`[(^W˰ CLI$GET_VALUEP@gЭk OTS$CVT_TI_LkPѭ# FOR$WRITE_SF FOR$IO_END CLI$GET_VALUEP@gЭ OTS$CVT_TI_LЫPխ CLI$PRESENTPF FOR$WRITE_SF FOR$IO_ENDH CLI$PRESENTP( CLI$PRESENTP8 CLI$PRESENTPn FOR$WRITE_SF FOR$IO_ENDOPEN_BULLNEWS_SHAREDX CLI$PRESENTP`READ_FOLDER_FILE_KEYNUM_TEMP1t CLI$GET_VALUEP1.~@^(@n@Z,Zn @PQ^˄ STR$UPCASE@\\@\, FOR$WRITE_SF FOR$IO_ENDCLOSE_BULLNEWS,\ ,\ \ː˔˘READ_FOLDER_FILE_KEYNAME_TEMPˬ CLI$PRESENTP1ի FOR$WRITE_SF FOR$IO_END FOR$DELETE FOR$WRITE_SF FOR$IO_END˴ FOR$BJTESTPZ^^ NEWS_ACCESSꛏZ^FOR$OPENZ^ FOR$CLOSEի1READ_FOLDER_FILE_KEYNUM_TEMPիREC_LOCKP~߫x FOR$READ_KU FOR$IO_ENDPRRիh      $ SYS_BINTIM0 GET_MSGKEYD SYS_BINTIMP GET_MSGKEYh ,(,g \ FOR$JIBSETP hWRITE_FOLDER_FILE_TEMPիCLOSE_BULLNEWS FOR$WRITE_SF FOR$IO_END ,pREAD_FOLDER_FILE_KEYNUM_TEMPЫhFOR$REWRITE_SUˀ FOR$IO_X_SE FOR$IO_END|READ_FOLDER_FILE_KEYNUM_TEMPː CLI$GET_VALUE CLI$_ABSENT\P\(,  ˤ LIB$INDEXP˰ LOWERCASE˸READ_FOLDER_FILE_KEYNAME_TEMPի FOR$WRITE_SF FOR$IO_ENDCLOSE_BULLNEWSխЭ ѭЭ  CLI$PRESENTP\ CLI$PRESENTP CLI$PRESENTP\ RR LIB$INDEXP CLI$PRESENTP( CLI$PRESENTP8 CLI$PRESENTPH CLI$PRESENT CLI$_NEGATEDSTPSTTUUZX CLI$PRESENTPZ` FOR$BJTESTP\    l FOR$JIBSETP 1ˀ CLI$PRESENTPS1ZːGET_INPUT_PROMPTgygY FOR$WRITE_SF FOR$IO_ENDCLOSE_BULLNEWS1YˠTRIMPX^(nX^(XnXWWXX˨XY^ˬ˰LIB$DELETE_FILEY^W˸TRIMPV^('nV^(VnVYYVVVW^LIB$DELETE_FILEW^1 FOR$BJTESTP\CLOSE_BULLNEWS(,  , , , , SELECT_FOLDER(,  OPEN_BULLDIRCLOSE_BULLDIR_DELETEOPEN_BULLNEWS_SHAREDREAD_FOLDER_FILE_KEYNUM_TEMP     FOR$JIBCLRP  FOR$JIBCLRP X^^NEW_NEWS_ACCESSꛏ X^$(FOR$OPENX^H  FOR$CLOSE¹!T FOR$JIBCLRP 1` FOR$BJTESTP1SET_PROTECTIONV^^pt NEWS_ACCESSꛏˀV^˄ˈFOR$OPENV^˨ FOR$CLOSEիW^^˴˸NEW_NEWS_ACCESSꛏW^FOR$OPENW^ FOR$CLOSERESET_PROTECTION FOR$JIBSETP  FOR$JIBCLRP   FOR$JIBSETP ɭQRZRRSSQȭQɭQREWRITE_FOLDER_FILE_TEMP\ $ ( ,0STREQP TT<@DSTREQP|   P OTS$CVT_L_TI\1\A FOR$WRITE_SF hlh FOR$IO_T_DS FOR$IO_ENDp FOR$BJTESTPS FOR$WRITE_SF FOR$IO_END| FOR$BJTESTPf FOR$WRITE_SF FOR$IO_END| FOR$WRITE_SF FOR$IO_ENDˈ OTS$CVT_L_TI  FOR$WRITE_SFˠ FIRST_ALPHAPP@UU˨@ˬ˨ FOR$IO_T_DS FOR$IO_END\ FOR$WRITE_SF FOR$IO_END FOR$WRITE_SF FOR$IO_END˰ OTS$CVT_L_TI  FOR$WRITE_SF FIRST_ALPHAPP@RR@ FOR$IO_T_DS FOR$IO_END\ ; FOR$WRITE_SF FOR$IO_ENDa FOR$WRITE_SF FOR$IO_END FOR$BJTESTP FOR$WRITE_SF FOR$IO_END1 Y FOR$BJTESTP LIB$INDEXP,PD P0 FOR$WRITE_SFTRIMP 0  FOR$IO_T_DS FOR$IO_ENDS FOR$WRITE_SF FOR$IO_END1 LIB$INDEXP,PD P0 FOR$WRITE_SF(TRIMP0040 FOR$IO_T_DS FOR$IO_END8 FOR$BJTESTP1 FOR$WRITE_SF FOR$IO_ENDD OTS$CVT_L_TI  FOR$WRITE_SF\ FIRST_ALPHAPP@WWd@hd FOR$IO_T_DS FOR$IO_END FOR$WRITE_SF FOR$IO_END FOR$WRITE_SF FOR$IO_ENDl OTS$CVT_L_TI  FOR$WRITE_SF˄ FIRST_ALPHAPP@SSˌ@ːˌ FOR$IO_T_DS FOR$IO_END ; FOR$WRITE_SF FOR$IO_END FOR$WRITE_SF FOR$IO_END˔ FOR$BJTESTP= FOR$WRITE_SF FOR$IO_ENDˠ FOR$BJTESTP FOR$WRITE_SF FOR$IO_ENDURWOPEN_BULLINF_SHAREDˬREC_LOCKP~~˴  FOR$READ_KU( FOR$IO_T_DS߫8 FOR$IO_X_DA FOR$IO_ENDPSSSի1PPT2DQQ,P_PP_>D˼ FOR$BITESTPU>D FOR$BITESTPR>D FOR$BITESTPWS FOR$WRITE_SF FOR$IO_ENDTYVREC_LOCKP~~  FOR$READ_KU( FOR$IO_T_DS߫8 FOR$IO_X_DA FOR$IO_ENDPիPPX2HQQ,P_PP_>H FOR$BITESTPT>H FOR$BITESTPY>H  FOR$BITESTPVt FOR$WRITE_SF FOR$IO_ENDSRWYVS FOR$WRITE_SF FOR$IO_END FOR$WRITE_SF FOR$IO_ENDYV8S FOR$WRITE_SF FOR$IO_END FOR$WRITE_SF FOR$IO_ENDWVYS FOR$WRITE_SF FOR$IO_ENDB FOR$WRITE_SF FOR$IO_ENDSYVY FOR$WRITE_SF FOR$IO_ENDYV| FOR$WRITE_SF FOR$IO_ENDVY FOR$WRITE_SF FOR$IO_ENDUT FOR$WRITE_SF FOR$IO_ENDի FOR$WRITE_SF FOR$IO_ENDT FOR$WRITE_SF FOR$IO_ENDի FOR$WRITE_SF FOR$IO_END CLOSE_BULLINF CLI$PRESENTP1$ FOR$BJTESTP1W^^48 NEWS_ACCESSꛏDW^HLCHKACLW^1ѫ 1X SETPRV_PRIVP $V^^dh NEWS_ACCESSꛏtV^x| CHECK_ACCESSV^$Y^^˔˘ NEWS_ACCESSꛏˤY^˨ˬSHOWACLY^ѫ 6 FOR$WRITE_SF FOR$IO_ENDխѭ\իCLOSE_BULLNEWS\11P FOR$WRITE_SF FOR$IO_END(, ˴ LOWERCASE WW˼READ_FOLDER_FILE_KEYNAME_TEMPի-W ,  READ_FOLDER_FILE_KEYNAMEGE_TEMPY LIB$INDEX\P \\VTRIMPWի1)  .~W^(W nWXXWT- WnTRS^T1Y RZ1 FOR$BJTESTPCLOSE_BULLNEWSТ, ,  SELECT_FOLDER OPEN_BULLDIRCLOSE_BULLDIR_DELETEOPEN_BULLNEWS_SHAREDREAD_FOLDER_FILE_KEYNUM_TEMP    $ FOR$JIBCLRP 0 FOR$JIBCLRP Z< FOR$BJTESTP´H FOR$JIBSETPխ VխЭ խVխЭT FOR$JIBCLRP ` FOR$JIBSETP l FOR$JIBSETP x FOR$JIBCLRP ˄REWRITE_FOLDER_FILE_TEMPˌREAD_FOLDER_FILE_KEYNAMEGT_TEMP1RY1l FOR$WRITE_SF FOR$IO_END FOR$WRITE_SF FOR$IO_ENDOPEN_BULLNEWS_SHARED˘ STR$UPCASE ˤ˨ˬREAD_FOLDER_FILE_KEYNAME_TEMP FOR$DELETECLOSE_BULLNEWSX^^˼NEW_NEWS_ACCESSꛏX^FOR$OPENX^ FOR$CLOSE),  ,(,  SELECT_FOLDER , SELECT_FOLDER FOR$WRITE_SF TRIMP  $  FOR$IO_T_DS FOR$IO_END111 FOR$WRITE_SF FOR$IO_ENDԫ \ի1( READ_FOLDER_FILE_TEMPխ̠խZ0 FOR$BJTESTPZ< FOR$BJTESTP̴ZH FOR$JIBSETPZT FOR$JIBCLRP Z` FOR$JIBCLRP l FOR$JIBCLRP x FOR$JIBSETP ˄ REWRITE_FOLDER_FILE_TEMP1. ,(,  ˌ SELECT_FOLDER ,˘ SELECT_FOLDER FOR$WRITE_SFˤ TRIMPˬ  ˰ ˬ \ FOR$IO_T_DS FOR$IO_ENDCLOSE_BULLNEWSP[.BULLNEWS*]*.*;*BULLNEWS*.DIR;* SET_NEWS CLI$_NEGATED CLI$_ABSENTNEW_NEWS_ACCESS NEWS_ACCESS SETPRV_PRIV 2 SHOW_NEWS CLI$GET_VALUE OTS$CVT_TI_L CLI$PRESENTOPEN_BULLNEWS_SHAREDREAD_FOLDER_FILE_KEYNUM_TEMP STR$UPCASECLOSE_BULLNEWSREAD_FOLDER_FILE_KEYNAME_TEMP FOR$BJTESTFOR$OPEN FOR$CLOSEREC_LOCK SYS_BINTIM GET_MSGKEY FOR$JIBSETWRITE_FOLDER_FILE_TEMP LIB$INDEX LOWERCASEGET_INPUT_PROMPTLIB$DELETE_FILETRIM SELECT_FOLDER OPEN_BULLDIRCLOSE_BULLDIR_DELETE FOR$JIBCLRSET_PROTECTIONRESET_PROTECTIONREWRITE_FOLDER_FILE_TEMPSTREQ OTS$CVT_L_TI FIRST_ALPHAOPEN_BULLINF_SHARED FOR$BITEST CLOSE_BULLINFCHKACL CHECK_ACCESSSHOWACLREAD_FOLDER_FILE_KEYNAMEGE_TEMPREAD_FOLDER_FILE_KEYNAMEGT_TEMPREAD_FOLDER_FILE_TEMP$CODE6$PDATA $LOCALL HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGES BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER10FILESDBULLPAR REMOTE_FOLDERNEXTP NEWSDIR_FILE FOR$DELETE FOR$IO_END FOR$IO_T_DS FOR$IO_X_DA FOR$IO_X_SE FOR$READ_KU FOR$WRITE_SFFOR$REWRITE_SUP1P TPGxP PPPPP%PP;P/P#(PRP ]PmPYP PP)P!VP>P%PCP$PPiPPeP P  P0PBPsP!PPNP+P(P$5P|GPjZP%`PPPPs"Pp?PPRPNPPhP>PPPFPd:PVP!PPP-PP P* PEo P2r P P PE P: P! P P= PU Pj Pe P) PQ PF P P PE P6# P; P] P P P< P- P P P( PSy P P8 P- P{ P P POPP{SP<VP!YPtPP:P!PPP:P7PPPP[ PP&P=*P-PEPJPMPfP=iPPPP:PPPPP:PGPTP ^P6P5P PPPPP P PZP#POjP wPPP-PcPPu.PP<P6P*PP PPP PPPP0P\PPh$PGqP yP~PPPPPP PP(P P P5PIP]PPGww1`.tr01BSET_NEWS_FOLDER_DEFAULT0130-Sep-1995 13:05DEC Fortran V6.1-68!SET_NEWS_FOLDER_DEFAULTuP* ERROR: /NOTIFY is invalid with non-stored news group.0 ERROR: Privileges needed for changing defaults.#SET_NEWS_FOLDER_DEFAULTQALLDEFAULTNODEFAULTNOPERMANENTPERMANENT*PERM*PERM *DEFAULT*DEFAULT P   x(x CLI$PRESENT@|8| CLI$PRESENT@ H CLI$PRESENT@ X CLI$PRESENT@ h CLI$PRESENT@ x CLI$PRESENT@  CLI$PRESENT@  CLI$PRESENT@ptttppttt ptttpp ,PQGENERAL %'P[TUV޼ WgPPP޼XhQQQQP޼YiRRRRPQPQQZh FOR$WRITE_SF FOR$IO_END)1 SETPRV_PRIVP; FOR$WRITE_SF FOR$IO_END0 CLI$PRESENTPT@ CLI$PRESENTPUP CLI$PRESENTPVOPEN_BULLNEWS_SHAREDOPEN_BULLINF_SHAREDZVˀ CLI$PRESENTP` CLI$PRESENTPp CLI$PRESENTP1ˈREC_LOCKP~~ː  FOR$READ_KU FOR$IO_T_DS߫ FOR$IO_X_DA FOR$IO_ENDPRRkkQ PԀԀ`Qˠ CLI$PRESENTPh˰i˴g˸˨ SET_NEWS_FLAGZUV CLI$PRESENTPh SET_NEWS_FLAGig SET_NEWS_FLAGZ SET_NEWS_FLAGCLOSE_BULLNEWS CLOSE_BULLINFk FOR$REWRITE_SU FOR$IO_T_DS߫ FOR$IO_X_DA FOR$IO_ENDPRR  FOR$WRITE_SU FOR$IO_T_DS߫ FOR$IO_X_DA FOR$IO_ENDPRROPEN_BULLNEWS_SHAREDOPEN_BULLINF_SHAREDREC_LOCKP~~  FOR$READ_KU FOR$IO_T_DS߫ FOR$IO_X_DA FOR$IO_ENDPRRkkQ PԀԀ`QVZ UV1޼R޼ S޼UVZe  SET_NEWS_FLAGbc4 SET_NEWS_FLAGePbTcXH SET_NEWS_FLAGCLOSE_BULLNEWS CLOSE_BULLINFk FOR$REWRITE_SU FOR$IO_T_DS߫ FOR$IO_X_DA FOR$IO_ENDPVV  FOR$WRITE_SU\ FOR$IO_T_DS߫ FOR$IO_X_DA FOR$IO_ENDPRRի1TZ1)1OPEN_BULLUSER_SHAREDdREAD_USER_FILE_HEADER޼VlREAD_USER_FILEի1*1:1tTRIMPZZSCUUUCZZJQQQJZZZ|REC_LOCKP~~  FOR$READ_KU FOR$IO_T_DS߫ FOR$IO_X_DA FOR$IO_ENDPZZkkS TԄԄ`Sfˌ޼ː ˔˄ SET_NEWS_FLAGk FOR$REWRITE_SU FOR$IO_T_DS߫ FOR$IO_X_DA FOR$IO_ENDPRR  FOR$WRITE_SU FOR$IO_T_DS߫ FOR$IO_X_DA FOR$IO_ENDPUU˘READ_USER_FILE1CLOSE_BULLUSERCLOSE_BULLNEWS CLOSE_BULLINFPSET SET_NEWS_FOLDER_DEFAULT CLI$_NEGATED SETPRV_PRIV CLI$PRESENTOPEN_BULLNEWS_SHAREDOPEN_BULLINF_SHAREDREC_LOCK SET_NEWS_FLAGCLOSE_BULLNEWS CLOSE_BULLINFOPEN_BULLUSER_SHAREDREAD_USER_FILE_HEADERREAD_USER_FILETRIMCLOSE_BULLUSERR$CODE$PDATA$LOCAL BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1L HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGES COMMAND_LINE REMOTE_FOLDER FOR$IO_END FOR$IO_T_DS FOR$IO_X_DA FOR$READ_KU FOR$WRITE_SF FOR$WRITE_SUFOR$REWRITE_SUIP"RP{PPPP%PPP=P8 P-CPgP PP9P P*P PP P PP0P$P/ P%8PWP8ZP-PPP PPP2P/P P P P#P7P0:P$gP/jP%PPPPP\PBP6 P9P [P8^P,PP2P$P0P$Rww1 6ܦr018 SET_NEWS_MARK0130-Sep-1995 13:13DEC Fortran V6.1-68 SET_NEWS_MARK SET_NEWS_MARK4PмP@мQмA^  SET_NEWS_MARK*$CODE$PDATA$LOCAL NEWS_MARK PP *ww1r017 SET_NEWS_TAG0130-Sep-1995 13:13DEC Fortran V6.1-68 SET_NEWS_TAG SET_NEWS_TAG PP[ RռмkP PPѼ@Ѽ@޼@ث@Ы SET_TAGռμQP PPSQCCPPQQPPTkQCPPQQPPѫTCث$CЫ(SET_TAGT  SET_NEWS_TAGSET_TAG$CODE$PDATA,$LOCALL HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGES NEWS_TAGS3P?,P4PRPfXP`pPP-!>@ww1r013SET_NODE0130-Sep-1995 12:50DEC Fortran V6.1-68SET_NODE|P" ERROR: No privs to modify folder.# ERROR: Specified folder not found./ Cannot set remote node for the default folder.( Cannot set remote node for this folder.& Remote node setting has been removed. Folder was not modified.- ERROR: Folder not accessible on remote node.% Folder has been converted to remote.' You are not authorized to modify NODE.SET_NODEQFOLDER*REMOTENAMENODENAME@P, 8 ,   PP, CLI$PRESENT@ CLI$GET_VALUE@XX0hH0hHPp CLI$PRESENT@@x4 0 CLI$GET_VALUE@XD CLI$GET_VALUE@`8<0pt0| CLI$PRESENT@@0xP00 CLI$PRESENT@0p,PQGENERAL %'PPBULL_DIR: G'BULL_DIR: G'BULLUSER.DAT D'QBULLFOLDER.DAT B'QBULLINF.DAT E'QPBULLNEWS.DAT D'Q`BULL_DIR: G'dPP0[V` CLI$PRESENTP1p CLI$GET_VALUEPk(,fOPEN_BULLFOLDER_SHARED|READ_FOLDER_FILE_KEYNAMEkˈ FOLDER_ACCESSP FOR$WRITE_SF FOR$IO_ENDk% FOR$WRITE_SF FOR$IO_ENDk˘READ_FOLDER_FILE_KEYNAMECLOSE_BULLFOLDERCLOSE_BULLFOLDERզ,K FOR$WRITE_SF FOR$IO_END1զ,Ѧ,} FOR$WRITE_SF FOR$IO_END1ˤ FOLDER_ACCESSP11˼ LIB$INDEXPWTRIMPX,^(,fnX^(XPnXZ,ZX,Xn PPQ^ OPEN_BULLDIRCLOSE_BULLDIR_DELETEW,  FOR$WRITE_SF FOR$IO_END CLI$PRESENTP1ZTRIMPY"^("nY^(YfnYW"WY%^(%nY%XXXZ^GET_INPUT_PROMPTZ^ЏyЏY FOR$WRITE_SF FOR$IO_END CLI$GET_VALUEP(,f CLI$GET_VALUEPk«^(nЫW::~WX,Xn PQ^,CONNECT_REMOTE_FOLDERk FOR$WRITE_SF FOR$IO_END FOR$WRITE_SF FOR$IO_END8TRIMPZ,^(,fnZ^(ZPnZW,WX,Xn PPQ^Z OPEN_BULLDIR OPEN_BULLFILCLOSE_BULLFIL_DELETECLOSE_BULLDIR_DELETE),f OPEN_BULLDIR((p@WRITEDIR_NOCONV CLOSE_BULLDIR*~XX^(XnXWWX,Xn PQ^ZT CLI$PRESENTPOPEN_BULLFOLDER\READ_FOLDER_FILE_KEYNAMEh FOR$BJTESTP1)Ɣ11YtTRIMPX^(nXX^(XƖnXWWXX|XY^ˀ˄FOR$OPENY^kE FOR$WRITE_SF| FOR$IO_L_Rt FOR$IO_L_R FOR$IO_ENDPRRk˨ FOR$CLOSE( ƔƴƸƼƴ˰REWRITE_FOLDER_FILECLOSE_BULLFOLDERI FOR$WRITE_SF FOR$IO_END CLI$PRESENTPOPEN_BULLFOLDER_SHAREDREAD_FOLDER_FILE_KEYNAMECLOSE_BULLFOLDERTRIMPW,^(,nW^(WPnWX,XY,Yn PPQ^PNONEQ"Are you sure you want to make folder Q remote? (Y/N with N as default): Q%::::"TASK=BULLETIN1" SET_NODE CLI$_ABSENT CLI$PRESENT CLI$GET_VALUEOPEN_BULLFOLDER_SHAREDREAD_FOLDER_FILE_KEYNAME FOLDER_ACCESSCLOSE_BULLFOLDER LIB$INDEXTRIM OPEN_BULLDIRCLOSE_BULLDIR_DELETEGET_INPUT_PROMPTCONNECT_REMOTE_FOLDER OPEN_BULLFILCLOSE_BULLFIL_DELETEWRITEDIR_NOCONV CLOSE_BULLDIROPEN_BULLFOLDER FOR$BJTESTFOR$OPEN FOR$CLOSEREWRITE_FOLDER_FILE$CODE$PDATA $LOCAL BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1L HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGES0FILESBULL_DIR INPUT_BUFFERNEWS_DIR REMOTE_FOLDER FOR$IO_END FOR$IO_L_R FOR$WRITE_SF FOR$WRITE_SFP}@P'LPgPPPPP PPPPPUPPPPP`PPKQPvPPPPBP0&P=bPyPPPww1ʭr017 SET_NOKEYPAD0130-Sep-1995 13:05DEC Fortran V6.1-68 SET_NOKEYPAD SET_NOKEYPADPPF2SET KEYPADP  SMG$ADD_KEY_DEF@ SMG$ADD_KEY_DEF@P[kSMG$SET_KEYPAD_MODE SMG$ADD_KEY_DEF  SET_NOKEYPADSMG$SET_KEYPAD_MODESMG$ADD_KEY_DEF#$CODE$PDATA<$LOCALSM GKEYPAD!{#ww1Gr013SET_PRIV0130-Sep-1995 12:54DEC Fortran V6.1-68SET_PRIVP0 ERROR: This command requires SETPRV privileges.* ERROR: Incorrectly specified privilege = )( ERROR: Cannot remove SETPRV privileges." Privileges successfully modified.! ERROR: Cannot modify privileges.SET_PRIVQIDPRIVILEGESR+CXP<P'PdPPaP3P&PP!&P!|pٹww1Yr015 SHOW_FLAGS0130-Sep-1995 13:02DEC Fortran V6.1-68 SHOW_FLAGSP, ERROR: Cannot show flags for remote folder.& ERROR: NEWS FOLDER is not subscribed. For the selected folder ) READNEW is set. BRIEF is set. SHOWNEW is set. NOTIFY is set. No flags are set. SHOW_FLAGSP P 0  , , , , , , , , ,dP ,PQGENERAL %'P[ Rբ, FOR$WRITE_SF FOR$IO_ENDOPEN_BULLUSER_SHAREDREAD_USER_FILE_KEYNAME NEWS_FIND_SUBSCRIBEP_/ FOR$WRITE_SF FOR$IO_ENDX FOR$WRITE_SF(TRIMP0040 FOR$IO_T_DS FOR$IO_END8 TEST_SET_FLAGP@TEST_BRIEF_FLAGPu FOR$WRITE_SF FOR$IO_ENDHTEST_BRIEF_FLAGPP TEST_SET_FLAGP FOR$WRITE_SF FOR$IO_ENDXTEST_BRIEF_FLAGP` TEST_SET_FLAGP FOR$WRITE_SF FOR$IO_ENDhTEST_NOTIFY_FLAGP FOR$WRITE_SF FOR$IO_ENDpTEST_BRIEF_FLAGPx TEST_SET_FLAGP FOR$WRITE_SF FOR$IO_ENDCLOSE_BULLUSER]  SHOW_FLAGSOPEN_BULLUSER_SHAREDREAD_USER_FILE_KEYNAMENEWS_FIND_SUBSCRIBETRIM TEST_SET_FLAGTEST_BRIEF_FLAGTEST_NOTIFY_FLAGCLOSE_BULLUSER$CODE$PDATA$LOCALBULL_DIR INPUT_BUFFERNEWS_DIRL HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGES BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1 REMOTE_FOLDER FOR$IO_END FOR$IO_T_DS FOR$WRITE_SFP4PEP*XPP#PP\P%PP. P!P4P#?PWP, bP!mPP=1ww1 r016 SHOW_FOLDER0130-Sep-1995 12:56DEC Fortran V6.1-68 SHOW_FOLDERP" ERROR: /ALL is invalid qualifier.* ERROR: invalid command for remote folder.' ERROR: Specified folder was not found. Access is limited. 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_EXPIRE has been set. STRIP has been set. DIGEST has been set. ALWAYS has been set. POST_ONLY has been set. ADD_ONLY has been set. COMPRESS has been set. ANONYMOUS has been set. EXPIRATION limit is  days.& Default is BRIEF, which is permanent. Default is BRIEF.( Default is READNEW, which is permanent. Default is READNEW.( Default is SHOWNEW, which is permanent. Default is SHOWNEW. BRIEF is the permanent setting.6" READNEW is the permanent setting." SHOWNEW is the permanent setting.' Default is NOTIFY, which is permanent. Default is NOTIFY. Default is NONOTIFY.% Last message fed by news group was: , Current folder: , Owner:   Description: ) Folder name is: , Owner:   Description: ) SHOW_FOLDER  /A/aSHOW_FOLDER.::FULL*<>@P ,   8P D  P 4dPHPSHd VxV CLI$GET_VALUE@bdgg CLI$PRESENT@ VV CLI$PRESENT@HBULLETIN_SUBCOMMANDS((gg CLI$PRESENT@$8<  8l8  0l0$  @0 0 0 ( $ 4 8 < @ D H , L( ,4 ,  , , ,  ,4 ,  , ,  , , ,  ,  , ,@ , ,n(|p(r ,PQGENERAL %'dPP [X LIB$INDEXPl LIB$INDEXP FOR$WRITE_SF FOR$IO_ENDˀ CLI$GET_VALUE CLI$_ABSENTRPR(,  ˔ LIB$INDEXPˠ LOWERCASE˰ LIB$INDEXP% FOR$WRITE_SF FOR$IO_END˼ TEST_NEWSP, t  CLI$PRESENTP,}  CLI$PRESENTP,^(, n ^( tn,5n Q^ CLI$DCL_PARSE SHOW_NEWSOPEN_BULLFOLDER_SHAREDREAD_FOLDER_FILE_KEYNAME_TEMPkR FOR$WRITE_SF FOR$IO_ENDCLOSE_BULLFOLDER),   FOR$WRITE_SF FOR$IO_T_DS  FOR$IO_T_DSTRIMP D FOR$IO_T_DS FOR$IO_END FOR$WRITE_SF FOR$IO_T_DS  FOR$IO_T_DS TRIMP D FOR$IO_T_DS FOR$IO_END$ CLI$PRESENTP1,SET_FOLDER_FILEV4TRIMP\}.BULLFIL~\^(\ n\XX\\<\V^@DCHKACLV^ Xk kP FOR$BJTESTP)Ȕd| FOR$WRITE_SF FOR$IO_END1\ SETPRV_PRIVPWdTRIMP\}.BULLFIL~\^(\n\YY\\l\W^pt CHECK_ACCESSW^YˈTRIMPV}.BULLFIL~V^(VnVWWVVːVY^˔˘SHOWACLY^ˠ FOLDER_ACCESSP1)Ȕd1˰TRIMP  LIB$INDEXP FOR$WRITE_SF TTȖ FOR$IO_T_DS FOR$IO_END1SET_FOLDER_FILE(P W OPEN_BULLDIRREADDIR CLOSE_BULLDIRSET_FOLDER_FILEW FOR$WRITE_SF \\Ȗ FOR$IO_T_DSTRIM PPp FOR$IO_T_DS FOR$IO_END1)Ȕ1TRIMP  FOR$WRITE_SF Ȕ FOR$IO_T_DS FOR$IO_ENDȤȨ FOR$BJTESTP FOR$WRITE_SF FOR$IO_END$ FOR$BJTESTP: FOR$WRITE_SF FOR$IO_ENDa 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_END0 FOR$BJTESTP FOR$WRITE_SF FOR$IO_END< FOR$BJTESTP FOR$WRITE_SF FOR$IO_ENDH FOR$BJTESTP FOR$WRITE_SF FOR$IO_ENDT FOR$BJTESTP5 FOR$WRITE_SF FOR$IO_END` FOR$BJTESTPL FOR$WRITE_SF FOR$IO_ENDl FOR$BJTESTPd FOR$WRITE_SF FOR$IO_ENDx FOR$BJTESTP| FOR$WRITE_SF FOR$IO_END˄ FOR$BJTESTP 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_SHARED˨READ_USER_FILE_HEADER READ_PERMY˰TEST2P1˼TEST2PTEST2PTEST2PY FOR$WRITE_SF FOR$IO_END1 FOR$WRITE_SF FOR$IO_ENDTEST2PTEST2PY F FOR$WRITE_SF FOR$IO_ENDq FOR$WRITE_SF FOR$IO_ENDTEST2PTEST2PTEST2PY FOR$WRITE_SF FOR$IO_END FOR$WRITE_SF FOR$IO_ENDY1TEST2P(TEST2P FOR$WRITE_SF FOR$IO_END4TEST2P@TEST2P FOR$WRITE_SF FOR$IO_ENDLTEST2PXTEST2P FOR$WRITE_SF FOR$IO_ENDdTEST2PpTEST2P7 FOR$WRITE_SF FOR$IO_ENDa FOR$WRITE_SF FOR$IO_ENDw FOR$WRITE_SF FOR$IO_ENDCLOSE_BULLUSER˄ LIB$INDEXPR˘ LIB$INDEXPSRSRRTTPUU˴D D˸ LIB$INDEXPSRSSˤB D˨ˬ TEST_NEWSPB D@ FOR$WRITE_SF  FOR$IO_L_V FOR$IO_ENDCLOSE_BULLFOLDER PtPSET NEWS SET NEWS/FULL NONE SHOW_FOLDER CLI$_ABSENTBULLETIN_SUBCOMMANDS LIB$INDEX CLI$GET_VALUE LOWERCASE TEST_NEWS CLI$PRESENT CLI$DCL_PARSE SHOW_NEWSOPEN_BULLFOLDER_SHAREDREAD_FOLDER_FILE_KEYNAME_TEMPCLOSE_BULLFOLDERTRIMSET_FOLDER_FILECHKACL FOR$BJTEST SETPRV_PRIV CHECK_ACCESSSHOWACL FOLDER_ACCESS OPEN_BULLDIRREADDIR CLOSE_BULLDIROPEN_BULLUSER_SHAREDREAD_USER_FILE_HEADER READ_PERMTEST2CLOSE_BULLUSER $CODE$PDATA$LOCALL HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGES BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1BULL_DIR INPUT_BUFFERNEWS_DIR REMOTE_FOLDER COMMAND_LINE$ BULL_PERM FOR$IO_END FOR$IO_L_V FOR$IO_T_DS FOR$WRITE_SF P P  PLP"eP {PPpPP%#P QPNPLPWPZP1fP"rPPP PDPB9PHPcP8P=PMP]P.PP P8PPP$P;*PBPePPPPPP1PIP$WPyPPP!P PKP'$P?PWPJcP(oPPPVPJP(PPP P$P/P^;P$GP_P.kP"wPP>PPP  P{ Pv= PN] P h P#SGB  ww1+୿r016 SHOW_KEYPAD0130-Sep-1995 13:05DEC Fortran V6.1-68 SHOW_KEYPAD=P% ERROR WHILE OPENING FILE TO PRINTER.)))) SHOW_KEYPADQ PRINTSYS$LOGIN:KEYPAD.DATSHOW_KEYSTATE+Keypad definitions: Press key to continue ... KEYPADxP 2 <P@@ CLI$PRESENT@FF FOR$OPEN@d[[ CLI$GET_VALUE@hdd CLI$GET_VALUE@lpjktpj~~ LIB$PUT_OUTPUT@  GET_INPUT_NOECHO_PROMPT@88 PRINT_OUTPUT@ LBR$OUTPUT_HELP@x<LIB$PUT_OUTPUTl LBR$OUTPUT_HELP@x<Pd[^}PQPVD CLI$PRESENTPTFOR$OPENk FOR$WRITE_SF FOR$IO_ENDV| CLI$GET_VALUEP1˔ CLI$GET_VALUEP1ˤ˨ˬ˰˴SMG$GET_KEY_DEFPk(V FOR$WRITE_SFTRIMPWTRIMPX"~W^(WnWZZW"~WY^(nYWX^(XnXZWZYY^ FOR$IO_T_V_DS FOR$IO_ENDTRIMP-V FOR$WRITE_SFTRIMP^(Pn^SX^(nXW+ ~WZZ^ FOR$IO_T_V_DS FOR$IO_ENDTRIMP- -V FOR$WRITE_SFTRIMP^(Pn^SX}ifstate=~XW+ ~WYY^ FOR$IO_T_V_DS FOR$IO_END0V FOR$WRITE_SF FOR$IO_T_DS FOR$IO_END1X1ԫ2V FOR$WRITE_SF  FOR$IO_T_DS FOR$IO_ENDZ1(SMG$LIST_KEY_DEFSP1(V FOR$WRITE_SFPTRIMPWHTRIMP"~W^(WnWYYW"~WX^(nXW­^(nЭYWYXXX^\X FOR$IO_T_V_DS FOR$IO_END`TRIMP-V FOR$WRITE_SFhTRIMP^(Pn^SY^(nYX+ ~XYYp^tp FOR$IO_T_V_DS FOR$IO_ENDxTRIMP- -V FOR$WRITE_SFˀTRIMP^(Pn^SW}ifstate=~WY+ ~YWWˈ^ˌˈ FOR$IO_T_V_DS FOR$IO_END0V FOR$WRITE_SFː FOR$IO_T_DS FOR$IO_ENDZRZRVZˠLIB$PUT_OUTPUTˬ˸GET_INPUT_NOECHO_PROMPTLIB$ERASE_PAGEP1*V FOR$CLOSEЭkVLBR$OUTPUT_HELP FOR$CLOSELBR$OUTPUT_HELPP = state=DEFAULT  SHOW_KEYPADLIB$PUT_OUTPUT PRINT_OUTPUT CLI$PRESENTFOR$OPEN CLI$GET_VALUESMG$GET_KEY_DEFTRIMSMG$LIST_KEY_DEFSGET_INPUT_NOECHO_PROMPTLIB$ERASE_PAGE FOR$CLOSELBR$OUTPUT_HELPV$CODE$PDATA$LOCALSMGKEYLOAD PAGE FOR$IO_END FOR$IO_T_DS FOR$IO_T_V_DS FOR$WRITE_SF%P)1P[PmPPX~PePXPIP ]PPXNPe[PXP9P,P' P 4PHP fZ^Vww1 pr017 SHOW_LIBRARY0130-Sep-1995 12:59DEC Fortran V6.1-68 SHOW_LIBRARYgP# The following are valid libraries:) No libraries are present. Present library is: ) SHOW_LIBRARYALLBULL_DIR_LISTPPP@`` CLI$PRESENT@ d d SYS_TRNLNM_SYSTEM_INDEX@PPBULL_DIR: G'BULL_DIR: G'BULLUSER.DAT D'QBULLFOLDER.DAT B'QBULLINF.DAT E'QPBULLNEWS.DAT D'Q`BULL_DIR: G'P [ CLI$PRESENTPRSR(SYS_TRNLNM_SYSTEM_INDEXPRRS FOR$WRITE_SF FOR$IO_ENDS& FOR$WRITE_SF FOR$IO_T_DS FOR$IO_ENDS* FOR$WRITE_SF FOR$IO_ENDG FOR$WRITE_SF4TRIMP<P@< FOR$IO_T_DS FOR$IO_END  SHOW_LIBRARY CLI$PRESENTSYS_TRNLNM_SYSTEM_INDEXTRIM$CODEr$PDATAD$LOCAL0FILESDBULLPAR FOR$IO_END FOR$IO_T_DS FOR$WRITE_SF,PxPM,P=1PpPP7)/ww1@:r014 SHOW_PRIV0130-Sep-1995 12:54DEC Fortran V6.1-68 SHOW_PRIViP9 Following privileges are needed for privileged commands:) ERROR: Cannot show privileges. SHOW_PRIV~PLP  Pl PPBULL_DIR: G'BULL_DIR: G'BULLUSER.DAT D'QBULLFOLDER.DAT B'QBULLINF.DAT E'QPBULLNEWS.DAT D'Q`BULL_DIR: G'P[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ū\@L D@ FOR$IO_T_DS FOR$IO_END&@ FOR$WRITE_SF FOR$IO_ENDCLOSE_BULLUSERHTRIMPP TXCHKACLkk dTRIMPl ptSHOWACL  SHOW_PRIVOPEN_BULLUSER_SHAREDREAD_USER_FILE_HEADERCLOSE_BULLUSER OPEN_BULLUSER FOR$BJTESTCHKACLTRIMSHOWACL^$CODEb$PDATA|$LOCALL HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGES0FILES8PRVDEF FOR$IO_END FOR$IO_T_DS FOR$IO_X_S E FOR$WRITE_SFFOR$REWRITE_SUOP+PN8PAP PPIP2P7P%@P=1Y^ww12r014 SHOW_USER0130-Sep-1995 13:05DEC Fortran V6.1-68 SHOW_USER@P ERROR: No privs to use command. ERROR: Folder not found. ERROR: Invalid date specified.) ERROR: /SINCE not valid with NEWS group.! ERROR: Invalid number specified.% ERROR: /START not valid with folder. ERROR: No current message.) latest message read @.) latest message read ).& User has never read or not subscribed to specified folder. User info does not exist. NOLOGIN set for specified user. User last logged in at ).$ Entry for specified user not found. NOLOGIN set for ).) last logged in at ). SHOW_USERQNOLOGINALLLOGINUSERNAME5-NOV-2956 00:00:00.00FOLDER.SINCESTART6-NOV-1956 00:00:00.004PP0 @ <d< CLI$PRESENT@DtD CLI$PRESENT@HH CLI$PRESENT@NN CLI$GET_VALUE@<WW SYS_BINTIM@nn CLI$PRESENT@nn CLI$GET_VALUE@4u444 $w w CLI$PRESENT@}0} CLI$PRESENT@w@w CLI$GET_VALUE@D@D}d} CLI$GET_VALUE@D@|, SYS_BINTIM@$<$<88<L<<$ L $$ HlH CLI$PRESENT@<<< CLI$PRESENT@ L <,PQGENERAL %'dPP$[H CLI$PRESENTPRX CLI$PRESENTPRh CLI$PRESENTPRVp SETPRV_PRIVPWVˀ CLI$GET_VALUEPkk(  V)  W FOR$WRITE_SF FOR$IO_END˔ SYS_BINTIM˨ CLI$PRESENTP\\1˸ CLI$GET_VALUEPkk(P00W0aWT0zTTTTW LIB$INDEXQPQQWWOPEN_BULLFOLDER_SHAREDOPEN_BULLNEWS_SHARED LOWERCASETRIMP0READ_FOLDER_FILE_KEYNAME_TEMPCLOSE_BULLFOLDERk# FOR$WRITE_SF FOR$IO_END CLI$PRESENTPR CLI$PRESENTPRS$ CLI$GET_VALUEP4 SYS_BINTIMPkk? FOR$WRITE_SF FOR$IO_END1a FOR$WRITE_SF FOR$IO_ENDH CLI$GET_VALUEP@X\` OTS$CVT_TI_LPkk FOR$WRITE_SF FOR$IO_END FOR$WRITE_SF FOR$IO_ENDS FOR$WRITE_SF FOR$IO_END| SYS_BINTIM DISABLE_CTRLDECLARE_CTRLC_AST\1OPEN_BULLINF_SHAREDkk11VˈREC_LOCKP  FOR$READ_SU FOR$IO_T_DS߫0 FOR$IO_X_DA FOR$IO_ENDPUUk1ːTRIMPWWRB\\\BWWGPPPG\\\˘REC_LOCKP~~  FOR$READ_KU FOR$IO_T_DS߫0 FOR$IO_X_DA FOR$IO_ENDP\\k  FOR$UNLOCKk1ˠTRIMPRSSRRSSWWWTD~^ˬ˨ FOR$BJTEST^PW1WR1W1WQA~^˸˴ FOR$BJTEST^P1WUERʏRREWEGPʏPPG  \2LWW,ѫ `֫ ѫ ` PQ@QQRRW,SC COMPARE_BTIMTPTTRRR FOR$WRITE_SFTRIMP FOR$IO_T_DS UE FOR$IO_L_R FOR$IO_ENDR,\L SYS$ASCTIM FOR$WRITE_SFTRIMP FOR$IO_T_DS( FOR$IO_T_DS FOR$IO_ENDV: FOR$WRITE_SF FOR$IO_ENDVkz FOR$WRITE_SF FOR$IO_ENDk1 CLOSE_BULLINF1#VV1OPEN_BULLUSER_SHAREDREAD_USER_FILE_KEYNAMEk  COMPARE_BTIMP FOR$WRITE_SF FOR$IO_END SYS$ASCTIM FOR$WRITE_SF( FOR$IO_T_DS FOR$IO_END FOR$WRITE_SF FOR$IO_ENDCLOSE_BULLUSER1OPEN_BULLUSER_SHARED,READ_USER_FILEk114READ_USER_FILEk1:1*1< COMPARE_BTIMPTP CLI$PRESENTP FOR$WRITE_SFXTRIMP`d` FOR$IO_T_DS FOR$IO_ENDTp CLI$PRESENTPx COMPARE_BTIMP˄ SYS$ASCTIM FOR$WRITE_SF˘TRIMPˠˤˠ FOR$IO_T_DS( FOR$IO_T_DS FOR$IO_END1CLOSE_BULLUSER CANCEL_CTRLC_AST ENABLE_CTRL<0UNEP MTH$ALOG10_R5@PJPRRP  SHOW_USER CLI$PRESENT SETPRV_PRIV CLI$GET_VALUE SYS_BINTIM LIB$INDEXOPEN_BULLFOLDER_SHAREDOPEN_BULLNEWS_SHARED LOWERCASEREAD_FOLDER_FILE_KEYNAME_TEMPTRIMCLOSE_BULLFOLDER OTS$CVT_TI_L DISABLE_CTRLDECLARE_CTRLC_ASTOPEN_BULLINF_SHAREDREC_LOCK FOR$BJTEST COMPARE_BTIM MTH$ALOG10 SYS$ASCTIM CLOSE_BULLINFOPEN_BULL USER_SHAREDREAD_USER_FILE_KEYNAMECLOSE_BULLUSERREAD_USER_FILECANCEL_CTRLC_AST ENABLE_CTRL$CODE$PDATA$LOCAL BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1L HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGESBULL_DIR INPUT_BUFFERNEWS_DIRPOINT REMOTE_FOLDERD BULLPAR CTRLC_FLAG FOR$UNLOCK FOR$IO_END FOR$IO_L_R FOR$IO_T_DST FOR$IO_X_DA FOR$READ_SU FOR$READ_KU FOR$WRITE_SF MTH$ALOG10_R5P8PGP VPdPgPPPP P:PxPG|P+PPPXP<P Pv&PE.PKP UPiPoP zPPDP%PPBP0P$PPV$P=P_P8bP,PP$ PPPP$PsP}PPPP2P,P(PPOPK/Py2P]PPPPPPPRPP*BPbPyPPPPPPGP;PiPdPX PKG;mww1r017 SHOW_VERSION0130-Sep-1995 13:05 DEC Fortran V6.1-68 SHOW_VERSION P) SHOW_VERSION  A new BULLETIN executable has been installed since your last use. Type HELP NEW_FEATURES for help on any new features.,P ,4,4,44|B5DP,[ READ_HEADER FOR$WRITE_SFTRIMP^(Pn^SV^(ynV\\$^($ FOR$IO_T_V_DS FOR$IO_END FOR$WRITE_SF,TRIMP^(Pn^SW ^( nW \\4^84 FOR$IO_T_V_DS FOR$IO_END,[< READ_HEADERHTRIMPPTX SYS$BINTIMPd COMPARE_BTIMP FOR$WRITE_SFp FOR$IO_T_DS FOR$IO_END FOR$WRITE_SFx FOR$IO_T_DS FOR$IO_ENDyP BULLETIN Version Linked on h  SHOW_VERSION READ_HEADERTRIM SHOW_NEW_VERSION SYS$BINTIM COMPARE_BTIM %$CODE$PDATA$LOCALL HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGES FOR$IO_END FOR$IO_T_DS FOR$IO_T_V_DS FOR$WRITE_SFPP@1%>%ww1-r018 SLOW_TERMINAL0130-Sep-1995 12:54DEC Fortran V6.1-68 SLOW_TERMINAL SL OW_TERMINAL P IO$_SENSEMODEP [kSYS$QIOW䑫 ԫЫP  SLOW_TERMINAL IO$_SENSEMODESYS$QIOW4$CODE$PDATA@$LOCAL TERM_CHAN$BLANKP"P (P4ww1"r018 SPAWN_PROCESS0130-Sep-1995 12:42DEC Fortran V6.1-68 SPAWN_PROCESS9P/ ERROR: SPAWN not allowed from CAPTIVE account. SPAWN_PROCESSQCOMMANDP488 CLI$PRESENT@8$8 CLI$GET_VALUE@<P [ CAPTIVEP FOR$WRITE_SF FOR$IO_END DISABLE_PRIVSV SET_KEYPAD CLI$PRESENTP, CLI$GET_VALUEk^(knkW$~W\,\n PQ^kXX<@D LIB$SPAWNL LIB$SPAWNV SET_NOKEYPAD ENABLE_PRIVS SPAWN_PROCESSCAPTIVE DISABLE_PRIVS SET_KEYPAD CLI$PRESENT CLI$GET_VALUE LIB$SPAWN SET_NOKEYPAD ENABLE_PRIVS$CODE@$PDATAT$LOCALKEYPAD FOR$IO_END FOR$WRITE_SF&P;PMPBP P/#ww1r01@SPECIAL_NEWSDIR_ENTRY0130-Sep-1995 12:59DEC Fortran V6.1-68SPECIAL_NEWSDIR_ENTRY!SPECIAL_NEWSDIR_ENTRYP P8ppdP,PQGENERAL %'P[~  FOR$READ_KU$ FOR$IO_X_SE FOR$IO_END޼TPRRdd)8)$靖d FOR$READ_SU$ FOR$IO_X_SE FOR$IO_ENDPRRdkLREC_LOCKP~߫ FOR$READ_KUXT FOR$IO_X_SE FOR$IO_ENDPkk1\ LIB$MOVC3 pl GET_MSGKEYx COMPARE_BTIMP˄ FOR$BJTESTPːCOPY2˜ LIB$MOVC3ˬREC_LOCKP FOR$READ_SU˸˴ FOR$IO_X_SE FOR$IO_ENDPk1uPPPCONVERT_ENTRY_TOBIN FOR$WRITE_SU FOR$IO_X_SE FOR$IO_ENDPd˼ FOR$ERRSNSk1 SPECIAL_NEWSDIR_ENTRYREC_LOCK LIB$MOVC3 GET_MSGKEY COMPARE_BTIM FOR$BJTESTCOPY2CONVERT_ENTRY_TOBIN FOR$ERRSNS$CODE$PDATA\$LOCALBULL_DIR INPUT_BUFFERNEWS_DIR BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1 FOR$IO_END FOR$IO_X_SE FOR$READ_SU  FOR$READ_KU FOR$WRITE_SU} P!;PDFP9QPZPP1P)PPP P,P$\PmPPPD8Mww1jr017 START_DECNET0130-Sep-1995 13:04DEC Fortran V6.1-68 START_DECNET START_DECNETPDECNETBULL_NEWS_GATEWAY_ONLYDEFINEDBULL_MBX_NET:BULL_NO_NEWS_GATEWAYBULL_MBX1BULL_TCP_NEWS_GATEWAY$P, CONFIRM_USER@< SETDEFAULT@L SYS_TRNLNM@T SYS_TRNLNM@&p& SYS$CREMBX@ /&/ SYS$ASSIGN@& SYS$ASSIGN@   IO$_ACPCONTROL 5(5 SYS_TRNLNM@0 SYS_TRNLNM@ JDJ SYS$CREMBX@ / Jt/ SYS$ASSIGN@ |J SYS$ASSIGN@  IO$_ACPCONTROL$  TT SYS_TRNLNM@" SYS_TRNLNM@ LISTEN_ASTQBULLETIN1 'NNTPP [ CONFIRM_USERP$ SETDEFAULT< SYS_TRNLNMPRH NEWS_GETHOSTPR1X SYS$CREMBXPkkx SYS_GETMSGkFOR$EXITː SYS$ASSIGNPkkˤ SYS_GETMSGkFOR$EXIT˼˰˴SYS$QIOWPkk SYS_GETMSGkFOR$EXIT SYS$SETASTREAD_MBX SYS$SETAST SYS_TRNLNMP1, SYS$CREMBXPkkL SYS_GETMSGkFOR$EXITd SYS$ASSIGNPkkx SYS_GETMSGkFOR$EXIT ˈˀSYS$QIOWPkk˴ SYS_GETMSGkFOR$EXIT˼ SYS$SETASTREAD_MBX SYS$SETAST SYS_TRNLNMP NNTP_LISTENPNNTP_ACCEPT_WAITR SYS$HIBER  START_DECNETIO$_ACPCONTROL LISTEN_AST CONFIRM_USER SETDEFAULT SYS_TRNLNM NEWS_GETHOST SYS$CREMBX SYS_GETMSGFOR$EXIT SYS$ASSIGNSYS$QIOW SYS$SETASTREAD_MBX NNTP_LISTENNNTP_ACCEPT_WAIT SYS$HIBER$CODEj$PDATA 0$LOCALCHANNELMBXBUFDQREADBUFPPROCBUFNEWSHOST LISTENPHPWPbPxP PP PPP PP #PBP NP|PP P _S#ww1@lir01;START_NEWS_TIMER0130-Sep-1995 13:08DEC Fortran V6.1-68START_NEWS_TIMERSTART_NEWS_TIMERPBULL_NEWS_TIMER$P4 SYS_TRNLNM@$$P $ tKILL_NEWS_CONNECTQd0 00:00:00.00 'P<[) LIB$GET_EF SYS_TRNLNMP,TRIMP48< OTS$CVT_TI_LPիPTRIMP~0~\` SYS$BINTIMkpl SYS$SETIMR<[k ˀ SYS$CANCELP0030 <START_NEWS_TIMERKILL_NEWS_CONNECT LIB$GET_EF SYS_TRNLNM OTS$CVT_TI_LTRIM SYS$BINTIM SYS$SETIMR <CANCEL_NEWS_TIMER SYS$CANCEL$CODE$PDATA$LOCAL+Pj.PBJP&OP!\PiP0$ ww1 r015 STORE_BULL0130-Sep-1995 12:54DEC Fortran V6.1-68 STORE_BULL STORE_BULLP P  STORE_BULL1@D  ,PQGENERAL %'PP[}PQP FOR$BJTESTP޼ 4( STORE_BULL18 FOR$BJTESTPDHLCOMPRESS޼ h\ STORE_BULL1޼p޼ xl STORE_BULL1  STORE_BULL FOR$BJTEST STORE_BULL1COMPRESS$CODE $PDATA|$LOCAL BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1 STORE_POINT!P2P JP!kP!^ww1`r016 STORE_BULL10130-Sep-1995 12:54DEC Fortran V6.1-68 STORE_BULL1 STORE_BULL1-P   4H\P[^Ь k}PQP޼VfRRѭ1޻ WRITE_BULL_FILE<XX^(Xnf~XY,Yn PQ^f1Y޻,f~^(nWW WY^$(WRITE_BULL_FILEY^, f1ԭ޻@W2 "Cww1kr017 STORE_DESCRP0130-Sep-1995 13:05DEC Fortran V6.1-68 STORE_DESCRP STORE_DESCRP]P dPP[}PQP޼Vf CONVERT_TABSfWXfXTDQQ~D  DWXf <RRT,RD ff8 NEWS_FEEDPXf~^,kj FOR$WRITE_SF FOR$IO_T_DS FOR$IO_END1ЫPP  PPTЫ ѫT1READDIR QkQ FOR$WRITE_SFݫ  FOR$IO_L_V FOR$IO_END1V޼ADD_TAGѼѫ R ,QA COMPARE_BTIMP ,RBCOPY2NEWS_UPDATE_NEWEST_MESSAGEЫ R޼ DEL_TAGT 61$READDIR CLOSE_BULLDIRPMARKSEENE \TAG?TAG_KEY CLI$_ABSENT CLI$_NEGATED OPEN_NEW_TAGNEWS_FIND_SUBSCRIBEADD_TAG CLI$PRESENT FOR$JIBCLRDEL_TAGOPEN_BULLDIR_SHARED CLI$GET_VALUE GET_2_VALSREADDIR COMPARE_BTIMCOPY2NEWS_UPDATE_NEWEST_MESSAGE CLOSE_BULLDIR$CODE $PDATA0$LOCALL HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGESBULL_DIR INPU@T_BUFFERNEWS_DIR BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1 TAGSPOINTDBULLPAR REMOTE_FOLDER COMMAND_LINE FOR$DELETE FOR$IO_END FOR$IO_L_V FOR$IO_T_DS FOR$READ_KU FOR$WRITE_SF.PP%P,P7PDP+UPrP-PPPjPVPP %P.PJP[PJnP7tPPP;P P AP'P/PFP-OP$qPvPqPYPSP=PP P P sww1`r012TAG_KEY0130-Sep-1995 13:13DEC Fortran V6.1-68TAG_KEYTAG_KEYPP  B0P[}PQ} PQ PѼ޼ LIB$MOVC3RR~^(, LIB$MOVC3^ <QA48 GET_MSGKEYg TAG_KEY LIB$MOVC3 GET_MSGKEYk$CODE$PDATAD$LOCAL"P6Pkww1er010TEST20130-Sep-1995 13:02DEC Fortran V6.1-68 TEST2 TEST2oP  CP[Ь RRBR RR~^ FOR$BJTESTS TEST2 FOR$BJTEST8$CODE$PDATA$$LOCAL 8ww1 P1r01:TEST_BRIEF_FLAG0130-Sep-1995 13:08DEC Fortran V6.1-68TEST_BRIEF_FLAGTEST_BRIEF_FLAGPP4P[ռѼ_޼kTEST2DPQQP NEWS_FIND_SUBSCRIBEԫP_PP>@ FOR$BITEST  TEST_BRIEF_FLAGTEST2NEWS_FIND_SUBSCRIBE FOR$BITESTY$CODE$PDATA$$LOCALL HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGES PP?P%:Yww1`DAr016 TEST_BULLCP0130-Sep-199E5 12:52DEC Fortran V6.1-68 TEST_BULLCP TEST_BULLCPP[PP  TEST_BULLCP$CODE$PDATA$LOCALBCPww1饿r014 TEST_NEWS0130-Sep-1995 13:08DEC Fortran V6.1-68 TEST_NEWS TEST_NEWStPP[}PQPԫT<RRUVUVWGAGZPG FaGzTUVTQQPF  TEST_NEWS^$CODE$PDATA$LOCAL$'P/3P ;PGP OP!^ww1;r01:TEST_NEWS_OWNER0130-Sep-1995 13:08DEC Fortran V6.1-68TEST_NEWS_OWNERTEST_NEWS_OWNERP@%P D  ( < FIRST_INDEX@ GX FIRST_INDEX@dPP[ STR$UPCASE  GET_PATHNAME4 FIRST_INDEXPTP FIRST_INDEXPUV) V@TRIMTTPUU RW-PD RE WWWWV\) D\\VVP_ TEST_NEWS_OWNER STR$UPCASE GET_PATHNAME FIRST_INDEXTRIM$CODE$PDATAl$LOCALBULL_DIR INPUT_BUFFERNEWS_DIRL HEADER_INFOL BULL_USER FOLDE HR_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGESPATHMSGIDP ~ww1`]4r01;TEST_NOTIFY_FLAG0130-Sep-1995 13:08DEC Fortran V6.1-68TEST_NOTIFY_FLAGTEST_NOTIFY_FLAGP P@P[ռѼ_޼kTEST2PQQP NEWS_FIND_SUBSCRIBEԫP_ IPP>@ FOR$BITEST  TEST_NOTIFY_FLAGTEST2NEWS_FIND_SUBSCRIBE FOR$BITESTY$CODE$PDATA$$LOCALL HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGES PP?P%:Yww15+r018 TEST_SET_FLAG0130-Sep-1995 13:08DEC Fortran V6J.1-68 TEST_SET_FLAG TEST_SET_FLAGPP(P[ռѼ_޼kTEST2PQQP NEWS_FIND_SUBSCRIBEԫP_PP>@ FOR$BITEST  TEST_SET_FLAGTEST2NEWS_FIND_SUBSCRIBE FOR$BITESTY$CODE$PDATA$$LOCALL HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGEKS PP?P%:Yww1r013TEST_TAG0130-Sep-1995 13:13DEC Fortran V6.1-68TEST_TAGTEST_TAGqP P[Ьü R RP PQQRkPQA FOR$BJTESTX TEST_TAG FOR$BJTEST9$CODE$PDATA($LOCAL9ww1Lxr014 TIMER_ERR0130-Sep-1995 12:59DEC Fortran V6.1-68 TIMER_ERRsP ERROR: Unable to open file: )- Database conversion in progress. Try later. Please try again later. TIMER_ERRPQdirectory 'message 'BULLUSER.DAT 'BULLFOLDER.DATBULLINF.DAT 'BULLNEWS.DAT 'QtP [Mk TEST_BULLCPP FOR$WRITE_SFмRBpSC TRIMPC FOR$IO_T_DS FOR$IO_ENDѼ! FOR$WRITE_SF FOR$IO_ENDQ FOR$WRITE_SF FOR$IO_ENDENABLE_CTRL_EXIT  TIMER_ERR TEST_BULLCPTRIMENABLE_CTRL_EXIT$CODEl$PDATA$LOCAL FOR$IO_END FOR$IO_T_DS FOR$WRITE_SFPy]PuP  ww1 r01N>TOTAL_CLEANUP_LOGIN0130-Sep-1995 12:54DEC Fortran V6.1-68TOTAL_CLEANUP_LOGINTOTAL_CLEANUP_LOGINP BULL_MARKDEFINED*NOTIFY*NOTIFY (P  L   PP  x SYS_TRNLNM_SYSTEM@ SYS_TRNLNM_SYSTEM@  0@$ O$  % % 0P [8 SYS$ASCTIML SYS_BINTIMhSYS_TRNLNM_SYSTEMPVOPEN_SYSUAF_SHARED OPEN_BULLUSER OPEN_BULLINF( kk1 FOR$READ_SU FOR$IO_X_SE FOR$IO_ENDP\\k) 1k1*1:1tREC_LOCKP~~ FOR$READ_KU FOR$IO_ENDPRRkk1| MINUTE_DIFFP1 FOR$DELETE~~  FOR$READ_KUP FOR$IO_ENDPSST  FOR$DELETEˈTRIMPWVX}.*MARK;*~W^(WnWZZ\ ^( 1n\ YYːYX^˔˘LIB$DELETE_FILEX^WUESSSE~~  FOR$READ_KU FOR$IO_ENDPZZ\  FOR$DELETEWWGXXXGZZZ~~  FOR$READ_KU FOR$IO_ENDPYYX  FOR$DELETEkԫˠTEST2PˬSET2_1 CLOSE_SYSUAF˸REC_LOCKP~~ FOR$READ_KU FOR$IO_QX_SE FOR$IO_ENDPWWkk FOR$WRITE_SU FOR$IO_T_DS߫  FOR$IO_X_DA FOR$IO_ENDP\FOR$REWRITE_SU FOR$IO_T_DS߫  FOR$IO_X_DA FOR$IO_ENDPR~  FOR$READ_KU FOR$IO_X_SE FOR$IO_ENDPSSYY1TRIMPXXTDVʏVVDXXHVʏVVH\ʏ\\~~ FOR$READ_KU FOR$IO_ENDPWWX  FOR$DELETE  FOR$READ_SU FOR$IO_X_SER FOR$IO_ENDPZZY1I CLOSE_BULLINFCLOSE_BULLUSER( 1PBULL_MARK:o TOTAL_CLEANUP_LOGIN SYS$ASCTIM SYS_BINTIMSYS_TRNLNM_SYSTEMOPEN_SYSUAF_SHARED OPEN_BULLUSER OPEN_BULLINFREC_LOCK MINUTE_DIFFTRIMLIB$DELETE_FILETEST2SET2 CLOSE_SYSUAF CLOSE_BULLINFCLOSE_BULLUSER$CODE;$PDATA$LOCALL HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMESS NEWS_TIMESINF_REC NEW_MESSAGES BULL_NOTIFY FOR$DELETE FOR$IO_END FOR$IO_T_DS FOR$IO_X_DA FOR$IO_X_SE FOR$READ_SU FOR$READ_KU FOR$WRITE_SUFOR$REWRITE_SUMPQPPPPPP%PPEP+PP 2PGPP PPPP P$/P [P0^P#P0P%P.P%P#PJPfPPP P}qTDww1@Sr01/TRIM0130-Sep-1995 13:04DEC Fortran V6.1-68 TRIM TRIMWPP[}PQPk-21~^(n( nQ^^(n21~^(kn( nQ^XˌWRITEDIR3 FOR$WRITE_SF FOR$IO_END1M FOR$WRITE_SF  FOR$IO_L_Rݫ FOR$IO_L_V FOR$IO_T_DS FOR$IO_T_DS$ FOR$IO_T_DS FOR$IO_ENDP\\VQ FOR$READ_SF߫ FOR$IO_L_R< FOR$IO_T_DS FOR$IO_ENDPWWVVѫT FOR$WRITE_SF˘˜˘ FOR$IO_T_DS FOR$IO_END3 FOR$WRITE_SF FOR$IO_ENDDISCONNECT_REMOTE CLOSYE_BULLDIR FOR$WRITE_SF FOR$IO_END@P4P190019199520 UNDELETE CLI$_ABSENT CLI$GET_VALUE OPEN_BULLDIRREADDIR SETPRV_PRIV FOLDER_ACCESSWRITEDIRDISCONNECT_REMOTE CLOSE_BULLDIR5$CODE@$PDATA$LOCALPOINTDBULLPAR REMOTE_FOLDERBULL_DIR INPUT_BUFFERNEWS_DIRL HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMESZ NEWS_TIMESINF_REC NEW_MESSAGES BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1 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_MF.P+PBP1EPrP-{PPPlPP1PjP PP% P%P:PRPdP7rP P PUP#P&P#P [POqP7tP.PWP5PPPznG/5ww1* r016 UNSUBSCRIBE0130-Sep-1995 13:08DEC Fortran V6.1-68 UNSUBSCRIBEP" ERROR: You are not subscribed to ).- ERROR: Folder is permanent and cannot not be unsubscribed.% You are now no longer subscribed to \). Note: Excludes and/or includes exist for this group. UNSUBSCRIBEQ*PERMP  P 0   ,PQGENERAL %'P [(NEWS_FIND_SUBSCRIBEP_ FOR$WRITE_SF0TRIMP8 0<8 FOR$IO_T_DS FOR$IO_ENDOPEN_BULLINF_SHARED@REC_LOCKP~~H  FOR$R]EAD_KU FOR$IO_T_DS߫ FOR$IO_X_DA FOR$IO_ENDPRRիPQԁԁ`P CLOSE_BULLINF\\R2BQQ ,\_\\_) FOR$WRITE_SF FOR$IO_ENDi FOR$WRITE_SFPTRIMPX 0\X FOR$IO_T_DS FOR$IO_ENDUPDATE_USERINFO`NEWS_FIND_SUBSCRIBEPkkRR^R\LSޣlcphCOPY2S^Rt FREE_TAGS FOR$WRITE_SF FOR$IO_END|^ LIB$MOVC3UPDATE_USERINFO_NEWS_ALWAYSi  UNSUBSCRIBENEWS_FIND_SUBSCRIBETRIMOPEN_BULLINF_SHAREDREC_LOCK CLOSE_BULLINFUPDATE_USERINFOCOPY2 FREE_TAGS LIB$MOVC3UPDATE_USERINFO_NEWS_ALWAYS$CODE$PDATA$LOCALL HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGES BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER  _NEWS_FOLDER_DEFAULT NEWS_FOLDER1 SCRATCH_INCLUDE USERINFO FOR$IO_END FOR$IO_T_DS FOR$IO_X_DA FOR$READ_KU FOR$WRITE_SFFP6bP9eP,PPPPYP*PYMww1r011UPDATE0130-Sep-1995 12:52DEC Fortran V6.1-68 UPDATE P `UPDATEQ dP      0,HPd COMPARE_DATE@l COMPARE_TIME@Hd|l\\LPtH COMPARE_DATE@P, ,PQGENERAL %'dPaPH[ЫVD FOR$BJTESTPPUPDATE_SHUTDOWNX TEST_BULLCPPVH[ЫV,  ,  , ' ,  , ' ,  kWXYɈZW1`READDIRѫk1\\\QQZ1\RR1\\11ɼpl FOR$READ_IF߫  FOR$IO_L_R FOR$IO_ENDɿxt FOR$READ_IF߫ FOR$IO_L_R FOR$IO_END< SSˀ| FOR$READ_IF߫  b FOR$IO_L_R FOR$IO_ENDˈ˄ FOR$READ_IF߫ FOR$IO_L_R FOR$IO_END< TTSTVVX˔ COMPARE_DATEPV˨ COMPARE_TIMEPVV˴ DELETE_ENTRYWkW\UUU˼ COMPARE_DATEPV COMPARE_TIMEP( ɰ( ɼ( ɘ( ɤ FOR$BJTESTP( ɘ( ɤ( ɘ( ɤ FOR$BJTESTP( ɘ( ɤkk1WWCLEANUP_DIRFILE( ɘ( ɤREADDIRXɈ(  COMPARE_DATEcPѫ,  ( ( ( WRITEDIRԩ\( ( UPDATE_FOLDER\( ( UPDATE_FOLDER  FOR$BJTESTP,UPDATE_SHUTDOWN) ) 4 UPDATE_LOGINP5-NOV-210000:00:00.005-NOV-1956 UPDATE FOR$BJTESTUPDATE_SHUTDOWN TEST_BULLCP J UPDATE_ALWAYSREADDIR COMPARE_DATE COMPARE_TIME DELETE_ENTRYCLEANUP_DIRFILEWRITEDIR UPDATE_FOLDER UPDATE_LOGINdy$CODE1$PDATA$LOCAL BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1L HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGESBULL_DIR INPUT_BUFFERNEWS_DIR REMOTE_FOLDERSHUTDOWN FOR$IO_END FOR$IO_L_R FOR$READ_IFPP&P5P @PIP PPPePP|PPPPPPP PPPa PSPP*PRPbP)}PP P CPOP cP nP yww1 觿r01<UPDATE_DIR_HEADER0130-Sep-1995 12:50DEC Fortran V6.1-68fUPDATE_DIR_HEADEROP# ERROR: Shutdown node name ignored. Invalid node name specified.UPDATE_DIR_HEADERSHUTDOWN(P      \H\L8H@PP\H\L\LP\H\L\L\HTT CLI$GET_VALUE@ $g $XPdPP[}PQ}PQVH FOR$JIBCLRP\T FOR$JIBCLRP\( ư( Ƽ` COMPARE_DATEPRl COMPARE_TIMEPRR( ư( ƼxWRITEDIR1˄ FOR$BJTESTPː FOR$BJTESTP˜ FOR$JIBCLRP\ƈ˨WRITEDIR˴ FOR$JIBSETP\, ] ư, g Ƽ1 1 FOR$BJTESTP1 FOR$JIBSETP\ FOR$JIBCLRP\, ] ưԫ)hr CLI$GET_VALUE CLI$_ABSENTQPQGET_NODE_NUMBER_OTHERի FOR$WRITE_SF FOR$IO_ENDի6GET_NODE_NUMBERE( FOR$WRITE_IFݫ  FOR$IO_L_V FOR$IO_ENDE FOR$WRITE_IFݫ FOR$IO_L_V FOR$IO_ENDWWTDƼ 0DƼ W~.~~:~ƾ~:~Ƽ~, n ƼQ^ƈ SYS$ASCTIM, ( 0WRITEDIR]P5-NOV-210000:00:00.00REPL UPDATE_DIR_HEADER CLI$_ABiSENT FOR$JIBCLR COMPARE_DATE COMPARE_TIMEWRITEDIR FOR$BJTEST FOR$JIBSET CLI$GET_VALUEGET_NODE_NUMBER_OTHERGET_NODE_NUMBER SYS$ASCTIM-$CODEv$PDATAT$LOCALBULL_DIR INPUT_BUFFERNEWS_DIR COMMAND_LINE FOR$IO_END FOR$IO_L_V FOR$WRITE_SF FOR$WRITE_IFy#P`VP ePPP\PPPPJPAP20P9EP$SPnP PNBGJ j-ww1@Qr019UPDATE_EXCLUDE0130-Sep-1995 13:13DEC Fortran V6.1-68UPDATE_EXCLUDE8P) ERROR: Error in opening new custom file.))UPDATE_EXCLUDEBULL_USER_CUSTOM:defaults:0P P 0@HH1l1 SYS_TRNLNM@@@ k @  88 B0$00@@t| dP ,PQGENERAL %'PP [8 SYS$ASCTIMLTRIM\ SYS_TRNLNMPkk,M @ DISABLE_PRIVShTRIMPptxFOR$OPENˠlTRIMP˨ˬ˰FOR$OPEN ENABLE_PRIVSk FOR$CLOSE FOR$WRITE_SF FOR$IO_ENDVV1, FOR$READ_SF߫ FOR$IO_L_R FOR$IO_T_DS FOR$IO_ENDP\\VTRIMPW LIB$INDEXPV:~W^(W 0nWYY\TRIMPPSSЫST-\n S TPQ^T :V/ FOR$WRITE_SF    FOR$IO_T_DS FOR$IO_ENDPRRV1 YXЫ  READ_QUEUEm/ FOR$WRITE_SF$TRIMP, 0, FOR$IO_T_DS FOR$IO_ENDPSYX4 FOR$CLOSE@ FOR$CLOSE\TTRIMPWLTRIMP\`;1~W^(WnWXXYYdY\^hlLIB$RENAME_FILE\^ CHECK_CUSTOMMPSYS$LOGIN:BULL.CUSTOM UPDATE_EXCLUDE SYS$ASCTIMTRIM SYS_TRNLNM DISABLE_PRIVSFOR$OPEN ENABLE_PRIVS FOR$CLOSE LIB$INDEX READ_QUEUELIB$RENAME_FILE CHECK_CUSTOM$CODEnb$PDATA$LOCALL HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGESBULL_DIR INPUT_BUFFERNEWS_DIR BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1BULL_USER_CUSTOMDBULLPAR SCRATCH_INCLUDE FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$READ_SF FOR$WRITE_SF FOR$WRITE_SFpP o7PP"PP*PQPMVP _P=cP9fP0PSP8wPMAww1ꩿr018 UPDATE_FOLDER0130-Sep-1995 12:56DEC Fortran V6.1-68 UPDATE_FOLDER UPDATE_FOLDERPP,\dPp,PQGENERAL %'P[Vզ,OPEN_BULLFOLDER_SHARED READ_FOLDER_FILE_KEYNAMEW ^( n ~ ^( nW^ SYS_BINTIMW^,, FOR$JIBSETP8 FOR$BJTESTPDREWRITE_FOLDER_FILECLOSE_BULLFOLDER}  UPDATE_FOLDEROPEN_BULLFOLDER_SHAREDREAD_FOLDER_FILE_KEYNAME SYS_BINTIM FOR$JIBSET FOR$BJTESTREWRITE_FOLDER_FILECLOSE_BULLFOLDER q$CODE$PDATAL$LOCALBULL_DIR INPUT_BUFFERNEWS_DIR BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1PjPP1%ww1쥿r01<UPDATE_LOCAL_NEWS0130-Sep-1995 13:08DEC Fortran V6.1-68UPDATE_LOCAL_NEWSUPDATE_LOCAL_NEWSPr P,8  88@ 0BULLETIN_SUBCOMMANDSp(x8dP,PQGENERAL %'P[8 INIT_QUEUE k HD READ_QUEUEիVOPEN_BULLNEWS_SHAREDի1TREAD_FOLDER_FILE_KEYNUM_TEMPի1sCLOSE_BULLNEWS`CONNECT_REMOTE_FOLDERWXի1(f OPEN_BULLDIR_SHARED\\\\W\ lREADDIR \ CLOSE_BULLDIR\~^|x OTS$CVT_L_TI^ːTRIMPY^(n}~ ~Y^(YfnY\\Y^( nYZ,Zn  PQ^˘ CLI$DCL_PARSEˤMOVEOPEN_BULLNEWS_SHARED \YˬREAD_FOLDER_FILE_KEYNUM˸ GET_MSGKEYCOPY2YYYƴ\WXtnREWRITE_FOLDER_FILEk READ_QUEUEիCLOSE_BULLNEWS1q PCOPY/ORIGINAL Q-LAST UPDATE_LOCAL_NEWSBULLETIN_SUBCOMMANDS INIT_QUEUE READ_QUEUEOPEN_BULLNEWS_SHAREDREAD_FOLDER_FILE_KEYNUM_TEMPCLOSE_BULLNEWSCONNECT_REMOTE_FOLDEROPEN_BULLDIR_SHAREDREADDIR CLOSE_BULLDIR OTS$CVT_L_TITRIM CLI$DCL_PARSEMOVEREAD_FOLDER_FILE_KEYNUM GET_MSGKEYCOPY2REWRITE_FOLDER_FILE$CODEu$PDATA$LOCALBULL_DIR INPUT_BUFFERNEWS_DIR BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1 COMMAND_LINE LOCAL_UPDATE REMOTE_FOLDERX,PFPVPX{P3PPFPisP {PPP THww1`—r017 UPDAvTE_LOGIN0130-Sep-1995 13:02DEC Fortran V6.1-68 UPDATE_LOGIN UPDATE_LOGINXPBROADCASTP LP 8 L CLI$PRESENT@ (pdP ,PQGENERAL %'P [ ,1OPEN_BULLUSER_SHARED READ_USER_FILE_HEADERЫwЫkCLOSE_BULLUSER ,V ^( n ~ ^( n(V^,0 SYS_BINTIMV^FOR$REWRITE_SU FOR$IO_X_SE FOR$IO_ENDPXXkT ,)TD CLI$PRESENTPTTL FOR$BJTESTPWXTRIMPX}.BULLFIL~X^(X nXYYXX`XW^dhCHKACLW^k ԫԫt NOTIFY_USERS ,|READ_USER_FILE_KEYNAMEЫЫCLOSE_BULLUSERPADDu UPDATE_LOGINxOPEN_BULLUSER_SHAREDREAD_USER_FILE_HEADERCLOSE_BULLUSER SYS_BINTIM CLI$PRESENT FOR$BJTESTCHKACLTRIM NOTIFY_USERSREAD_USER_FILE_KEYNAME$CODE$PDATA$LOCALBULL_DIR INPUT_BUFFERNEWS_DIRL HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGES BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT y NEWS_FOLDER1 COMMAND_LINE FOR$IO_END FOR$IO_X_SEFOR$REWRITE_SUwP[PkPTPP,P$PPPPnPXHPMPUPoPVJ- ww1`Lr01=UPDATE_NEWS_FOLDER0130-Sep-1995 13:08DEC Fortran V6.1-68UPDATE_NEWS_FOLDERUPDATE_NEWzS_FOLDERPpl,$88TpdP,PQGENERAL %'P [VWOPEN_BULLNEWS_SHARED,READ_FOLDER_FILE_KEYNAMEVX ^( n ~ ^( n8X^<@ SYS_BINTIMX^VVWL GET_MSGKEYX COMPARE_BTIMP} 8dREWRITE_FOLDER_FILECLOSE_BULLNEWS{ UPDATE_NEWS_FOLDEROPEN_BULLNEWS_SHAREDREAD_FOLDER_FILE_KEYNAME SYS_BINTIM GET_MSGKEY COMPARE_BTIMREWRITE_FOLDER_FILECLOSE_BULLNEWS$CODE$PDATAl$LOCALBULL_DIR INPUT_BUFFERNEWS_DIR BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1.PF|PPP 2&ww1`r01|6 UPDATE_READ0130-Sep-1995 12:52DEC Fortran V6.1-68 UPDATE_READ UPDATE_READP4P LL,LL40, dP(PP ([мRROPEN_BULLUSER_SHARED,READ_USER_FILE_HEADERիRCLOSE_BULLUSERQѡѡ Pޡ4Sԣԣ ԃP(Џ@ԡ F}OR$REWRITE_SU FOR$IO_X_SE FOR$IO_END4 SYS$ASCTIMH SYS_BINTIM FOR$UNLOCKTREAD_USER_FILE_KEYNAMESիRУУЫأЫܣFOR$REWRITE_SU FOR$IO_X_SE FOR$IO_ENDЫЫԣ Ыأ ЫܣЫأЫܣ`WRITE_USER_FILE_NEWkhMODIFY_SYSTEM_LISTkRCLOSE_BULLUSER  UPDATE_READOPEN_BULLUSER_SHAREDREAD_USER_FILE_HEADERCLOSE_BULLUSER SYS$ASCTIM SYS_BINTIMREAD_USER_FILE_KEYNAME~WRITE_USER_FILE_NEWMODIFY_SYSTEM_LIST0$CODE$PDATA$LOCALL HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGESBULL_DIR INPUT_BUFFERNEWS_DIR FOR$UNLOCK FOR$IO_END FOR$IO_X_SEFOR$REWRITE_SULP#P &P@PHJP>P>P8P$P 'PUI 0ww1 3r01AUPDATE_REMOTE_USERINFO0130-Sep-1995 13:04DEC Fortran V6.1-68 UPDATE_REMOTE_USERINFO"UPDATE_REMOTE_USERINFOP-P @ SYS_BINTIM@ dP ,PQGENERAL %'P[޼Vf P( @T UfP@,-   OPEN_USERINFO ,RBfSChk COMPARE_BTIMPR ,QChAClA C C  ,P@ ,QAWC C  ,P@C  COMPARE_BTIMPWWW ,QC AC AWRUPDATE_USERINFO[V ^(  n ~ ^(  nV^ SYS_BINTIMV^޼UeSCh0, COMPARE_BTIMPЫChЫCl[@ SYS_BINTIM޼QaTЫD ЫD PDECNET& UPDATE_REMOTE_USERINFO OPEN_USERINFO COMPARE_BTIMUPDATE_USERINFO 4SAVE_LAST_READ_BTIM SYS_BINTIM SAVE_LAST_SYS_BTIM$CODE$PDATAT$LOCALL HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGESBULL_DIR INPUT_BUFFERNEWS_DIR BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FO LDER1 CONNECT_STATUSv6PFPvPP0P)PPP8P-P&PP'P+PPYMww1 Vr01:UPDATE_SHUTDOWN0130-Sep-1995 12:52DEC Fortran V6.1-68UPDATE_SHUTDOWNUPDATE_SHUTDOWNP*SYSTEM*SYSTEM P   4           P[ OPEN_BULLUSERTREC_LOCKP~~\ FOR$READ_KU FOR$IO_T_DS< FOR$IO_T_DS  FOR$IO_L_R  FOR$IO_L_R߫  FOR$IO_X_DA߫, FOR$IO_X_DA߫ FOR$IO_X_DA߫D FOR$IO_X_DA FOR$IO_ENDPRRk1{޼ldCLR2QR PՀQRQ k FOR$WRITE_SUp FOR$IO_T_DS< FOR$IO_T_DS  FOR$IO_L_V  FOR$IO_L_V߫  FOR$IO_X_DA߫, FOR$IO_X_DA߫ FOR$IO_X_DA߫D FOR$IO_X_DA FOR$IO_ENDPRRkFOR$REWRITE_SU FOR$IO_T_DS< FOR$IO_T_DS  FOR$IO_L_V  FOR$IO_L_V߫  FOR$IO_X_DA߫, FOR$IO_X_DA߫ FOR$IO_X_DA߫D FOR$IO_X_DA FOR$IO_ENDPRRkCLOSE_BULLUSER UPDATE_SHUTDOWN OPEN_BULLUSERREC_LOCKCLR2CLOSE_BULLUSER$CODE$PDATAx$LOCALL HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGESSYSTEM_FOLDERSSHUTDOWN FOR$IO_END FOR$IO_L_R FOR$IO_L_V FOR$IO_T_DS FOR$IO_X_DA FOR$READ_KU FOR$WRITE_SUFOR$REWRITE_SU?P}PnPPPsPf=PqBPf/#Dww1 |r01:UPDATE_USERINFO0130-Sep-1995 13:02DEC Fortran V6.1-68UPDATE_USERINFOUPDATE_USERINFOP        ,PQGENERAL %'P[kPQ@@QR@ @RRQQkԫ\RLLRQLLQQRRV[VWVP\QSѬSTlaTTSSRRV\Q`PVkOPEN_BULLINF_SHAREDk1~~  FOR$READ_KU FOR$IO_T_DS߫P FOR$IO_X_DA FOR$IO_ENDPTTSRPQRTDSDUQTXPRceЅQ`R͟ FOR$REWRITE_SU FOR$IO_T_DS߫P FOR$IO_X_DA FOR$IO_ENDPX1`TRIMPXHRRRH~~  FOR$READ_KU FOR$IO_T_DS߫0 FOR$IO_X_DA FOR$IO_ENDPRRSTUPTQARASPQYUTbcЃP`T͟ FOR$REWRITE_SU FOR$IO_T_DS߫0 FOR$IO_X_DA FOR$IO_ENDPY  FOR$WRITE_SU FOR$IO_T_DS߫ FOR$IO_X_DA FOR$IO_ENDPUHYʏYYHV1hTRIMPYYXHRRRHYYVFQQQFVVV~~  FOR$READ_KU FOR$IO_T_DS߫@ FOR$IO_X_DA FOR$IO_ENDPVVR1STSUSVFRFZTV\EEpNEWS_FIND_SUBSCRIBESPТzrT`S FOR$REWRITE_SU FOR$IO_T_DS߫@ FOR$IO_X_DA FOR$IO_ENDP\  FOR$WRITE_SU FOR$IO_T_DS߫  FOR$IO_X_DA FOR$IO_ENDPTHVʏVVHYYIVʏVVI\ʏ\\ CLOSE_BULLINFR UPDATE_USERINFO UPDATE_USERINFO_NEWS_ALWAYSOPEN_BULLINF_SHAREDTRIMNEWS_FIND_SUBSCRIBE CLOSE_BULLINFY$CODE$PDATAx$LOCALL HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGES BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1 USERINFO REMOTE_FOLDER LAST_FOLDER FOR$IO_END FOR$IO_T_DS FOR$IO_X_DA FOR$READ_KU FOR$WRITE_SUFOR$REWRITE_SUPP &P4eP nP5P P=P PPPP,KPixPP$PP,Pm@PUP$~P+P$PPP P,VPP PP$P-P$P9PYww1`5r01=USER_FILE_ROUTINES0130-Sep-1995 12:56DEC Fortran V6.1-68USER_FILE_ROUTINESP USER_FILE_ROUTINESQ@ P   LL  P< [< [Ь( ޻D@REC_LOCKP FOR$READ_SU0 FOR$IO_X_SE FOR$IO_ENDPRR( ( < [Ь}PQ P( ޻LHREC_LOCKP~~ FOR$READ_KU0 FOR$IO_X_SE FOR$IO_ENDPRR( , < [ЬkR޻TPREC_LOCKP1~~X FOR$READ_KU8 FOR$IO_X_SE FOR$IO_ENDPSSѻ$ FOR$WRITE_SF` FOR$IO_T_DS߫  FOR$IO_X_DA߫ FOR$IO_X_DA FOR$IO_L_RR  FOR$IO_L_R R FOR$IO_ENDPUU41RRk< [ЬT@P@QРРЀT< [ЬkT޻lhREC_LOCKP FOR$WRITE_SU0 FOR$IO_X_SE FOR$IO_ENDPSSTk! <USER_FILE_ROUTINES <READ_USER_FILEREC_LOCK r<READ_USER_FILE_KEYNAME <READ_USER_FILE_HEADER <WRITE_USER_FILE_NEW <WRITE_USER_FILE4$CODE$PDATA|$LOCALL HEADER_INFOL BULL_USER FOLDER_TIMESSYS_FOLDER_TIMES NEWS_TIMESINF_REC NEW_MESSAGES FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$IO_X_DA FOR$ IO_X_SE FOR$READ_SU FOR$READ_KU FOR$WRITE_SF FOR$WRITE_SU_ P3P(6PP0P"PP"DPfGPXPP( PZN04ww1 ݫr016 VERIFY_DATE0130-Sep-1995 13:02DEC Fortran V6.1-68 VERIFY_DATE VERIFY_DATETP 5-NOV-2011 00:00:00.00 5-NOV-1955 00:00:00.00P  SYS_BINTIM@< SYS_BINTIM@P[Ь SYS_BINTIM޼,( COMPARE_BTIM޻RPЫЫ< SYS_BINTIM޼LH COMPARE_BTIMPЫЫh  VERIFY_DATE SYS_BINTIM COMPARE_BTIM_$CODE0$PDATA\$LOCAL0P SP 0$ _ww1\r013WAIT_SEC0130-Sep-1995 12:52DEC Fortran V6.1-68WAIT_SECWAIT_SEC PQP [}PQPk LIB$GET_EFV^(n<XX^(XnX}0 00:00:~XWWWV^ SYS$BINTIMV^k,( SYS$SETIMRk@< SYS$WAITFRP.00 WAIT_SEC LIB$GET_EF SYS$BINTIM SYS$SETIMR SYS$WAITFR{$C ODE$PDATAL$LOCALP {ww1U몿r013WRITEDIR0130-Sep-1995 12:59DEC Fortran V6.1-68WRITEDIR PWRITEDIR Pd4d dP,PQGENERAL %'P[ЬR[ЬR޼S޼Tc1RCONVERT_HEADER_TOBIN   FOR$WRITE_SF FOR$IO_L_R FOR$IO_L_R FOR$IO_T_DS FOR$IO_ENDPRRd1d  dFOR$REWRITE_SU FOR$IO_X_SE FOR$IO_ENDPRRdd d~~?  FOR$READ_KU FOR$IO_ENDPdFOR$REWRITE_SU FOR$IO_X_SE FOR$IO_ENDPdd  FOR$WRITE_SU FOR$IO_X_SE FOR$IO_ENDPd1cRCONVERT_ENTRY_TOBIN   FOR$WRITE_SF FOR$IO_L_Rc FOR$IO_L_V FOR$IO_T_DS FOR$IO_ENDPRRd1d  FOR$REWRITE_SU FOR$IO_X_SE FOR$IO_ENDPRRdFOR$REWRITE_SU FOR$IO_X_SE FOR$IO_ENDPRRdd1 QcQd,(REC_LOCKP~~k FOR$READ_KU FOR$IO_ENDPd~~k FOR$READ_KU FOR$IO_ENDPd PcPd40SPECIAL_NEWSDIR_ENTRY1d FOR$REWRITE_SU FOR$IO_X_SE FOR$IO_ENDPSSdFOR$REWRITE_SU FOR$IO_X_SE FOR$IO_ENDPSSd  FOR$WRITE_SU FOR$IO_X_SE FOR$IO_ENDPd FOR$WRITE_SU FOR$IO_X_SE FOR$IO_ENDPd dERROR_AND_EXIT 5 WRITEDIR WRITEDIR_NOCONVCONVERT_HEADER_TOBINCONVERT_ENTRY_TOBINREC_LOCKSPECIAL_NEWSDIR_ENTRYERROR_AND_EXITf$CODE$PDATA8$LOCALBULL_DIR INPUT_BUFFERNEWS_DIR BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1 REMOTE_FOLDER DIR_POSITION FOR$IO_END FOR$IO_L_R FOR$IO_L_V FOR$IO_T_DS FOR$IO_X_SE FOR$READ_KU FOR$WRITE_SF FOR$WRITE_SUFOR$REWRITE_SUP0P4PBPMEP>PP0PP#PPLPP?PP PP)'P *PIPUPcPHfP:PPSP'PP%PP6PA+P0:P!=P]PbPPPPPXP'PP%PPOP# P*P!.PRP VPtfww1Jr01:WRITEOUT_STORED0130-Sep-1995 13:05DEC Fortran V6.1-68WRITEOUT_STORED P)WRITEOUT_STOREDQ <>ignorePPDPD 4 Hd NEWS_POST@  ,PQGENERAL %'dPP|[ FOR$REWIND$ NEWS_FEEDPVV FOR$READ_SF FOR$IO_T_DS FOR$IO_ENDPRRV,WRITE_MESSAGE_LINE< LIB$INDEXPPQ,Q@D PDP LIB$INDEXP,PD PD\ SYS$SETASTl NEWS_POSTkVˀ TEST_BULLCPPˈ SYS$SETASTː FOR$BJTESTPVk˜ FOR$BJTESTP˨ FOR$CLOSE˰ FOR$BJTESTP FOR$REWINDVk |WRITEOUT_STORED NEWS_FEEDWRITE_MESSAGE_LINE LIB$INDEX SYS$SETAST NEWS_POST TEST_BULLCP FOR$BJTEST FOR$CLOSE$CODE$PDATA$LOCAL BULL_FOLDER BULL_FOLDER1 NEWS_FOLDER NEWS_FOLDER_DEFAULT NEWS_FOLDER1BULL_DIR INPUT_BUFFERNEWS_DIR MAIN_HEADER_INFO FOR$REWIND FOR$IO_END FOR$IO_T_DS FOR$READ_SFDPC#P8&P NP]PgP PP P -!ww1ˬr014 WRITE_AST0130-Sep-1995 13:04DEC Fortran V6.1-68 WRITE_AST WRITE_ASTP IO$_READVBLK NEWS_READ_ASTP[޼PPRRSCRk DISCONNECT1TBBBBB|B|  READ_QUEUEB,Rk( WRITE_CHANBBD>CLRTx RQAX<SYS$QIOPC2CRkp DISCONNECT  WRITE_AST IO$_READVBLK NEWS_READ_AST DISCONNECT READ_QUEUE WRITE_CHANSYS$QIO$CODE$PDATA$LOCALPPROCBUF CONNECT_STATUSPNNTPTP*P9PJ@PLPSPP_PTPP P 8,&ww1 &&r01:WRITE_BULL_FILE0130-Sep-1995 12:54DEC Fortran V6.1-68WRITE_BULL_FILEWRITE_BULL_FILEPP[}PQPkREMOTE_WRITE_BULL_FILEݼ FOR$WRITE_DUk FOR$IO_X_SE FOR$IO_END WRITE_BULL_FILEREMOTE_WRITE_BULL_FILEE$CODE$PDATA$LOCAL REMOTE_FOLDER FOR$IO_END FOR$IO_X_SE FOR$WRITE_DUP $PE ww1߬r015 WRITE_CHAN0130-Sep-1995 13:04DEC Fortran V6.1-68 WRITE_CHAN WRITE_CHAN0P IO$_WRITEVBLK WRITE_ASTP[Ь kЬ}PQ P޼ x RB LIB$MOVC3[ЬkЬ лQAP(R>B0л8x P@<м@ SYS$QIOPB2B  WRITE_CHAN IO$_WRITEVBLK WRITE_AST LIB$MOVC3 @WRITE_CHAN_BUFSYS$QIO$CODE$PDATAT$LOCALDQREADBUFPPROCBUF?PPP !ww1Qr01=WRITE_MESSAGE_LINE0130-Sep-1995 13:05DEC Fortran V6.1-68WRITE_MESSAGE_LINE P)WRITE_MESSAGE_LINEQ  %"--------------,P  ,L<LL 4 44< D <    ,4< D 4$Ll$L$$$,,  STORE_BULL@, ,4HP,dxT#,,, dP,PQGENERAL %' PPP[^}PQPDTRIMPV X 1 FOR$WRITE_SF暏RRVVRRLPL FOR$IO_T_DS FOR$IO_ENDV FOR$WRITE_SFÏVRP