'===========================================================================
' Subject: RETURN VALID CHR$()               Date: 05-01-96 (19:27)       
' Author:  Dave Navarro, Jr.                 Code: PB                     
' Origin:  dave@powerbasic.com             Packet: PB.ABC
'===========================================================================
'=============================================================================
'                   Source code snippet: PowerBASIC for DOS
'
'           Author: Dave Navarro, Jr. (dave@powerbasic.com)
' Copyright status: Public Domain
'
' Return a valid CHR$() for a given key press.
'
'=============================================================================

DEFINT A - Z                'Required for all numeric functions, forces PB
                            ' to not include floating point (makes it smaller)

PRINT "Press 'q' to Quit"
PRINT
PRINT "Chr     Inkey$ ="
LOCATE ,, 1

DO
  DO
    I$ = INKEY$
  LOOP UNTIL LEN( I$ )
  IF LEN( I$ ) = 1 THEN
    PRINT " "; I$; "      CHR$("; LTRIM$( STR$( ASC( I$ ))); ")"
  ELSE
    PRINT "        CHR$(0,"; LTRIM$( STR$( ASC( RIGHT$( I$, 1 )))); ")"
  END IF
  IF I$ = "q" THEN
    EXIT DO
  END IF
LOOP