v 26JUN93 JTHLIB16FORa^ JTHLIB16HZP-JTHLIB16REL3 4``JTHSRC16LYR?< Custom routines originally developed for use in REMIND and ZP fill somewhat special purpose needs by doing things slightly differently than the corresponding standard library routines or by providing new services that I found useful and worth sharing. Vers 1.6 adds a new routine, ZMVDFN, that expands a ZCPR3 FCB du:fn.ft to a memory buffer in a similar the way that ZPRDFN displays a ZCPR3 FCB du:fn.ft. See JTHLIB16.HZP. vJTHLIB16.HL&"B( ABh X<$@ q"P $ HEԀ"$!2@BV2fy@1 @S4GHr0"y@C:ΆhC(bt49* GQ$t9̇Sq CepbnHS)9r4Noik8i6Mic0(>R%?(fpbCn=& f6SJt1 At2ʆG`s8 4C͖\I<^O4ĿphM9iZvMf@ $tp\ExdRd= EXEdO0ddNHQ LL wM"iAl1po<R cR4 !MDDG3 qwmF1ar Y]hbAd9hYxXh$i idѥz0ahȀcQG%~J&mL60rue%tnSmM,!*)ɓ3UQu&Xنc)EY Q̬-IDc1 Nu XB LYJ d泆RXn :Q۪%6Q Z2XLЀm]mۙ kir+S(Uj4е< K|ţթ;O j^sa/8GQM>XF4nݡqEa鱖lxszbdvG,lXk7yXe!wdԩMlaT 6 LTqkWdJ2wk5 0*03 C@7 CRaؔp 4DQ8TPB"4 @= 5PA,#,@"K L"8 驋8Ѻ(ԝ%ڔ42,ZTKl`U:d( ذ -Q.b7F:"Q{Wht  Cr ڐrciЪ%XU򘀤*}A>hB1@ǀ)ZMŏ4m"W\kd;QNfydlH3x&T Ϛ R2(bEҴWhP'DCbx }Tj*H)KQTNH4ʲ 'U]̙y l$@@dEm.hE'&c&7H8tXzH,'8Nr2uWB1 l@f[eP%Ԉ&HlEs^$b'nJO|ߜA:XZJdY'\u MzI:2a`Sґ +22HiRʰT<%* 0"@TY*ӉW fjJjېGʘSLajRt iumsF Xr-07Α]o0HBCAi K0+%f$&?3>ApT !@\ #NA~[o\C{ޝJJR8iPMJ=>5%AEƦQRn:{x7Atչw4BYx&< AF֡WhTOwG;l hCe()@ȦX ھ|0d"&;LDdKY4)*;pڠ8eў4Ģ_-jj)j1* ]1[OD%^.4"AH̊ /DCaL:mqdIс"${cM6֢i5i#U\'3)kh л?Qs@&-C $ҨBv ]5<rj J2-J`eJ.&Rq*5ݳ0dj`pf%Y+4VKsA"jN]֕iX& 9`e;@(p` x: _ :1@\bU|Di;$U5-=%MS1i7m%kbvUdl$;S6[*.6jCK֬P'k7. f'b ٷԽCn=1aWDc`̥ىw3/t, 7UcnUc4&yQGPf xK lhw^_G~4!qu_fFƘK1F1̞TY$vZ^jS6iT4[iag=ʚQ=۫TWmxojIz{{p|ɤj@d EY"̍%nrX*D;GUɧ԰+5sE,"P!vtu2b{ui0 R&}\Q_J+R.2.9ck+R 7 BC4P:%Gbp1Zha wmmHTpRg_wU9VUgVVm:QQl8ThVHp:FUTDAA 4 H_cXg%\EbHf 1@0wrhpsNPWvW`Ȉ؊hgpUiOp H O{iD :dhȟ188QYѷ&#PxqcQtdWNr&vw)O,f6s,Ӓ19.;=sBiFHjBdEUz'Uuu]u$^vv6Ȑ'hgwk$nVq$w+'||swzfvf#gGdx6]xc&xwaxn_RyEgyuly#9vizG3#d\@2D&Z2bkw(45I)8 ӄ\ V?S']@t]e5]bB 9mRFs# uG"58$KU]U P/$z4][n\],]Q{@lpGepiS^_ ``R`v ~.a"QaaaaO4ub]gݎ6}{&~%('t~s0~Ea!VLo" #4'sh{7+%%tfpu`Yb> AB(.0-b+hӉG{'ap&{gQ{4&ƪ{)rr7#9W0Ѭ}%d}W-I$VۜPi mb37PԻ#L*UPct 9$w&X;fi}wx(*+Qǒ1x3ZgS.=y !|ƪWwFO֏v4i6igv8szJiKi{Tڛ%({#jVLWU*Y lFTIVlkrS6У4NI"GSu7vW_RVK1eCS f81NrtB&S3D4E1 aq0 q2Y1r+a# Q#0Z.b:"c.huAբRG%8(a"[mSrI1 -/R'r)37Wvc*Pl& %%"W$$Ҽڱ:ӕ"B ֜!jxMBp  M"299220"KB@rKG91P"\gE*"GՄ,LBa'(I;:KZ0o8W C@Levt]|{5f't6%*/iB(U3x8PhŢ;AA*@H1"C:O"{K#TXVk0Z ((?e1p18iwy`8``Pef;Ƚhiȟ(Z" 0OPTA10T +2A0@+ :Wf<"[v0\TCZ*t(&/[ ok U%[>]Co+dih\A\UC@ NHy@bj;ejA^+bD Sb @ICK`s;kOc"B2x*!c˜? h :Fn+nh i£jIo${%,6Ì:6 AbMHb:blO 6(C X <]>k"Sh ,wP_kg g?9i\QAaYǜ]ral[KbQuoɜʠV%\:e|N Y 3d$QEGZ186ް@a&Xjbv p.SI6.'Єy<V#T]4"4DKNU:P[IRh2G{zdd7Mk[(e[64-lOTyO" r*pn'M EXPls3#Psr{u} J P%WB8fBZk *0"nqG&EV=^`Ny!+0KY]ۘFE-e;tYFlҺϻ tFNjR*ΨR\<~́\XIZŮJU[1<'lMbf(̇bLB6el_NѤSߩb&+ѩkpX]DZ͂]Sy }M*Rfgۅ¼Ɩ܂^܏bmZMܥսɼbv)F+ؠ64]@ϫRaҊd)j|-~*a5l E;)#:zjWIX53W==ɥzC]bږAn(a2 nC=Dt90 Dmŭ&3&gN"G#6+6Q}{^r?%& #:n ۵ =((Oy R0Ծs_}SWYx$rҐm]^]b$B-5">=dNPT}"t58U -)Z+trzŨj"KU8b|=E\-L&OT-TmlݕPPD՗fLcTz LCoN|j\psTK۬inn,KnIyf>%e&^ڀSwyQj S{51^.OﶪEWƔ]ԽM2X54{<&JgR -#=W3GzrB ZMpy;%п#KԂ4=ѕ&{e$Ţa4-oIoqK<4`Qʁ\M2fW.Jف^??q:39H,_NB)7._4JeE'²W;&n|mZ`%G8 r5g~ k.\arUߜj'<@UZᑴ) x>z/iKA9H3ghEa/Ŵol%1bU)a#n^ 夜a%%jOtd0if]PP0ҍ%(7 VЌ`UDd4(A PP5?bZV(G*m,X  0 kq@):=X@G8u@($21??k@(v8h#@ ڰa2і px@a׀ LP a>a@#?:8|n?-VF`&|4\$a9d\ ot8?#K0$;V,V6Lg"+(*)FL*2r jt"#!G2"22SV`Tdթ@r,2t(?#a??#{X E<`: Us:Ù 8:@@0i`??Be`= PAd (FͲ6Ҁ X(B0ٛk0&>InGg2W̘FNAMZQdD5d%MARZPRDFNVU$eI@| -`peh@Ch >yC,a6L^jD``C6A s6g1Fd? mL<1Pȉ*jԐ J Hp ?J HʓU`TDM!SRDAT1SP_ +U'3^!#[4f6O/20 yf@äVͧ x#q@-!;$ L>3iͧ EzY`Ĭhͯ Mـ[ zp.8&㩄y#r<  F`a< GSqJ:  u93)e6 a67Q 8TdDdU)@ԬBIEBA0B#b.^2 #1Pr9D nG@2RB*r,2t(?#a??#{X E<`: Us:vJTHSRC16.LBR&"&"&" Jc0!hGwwX#70D+ԦڪZrMΪ|xԖ#TnKPFؿy'TZckK\}S_Dj?~kWگdaga`>|dFmK7ozǯɟcYr ,IDt2h hbw&F  =V=A/͍a;|.HL"/ s;>S-~anz뽟w*yLNޔ\jY|}nxc>":ss91u'yRpm'o ]o5 86pzQɥkwRCV~=do4S`^OS+y1hgZ~Ö\Ś% *n1l`1UΤ@ꎹeRx`q* Bq%#h Ҕ+]lƢN_޶7QHҩVؽboՓȚg[ʰ2Vޘ<7pNEBqh!ph z7)Hcn}II(WQѰc~"$ΒJFUeQ0} /3d\]®s\*3cv2UZ{ݩ,6%:HklqS)a[e(L/כ }{fI9iUCn6с/_H{ }}=j/]s R,.5_=: >.C8h2Z׿v3R]"l-{Arq4d@1^?~HG0z}P7){R쭼n R#z܍Zy¦)TQWU!J3jCI\hT<?CK;u#J*3uV}ɑE iM|bLlew`8LT1)ptG N`n"dj0:UEg7@0Kf= `Nh\>9ww67FڲXӴ 7|ͧwm{q}Y2 ѕsF𧳞bupMZ÷>69ԮWY^Y-s\c>V!2?h븘6,Sht{# bPV[]遞)X!4|CNfiCCvǻj*Lh `-dƍEpw}J4A>!g~%X68~*s7Jvեv@lVn9kNLZȑ\s>A-6˟mP_*ԹE֚'KЁk-[7sZFrOTXlqiOtDF_&!q1E_.c5A2ϒFpS~U(~= 7t8C;F 93 \+)ǯxrʂ%S=|! Em6`1%,Gu:UE׸W~{CLokB>0-\6]y%+;3=4;>cZmCӔwm>c~g0ʖ.k9m …ń S?N ,_f<؄T.gkn5 p0 =-Oዟp#{eA} t@"|u|zlfiŖԷkIBp`Hx 'h{0G˱୚\t[ۡYZEP4#_ `ο4fJ`|ٞӵ Wi m\w SGN D\T}N%Z]/ 8^yۻ콿于aGuU귻8eOuȝ>&)#c$6-AhItB_:{9~r^ek-ct^2m'Aq 6Y$;NFƭ~3pLjZSS=A`ՈN^e 0G"<5 ߭n<=eё|֛4p+:O<}jXoXyLpo< P|#D[s7{.8v?_l>\8>d@dҥ1@5vE^,tl‫1񼢬6AJc8 bpbTеhT *e"Vj[ǦÞXԧIxVnf,z-Yĵqvz;Aym_Hߚ#&Cږ4 ?sAg2uwDo8a-R2*;M9YazCqHKP"~1|"zB'EHbΝ[bK1wz+_ٰV7w_x AǜOOys|3_BIte~URGH9_{3/6z˺6ZO5>,ޟ'r}5:́AH.j5>["x"*Ŭ,a&?"[0E^Nuue-{iԅ~UIN~Rks~90?3;$64mY;*2uT{ a5Do,Kc>@yE먇0,U!ȅ˵=7uPsuDk__5>_QY%4ly,j=-,:Jڤ׋:=YvBgE5[;z/wEj<o ಖۍˏUQZF) PLЗMuj^%gp8QxYbb5v䄦`usSuѹxEυϯS Kt7v)>Wy孷HVW:=fWkM_}?@狒fMWO衖XK[s;?2d>˹D]Hw(I!/?U/ԒJ}曣tQW ;'AGsS!"#c0Ss7sm]_$ XFg=vFxX~ OxnXs&8.]F0ug[;dlwU|h Ȯ$9RTtrVǹ驧sː.{qA mܙue3&j*z󗦚;iKԧٶgۊ5_c@jA9'I']VE.)}d8H*I/ڸw=9IrxU;hgo h`2xNegR bV'zL3Ҿ3=OYHف%ZƢ<4h;}'{X!KX!s}`ׅ'IzsPJw:Z+Q/v27BIS;&w 8aR_-dv}lq8$oy H^Vh2l_UM|J_||ն:})U{O?v6P'v}/]1B(!_Ro)%I'I;R in?yТ}O~{aPU_~8;05U_-J<u$G{S;jUE[ŘqɥX!]9\o-s d'K0/VE=JU]piD6g ?ms֐z@` 7^!9:֋-qn3{5w~]ȐOo7Yxp}a+dp7\x͢s u s 12hu01?owrT@ΦX&W.Oޖ'M钫l+en mk~4aC\T<曩ذM@rK}-8Y:g`u9f௜(I5Z=Wʾ4.ǃVn{gZ^ `qýbG&*#:>rJO(Ya=W/:80j-yC?wZ/:=L/ Ge79h.:6i4щ*jiI >ſ3n#b`4V4;fd^MuR'Qr'GwKsa-<#tדּ^;~;y>Rq;[u֨cV|]'a%d0?'II=M-Ηa/^]A&D =KP-i997l"/"f,AR;8_ƫ)K-V괵ՠ) WM0m92CAb7\xQ|ʾ`d|v)`\ 2z#q oqh#0*v&=JHV<{Bo뉲p*n(7LvVuՔn|Ύrk' ^ q*^54ISkQ[:M.r/6+Np!\ÚٵhI4o#,{>{T */Yny::T4[T87csWڽ)uf!6Z'8!(e߶wy-.?%d%\r3}3}wO컵7~B)o6}o> V?G!ovu.S/]`PyCy^\}~-Lo=rT1q`_f}rgSIHXIM%I|AawGx_ډn_5 S>i6:Ys,OF}ǍOA^Hurph&t SG/&}0_>?=GIS΂b;Ћj19':R#Iכ֜,Y_21ʭe);}'٦uUB$7EPp[t|m]QuVSVfSwoϹeì=`OM63lZ[We? <θQ7(ۻo=|oO^l׏nFAIX|?Cb9Qλ;GcE%G&J ~_c8L}l.-}/SꯪȀax>w9Fmx8͓$*=vz