Sorry your browser is not supported!

myVar as dword

open to read 1, "myfile.txt"
read word 1, myVar

print myVar
wait key

File$="test.dat"
Value = 0x44 + (0x33 << 8) + (0x22 << 16) + (0x11 << 24)

if file exist( File$ ) then delete file File$

open to write 1, File$
write long 1, Value
close file 1

print "Wrote "; hex$(Value)
print ""


open to read 1, File$
read word 1, a
read word 1, b
print "Read word 1: "; hex$(a)
print "Read word 2: "; hex$(b)
print ""
close file 1

open to read 1, File$
read byte 1, a
read byte 1, b
read byte 1, c
read byte 1, d
print "Read byte 1: "; hex$(a)
print "Read byte 2: "; hex$(b)
print "Read byte 3: "; hex$(c)
print "Read byte 4: "; hex$(d)
print ""
close file 1

open to read 1, File$
read long 1, a
print "Read long 1: "; hex$(a)
print ""
close file 1

wait key

end

a as dword
b as dword
c as dword
d as dword

File$="test.dat"

if file exist( File$ ) then delete file File$

open to write 1, File$
write string 1, "abcd"
close file 1

open to read 1, File$
read word 1, a
read word 1, b
print "Read word 1: "; hex$(a)
print "Read word 2: "; hex$(b)
print ""
close file 1

open to read 1, File$
read byte 1, a
read byte 1, b
read byte 1, c
read byte 1, d
print "Read byte 1: "; hex$(a)
print "Read byte 2: "; hex$(b)
print "Read byte 3: "; hex$(c)
print "Read byte 4: "; hex$(d)
print ""
close file 1

open to read 1, File$
read long 1, a
print "Read long 1: "; hex$(a)
print ""
close file 1

wait key

end