home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / n / newsflash / !BBS / BBS / Scripts / MailSysop < prev    next >
Encoding:
Text File  |  1996-09-17  |  496 b   |  24 lines
  1. {
  2. | Mail the sysop script
  3. | Alex Howarth (09 July 1996)
  4.  
  5. REPORT "Mailing the sysop"
  6. DECLARE subject,60
  7. STD CLS
  8. OPENMESSAGEBASE
  9. READMAREA 1
  10. IF MESSAGEAREATYPE=0 THEN
  11.   BFG 7 }To            : {BFG 3 PRINT SYSOPNAME  NL
  12.   BFG 7 }Enter subject : {BFG 3 INPUTc subject,30 CLL STD
  13.   NL NL ATTR 0,4 PRINT " -- "
  14.   BFG 7 PRINT "NewsFlash "+NFVERSION+" Line Editor " FG 0 PRINT " --"
  15.   CLL STD NL
  16.   WRITEMESSAGE 1,ok%
  17.   IF ok% THEN
  18.     POSTMESSAGE 1,subject,USERNUMBER,1
  19.   ENDIF
  20. ENDIF
  21. CLOSEMESSAGEBASE
  22. }
  23.  
  24.