home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / clarion / setkcd.zip / SETKCD.COM / SETKCODE.CLA < prev   
Text File  |  1989-10-14  |  832b  |  40 lines
  1.  
  2. SetKCode     PROGRAM
  3.  
  4.          MAP
  5.            MODULE('SetKcd'), BINARY
  6.          PROC(SetKcd)
  7.            END  ! MODULE
  8.          END  ! MAP
  9.  
  10.  
  11. Screen         SCREEN      HUE(11,1)
  12.            ROW(1,1)      STRING('╔═{78}╗')
  13.            ROW(2,1)      REPEAT(23);STRING('║<0{78}>║') .
  14.            ROW(25,1)  STRING('╚═{78}╝')
  15.            ROW(3,27)  STRING('TEST THE `SET-KEYCODE()'' LEM')
  16.            ROW(7,33)  STRING('KEYCODE() =')
  17. Keycode         COL(45)  STRING(@N4),HUE(15,1)
  18.            ROW(9,30)  STRING('SET KEYCODE() TO :')
  19.          COL(49)  ENTRY(@N4),USE(Code),HUE(15,1),SEL(0,7),INS
  20.          .
  21.  
  22. Code         SHORT
  23. Esc_Key         EQUATE(256)
  24.  
  25.          CODE
  26.  
  27.  
  28.          OPEN(Screen)
  29.  
  30.          LOOP
  31.            ALERT(Esc_Key)
  32.            KeyCode = KEYCODE()
  33.            SELECT(?Code)
  34.            ACCEPT
  35.            IF KEYCODE() = Esc_Key THEN RETURN.
  36.            SetKcd(Code)
  37.          END  ! LOOP
  38.  
  39.  
  40.