test32.bas « tests « bastest « examples « apps - nuttx - Port of the Nuttx operating system (http://www.nuttx.org/) to the Kinetis K20 architecture.

summary refs log tree commit diff

path: root/apps/examples/bastest/tests/test32.bas

blob: 43fdc4cf5fb60d1e319a55150f69f1a6b81c35c1 (plain) (blame)

PUTS("abc")
END

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