CLS
INPUT x$: l = LEN(x$)
FOR i = 1 TO l
 m$ = MID$(x$, i, 1)
 IF m$ < "0" OR m$ > "9" THEN 10
 y$ = y$ + m$
 IF i < l THEN R$ = MID$(x$, i + 1, 1)
 IF i < l AND (R$ < "0" OR R$ > "9") THEN PRINT y$: S = S + 1: y$ = ""
10 NEXT i
PRINT "S="; S
END

CLS
INPUT x$: l = LEN(x$)
FOR i = 1 TO l
 m$ = MID$(x$, i, 1)
 IF m$ < "0" OR m$ > "9" THEN 10
 y$ = y$ + m$
 IF i < l THEN R$ = MID$(x$, i + 1, 1)
 IF i < l AND (R$ < "0" OR R$ > "9") THEN PRINT y$: S = S + 1: y$ = ""
10 NEXT i
PRINT "S="; S
END

CLS
INPUT x$: l = LEN(x$)
FOR i = 1 TO l
 m$ = MID$(x$, i, 1)
 IF m$ < "0" OR m$ > "9" THEN 10
 y$ = y$ + m$
 IF i < l THEN R$ = MID$(x$, i + 1, 1)
 IF i < l AND (R$ < "0" OR R$ > "9") THEN PRINT y$: S = S + 1: y$ = ""
10 NEXT i
PRINT "S="; S
END

CLS
INPUT A$
FOR I = 1 TO LEN(A$)
  IF MID$(A$, I, 1) >= "0" AND MID$(A$, I, 1) <= "9" THEN
  S = I
  X = 0
  DO UNTIL MID$(A$, S, 1) < "0" OR MID$(A$, S, 1) > "9"
  X = X * 10 + VAL(MID$(A$, S, 1))
  S = S + 1
  LOOP
  PRINT X; : I = I + LEN(LTRIM$(STR$(X)))
  W = W + 1
  END IF
NEXT I
PRINT
PRINT W
END