LI-COR LI-6400, Manual

Page: 649 / 846

LPL Topics
Display Control
Using the LI-6400 23-27
If you run the program illustrated in Figure 23-14 and type Òabcdefghijklm-
nopÓ, it will appear as shown above, with every character going into alternat-
ing windows. (The inverted square in the left hand window is the full cell
cursor for that window.)
:INT w1[8] { } /* Holds attributes for window
1 * /
w2[8] { } /* Holds attributes for
window 2 */
:PTR activeWindow 0
:FCT
Main
{
0
:INT
flop
CLEAR
"Type something (<esc> quits)"
PRINT
/* Make window 1. */
1 3 20 7 2 WINDOW
/* Normal.*/
0 SETATTR
/* Full height cursor.*/
2 SETCURSOR
/* Save attributes for window 1 */
w1 GETWINDOW
/* Set normal attrib for border. */
0
SETATTR
/* Make window 2.*/
22 3 40 7 2
WINDOW
/* Inverse. */
1
SETATTR
/* No cursor.*/
0
SETCURSOR
/* Save attributes for window 2.*/
w2
GETWINDOW
LOOP
GETKEY :INT k
k 0x1b ==
BREAKIF
&flop NOT VAL IF
w1 &activeWIndow =
ELSE
w2 &activeWindow =
THEN
activeWindow
PUTWINDOW
k "%c" PRINT
activeWindow
GETWINDOW
ENDLOOP
0
SETATTR
1 SETCURSOR
1 1
DISPWIDTH DISPHEIGHT
0
WINDOW
}
Type something (<esc> quits)
acegikmo bdfhjlnp
Figure 23-14. Window switching example. Every other character typed goes into the left window, and the other
characters go into the right window.