Sorry your browser is not supported!

`Code by Dgamer
`Read Memblock String
`mnum=Memblock number
`pos=position
`length=string length
function memblockstring(mnum, pos, length)
   string$ as string
   for x=pos to length
      string$=string$+chr$(memblock byte(mnum,x))
   next x
endfunction string$


`Writes memblock strings
`mnum=memblock number
`pos=position
`string$=string you wish to write
function writememblockstring(mnum, pos, string$)
   endpos=len(string$)+pos
   place=1

   for x=pos to endpos
      write memblock byte mnum, x, asc(mid$(string$,place))
      inc place
   next x
endfunction

`Code by Dgamer
endl as string
endl=chr$(13)+chr$(10)

filename$="TeSt.TxT"
if file exist(filename$)=1
   delete file filename$
endif
open to write 1,filename$

make memblock 1,50

text$="I pity the foo"+endl+"who doesn't use memblocks"+endl+"!!!!!"
writememblockstring(1,0,text$)
make file from memblock 1,1

delete memblock 1


function memblockstring(mnum, pos, length)
   string$ as string
   for x=pos to length
      string$=string$+chr$(memblock byte(mnum,x))
   next x
endfunction string$

function writememblockstring(mnum, pos, string$)
   endpos=len(string$)+pos
   place=1

   for x=pos to endpos
      write memblock byte mnum, x, asc(mid$(string$,place))
      inc place
   next x
endfunction

`Code by Dgamer
open to read 1,"test.txt"
make memblock from file 1,1

text 0,0,memblockstring(1,0,get memblock size(1)-1)
wait key

function memblockstring(mnum, pos, length)
   string$ as string
   for x=pos to length
      string$=string$+chr$(memblock byte(mnum,x))
   next x
endfunction string$

function writememblockstring(mnum, pos, string$)
   endpos=len(string$)+pos
   place=1

   for x=pos to endpos
      write memblock byte mnum, x, asc(mid$(string$,place))
      inc place
   next x
endfunction