cA706 ;Bestand uitlezen ;%A702 ;do naar %A707 ; [ 01/04/01 3:25 PM ] G YZ ; T0 ;Bestand uitlezen ; T1 ;Foutieve bestandslocatie ; T2 ;Fout bij het schrijven (schijf beschadigd?) ; T3 ;De schijf is vol ; T4 ;Het bestand werd niet overgezet ; T5 ;Het bestand werd volledig overgezet\"[] = ok"; T6 ; werkwijze :; 1. druk op;[ F5 ]; 2. file is; 3. indien nodig, druk dan; T7 ;A;= aanvullen (append);E;= overschrijven (erase); T8 ; 4.;[];= bestand overzetten; T9 ;Even geduld; ; T0F ;Exportation d'un fichier ; T1F ;Lieu du fichier fautif ; T2F ;Erreur à l'écriture (disque abimé ?); T3F ;Le disque est plein ; T4F ;Le fichier n'a pas été transféré ; T5F ;Le fichier a été transféré intégralement\"[] = ok"; T6F ; mode d'emploi :; 1. appuyez;[ F5 ]; 2. fichier est; 3. si nécessaire, appuyez; T7F ;A;= ajouter (append);E;= effacer (erase); T8F ; 4.;[];= tranférer le fichier; T9F ;Un instant; ; T0E ;Export file ; T1E ;Inaccurate location ; T2E ;Error reading drive (drive damaged?) ; T3E ;Drive is full ; T4E ;File is not exported ; T5E ;File is exported\"[] = ok"; T6E ; procedure :; 1. press;[ F5 ]; 2. file is; 3. if necessary, press then; T7E ;A;= append;E;= overwrite (erase); T8E ; 4.;[];= export file; T9E ;One moment; ; T0D ;Dossier auslesen ; T1D ;Falsche bestandslocatie ; T2D ;Fehler beim Schreiben (Schiebe beschädigt ?) ; T3D ;Der Schiebe ist voll ; T4D ;Der Dossier ist niet übertragen ; T5D ;Der Dossier ist vollständig übertragen\"[] = ok"; T6D ; Arbeitsweise :; 1. druck auf ;[ F5 ]; 2. Dossier ist; 3. nötigenfalls, denn druck; T7D ;A;= ausfüllen (append);E;= überschreiben (erase); T8D ; 4.;[];= Dossier übertragen; T9D ;Ein Moment Geduld; ; S1 U HFS S ZA=$ZA,ZB=$ZB,ZC=$ZC S1Z U 0 Q ; ; OL/OM/OC + NT 1 D:$G(QW) QW I $ZV'["MSM" G 100 ; MSM S HFS=$$HFS^cQ9 I HFS<51!(HFS>54) G Y 10 O HFS:(B:"W") D S1 I ZC'=0 C HFS D E1 G 3^cA702 11 S I=$O(^HULP("TR",Q,TNR,0)),(I,J)=0,FP=1903 W @F,@F1 13 S I=$O(^(I)),J=J+1 I I="" C HFS G 7 15 U HFS W $$D2NT^cQCV(^(I)) D S1 I ZA<0!(ZC<0) C HFS D E3 G Y 17 I ZC C HFS D E2 G Y 19 W @F,J G 13 ; ; Caché 100 S $ZT="CERR",B=$TR(B,"/","\"),HFS=$$INFO^cQ5 O HFS:"WNS":1 I '$T D E1 G 3^cA702 S I=$O(^HULP("TR",Q,TNR,0)),(I,J)=0,FP=1903 U 0 W @F,@F1 120 S I=$O(^(I)),J=J+1 I I="" C HFS G 7 U HFS W ^(I) U 0 W @F,J G 120 ; S2 S I=$O(^HULP("TR",Q,TNR,0)),I=0 S2A S I=$O(^(I)) I I'="" W $$D2NT^cQCV(^(I)) G S2A S2Z Q ; ; XT/XU/XX 2 S FP=620 W @FS S FP=601 W @F,@F1,$P($T(@("T6"_QT)),U,2),!!,$P($T(@("T6"_QT)),U,3),@F92,$P($T(@("T6"_QT)),U,4),@F93,@F1 21 W !!,$P($T(@("T6"_QT)),U,5),@F92,B,@F93,@F1,!!,$P($T(@("T6"_QT)),U,6) 23 F K=2:2:4 W !?10,@F92,$P($T(@("T7"_QT)),U,K),@F93,@F1,$P($T(@("T7"_QT)),U,K+1) 25 W !!,$P($T(@("T8"_QT)),U,2),@F92,$P($T(@("T8"_QT)),U,3),@F93,@F1,$P($T(@("T8"_QT)),U,4),@F1,@F 27 R K G 27:$L(K) D S2 W $C(7) H 1 S FP=124 W @FS G 7 ; S3 I SCR=3!(SCR=4) W ESC,"DOS ""DEL ",B,"""",$$CR^cA334 H 3 S3A I SCR=5 W ESC,"DEL ",B,$$CR^cA334 H 3 S3Z Q ; ; PR/PS/PT/PU/RF/RG 3 G 4:$D(^cZKRX) 31 S FP=615 W @FS S FP=601 W @F D S3 33 I SCR=3!(SCR=4) W ESC,"LOG OPEN """,B,"""",$$CR^cA334 34 I SCR=5 W ESC,"CLOSE PRINTER",$$CR^cA334 W ESC,"OPEN ",B,$$CR^cA334 W ESC,"LOG",$$CR^cA334 35 H 3 D S2 I SCR=3!(SCR=4) W ESC,"LOG CLOSE",$$CR^cA334 36 I SCR=5 W ESC,"LOG OFF",$$CR^cA334 W ESC,"CLOSE DISK",$$CR^cA334 37 H 3 S FP=124 W @FS G 7 ; 4 S MSDOS=B D ^cA707 I 'OK G 3^cA702 41 S FP=2203 W @F,@F1,$P($T(@("T9"_QT)),U,2) 43 D S3 S K=$L(B,D)-1,DIR=$S(K:$P(B,D,1,K),1:$E(B,1,2)),K=$S(K:$P(B,D,K+1),1:$E(B,3,99)) 45 I SCR=3!(SCR=4) W ESC,"SET DLDIR """,DIR,D,"""",$$CR^cA334 H 3 W ESC,"GETFILE KERMIT",$$CR^cA334 46 I SCR=5 W ESC,"KRECEIVE ",B,$$CR^cA334 ; 5 D ^cA338 K (K) D INITPAR^cZKR S B="\",FSPEC=K,S=";",TTY=0,(F1,F2)="" D GETFIL^cZKR U 0:(::::4096:16384) 51 I 'E D TTYON^cZKR I 'E D ^cZKRS,TTYOFF^cZKR 53 ; F I=1:1:10 R K:1 W "." 55 U 0:(0::::4+4096+262144:1+16384+524288+8388608:::$C(13)) F I=1:1:3 R K:1 W "." 57 K:$D(F1)&$D(F2) @KRGL@($S($L(F1):F1,1:" "),$S($L(F2):F2,1:" ")) I E D ^cA339 G Y 59 D ^cA339 ; 7 ; Indien Caché : export-file kopïeren + verwijderen I $ZV'["MSM" S x=$ZF(-1,"copy "_HFS_" """_B_"""") G Y:x S x=$ZF(-1,"del "_HFS) S B=$TR(B,D,U) 71 S K=^HULP("TR",Q,TNR,0),$P(K,D,6)=B,$P(K,D,7)=$P(K,D,7)+1,^(0)=K 73 D:$G(QW) QW S R="K\22\3\"_$P($T(@("T5"_QT)),U,2)_"\1\\'$L(K)" D R0 G YZ ; Y S K=$P($T(@("T4"_QT)),U,2) D F1 YZ L -^HULP("TR",Q,TNR) 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 ; F1 S R=250 F2 D:$G(QW) QW D TXT^cAFA1(R) FZ K R Q ; E1 S K=$P($T(@("T1"_QT)),U,2) D F1 Q E2 S K=$P($T(@("T2"_QT)),U,2) D F1 Q E3 S K=$P($T(@("T3"_QT)),U,2) D F1 Q E4 S K=$P($T(@("T4"_QT)),U,2) D F1 Q ; CERR C HFS U 0 I $ZE["" D E2 G YZ I $ZE["" D E2 G YZ ZQ 1 I $ZT'="" G @$ZT Q ; ZZ ; 22.11.04 - 16 u 14 * V8.02