cA709 ;TONEN MS-DOS-BESTANDEN ;%A709 ; [ 01/04/01  3:30 PM ]
 ;
T0 ;Tonen ms-dos-bestanden ;
T1 ; Nr  Datum              Records  Omschrijving;Formaat;Grootte (bytes);
 ;
T0F ;Montrer fichiers ms-dos;
T1F ; N°  Date               Records  Description;Format;Largeur (octets);
 ;
T0E ;Summary dos files ;
T1E ; Nr  Date               Records  Description;File type;Size (bytes);
 ;
1 D S1 S FP=401,R2=$E($P($T(@("T1"_QT)),U,2)_$J("",80),1,77) W @F,@F5,@F4,R2
11 S FP=458,R2=$E($P($T(@("T1"_QT)),U,3+R1)_$J("",22),1,22) W @F,R2,@F5,@F1
13 S R0=R0+1 I R0<11 S FP=R0+5*100+1,R=R_D_R0_D_R1 W @F,$J(R0,5) D S2 G 13
 ;
YZ K R,R0,R1,R2 Q
 ;
S1 S R=$G(R,"TR\0\0"),R0=$P(R,D,2),R1=$P(R,D,3),R=$P(R,D) I R'="TR",R'="RC" S R="TR"
S1Z Q
 ;
S2 D S1 S R2=$G(^HULP(R,Q,R0,0))
S2A S FP=R0+5*100+7 W @F,$J($P(R2,D,2),9),$J($P(R2,D,3),9),$J($P(R2,D,4),9),"  ",$E($P(R2,D)_$J("",20),1,20),@F2,"  "
S2B I 'R1 S R2=$P(R2,D,5) I $L(R2) W $E($$SIG^cAFA1("FORM",R2,QTU*10-8+100),1,20)
S2C I R1 D S3:'$P(R2,D,9) W $J($TR($FN($P(R2,D,9),",",0),",.",".,"),15)
S2Z Q
 ;
S3 S R4=$O(^($G(R4,0))) I R4'="" S $P(R2,D,9)=$P(R2,D,9)+$L(^(R4)) G S3
S3Z S ^(0)=R2 K R4 Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84