tutorial/group2/16.bas

   1 CLS\r
   2 PRINT "Press any key..."\r
   3 \r
   4 1\r
   5 a$ = INPUT$(1)\r
   6 \r
   7 PRINT "pressed key was: ";\r
   8 \r
   9 IF ASC(a$) > 32 THEN PRINT a$\r
  10 \r
  11 IF a$ = CHR$(27) THEN PRINT "Escape"\r
  12 IF a$ = CHR$(13) THEN PRINT "Enter"\r
  13 IF a$ = CHR$(8) THEN PRINT "Backspace"\r
  14 IF a$ = CHR$(9) THEN PRINT "Tabulator"\r
  15 IF a$ = " " THEN PRINT "Space"\r
  16 \r
  17 PRINT "ASCII code is: "; ASC(a$)\r
  18 GOTO 1\r
  19 \r