cA702	;Bestand uitlezen ;%A702 ;overlay %A706 ; [ 01/04/01  2:54 PM ]
	;
T0	;Bestand uitlezen ;
T1	;U kan via dit scherm geen bestanden uitvoeren;
T2	;Nummer bestand\"-[] = einde   xx[] = volgnummer voor het bestand dat u wil overzetten";
T3	;Station voor het bestand\"a of b[] = floppy   c, d, ..., of z[] = harde schijf;   .[] = netwerk;
T4	;Directory of pad\"[] = root (hoofd-directory)   xxxxxxxx[] = bepaalde directory",!?2,"dir1/dir2/.../dirn[] = path";
T5	;Bestandsnaam\"xxxxxxxx of xxxxxxxx.xxx[] = naam";
T6	;Bestandslocatie =;
T7	;Het bestand mag overgezet worden\".[] = ok   ,[] = hernemen";
T8	;U heeft geen bestand voorbereid;
T9	;hoofdscherm    ;1;27;OL;OM;OC;
T10	;mirror/xtalk   ;2;27;XT;XU;XX;
T11	;procomm+ v1.1b ;3;27,94;PR;PS;
T12	;procomm+ v2.0  ;4;4;PT;PU;
T13	;reflection     ;5;27,38,111,67;RF;RG;RW;
T14	;Path\"drive:/dir1/dir2/...[] = lokale pc   //computernaam/dir1/...[] = netwerk";
T15	;Path\"drive:/dir1/dir2/...[] = server   //computernaam/dir1/...[] = netwerk";
	;
T0F	;Exportation d'un fichier ;
T1F	;Impossible d'exporter des fichiers par cet écran;
T2F	;N° du fichier\"-[] = fin   xx[] = n° du fichier à transférer";
T3F	;Station du fichier\"a ou b[] = disquette   c, d, ..., ou z[] = disque dure;   .[] = réseau;
T4F	;Répertoire\"[] = root (répertoire principale)   xxxxxxxx[] = repértoire spécifique",!?2,"rep1/rep2/.../repn[] = path";
T5F	;Nom du fichier\"xxxxxxxx ou xxxxxxxx.xxx[] = nom";
T6F	;Location fichier =;
T7F	;Le fichier peut être exporté\".[] = oui   ,[] = reprendre";
T8F	;Aucun fichier n'a été préparé;
T9F	;écran principal;1;27;OL;OM;OC;
T10F	;mirror/xtalk   ;2;27;XT;XU;XX;
T11F	;procomm+ v1.1b ;3;27,94;PR;PS;
T12F	;procomm+ v2.0  ;4;4;PT;PU;
T13F	;reflection     ;5;27,38,111,67;RF;RG;RW;
T14F	;Path\"station:/rép1/rép2/...[] = PC local   //nom de PC/rép1/...[] = réseau";
T15F	;Path\"station:/rép1/rép2/...[] = serveur   //nom de PC/rép1/...[] = réseau";
	;
T0E	;Export file ;
T1E	;You cannot export files from this terminal;
T2E	;Number file\"-[] = end   xx[] = number file to export";
T3E	;Drive\"a of b[] = floppy   c, d, ..., of z[] = harddisk;   .[] = network;
T4E	;Directory or path\"[] = root (parent directory)   xxxxxxxx[] = specific directory",!?2,"dir1/dir2/.../dirn[] = path";
T5E	;Filename\"xxxxxxxx of xxxxxxxx.xxx[] = name";
T6E	;File location =;
T7E	;Export file\".[] = ok   ,[] = retry";
T8E	;No files prepared;
T9E	;headscreen     ;1;27;OL;OM;OC;
T10E	;mirror/xtalk   ;2;27;XT;XU;XX;
T11E	;procomm+ v1.1b ;3;27,94;PR;PS;
T12E	;procomm+ v2.0  ;4;4;PT;PU;
T13E	;reflection     ;5;27,38,111,67;RF;RG;RW;
T14E	;Path\"drive:/dir1/dir2/...[] = local pc   //computer/dir1/...[] = network";
T15E	;Path\"drive:/dir1/dir2/...[] = server   //computer/dir1/...[] = network";
	;
T0D	;Dossier auslesen ;
T1D	;Sie können via diesen Schirm keine Dossiers ausführen;
T2D	;Nummer Dossier\"-[] = Ende   xx[] = Fortlaufende Nummer für den Dossier den Sie übertragen wollen";
T3D	;Stelle für den Dossier\"a oder b[] = floppy   c, d, ..., oder z[] = Harddisk;   .[] = Netzwerk;
T4D	;Directory oder pad\"[] = Root (Hauptdirectory)   xxxxxxxx[] = bestimmte Directory",!?2,"dir1/dir2/.../dirn[] = path";
T5D	;Dossiername\"xxxxxxxx oder xxxxxxxx.xxx[] = Name";
T6D	;Bestandslocatie =;
T7D	;Der Dossier darf übertragen werden\".[] = ok  ,[] =wiedernehmen";
T8D	;;Sie haben keinen Dossier vorbereitet
T9D	;hoofdscherm    ;1;27;OL;OM;OC;
T10D	;mirror/xtalk   ;2;27;XT;XU;XX;
T11D	;procomm+ v1.1b ;3;27,94;PR;PS;
T12D	;procomm+ v2.0  ;4;4;PT;PU;
T13D	;reflection     ;5;27,38,111,67;RF;RG;RW;
T14D	;Path\"drive:/dir1/dir2/...[] = lokale pc   //Komputername/dir1/...[] =  Netzwerk";
T15D	;Path\"drive:/dir1/dir2/...[] = Server   //Komputername/dir1/...[] = Netzwerk";
	;
	; overzicht bestanden
1	S K=$P($T(@("T0"_QT)),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
11	S R="TR" D ^cA709
15	G 21:$D(TNR),2
17	S FP=TNR*100+501 W @F,"  " L -^HULP("TR",Q,TNR)
	;
	; keuze bestand
2	S R="K\22\3\"_$P($T(@("T2"_QT)),U,2)_"\2\\K<11&K!(K=""-"")" D R0 G YZ:K="-" S TNR=+K
21	I '$D(^HULP("TR",Q,TNR,0)) D F0 G 2
23	L +^HULP("TR",Q,TNR):2 E  S R=14 D F2 G 2
25	S FP=TNR*100+501 W @F,"->" S B=$P(^HULP("TR",Q,TNR,0),D,6)
27	D S3
29	I $L(B) G 6:$G(SWBV),3:"\3\F\"[(D_$G(PTS)_D)&$P($G(^cLOG(boot,"DAM",3)),D),6
	;
	; indien via nieuwe bestandlocaties
3	I $P($G(^cLOG(boot,"DAM",3)),D)=1 D  G YZ:K="-"&("\3\F\"[(D_$G(PTS)_D)),17:K="-",5
	. K BB
	. I '$D(PTS) D
	.. D DMS^cAN000("UQC","USC","SYS.LOC")
	.. S IREF=^DMC(UQC,USC,"DATA","INDEX") I $O(@IREF@(101,""))="" D ^cAN3250(QU)
	.. S K=$$^cANSYN("SYS.LOC") Q:K="-"
	.. S $P(^HULP("TR",Q,TNR,0),D,10)=K
	.. S B=$$SIG^cAFA1("SYS.LOC",K,104) Q:'$L(B)
	. S B=B_"/"
	. D S3
	. I '$$SIG^cAFA1("SYS.LOC",$P(^HULP("TR",Q,TNR,0),D,10),105) Q
	. S BB=$TR(B,D,"/"),SWNT=$ZV["NT"!($ZV'["MSM")
	. S R="BB\22\3\"_$P($T(@("T"_($ZV'["MSM"+14)_QT)),U,2)_"\68\\$E(K,1,2)?1A1"":""!($E(K,1,2)?2""/""&$L($P(K,""/"",3))&SWNT)!(K=""-"")",$P(R,D,13)=1 D R0 Q:K="-"
	. S B=BB,B=B_"/" D S3
	; oude manier
	; drive
	S DR=$E(B) S:DR="" DR="C" S:DR=D DR=""
	S SWNT=$ZV["NT"!($ZV'["MSM")
31	S R="DR\22\3\"_$P($T(@("T3"_QT)),U,2)_$P($T(@("T3"_QT)),U,4-SWNT)_"""\1\\K=""-""!(K?1U)!(K="".""&SWNT)\\\1\\1" D R0
33	G 17:K="-" S DR=$TR(DR,"."),SWNT='$L(DR) S:'SWNT DR=DR_":" S B=DR D S2
	;
	; path
4	S DIR=$TR($S(SWNT:$P(B,D,1,$L(B,D)-1),1:$P($E(B,3,999),D,1,$L(B,D)-1)),D,"/")
40	; I SWNT,DIR="" S DIR=parameter
41	S R="DIR\22\3\"_$P($T(@("T4"_QT)),U,2)_"\50\\\\\\\1" D R0 G 3:K="-"!(K=",")
43	S DIR=$TR(DIR,"/",D)
45	S B=$S(SWNT:DIR,1:DR_D_DIR) D S2
	;
	; file
5	S KR=$S(K="-":$P(B,D,$L(B,D)),1:"") I K="-" S B=$P(B,D,1,$L(B,D)-1)
51	I $ZV["MSM",'SWNT S R="KR\22\3\"_$P($T(@("T5"_QT)),U,2)_"\12\\K=""-""!(K="","")!(K?1.8ANP)!(K?1.8ANP1"".""1.3ANP)\\\\\1"
53	I $ZV'["MSM"!SWNT S R="KR\22\3\"_$P($T(@("T5"_QT)),U,2)_"\30\\$L(K)\\\\\1"
55	D R0
	I K="-" G YZ:"\3\F\"[(D_$G(PTS)_D)&$P($G(^cLOG(boot,"DAM",3)),D)&'$$SIG^cAFA1("SYS.LOC",$P(^HULP("TR",Q,TNR,0),D,10),105),3:$P($G(^cLOG(boot,"DAM",3)),D),4
	S:K'["." K=K_".TXT"
57	S B=$S(SWNT:DIR,1:DR_D_DIR)_D_K D S2
	;
	; overzetten (SWBV=1 -> automatische bevestiging)
6	I '$G(SWBV) S R="K\22\3\"_$P($T(@("T7"_QT)),U,2)_"\1\\""-,.""[K&$L(K)" D R0 G 5:K="-",YZ:"\F\3\"[(D_$G(PTS)_D)&(K=","),17:K=","
61	D MASTER^cQ5 S SCR=U_$S($ZV'["MSM"!SWNT:"OL",1:$P(^cLOG(boot,"DEV",$g(io,$$IO^cQ5)),D))_U
63	F I=9:1:13 S X=$T(@("T"_I_QT)) I X[SCR S SCR=$P(X,U,3),X=$P(X,U,4) Q
65	S ESC="" F I=1:1:$L(X,",") S ESC=ESC_$C($P(X,",",I))
67	I SCR D:$G(QW) X^cA612 G @$P("1^cA706\2^cA706\3^cA706\3^cA706\3^cA706\",D,SCR)
69	S K=$P($T(@("T1"_QT)),U,2) D F1 G YZ
	;
YZ	Q
	;
F0	S K=$P($T(@("T8"_QT)),U,2)
F1	S R=250
F2	D:$G(QW) QW D TXT^cAFA1(R)
FZ	K R Q
	;
QW	W /CUP(22,1),/ED(0) D W^cA612 Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
S2	N R
	S R=$E(B),B=$E(B,2,$L(B))
S2A	I B["\\" S B=$P(B,"\\")_D_$P(B,"\\",2,99) G S2A
	S B=R_B,B=$$UC^cAFA1(B)
	S FP=1803 W @F,$P($T(@("T6"_QT)),U,2),@F92,B,@F93,@F1,!?5
S2Z	Q
	;
S3	S B=$TR(B,U,D),B=$TR(B,"/",D),SWNT=$E(B)=D G S3Z:'$L(B)
	D S2 S DR=$E(B,1,2),DIR=$E(B,3,999),DIR=$P(DIR,D,1,$L(DIR,D)-1)
	S:SWNT DIR=DR_DIR,DR=""
S3Z	Q
	;
ZZ	; 22.06.04 - 16 u 32 * V8