home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib41b.dsk
/
KEYPRESS.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
608b
|
14 lines
10 REM PROGRAM KEYPRESS
20 REM READ KEYPRESS ROUTINE
30 REM WORKS ON ALL APPLES
40 HOME : PRINT "PRESS A KEY": PRINT
50 K = PEEK(49152): IF K <128 THEN 50
60 REM READ KEYBOARD LOCATION
70 REM VALUE WILL BE <128 WHEN NO KEY HAS BEEN PRESSED
80 REM KEEP LOOPING
90 REM PRESSED KEY VALUE WILL BE ASCII VALUE + 128..HIGH BIT IS SET
100 POKE 49168,0: REM CLEAR KEYBOARD STROBE
110 IF (K -128) <32 THEN 130
120 PRINT "THE KEY PRESSED WAS "; CHR$(K -128): END : REM HANDLE NORMAL CHARACTERS
130 PRINT "THE KEY PRESSED WAS CTRL "; CHR$((K -128) +64): REM HANDLE CONTROL KEYSTROKES
140 END