presskey.bas

由一个古老的BASIC解释器改进而成, 保留了ANSI C固有的艺术美感.

     10 REPEAT
     30 	a$= INKEY$
     40 UNTIL a$ <> ""
     50 a= ASC (a$)
     60 IF LEN (a$) > 1 OR (a > 31 AND a < 127) THEN PRINT a$ ELSE PRINT a
     70 GOTO 10