Compacting stacks and todays' newbie question

[Dreamscape Software]

> put "fred.txt" into filename
>
> open file filename for read
> put 1 into i
> repeat
>     read from file filename until EOF
>     put it into field field1 of card i
> end repeat
> close file filename