CLS
DIM s AS STRING
DIM t AS STRING
CONST p = " "
s = s + p

DO
   INPUT t
   s = t + p + s
LOOP UNTIL t = "0"

s = p + s
k1 = 1

DO
   k2 = INSTR(k1 + 1, s, p)
   t = MID$(s, k1 + 1, k2 - 1 - k1)
   PRINT VAL(t);
   k1 = k2
LOOP UNTIL k2 = LEN(s)
END