cA707 ;Conversie ^HULP("TR") naar Kermit-M ;%A707 ; [ 01/04/01  3:26 PM ]
 ;
 ; Input : TNR = nummer bestand (index 3 uit ^HULP("TR",Q,TNR))
 ;         MSDOS = volledige ms-dos referentie (d:\path\file.ext)
 ;         QUOTE = quote-karakter ipv '#'
 ;
 ; Intern : alle R-variabelen
 ;
 ; Output : OK = 0 als transfert niet ok
 ;               1 als transfert volledig afgewerkt is
 ;
T0 ;Conversie ^HULP("TR") naar Kermit-M ;
T1 ;Ongeldige bestandsreferentie ;
T2 ;Even geduld ... de conversie is aan de gang;
 ;
T0F ;Conversion ^HULP("TR") à Kermit-M ;
T1F ;Lieu de fichier illégale ;
T2F ;Un instant ... conversion en cours;
 ;
T0E ;Conversion ^HULP("TR") to Kermit-M ;
T1E ;Invalid file reference ;
T2E ;One moment ... conversion is busy;
 ;
1 S OK=0 I $E(MSDOS,2)'=":" D F0 G YZ
11 S R=$E(MSDOS,3,99),R1=$L(R,D) I R1 S R=$P(R,D,R1)
12 D KRGL^cZKRUM
13 S RFN=$P(R,"."),REX=$P(R,".",2) I '$L(RFN)!'$L(REX) D F0 G YZ
15 L +@KRGL@(RFN,REX):2 E  S R=14 D F2 G YZ
17 K @KRGL@(RFN,REX) S ^(REX)="0\#\"_$H_D_D_D
19 S R0=$P(^HULP("TR",Q,TNR,0),D,4),R1=0,R3=1,R4=0,R7="",R8=0,R9=0,FP=2203 W @F,@F1,$P($T(@("T2"_QT)),U,2)
 ;
2 I '$D(QUOTE) S QUOTE=35
21 I QUOTE'?1N.N S QUOTE=$S($L(QUOTE):$A(QUOTE),1:35)
23 I QUOTE<32 S QUOTE=35
 ;
 ; volgende record
3 S R4=$O(^HULP("TR",Q,TNR,R4)) G 4:R4="" S R2=$$D2NT^cQCV(^(R4)),R5=0
31 S R1=R1+1,FP=2303 W @F,R1 I R1'>R0 W " / ",R0," (",$J(R1/R0*100,6,2)," %)"
33 I R5'<$L(R2) G 3
35 S R5=R5+1,R6=$A(R2,R5) I R6<32!(R6=QUOTE) S R7=R7_$C(QUOTE),R9=1 I R6<32 S R6=R6+64
37 S R=R6 D S1 G 35:R5<$L(R2),3
 ;
4 D S1
41 S R=@KRGL@(RFN,REX),^(REX)=$P(R,D,1,3)_D_$H_D_R8_D,OK=1
 ;
YZ K R,R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,RFN,REX Q
 ;
 ; record naar Kermit-M
S1 I $L(R4),$L(R7)<250!R9 S R7=R7_$C(R),R9=0 G S1Z
S1A I $L(R7) S @KRGL@(RFN,REX,R3)=R7,R8=R8+$L(R7),R7="",R3=R3+1 G S1
S1Z Q
 ;
F0 S K=$P($T(@("T1"_QT)),U,2)
F1 S R=250
F2 D TXT^cAFA1(R)
FZ K R Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84