home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 2 BBS / 02-BBS.zip / orionful.zip / Menus / Exception.Cmd < prev    next >
OS/2 REXX Batch file  |  1996-04-03  |  822b  |  20 lines
  1. /* Exception.Cmd
  2.    This REXX script is executed if a exception violation occurs.  You can
  3.    use this script to notify the user of what just happened.  And to help
  4.    assist us by asking the user what they where doing when the exception
  5.    happened.
  6. */
  7.  
  8. Arg line
  9.    Call AdeptSayGen line, "Excemption.Cmd"
  10.    Call AdeptPrint line,"AdeptXBBS has experienced an EXCEMPTION and has become unstable.\r\n"
  11.    Call AdeptPrint line,"To aid " || {S7 || " in fixing the problem please leave a short\r\n"
  12.    Call AdeptPrint line,"a message explaining what you were doing before this screen\r\n"
  13.    Call AdeptPrint line,"\r\n\r\n"
  14.    Call AdeptPrint line,"Please enter the subject of your comment\n"
  15.    Temp=AdeptMessage(line, 3, 3, "")         /* Comment to Sysop */
  16.    Temp=AdeptWrite(line, 1, 3, "")
  17.    Exit
  18.  
  19.  
  20.