diff options
Diffstat (limited to 'apps/examples/bastest/tests/test15.bas')
| -rw-r--r-- | apps/examples/bastest/tests/test15.bas | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/apps/examples/bastest/tests/test15.bas b/apps/examples/bastest/tests/test15.bas new file mode 100644 index 000000000..a9195bf4b --- /dev/null +++ b/apps/examples/bastest/tests/test15.bas @@ -0,0 +1,18 @@ +a$="a" +open "r",1,"test.dat",128 +print "before field a$=";a$ +field #1,10 as a$ +field #1,5 as b$,5 as c$ +lset b$="hi" +rset c$="ya" +print "a$=";a$ +put #1 +close #1 +print "after close a$=";a$ +open "r",2,"test.dat",128 +field #2,10 as b$ +get #2 +print "after get b$=";b$ +close #2 +kill "test.dat" + |