nuttx-apps/examples/bastest/tests/test33.bas

open "/tmp/test.out" for binary as 1
put 1,1,"xy"
put 1,3,"z!"
put 1,10,1/3
put 1,20,9999
close 1
open "/tmp/test.out" for binary as 1
s$="    "
get 1,1,s$
get 1,10,x
get 1,20,n%
close
print s$
print x
print n%
kill "/tmp/test.out"
BAS: Misc changes to test files 2014-11-09 08:20:19 -06:00			`open "/tmp/test.out" for binary as 1`
Port of BAS 2.4 to NuttX by Alan Carvalho de Assis 2014-10-27 07:53:12 -06:00			`put 1,1,"xy"`
			`put 1,3,"z!"`
			`put 1,10,1/3`
			`put 1,20,9999`
			`close 1`
BAS: Misc changes to test files 2014-11-09 08:20:19 -06:00			`open "/tmp/test.out" for binary as 1`
Port of BAS 2.4 to NuttX by Alan Carvalho de Assis 2014-10-27 07:53:12 -06:00			`s$=" "`
			`get 1,1,s$`
			`get 1,10,x`
			`get 1,20,n%`
			`close`
			`print s$`
			`print x`
			`print n%`
BAS: Misc changes to test files 2014-11-09 08:20:19 -06:00			`kill "/tmp/test.out"`
Port of BAS 2.4 to NuttX by Alan Carvalho de Assis 2014-10-27 07:53:12 -06:00