home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / PCLPACK.ZIP / NICE.ZIP / MACS.ZIP / WSEARCH.CTL < prev    next >
Encoding:
Text File  |  1992-08-08  |  2.0 KB  |  70 lines
  1. setequal(f=%maxfarea%) ;this is the max area to search
  2. setequal(g=1)
  3. display(display\wsearch)
  4. say(&3&Please file to search for &11&(Wildcards are valid)&12&: &14&(            )&15&*)
  5. back(13)
  6. setequal(y=20)
  7. menuask%CRON%%LEN12%(*)
  8. if (%RESP%)=(<CR>) then Return
  9. find(%resp%,.)
  10. ifnottrue(combine(%resp%+.*=e))
  11. ifnottrue(setequal(/resp=%var%e))
  12. setequal(n=%RESP%)
  13. loadsub(control\selfilea.ctl)
  14. log(--,Wildcard Search for: %var%n)
  15. 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&)
  16. defPif(s:stop,n:nonstop,v:view2,h:fhlp,t:tag2,d:down2)
  17. clearscr
  18. say(&11&(Spacebar) Aborts.  &14&Searching file database for "%var%n". . .&CR&)
  19. spause(3)
  20. *stsearch
  21. selfarea(%var%g)
  22. eline(79)
  23. enufsec(%FILSEC%)
  24. ifNotTrue (goto (skcheck))
  25. *csearch
  26. say(&7&Searching file area: %FILNAME%|)
  27. if (%CD%)=(No) then wsearch(%FILPATH%files.bbs,12,15,7,11,3,%var%n,1,1)
  28. if (%CD%)=(Yes) then wsearch(%CDPath%%filarea%\files.bbs,12,15,7,11,3,%var%n,1,1)
  29. ifTrue (goto (enew))
  30. ifkey( )
  31. ifTrue (goto (enew)) ;did user hit stop?
  32. localkey(1)
  33. notif (%ARESP%)=(No) then goto (enew)
  34. *skcheck
  35. if (&g)=(&f) then goto (enew)
  36. inc(g)
  37. goto (stsearch)
  38.  
  39. *enew
  40. eline(79)
  41. selfarea(/:LASTDOWN/)
  42. setequal(k=0)
  43. defpause($7$&0&[Send more text?]$0$&3& (&11&S&3&)top, (&11&N&3&)onstop or (&11&C&3&)ontinue?&12&: &7&)
  44. defPif(s:stop,n:nonstop)  ;define our pause prompt...
  45. display(display\sdone)
  46. Return
  47. *view2
  48. setequal(k=%ARESP%)
  49. loadsub(control\macros\zview.ctl)
  50. goto (blist2)
  51. *tag2
  52. setequal(k=%ARESP%)
  53. loadsub(control\macros\tfiles.ctl)
  54. goto (blist2)
  55. *down2
  56. setequal(k=%ARESP%)
  57. loadsub(control\macros\down.ctl)
  58. selfarea(/:Lastdown/)
  59. goto (blist2)
  60. *blist2
  61. spause(0)
  62. clearscr
  63. goto (stsearch)
  64.         *fhlp
  65. defpause($7$&0&[Send more text?]$0$&3& (&11&S&3&)top, (&11&N&3&)onstop or (&11&C&3&)ontinue?&12&: &7&)
  66. defPif(s:stop,n:nonstop)
  67. setequal(k=%ARESP%)
  68. display(display\help\lst,/:SEC/)
  69. goto (blist2)
  70.