home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 9 / FreshFishVol9-CD2.bin / bbs / util / dosk-1.0.lha / DosK / Commands / SearchK < prev    next >
Text File  |  1995-01-04  |  2KB  |  50 lines
  1. FAILAT 21
  2. LAB START
  3. REQUESTCHOICE >ENV:CHO "SearchK ©January 1995 By Kenneth J. McCormick. All Rights Reserved." "MAIN WINDOW" "SEARCH" "BYE"
  4.    IF $CHO EQ "0"
  5.      SKIP FIN
  6.    ENDIF
  7.          REQUESTCHOICE >ENV:CHO3 "SearchK" "SEARCH FOR" "STRING" "FILE"
  8.          IF $CHO3 EQ "1"
  9.             REQUESTFILE >ENV:FILE1 TITLE="SELECT FILE TO SEARCH"
  10.             REQUESTCHOICE >ENV:CHO2 "SearchK" "Choose One" "CONTINUE" "ABORT"
  11.               IF $CHO2 EQ "0"
  12.                  SKIP BACK START
  13.               ENDIF
  14.             REQUESTFILE >ENV:FILE2 TITLE="TYPE STRING ON FILE LINE"
  15.          ENDIF
  16.          IF $CHO3 EQ "0"
  17.             REQUESTFILE >ENV:FILE1 TITLE="SELECT DIR OR VOL TO SEARCH" DRAWERSONLY
  18.             REQUESTCHOICE >ENV:CHO2 "SearchK" "Choose One" "CONTINUE" "ABORT"
  19.               IF $CHO2 EQ "0"
  20.                  SKIP BACK START
  21.               ENDIF
  22.             REQUESTFILE >ENV:FILE2 TITLE="TYPE FILE NAME ON FILE LINE"
  23.          ENDIF
  24.       REQUESTCHOICE >ENV:CHO2 "SearchK" "Choose One" "CONTINUE" "ABORT"
  25.       IF $CHO2 EQ "0"
  26.          SKIP BACK START
  27.       ENDIF
  28.       REQUESTCHOICE >ENV:CHO3 "SearchK" "SEARCH DIRECTORIES" "SELECTED" "ALL" "ABORT"
  29.       IF $CHO3 EQ "1"
  30.        SEARCH $FILE1 $FILE2  >RAM:TEMPSR
  31.       ENDIF
  32.       IF $CHO3 EQ "2"
  33.        SEARCH $FILE1 $FILE2 ALL >RAM:TEMPSR
  34.       ENDIF
  35.       IF $CHO3 EQ "0"
  36.        SKIP BACK START
  37.       ENDIF
  38.       SYS:UTILITIES/MULTIVIEW RAM:TEMPSR
  39.       SKIP BACK START
  40. LAB FIN
  41.      UNSETENV CHO
  42.      UNSETENV CHO2
  43.      UNSETENV CHO3
  44.      UNSETENV FILE1
  45.      UNSETENV FILE2
  46.      DELETE RAM:TEMPSR QUIET
  47.  
  48.  
  49.  
  50.