home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 9
/
MEDIASHARE_09.ISO
/
clarion
/
dispfil3.zip
/
DISPFIL3.COM
/
LF.CLA
< prev
next >
Wrap
Text File
|
1989-11-08
|
1KB
|
50 lines
LF PROGRAM
OMIT('**-ENDH-**')
╔════════════╦═════════════════════════════════════════════════════════════════╗
║ PROGRAM ║ LF.CLA - LIST FILE TO MONITOR (9-7-88 GREG WILDER) ║
║ ║ ALSO NEED FILE DISPFILE.CLA ║
╚════════════╩═════════════════════════════════════════════════════════════════╝
MODIFIED 11-7-89 SEE DISPFILE.CLA FOR MODIFICATION INFO
**-ENDH-**
MAP
MODULE('DISPFILE')
PROC(DISPFILE)
. .
FSCREEN SCREEN WINDOW(10,49),AT(8,17),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) STRING('│<0{47}>│'),ENH
ROW(3,1) STRING('├─{47}┤'),ENH
ROW(4,1) REPEAT(6);STRING('│<0{47}>│'),ENH .
ROW(10,1) STRING('└─{47}┘'),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(FILENAME),SEL(15,4),OVR,REQ,IMM,LFT,UPR
.
FILENAME STRING(100)
CTRL_ESC EQUATE(279) !CTRL-ESC KEY
CODE
SETHUE(15,0)
BLANK
SETHUE
LOOP
OPEN(FSCREEN)
ALERT(CTRL_ESC)
ACCEPT
IF KEYCODE()=CTRL_ESC THEN BREAK.
CLOSE(FSCREEN)
DISPFILE(FILENAME)
.
RETURN