home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / clarion / dirdemo.zip / DEMO_ENT.CLA next >
Text File  |  1990-03-21  |  1KB  |  55 lines
  1.          MEMBER('DIRDEMO')
  2. DEMO_ENTRY   PROCEDURE                 !
  3.  
  4.  
  5. SCREEN         SCREEN      WINDOW(25,80),PRE(SCR),HUE(14,0)
  6.            ROW(1,26)  STRING('Directory Search and Selection')
  7.            ROW(10,8)  STRING('Found:')
  8.            ROW(15,4)  STRING('Blank entries O.K.  Will search from current'|
  9.                 & ' down.')
  10.            ROW(17,4)  STRING('Blank Search Pattern will search *.*')
  11.            ROW(21,33) STRING('Ctrl-Esc to Quit')
  12.            ROW(24,14) STRING('This program returns Directory Names.  Not ' |
  13.                 & 'File Names.'),HUE(2,0)
  14. FILE_FOUND     ROW(10,16) STRING(50)
  15.            ROW(4,4)      STRING('Enter Directory to search:')
  16.          COL(31)  ENTRY(@S35),USE(DIR_SEARCH),SEL(0,7),LFT,UPR
  17.            ROW(6,15)  STRING('Search Pattern:')
  18.          COL(31)  ENTRY(@S12),USE(SEARCH_PATT),SEL(0,7),LFT,UPR
  19.            ROW(8,34)  PAUSE('Enter to Accept'),USE(?PAUSE),HUE(16,7)
  20.          .
  21.  
  22. DIR_SEARCH   STRING(35)
  23. SEARCH_PATT  STRING(12)
  24. F_D_B         STRING(1)
  25.  
  26.   CODE                         !
  27.  
  28.     OPEN(SCREEN)
  29.     DIR_SEARCH = ''
  30.     SEARCH_PATT = ''
  31.     FILE_FOUND = ''
  32.  
  33.     LOOP
  34.       ALERT()
  35.       ALERT(REJECT_KEY)
  36.       ACCEPT
  37.       IF KEYCODE() = REJECT_KEY THEN RETURN.
  38.  
  39.       CASE FIELD()
  40.       OF ?PAUSE
  41.     IF KEYCODE() <> ENTER_KEY
  42.       BEEP
  43.       SELECT(?)
  44.       CYCLE
  45.     ELSE
  46.       FILE_FOUND = DIREC_SHOW(DIR_SEARCH, SEARCH_PATT)
  47.       SELECT(1)
  48.       CYCLE
  49.     .   ! END IF KEYCODE() <> ENTER_KEY
  50.       .      ! END CASE FIELD()
  51.  
  52.     .    ! END LOOP
  53.  
  54.   RETURN                     !RETURN TO CALLER
  55.