Sorry your browser is not supported!

dim save$(5)
save$(0)=name$
save$(1)=str$(x)
save$(2)=str$(y)
save$(3)=str$(age)
save$(4)=weapon1$
save$(5)=weapon2$
save array "load.sav",save$(0)

load array "load.sav",save$(0)
name$=save$(0)
x=val(save$(1))
y=val(save$(2))
age=val(save$(3))
weapon1$=save$(4)
weapon2$=save$(5)

hide mouse
dim save$(2)

top:

if file exist("Gametest.sav")=1
   rem if the file exists then open it
   load array "Gametest.sav",save$(0)
else
   rem create a new person
   ink rgb(0,255,0),1
   print "What is your name stranger?"
   input name$
   save$(1)=name$
   cls
   print "You also need a second ID to enter, something like a password..."
   input "Password: ";pass$
   save$(2)=pass$
   save array "Gametest.sav",save$(0)
   rem add to server or whatever
endif

rem login the user
cls
ink rgb(255,255,255),1
input "Username: ";name$
input "Password: ";pass$

rem make sure the password and name is correct..
if name$=save$(1) and pass$=save$(2)
   ink rgb(0,255,0),1
   print "Welcome ";name$
else
   ink rgb(255,0,0),1
   print "Sorry we dont know you, you may have spelled your name or password incorrectly"
   print "or you havent signed up. Otherwise leave."
   wait key
   goto top
endif

`// write data to file
open to write 1,"myfile.txt"
  write string 1,"hello"
  name$ = "david"
  write string 1,name$
close file 1

`// read from file
open to read 1,"myfile.txt"
  read string 1,hellobit$
  read string 1,yourname$
close file 1