CC EXPUNGEV1.013-APR-1996 11:15DEC C V1.2-001x x $READONLY$$BSS$$DATA$h$LINK$ $LITERAL$i$CODE$ $ABS$READ_IN_MESSAGEGOTO_TOP_LEVEL COMMAND_STATEHELP_TOP_LEVEL HELP_READ HELP_SEND LAST_MESSAGECURRENT_MESSAGEMESSAGES MESSAGE_TEXT MESSAGE_TEXT_SIZE MAX_MESSAGES(NUMBER_OF_RECENT_MESSAGES(NUMBER_OF_UNSEEN_MESSAGES(NUMBER_OF_DELETED_MESSAGES(MESSAGE_FILE_LAST_MODIFIED MESSAGE_FILE_MODIFIED MESSAGE_FILE_SIZE LAST_MESSAGE_FILE_EOF READ_MODE TEXT_FILE_FDHEADER_FILE_FD READ_ONLY(INCORPORATE_NEWMAIL_FILE CURRENT_MAIL_FILE NEW_MAIL_FILEMAIL_FILE_MODE HEADER_FILE_HEADERDOING_TAKE_FILE FILE_DELIVERY_DONE(NUMBER_OF_MESSAGES_TO_UPDATETEXT_FILE_MODE HEADER_FILE_MODELOCAL_HOST_NAME HOME_FILE IGNORE_CONTROL_C_FLAG MM_UNLINK PRINT_DEBUGGING_INFO DOING_RSCAN SAVED_EDITOR_PIDDO_BLANK_SCREEN IMMEDIATE_WAKEUP CONTROL_E_EDITORCONTROL_N_ABORT DEAD_LETTER_FILEDEFAULT_BBOARD DEFAULT_BCC_LISTDEFAULT_CC_LISTDELIVERY_TO_MM(DONT_DISPLAY_RESTORED_DRAFT(EDITOR_INVOCATION_COMMAND(SPELL_INVOCATION_COMMAND SIMPLE_EDITOR ESCAPE_AUTOMATIC_SEND(FLAGGED_AUTOTYPE_SUPPRESS LIST_CONFIRM_SUPPRESS LIST_DEVICE SPOOL_TO_LIST_DEVICE LIST_INCLUDE_HEADERS LIST_ON_SEPARATE_PAGESMAIL_COPY_FILE MAIL_COPY_FILE_EXISTS MARK_DELETED_MESSAGESMSG_SEQ_PROMPTMORE_PROCESSING(QUIT_IS_SYNONYM_FOR_PUSH PUSH_ON_CONTROL_C PERSONAL_NAMEPROMPT_FOR_BCC READ_PROMPT READ_RECEIPT_REPLYREPLY_CC_OTHERS REPLY_INCLUDE_ME REPLY_INITIAL_DISPLAY REPLY_LEADING_STRING(REPLY_INSERT_CURRENT_MSG(REPLY_SENDER_ONLY_DEFAULT SAVED_MESSAGES_FILE SEND_PROMPT SEND_RETURN_SENDS SHORT_MESSAGE_LENGTHSIGNATURE_FILE TERSE_TEXT_PROMPT TOP_LEVEL_PROMPT(USE_EDITOR_AUTOMATICALLY USER_NAMEREAL_USER_NAMEUSER_HEADER_STR DONT_INSERT_MESSAGE_ID USER_FROM_STRING USER_REPLY_TO_STRINGTHIS_HOSTS_NAME(DONT_LOAD_SYSTEM_INIT_FILE(DONT_IGNORE_BAD_ADDRESSES DONT_COMPLETE_USERNAMESDONT_DO_LOCKING SECOND_MM_INVOCATION POP3_SERVER_HOSTPOP3_USER_NAMEPOP3_NO_DELETE POP3_DEBUG POP3_CHECK_INTERVAL(POP3_CHECK_INTERVAL_TEMP NEW_STYLE_PARSING PRINT_JOBS_IMMEDIATELY PRINT_FORM PRINT_QUEUE USER_HEADERS SUPPRESS_HEADERS BBOARD_SUPPRESS_HEADERS ONLY_TYPE_HEADERS(BBOARD_ONLY_TYPE_HEADERS KEY_TABLE(VMS_MAIL_DELIVERY_SYSTEM DECC$STAT DECC$UMASK TOPSIFY_FILENAME0J  CMD_EXPUNGENOISECONFIRM(J`EXPUNGE LOCAL_PRINTF SUPER_LOCK INIT_MAIL_CHECK_TIME CHECK_FOR_NEW_MAIL SUPER_UNLOCK DECC$STRCPY DECC$STRCMP HEADER_FILE_NAME0J ZERO_SIZES LOCK_MM_MAIL_FILEFREE_DISK_SPACE UNLOCK_MM_MAIL_FILE ENABLE_IMAGE_PRIVILEGE LIB$GETJPI DISABLE_IMAGE_PRIVILEGE DISKQUOTA_REMAINING NEW_EXTENSIONLINK SYS$SETPRVXCREAT VAX11C_WRITE DECC$PERROR DECC$CLOSE VAX11_C_SHARED_OPEN DECC$TIMEOTS$MOVEE E= 6 =04261537 =0N;7MESSAGE_FILE_SIZE7 LAST_MESSAGE_FILE_EOF7 TEXT_FILE_FD7 MESSAGE_FILE_MODIFIED7CURRENT_MESSAGE7MESSAGES7 LAST_MESSAGE7 MAX_MESSAGES7CURRENT_MAIL_FILE= mm1`= mm2p DECC$PERROR ENABLE_IMAGE_PRIVILEGE8OTS$MOVE;;P; VAX11_C_SHARED_OPENX; CHECK_FOR_NEW_MAIL SUPER_LOCK LOCK_MM_MAIL_FILEXCREAT HOME_FILE(;0 VAX11C_WRITE HEADER_FILE_NAME DECC$CLOSE7HEADER_FILE_HEADERp SYS$SETPRV LOCAL_PRINTF MM_UNLINK7 MESSAGE_TEXT7HEADER_FILE_MODE=0X`;=E_MO 7HEADER_FILE_FD7TEXT_FILE_MODE7 READ_ONLY; SUPER_UNLOCK !UNLOCK_MM_MAIL_FILE# DECC$STRCPY %TOPSIFY_FILENAME'LINK) DECC$STRCMP +READ_IN_MESSAGE= mail.txtp- NEW_EXTENSION /FREE_DISK_SPACE 1INIT_MAIL_CHECK_TIME(;;3 DECC$TIME;x; 5DISKQUOTA_REMAINING(7DISABLE_IMAGE_PRIVILEGE9 LIB$GETJPI; DECC$STAT= DECC$UMASK=0;=  ?NOISEACONFIRM; =)!I/O error writing new mail file(=4,Couldn't re-create mail file for writing. X=' Expunging deleted messages. x=?7Insufficient diskquota to perform expunge operation. =wInsufficient disk space to perform expunge operation. Couldn't lock mail file in order to expunge deleted messages (=/' All messages deleted, deleting file P=5- No messages deleted, so no update needed. =6. In read-only mode; mail file not expunged. =deleted messages =#4G~^^GG B@(b@ZkG8b0B@Zkb#@G]] #k@#~X^`^h~px޴>^~GGG0G4GBb@ZkaG0BG8b@ZkbG4GB@Zk4G(b4G B@ZkG`A@A!@BB\R"_rP`F`4G4@%B4G0 B B$R"`4GBb@Zk,OX} 4GpBxbGG@ZkGhbGTG`B@ZkX hb"4G`B@ZkGxb4GpB@ZkhbGG`BTG@ZkbGGBTG@Zk)4GpBb@ZkbG4GB@ZkGbGTGB@ZkGb4GB@Zkpx`h,FH<ÐG|`4GGG< @! BGb4G@ZkÈ|g@cG0@0@@< @?@BGHb@Zk4GBb@ZkGb4GBbGG@Zk @HD@@7H @ B4Gb@ZkGXbPB@ZkB bGH@ZkHbH"L}"@BGGG@Zk8bG0B@ZkLݠ?$D BG(b4G@Zk¤ @ B4Gb@ZkGXbPB@ZklGCGGP/r.PKSrJtRK"tFr>x"."9.JQ9JrJ2F9> GG4.81C. "Q4JJrJ2F4>$ $ !1 @?G84G G G_GC)C Gy`BGb4G@ZkGC)@!GGC)BG 11v J1v J@1"kGp@B.rJ`F@WJ.JxJ@BF>+".:K@G@PJz/zK`uKF>k"0AB/tJF@XK.JyJABG?K"ABu/@K#@G@[uK:,:Hs5HsGu?"5",JF@@H.JzJD<+0@q.0A $Aw HSqJ D&@!'H'H{1H{Fq>1"k. `E fA+gIVJgI`qIF> @< 7C B4Gb@Zk4GGhb`B@ZkX}!bB"BGGtG@ZkX bB"BGGtG@ZkbGGBTG@ZkbG4GB@Zk @ b4GBGGGG@ZkG(GXbtGPB<@ZkG"_%@= *E@GBGbGGG@ZkBGbGTG@ZkbG4GB@Zk4GbB@ZkXbGPB@ZkGGBtGb<`\@Zk`<  D+ 4GBb@ZkGbB4G@Zk?%@] IE@GBGbGGG@ZkBGb4G@ZkGbGTGB@ZkGb4GB@ZkXbGPB@ZkàBGb4G@Zk_%@= *E@GBGbGGG@Zkp4GBb@ZkPB="XbGTG@Zk"=-"]!%-GhG*IBH IbTG  E C<@ZkGp4GbB@ZkbG4GB@ZkGGTGB\`b<H(@ZkGb4GB@Zkb4GGBGGG@ZkGXbGPBtG<@Zk GBGbGtG@ZktGbB\ J_ARJA<@Zk 4GbB@Zk ?!<@ݠ%DBGbGGGG@ZkPBGXb@Zk`\J@GpB4Gxb@ZkhbGG`BTG@Zkhb"4G`B@ZkGxb4GpB@ZkhbGG`BTG@ZkbGGBTG@Zk(4GpBb@ZkbG4GB@ZkGbGTGB@ZkGb4GB@Zkpx`h,FH<@BGHb@ZkGX]`]h}pxݤ=]}#kG P(@H08 ,A H <k,? G0NOISE,@(b# NOISE,?,@0NOISE,B4b# CONFIRM,A8G@CONFIRM,A<@@CONFIRM4G LOCAL_PRINTF4b# LOCAL_PRINTF4@ LOCAL_PRINTF4 G SUPER_LOCK4 b# SUPER_LOCK4 @ SUPER_LOCK<2b#INIT_MAIL_CHECK_TIME<1GINIT_MAIL_CHECK_TIME<1@INIT_MAIL_CHECK_TIME< b#CHECK_FOR_NEW_MAIL< GCHECK_FOR_NEW_MAIL< @CHECK_FOR_NEW_MAIL4|G LOCAL_PRINTF4b# LOCAL_PRINTF4@ LOCAL_PRINTF<%GTOPSIFY_FILENAME<&b#TOPSIFY_FILENAME<%@TOPSIFY_FILENAME4$b# DECC$STRCPY4#G DECC$STRCPY4#@ DECC$STRCPY4b# HOME_FILE4G HOME_FILE4@ HOME_FILE<&b#TOPSIFY_FILENAME<%GTOPSIFY_FILENAME<%@TOPSIFY_FILENAME4$b# DECC$STRCPY4#G DECC$STRCPY4# @ DECC$STRCPY4*b# DECC$STRCMP4)G( DECC$STRCMP4)$@( DECC$STRCMP44G@ LOCAL_PRINTF48b# LOCAL_PRINTF4<@@ LOCAL_PRINTF4@b# MM_UNLINK4LGT MM_UNLINK4P@T MM_UNLINK<Xb#HEADER_FILE_NAME<dGlHEADER_FILE_NAME<h@lHEADER_FILE_NAME4pb# MM_UNLINK4xG MM_UNLINK4|@ MM_UNLINK4+GREAD_IN_MESSAGE4,b#READ_IN_MESSAGE4+@READ_IN_MESSAGE< HGXLOCK_MM_MAIL_FILE<Pb#LOCK_MM_MAIL_FILE< T@XLOCK_MM_MAIL_FILE4dGp LOCAL_PRINTF4hb# LOCAL_PRINTF4l@p LOCAL_PRINTF4/GFREE_DISK_SPACE40b#FREE_DISK_SPACE4/@FREE_DISK_SPACE4G LOCAL_PRINTF4b# LOCAL_PRINTF4@ LOCAL_PRINTF<"b#UNLOCK_MM_MAIL_FILE<!GUNLOCK_MM_MAIL_FILE<!@UNLOCK_MM_MAIL_FILE<GENABLE_IMAGE_PRIVILEGE<b#ENABLE_IMAGE_PRIVILEGE<@ENABLE_IMAGE_PRIVILEGE4:b# LIB$GETJPI49G LIB$GETJPI49@ LIB$GETJPI<8b#DISABLE_IMAGE_PRIVILEGE<7 G(DISABLE_IMAGE_PRIVILEGE<7$@(DISABLE_IMAGE_PRIVILEGE<5@GTDISKQUOTA_REMAINING<6Hb#DISKQUOTA_REMAINING <5P@TDISKQUOTA_REMAINING4hG| LOCAL_PRINTF4tb# LOCAL_PRINTF4x@| LOCAL_PRINTF<"b#UNLOCK_MM_MAIL_FILE<!GUNLOCK_MM_MAIL_FILE<!@UNLOCK_MM_MAIL_FILE4@GTOTS$MOVE4P@TOTS$MOVE4+GREAD_IN_MESSAGE4,b#READ_IN_MESSAGE4+@READ_IN_MESSAGE4G LOCAL_PRINTF4b# LOCAL_PRINTF4@ LOCAL_PRINTF4>b# DECC$UMASK4=G DECC$UMASK4=@ DECC$UMASK4.b# NEW_EXTENSION4-G NEW_EXTENSION4-@ NEW_EXTENSION4.b# NEW_EXTENSION4-G NEW_EXTENSION4-@ NEW_EXTENSION,(b#LINK,' G LINK,' @ LINK4 b# MM_UNLINK4 G( MM_UNLINK4$ @( MM_UNLINK40 b# SYS$SETPRV48 GP SYS$SETPRV4L @P SYS$SETPRV,\ b#XCREAT,d Gp XCREAT,l @p XCREAT4 G SYS$SETPRV4 b# SYS$SETPRV4 @ SYS$SETPRV,' G LINK,( b#LINK,' @ LINK4 b# MM_UNLINK4 G MM_UNLINK4 @ MM_UNLINK4 b# LOCAL_PRINTF4 G LOCAL_PRINTF4 @ LOCAL_PRINTF<" b#UNLOCK_MM_MAIL_FILE<! G UNLOCK_MM_MAIL_FILE<! @ UNLOCK_MM_MAIL_FILE4 G$ VAX11C_WRITE4 b# VAX11C_WRITE4 @$ VAX11C_WRITE48 GH DECC$PERROR4@ b# DECC$PERROR4D @H DECC$PERROR4L b# DECC$CLOSE4P G\ DECC$CLOSE4X @\ DECC$CLOSE4p G SYS$SETPRV4x b# SYS$SETPRV4 @ SYS$SETPRV4 G MM_UNLINK4 b# MM_UNLINK4 @ MM_UNLINK,( b#LINK,' G LINK,' @ LINK4 b# MM_UNLINK4 G MM_UNLINK4 @ MM_UNLINK<" b#UNLOCK_MM_MAIL_FILE<! G UNLOCK_MM_MAIL_FILE<! @ UNLOCK_MM_MAIL_FILE4 G DECC$CLOSE4 b# DECC$CLOSE4 @ DECC$CLOSE4 G$ SYS$SETPRV4 b# SYS$SETPRV4 @$ SYS$SETPRV44 G@ DECC$CLOSE48 b# DECC$CLOSE4< @@ DECC$CLOSE4;@ GX DECC$STAT4<H b# DECC$STAT4;T @X DECC$STAT<t G VAX11_C_SHARED_OPEN<| b#VAX11_C_SHARED_OPEN< @ VAX11_C_SHARED_OPEN4 b# MM_UNLINK4 G MM_UNLINK4 @ MM_UNLINK44 b# DECC$TIME43 G DECC$TIME43 @ DECC$TIME< G HEADER_FILE_NAME< b#HEADER_FILE_NAME< @ HEADER_FILE_NAME4 b# MM_UNLINK4 G MM_UNLINK4 @ MM_UNLINK4 b# SYS$SETPRV4 G0 SYS$SETPRV4, @0 SYS$SETPRV,8 b#XCREAT,@ GP XCREAT,L @P XCREAT4` Gx VAX11C_WRITE4h b# VAX11C_WRITE4t @x VAX11C_WRITE4 b# VAX11C_WRITE4 G VAX11C_WRITE4 @ VAX11C_WRITE4 b# DECC$CLOSE4 G DECC$CLOSE4 @ DECC$CLOSE4 G SYS$SETPRV4 b# SYS$SETPRV4 @ SYS$SETPRV<! G UNLOCK_MM_MAIL_FILE<" b#UNLOCK_MM_MAIL_FILE<! @ UNLOCK_MM_MAIL_FILE<% G, TOPSIFY_FILENAME<&$ b#TOPSIFY_FILENAME<%( @, TOPSIFY_FILENAME4$, b# DECC$STRCPY4#8 GD DECC$STRCPY4#@ @D DECC$STRCPY4D b# HOME_FILE4P GX HOME_FILE4T @X HOME_FILE<&\ b#TOPSIFY_FILENAME<%d Gl TOPSIFY_FILENAME<%h @l TOPSIFY_FILENAME4$l b# DECC$STRCPY4#x G DECC$STRCPY4# @ DECC$STRCPY4* b# DECC$STRCMP4) G DECC$STRCMP4) @ DECC$STRCMP4 G LOCAL_PRINTF4 b# LOCAL_PRINTF4 @ LOCAL_PRINTF4 b# MM_UNLINK4 G MM_UNLINK4 @ MM_UNLINK< b#HEADER_FILE_NAME< G HEADER_FILE_NAME< @ HEADER_FILE_NAME4 b# MM_UNLINK4 G MM_UNLINK4 @ MM_UNLINK4@GP SUPER_UNLOCK4 Hb# SUPER_UNLOCK8 84L@P SUPER_UNLOCK !