home *** CD-ROM | disk | FTP | other *** search
/ PC/CD Review 40 / PCRFEB.BIN / apollo / delphi / getorg.sc_ / getorg.sc
Text File  |  1994-12-08  |  652b  |  46 lines
  1. ; Script to Collect Parent Messages
  2. ; \1 is the forumname
  3. ; \2 is the rootmessage
  4. ; u'Get Parent message'getorg !#callp getorg.scx %n|%S'Message Number to get Parent of:'\n
  5. ;
  6. sgo workspace\r
  7. wcommands.
  8. wWS>
  9. screate dummy.txt\r
  10. wCTRL/C.
  11. s^z\r
  12. wWS>
  13. sappend forum_file.txt dummy.txt\r
  14. wWS>
  15. sdelete forum_file.txt\r
  16. wdelete? (Y or N):
  17. sy\r
  18. wWS>
  19. srename dummy.txt forum_file.txt\r
  20. wWS>
  21. screate dummy.txt\r
  22. wCTRL/C.
  23. s\r
  24. s#forum \1\r
  25. s^z\r
  26. wWS>
  27. sappend dummy.txt forum_file.txt\r
  28. wWS>
  29. sdelete dummy.txt\r
  30. wdelete? (Y or N):
  31. sy\r
  32. wWS>
  33. sexit\r
  34. ##go \1
  35. sread \2\r
  36. wExit>
  37. sback\r
  38. wExit>
  39. sfile\r
  40. wExit>
  41. sgo\r
  42. wMAIN>
  43.  
  44.  
  45.  
  46.