10	sub basind(cmd.lin$,long cmd.len,long cmd.err) &
\	on error goto 1000 &
\	cmd.err = 0% &
\	linput #2%, cmd.lin$ &
\	cmd.lin$ = left(cmd.lin$,recount) + chr$(13%) &
\	cmd.len = recount+1
40	subexit
1000	if err = 11 then cmd.err = err \ resume 40
1900	on error goto 0 &
\	subend