home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 8 / FreshFishVol8-CD1.bin / new / comm / mail / thor / thor.lha / rexx / forward.fse < prev    next >
Text File  |  1994-08-06  |  259b  |  17 lines
  1. /* Custom-quoting */
  2.  
  3. delete = '7F'x
  4.  
  5. options results
  6.  
  7. ISFIRSTCALL
  8. if (result = 'ON') then do
  9.   SENDER
  10.   if (result ~= "") then do
  11.     name = result
  12.     INSERTLINES 2
  13.     SENDERDATE
  14.     INSERTINPUT name||" wrote "||result||" the following:"||delete
  15.   end
  16. end
  17.