Displays CHR$'s, ASC's, and SCANCODE's. Quick useful tool to extract values we can't seem to remember all the time...lol. Not only is this useful for user input control, but also u

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    Rem * Title  : ASC KEY CODE CHART WITH EXTRAS
Rem * Author : TIMOTHY J. SAUNDERS
Rem * Date   : JULY 2004
DISABLE ESCAPEKEY : HIDE MOUSE : SET TEXT OPAQUE
MENU:
CLS
PRINT "PRESS (1) TO VIEW THE STANDARD CHR$/ASC CODE CHART"
PRINT "PRESS (2) TO VIEW INDIVIDUAL KEY CODES IN ASC, CHR$, AND SCANCODE"
PRINT "LEFT CLICK MOUSE TO EXIT"
DO
IF INKEY$()="1" THEN GOTO CHART
IF INKEY$()="2" THEN GOTO SINGLE
IF MOUSECLICK()=1 THEN END
LOOP

CHART:
CLS
X=0 : Y=0
FOR VALUE = 0 TO 258
A$=CHR$(VALUE)
V=ASC(A$)
A$=A$+" - "+STR$(V)
IF VALUE=256 THEN A$="PRESS"
IF VALUE=257 THEN A$="ANY"
IF VALUE=258 THEN A$="KEY"
TEXT X,Y,A$
Y=Y+20
IF Y>470 THEN Y=0 : X=X+59
NEXT VALUE
SUSPEND FOR KEY
GOTO MENU

SINGLE:
CLS
PRINT "HOLD DOWN ANY KEY TO VIEW IT'S VALUES (if applicable)"
PRINT "RIGHT CLICK MOUSE TO RETURN TO MENU"
DO
IF MOUSECLICK()=2 THEN GOTO MENU
ASCCODE$=STR$(ASC(INKEY$()))+"     "
SCANCODE$=STR$(SCANCODE())+"     "
CHRCODE$=CHR$(ASC(INKEY$()))+"     "
TEXT 1,60,"ASC CODE = "+ASCCODE$
TEXT 1,80,"CHR$ = "+CHRCODE$
TEXT 1,100,"SCANCODE = "+SCANCODE$
LOOP