'������ߎę֚�񱸩��
'Tested with FB 0.183b using FBEdit
'Don't use -s gui
#include once "vbcompat.bi"

Const Cr=!"\13", Esc=!"\27", Del=!"\08", Schwarz=0, Blau=1, Normal=7, Gelb=14
Var i=0, ws=36, s="", y="", z=""

Width ws+2, ws
Function MakeLine(StartChr As String, FirstChr As String, LineChr As String="�") As String
  Dim s As String=StartChr &"���"
  For i As Byte=0 To 15
    s+=FirstChr &LineChr
  Next
  Return s
End Function

y=MakeLine("�", "�") &"�"
Color Schwarz, Normal
Cls
Color Gelb, Blau
Print "FreeBASIC-Chars, �2008 by ytwinky, MD"

Color Schwarz, Normal
Print MakeLine("�", "�") &!"�\n�hex�";
For i=0 To 15
  Print Hex(i) &"�";
Next
Print
Print y
For i=32 To 250 Step 16
	Print "� " & Hex(i) &"�";
	For j As Byte=0 To 15
	  Print Chr(i+j) &"�";
	Next
	Print
	If i<240 Then Print y
Next
Print MakeLine("�", "�") &"�"
Print "Chr(&H20) <> Chr(&HFF)"
Print "Chr(Graphic) != Chr(Console)"
Print "<CR>|<ESC> 2 Quit.."
Do
  Locate ws, 1, 0
  Print "Hex:  ";
  Locate ws, 5, 1
  s=""
  For i=1 To 2
    Do
      y=UCase(Inkey)
      Sleep 1
    Loop Until Instr("23456789ABCDEF" &Cr &Del &Esc, y) Or (Instr("01" &Cr &Del &Esc, y) And i=2)
    If Instr(Esc &Cr, y) Then End
    If y=Del Then Exit For
    Print y;
    s+=y
  Next
  If y<>Del Then
    Locate ws, 23, 0
    Print "Hex:" &s &" Dec=" &Val("&h" &s) &"  ";
    If z<>"" Then
      Locate 2*Val("&h" &Chr(z[0]))+1, 2*Val("&h" &Chr(z[1]))+6
      Print Chr(Val("&h" &z))
    End If
    Color Blau, Gelb
    Locate 2*Val("&h" &Chr(s[0]))+1, 2*Val("&h" &Chr(s[1]))+6
    Print Chr(Val("&h" &s))
    z=s
    Color Schwarz, Normal
  End If
Loop
End