home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib41b.dsk / APPLE.KEYPRESS.bas next >
BASIC Source File  |  2023-02-26  |  901b  |  19 lines
  1. 10  REM  PROGRAM APPLE.KEYPRESS
  2. 20  REM  READ OPEN/CLOSED APPLE KEYPRESS ROUTINE
  3. 30  REM  WORKS ON IIE/IIC/IIGS
  4. 40  HOME : PRINT "PRESS OPEN/CLOSED APPLE WITH 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  PRESSED KEY VALUE WILL BE ASCII VALUE + 128..HIGH BIT IS SET
  9. 90 A1 =  PEEK(49249):A2 =  PEEK(49250)
  10. 100  REM  BUTTON/KEY LOCATIONS
  11. 110  POKE 49168,0: REM  CLEAR KEYBOARD STROBE
  12. 120  IF (K -128) <32  THEN 160
  13. 130  PRINT "THE KEY PRESSED WAS ";: IF A1 >127  THEN  PRINT "OPEN APPLE ";
  14. 140  IF A2 >127  THEN  PRINT "CLOSED APPLE ";
  15. 150  PRINT  CHR$(K -128): END : REM  HANDLE NORMAL CHARACTERS
  16. 160  PRINT "THE KEY PRESSED WAS CTRL ";: IF A1 >127  THEN  PRINT "OPEN APPLE ";
  17. 170  IF A2 >127  THEN  PRINT "CLOSED APPLE ";
  18. 180  PRINT  CHR$((K -128) +64): REM  HANDLE CONTROL KEYSTROKES
  19. 190  END