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