Subj : Re: MPL docs?
To   : G00R00
From : PSI-JACK
Date : Thu Jan 31 2019 07:20 pm

On 09/01/14, g00r00 said the following...
 
 g0> 1. Note the current base.
 g0> 2. Switch to the Netmail base
 g0> 3. Post to the netmail base
 g0> 4. Switch back to the original base.


Yes! I actally got it, hacked up from your original post resulting in the
following which allows posting and reading. 

If you see any issues, let me know.

// Send/Read Netmail and return to previous message base.

Uses
  User,
  MBase;

Var
  OriginalBase : Integer

Const
  NetMailBaseNumber = '1';

Begin
  If ParamCount < 1 Then Begin
    WriteLn ('|CRERROR (NETMAIL.MPS): Invalid command line|DE');
    Halt;
  End;

  GetThisUser;

  OriginalBase := UserMBase;

  MenuCmd('MA', NetMailBaseNumber);
  If ParamCount >= 1 Then Begin
    If Upper(ParamStr(1)) = 'POST' Then
      MenuCmd('MP', '');
    Else
    If Upper(ParamStr(1)) = 'READ' Then
      MenuCmd('MR', 'Y');
  End;
  MenuCmd('MA', Int2Str(OriginalBase));
End;

Took me a login to Cyberia to find the Int2Str because before I'd have a type
mismatch issue, but after I got that figured out, and looked through how the
basics are done within bulletin.mps, and your original example on netmail, I
was able to construct this with pretty good ease. 

Very similar to Pascal. Which is kinda cool. :)

>>>[Psi-Jack -//- Decker's Heaven]

--- Mystic BBS v1.10 A51 (Linux)
 * Origin: Decker's Heaven * deckersheaven.com (46:1/142)
 þ Synchronet þ thePharcyde_ >> telnet://bbs.pharcyde.org (Wisconsin)

.