home *** CD-ROM | disk | FTP | other *** search
/ Fujiology Archive / fujiology_archive_v1_0.iso / !MAGS / !BONUS / COVERDSK / STFORMAT / STF36.ZIP / STF36A.MSA / GFA / KEYS.GFA (.txt) next >
GFA-BASIC Atari  |  1990-05-23  |  788b  |  26 lines
  1. CLS
  2. PRINT "Press any key or combination of keys..."
  3. PRINT "(Try A, Shift-A, Alt-A,  Ctrl-A,  F1-F10,  cursor keys, Esc and Help etc.)"
  4. PRINT
  5. DO
  6.   i$=INKEY$
  7.   IF LEN(i$)
  8.     IF LEN(i$)=1
  9.       PRINT "Length ";LEN(i$);", ASCII code ";ASC(i$);
  10.       IF ASC(i$)>31
  11.         PRINT ".  Printable Character '";i$;"'."
  12.       ELSE
  13.         PRINT ".  Non-Printable Character!"
  14.       ENDIF
  15.     ENDIF
  16.     IF LEN(i$)=2
  17.       PRINT "Length ";LEN(i$);", 1st  ASCII code ";ASC(LEFT$(i$,1));",2nd ASCII code ";ASC(RIGHT$(i$,1));
  18.       IF ASC(i$)>31
  19.         PRINT ".  Printable Character '";i$;"'."
  20.       ELSE
  21.         PRINT ".  Non-Printable Character!"
  22.       ENDIF
  23.     ENDIF
  24.   ENDIF
  25. LOOP
  26.