CipherLab 8 Series - Page 149

137
Chapter 4 BASIC Commands
SET_SCREENITEMS(1, 2, ITEMSTR$)
ON TOUCHSCREEN GOSUB GetTouch
GetTouch:
A%= GETSCREENITEM
IF A%=1 THEN
PRINT “OK”
ELSE IF A%=2 THEN
PRINT “CLEAR”
END IF
LOOP:
GOTO LOOP