CLS
DIM A(1 TO 999)

DO
   i = i + 1
   INPUT A(i)
LOOP UNTIL A(i) = 0

FOR j = i TO 1 STEP -1
   PRINT A(j);
NEXT
END

CLS
OPEN "1.txt" FOR RANDOM AS #1 LEN = 4

DO
   i = i + 1
   INPUT A
   PUT #1, i, A
LOOP UNTIL A = 0

FOR j = i TO 1 STEP -1
   GET #1, j, A
   PRINT A;
NEXT
END

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

DECLARE SUB ABC ()

CLS
CALL ABC
END

SUB ABC
   INPUT A
   IF A THEN CALL ABC
   PRINT A;
END SUB