home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / PCLPACK.ZIP / NICE.ZIP / MACS.ZIP / SEARCH.CTL < prev    next >
Encoding:
Text File  |  1992-08-08  |  1.9 KB  |  67 lines

  1. setequal(f=%maxfarea%) ; max area to search...
  2. setequal(g=1)
  3. display(display\fsearch)
  4. setequal(y=20)
  5. menuask %CRON%(&3&Please enter text to search for&12&: &15&*)
  6. if (%RESP%)=(<CR>) then Return
  7. setequal(n=%RESP%)
  8. loadsub(control\selfilea.ctl)
  9. log(--,Search (Files) for: %var%n)
  10. defpause($7$&0&[More?]$0$&3& (&11&S&3&)top, (&11&N&3&)onstop, (&11&V&3&)iew, (&11&D&3&)ownload, (&11&T&3&)ag, (&11&H&3&)elp or (&11&C&3&)ontinue?&12&: &7&)
  11. defPif(s:enew,n:nonstop,v:view2,h:fhlp,t:tag2,d:down2)
  12. clearscr
  13. say(&11&(Spacebar) Aborts.  &14&Searching file database for "%var%n". . .&CR&)
  14. spause(5)
  15. *stsearch
  16. selfarea(%var%g)
  17. eline(79)
  18. enufsec(%FILSEC%)
  19. IfNotTrue(goto (skcheck))
  20. *csearch
  21. say(&7&Searching file area: %FILNAME%|)
  22. if (%CD%)=(No) then fsearch(%FILPATH%files.bbs,12,15,7,11,3,%var%n,1,1)
  23. if (%CD%)=(Yes) then fsearch(%CDPath%%filarea%\files.bbs,12,15,7,11,3,%var%n,1,1)
  24. iftrue(goto (enew))
  25. ifkey( )
  26. if (%ARESP%)=(Yes) then goto (enew) ;did user hit stop?
  27. localkey(1)
  28. notif (%ARESP%)=(No) then goto (enew) ;did SYSOP hit stop?
  29. *skcheck
  30. if (&g)=(&f) then goto (enew)
  31. inc(g)
  32. goto (stsearch)
  33.  
  34. *enew
  35. eline(79)
  36. selfarea(/:LASTDOWN/)
  37. setequal(k=0)
  38. linefeed(1)
  39. defpause($7$&0&[Send more text?]$0$&3& (&11&S&3&)top, (&11&N&3&)onstop or (&11&C&3&)ontinue?&12&: &7&)
  40. defPif(s:stop,n:nonstop)  ;define our pause prompt...
  41. display(display\sdone)
  42. Return
  43.  
  44. *view2
  45. setequal(k=%ARESP%)
  46. loadsub(control\macros\zview.ctl)
  47. goto (blist2)
  48. *tag2
  49. setequal(k=%ARESP%)
  50. loadsub(control\macros\tfiles.ctl)
  51. goto (blist2)
  52. *down2
  53. setequal(k=%ARESP%)
  54. loadsub(control\macros\down.ctl)
  55. selfarea(/:Lastdown/)
  56. goto (blist2)
  57. *blist2
  58. spause(0)
  59. clearscr
  60. goto (stsearch)
  61.         *fhlp
  62. defpause($7$&0&[Send more text?]$0$&3& (&11&S&3&)top, (&11&N&3&)onstop or (&11&C&3&)ontinue?&12&: &7&)
  63. defPif(s:stop,n:nonstop)
  64. setequal(k=%ARESP%)
  65. display(display\help\lst,/:SEC/)
  66. goto (blist2)
  67.