To: mobbyg
On 11-05-12, mobbyg said the following...
 
mo> I read the what's new txt file for A20, and I have a question, maybe more
mo> once I get an answer on this question, about the MsgEditor function:
mo> 
mo> My plan is to write a news/bulletin mangement script. It would let you
mo> write up a news/bulletin item, and let the sysop manage them as well as
mo> displaying them to users that log on.  
mo> 
mo> Basically, will the MsgEditor function allow me to save the file to a
mo> folder of my choosing? If so, how?

Here's a little program I wrote to do just what you are asking.  Basically,
you have to output all the lines into a file.

Procedure Main
Var
  Lines    : Integer = 0;
  WrapPos  : Integer = 254;
  MaxLines : Integer = 200;
  Forced   : Boolean = False;
  Template : String  = 'textedit';
  Subject  : String  = 'My subject';
  Count    : Integer;
  F1       : File
  S,FX     : String

Begin

     FX:=ParamStr(1)

     If FileExist(FX) Then Begin
          fAssign(F1,FX,66)
          fReset(F1)
          If IOResult = 0 Then Begin
               While Not fEof(F1) Do Begin
                    Lines:=Lines+1
                    fReadLn(F1,S)
                    MsgEditSet(Lines,S)
               End
          End
          fClose(F1)
     End

     MaxLines:=Lines+200

     SetPromptInfo(1, 'MsgTo');  // if template uses &1 for "To:" display

     If MsgEditor(1, Lines, WrapPos, MaxLines, Forced, Template, Subject) Then 

          fAssign(F1,FX,66)
          fReWrite(F1)
          For Count := 1 to Lines Do Begin
               fWriteLn(F1,MsgEditGet(Count));
          End

     End
End

Begin
     Main
End
OO

pq gryphon
88 of
bd cyberia

--- Mystic BBS v1.10 A20 (Linux)
 # Origin: Cyberia BBS | Cyberia.Darktech.Org | Kingwood, TX (77:1/188)
 * Origin: FidoNet <-> SciNet EchoGate! (1:250/100.0)