home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / clarion / dispfile.zip / LF.CLA < prev    next >
Text File  |  1989-05-23  |  1KB  |  46 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. **-ENDH-**
  9.  
  10.          MAP
  11.            MODULE('DISPFILE')
  12.            PROC(DISPFILE)
  13.          . .
  14.  
  15. FSCREEN         SCREEN      WINDOW(10,49),HUE(7,1)
  16.            ROW(2,16)  PAINT(1,19),HUE(14,1)
  17.            ROW(5,3)      PAINT(1,27),HUE(11,1)
  18.            ROW(1,1)      STRING('┌─{47}┐'),ENH
  19.            ROW(2,1)      REPEAT(3),EVERY(2);STRING('│<0{47}>│'),ENH .
  20.            ROW(3,1)      STRING('├─{47}┤'),ENH
  21.            ROW(5,1)      REPEAT(2),EVERY(2);STRING('│<0{47}>│'),ENH .
  22.            ROW(8,49)  REPEAT(2);STRING('│'),ENH .
  23.            ROW(10,5)  STRING('─{44}┘'),ENH
  24.            ROW(8,1)      REPEAT(2);STRING('│'),ENH .
  25.            ROW(10,1)  STRING('└───'),ENH
  26.            ROW(2,16)  STRING('LIST FILE TO SCREEN')
  27.            ROW(9,15)  STRING('PRESS CTRL_ESC TO EXIT'),HUE(14,1)
  28.            ROW(5,3)      STRING('NAME OF FILE TO LIST :')
  29.          COL(26)  ENTRY(@S20),USE(DISFNAME),SEL(15,4),OVR,REQ,IMM,LFT,UPR
  30.          .
  31.  
  32.          INCLUDE('C:\CLARION\CLI\STD_KEYS.CLI')
  33.          INCLUDE('C:\CLARION\CLI\CTL_KEYS.CLI')
  34.  
  35. DISFNAME     STRING(25)                 ! FILENAME
  36.  
  37.   CODE
  38.   LOOP
  39.     OPEN(FSCREEN)
  40.     ALERT(CTRL_ESC)
  41.     ACCEPT
  42.     IF KEYCODE()=CTRL_ESC THEN BREAK; END
  43.     CLOSE(FSCREEN)
  44.     DISPFILE
  45.   END
  46.