cA220 ;OPENEN OP 3 LIJNEN - ;%A220 ;do naar %A237 ; [ 04/29/98  5:07 PM ]
 ;
T0 ;Openen op 3 lijnen - ;
T1 ;  Even geduld a.u.b. ... ;
 ;
T0F ;Créer sur 3 lignes - ;
T1F ;  Un instant s.v.p. ... ;
 ;
T0E ;Openen op 3 lijnen - ;
T1E ;  Even geduld a.u.b. ... ;
 ;
1 S %08=$J+.1,FP=2401 W @F,$P($T(@("T1"_QT)),U,2),@F2 D ^cA338,^cA609
2 S Q1=$P(R,D,4),Q2=$P(R,D,5),QP=0 D ^cA237 S:K="-" I=K S ^HULP("PAS",$J+.1)=I
3 S %08=$J+.1 D ^cA339 S K=^HULP("PAS",$J+.1) K ^($J+.1)
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84