;SRCA:BBOARD.MAC.93 6-Dec-85 12:53:07, Edit UT-3 by CAW ; Add changes from UTEXAS ; Add switch for no MM or PUSH - /SECURE. To prevent a user from ; getting below this program. ; THE FOLLOWING IS UTEXAS ONLY ; Make /MORE default, output blank lines before header ; Eliminate More? prompt in the middle of a message ; BBOARD.MAC.91, 3-May-85 08:22:05, Edit by GERGELY ;Increase command line interpretation to 10 lines ;BBOARD.MAC.72, 18-Dec-85 12:09:28, Edit by PIERRE ; Add the ability to remove PUSHing ability when PUSHSW==0 ;BBOARD.MAC.71, 1-Aug-85 16:18:12, Edit by FMF ; Make use POBOX: instead of PS: ; Note that SYSTEM:MAIL.TXT is replaced with POBOX:MAIL.TXT ;BBOARD.MAC.70, 14-Jun-85 09:04:30, Edit by FMF ; Make sure "X" in More? really exits ;BBOARD.MAC.69, 8-Jun-85 15:30:12, Edit by FMF ; Turn on output (undo ^O) before More? ;BBOARD.MAC.68, 3-Jun-85 15:33:09, Edit by FMF ; X in More? exits all bboards ;BBOARD.MAC.67, 31-May-85 14:09:46, Edit by FRANK ; Give help for all commands in "More?" ;BBOARD.MAC.66, 28-May-85 13:10:30, Edit by FMF ; "^" synonym for "B" ; In MORPMT, "P" for push, "H" to redisplay header ;BBOARD.MAC.65, 3-May-85 11:45:56, Edit by FMF ; From Gergely at DREA: ; More generous command line input ;BBOARD.MAC.64, 2-May-85 10:59:02, Edit by FMF ; Make sure initial message about old bboards seen if default bboard ; Fix the way site compilation switches are done ; Define WHITSW to give lots of whitespace around and in headers ; From Gergely at DREA: ; WMSR uses ARMYSW ; Fix Datamedia 2500 clear line sequence ; Fondle counts to calls of MORCHK ; Clean out "More? " on a negative answer ;BBOARD.MAC.63, 1-May-85 13:34:27, Edit by FMF ;BBOARD.MAC.62, 1-May-85 13:23:44, Edit by FMF ; Change terminal type definitions to include just standard DEC types and ; define site-dependent types in site switches ; Change JHLT and JERR to DEFINEs from OPDEFs ; Changes from Gergely at DREA: ; Output name of the bboard in the error routine ; SMSGSW to treat system messages differently ; DREA wants a little extra space before the subject line ; From WSMR: ; SHDRSW to select "standard" headers ; Add WSMRSW ;BBOARD.MAC.61, 30-Apr-85 09:35:02, Edit by FMF ; From Gergely at DREA: ; Fix error-checking in PRSMSG ;BBOARD.MAC.60, 30-Apr-85 08:40:56, Edit by FMF ; ERJMP after the JFNS% in OPNDAT ;BBOARD.MAC.59, 29-Apr-85 13:30:33, Edit by FMF ; Fix problem that SCROLL-MORE would set /LAST ;BBOARD.MAC.58, 28-Apr-85 18:08:19, Edit by FMF ; Bugfixes from Gergely at DREA: ; Don't open the .IDX file until we really need to use it ; Fix where /CHECK reports whether there are bboards available ;BBOARD.MAC.57, 24-Apr-85 14:40:07, Edit by FMF ; ^R is a synonym for H (repeat header) ;BBOARD.MAC.56, 24-Apr-85 14:38:12, Edit by FMF ; LOTS and GSB have the same selections as other Stanford sites ;BBOARD.MAC.55, 24-Apr-85 10:42:00, Edit by FMF ; Don't use AC16...it trashes the last read date ;BBOARD.MAC.54, 23-Apr-85 16:55:53, Edit by FMF ; Clean up code ; Flush ancient edit history ; Don't print out extra CRLF before message header ;BBOARD.MAC.52, 18-Apr-85 14:04:06, Edit by FMF ; Enable DREA edits for Sierra ; Make sure no leading tab if header on next line ; Allow DEL for non-confirmation in "More?" ;BBOARD.MAC.100, 11-Apr-85 17:17:13, Edit by GERGELY TITLE BBOARD - BBOARD reader SEARCH MONSYM,MACSYM .REQUIRE SYS:MACREL ;Load useful things, don't copy .REQUIRE SYS:BLANKT ;Get mailsystem screen blank code ASUPPRESS SALL .TEXT "BBOARD/SAVE" EXTERN $BLANK ;Tell MACRO about these symbols VWHO==4 ;4 = Customer VMIN==0 VMAJ==1 VEDIT==123 ;Edit in bits 18-26 CODORG=1000 ;Beginning of CODE PSECT DATORG=7000 ;Beginning of DATA PSECT IFNDEF RUTSW, ;Rutgers University IFNDEF FAIRSW, ;Fairchild AI Lab IFNDEF DREASW, ;Defense Research Establishment Atlantic IFNDEF ARMYSW, ;WSMR IFNDEF STANSW, ;Stanford University IFNDEF UTEXSW, ;[UT-2] University o' Texas ;Compilation flags IFNDEF FACSW,< FACSW==0 ;Default to no /FACULTY or /CLASS IFN RUTSW, ;Rutgers wants it >;IFNDEF FACSW IFNDEF OLDSW,< OLDSW==1 ;Want old messages (beyond a month) IFN DREASW!ARMYSW, ;Those who don't want it >;IFNDEF OLDSW IFNDEF ENDMSW,< ENDMSW==1 ;Most people want end message IFN ARMYSW!STANSW, ;Doesn't want the end message >;IFNDEF ENDMSW IFNDEF NEWRSW,< NEWRSW==1 ;Most people want new readers treated specially IFN FAIRSW, ;Doesn't want them treated specially >;IFNDEF NEWRSW IFNDEF SHDRSW,< SHDRSW==0 ;Most want bboard-style headers IFN ARMYSW, ;Wants standard headers >;IFNDEF SHDRSW IFNDEF SMSGSW,< SMSGSW==0 ;Most don't want special system message stuff IFN DREASW, ;Those who want system messages differently >;IFNDEF SMSGSW IFNDEF WHITSW,< WHITSW==0 ;Most people don't like lots of whitespace IFN DREASW!UTEXSW, ;But DREA and Texas want it >;IFNDEF WHITSW IFNDEF PUSHSW,< PUSHSW==1 ;Most people want to be able to push >;IFNDEF PUSHSW IFE PUSHSW,> ;Macro definitions ;Dynamically generate a flag. Argument is flag name, no argument initializes DEFINE FLAG. (LABEL) < IFB