1	SUB VISCLS
2	! will close micro cad on lun=.VIS5LUN% with IODET directive.
4	! ERR$ is a 4-byte IO status block.
5	! inspect ERR$ in COMMON (VIS500) to find if close of visual 500 worked.
6	COMMON (VIS500) VIS5LUN%, QIOW$=2%, ERR$=4%, VIS5EFN%, ERRADR%
11	.DEFINE .IODET%=1024%	! IO.DET QIOW$ code
130	CALL DIR BY REF (QIOW$,.IODET%,VIS5LUN%,VIS5EFN%,ERRADR%,0%,0%,0%,0%,0%,0%,0%)	! close visual 500
140	! ERR$ contains on return:
150	! byte#1:	directive status	(should be 1% for sucess)
160	!      2:	further details code
170	!      3:	?
180	!      4:	?
190	SUBEND