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

9 lines
97 B
QBasic
Raw Normal View History

PUTS("abc")
END
SUB PUTS(s$)
FOR i=1 to LEN(s$) : print mid$(s$,i,1); : NEXT
PRINT
END SUB