home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / RADOOR30.ZIP / ONLINE.DOC < prev    next >
Encoding:
Text File  |  1992-02-13  |  1.1 KB  |  31 lines
  1.  
  2.                               -=( Online.doc )=-
  3.  
  4. The online unit handles the online messages for the three BBSses which are
  5. supported at the moment. It does this by checking for the BBStype in it's
  6. initialization part of the unit, and connecting the right procedures to
  7. three procedural variables. You use the variables in your program.
  8. (Once again, the BBStype is transparant to the program)
  9.  
  10. A procedure to handle incomming online mail in a door can be something like:
  11.  
  12. Procedure HandleMail(Var Foss : FossilObject);
  13. Begin
  14. If ChkForMsg
  15.    Then Begin
  16.                                  { Clear the screen and show a header          }
  17.         Foss.ClrScrF;
  18.         Foss.WriteLnF('^4^!'+Center('-=( There''s mail for you! )=-')+'^0');
  19.         Foss.WriteLnF('');
  20.  
  21.         ReadMsg(Foss);           { Show the message                            }
  22.  
  23.                                  { Show a line and ask the user to press enter }
  24.         Foss.WriteLnF('');
  25.         Foss.WriteLnF('^1'+MakeString(79,'─'));
  26.         Foss.WriteLnF('');
  27.         Foss.PressEnter;
  28.         End;
  29. End;
  30.  
  31.