added test client

This commit is contained in:
cvs
2000-04-10 15:38:21 +00:00
parent ceb27b8fe5
commit f77ba1cc71
3 changed files with 238 additions and 0 deletions

8
tecs/get_lun.for Normal file
View File

@@ -0,0 +1,8 @@
subroutine lib$get_lun(lun)
integer lun
lun=33
end
subroutine lib$free_lun(lun)
integer lun
end