mirror of
https://github.com/apache/nuttx-apps.git
synced 2025-07-08 12:42:34 +08:00
9 lines
97 B
QBasic
9 lines
97 B
QBasic
PUTS("abc")
|
|
END
|
|
|
|
SUB PUTS(s$)
|
|
FOR i=1 to LEN(s$) : print mid$(s$,i,1); : NEXT
|
|
PRINT
|
|
END SUB
|
|
|