1 EXECIO 2
lines
2 * 3 READ
tsqname
3 WRITE
tsqname
4
stem.
4
varname
5?
recno