10  PRINT "INITIALIZING THE LCD"
REM INITIALIZE VARIABLES
REM SET 4X4 KEYPAD BIT, INITIALIZE LCD
~       U = User Output Bit
20  U=126
30  BIT 2=1 : BIT 3=0 : CALL 8132
REM DISPLAY SAMPLE MESSAGE
40  P."BLUE EARTH RESEARCH";
50  P."\4X20 LCD MODULE DEMO";
60  P."\\PRESS ANY KEY TO";
70  P."\\\CONTINUE..."; : GOSUB 400
REM CLEAR SCREEN
80  CALL 8134
REM INPUT FROM KEYPAD
90  GOSUB 400
100 GOTO 90
REM SUBROUTINE TO GET USER INPUT
~       FIRST WAIT UNTIL NO KEYS ARE PRESSED
400 CALL 8140
410 IF DBY 27 THEN GOTO 400
~       NOW WAIT FOR A KEY TO BE PRESSED
500 CALL 8140
510 D=DBY 27
520 IF D=0 THEN GOTO 500
530 BIT U=1 : PRINT D;
540 BIT U=0 : PRINT D; : RETURN