LI-COR LI-6400, Manual

Page: 627 / 846

LPL Topics
Conditionals and Loops
Using the LI-6400 23-5
illustrates both of these structures used together in a little program that prints
various messages based on what keys the user presses.
When run, this program will display various messages on line 5 of the display,
such as
Key #1 is Ascii ÕaÕ
Key #2 is <return>
Key #3 is NonAscii, code = 6301
For more information about key codes, refer to Keyboard Codes on page
23-29.
/* Illustrates IF..THEN and LOOP..ENDLOOP
*/
:FCT
Main
{
CLEAR
"Press Some Keys (<esc> to quit)"
PRINT
1
:INT
counter
LOOP
GETKEY :INT
k
/* Quit on escape */
k 0x1b
==
BREAKIF
1 5
POSXY
counter "Key #%d is "
PRINT
k 255 <= k 0 >=
AND IF
/*
This LOOP allows us to use BREAK s, rather than a lot of nested
IF..ELSE..THENs
*/
1
NLOOP
k '\r' ==
IF
"<return>"
BREAK THEN
k '\n' ==
IF
"<ctrl+j>"
BREAK THEN
k '\f' ==
IF
"<ctrl+l>"
BREAK THEN
k "Ascii '%c' "
ENDLOOP
ELSE
k "NonAscii, code = %04x"
THEN
PRINT CLREOL
/* Increment the counter. */
&counter 1 +
DROP
ENDLOOP
}
Figure 23-1. IFÉELSEÉTHEN and LOOPÉENDLOOP illustrated.