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