DEVICE ;[ 07/11/97   1:20 PM ]
 ;
T1 ;DE TERMINAL IS NIET MEER VERBONDEN ;
T2 ;Exit
 ;
CLOSE(PDev,Dev) 
 New DevTyp,F,F1,F4,F5,F11,I
 Quit:Dev=1!(Dev=PDev)
 Set F71=F71_" h",DevTyp=$P(^cLOG(boot,"DEV",PDev),D)
 For I="",1,4,5,11 Set @("F"_I)=@("^vhDEV("""_DevTyp_"F"_I_""")")
 Use PDev
 Write @F11,@F1
 Set FP=1317
 Write @F,@F4,$P($T(T1),U,2),@F5,!,$P($T(T2),U,2),!
 Use Dev
 Close PDev
 Quit
 ;