SODEV G 1 ;SELECT OUTPUT DEVICE ;SODEV; [ 12/22/2003  4:54 PM ]
 ;
 ; Input : R
 ;  1. soort papier -> 1 = smal blanko, 2 = breed blanko, ... zie T1
 ;  2. soort read -> 0 = read K, 1 = read *K
 ;  3. later afdrukken -> 0 = niet, 1 = keuze
 ;        4. Transfert/Print if mac -> 0 = Transfert 1 = Print
 ; Output: K -> empty, "-", "," of "."
 ;
T1 ;SMAL BLANCO ;BREED BLANCO ;ORDER;BON;FAKTUUR;TOELEVERING;
T2 ;PLAATS ;PAPIER OP DE PRINTER EN SCHAKEL HEM AAN : 
T3 ;OK VOOR TRANSFERT : .
T4 ;[] = ok   ,;[]; = hernemen;   .[] = later drukken
 ;
1 S MAC=$P(^cLOG(boot,"DEV",$$IO^cQ5),D,1)="MC"
11 S R1=$P(R,D,1)+1,R2=$P("*",D,$P(R,D,2)),R3=$P(R,D,3) G 2:'MAC!$P(R,D,4)
13 S FP=2303 W @F,@F1,$P($T(T3),U,2),!?2,$P($T(T4),U,2) W:R2="" $P($T(T4),U,3) W $P($T(T4),U,4)
15 S FP=2302+$L($P($T(T3),U,2)) W @F U 0:(::::1) R @(R2_"K") U 0:(:::::1)
17 I R2="*" S:K=13 K=-1 S K=$C(K)
19 G 15:$L(K)>1,YZ:"-,"[K,15
 ;
2 S FP=2303 W @F,@F1,$P($T(T2),U,2),$P($T(T1),U,R1),$P($T(T2),U,3)
21 W !?2,$P($T(T4),U,2) W:R2="" $P($T(T4),U,3) W $P($T(T4),U,4) W:R3 $P($T(T4),U,5)
23 S FP=2303+$L($P($T(T2),U,2))+$L($P($T(T1),U,R1))+$L($P($T(T2),U,3)) W @F,@F2,".",@F I R2="" R K
25 E  K IK Do IK^PROC1 Set K=R I K="ENTER" S K=""
27 G 23:$L(K)>1,YZ:"-,"[K,YZ:K="."&R3,23
 ;
YZ K R,R1,R2,R3 Q
 ;