projects
/
qbasicapps.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
de46ce1cedae5402f4cc31956da6ba5e1be32361
[qbasicapps.git]
/
modules
/
sonad.bas
1
DIM SHARED mitus, sona$(1 TO 50)
\r
2
\r
3
SUB getson (a$)
\r
4
mitus = 0
\r
5
\r
6
d = 1
\r
7
FOR b = 1 TO LEN(a$)
\r
8
c$ = RIGHT$(LEFT$(a$, b), 1)
\r
9
IF c$ = " " THEN
\r
10
d = 1
\r
11
ELSE
\r
12
IF d = 1 THEN
\r
13
mitus = mitus + 1
\r
14
sona$(mitus) = ""
\r
15
d = 0
\r
16
END IF
\r
17
sona$(mitus) = sona$(mitus) + c$
\r
18
END IF
\r
19
NEXT b
\r
20
\r
21
END SUB
\r
22
\r