Declare Function GetChar(byVal s As String, byVal UpCase As Integer=1=0) As String 'returns a single char
Print "GetChar ¸©2006 by ytwinky, MD"
Print GetChar("Do you want to continue?(Y/N):", 1=1) '1=1 is true
Print GetChar("Do you still want to continue?(y/n):", 1=0) '1=0 is false
Print "Tested with FB0.17f using FBIde 0.4.6";
GetKey

Function GetChar(byVal s As String, byVal UpCase As Integer=1=0) As String 'returns a single char
  '¸©2006 by ytwinky, MD
	Dim m As String 'it is always a good habit to declare variables, we are going to use..
	If s<>"" Then Print s; 'show inputprompt, if any..
  Do
    m=Input(1)
  Loop Until m>!"\31" And Asc(m)<256 Or Instr(!"\13\27"27), m) 'c$ is printable or cr or esc
	If UpCase Then Return UCase(m) 'convert if desired
  Return m ' now only m
End Function ' done..