home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / PCLPACK.ZIP / NICE.ZIP / MACS.ZIP / MSEARCH.CTL < prev    next >
Encoding:
Text File  |  1992-08-31  |  2.6 KB  |  102 lines
  1. *search
  2. Display(display\SEARCH)
  3. lowmsg(/:lastmsg/)
  4. setequal(n=%ARESP%)
  5. Say(&3&Which &11&search&3& option would you like?&12&: &15&*)
  6. *askagain
  7. MenuKey
  8. BigNiceSay(n:new,f:from,t:to,s:description,m:message text,q:quit,h:help)
  9. BigIf (n:new,f:from,t:toname,s:desc,m:text,h:help3)
  10. if (%RESP%)=(Q) then Return
  11. flushout
  12. goto (askagain)
  13. *help3
  14. display(display\help\sear,/:SEC/)
  15. goto (search)
  16.  
  17. *from
  18. clearmem
  19. menuask (&CR&&3&Please enter the name of the person to search for&12&: &15&*)
  20. setequal(p=%RESP%)
  21. cmenuask(&CR&&3&Starting at which message number?&11&(%var%n-%var%f)&12&: &15&*)
  22. say(&11&&CR&Searching...|)
  23. seekfrom(/:LASTMSG/,%var%p,%RESP%)
  24. log(--,Msg From Search for %var%p)
  25. zap(seeking.%NODE%,2)
  26. appendto(seeking.%NODE%,%var%p)
  27. eline(20)
  28. if (%ARESP%)=(ERROR) then Return
  29. setequal(r=20)
  30. setequal(u=0)
  31. Return
  32.  
  33. *new
  34. clearmem
  35. setequal(u=0)
  36. lowmsg(/:lastmsg/)
  37. setequal(n=%ARESP%)
  38. menuask (&CR&&3&Search for messages older than?&11&(Date)&12&: &15&*)
  39. if (%RESP%)=() then setequal(/Resp=/:last/)
  40. dateok(%RESP%)
  41. ifnottrue(return)
  42. setequal(p=%RESP%)
  43. cmenuask(&CR&&3&Starting at which message number?&11&(%var%n-%var%f)&12&: &15&*)
  44. say(&11&&CR&Searching...|)
  45. seeknew(/:LASTMSG/,%var%p,%RESP%)
  46. log(--,Msg New Search for %var%p)
  47. zap(seeking.%NODE%,2)
  48. appendto(seeking.%NODE%,%var%p)
  49. eline(20)
  50. if (%ARESP%)=(ERROR) then Return
  51. setequal(r=20)
  52. Return
  53.  
  54. *toname
  55. clearmem
  56. menuask (&CR&&3&Please enter the name of the person to search for&12&: &15&*)
  57. setequal(p=%RESP%)
  58. cmenuask(&CR&&3&Starting at which message number?&11&(%var%n-%var%f)&12&: &15&*)
  59. say(&11&&CR&Searching...|)
  60. seekto(/:LASTMSG/,%var%p,%RESP%)
  61. log(--,Msg To Search for %var%p)
  62. zap(seeking.%NODE%,1)
  63. appendto(seeking.%NODE%,%var%p)
  64. eline(20)
  65. if (%ARESP%)=(ERROR) then Return
  66. setequal(r=20)
  67. setequal(u=0)
  68. Return
  69.  
  70. *desc
  71. say(&3&)
  72. clearmem
  73. menuask (Please enter the description you want to search for&12&: &15&*)
  74. setequal(p=%RESP%)
  75. cmenuask(&CR&&3&Starting at which message number?&11&(%var%n-%var%f)&12&: &15&*)
  76. say(&CR&&11&Searching...|)
  77. seekdesc(/:LASTMSG/,%var%p,%RESP%)
  78. log(--,Msg Desc Search for %var%p)
  79. zap(seeking.%NODE%,3)
  80. appendto(seeking.%NODE%,%var%p)
  81. eline(20)
  82. if (%ARESP%)=(ERROR) then Return
  83. setequal(r=20)
  84. setequal(u=0)
  85. Return
  86.  
  87. *text
  88. clearmem
  89. menuask (&CR&&3&Please enter the text you want to search for&12&: &15&*)
  90. setequal(p=%RESP%)
  91. cmenuask(&CR&&3&Starting at which message number?&11&(%var%n-%var%f)&12&: &15&*)
  92. say(&CR&&11&Searching...|)
  93. seektext(/:LASTMSG/,%var%p,%RESP%)
  94. log(--,Msg Txt Search for %var%p)
  95. zap(seeking.%NODE%,4)
  96. appendto(seeking.%NODE%,%var%p)
  97. eline(20)
  98. if (%ARESP%)=(ERROR) then Return
  99. setequal(r=20)
  100. setequal(u=0)
  101. Return
  102.