diff options
Diffstat (limited to 'apps/examples/bastest/tests/test32.bas')
-rw-r--r-- | apps/examples/bastest/tests/test32.bas | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/apps/examples/bastest/tests/test32.bas b/apps/examples/bastest/tests/test32.bas new file mode 100644 index 000000000..43fdc4cf5 --- /dev/null +++ b/apps/examples/bastest/tests/test32.bas @@ -0,0 +1,8 @@ +PUTS("abc") +END + +SUB PUTS(s$) + FOR i=1 to LEN(s$) : print mid$(s$,i,1); : NEXT + PRINT +END SUB + |