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

8 lines
205 B
QBasic
Raw Normal View History

on error goto 10
print "opening file"
2014-11-09 15:20:19 +01:00
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"