DFILE26C.ZIP.x/MENUS.LST

20.3 KB f61f11305eb0987d… 
Main System Menunut(ii,4);
            if ii<>'' then begin@
MAINMENU: byt:=valueii);
            savetr:(A)uto message menu - The message displayed when you logon_n
@^2vn]=i1 then begin
(A)uto MessagetAXXt,'      +(B)ulletin list - General files of interesterompt('Enter new
@B');
            inp(B)ulletins    BXX   if ii<(C)hat with the SYSOP.-(ii);
            save:=true;
     
@@1d;
      'U':begin(C)hat w\SYSOPrCXX('Enter u/(E)xternal programs outside the TAG environmenttof base)    2@^5prompt('Which board(E)xternal PrgsEXX     inpu((F)ile Transfer system - Upload/Download number of base)    
@^6prompt('Which board
(F)ile systemnrFXX     inpu5(G)oodbye - Sysop comment - Logs you off and hangs upôµF≥x@*1Ö56
	(G)oodbyeMDa
(GXX·éπ£
P-7(/G)Instant hangup - Nothing is printed after executiondo be@*I      writeln(t,'  
(/G)Hangupd han/GX
       (I)nformation about this systemn
  assign(t,bbsdir+'gfiles\
@!@SYSTEMMSGrewrite(t)
(I)nformationteIXXwriteln(t1(K)Send a private message to the SysOp (Feedback)nning outpu
@F1ALLERS.LOGTXT"');
(K)omment SysOpKXX1<filesiz(L)og of today's callersreset(uf);
  print('Beginning outpu
@!CALLERS.LOGTXT"');

(L)og callerserLXX1<filesiz+(M)essage system menu (private/public mail)i[cp]=chr(8));
 
@^3:if (not (rbackspac(M)essage baseeMXXnd (rp>1)6(O)ther BBS list - Validated users can add to the list      
@Oe:=true;
          (O)ther BBS    OXX  end;
 4(P)erson data menu - Change your account informationt;
var 
@^4,las,b4:strptr;
  (P)ersonal dataPXXrptr;
   (R)e-read the main logon messagenerhout paging   t:text;
  
@!@LOGON
    x:array[(R)e-read logonRXXy[1..9] o.(S)ysop chat flag status - Look without paging   t:text;
  
@&errec;
    x:array[(S)ysop statustSXXy[1..9] o;(T)ime bank - Deposit or Withdraw time from your time bank. 2@>    user.dsl:=30;
 (T)ime bankerd:TXXe;
     8(U)ser search/listing system (lists users on the system)
  
@L    user.dsl:=30;
 
(U)ser listerd:UXXe;
     1(V)oting board - Scan/Vote on a list of questionssl:=50;
  
@V    user.dsl:=30;
 (V)oting Board:VXXe;
     7(Y)our information - Complete list of your user account. you@Ynd;

procedure vot(Y)our info vdaYXXile of vd(ACCESS)Validation editoror l editor.nge board information  ·@1AMmpt(c+' '+c); rp:=(ACCESS)Editor ACCESSDIT
  $(BATCH)File transfer protocol editor.nge board information  ▄@1LMmpt(c+' '+c); rp:=
(BATCH)Editor  BATCHEDIT
  "(BOARDEDIT)Message section managerChange board information  ▄@1BMmpt(c+' '+c); rp:=(BOARDEDIT)    	BOARDEDIT
  ((DLBOARDEDIT)File system section managerr     24:begin
     @1FMp:=1; for cv:=1 to
(DLBOARDEDIT)t(DLBOARDEDITh+(DOS)Drop to a Mini-DOS for file management.e voting board;
▄@1DM
    rp:=1; cp:=1
(DOS)Mini-DOSe DOSTESl<>'' (EVENTEDIT)System event manageruestion on the voting board;
▄@1VM
    rp:=1; cp:=1
(EVENTEDIT)ore 	EVENTEDIT'' :(IVOTES)Change/Delete the any question on the voting board;
╚@2in
    rp:=1; cp:=1(IVOTES)Change IVOTESl<>'' (LOG)System trace logsfor ilei:=ll; ll:=''; cp:=length(i)+1;╚@4SYSOP.LOGnd;
    re(LOG)SystemsetkLOG);
     /(MENUEDIT)Menu manager - Basic system structurehen repeat
  @1MM  prompt(chr(8)+' 
(MENUEDIT)Dp:=rMENUEDITcp-1%(SINGLE)File transfer protocol editor.isk Space/Usersrt,next▄@1Pllread:boolean;
  (SINGLE)Editor
SINGLEdure i(STATUS)System status report - Calls/Disk Space/Usersrt,next╚@!@STATUS:boolean;
  (STATUS)Report
STATUSdure i)(SYSTEMCONFIG)Change system configuration, and message files @1SM
                (SYSTEMCONFIG)tSYSTEMCONFIG"(TIMEDATE)Set system time and dateo DOS if i[cp-1]=chr(8) th▄@6H0
                
(TIMEDATE)Setp:TIMEDATE\   '(QUIT)Close system down and drop to DOS if i[cp-1]=chr(8) th @~H0
                (QUIT)Close rp:QUIT;
     6(UEDIT)User log editor. Search options also available.i2:=1 ▄@1UMYSOP.LOG[i1][i2]:=(UEDIT)UsereditUEDIT1+1;
 )(ULOG)Usage log - Summary of system usage for the last 96e+c╚@!	USAGE.LOG   end;
  (ULOG)Usage LogULOGn begin
Auto Message Menuem(ii,4);
            if ii<>'' then begin
@
AUTOMESSAGE: :=valueii);
         MENUavetr(D)isplay current auto-message^╜Φ?°╣ΦU╜Φ(∩Θïσ]├Uï∞UΘá
@WΘ╣Φ2╜LΦ¡█4êFΘ
(D)isplay MsgoMDXXFáS2Σ└7(P)ost a new auto-message for all users when they logonΘá@CΘ╣Φ2╜LΦ¡█4êFΘ(P)ost Auto MsgPXXFáS2Σ└(Q)uit to the main system menu^╜Φ?°╣ΦU╜Φ(∩Θïσ]├Uï∞UΘá@^1Θ╣Φ2╜LΦ¡█4êFΘ(Q)uit to mainQXXFáS2Σ└<(R)eply to the author of the auto-message with a private msg
@HΘ╣Φ2╜LΦ¡█4êFΘ(R)eply AutoMsgRXXFáS2Σ└Message System Menu(ii,4);
            if ii<>'' then begin
@
MESSAGEMENU: :=valueii);
            savetr5(#)Change to another message base - Enter base numbere numbe
@#Min
  r:=timer;
  (#)Change baset#XX  getkey(-(A)rea list - Message boards available to youuoolean;
var c
@A
begin
  if not ha(A)rea listgin
AXX ansic(3)(C)hat with the SYSOPsage to one usertion yn:boolean;
var c
@@1
begin
  if not ha(C)hat w/SYSOPeCXX ansic(3)%(E)nter a private message to one usertion yn:boolean;
var c
@E
begin
  if not ha(E)nter privateEXX ansic(3)*(F)ile transfer system - Uploads/Downloadsis base (indiv.))a
@^6; ml:integer; tf:bo(F)ile transferFXXger;
   -(G)oodbye - Sysop comment - Logoff and hangupbase (indiv.))a@*1; ml:integer; tf:bo	(G)oodbyeMDmenuGXXger;
   6(/G)Instant hangup - Nothing is printer after executediv.))a@*I; ml:integer; tf:bo
(/G)HangupDseic/GXger;
   5(K)ill/view private mail you have sent to other usersividual
@K;
      thisline:=t
(K)ill E-MailMAKXXelse else5(/K)ill/view messages you have sent (current section)urrent)
@KC);
               (/K)ill current/KX       ou/(M)ail - Read any private mail you have waiting            c
@M8);
               (M)ail private MXX       ou6(/M)ail - Check for mail to you in the current sections:=cp-
@MC            if leng(/M)ail current/MXthisline:'(N)ew scan all flagged message sectionsnew mail      cp:=cp-
@NG            if leng(N)ew scan allcNXXthisline:+(P)ost a public message on the current base        end;
   
@PAR:while cp<>1 do be
(P)ost public  PXXcp:=cp-1;(Q)uit to the main system menumail from this base (indiv.))a@^1; ml:integer; tf:bo(Q)uit to mainuQXXger;
   3(S)can messages on this base starting at any numberp;
  i[0
@S(cp-1);
  nl;
 end(S)can messagesSXX input(va5(U)sers - List users with access to this message basend;

2@Uedure input6
(U)sers w/accssUXX·éπ£
P-%(V)iew new messages on this base onlyse onlynlykey(' ');
  
@N       outkey(#8);
(V)iew new msgsVXXngth(this#(Z)Set message sections to new scann lno Oldestststr):boolea
@D20i:integer;
    tf(Z)Scan settingZXXLR=upcase'([)Goto the previous accessible sectiono Oldestststr):boolea
@[r i:integer;
    tf([)Prev section[XXLR=upcase#(])Goto the next accessible sectionons also available.oard;
@]UM
    rp:=1; cp:=1(])Next section]XXITSl<>'' -(!)Information on the current message sectionstststr):boolea2@7r i:integer;
    tf(!)Section info!XXLR=upcase/(MAILR)Read all private mail - Newest to Oldestststr):boolea▄@3r i:integer;
    tf(MAILR)ead prvtMAILR=upcase6(UEDIT)User log editor. Search options also available.oard;
▄@1UM
    rp:=1; cp:=1(UEDIT)UsereditUEDITSl<>'' 0(WORD)Validate new words added to the dictionaryhis base);
▄@R       end;
    end(WORD)ValidategWORD00.0 the*(WORDDEL)Delete a word from the dictionarymessagerection)y)a▄@RD; ml:integer; tf:bo(WORDDEL)eteMSGWORDDEL
   Personal Data Menue use4);
            if ii<>'' then begin
@PERSONALDATA:       ii);
            savetr'(A)ddress - Change your mailing address author of auto msgsa
@D2Θ╣Φ2╜LΦ¡█4êFΘ	(A)ddressMDainAXXFáS2Σ└;(B)aud rate - Change highest baud rate your system supportsa
@D9Θ╣Φ2╜LΦ¡█4êFΘ(B)Highest baudBXXFáS2Σ└'(C)ity/state - Change your City & State & Stateof auto msgsa
@D3Θ╣Φ2╜LΦ¡█4êFΘ(C)ity/stateinCXXFáS2Σ└0(E)dit macros (Combine many keystrokes into one)f auto msgsa2@Z20╣Φ2╜LΦ¡█4êFΘ
(E)dit macrosseEXXFáS2Σ└'(F)lag message bases in/out of new scanrs used of auto msgsa
@D20╣Φ2╜LΦ¡█4êFΘ(F)lag msg baseFXXFáS2Σ└.(G)raphic colors - Change the ANSI colors used of auto msgsa
@D7Θ╣Φ2╜LΦ¡█4êFΘ(G)ANSI colorscGXXFáS2Σ└'(H)elp level - Change default menu form (system  (cp<strlen)
@D22<thisuser.linelen)(H)elp levelgerHH)INS      "(L)ist current account informationard functionsctionsation  
@D09mpt(c+' '+c); rp:=(L)ist infomatiLXXRDEDIT
  /(M)ailbox status - Open/close/forward functionsctionsation  
@D19mpt(c+' '+c); rp:=(M)ailbox statuMXXRDEDIT
  )(P)hone number - Change your phone number thor of auto msgsa
@D5Θ╣Φ2╜LΦ¡█4êFΘ(P)hone numberPXXFáS2Σ└(Q)uit to main system menute message to author of auto msgsa@^1Θ╣Φ2╜LΦ¡█4êFΘ(Q)uit to mainQXXFáS2Σ└8(S)creen size - Change number of columns/lines on screen    
@D10=true;
          
(S)creen size  SXX  end;
 .(T)ype of computer - Change your computer type of auto msgsa
@D6Θ╣Φ2╜LΦ¡█4êFΘ(T)Computer TypTXXFáS2Σ└((Z)ip code - Change your postal zip codeauthor of auto msgsa
@D4Θ╣Φ2╜LΦ¡█4êFΘ
(Z)ip codeDainZXXFáS2Σ└4($)Change your password used to get onto this systemiong.dat
@D13SOPMNU.MSG);
  fo($)Password cha$XXn
    se(1)Toggle ANSI ON/OFFisitee your account informationt;
var 
@D11las,b4:strptr;
  (1)Toggle ANSIa1XXrptr;
  (2)Toggle color ON/OFFus - Look without paging   t:text;
  
@D12rec;
    x:array[(2)Toggle color2XXy[1..9] o(3)Toggle [PAUSE] ON/OFFte on a list of questionssl:=50;
  
@D15  user.dsl:=30;
 (3)Toggle PAUSE3XXe;
     $(4)Toggle one key or line input mode of questionssl:=50;
  
@D16  user.dsl:=30;
 (4)Toggle input4XXe;
     7(5)Toggle use of the external full screen editor ON/OFF BBSr
@D14nd;
      end;
 (5)ToggleEditor5XXlose(t);
.(6)Toggle the use of clear screen codes ON/OFF from the BBSr
@D18nd;
      end;
 
(6)Toggle CLSWp6XXlose(t);
&(7)Toggle VT-100 type tab codes ON/OFFFFoframs from the BBSr
@D17nd;
      end;
 (7)Toggle TABSp7XXlose(t);
$(8)Toggle use of custom menus ON/OFF   ║  File N2@D23  ║    Si(8)Toggle menus8XX Date3(9)Toggle clear screen before message status ON/OFFg board;
2@D24
    rp:=1; cp:=1(9)ToggleMsgCLS9XXTESl<>'' External Program Menuenu);
            if ii<>'' then begin @EXTERNAL PROGRAMS: eii);
            savetr(C)hat with the SysOp menute message to author of auto msgsa
@@1Θ╣Φ2╜LΦ¡█4êFΘ(C)hat w/SysOpCXXFáS2Σ└((F)ile transfer system - Upload/Downloadauthor of auto msgsa
@^6Θ╣Φ2╜LΦ¡█4êFΘ
(F)ile systemnFXXFáS2Σ└5(G)oodbye - SysOp comment - Logs you off and hangs upo msgsa@*1Θ╣Φ2╜LΦ¡█4êFΘ	(G)oodbyeMDainGXXFáS2Σ└7(/G)Instant hangup - Nothing is printed after executionmsgsa@*IΘ╣Φ2╜LΦ¡█4êFΘ
(/G)HangupDain/GXFáS2Σ└+(M)essage system menu (private/public mail)hor of auto msgsa
@^3Θ╣Φ2╜LΦ¡█4êFΘ(M)essage basesMXXFáS2Σ└(Q)uit to main system menute message to author of auto msgsa@^1Θ╣Φ2╜LΦ¡█4êFΘ(Q)uit to mainQXXFáS2Σ└File Transfer Menut(ii,4);
            if ii<>'' then begin@
FILEMENU: byt:=valueii);
            savetr8(#)Change to another file section - Enter section numberon.n
@#Dvn]=i1 then begin
(#)Change basei#XXt,'      4(A)rea list - List of file sections available to youlog-on.n
@A3vn]=i1 then begin
(A)rea listagetAXXt,'      4(B)rowse the files in this section (no descriptions)log-on.n
@B3vn]=i1 then begin
(B)rowse filestBXXt,'      (C)hat with the SYSOP Message is displayed when you log-on.n
@@3vn]=i1 then begin
(C)hat w/SYSOPtCXXt,'      *(D)ownload a file from the current section when you log-on.n
@D3vn]=i1 then begin

(D)ownloadDagetDXXt,'      7(F)ind all files with entered text in their descriptionton.n
@F3vn]=i1 then begin
(F)ind descriptFXXt,'      0(G)oodbye - Logoff and hangup - No sysop commentyou log-on.n@*1vn]=i1 then begin
	(G)oodbye n/msgGXXt,'      6(/G)Instant hangup - Nothing is printed after executed  on.n@*Ivn]=i1 then begin

(/G)HangupDlist/GXt,'      ,(I)nterior list - List files inside archivesARJ/ileslog-on.n
@I3vn]=i1 then begin
(I)nterior listIXXt,'      $(/I)nterior list by file descriptionscriptionsn you log-on.n
@I@vn]=i1 then begin
(/I)nteriorDesc/IXt,'      .(L)ist files in this section with descriptionsn you log-on.n
@L3vn]=i1 then begin
(L)ist filesgetLXXt,'      -(M)essage system - Return to the message baseen you log-on.n@^3vn]=i1 then begin
(M)essage basetMXXt,'      1(N)ew file search - Searches only marked sectionsou log-on.n
@N3vn]=i1 then begin
(N)ew file srchNXXt,'      <(P)Change new file pointer date - Date that makes a file new
@P3vn]=i1 then begin
(P)NewFile datePXXt,'      (Q)uit to main system menuage is displayed when you log-on.n@^1vn]=i1 then begin
(Q)uit to maintQXXt,'      9(R)emove a file from current section (if owner or remote)n.n
@R3vn]=i1 then begin

(R)emove fileetRXXt,'      .(S)can all directories for a certain file maskk you log-on.n
@S3vn]=i1 then begin
(S)can all dirsSXXt,'      1(T)ype a file - Warning: Use only on text files!!ext fileile
@T3vn]=i1 then begin
(T)ype filedirsTXXt,'      &(U)pload a file to the current sectionases (indiv.)ually)ase
@UG   if (c>=' ') and 
(U)pload filealUXX     if c0(/U)sers with access to the current file sectionionr):boolea2@Mr i:integer;
    tf(/U)sers w/acce/UXLR=upcase3(V)alidate one or more files in the current sectionr):boolea╚@Vr i:integer;
    tf
(V)alidate fileVXXLR=upcase7(W)Batch upload menu (add files using (B)atch protocol)B")n)
@^8p<thisuser.linelen)(W)Batch ULansfWXXINS      9(X)Batch download menu (add files using (B)atch protocol))n)
@^7p<thisuser.linelen)(X)Batch DLansfXXXINS      8(Y)our information - Access/upload & download statisticslen)
@Yrp<thisuser.linelen)(Y)our infoagerYXXINS      5(Z)Set file sections to scan when searching for fileses (new
@Z cp:=1; for cv:=1 to(Z)Scan settingZXXOARDEDITh'([)Goto the previous accessible sectionn (files/paths)t,next
@[allread:boolean;
  ([)Prev section[XXTUSdure i#(])Goto the next accessible sectionsop override-1]=chr(8) th
@]in
                (])Next section]XXT;
     6(!)Information about the current section (files/paths)t,next╚@5allread:boolean;
  (!)Information
!XXTUSdure i/(@)Change to another directory - Sysop override-1]=chr(8) th▄@6in
                
(@)Change dirp:@XXT;
     ;($)Raw directory - List files actually in current directorye╚@WDD  prompt(chr(8)+' 
($)Raw director$XXEEDITcp-1((%)Download unlisted file from the driveentturehen repeat
 ╚@ODD  prompt(chr(8)+' (%)Unlisted D/L%XXEEDITcp-1+(DOS)Drop to a Mini-DOS for file managementturehen repeat
 ▄@1DD  prompt(chr(8)+' 
(DOS)Mini-DOS  DOSEEDITcp-1$(EDIT)one or more files' informationtioncriptionn.ngth(i)+1;╚@3p;
    end;
    re
(EDIT)file(s)/dEDIT;
     9(GLOBALVAL)Global validation of all files in all sections
 ╚@VG   prompt(chr(8)+' (GLOBALVAL)idat	GLOBALVALp-14(INTGLOB)Interior list by file mask for all sectionsepeat
 
@IG   prompt(chr(8)+' (INTGLOB)alalriINTGLOBTcp-1*(MOVE)one or more files to another sectioncturehen repeat
 ╚@4    prompt(chr(8)+' 
(MOVE)file(s)=rMOVEEDITcp-1#(SORT)Sort one or all file sectionsy date or nameing board;
▄@2in
    rp:=1; cp:=1(SORT)filesnge SORTESl<>'' 6(UEDIT)User log editor. Search options also available.......▄@1UDInsufficient memor(UEDIT)UsereditUEDITType "EBatch Download Menu(ii,4);
            if ii<>'' then begin
@
Batch DL: Hyt:=valueii);
            savetr (C)lear the batch download queue of files to downloadberon.n
@CDvn]=i1 then begin
(C)lear DL listCXXt,'      9(D)ownload batch download queue (add files using (B)atch)pro
@GDvn]=i1 then begin
(D)ownloadBatchDXXt,'      2(L)ist files currently in the batch download queuenumberon.n
@QDvn]=i1 then begin
(L)ist DL queueLXXt,'      (Q)uit to file transfer menusectionsplayed when you log-on.n@^6vn]=i1 then begin
(Q)uit to filetQXXt,'      -(R)emove a file from the batch download queuetion numberon.n
@KDvn]=i1 then begin

(R)emove fileeiRXXt,'      Batch Upload Menunu(ii,4);
            if ii<>'' then begin
@
Batch UL: Hyt:=valueii);
            savetr(C)lear the batch upload queuest of files to downloadberon.n
@CUvn]=i1 then begin
(C)lear UL listCXXt,'      .(L)ist files current in the batch upload queue"B" protocol)n
@QUvn]=i1 then begin
(L)ist UL queueLXXt,'       (Q)uit to the file transfer menun - Enter section numberon.n@^6vn]=i1 then begin
(Q)uit to fileiQXXt,'      +(R)emove a file from the batch upload queue.ction numberon.n
@KUvn]=i1 then begin

(R)emove fileeiRXXt,'      ;(U)pload files in the batch upload queue (add with (B)atch)n
@J6vn]=i1 then begin
(U)pload BatchtUXXt,'      Read Message Menunusage Menu >>>>e to load, be patient!n
@	Reading Messages: : ii);
            savetr!(#)Read a specific message number - Enter base numbere numbe
@#;!WELCOME.MSGer;
  
(#)Read MSG #um#XX  getkey(1(<CR>)Read next message in default read directionean;
var c
@D5-10,15
  if not ha(<CR>)Read Def.<CR>ansic(3):(+)Follow message threading to next message in reply chainp-
@+G-10,15      if leng
(+)Next replyln+XXthisline::(-)Follow message threading to previous msg in reply chainha
@-24:while cp<>1 do be
(-)Prev reply  -XXcp:=cp-1;$(A)gain - Read current message againrtion yn:boolean;
var c
@A1
begin
  if not ha(A)gain readOPeAXX ansic(3)+(B)lock delete a selected group of messagesst)angs upase);
╚@B1      end;
    end(B)lock deleteeBXX300.0 the.(C)ontinuous reading to end of base (or abort)angs upase);

@C1      end;
    end(C)ontinuous reCXX300.0 the%(D)elete current message from sectionoff and hangs upase);

@Z1      end;
    end(D)elete MSGsagDXX300.0 the!(F)orward message to another useryou off and hangs upase);

@F1      end;
    end
(F)orward MSGagFXX300.0 the5(G)oodbye - SysOp comment - Logs you off and hangs upase);
@*1      end;
    end	(G)oodbyeMDgsagGXX300.0 the7(/G)Instant hangup - Nothing is printed after execution  i[0
@*Icp-1);
  nl;
 end
(/G)HangUpt han/GX input(va<(I)gnore messages and go to next section (sets new ptr last)
@I;
      thisline:=t(I)gnore/NxtBrdIXXelse else5(K)ludge lines - View kludge lines in current message
var c╚@K
begin
  if not ha(K)ludge lineseKXX ansic(3)!(M)ove message to another sectionointer on current message c╚@M8);
               (M)ove message MXX       ou:(N)ext message board, leave new pointer on current message c
@N8);
               (N)ext boardte NXX       ou'(P)ost a message in the current section0 users at once
var c
@PARbegin
  if not ha(P)ost messagemPXX ansic(3)(Q)uit to main message menuenumail from this base (indiv.))a
@Q1; ml:integer; tf:bo
(Q)uit to MSG mQXXger;
   :(R)eply to current message (write a message to the author) a
@RAR!FILENOTEer; tf:bo(R)eply to MSGrRXXger;
   0(S)ubject list of next few messages (quick scan)e (indiv.))a
@S1; ml:integer; tf:bo(S)ubject listiSXXger;
   2(T)oggle message scan flag for this section ON/OFFection)y)a
@TI; ml:integer; tf:bo
(T)oggle scanSGTXXger;
   1(U)ser information about who sent current messagerection)y)a▄@UI; ml:integer; tf:bo(U)ser info MSGUXXger;
   ((V)alidate user who sent current messagead direction)div.))a▄@VWRITE.MSGeger; tf:bo(V)alidate userVXXger;
   5(/V)alidate current message so the public can read ition)y)a╚@GI; ml:integer; tf:bo(/V)alidate msg/VXger;
   &(W)rite current message to a text fileult read direction)y)a▄@WI; ml:integer; tf:bo(W)rite to fileWXXger;
   4(Z)ap message - Do NOT send delete receipt to authorrorn)y)a╚@ZZ; ml:integer; tf:bo
(Z)ap messageSGZXXger;
   9([)Read previous message (changes default read direction)y)a
@[I; ml:integer; tf:bo([)Previous MSG[[)ger;
   5(])Read next message (changes default read direction)div.))a
@]WRITE.MSGeger; tf:bo(])Next MSGt MS]XXger;
   ,(!)Information about current message sectiont this system)  2@7TEXAS12R.dsl:=30;
 (!)Section Info!XXe;