TKFAXP1 ;PG&A,TK-FAX,2.10,PARAMETERS;23FEB94 5:44P [ 11/22/2000  10:47 AM ]
 ;Copyright (C) 1991-1994, Patterson, Gray and Associates Inc.
DIS F I=1:1:NE S TT=$P($T(@DATA+I),";",2,99),PP=$P(TT,"\",2),%R=$P(TT,"\",3),%C=$P(TT,"\",4),SS=$P(TT,"\",5) S:SS=1 PX=PX+1 S X=$P(YY(PX),"\",SS) W @TKP,TK("HI"),$J(I_") ",4),TK("LO"),X,$E(L,6,$P(TT,"\",7)-%C-$L(X)) D:$P(NEW,"\",PP)]"" DSPLY
 ;
SEL S %R=24,B=$P(Y,"\",4),%C=80-$L(B)\2 W @TKP F J=1:2:8 W TK("LO"),$P(B,"*",J),TK("HI"),$P(B,"*",J+1)
 W " "
 R A#1 X TK("T") I A="",$E(XX,$F(XX,ZF))="E" S A="Q"
 S:A?1L A=$C($A(A)-32) I A=""!($C(9)_"Q"_$P(B,"*",2)_$P(B,"*",4)'[A) W $C(7),$C(8) G SEL
 I A="Q"!(A=$C(9)) S J=-1 G END
 I A'=$P(B,"*",2) S J=1 G END
SELECT S %R=24,I=1,B=$P(Y,"\",5),%C=80-$L(B)\2 W @TKP,$C(13),TK("CL"),@TKP,TK("LO"),"( " F J=1:2:8 W $P(B,"*",J),TK("HI"),$P(B,"*",J+1),TK("LO")
 W " )",TK("HI")
 X ^TK("ECHO-OFF") F J=1:1:NE S TT=$T(@DATA+J),%R=$P(TT,"\",6),%C=$P(TT,"\",7),S=1,RX=0 W @TKP D RD S:'S $P(NEW,"\",PP)=X I RX=1 S J=J-2 Q:J<0
 I J<0 G END
END X ^TK("ECHO-ON") K NE,DATA,J,RX,L Q
 ;
DSPLY S %R=$P(TT,"\",6),%C=$P(TT,"\",7) W @TKP,TK("HI"),$P(NEW,"\",PP) Q
SET S PP=$P(TT,"\",2),LNG=$P(TT,"\",9),CHR=$P(TT,"\",10),X=$P(NEW,"\",PP),X=X_$J("",LNG-$L(X)),L=1,S=0 Q
 ;
DATA1 ;
 ;\1\3\5\1\3\45\\30\
 ;\2\4\8\2\4\45\\1\YNJ
 ;\3\5\8\3\5\45\\25\0123456789*+ -
 ;\4\6\8\4\6\45\\20\
 ;\5\7\8\5\7\45\\1\01
 ;\7\8\5\1\8\45\\30\
 ;\8\9\8\2\9\45\\1\YNJ
 ;\9\10\8\3\10\45\\25\0123456789*+ -
 ;\10\11\8\4\11\45\\20\
 ;\11\12\8\5\12\45\\1\01
 ;\13\13\5\1\13\45\\30\
 ;\14\14\8\2\14\45\\1\YNJ
 ;\15\15\8\3\15\45\\25\0123456789*+ -
 ;\16\16\8\4\16\45\\20\
 ;\17\17\8\5\17\45\\1\01
 ;\19\18\5\1\18\45\\30\
 ;\20\19\8\2\19\45\\1\YNJ
 ;\21\20\8\3\20\45\\25\0123456789*+ -
 ;\22\21\8\4\21\45\\20\
 ;\23\22\8\5\22\45\\1\01
 ;
DATA2 ;
 ;\1\4\5\1\4\40\\38\
 ;\2\6\5\2\6\40\\38\
 ;\3\7\5\3\7\40\\38\
 ;\12\8\5\4\8\65\\10\
 ;\13\9\5\5\9\65\\10\
 ;\4\11\5\6\11\65\\5\0123456789.
 ;\5\12\5\7\12\65\\5\0123456789.
 ;\6\13\5\1\13\65\\5\0123456789.
 ;\7\14\5\2\14\65\69\4\0123456789.
 ;\8\16\5\3\16\65\\4\0123456789
 ;\9\17\5\4\17\65\\4\0123456789
 ;\10\18\5\5\18\65\\4\0123456789
 ;\11\19\5\6\19\65\\4\0123456789
 ;\14\21\5\7\21\65\\1\0123456789
 ;
DATA3 ;
 ;\1\6\5\1\6\65\61\1\YNPJ
 ;\2\7\5\2\7\65\62\1\YNJ
 ;\3\8\5\3\8\65\63\1\YNJ
 ;\4\9\5\4\9\65\64\1\YNJ
 ;\5\10\5\5\10\65\65\1\ABCD
 ;\6\12\5\6\12\65\66\1\479
 ;\7\13\5\7\13\65\67\5\0123456789
 ;
RD R B#1 X TK("T") G RB:B="" D:S SET G ER:B["\" I CHR'="",CHR'[B G ER
 G ER:L>LNG W B S X=$E(X,1,L-1)_B_$E(X,L+1,99),L=L+1 G RD
RB S E=$E(XX,$F(XX,ZF)) I E'="",$T(@E)'="" G @E
ER W $C(7) G RD
D D:S SET G RD:L'>1 S L=L-1 W TK("L") G RD
C D:S SET G RD:L'<LNG W TK("RT") S L=L+1 G RD
R G:L=1 RD S X=$E(X,1,L-2)_" "_$E(X,L,99),L=L-1 W $C(8)," ",$C(8) G RD
FUN R A G:A'=1 ER
B S RX=2 G F
A S RX=1 G F
9 S RX=3,J=99
F Q:S  I $E(X)=" " S X=$E(X,2,99) G F
OUT X:X[" " "F I=$L(X):-1:0 I $E(X,I)'="" "" S X=$E(X,1,I) Q" W @TKP,X,TK("CL") K LNG,CHR,L,C,B Q
H D:S SET W $E(X,L+1,99)," " S X=$E(X,1,L-1)_$E(X,L+1,99)_" " W @TKP,$E(X,1,L-1) G RD
G D:S SET G:$E(X,LNG)'=" " ER W " ",$E(X,L,LNG-1) S X=$E(X,1,L-1)_" "_$E(X,L,LNG-1) W @TKP,$E(X,1,L-1) G RD
E G 9
Y S HP=$P(TT,"\",8) G ER G ER:HP="" D HELP^TKFAXH S J=-10,RX=1 Q
5 D:S SET S X=$E(X,0,L-1),CC=%C,%C=%C+L-1 W @TKP,$J("",LNG-L+1),@TKP S %C=CC,L=$L(X)+1 K CC G RD
 ;