home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 9
/
MEDIASHARE_09.ISO
/
clarion
/
dispfile.zip
/
LF.CLA
< prev
next >
Wrap
Text File
|
1989-05-23
|
1KB
|
46 lines
LF PROGRAM
OMIT('**-ENDH-**')
╔════════════╦═════════════════════════════════════════════════════════════════╗
║ PROGRAM ║ LF.CLA - LIST FILE TO MONITOR (9-7-88 GREG WILDER) ║
║ ║ ALSO NEED FILE DISPFILE.CLA ║
╚════════════╩═════════════════════════════════════════════════════════════════╝
**-ENDH-**
MAP
MODULE('DISPFILE')
PROC(DISPFILE)
. .
FSCREEN SCREEN WINDOW(10,49),HUE(7,1)
ROW(2,16) PAINT(1,19),HUE(14,1)
ROW(5,3) PAINT(1,27),HUE(11,1)
ROW(1,1) STRING('┌─{47}┐'),ENH
ROW(2,1) REPEAT(3),EVERY(2);STRING('│<0{47}>│'),ENH .
ROW(3,1) STRING('├─{47}┤'),ENH
ROW(5,1) REPEAT(2),EVERY(2);STRING('│<0{47}>│'),ENH .
ROW(8,49) REPEAT(2);STRING('│'),ENH .
ROW(10,5) STRING('─{44}┘'),ENH
ROW(8,1) REPEAT(2);STRING('│'),ENH .
ROW(10,1) STRING('└───'),ENH
ROW(2,16) STRING('LIST FILE TO SCREEN')
ROW(9,15) STRING('PRESS CTRL_ESC TO EXIT'),HUE(14,1)
ROW(5,3) STRING('NAME OF FILE TO LIST :')
COL(26) ENTRY(@S20),USE(DISFNAME),SEL(15,4),OVR,REQ,IMM,LFT,UPR
.
INCLUDE('C:\CLARION\CLI\STD_KEYS.CLI')
INCLUDE('C:\CLARION\CLI\CTL_KEYS.CLI')
DISFNAME STRING(25) ! FILENAME
CODE
LOOP
OPEN(FSCREEN)
ALERT(CTRL_ESC)
ACCEPT
IF KEYCODE()=CTRL_ESC THEN BREAK; END
CLOSE(FSCREEN)
DISPFILE
END