home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / clarion / library / viewfi / viewtest.cla < prev   
Encoding:
Text File  |  1991-07-19  |  1011 b   |  44 lines
  1.  
  2. ViewTest     PROGRAM
  3.  
  4.          INCLUDE( 'STD_KEYS.CLA' )
  5.          INCLUDE( 'CTL_KEYS.CLA' )
  6.  
  7.          MAP
  8.            MODULE('VIEWFIL2')
  9.            PROC(ViewFile)
  10.          . .
  11.  
  12. Screen         SCREEN      WINDOW(8,74),HUE(1,0)
  13.            ROW(7,2)      PAINT(1,72),HUE(3,0)
  14.            ROW(2,2)      PAINT(1,72),HUE(15,0)
  15.            ROW(1,1)      STRING('┌─{72}┐')
  16.            ROW(2,1)      REPEAT(6);STRING('│<0{72}>│') .
  17.            ROW(8,1)      STRING('└─{72}┘')
  18.            ROW(2,24)  STRING('Test Program for VIEWFIL2.CLA')
  19.            ROW(7,32)  STRING('<<')
  20.          COL(33)  STRING('Esc'),HUE(14,0)
  21.          COL(36)  STRING('>')
  22.          COL(37)  STRING(' '),HUE(14,0)
  23.          COL(38)  STRING('to exit')
  24.            ROW(5,7)      STRING('Enter Filename to View: '),HUE(14,0)
  25.          COL(31)  ENTRY(@S40),USE(sFileName),HUE(0,3),SEL(14,4)
  26.          .
  27.  
  28. sFileName    STRING(40)
  29.  
  30.  CODE
  31.  SETHUE(7,0)
  32.  BLANK(1,1,25,80)
  33.  SETHUE
  34.  OPEN(Screen)
  35.  LOOP
  36.    ALERT
  37.    ALERT(Esc_Key)
  38.    SELECT(?sFileName)
  39.    ACCEPT
  40.    IF KEYCODE() = Esc_Key THEN BREAK.
  41.    ViewFile(sFileName)
  42.  .
  43.  
  44.