home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 9
/
MEDIASHARE_09.ISO
/
clarion
/
locks.zip
/
LOCKS.CLA
< prev
next >
Wrap
Text File
|
1990-01-24
|
3KB
|
114 lines
LOCKS PROGRAM
INCLUDE('STD_KEYS')
MAP
MODULE('LOCKS.BIN'),BINARY
FUNC(GETINS),LONG
FUNC(GETNUM),LONG
FUNC(GETCAPS),LONG
FUNC(GETSCRL),LONG
FUNC(GETALT),LONG
FUNC(GETCTRL),LONG
FUNC(GETLSHF),LONG
FUNC(GETRSHF),LONG
.
.
LOCKS SCREEN WINDOW(22,54),HUE(12,1)
ROW(2,15) PAINT(1,29),HUE(14,1)
ROW(5,4) PAINT(1,26),HUE(10,1)
ROW(7,10) PAINT(8,13),HUE(15,1)
ROW(17,3) PAINT(3,51),HUE(11,1)
ROW(21,8) PAINT(1,43),HUE(7,1)
ROW(1,1) STRING('┌─{52}┐')
ROW(2,1) REPEAT(2),EVERY(15);STRING('│<0{52}>│') .
ROW(3,1) REPEAT(2),EVERY(13);STRING('├─{52}┤') .
ROW(4,1) REPEAT(12);STRING('│<0{52}>│') .
ROW(18,1) REPEAT(2);STRING('│<0{52}>│') .
ROW(20,1) STRING('├─{52}┤')
ROW(21,1) STRING('│<0{52}>│')
ROW(22,1) STRING('└─{52}┘')
ROW(2,17) STRING('LOCKS LEM DEMONSTRATION')
ROW(5,4) STRING('Current machine state:')
ROW(7,11) STRING('INSERT MODE:')
ROW(8,10) STRING('NUMERIC LOCK:')
ROW(9,13) STRING('CAPS LOCK:')
ROW(10,11) STRING('SCROLL LOCK:')
ROW(11,15) STRING('ALT KEY:')
ROW(12,14) STRING('CTRL KEY:')
ROW(13,12) STRING('LEFT SHIFT:')
ROW(14,11) STRING('RIGHT SHIFT:')
ROW(17,4) STRING('The LOCKS LEM was written by Forrest W. ' |
& 'Christian')
ROW(18,7) STRING('Copyright 1990 by Forrest W. Christian and')
ROW(19,9) STRING('Electronic Magic. All Rights Reserved.')
ROW(21,10) STRING('Press ESC to exit from this program.')
INSERT ROW(7,25) STRING(20)
NUMBER ROW(8,25) STRING(20)
CAPS ROW(9,25) STRING(20)
SCROLL ROW(10,25) STRING(20)
ALT ROW(11,25) STRING(20)
CTRL ROW(12,25) STRING(20)
L_SHIFT ROW(13,25) STRING(20)
R_SHIFT ROW(14,25) STRING(20)
.
CODE
OPEN(LOCKS) ! OPEN MAIN SCREEN
LOOP UNTIL KEYCODE()=ESC_KEY ! LOOP UNTIL ESC KEY PRESSED
IF KEYBOARD() THEN ASK. ! IF KEY IS PRESSED GET IT.
IF GETINS() ! INS STATUS
INSERT='Insert Mode'
ELSE
INSERT='Typeover Mode'
.
IF GETNUM() ! NUM LOCK STATUS
NUMBER='Locked'
ELSE
NUMBER='Unlocked'
.
IF GETCAPS() ! CAPS LOCK STATUS
CAPS='Locked'
ELSE
CAPS='Unlocked'
.
IF GETSCRL() ! SCROLL LOCK STATUS
SCROLL='Locked'
ELSE
SCROLL='Unlocked'
.
IF GETALT() ! ALT KEY STATUS
ALT='Pressed'
ELSE
ALT='Released'
.
IF GETCTRL() ! CTRL KEY STATUS
CTRL='Pressed'
ELSE
CTRL='Released'
.
IF GETLSHF() ! LEFT SHIFT STATUS
L_SHIFT='Pressed'
ELSE
L_SHIFT='Released'
.
IF GETRSHF() ! RIGHT SHIFT STATUS
R_SHIFT='Pressed'
ELSE
R_SHIFT='Released'
.
.