llXEA\+݀&Zt]ZlH݌ݬ݌ZZZ=<%hIv ZYYYZLiA f̐߸*\% 8d*%089 (  @   94*%,99(   @ :*%8:l@H:8TUV0WXYZ[\]ppMF|d<ydH :2" properly handle backtabbingH$a[,a\f[c[0RLio[18]fc;a[a-1' reset width, go for more.88r;n< 0 1 -io'[:1Dr;n<0-io'",b_1-@1Yc8d 1 or 0 :since K10t==K is equivalent to K1t==K", and leaves type identifier % 7.dd PPPP note PPPPP the next line was modified to make the repetition factor for tabsdlb[r;n<1-io' #b& is position of the next KtK code. if its width % 0, then itKs niladic.lXc[-?=/::n_io",2"Yr S/c is rightmost point, @1Yc is present position.XTl11>n[si;a' row index into #r& of the KtK code weKre working onTPl10>]fc[::Rsi[:r;<2-a[io'%7"/I1RRr"Rl11",0 loop on tabs...P\ the equivalent KxK codes. variables are reused with new significances.\d the following portion of code replaces the width in KtK codes with the width ofd]siU0$c[T::Rc"R 1 0 0"/c$Tr;:bE 0 6"/IRb<1-io'[@2-:1Ua"_@1Ua compute length of phrases.Ta[a/IRa$a[::fq(f%KPK"/fq",1$<r;<2-io'[b compute type of format phrase.<(b[:KgfieaxtKIff/f"_io(\r[ 1 1 0 1 ?:::Rr"+3",3"Rr reshape to matrix and insert column for type.\lr[c?Lfi fnq?fnq/f blank out non_Ks and non_numerics< convert to numeric< expand via #c&.ltc[c&::Rc"R 0 1 0"?:1Ufc,1"/ff set second element of each triplet to 0 for niladic KtK phrases.t@ format phrase contains a period.@D the third value is 1 iff the correspondingDP the second value is 1 :forced by left_hand expansion".PD format phrase has a repetition factor.DD the first value is 1 iff the correspondingD$ in each triplet>$` the above line creates an expansion vector of length 3=#no. format phrases&.`ffp[ff(fpfp[f%K.K ff[ff&@1U0,ff $ff[fq(fEKgfieaxtK$$f;:f%K_K"/IRf'[K@K$ f;fq/IRf'[KK fnq[fn(@1fq fq[fEdell9>fn[fEdsT]l10=si recursive use of #rwtd& for parenthesized format phrases.TPr[:rwtd 1U:)?fnb"/f",;io'::n=Ra"Ra",;io' rwtd 2U:(?b? 0 1"/fP$l8>a[rwtd 1U:*?b"/f$l7>n[:n",1]0Lerase KrK l6>]:Lvi n"/l7 ]l8n[1]:0*Rn"/l6n[1Ufn/f$fn[*?c?fn(1Ufn,0$fn[(?c/bc[fc(b(b[lrp?fn?:-/fn"Y 1 1(l5>fn[a%1]0Lerase KrK`KPPP right parenthesis must be followed by comma or another right parenthesis.K`Lerase KrK$a[:-?a"_-?@1U0,Ta$a[lrp/lp]:(/lrp"Ul9lrp[lp(rprp[fEK"Klp[fEK:K\f[::*?b?rp*@1U0,rp"fc(@1U0,fc"/f remove quals, decors, and their texts.\rp[b/aL`QBDCL@SxIPPxBMtYpYPTLOTxP@ P( OT R X Q Q L N I Lh M( MD SL D C OY8DNATDM4<3B3333p3T30C@3MD@2222h2@2(2 Y111111hM1L181000T080/////t/X/<Ql...t.0 -!-"-\#,$,|%, &+&+'+'+'+,(+(E)***+*0,)-).)4/(0(1(P2'3'4'4'h5H l8>r[:1,Rr"Rr <]l45 initialize if num vector left arg<f[:Ra"R1s[Mal75>c[_a,l7>]br;n[n-1' loop around,Dr;a;n'-Ica'[d insert characters into proper slotD,d[caY::ca=ca#Rd"RKPK",c1Yd,$d[@1Us;n'Us;n-1'Yb$]f;n'Ul7 l5>ca[Mc1[c;n' $]br[::Rf"Rl5",l8$,s[0,S?f?:-/f"Y:b%@1Yb"/IRb,b[:n[1",b0s;a'[Ms;a' initialize result0a[f/IRf,]l3 process text fields,,c[:@1Uc",:@1Yc"-=/a;1 2', ]:a;3'%7"Rl2 $]:a;3'# 4 6"/l1,l2$]:1^Ra"Rl4l3>a[4Ua8f[f,a;3'%4 process a, x, and t fields8f[f,a;1'R1@]l1 if #a& is numeric, assume its rwtd result@P this version will> :1" take result of #rwtd& as its left arg.PL`GNPH0<&GtG'LHID<A'4HB$AA<@0]l1 process numeric fields rj0 |l1>]:1*RRa"Rl2 ]:0%1Y0Ra"Rl1es r[a center br 0KPPP mismatched parentheses.K04l3>r[:1,a"RaY::S0.5=0Sa_Rb"YK K",b4L KKaplPplus Hfmt _ report formatting instruction manualKK.L(l2>a[S/0,-?=/ 0 @2 Ua( l2>c[c,=/a;1 2' c[c,a;1'R_a;2's $l01>]:1%RRa"Rl75 1$c[c*1Uc,0$z[:_-/)?K K%z"z1$l3>fc[fEK,K (]:a;3'^4"Rl2A l \   !"#$%&'()*+,  -./,0-l 8]:0%1Y0Ra"Rl0 Pr[ 0 4 R0t[,tr[a ljust b,del[,del ... ] PPPPd,D for detailed information about this function, seeD,|]::2$Ra"):)/a^1")1%@1Ya"/l4,$Xz[s rownames t]:1*RRa"Rl1 $Ha[:1Ua,:I1"-Rt"_1-a$, l4>]:)/:@1U0,rp"$rp(fc"/l5,dr[:-/Ma"Ybz[t%1Ytf[:f*K K"/fb[b*@1U0,b,8$z;:::0 1 =s==s"Uz"(.*K K"/I1Yr<'[KPKds8Hr;c/IRcs[c0, /dra 15 jan 1982,8\r[a colnames br[:S/0,-?=/ 0 @2 Ua"Yb,,\l1>r[:_S/0,-?=/ 0 @2 Ua"Yb,4 modified version from #1 format&4 l2>r[:1,Rr"Rr P]:0%1Y0Ra"Rl01s H property of stsc. copyright 1972, 1975, 1976 stsc.H tl1>]:1^Ra"Rl4 8r[::1Ub"Idel;1-io :none"/$changescolnames$z[:s= 1 @1 S=s"Yz$/Ifl11l102 l9 fqfl6ldescribewtd  si ho*rp   lrp  lps  iot  fq amhfp   fnq  fn   ffp  ff   fc   ds   del  rwtd    tcrownamesz( (c[c,:rY1",1 ]:r^Rb"/l2c':rjust( (l0 Xsi[ 1 0 ULsi ]0db[:r-1"Ubb]l1]:0$@1Ys"/0 ]:)/f%K K"/0 ]:r).%s"/04KPPP improper replication factor.K4$fc[*?c?fc*@1U0,fc$c[fEdsb[rUbljust_cX F      c[XU0l8$b[1l75l78l5l45rp l4<(l01 l2>r[:1,Rr"Rr b[a/fdr[:_-/Ma"Yb$a[fEKobclmnpqrszKd$Pa[rwtd aG l0>]:1*RRa"Rl1 $si[:)?)/si*KPK"si$,r[a rjust b8a[fEdel]siUl3 H]:0%1Y0Ra"Rl0s 8$ modified..... /dra :see line ;48'"s8io[KKI1]l24 written by robert a. smith, stsc.4\r[rwtd ff;:@1U0,*?a?c"/IRf'[KPK,( origin indpendent.(l3dl2hl1(l45>r[:S/a[0,-?s"RK K(<]l1xr[S/a`(]l1fc[c/f%KkKGXa[z/IRt(si[)/si; KKformatting in the aplPplus system _ userKs guideKK :stsc, 1982" 2"** rgechanges from documented behavior :formatting in the aplPplus system userKs guide, 1979"> 1" for the result of #rwtd&, column 3 will contain a seven :7" for absolute tabs and a five :5" for relative tabs, instead of a five for both. 2" the functions #colnames&, #center&, #ljust&, and #rjust& will now accept the result of #rwtd& or a format phrase as their left argument, instead of just a format phrase. 3" #colnames&, #center&, and #rwtd& have all been modified to correct their erratic behavior when Kback_tabbingK is employed. 4" fns which call on #rwtd&> center, colnames, rjust, ljust accept a numeric vector differently from a numeric matrix. x.  l1>]:0%Rb"/l2 format fn[fn&@1U0,fn b[a(fEKPK,del centerf[K,K,f$hds[K0123456789@_K$ @ z[ eseLdm0 9costscco md te0TTYX?lTSSSI=S8S$SRRRRRO O NNNNNN8FlLLR$L,LEKK4TKKKKtK`KL K8K$K J#JJJJ)J|JhJTJ@IV Z4UJU8J(X x d8 P; << $   5.#4$4L:   |8$P<(D,EP<NTV F 9Bx  $+t`pXYt]<L&@\Z AǸJǤeǐfxƈ/|8ܠ,(QH=4v U@",yrC۠یTxdd !"/0$&'(,4%+13* 2-.