cA342 ;DOMICILIERINGEN OP FLOPPY ;%A342 ;
 ;
T0 ;Domiciliëringen op floppy ;
 ;
T0F ;Domiciliations sur disquette ;
 ;
T0E ;Domiciliëringen op floppy ;
 G 1
 ;
 ; input : R='veld#1\veld#2\...\veld#n'
 ;
A0 ;1\N;4\N;6\N;3\N;2\N;10\A;11\N;11\N;12\N;1\A;1\A;6\N;60\A;
A1 ;1\N;4\N;12\N;1\N;12\N;26\N;15\A;15\A;12\N;30\A;
A9 ;1\N;4\N;12\N;15\N;4\N;12\N;15\N;65\A;
 ;
S1 S R4=$P(R3,D,2),R3=+R3,R2=$E(R2,1,R3) I R4="A" S R2=$E(R2_$J("",R3),1,R3)
S1A I R4="N",$L(R2)<R3 S R2=0_R2 G S1A
S1B S REC=REC_R2
S1Z Q
 ;
1 S REC="",R1=$P(R,D),R0=$P($T(@("A"_R1)),U,2,999)
11 F R1=1:1 S R2=$P(R,D,R1),R3=$P(R0,U,R1) Q:'$L(R3)  D S1
13 I $L(REC)'=128 G YZ
15 S REC=REC_$C(13,10),TVG=TVG+1,^HULP("TR",Q,TNR,TVG)=REC
17 S R0=^(0),$P(R0,D,4)=$P(R0,D,4)+1,$P(R0,D,9)=$P(R0,D,9)+$L(REC),^(0)=R0
 ;
YZ K R,R0,R1,R2,R3,R4,REC Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84