zß-READ MZ -Ÿf)CAPSTR PRO2ÁZDIRSCAN FZN3^`@DNSCAN FUN7!]DUSCAN FZN9P$;DUTDIR FZN=B�LEVAL FUNBõ˜GET FUND1/GETNDR FUNEåHEX FZNF©&LOGUD PROHH”NZ-TURBOCONIP#NZ-TURBOSZNJh$NZ-TURBOTZPQ ZÿmNZ-TURBOVZR]ˆ�8PARSE PRObIÑPUT PROd„~RETUD FUNeR½Z3LOG PROfLvþ-READ.ME [Sept 89]% €ƒAB€P¨u9�â�„æc0»c{È@Ú”Ï'3¡”ÛƒÉF÷(€®r4™ÍI@42ˆ'S9Ôæô0H$& ‡Äbba”Üdyˆ 'C™”ØæŒ§'È€Üi1Ô*çHlr Á�Ë5'üØžlMç6VÈùq”�|PIG�—€d )„«Â£¯0 *Èñå·…PZ¤¬— rd鈥…($¢g¤$·Ãߌq) …JÎÒ Ã-åÄ6¯ò0 ÂÜV�‘-0CË6Ê•’ÒaÈSòóR Ý7^édR0߃u:aÐN‹¨É4o™&†CÎ^C w!µ\UšcVãéyiÄ:›¢NÔã"†­P/øj]V ð2툡>Š—ûë(ì&ÁT’äZ� 2JäË€Š!ª œ¢€Ñ5Ъ(˼ ”|Z`Öé}"•PÖÇóbØ´±À/:𲙬ŒB؇ƒÌYƒJÁhl‰«¾ú.lW�m0²Ï¥Éø’U� šT4Ñ¥fÝ€Pp">»ÒšznX(&@Ô¹oƒ‘°¯a÷3@Pˆ9 °_W6B¯À1ÓnRJhäN ÑiDå1¯ wpñà)‡ž ƒF*\ w擇¶pŠê½VÆÙ†kjä%"h�Ðï†Tè­ X aR ƒÛ‚Jƒpg `Ð.¬€Ì#I�7×È1¸( ÁÕ0Pux Ð;œñüÂåY£�H:¹x„9#|`݈òxA�T ‡"âBÜÅÀÄä0ß‘r;Wð§`d¶‘p7'�!O`Š�>dMîU>H)4(fcÉÚ70·� ˜g9xÔ$fü‡ŒÖ<ÈáÊø©øaANˆÄZ èÄÐôø Z“-0@ÓC¼ è7Z†ük¥ôÊ#M„M:(5xT yG)Á¹6ƒsžˆ(ÙÁ½_´ŠªB lcR�5EË‚˜ð$(]»7”ÛOá—âÐÞÃïµøK™ZñY¥ja®qiÄ¢€ ×GqNX†é†Ä‰0ðÄö )/-õ¿œÓ³ª�ÚÉ9t�xK8Ž—ŽXguAO¨Ûf,5ŒÀ€5Ã+’˶ߑ"%y”¶,å YHx%·.Iæ\.±@݆&rRØÙä �r´¤èÕÙ): ®Ûr¼ŒÛKÈBz„똆Þf]yºAX3!sÐAÔùŸEL'÷%N ˆ)MÀ#wëN¶Ø+Da˜·ÒÙQ*0ʲöpZ†“@ís�œöðcÞvds`£½‚žûÚ�1Ýß–…$hyJ^Åù/vä‚ÁFû]æ9åÍ—÷–cPºø7c^¸AM$oÐoÐV r*Ö¸¿_ì}Ÿ¢ »�¤î`Zuxeµ†JmĈ‹I6"o%g0,Y Me^Õ<>p·±gß gŠïè,N¸Â$ø�¼ÈïºIÑMKG^gf‹¬h4|E~g†ã— סic¸éö9“¬ð–?1‘±ùÐ�áÔ°"†ˆ$(« c¡‰8-¹ßÙ+˜ 4˜1„ X‹)è;ƒš#€Þ¼SÄ¡È�XÐ(ˆ‚0�$�8Ýš¢Â>9ჹ'�"h°Ø×£à£ƒ1áƒ{ä"H©ÒÉÊaΘ‚G¤ŠÚ*Ñ�³õŠ`�Øã ºH1øªÂkòIõ‹p²ˆÂU@©ì'?8ò™Á1 ˆ¹.$H°Œ Ë3¡º;EARÁ—€‡-kϼ¸9�ck“Ò/95;Ô¦“_»ûØkÙDkb¶«)6›TDÔN= /=«!Äûeµ©*½È>oü)(Úʶ�‰ÂŽZŽÌ,Á¥ ‹í™½¹ú,Ò2š{ó¿»Ë¤Ð7>ÓL ¢"tÀª9>À9ÉÕE†ëü¢#üš.Ë7iˆ7yÁ ] qÈ*(Š¡x£cÿ˜y{º¸“ƒˆzô)Õ>0º•HɘlÆØè¢T au`Ъ¯d °'§*)̃JÈAX:,h=€Ý¿;‚Š˜ªÃ)’C@œH!š¹OÄ$ž�Æøˆ>Ñ-¸•&Ã� àß øà¿`çE’J ‘s€RÝ â@«ÓBÚü å*úQ Zà Ðëƒ Æ¥bW-PØÂhŒ ¨3#p¿Œ˜,‚˜&Ha+ùÕ�œ±K · ì\Á93…'ˆPŠÊØü Ø(@& $.ŸRQ¼3 H¦ƒ(/|»°�I -P¤ˆp �”½KàÚËñBÌ�Ì"þ ùÌA�â^› Ñ‚@füI»Š»ê‰ËLùcŸJX:* GãLð6 8`Í‚#€«µ*³º²ˆÄÔMšï%yØ ÂR2b¿)«å«àš¼{zF­:ƒå €¹9ñïB‘¯`ôͲOÎT ¥ÅØ2¯B‰<`ƒµJ¬:’’ˆ< 1·šÈòƒa‹àÛ‚“�<‰B•i�ª &¦‰x:>ÎxòÄê*Tî+ÛvyѾòç�aY™ ­ƒƒî1 Ôr®ò©$Š’“…ó™À3œû„0ï¯2à @2Š£êÃ(¡Õ(»¦üG~œ€ô°aœ,Ãí ¨ìÎô¥¾jÃ7¢Zƒxʰe ™�ìÎ2ô‰\8ÍIå --R‡¯3ñ¥øØ±#£žœ0CéûÍ�oÐÈѹ Õd!ƒÈÓ9ê¹Å(§—‘—Œ°)Œ;�Å1;·9±‡¦“‘¡dŒI¡ÇD+•Å5£!ZÂ99Û¨É ˜˜@�'ˆ‚B•©œÆŠl>ÙÄ&ØÙ ˆ�RÈÐØòm� 4Y ƒ¦žAQXé(••’⻈h31B´b�x‚Š?º8�xZL²’áõ#™##xá©P7��@@ô�+ޱ£ •˜ ‰µ©�‰PÙ¸M\9ë͹×[z"Æû ¤<$PÑœø¾±+[r—ø»¬û�¿9Ã8J?$©•¨7‹*¬ý¼Iô‹¸ô‚zk‹Q1Ù٨£ɹ%ðÁ$9¼*«|£j˜“û©øâ<ˆŒN i¤œ*Zò¢ìg×Ùð&ƒVíÏ– Ñ�ìÒAn ì…|ƒ¸£ƒ%Û‹©d¢-v¢ŠX›Ò!„ÛŒ8]x¢B¨¥Åá¬Èéˆ3\_�3Á½â8ʹ·T²ÁX�=`¿ûx›ŽÚ¬Å‹ÊÇ\:£º\�»@4jŠº`ÊîË,Ô#™ì¢Ùæ%»©¢CÐ:ñW±�ž¤UdM>ËÞŒp7ƒ!L�r•¯Ø`¾ Õe0$^àÚhˆÆž#�šVÖQdÑ$˜1ÈY¨“µRizÏ«„„X)¡•® @ ºáF Kã5X¦Ž ©IµN´j�1_‘Ö8�°‘ãä "¥mš$Ö‰*_IcªDê�Ø"³acƒ0ä<«.<Ö>íV{ËWèà–H§ƒ9þÖ± â«âî^Õ«‹H³˜Á¼Œ0:(9ƒ\¶ Z�$¤!ŒÏ’Ô\9.X]ÜWxÁË�\Ú$çšxÙˆ”89 [IJ» 4¨rv¨97èàǪDBh9]–`À2â+”cš±8í×uÏ; ÐH70’°ÖLûû‰Ð)ª´®{�’Ø7ˆmüˆ®*¢XÚäÚñд‰ºCƒH�Bm1‰¡áæR0O¾g都 ª2^¹ñ?;åØ2~®©ñ�"™¨ªœøŠ ®K’©7 ò ¼�—c Q@ăk· Òƒ‘`ŒP<°\c¿Ål=…aÍ¡â>мò‹â&EÖeð£Ê´(`áÜRá5¡¬g"ýÚá5‹Íè)ŠQY†çòFäˆih9$ãã ãýgˆ:Š.z`éÍáM,+çä•ým1ANñ` &ZªX¬ù'ŽÎvŠ.«wÔ p1�²Ô¨6 (�Ä‚³‹‚Ø.¾"cœ®±ƒŠ'g‚ö²[JT­Që™I(S.Š«â>1SñVÜ‘xIj"Yý¨À:Ñä’‚h!ͪ�âj$¬Uw�H'WÖ›`¶ v2.1!N–'$\0q.Ñ*"lœÑ¥°Ãäפ†¥ÄC± Xƒ>¾k Tã²ÕRƒ���5>¹k Ôà(Àkà6;†ä ^טã’0´ìÅ ¶h¸�éÕ[ò˜år?]°‹­â>¤F@JÙì¶É‚`o% Ðƒ¶šÎ°Æ8×ãH­8 y[ ªm¤,çî�Œ)ÕL¨2‚ePo€/ä„ hå¹<ó±iÃ{ò0eÉ#¨¤E hý´œ0¿Âä�Í5n…Õ�×yVoñÑg%±ÀÊ)ŸâB­y§éȼâ2b.í^Ä+q©-ìc…$ÕÌ ÉÀZ[ítP/ BÖë � n›®�mâi…é/5‚Š8¼éÏd© 9š³“è ñyßñŽ.@ò,¸Ûó�‘¦ü\¸M?rê6x늄þÖÛˆ?4Ò~ò"0¥êЊlàËj¢Èêøò}JŠ@{8›<‰x¸™5áƒP59›`¦{R¡ EtÅ¡ºæº¿›+‰xU4‹ÈH2gÞøä‚ÛÂ�pÆÙd³»1õ;tØôë-(#ŽÂôN�7ÔƒÓõüp h4 ZmÔ‡Ou>Yußbì\&øe�8vXvo_u8ÿ&ßSƒ˜4°Œ'Hu{7u���ZŠ—[õø´Š8ñw(š3gXwOuÖçwvèvúo€MWmÚpkŠoíïGˆ0ë°¤³‰¾&Ϻå~'mêpÑvòþà–ÞHh7°ËnnçîóD§†ìø“«’à:NÁ-RøÚEéd‚· X8˜/qÊ�JýܱˆW›óâ·’4ƒÕhd Ö޼�–©@‚·›-((*@)�OˆoéZlfØÎ‡¤”› ,‚‡©™˜:EƒH©xØ;y·d p¥…õÜ<ˆ7ÏoLÔÜ‚û?›kÁqՂ°+‚H*¤þ ÷®yt°åx8½? ø: ?EÉß»µÝJû)™ödûg·'¸x'¹T¯ºñð8(%V¾Î\å±€“ñ½6 `ª™lF™õ9åá Ð©éJÛ §‰T&�6Fn߉*`¬m ±$–=7§+¢ƒZÏ­P2² *!§–N, ºÐ¤XòP}ï 0æ6𫇓•H9QBµIÚ"ð܃¨Ø�w®‚‚2r‚’�p#­> Àgìn‘<ƒxz’2š~å°ÑˆrÌÃ�x¿2XHóùXòCI ý·–9õ`��H*ä0ò Þ¬Lç’Aˆl¡ ?þ.I¿xÑhNØ�%"¸3©PˆÀ7oAíÎ ˜ñŠ®g�Ú˜9¶þ Œçÿ*�žI¥ãß:³e¿éÛÏß/óîÅë{Ø¢ž1ù±a™7æº-ÛÝá ì§ÌÃó¬y§û~T8:b(CúÈŠ 𠊘°ì�'ÐŽ“Â��¼»�ÚøÈƒ‚&K´ÛJû‚(&–˜Ï�(x)zzep—€°�ˆñ3¸§¹5΀(P2‰x ‚›üS·fp!Ͱ�¨Õ@—€È¡DàÈ�h�¨� ‚ÐH˜€lúProcedure CAPSTR(Var S:strng); Var I : Integer; Begin For i := 1 to Length(s) do s[i] := UpCase(s[i]) End; vþDIRSCAN.FUN[Sept 89]% €‘ަãÐÒo7„’‘L†A' c£!¤äs:…#¢I¸èe3™NC°h(ö )™L'# @Z“¡¥!˜ÞrEÎFX<äò 7M¦Q´Ât—šMÆqÐÑF�©”êL¨@}“ÊJFS¡Ôå ®›ePìe•NrA¤Í77ÁL‚ÉŒ�ßo¸›�çAp� ­ŠÒÚòìD»D¡~C#’ÉÈR*dœA‡ŒcG¢9©4)I�Y’MÄše6–ÍÓÂè€x> J‰»0 ®œ%‡LÂ@ C¢–ÆñÖtF8ˆ%1óL Âl6PG |´æ 6B©Ø<�9Çç,´ûÏTˆoßðh†RÙ'��!šB�N¯[’EcèRÒ;ìcŽ xæáN8C,õ´ïbÙ¶­º„ö¸�ˆ@ù¾¢HZ +� a;BÃ*"<‚˜î0ŽBF:Ê8„(ض¡� a¸»É¿®Sr*¤JÈE° a¼O³TÖ5Ñ;g3)àæ1Œ(\"4‚+ZÒ$àÑ % ¼¤Function DNSCAN:Integer; Var du : Integer; Begin du := dirscan(dirs); If du = 0 Then du := duscan(dirs); dnscan := du End; vþDUSCAN.FUN[Sept 89]% €‘ަãÐÒo7…R™ ‚NÇFCIÈæt9 GD“qÐÊg2œ‡`ÐQì@R2œÍæÃ±”@S ò“)°@1†�2ñyTç#&"IÌ@a7Dó40t,GTÓ”2¨ >É¥šy¸Þt ç3™¤Äl2ÔŽFS¡Ôå -HÍô4€v¶ !£0Áô@' �ˆdB)ŽH$’‰dÂi8žPÉAEc ^R:œÎU#¼È ªÇ¤)$˜…!4›¤ÔHn‹c¸£º%tÜi„gIäú�# %S�ˆ¦µ­W„Ã)¸Ît4DùÁð€` *9úÔ€RgÕ÷€ÜÂ…”Ps-ŒK¢Ã'W¯Ùí÷AB€#Ããú¤[M€@óŽoKÖö½áPd†ÁVá¿ÊSC¡K(ûB"n· ¯HXÃ�›¼£pÉ *žç:“Òø;Ó¸Ö?oÃU¬°Ù ³lë>÷Ä S™´\ù¡oðtÀ;"(Ø „;? F°@läA‘ÔADŽð .Â’s61©OúÊL)2L H¿ vþDUTDIR.FUN[Sept 89]% €‘ަãÐÒo7…R¡’RCGD“qÐÊg2œ…#¢¼Þl2˜Mðh(÷ ‡D BœŒäc4NbÐÌ�,�ç!Òg*Œ¦hÙ– eI ‚Á¤Í;7Ái¢€ û'”�Í&Ãe Êt:œ¡t Q„æs7˜Í&Á�@N0›læë�BÑ5;NVÓŠkLGS(¸AY¯‚ ±¤åN$ˆB´b4r“ˆQ“IºN Ç\Ì¥±�w(=ƽÂó¦ÔµZÍv8É�«6‚9©9)mÊFS„Œé¡H 5!ÔAª)�Ì'Dhè(ÇÇ89ž€VgLùþP ݤÙjuc�Ø‚S4 5ãÈ€p ™_&¦ÈPÎļâ2zË=�Š~7¿`Þó½+ ¶$¶mP†4A@š2�¢Û¶‰!Xb.…-q 2mè 7Ža@Nád2ÄO;›‡�ð@;ÊCG´ïd) !hc<1#`´½mèF÷> °Üù­¯´ýŽOëÿÈÀDŸDÍT:A/ȉKR@çBA� Ã0Ûr9C¡XsÄq+ÙEQd]3Ȫ´J¨²q´q!s<• ¡D…"D`0Š»D`#¶öC�‹ÜЄª.®„@˜¤ ê´Ò;´`îÀ“l4íµ UPÛ¹ã¤àÑ7µÝQ "éSFíjOH ŒÚN 2ÇãFunction 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; vþHEX.FUN[Sept 89]% €‘ަãÐÒo7 RÀ œ:$›Ž†S9”ä;¢QH´`R:9�CAØ4C…HÄ !P@:NG# ä¶0 †#Rè€ÞfÍ�€z Œ#!˜Ðj6Ž$ ˆE# äࢵZ"LD8¬^3 ²HäµÒXÒn”!“™ú@ :¤ÑB��¨„)®ÝÆú=Ž]z_ÈB!¼în*Äq¾ç¸\�RÐ! ¶D»€ñEBÙ:fn2egØ9v¡ Åj fŠ8Ó2EÕ`ă)âcI$J7FJì 4�2À5OProcedure 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; vþNZ-TURBO.SYN[Sept 89]% €ˆ q8´-*NF'x€ a9˜Ì&ÁLòn:_¼Üv2Æ�2˜4(…Ãañ™…Ø 6˜MfW˜€Ý2NgCI¸Ç>7»„#)Ðîe2ѧ�•ä 0›œ‚a¾“QŠÜ¢M ž˜N†SlŒèsVSÁÀäe9œä¦éº‚§UP Óa¦j®‚n÷Êê‚ào3œŒ&Û=E@i›ØgçcM–ªt‡˜î6Jé¢x/4TŠ!˜ë@¡]ªUA$Æe2C.V»Í²øaz2›¼ŒÞe¸Ïgîqh@k7Þ⾎ù¤Ã-× •Ò‡^›”ãfã!„åz7Ôl%S™”ä-2LÓý•­’ 9�Læ{–ï¦f7›*ç~*<�$I"†ÉBT†!È‚$Š&.â¦ï¼.¢Þá» cü6&#@Â;+®ˆÒ¨½£�æÝŒpÛ ´‹ (82è¨Ò= ª«nùŒO8â:¤q,N0Å#“€¢ £Hñ#È�ËÀàP¤2Œ#"×&IÂ`ܵŠã“.2ʲºË)­b¨à!ÈëZŽ1°O<Ñ®/Ðä®ÁîóÀª¬.¬*ºŽl@ó*SØ÷*³›®º¦ðÂb1+¨ªb¦©êÒ$ümàCªÊÃH­«¯Zžï?îÈò7ŽªŠ6žÐÍsô¨³®øÄ4¯ã ó% R ŠÏP‚€ã²+„Ð@$£C+ì9u¡ À¤€a€¢~ŸØv(]cÙ°‚& ¢(@¡bXö_bXÖEÀÊÒĦVãdrÛõ­Ådˆ®õ¾”Ã�Þv­Ž[š�-nz–ç+©>Ô¬ªˆÂ=ohÜˤª"¾-}îÅŒ7É@ç�#ÑGŽô²@·mK×»ª¨ÒÇ6CJÈ2�ƒÍü®¹Nc�4ÃÈz®7�aH¯’M\ ŒCˆö  $ݪ¸R†¤¸˜7ç*òˆéɃ3Ñ�«¢j¦:¢µháaZ4òôéct‹³i£s¨jO:ïU¢„!ˆ‚(�±¼êŽÒ¡ÕjTÐ.èúB´aËc$œ íÚG5¶*­2¤J${™ãcdû/Cò¶%pR—"ƒcPŽ1T¦+ØåÎ/hzfàŒ8‚ùľðê!@6õ­5Äâ£hç¿ÜúF2%Ñ * ŒvþNZ-TURBO.TYP[Sept 89]% €žÄC©ÈÄo '3„Ø 4œÄLèr:˜Î�s)�@l0›ŒçS œÊ.AMQÔç.7™¢ñ˜Ütäe‚¥q1¸ÞtŠÅ †S¤Øi:N†™% @y7�DÓIœÑB:)ƹP€“B–›JÜêx 8�æs‘„Úm2œ„HQ¼äg‘šORêå˜ÑS¬"’3 ²«x—M§ Å,Üt6E“¹]ŽËu–ˆfüm"æ 3S¤;aÊ(B"‘‰å"-F¦ �³Rë]¶Þm•gs±@¨@U˜œ…¤C.ŒÝ͆óB y8b‚¡NôTéZ%e2¡Hh H³S•8Î[G~ t…Ê3^‚)`@c7›Ž×3˜Òý¢„€ Þ-.ð¤'ïò£:H-‡ƒØñ¨ Ž2¹+z"8 ìrb‰ Ðê„9£/@A¥b0†!"�¤•¼¢ä·�"Ø`Áˆj.„ ˜@!# Êö’ �ÃÈ@#4 ãöŒ�舄æŒc[ÄÅ(¸Š!Š�lbFq¬o†!�oÇò †ö„"0à #’@!Šxšà�ÊP@) ¯Ôæñ�*v‚ ŒÛæ69£¼O>Ï難Ê#ާ%Ë8@-aŠþ +`ܹ21ðÌË"²P@' Ah¦<Ä£+t•ŠépÈý„êÖ íª*2 ‰È昢ƒÈÊ:+âb˜¹·nÂV"‰Â³\!„ë,ñÑ«ÀÉjÐÈìñ¡Ô�!H–ÈÆ£�ðo‰,ˆÊ”Aݲ=cJ@ñÛóÃ1ÌyQ³ƒDåw§„…´þŽ’WoÍwm‚˜4a ×và/‡«h¦pâØä1ŽíÓŠ.xð �37­Á6[0Eä’+— ùP Že¸`Í�äxžg“[9æoœáx½â7 ”ö%uhuàé4ö7–hØâ1¢9^›vh8f°6\ú.OxÛp^e®éúøgm¢�ÇlŽcDK+ÈÛFi†n[¦Ý¸o;šø—mú®È�£˜Ï³çûNN2�¦x1i™.Õ‹ñ¬ é+ðZæñ‹Ž#¨Óbq8W;�ÕÑÅs˜æé¹[·l�£ð2|Îû‹öCÂ`ºp]²2£~ëœv`Æ9(Y��‹­~U½æ`oÖÃ@÷øÞ;À^/†)#wµëÕóú1ñ<Þ½‹õ“�cÑc¶Èáéú¾ˆ Û×Y_¹æûß—ñ�¾c�mo¹¼°ðä Ÿk:}0M:÷øŸPr<02@”ä `;VÁ�ž¼·Îå“!|ÍZ '¡Y<#„05r³èLÜC@vNN%{¯”Ê SI4kþcF+ìuðÌ-¯¤u —ì9` Ð@h‚�ÄC†°ÝD–vh [¨ˆQÄd!Ü= °F,Dèib”^dèt1—Êæœ›Šp20K ñE!Çœ1Ev¦BhSAH”�Â<²€R¥�áh-%¨²s[%Ì3Ç C 2L2­É-$Ê%lOÌ1†×jò�D .a…_>hÞûËÉ¡“­‘Ƹgï ›Wq¦Í‰@ÒúsŽrM:Y€b‰f ‹…ÄqÓ¾òS%dÂ’,‚RC(Ép3Qž2rrÉôMLhâkÅÂi*Ã�q(¬!8Æ3§Oˆ‹ñÂÖãCƒÊ{lu7 í3’ÿ)Å0¼‚ ×Á¡lºV´ôäqi1Ð(Rþ#ÃÈ 1ìÀå2Â` �JDœš#è Ñ*qN`�L*µZ�Ü4†‘zE­6#“ò×[2ü:0Ðï[»è`aµ¬»©w-À5B¡«}€¶ �€3=’69Q 4@³vþNZ-TURBO.VAR[Sept 89]% €ŠB9°Þb0›c ÈÒa1 §1¨R F�b¡ Ê 3NG3 €èh9d'h|F'Fó±¤É!8Í&ã¡–K(7Ê$ YŒÞr2J'¬h@ 7™¨’д¦y“M¢ 1Èêc:eqc5$@e;gÇXX€Âs9šLæãm°è.cQ©qÊ  "“ŠÅ¡J¢:­‡j8ïM)‘ðØ�(¼m9™ñù3+‰Å›LfÌìl�Åd0ù ¦BA1ÍæÃ¬ü@("ž'ç#t,R ¿Ì"— •Òíx‹Í“£g4Úê±ë!ІP¸˜íóC~pÃ]0˜ÌqX±Ò‡j e3Ó8€ï!5›�ç{ÕóQQ+�‰äò ¬Ñ )ðÊ3¨Ù6�³p€²R¢$‰â²*­„ö$$€ 6m«n�Á°xg *"ˆ$ŠbXA±PãqÄ0THDÀi„ˆ'Špb@Iü 9@ðLGAÀmˆÂ„Æ#3 c`ÆÒdJ¨‡(Êa”­,KRä½Ì€m20" „*ˆÂ4`±B˜èˆ Ã8¶†A°ºIsls0‡„z"N“´ñ= «ÐHÔ4q†T$Ž#Îj,4¼ê(Þ7$.cœ4%(Ø6"£®ì»kz$7¶î¨œ««*ØÚû¯°˜@-b(‚"2ÌT�@Ó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;