TKFAXU1 ;PG&A,TK-FAX,2.10,UTILITY - SIGNATURES & GRAPHICS;24NOV93 1:33P [ 11/22/2000  4:55 PM ]
 ;
 ; THIS FIRST SECTION READS DOS FILE FROM SCANNER SOFTWARE
 ; ASSUMES THAT THE FILE IS IN FAX FORMAT
 ;
 ;
 ; gewijzige routine die werkt op cache 5 - PV 03-10-03
F D:'$D(TKP) FUNC^TKDEV S %R=3,%C=1 W @TKP,TK("CS") S %R=5,%C=5 W @TKP,"FILE (c:\?.QFX) -" S X="",%C=36 X ^TKREAD S GR=X Q:X=""
 Do $ZUTIL(68,40,1)
 W ! S A="c:\"_GR_".QFX" O A:("RSU") K ^TKFAXGR("BFX",GR)
 F J=1:1 U A R B#150  Q:$ZEOF   S ^TKFAXGR("BFX",GR,J)=B U 0 W "."
 C A
 
 ; Oude routine die niet werkt op Cache 5 - PV 03-10-03
 ;F D:'$D(TKP) FUNC^TKDEV S %R=3,%C=1 W @TKP,TK("CS") S %R=5,%C=5 W @TKP,"FILE (O:\?.QFX) -" S X="",%C=36 X ^TKREAD S GR=X Q:X=""
 ;W ! S A="O:\"_GR_".QFX" O 51:(A:::::"") K ^TKFAXGR("BFX",GR)
 ; ;W ! S A="C:\SCANMAN\GRAY\"_GR_".BFX" O 51:(A:::::"") K ^TKFAXGR("BFX",GR)
 ; F J=1:1 U 51 R A#150 Q:$ZC  S ^TKFAXGR("BFX",GR,J)=A U 0 W "."
 ; C 51 ;
 ; 
LE ; USE THIS FOR SIGNATURES
 ; THIS CODES SCANS THE DOCUMENT FOR $C(16) AND DOUBLES THEM UP 
 ; ALSO SCANS FOR SEPARATE LINES AND BREAKS THEM INTO INDIVIDUAL SCAN LINES
 S D="^TKFAXGR(""BFX"","""_GR_""")" D LE1
 Q
LE1 S ST="" F J=1:1 S ST=$O(@D@(ST)) Q:ST=""  I $TR(^(ST),$C(0))'=""&(J>3) S ST=ST-1 Q
 S A=ST,B=$C(0,0,0,0),C=1,G="" K ^TKFAXGR("TEMP",$I) F J=1:1 S A=$O(@D@(A)) Q:A=""  S M=^(A) D:M[$C(16) LE2 S M=G_M,E=$L(M,B),G=B_$P(M,B,E) F E=1:1:$L(M,B)-1 S F=$P(M,B,E) I F'="" W "."  S ^TKFAXGR("TEMP",$I,C)=B_F,C=C+1
 S:$TR(G,$C(0))'="" ^TKFAXGR("TEMP",$I,C)=G K ^TKFAXGR("GR",GR) S A="" F J=1:1 S A=$O(^TKFAXGR("TEMP",$I,A)) Q:A=""  S M=^(A) S:$E(M,1,6)=$C(0,0,0,0,0,0) M=$E(M,5,255) S:$E(M,1,4)=$C(0,0,0,0) M=$E(M,3,255) S ^TKFAXGR("GR",GR,J)=M_$C(0)
 S ^TKFAXGR("GR",GR)=J-1 
 
 ; copieren naar bepaald de plaats van LOGO_TOP
 Quit:GR'="LOGO_TOP"
 R !,"PV : copy naar ""^TKFAXGR(""_GR,...  Ja=""J""[]",K  Q:(K'="J")&(K'="j")
 k ^TKFAXGR(GR)
 m ^TKFAXGR(GR,1)=^TKFAXGR("GR",GR)
 Write !,"copied",!
 Q
LE2 F K=1:2:$L(M,$C(16))-1*2 S $P(M,$C(16),K)=$P(M,$C(16),K)_$C(16) W "."
 Q
 ;
TEST D:'$D(TKP) FUNC^TKDEV S Y="10,3\SRHL\3\AVAILABLE GRAPHICS",Y(0)="\EX\^TKFAXGR(""GR"")\TO" D ^TKPOP Q:X=""  S GR=X
 K ^TKFAXGR(10) S ^(10,10)="Test fax of TK-FAX graphic image: "_GR,^(20)="",^(30)="~FAX GRAPHIC=^TKFAXGR(""GR"","""_GR_""")"
 S FAXPARAM="PG&A`093661495`TK-FAX graphic test``093661495`PG&A`1``N```N`````DOC",TKWPD="^TKFAXGR(10)"
 D QUEUE^TKFAXQ Q
 ;
COPY D:'$D(TKP) FUNC^TKDEV S %R=3,%C=1 W @TKP,TK("CS") S %R=5,%C=5 W @TKP,"Copy What Graphic? -" S X="",%C=26 X ^TKREAD S GR=X Q:X=""
 I $D(^TKFAXGR("GR",GR))=0 W "  Not found" H 3 G COPY
 S %R=7,%C=5  W @TKP,"Drive A (5.25) or B (3.5)? " S X="",%C=31 X ^TKREAD S DR=X Q:X=""
 S %R=9,%C=5  W @TKP,"Load floppy and press RETURN " S X="",%C=34 X ^TKREAD
 D INT^cD,INT^cT S F=DR_":"_GR_".TFX"
 O 51:(F:"W") U 51 W %TIM1,"  ",%DAT1,!,"TK-FAX GRAPHIC - ",GR," IN GLOBAL ^TKFAXGR",!
 W "^TKFAXGR",!
 F J=1:1 S A=$O(^TKFAXGR("GR",GR,A)) Q:A=""  U 51 W "^TKFAXGR(""GR"",""",GR,""",",A,")",!,^(A) U 0 W "."
 U 51 W "*",!,"*",!,"**",!,"**",!! U 0 W "done" C 51 H 2