IO ;VERWERK INPUT EN OUTPUT ;IO; [ 12/22/2003  4:37 PM ]
 Quit
 ;
 ;OUT = mogelijke output dev's ("" = alle mogelijke voor die $I)
 ;INP = mogelijke input voor SL^PROC
 ;PRT = keuze papiersoort ("" = selekteer, B = breed, S = smal)
 ;
T1 ;Output : .
T2 ;S = Scherm   ;T = Transfert   ;P = Printer
T4 ;[] = ok
T5 ;Sending;Saving; ...
T6 ;Send;Save; complete.
T7 ;Plaats ;breed ;smal ;papier op de printer en schakel hem aan : .
T8 ;[] = breed   S = smal   ;[] = ok   ;, = hernemen
 ;
 ; Input
IN(Dev,Prog) 
 New IO
 Set IO="I"
 Set Dev=$$SELECT(Dev,IO)
 Quit:Dev="-"
 Do @(Dev_"(IO,Prog)")
 Quit
 ;
 ; Output
OUT(Dev,Prog) 
 New IO
 Set IO="O"
 Set Dev=$$SELECT(Dev,IO)
 Quit:Dev="-"
 Do @(Dev_"(IO,Prog)")
 Quit
 ;
 ; Scherm
S(O,Prog) Q:'$D(@(DL(1)_"(3)"))
 I $G(@(DL(1)_"(5)"))>80 W @FS132
 D WL^PROC
S1 D SL^PROC G S1:INP'[R
 I $G(@(DL(1)_"(5)"))>80 W @FS80
 Q
 ;
 ; Transfert
T(IO,Prog) 
 New Dev,File
 New FVAN,FNAAR
 Do VANNAAR^vhTERMINA("")
 Quit:'$D(FVAN)
 Set FP=2103 Write @F,@F1
 Set File=$$ASKFILE^vhDEV("TRANS.TXT")
 Quit:"-."[File
 Set Dev=$$OPEN^vhDEV($$DIRUSER^vhDEV,File,"W")
 Quit:0[Dev
 Use 0
 Set FP=2003 Write @F,@F2,$P($T(T5),U,IO="O"+2),$P($T(T5),U,4)
 Set FP=2101 Write @F,@FDL,@FDL
 Use Dev
 Do @Prog
 Use 0
 Set FP=2303 Write @F,$P($T(T6),U,IO="O"+2),$P($T(T6),U,4),!?2,$P($T(T4),U,2)
 Do IK^PROC1
 Close Dev
 Quit
 ;
 ; Printer
P(O,Prog) 
 S:'$D(PRT) PRT="" I PRT'="B",PRT'="S" S PRT=""
 S FP=2303 W @F,@F1,$P($T(T7),U,2) W:$L(PRT) $P($T(T7),U,$F("BS",PRT)+1)
 W $P($T(T7),U,5),!?2 W:PRT="" $P($T(T8),U,2) W:$L(PRT) $P($T(T8),U,3)
 W $P($T(T8),U,4)
P1 K IK D IK^PROC1 Q:R=","
 I $L(PRT) G P1:R'="ENTER" S:PRT="B" PRT="ENTER" S R=PRT G P2
 I R'="ENTER",R'="S" G P1
P2 S @(DL(1)_"(4)")=$P("66;5;3;50;1\72;5;3;56;1",D,R="S"+1)
 S @(DL(1)_"(5)")=$P("132\80",D,R="S"+1)
 X F70 W @F80
 D WP^PROC2
 X F71
 Q
 ;
 ; Selekteer device
SELECT(Dev,IO) 
 New MAC,I,R
 Set MAC=$D(^cLOG(boot,"DEV",$$IO^cQ5)) If MAC Set MAC=$P(^cLOG(boot,"DEV",$$IO^cQ5),D)="MC"
 If MAC Quit:Dev="P" "" Set Dev=$P(Dev,"P")_$P(Dev,"P",2)
 Set R=Dev,Dev=""
 If R["-" For I="S","T",$P("P\",D,MAC+1) Set:R'[I Dev=Dev_I
 Else  For  Set:"STP"[$E(R)&(Dev'[$E(R)) Dev=Dev_$E(R) Set R=$E(R,2,99) Quit:R=""
 If Dev="",IO="I" Set Dev="T"
 If Dev="",IO="O" Set Dev="ST" Set:'MAC Dev=Dev_"P"
 Quit:$L(Dev)=1 Dev
 Set FP=2303 Write @F,@F1,$P($T(T1),U,2),!?2
 For I=1:1:$L(Dev) W $P($T(T2),U,$F("STP",$E(Dev,I))),$P($T(T2),U,($L($E(Dev,I+1,9))=1)+7)
 set Dev=Dev_"-" Kill IK For  Do IK^PROC1 Quit:Dev[R
 Set FP=2303 Write @F,@F1
 Quit R
 ;