home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / clarion / dispfil3.zip / LF.CLA < prev    next >
Text File  |  1989-11-08  |  1KB  |  50 lines
  1. LF         PROGRAM
  2.  
  3.  OMIT('**-ENDH-**')
  4. ╔════════════╦═════════════════════════════════════════════════════════════════╗
  5. ║ PROGRAM    ║ LF.CLA - LIST FILE TO MONITOR   (9-7-88 GREG WILDER)           ║
  6. ║         ║        ALSO NEED FILE DISPFILE.CLA                   ║
  7. ╚════════════╩═════════════════════════════════════════════════════════════════╝
  8.  
  9. MODIFIED 11-7-89  SEE DISPFILE.CLA FOR MODIFICATION INFO
  10. **-ENDH-**
  11.  
  12.          MAP
  13.            MODULE('DISPFILE')
  14.            PROC(DISPFILE)
  15.          . .
  16.  
  17. FSCREEN         SCREEN      WINDOW(10,49),AT(8,17),HUE(7,1)
  18.            ROW(2,16)  PAINT(1,19),HUE(14,1)
  19.            ROW(5,3)      PAINT(1,27),HUE(11,1)
  20.            ROW(1,1)      STRING('┌─{47}┐'),ENH
  21.            ROW(2,1)      STRING('│<0{47}>│'),ENH
  22.            ROW(3,1)      STRING('├─{47}┤'),ENH
  23.            ROW(4,1)      REPEAT(6);STRING('│<0{47}>│'),ENH .
  24.            ROW(10,1)  STRING('└─{47}┘'),ENH
  25.            ROW(2,16)  STRING('LIST FILE TO SCREEN')
  26.            ROW(9,15)  STRING('PRESS CTRL_ESC TO EXIT'),HUE(14,1)
  27.            ROW(5,3)      STRING('NAME OF FILE TO LIST :')
  28.          COL(26)  ENTRY(@S20),USE(FILENAME),SEL(15,4),OVR,REQ,IMM,LFT,UPR
  29.          .
  30.  
  31. FILENAME     STRING(100)
  32. CTRL_ESC     EQUATE(279)             !CTRL-ESC KEY
  33.  
  34.   CODE
  35.   SETHUE(15,0)
  36.   BLANK
  37.   SETHUE
  38.  
  39.   LOOP
  40.   OPEN(FSCREEN)
  41.   ALERT(CTRL_ESC)
  42.   ACCEPT
  43.   IF KEYCODE()=CTRL_ESC THEN BREAK.
  44.   CLOSE(FSCREEN)
  45.  
  46.   DISPFILE(FILENAME)
  47.   .
  48.  
  49.   RETURN
  50.