Sorry your browser is not supported!

var$ = ""
if file exist("test.txt") then delete file "test.txt"

open to write 1,"test.txt"
write string 1,space$(1331) `Change to 1330 to get it to work
close file 1
print "Created"
wait key

open to read 1,"test.txt"
read string 1,var$
close file 1
print "Loaded"
wait key

rem WRITE STRING test
var$ = ""
if file exist("test.txt") then delete file "test.txt"

open to write 1,"test.txt"
write string 1,space$(2048) `Change to 2047 to get it to work
close file 1
print "Created"
wait key

rem READ STRING test
var$ = ""
if file exist("test.txt") then delete file "test.txt"

open to write 1,"test.txt"
write string 1,space$(1332) `Change to 1331 to get it to work
close file 1
print "Created"
wait key

open to read 1,"test.txt"
read string 1,var$
close file 1
print "Loaded"
wait key

If file exist("afile.txt") then delete file "afile.txt"
open to write 1,"afile.txt"
writestring(1,"This is a test!")
writestring(1,"This is another test!")
writestring(1,"This is the final test!")
close file 1
open to read 1,"afile.txt"
a$ = readstring(1)
b$ = readstring(1)
c$ = readstring(1)
close file 1
print a$
print b$
print c$

wait key
end



function WriteString(filenum as integer, a as string)

For x = 1 to LEN(a)

write byte filenum,ASC(MID$(a,x))

Next x

write byte filenum,13
write byte filenum,10

endfunction

function ReadString(filenum as integer)

b as string

Do
read byte filenum,a

If a = 10 and prev = 13 then exit

If prev>0 then b = b + CHR$(prev)
prev = a
Loop

endfunction b

If file exist("afile.txt") then delete file "afile.txt"
open to write 1,"afile.txt"
writestring(1,"This is a test!")
writestring(1,"This is another test!")
writestring(1,"This is the final test!")
close file 1
open to read 1,"afile.txt"
a$ = readstring(1)
b$ = readstring(1)
c$ = readstring(1)
close file 1
print a$
print b$
print c$

wait key
end



function WriteString(filenum as integer, a as string)

For x = 1 to LEN(a)

write byte filenum,ASC(MID$(a,x))

Next x

write byte filenum,13
write byte filenum,10

endfunction

function ReadString(filenum as integer)

b as string

Do
read byte filenum,a

If (a = 10 and prev = 13) or file end(filenum) then exit

If prev>0 then b = b + CHR$(prev)
prev = a
Loop

endfunction b