Sorry your browser is not supported!

jaja#=0
jaja2#=0
jaja3#=0

print " do you want to load?? if yes preas y"
input " ";a$

if lower$(a$)="y"
open to read 1, "save.txt"
read FLOAT 1,jaja#
read FLOAT 1,jaja2#
read FLOAT 1,jaja3#
close file 1
print "loade"
wait key
print jaja#
print jaja2#
print jaja3#
wait key
endif

make object box 1,5,5,5
position object 1,jaja#,jaja2#,jaja3#

do
print "g to save"

if inkey$()="g"
OPEN TO WRITE 1,"save.txt"
WRITE FLOAT  1,jaja#
WRITE FLOAT 1,jaja2#
WRITE FLOAT  1,jaja3#
close file 1
print "savd"
print jaja#
print jaja2#
print jaja3#

endif

jaja#=jaja#

set cursor 0,0
print "x :"; int(jaja#)
print "y :"; int(jaja2#)
print "z :"; int(jaja3#)

position object 1,jaja#,jaja2#,jaja3#

if inkey$()="w"
inc jaja3#
endif

if inkey$()="s"
dec jaja3#
endif

if inkey$()="d"
inc jaja#
endif

if inkey$()="a"
dec jaja#
endif

sync
loop