Sorry your browser is not supported!

`Simple Save and Retrieve
`Version - 1.0
`By **Name Erased**

input "name> ";name$

dim namea$(1)
namea$(1) = name$

input "file location,name,extension> ";file$

Print "saving as array"
save array file$,namea$(1)

Print "now saving as a text file"

open to write 1,file$
if file exist(file$) = 1 then delete file file$
write string 1,name$

close file 1

Print "All done!"

Print "Now then I'll reload it for you pal!"

Print "As an array: "
load array file$,namea$(1)
Print "Your name was: ";namea$(1)

Print "As a text file: "
open to read 1,file$
read string 1,name$
close file 1
Print "Your name was: ";name$

Print "There ya go bob's your uncle! Hope This Helped!"

No offence, this looks a LOT like of what I posted here a while ago. I mean, my saving file. And you can find this in the codebase as well, hope you didn't take someones work, change it, and repost it...

I too posted a "File tutorial" on the newcomers forum, not so long ago.