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