home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib25b.dsk / ASK.KEY.bas < prev    next >
Encoding:
BASIC Source File  |  1990-01-01  |  1.0 KB  |  22 lines
  1. 10  REM  **********************
  2. 20  REM  *      ASK.KEY       *
  3. 30  REM  *   BY PAUL RAYMER   *
  4. 40  REM  * COPYRIGHT (C) 1985 *
  5. 50  REM  * BY MICROSPARC, INC *
  6. 60  REM  * CONCORD, MA  01742 *
  7. 70  REM  **********************
  8. 80  TEXT : HOME 
  9. 90  POKE 49168,0: VTAB 1: HTAB 1: PRINT "* COPYRIGHT 1985 BY MICROSPARC, INC. *": VTAB 3: HTAB 1: PRINT "WHAT KEYBOARD CHARACTER? ";
  10. 100 A =  PEEK(49152)
  11. 110  IF A <128  THEN 100
  12. 120  PRINT : PRINT 
  13. 130 A$ =  CHR$(A)
  14. 140  HTAB 5: PRINT "ASCII NUMBER IS";: HTAB 25: PRINT A -128: PRINT 
  15. 150  HTAB 5: PRINT "NUMBER TO POKE IS";: HTAB 25: PRINT A: PRINT 
  16. 160  IF A = 141  THEN A$ = "RETURN": GOTO 190
  17. 170  IF A = 136  OR A = 138  OR A = 139  OR A = 149  THEN A$ = "ARROW": GOTO 190
  18. 180  IF A <160  THEN A$ = "CONTROL": GOTO 190
  19. 190  HTAB 5: PRINT "CHARACTER IS";: HTAB 25: PRINT  CHR$(34)A$ CHR$(34)
  20. 200  POKE 49168,0: VTAB 22: HTAB 5: PRINT "== PRESS <ESC> TO QUIT ==": HTAB 5: PRINT "ANY OTHER KEY TO CONTINUE";: GET AN$
  21. 210  IF AN$ < > CHR$(27)  THEN  PRINT : HOME : GOTO 90
  22. 220  HOME : END