Global text_str$
Global new_text$
Global temp$
Global file$ = ReadFile("G:\Documents\a.txt")


If FileType(file) = 0 Then DebugLog "Stream does not exist"

While Not Eof(file)
   text_str = text_str + ReadString(file)
Wend

For i = 1 To Len(text_str$)
   temp = Mid(text_str$, i, 1)
   new_text = new_text + Chr(Asc(temp)*2)
Next

Print text_str
Print new_text
For i = 1 To Len(new_text)
   temp = Mid(new_text, i, 1)
   t$ = t$ + Chr(Asc(temp)/2)
Next
Print t
WaitKey
CloseFile(file)
End
;~IDEal Editor Parameters:
;~C#Blitz3D

fileout = WriteFile ("mydata.dat")

WriteByte fileout,123
WriteFloat fileout,123.456
WriteInt fileout,12345678
WriteLine fileout,"Hallo"
WriteShort fileout,12345
WriteString fileout,"Super"

CloseFile fileout

filein = ReadFile ("G:\Documents\a.txt");("mydata.dat")

wert1 = ReadByte (filein)
wert2# = ReadFloat (filein)
wert3 = ReadInt (filein)
wert4$ = ReadLine$ (filein)
wert5 = ReadShort (filein)
wert6$ = ReadString$ (filein)

CloseFile filein

Print "Byte" +wert1
Print "Float" +wert2
Print "Int" +wert3
Print "Line" +wert4
Print "Short" +wert5
Print "String" +wert6

WaitKey