\newcount\m
\newcount\i
\m=100
\loop
\ifnum
\i<50
\read0to\a
\immediate\write16{\ifnum\a>\m 0\else1\fi}
\ifnum\a<\m\m=\a\fi
\advance\i1
\repeat\end