home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / clarion / locks.zip / LOCKS.CLA < prev    next >
Text File  |  1990-01-24  |  3KB  |  114 lines
  1. LOCKS         PROGRAM
  2.          INCLUDE('STD_KEYS')
  3.  
  4.          MAP
  5.            MODULE('LOCKS.BIN'),BINARY
  6.          FUNC(GETINS),LONG
  7.          FUNC(GETNUM),LONG
  8.          FUNC(GETCAPS),LONG
  9.          FUNC(GETSCRL),LONG
  10.          FUNC(GETALT),LONG
  11.          FUNC(GETCTRL),LONG
  12.          FUNC(GETLSHF),LONG
  13.          FUNC(GETRSHF),LONG
  14.            .
  15.          .
  16.  
  17. LOCKS         SCREEN      WINDOW(22,54),HUE(12,1)
  18.            ROW(2,15)  PAINT(1,29),HUE(14,1)
  19.            ROW(5,4)      PAINT(1,26),HUE(10,1)
  20.            ROW(7,10)  PAINT(8,13),HUE(15,1)
  21.            ROW(17,3)  PAINT(3,51),HUE(11,1)
  22.            ROW(21,8)  PAINT(1,43),HUE(7,1)
  23.            ROW(1,1)      STRING('┌─{52}┐')
  24.            ROW(2,1)      REPEAT(2),EVERY(15);STRING('│<0{52}>│') .
  25.            ROW(3,1)      REPEAT(2),EVERY(13);STRING('├─{52}┤') .
  26.            ROW(4,1)      REPEAT(12);STRING('│<0{52}>│') .
  27.            ROW(18,1)  REPEAT(2);STRING('│<0{52}>│') .
  28.            ROW(20,1)  STRING('├─{52}┤')
  29.            ROW(21,1)  STRING('│<0{52}>│')
  30.            ROW(22,1)  STRING('└─{52}┘')
  31.            ROW(2,17)  STRING('LOCKS LEM DEMONSTRATION')
  32.            ROW(5,4)      STRING('Current machine state:')
  33.            ROW(7,11)  STRING('INSERT MODE:')
  34.            ROW(8,10)  STRING('NUMERIC LOCK:')
  35.            ROW(9,13)  STRING('CAPS LOCK:')
  36.            ROW(10,11) STRING('SCROLL LOCK:')
  37.            ROW(11,15) STRING('ALT KEY:')
  38.            ROW(12,14) STRING('CTRL KEY:')
  39.            ROW(13,12) STRING('LEFT SHIFT:')
  40.            ROW(14,11) STRING('RIGHT SHIFT:')
  41.            ROW(17,4)  STRING('The LOCKS LEM was written by Forrest W. '    |
  42.                 & 'Christian')
  43.            ROW(18,7)  STRING('Copyright 1990 by Forrest W. Christian and')
  44.            ROW(19,9)  STRING('Electronic Magic.  All Rights Reserved.')
  45.            ROW(21,10) STRING('Press ESC to exit from this program.')
  46. INSERT           ROW(7,25)  STRING(20)
  47. NUMBER           ROW(8,25)  STRING(20)
  48. CAPS           ROW(9,25)  STRING(20)
  49. SCROLL           ROW(10,25) STRING(20)
  50. ALT           ROW(11,25) STRING(20)
  51. CTRL           ROW(12,25) STRING(20)
  52. L_SHIFT           ROW(13,25) STRING(20)
  53. R_SHIFT           ROW(14,25) STRING(20)
  54.          .
  55.  
  56.  CODE
  57.  
  58.  OPEN(LOCKS)                     ! OPEN MAIN SCREEN
  59.  
  60.  LOOP UNTIL KEYCODE()=ESC_KEY             ! LOOP UNTIL ESC KEY PRESSED
  61.  
  62.    IF KEYBOARD() THEN ASK.             ! IF KEY IS PRESSED GET IT.
  63.  
  64.    IF GETINS()                     ! INS STATUS
  65.      INSERT='Insert Mode'
  66.    ELSE
  67.      INSERT='Typeover Mode'
  68.    .
  69.  
  70.    IF GETNUM()                     ! NUM LOCK STATUS
  71.      NUMBER='Locked'
  72.    ELSE
  73.      NUMBER='Unlocked'
  74.    .
  75.  
  76.    IF GETCAPS()                     ! CAPS LOCK STATUS
  77.      CAPS='Locked'
  78.    ELSE
  79.      CAPS='Unlocked'
  80.    .
  81.  
  82.    IF GETSCRL()                     ! SCROLL LOCK STATUS
  83.      SCROLL='Locked'
  84.    ELSE
  85.      SCROLL='Unlocked'
  86.    .
  87.  
  88.    IF GETALT()                     ! ALT KEY STATUS
  89.      ALT='Pressed'
  90.    ELSE
  91.      ALT='Released'
  92.    .
  93.  
  94.    IF GETCTRL()                     ! CTRL KEY STATUS
  95.      CTRL='Pressed'
  96.    ELSE
  97.      CTRL='Released'
  98.    .
  99.  
  100.    IF GETLSHF()                     ! LEFT SHIFT STATUS
  101.      L_SHIFT='Pressed'
  102.    ELSE
  103.      L_SHIFT='Released'
  104.    .
  105.  
  106.    IF GETRSHF()                     ! RIGHT SHIFT STATUS
  107.      R_SHIFT='Pressed'
  108.    ELSE
  109.      R_SHIFT='Released'
  110.    .
  111.  
  112.  .
  113.  
  114.