ScreenRes 640, 480, 4
Width 80, 30

Dim f As Integer, wahl As Integer, i As Integer, f2 As Integer, z As String

Input "1=Generieren 2=Umwandeln"; wahl
Select Case wahl
	Case 1
      f = FreeFile
		Open "TabelleCP437.bi" For Output As f
		Print #f, "Dim tbl(128 to ...) As String => { ";
		For i = 128 To 255
			Print #f, "!";Chr(34, i, 34);
			If i < 255 Then
				Print #f, ", ";
			EndIf
			If i Mod 6 = 5 Then
				Print #f, "_"
			EndIf
		Next i
		Print #f, " }"
	   Close f
	   Print "Jetzt bitte in Linux"
	   Print "recode ibm437..utf-8 <TabelleCP437.bi >TabelleUTF8.bi"
	   Print !"ausf\129hren"
	   ' Benutzer mit Linux-FBC koennen natuerlich Shell "recode .." aufrufen
	   ' hier vom Windows-FBC durchgefuehrt mit Dateiablage auf Samba-Share
	Case 2
		f = FreeFile
		Open "TabelleUTF8.bi" For Input As f
		f2 = FreeFile
		Open "TabelleUTF8_2.bi" For Output As f2
		While Not Eof(f)
			z = Input$(f, 1)
			If Asc(z) < 128 Then
				If z = !"\010" Then
					Print #f2, !"\013";
				EndIf
				Print #f2, z;
			Else
				Print #f2, "\";Asc(z);
			EndIf
		Wend
		Close f2
		Close f
		Print "Jetzt das generierte TabelleUTF8_2.bi includen"
	Case Else
		Print "Falsche Wahl"
End Select
Sleep