90	sub basinix
100	on error goto 1000 &
\	print "Enter input file name"; &
\	linput z$ &
\	open z$ for input as file 2%, defaultname ".CMD" &
\	subexit &

1000	print "Error opening file: ";ert$(err)&
\	resume 100 &

32767	subend