home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PROGRAMS / UTILS / TECLADO / ATESC.ZIP / ATESC.BAS next >
Encoding:
BASIC Source File  |  1991-03-03  |  431 b   |  17 lines
  1. DEFINT A-Z
  2. 'atesc.bas - displays ascii codes returned from keyboard
  3. '=======================================================
  4. CLS
  5. DO
  6.   DO
  7.     KeyPressed$ = INKEY$
  8.   LOOP WHILE KeyPressed$ = ""
  9.   CodeLength = LEN(KeyPressed$)
  10.   FOR I = 1 TO CodeLength
  11.     x = ASC(MID$(KeyPressed$, I, 1))
  12.     PRINT "Position "; I; "ASCII code is "; x
  13.     PRINT "Character is "; CHR$(x)
  14.   NEXT I
  15. LOOP UNTIL UCASE$(KeyPressed$) = "X"
  16.  
  17.