PureBoard

Data.a 60 102 110 110 96 98 60 0 24 60 102 126 102 102 102 0 124 102 102Data.a
124 102 102 124 0 60 102 96 96 96 102 60 0 120 108 102 102 102 108 120Data.a
0 126 96 96 120 96 96 126 0 126 96 96 120 96 96 96 0 60 102 96Data.a
110 102 102 60 0 102 102 102 126 102 102 102 0 60 24 24 24 24 24 60Data.a
0 30 12 12 12 12 108 56 0 102 108 120 112 120 108 102 0 96 96 96Data.a
96 96 96 126 0 99 119 127 107 99 99 99 0 102 118 126 126 110 102 102Data.a
0 60 102 102 102 102 102 60 0 124 102 102 124 96 96 96 0 60 102 102Data.a
102 102 60 14 0 124 102 102 124 120 108 102 0 60 102 96 60 6 102 60Data.a

Global zahl.c,z.l

ReadFile(0, "d:\purebasic\pure\data\charset1.bin")
CreateFile(1,"d:\purebasic\pure\data\charset1.txt")

WriteString(1,"Data.a ")

While Eof(0) = 0
  zahl=ReadByte(0)
  z=z+1
  If z > 19  
    WriteStringN(1,"Data.a ") 
    z=0
  EndIf 
   WriteString(1," "+zahl)
Wend

CloseFile(0)
CloseFile(1)