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