z-READ MZ -f)CAPSTR PRO2ZDIRSCAN FZN3^`@DNSCAN FUN7!]DUSCAN FZN9P$;DUTDIR FZN=BLEVAL FUNBGET FUND1/GETNDR FUNEHEX FZNF&LOGUD PROHHNZ-TURBOCONIP#NZ-TURBOSZNJh$NZ-TURBOTZPQ ZmNZ-TURBOVZR]8PARSE PRObIPUT PROd~RETUD FUNeRZ3LOG PROfLv-READ.ME [Sept 89]% ABPu9c0c{@'3F(r4I@42'S90H$& bbady 'C'Ȁi1*Hlr 5'؞lM6Vq|PIGd )£0 *巅PZ rd鈥($g$ߌq) J -60 V-0C6ʕaSR 7^dR0߃u:aN4o&C^Cw!\UcVyi:N"P/j]V 2툡>(&TZ 2J! 5Ъ(˼ |Z`Ö}"Pbش/:B؇YJhl.lWm0ϥU T4ѥfPp">ҚznX(&@oa3@P9 _W6B1nRJhN iD1 wp) F*\ w擇pVنkj%"hT X aR ۂJpg `.#I71( 0Pux ;YH:x9#|`݈xAT "B0ߑr;W`dp7'!O`>dMU>H)4(fc70 g9x$f<aANZ Z-0@C 7Zk#MM:(5xT yG)6s(_B lcR5E˂$(]7OKZYjaqiĢ GqNXĉ0 )/-ӳ9txK8XguAOf,55+˶ߑ"%y, YHx%.I\.@݆&rR r): rKBz똆f]yAX3!sAEL'%N )M#wNØ+DaQ*0pZ@scvds`1ߖ$hyJ^/vF]9cP7c^AM$ooV r*_} `ZuxeJmĈI6"o%g0,Y Me^<>pg g,N$ïIMKG^gfh4|E~g סic9?1Н"$( c8-+ 41 X);#޼SġX(0$8ݚ>9ჹ'"hףࣃ1{"HaΘG*ѝ` H1kIpU@'?81 .$H3;EAR-kϼ9ck/95;Ԧ_kDkb)6TDN= /=!e*>o)(ŽZ, ,2{ˤ7>L "t9>9E#.Ë7i7y ] q*(xcy{z)>0HɘlT au`Ъd '*)̃JAX:,h=ݿ;)C@H!O$>-&Ý `EJ sR @B *Q Z ƥbW-Ph 3#p,&Ha+ՁK \93'P (@&$.RQ3 H(/|I -Pp KB" A^т@fILcJX:* GL6 8`#*M%yؠR2b){zF: 9B`ͲOT 2B<`J¬:< 1a<Bi &x:>x*T+vyѾaY1 r$302 @2((G~a,j7Zxʰe 2\8I --R3ر#0C͝oѹ d!9();1;9dID+5!Z99ۨ @'BƊl>& Rm4Y AQX(⻈h31Bbx?8xZL###xP7@@+  PٸM\9͹[z" <$Pќ+[r98J?$7*IzkQ1٨£ɹ%$9*|jތp7!Lr` e0$^h#VQd$1YRizϫX) @F K5X INj1_Ö8 "m$*_IcD"ac0<.<>V{WH9ֱ ^իH0:(9\Z$!ϒ\9.X]Wxˍ\$xو89 [IJ 4rv97ǪDBh9]`2+c8u; H70L){7m*XдCHBm1R0Og都 2^?;2~" K7 c Q@ăk `P<\cl=a>&Eeʴ(`R5g"5)QYFih9$ g:.z`M,+m1AN` &ZX'v.w p1Ԩ6(Ă."c'g[JTQI(S.>1SVܑxIj"Y:h!j$UwH'W֛` v2.1!N'$\0q.*"lפC X>kTR5>k(k6;^ט0Šh[r?]>¤F@Jɂ`o%Ѓΰ8H8 y[ m,)L2ePo/ h<i{0e#E h05nՁyVog%)Byȼ2b.^+q-c$ Z[tP/ B nmi/58d 9 y.@,󍑦\M?r6x늄ۈ?4~"0Њlj}J@{8Yub\&e8vXvo_u8&S4'Hu{7uZ[8w(3gXwOuwvvoMWmpkoG0밤&~'mpvHh7nnD:N-REd X8/qʁJܱW4hd֎@-((*@)OoZlf·,:EHx;yd p<7oL܂?kqՂ°+H* ytx8? : ?E߻J)dg'x'T8(%V\6 `lF9ЩJ۠T&6Fn߉*`m $=7+ZϭP2 *!N, ФXP}06𫇓H9QBI"܃؁w2rp#> gn J0 %L@ CtF8%1L l6PG | 6B<9,TohR'!BN[EcR;c xN8C,bٶ@HZ + a;B*"<0BF:8(ض aSr*JEaOT5;g3)1(\"4+Z$ % Function DNSCAN:Integer; Var du : Integer; Begin du := dirscan(dirs); If du = 0 Then du := duscan(dirs); dnscan := du End; vDUSCAN.FUN[Sept 89]% o7R NFCIt9 GDqg2`Q@R2ñ@S )@12yT#&"I@a7D40t,GTӔ2 >ɥyt 3l2ԎFS -H4v !£0@' dB)H$di8PAEc ^R:U# Ǥ)$!4Hnc%tigI# %SW)t4D` *9ԀRg…Ps-K'WAB#[M@oKPdVSCK(B"n HXÐp *:;Ӹ?oU¬ l>ĠS\ot;"(ؠ;? F@lAAD .’s61OL)2L HvDUTDIR.FUN[Sept 89]% o7RRCGDqg2#l2Mðh( D Bc4Nb̝,!g*hٖ eI ;7i '&e t:t Qs7&@N0lB5;NVkLGS(AY N$Bb4rQIN \̥w(=Zv8ɐ699)mFSH 5!A)'Dh(89VgLP ݤjuc؂S4 5Ȁp _&Pļ2z=~7`+$mP4A@2۶!Xb.-q 2m7a@Nd2O;@;CGd) !hc<1#`mF> ODDT:A/ȉKR@BA 0r9CXsq+EQd]3ȪJqq!s< ¡D"D`0D`#CЄ.@ ;`l4 UP۹7Q "SFjOH N 2Function EVAL(RAD:Integer; NUM:strng):Real; Const T = '0123456789ABCDEF'; Var N : Real; Begin n := 0; While Length(num) <> 0 do Begin n := n * rad + Pos(num[1],t)-1; Delete(num,1,1) End; eval := n; End; Function GET(I:Integer):Integer; Begin GET := Mem[I+1] * 256 + Mem[I] End; Function GETNDR:Integer; Begin getndr := get(z3eadr+21); End; vHEX.FUN[Sept 89]% o7 R:$S9;QH`R:9CA4CH !P@:NG# 0 #Rfz #!j6$ E# ࢵZ"LD8^3 HXn!@ :B)=]z_B!n*q\R! DEB:fn2eg9v j f82E`)cI$J7FJ425OProcedure LOGUD(DU:Integer); Begin Bdos(14,Hi(DU)-1); Bdos(32,Lo(DU)) End; { User-defined Constants for NZ Turbo Pascal } const biov = 1; bdov = 6; tbuf = $80; env = $109; vNZ-TURBO.SYN[Sept 89]%  q8-*NF'xa9&Ln:_v2ƍ24(a 6MfW2NgCI>7#)e2 0aQܢM NSlsVSe9麂UP ajno3&=E@igcMt6Jx/4T!@]UA$e2C.VͲaz2egqh@k7- ҇^f!z7l%S-2L 9L{f7*~*<$I"BT!Ȃ$&.. c6&#@;+Ҩ݌p (82= nO8:q,N0# H#ȐP2#"&I`ܵ.2ʲ)b!Z1O<Ѯ/.*l@*S*b1+b$ümCHZ?76s4% R P+@$C+9u a~v(]c°& (@bX_bXEĦVdrdÐv[-nz+>Ԭ=ohˤ"-}Ō7@#G@mK6CJ2Nc4z7aHM\ C $R7*Ƀ3сj:háaZ4ctisjO:U!(ҡjT.Bac$ G5*2J${cd/C%pR—"cP1T+/hzf8!@65hF2% *vNZ-TURBO.TYP[Sept 89]% Co '3 4Lr:ΐs)@l0S .AMQ.7teq1t Si:N% @y7DIB:)ƹPBJx 8sm2HQgORS"3 xM ,t6E]ufm" 3S;a(B""-F R]mgs@@UC.͆B y8bNTZ%e2Hh HS8[G~ t3^)`@c73 -.':H- 2+z"8 rb 9/@Ab0!"䷏"`j. @!# @#4 舄c[(!lbFqo!o "0 #@!xP@) *v 69O>#%8@-a +`ܹ21"P@' Ah<ģ+tp֠*2 昢:+bnV"³\!,ѫjԁ!Hƣo,ʔAݲ=cJ@1yQDwWowm4a v/hp1ӊ.x 376[0E+ P e`͐xg[9ox7 %uhu47h19^vh8f6\.Oxp^egmlcDK+Fin[ݸo;mϳNN2x1i.Ջ +Z#bq8W;s[l2|C`p]2~v`9(Y~U`o@;^/)#w1<޽cc Y_ߗcmo k:}0M:Pr<02@ `;V!|Z 'Y<#05rLC@vNN%{ SI4kcF+u-u 9` @hCDvh [Qd!= F,Dib^dt1望p20K E!ǜ1EvBhSAHhɡƸgWq͉@srM:Ybf qӾS%d’,RC(p3Q2rrMLhki*Ðq(!83OC{lu7 3)0 lVqi1(R# 12` JD# *qN`L*Z4zE6#[2:0[`aw-5B} 3=69Q 4@vNZ-TURBO.VAR[Sept 89]% B9b0c a1 1R Fb 3NG3h9d'h|F'F!8&㡖K(7$ Yr2J'h@ 7дyM 1c:eqc5$@e;gXXs9Lm.cQqʠ "J:j8M)؁(m93+śLfld0 BA1ì@("'#t,R " xg4!PC~p]0qX҇je38!5{QQ+ )36pR$*$$ 6mnxg *"$bXAPq0THDi'pb@I 9@LGAm#3 c`dJ(a,KRm20"*4`B 8AIsls0z"N= H4qT$#j,4(7$.c4%(6"£kz$7*@-b("2T@e0!sN@ < *Procedure PARSE(Var S:str21); Var P : Integer; Begin dirs[0] := #0; P := Pos(':',S); If P <> 0 Then Begin dirs := Copy(S,1,P); dirs[0] := Chr(Length(dirs)-1); Delete(S,1,P); End; End; Procedure PUT(M,N:Integer); Begin Mem[M] := N; Mem[M+1] := N Div 256 End; Function RETUD:Integer; Begin retud := 256 * (Bdos(25)+1) + Bdos(32,$FF) End; Procedure Z3LOG(fcb:fcbarr); Begin if fcb[0] <> 0 then logud(fcb[0] * 256 + fcb[13]) End;