/
	.mcall exst$s
	program exit
function exit[stat]
        loop for r3 := #io.luns thru #eluns-2  step 2
            r4 := (r3)
            if r4 ne 0 and r4 ne -1
                bclose[r4]
            fi
        next r3
        
        r4 := stat
        exst$s r4
.end