CAB A+ Series Programming Manual page 420

a-Series basic compiler
420
Program to read keyboard codes:
Example:
Program to show readback of JScript-Commands and the FLUSH command:
Example:
Here is text which would normally trigger protocol error.
It is deleted by FLUSH #0, so the PRINT „f" can work without problems.
cab Produkttechnik GmbH & Co KG
<ABC>
OPEN 1,"/dev/keyboard","r"
OPEN WINDOW 120,32
POKE „lcd",1
DO
DO
x=PEEK(#1)
IF x<>-1 BREAK
LOOP
CLEAR WINDOW
TEXT 0,0,"Last character:"
TEXT 0,16,"$"+hex$(x)+" = „+chr$(x)
LOOP
CLOSE WINDOW
</ABC>
<ABC>
OPEN 1,"/dev/jscript","r"
OPEN 2,"/dev/rs232","w"
PRINT „qm"
LINE INPUT #1 a$
PRINT #2 a$
CLOSE 2
CLOSE 1
rem FLUSH #0
PRINT „f"
</ABC>
420
420