home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / PCLPACK.ZIP / NICE.ZIP / MACS.ZIP / FORW.CTL < prev    next >
Encoding:
Text File  |  1992-07-29  |  781 b   |  24 lines
  1. menuask%nocr%(&CR&&3&Forward message to which user?&12&: &15&*)
  2. seekuser(%RESP%)
  3. say()
  4. IfNotTrue (setequal(a=0))
  5. ifnottrue (return)
  6. say(&CR&&11&Forwarding Message...*)
  7. iftrue (setequal(a=%NDNUMB%))
  8. if (%MSGPVT%)=(PRIVATE) then setequal(k=Yes)
  9. notif (%MSGPVT%)=(PRIVATE) then setequal(k=No)
  10. nicequal(b=%MSGTO%)
  11. zap(forw.%NODE%, ■ Message Originally Addressed to %var%b)
  12. appendto(forw.%NODE%, ■ Message Originally Sent By %MSGFROM%)
  13. appendto(forw.%NODE%, ■ Message Forwarded By %NAME%)
  14. appendto(forw.%NODE%, )
  15. capture(forw1.%NODE%)
  16. exec(copy forw.%NODE%+forw1.%NODE% forwrd.%NODE% ,)
  17. inittxt
  18. import(forwrd.%NODE%,,1,100)
  19. writemsg(/:LASTMSG/,%RESP%,%NAME%,%MSGDESC%,%var%a,%var%k,0,%MSGNET%,%MSGATTNAME%)
  20. say(Done!)
  21. himsg(/:LASTMSG/)
  22. setequal(f=%ARESP%)
  23. return
  24.