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

on error goto 10
print "opening file"
open "/tmp/test.out" for output lock write as #1
print "open succeeded"
if command$<>"enough" then shell "sh ./test/runbas test.bas enough"
end
10 print "open failed"
Port of BAS 2.4 to NuttX by Alan Carvalho de Assis 2014-10-27 07:53:12 -06:00			`on error goto 10`
			`print "opening file"`
BAS: Misc changes to test files 2014-11-09 08:20:19 -06:00			`open "/tmp/test.out" for output lock write as #1`
Port of BAS 2.4 to NuttX by Alan Carvalho de Assis 2014-10-27 07:53:12 -06:00			`print "open succeeded"`
			`if command$<>"enough" then shell "sh ./test/runbas test.bas enough"`
			`end`
			`10 print "open failed"`