cA611 ;DRUKKEN OP SCHERM ;%A611 ; [ 12/01/97  7:46 PM ]
 ;
T0 ;Afdrukken op scherm ;
 ;
T0F ;Impression a l'écran ;
 ;
T0E ;Afdrukken op scherm ;
 ;
1 I '$D(boot) D MASTER^cQ5
 I $P($G(^cLOG(boot,"DAM",2)),D) G ^cAN611  ; nieuwe datastructuur + printkeuze
 B 0 N R1,R2
 ;
2 S (R1,R2)=" P"
21 S R1=$O(^cDEV(R1)) I $E(R1,1,2)=R2 S @$E(R1,3,99)="*0" G 21
23 S F30="*124",(F82,F85)=F4,F83=F5,(F86,F96)=F92,(F87,F97)=F93,F88=F6,F89=F9
 ;
3 S LNMAX=16
 ;
YZ B 1 Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84