NEW
10 GOSUB 500:REM READ KEYPAD
20 PRINT I;:REM ASCII RETURNED
30 PRINT " ";
40 PRINT CHR(I):REM CHARACTER
50 GOTO 10
400 REM KEYPAD.BAS -----------
405 REM READ A 4 BY 4 SWITCH
410 REM MATRIX KEYPAD. ASCII
415 REM VALUE IS RETURNED IN
420 REM THE VARIABLE "I" LIKE
425 REM THE "INKEY" COMMAND.
430 REM COL 4=I/O #1 AS INPUT
435 REM COL 3=I/O #2 AS INPUT
440 REM COL 2=I/O #3 AS INPUT
445 REM COL 1=I/O #4 AS INPUT
450 REM ROW 1=I/O #5 AS OUTPUT
455 REM ROW 2=I/O #6 AS OUTPUT
460 REM ROW 3=I/O #7 AS OUTPUT
465 REM ROW 4=I/O #8 AS OUTPUT
470 REM ----------------------
500 I=0
510 OUTBIT5=1
520 IOSCAN:IOSCAN
550 IF INBIT4=0 THEN I=49
560 IF INBIT3=0 THEN I=50
570 IF INBIT2=0 THEN I=51
580 IF INBIT1=0 THEN I=65
590 OUTBIT5=0
610 OUTBIT6=1
620 IOSCAN:IOSCAN
650 IF INBIT4=0 THEN I=52
660 IF INBIT3=0 THEN I=53
670 IF INBIT2=0 THEN I=54
680 IF INBIT1=0 THEN I=66
690 OUTBIT6=0
710 OUTBIT7=1
720 IOSCAN:IOSCAN
750 IF INBIT4=0 THEN I=55
760 IF INBIT3=0 THEN I=56
770 IF INBIT2=0 THEN I=57
780 IF INBIT1=0 THEN I=67
790 OUTBIT7=0
810 OUTBIT8=1
820 IOSCAN:IOSCAN
850 IF INBIT4=0 THEN I=42
860 IF INBIT3=0 THEN I=48
870 IF INBIT2=0 THEN I=35
880 IF INBIT1=0 THEN I=68
890 OUTBIT8=0
910 IF INKEY<>0 THEN I=INKEY
920 RETURN
RUN