100	sub basclox &
\	close 2% &
\	print "input file closed" &
\	subend