KBCS G 1 ;BERICHT NAAR POORT 79 - Teledata sytems N.V. ;KBCS;
 ;
T1 ;LIJN 
T2 ;.[] = einde
T3 ;WIJZIGEN LIJN
T4 ;[] = bericht ok   ,[] = hernemen
 ;
S1 S R="K\22\3\"_$P($T(T1),U,2)_I_"\"""_$P($T(T2),U,2)_"""\40\\$L(K)" D S0
S1A I K="," S I=0,FP=I+3*100+3 W @F,@F1 K A G S1Z
S1B I K="-" S I=I-1,FP=I+3*100+3 W @F,@F1 K A(I) S I=I-1 G S1Z
S1C I K'="." S A(I)=K,FP=I+3*100+3 W @F,@F1,$J(I,2),". ",K
S1Z Q
 ;
1 S K=$P($T(+1),U,2),FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
BREAK B 1
11 K A S FP=401 W @F,@F1 F I=1:1:10 D S1 Q:K="."!(I<0)
13 G YZ:'$D(A)
15 S R="I\22\3\"_$P($T(T3),U,2)_"\"""_$P($T(T4),U,2)_"""\2\\K?.N!(K="","")" D S0
17 G 2:K="",11:K=",",15:'$D(A(K)) S R="K\22\3\"_$P($T(T1),U,2)_I_"\\40\\$L(K)" D S0 G 15:K="-"
19 S FP=I+3*100+7 W @F,@F2,K S A(I)=K G 15
 ;
2 ZU 79 W !!,TD,! F I=1:1:10 I $D(A(I)) ZU 79 W !,*27,"#3",A(I),!,*27,"#4",A(I),*7
21 U 0
 ;
YZ Q
 ;
S0 S S7="K'[D&(K'?.E1C.E)" S:$P(R,D,8)'="" S7=S7_","_$P(R,D,8) S:$P(R,D,7)'="" S7=S7_","_$P($T(@$P(R,D,7))," ",2,99)
S0A S S2=$P(R,D,2),S3=$P(R,D,3),S4=$P(R,D,4),S5=$P(R,D,5),S6=$P(R,D,6)
S0B S S0=$L(S4)+S3+3 S FP=S2*100+S3+F60 W @F,@F1 W @F2,S4," : " I S5'="" W:S5["""" !,?2,@S5 D:S5'["""" @S5
S0C S FP=S2*100+S0+F60 W @F,@F2 W $E("......................................................................",1,S6),@F,@F0
S0D R K W @F2 I $L(K)'>S6,@S7 S @$P(R,D,1)=K
S0E E  G S0C
S0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$E("                                        ",1,S6),@F,K
S0Z K R,S0,S2,S3,S4,S5,S6,S7 Q  ;V3 23.08.84
 ;
Z X ^cZ Q
ZZ ; 06.09.88 - 12 u 58