mirror of
https://github.com/apache/nuttx-apps.git
synced 2026-08-10 15:05:13 +00:00
8 lines
201 B
QBasic
8 lines
201 B
QBasic
on error goto 10
|
|
print "opening file"
|
|
open "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"
|
|
|