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

Const Cr=!"\13", Esc=!"\27", Del=!"\08", Schwarz=0, Blau=1, Normal=7, Gelb=14
Var i=0, s="", y="", z=""
Screen 19
WINDOWTITLE "FreeBASIC-Chars-Gra �2008 by ytwinky, MD"

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
Print MakeLine("�", "�") &!"�\n�\25+\26�";
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(32) <> Chr(255)"
Print "Chr(Graphic) != Chr(Console)"
Print "<CR>|<ESC> 2 Quit.."
Do
  Locate 35, 1, 0
  Print "Hex:  ";
  Locate 35, 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 35, 23, 0
    Print "Hex:" &s &" Dec=" &Val("&h" &s) &"  "
    If z<>"" Then
      Locate 2*Val("&h" &Chr(z[0])), 2*Val("&h" &Chr(z[1]))+6
      Print Chr(Val("&h" &z))
    End If
    Color Blau, Gelb
    Locate 2*Val("&h" &Chr(s[0])), 2*Val("&h" &Chr(s[1]))+6
    Print Chr(Val("&h" &s))
    z=s
    Color Schwarz, Normal
  End If
Loop
End