HFS ;SET HOST FILE SERVER FOR IN- OF OUTPUT; [ 12/10/92  1:14 PM ]
 ;
GETDEVNR() 
 New Dev,R
 For Dev=51:1:54 Open Dev::0 Quit:$T
 Else  Do  Quit ""
 .Set FP=2403
 .Write @F,@F1,@F4,"ALLE HFS DEVICES ZIJN IN GEBRUIK !!  [] = ok ",@F5,@F0
 .Kill IK Do IK^PROC1
 .Set FP=2403
 .Write @F,@F1
 Quit Dev
 ;
CHKFILE(Dev,File) 
 New R
 Open Dev:File Use Dev If $ZA Quit 1
 Use 0
 Set FP=2303 W @F,@F1,"FILE "_$P(File,D,$L(File,D))
 Write " BESTAAT REEDS, WENST U DEZE TE OVERSCHRIJVEN : ."
 Write !?2,"[] = neen   J[] = ja"
 Kill IK For  Do IK^PROC1 Quit:"\J\ENTER\"[(D_R_D)
 Set FP=2303
 Write @F,@F1
 Quit $S(R="J":1,1:0)
 ;
OPENFILE(Dev,File,Mode) 
 Open Dev:(File:$S(Mode="I":"R",1:"W"))
 Use Dev If $ZA'<0 Quit 1
 Use 0 Set FP=2403
 Write @F,@F1,@F4,"ONMOGELIJK FILE ",File," TE OPENEN  !!  [] = ok ",@F5,@F0
 Do IK^PROC
 Quit 0
 ;
 ; Get current drive
GETCURDR() 
 Quit $ZOS(14)
 ;
 ; Set current drive=...
SETCURDR(Drive) 
 Set R=$ZOS(1,Drive)
 Quit
 ;
 ; Get current directory
GETCURDI(Drive) 
 Quit $ZOS(11,Drive)
 ;
 ; Set current directory=...
SETCURDI(Dir) 
 New R
 Set R=$ZOS(8,Dir)
 Quit