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