mirror of
https://github.com/apache/nuttx-apps.git
synced 2025-07-06 20:00:45 +08:00
9 lines
206 B
QBasic
9 lines
206 B
QBasic
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"
|
|
|