home *** CD-ROM | disk | FTP | other *** search
- setequal(f=%maxfarea%) ; max area to search...
- setequal(g=1)
- display(display\fsearch)
- setequal(y=20)
- menuask %CRON%(&3&Please enter text to search for&12&: &15&*)
- if (%RESP%)=(<CR>) then Return
- setequal(n=%RESP%)
- loadsub(control\selfilea.ctl)
- log(--,Search (Files) for: %var%n)
- 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&)
- defPif(s:enew,n:nonstop,v:view2,h:fhlp,t:tag2,d:down2)
- clearscr
- say(&11&(Spacebar) Aborts. &14&Searching file database for "%var%n". . .&CR&)
- spause(5)
- *stsearch
- selfarea(%var%g)
- eline(79)
- enufsec(%FILSEC%)
- IfNotTrue(goto (skcheck))
- *csearch
- say(&7&Searching file area: %FILNAME%|)
- if (%CD%)=(No) then fsearch(%FILPATH%files.bbs,12,15,7,11,3,%var%n,1,1)
- if (%CD%)=(Yes) then fsearch(%CDPath%%filarea%\files.bbs,12,15,7,11,3,%var%n,1,1)
- iftrue(goto (enew))
- ifkey( )
- if (%ARESP%)=(Yes) then goto (enew) ;did user hit stop?
- localkey(1)
- notif (%ARESP%)=(No) then goto (enew) ;did SYSOP hit stop?
- *skcheck
- if (&g)=(&f) then goto (enew)
- inc(g)
- goto (stsearch)
-
- *enew
- eline(79)
- selfarea(/:LASTDOWN/)
- setequal(k=0)
- linefeed(1)
- defpause($7$&0&[Send more text?]$0$&3& (&11&S&3&)top, (&11&N&3&)onstop or (&11&C&3&)ontinue?&12&: &7&)
- defPif(s:stop,n:nonstop) ;define our pause prompt...
- display(display\sdone)
- Return
-
- *view2
- setequal(k=%ARESP%)
- loadsub(control\macros\zview.ctl)
- goto (blist2)
- *tag2
- setequal(k=%ARESP%)
- loadsub(control\macros\tfiles.ctl)
- goto (blist2)
- *down2
- setequal(k=%ARESP%)
- loadsub(control\macros\down.ctl)
- selfarea(/:Lastdown/)
- goto (blist2)
- *blist2
- spause(0)
- clearscr
- goto (stsearch)
- *fhlp
- defpause($7$&0&[Send more text?]$0$&3& (&11&S&3&)top, (&11&N&3&)onstop or (&11&C&3&)ontinue?&12&: &7&)
- defPif(s:stop,n:nonstop)
- setequal(k=%ARESP%)
- display(display\help\lst,/:SEC/)
- goto (blist2)
-