IMD 1.16: 1/06/2007 10:03:45 FOGCPM.171 ååååååååååååååå--FOGCPM171PAS4 COM€ PAS4 COM*-04-00 87 ¥PAS40 LIBr !"#$%&'PAS401 INT4()*+,-.PAS402 INT)/01234PAS403 INT#56789ARCTAN PAS:;<CONVERTMINT=>?@COS PAS ABCRTMAP PAS'CDEFGCUSTOMIZINT HIDEBUG INTJERASE INTKEXEC4 COM€LMNOPQRSTUVWXYZ[EXEC4 COM<\]^_`abc-CPM171 DOC¦§¨EXP PASdefgINDEX0 INTKhijklmnopqINDEX1 INT3rstuvwxINDEX2 INT yzJGRAF INT{|}~JGRAF PASM€�‚ƒ„…†‡ˆJRTASM INTv‰Š‹Œ�Ž��‘’“”•–—JSTAT PAS˜™šLETTERS INT ›œLINKER INT�žŸ LN PAS¡¢LOWER PAS £¤åååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååThis is the disk name. ååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååÊÃÖé à Copyright 1983 JRT Systems DISKSABZZZÃÖ=�ÿ!9"—1™ÙÓõÅÕåÍ=͇>Íž?Í=ÂßÍH=ÂßÍ&>ÂßÍ8?Íê*]DMë*oëÍ(Íh*_####tq#pÍáÑÁñ*—ùÃ>2ˆ*]"&*&ëÍ*&€"&å<Í·Êõå<̀ͯÉ"bë"då`i"fá*d^#V#"d{þÿÂLzþÿÊa*f^#V+å*bëás#rÃ6É*_¯w#w#w#w#ts#rÉõx2ñ" ÍÊ * õ:GñÍ&Ê s4!Ty°Ê±w# y°Â§Í·ë* @ Åõz¼ÂÅ{½ÁxÁÚàÍí* õ:GñÍ&"Êï*gÍû7ʱ!.#Ãc T!s4y°Êw# y°Âý*¯Éx2r"s!I"u*u"wͳ"uÂoë*sëÍ{þÊ"y·ÊYë*sëå*uDMáÍÇ*s"yÃ_*uÍ:rG*yë*uÍk¯É¯<É##N#FÅõxºÂ‰y»ÁxÁÚ°ÅõxºÂ¡y»ÁxÁÚ¬`i>É`i¯É>É^#V>ÿ»ÂĺÂÄë¯<Éë¯É"ë"ëå`i"áë "*åõ|/g}/oñ#T]áë"*ͳë*s#r#ë*ës#r*ë*ws#rÉͳë*ws#rÉÅë*c å*eDMáÕåõz/W{/_ñ`iDMáÑÅõx¼ÂQy½ÁxÁÚg`i"eë* ëÁÍk¯É¯<ÁÉxæ@ÊwÍäÅÕåͧʆÍͧ2¥Íê2¦ÁÑñÍ:¦O‡‡�o:¥O��gÉ *M##ÿ~þÊŹÒÅO"çx2é³yþÿÊä:éG> �G*ç5+V+^ë¯xɯ<É4¯¾Âú#¾+ÊÂð!,#Ãc å+~·>áÂú>4�Éq#p#s#r#wÉÕå"L*Oõ:Q_ñÑs#r#Ñs#r#p*Lë*Rs#r#64É"šÍœ"— <2™ë6#6#N6#F6#~6þ�Ê–*Ië*—ëë"Iëës#r#q#p:™þ4*šÔlÉ:‡þÿʲåÍÉáå:ý·ÌþáM\*Må^#Vë ^#V+ëÁÉ|þ^Òìþ-ÚÖÖ-þ ÚàÖ ÃÖþÚêÖÃà·È:ý·À!T$Í» >ÿ2ýÉ}þxÚÖxþÚÖÃþÚÖ÷ÈÃì*M >ÿ¾Â2#¾Ê=Â)!-#Ãc +"R> �2Q@!Í{:Q_!))Íœ>‚p#p#=ÂcÉ"µ|!·Ê��ÃxÍœÕë*Ië"Is#r#s#rá6#¯w#w#w#w*M:¶_>ÿw#w#wÉ!IN#F#ÅN#Fë ëá|þÿ½}þÿ½*eå*cDMáÅõx/Gy/Oñ ÁÉ*I>ÿ¼Âø½È*}#"}ÍgÍ Í9 Íà {²Ê=ë"C##^#Vë"EÍ* :G_!ë*M^#V*CÍ„ ÃÍU ÉC D E H L M A B D*Mûþ"A!"Ì!Ð"Î*Ì#"Ìë*gÍ 7:s4þÿÊÃ:…4æ ª*Î6#6#"ÎÃ}*{4:…4æÌœë*Îs#r#"ÎÃ}*Î6ÿ#6ÿÉ*M ^#V##{þÿ zþÿÊ åÍ á É4ë~þ�Ê3 æw Â* É!€"€ *M"‚  Å*‚ ^#V##"‚ {þÿÂ_ zþÿÊk *€ Í„ "€ Ãz *€ ¯w#w#w#w#"€ ÁÂG Éåë>4^#V#ÅõxºÂ˜ y»ÁxÁÜÈ ###=‹ yþ³ xþ³ áq#p#å*Æ DMáq#p#ÉõÕå##~æ€ÂÜ BK++++"Æ áÑñÉ!€> ^#V#ÅõxºÂõ y»ÁxÁÚþ à BK++"( ##2G##=Âè x±Ê% :G_> “2G¯*( ëɯ<É"’ N#F#å`i"š á^#V#~2˜ åbk +å*ADMáÍ  ë"œ ë~+ z³ÂT å`i"Aáå`i"ž áá~ö€wæ ʉ *š ë*œ ëå*ž DMáÍ :˜ æ@ÄÒ ÉõÅÕåÕåõz/W{/_ñ`iDMáÑå`i"– á*’ ^#V+ë"” ëq#páÑÁñÉÍ#  ë*– ës#ro&))€åë*” ë*– Õõz/W{/_ñÑëá##N#Fë ër+sÉ"^ ë"` ëå`i"\ áÅõ|¸Â$ }¹ÁxÁÈÍf ë*\ ë"b *^ åõ|/g}/oñ#T]áë"d å*\ DMáë*b ëÍ(͘ Éë!Ð>N#F#ÅõxºÂy y»ÁxÁÊ‹ <þ@Âl !+#Ãc _*gÍ 7*}4É*^ "è ë*` +"æ !]Íê å*_DMáë*aë!ÅõxºÂÆ y»ÁxÁÊå õÅÕåÍê áÑÁñbk##^#V!ý É^#Vå*è DMáÅõz¸Âý {¹ÁxÁØå*æ DMáÅõz¸Â {¹ÁxÁÐå*d DMáë ër+sÉ*M¯å*” DMá^#V##Åõz¸Â< {¹ÁxÁÊN <þ Â. !/#Ãc +++G¯xÉ!ÿÿ"I*A#"eÉ>ÿ2‡Í ßÍ©  ×ÍÃß $|þ#À}þ3ÊŒ þ.À — ÍÃß %Error: Insufficient main storage$:wæÈÍ© Õå ä ÍÑ Í | ÍáÍNÉ %Warning: $ÉÕå|ÍíÁár#s#åyÍíár#sÉPAS40 LIB"î ë"ð ëÍþ 2( !€Í{"ö Íœ"ô Í$*î ëÍ:ÍmÍŽ€Í*ö ÍN*ò ë*ð Éë!+ ¯N#F#Åõz¸Â{¹ÁxÁÚ<þ?ÂÃ’·ÊÉ*ô ëÍ Í·Èé*ô >N#F#ÅõxºÂLy»ÁxÁÊ_######=Â?Ã’ø ~# ÂdÉ*ð |µÀ*ú Í{"ò Íœ"ð *ö Íœ"ô É*ø ÍÈ"òë"ôë*ú €Õåõz/W{/_ñ`iDMáÑÅõ|¸Â½}¹ÁxÁÚÅ`i"öë*ú Õõz/W{/_ñÑÍÈ"øë"ú*ð "üÍþÍ8ÍaÉ*ô ëÍ:ò2(  Í·Êé*ô ë*ôë*ü:öOw# Â,"üÉ:ø·È=2ø*ü]T€ "üÍ Í·Ê8é:ú·È*ô ëÍ Í·Ê~é:úO*ô ë*üw# ‰É �ÍÃß Msg err $ ´ÍÃß PAS40.LIB error $}æ_}|o¯gÉ%Error: Í.Í_ë*cs#r#"cÃ*]N#F#"]*c+V+^ë ës#rÃ*c+V+^åë^#VëÍœëás#rÃ*c+V+^ëN#Fëq#pï2ßÍ#Í2*c+V+^ë ës#rÃ>2ßÃ;x·ÂbyÃe{PY!ÒoÎ)ÒwÎ)ÒÎ)Ò‡Î)Ò�Î)Ò—Î)ÒŸÎ)Ò§ÎÉ*]^#V#"]*aë*cs#r#"cÃ*]^#V#"]*_ë*cs#r#"cÃ*]^#"]*aë*cs#r#"cÃ*]^#"]*_ë*cs#r#"cÃ*]N#"]*c+V+^ë ës#rÃ!"à2â:ß·ÊWë"ãëÿ*cþCÊh+F+NÃ{+F+NÅõx/Gy/Oñ ÁN"cÅë^#V#Õåõz/W{/_ñ`iDMáÑxÚÓ^#V#ãÅDMÍ—ÁáþÊÙ^#V#"ãÍYë*à"à*ãë:â=2âÂW*àDMÉ!h$Ãc !h$Ãc *c@ ë*ez¼ÚÊûÃ{½Ú!3#Ãc *]^#"]!^#Vëéußó %ÿ¨Äà7Qÿàüÿo�ÿÿŸ4ÿÿÏ â í û J]¹ÿÿÿÿÿÿÿÿÿÿÿÿÿÿë æÿÿÿÿRÿÿÿQz“òüÿÿÔÿÿÿÿãÿÿÿÍãêÜk k4 a�oÿÿÿÿÿ:åü^ÿs«ÿÿÿÿÿÿÿ¶ÆÖÿÿÿ©  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ !!2!X!ÿÿÿÿÿÿÿÿÿÿ0U÷!ü!"" ""ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBGLQV[ÿÿþ #:ˆÄ¦ÿ}šÿÿªÃÿÿ3ÿÜÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚)ÿ™$ÿ¥.“0ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAs^“ÿåÿÿ*]N#"]É*]^#V#"]É*]N#^#V#"]É*]N#^#V#~#F#"]`oÉ*]^#V#N#F#"]`iÉyBK*a·Êq^#Vë=Âi ÉÉ^*]"‹å*cDMáë*aë*_Í!–"]Ã[xÚ¹zÚ¶ÅõxºÂªy»ÁxÁ>È>Ø>É>ÉzÒÓÅõxºÂÇy»ÁxÁ>È>Ø>É>ÉþÊœþÊì'þÊò þ Êûþ ÊŒ-þ Ê{!E#Í» É!xÉ!4#Ãc *]~#^#V#åë"]*aå·Ê#^#Vë=Âë*c"as#r#Ñs#r#Ñs#rÃ*aå+~/G+~/O "cá##^#V#ë"aë^#Vë"]Ã*]^#V#ë"]Ã*]^#V#"]*c++~"cÚë"]Ã*]^#V#"]*c++~"cÒë"]Ã*]^#V#"]*c"c�ë*eÅõz¼ÂÍ{½ÁxÁÚå*gÍû7*gÍû7ÍíÃåÍ.ë"…ëÅÍ5ëÁy*]Ã*c+V+^"cÍ5Ã:*c+F+N+V+^ë^#Vr+sxªúVxºÚ>Â3y»Ú>*]##"]Ã*c++++"c*]^#V#ë"]ÃzÚ3Ã>*…ë*cs#r#"cÃ*c+V+^ëN#Fëq#pÃ*]^#V#"]*aN#F*cq#p#"cÃ*]^#V#"]*cs#r#"cÃ*cs#r#"cÃ*cs#r#"cÃ*cs#r#"cÃ*]^#V#"]BK*c+V+^Ã4*]~#·Ê"GOë*cw#  p#6#"cë"]Ãå"]*c6#6#"cÃÅw# y°Â5Áq#p#"cÃå*]N#"]*cq#"cÃÍ!w ë*c+F+N"cëq#pÃÍ!w ë*cw#w#"cÃ*c+V+^w#ÂÝ"cÃ*c+~ Âó"cÃ*cw# Â"cÃ*c+F+N+V+^"cëq#pÃ*]^#V#"]*c+F+N"c*aq#pÃ*]^#V#"]BK*c+V+^ÕÕõz/W{/_ñÑå+V+^"cë"ÞáÑï2âÅõz¸Â�{¹ÁxÁÒ·>2âÕåõz/W{/_ñ`iDMáÑy2àx2áBKë*Þw# y°Â»:â·ÊÛë*àë p#z³ÂÓÃ*cîÿ"c^#V#~# ÂóÃ*c+~/w+~/wÃ*c+F+N"c+V+~¡w#z wÃ*c+F+N"c+V+~±w#z°wÃ*c+F+N"c+V+~©w#z¨wÃ*cDM+V+^Õõz/W{/_ñÑ~#z³Âh`i"cÃå*c+V+^Õõz/W{/_ñÑ"cÃÍ#*c+F+NÅõxºÂ¦y»ÁxÁÚÐÕåõz/W{/_ñ`iDMáÑÅõx/Gy/Oñ Á"cÃÅåõx/Gy/Oñbk T]áÁ p#z³Âä"cÃ*c+F+N"cÅõx/Gy/Oñ Á+V+^å`i">áë"@ëT]x±Ê+w# x±Â!ëå*>DMá*@ ës#rÃ>Ã`>Ã`>Ã`>Ã`>Ã`>Ã`2w*c+V+^ë"zëÕõz/W{/_ñÑT]+F+Nå`i"xáÅõx/Gy/Oñ Á"cå¯2|å*xDMá*zÅõx¼Â¯y½ÁxÁÊÂÚ¿MD>2|ÃÇ>2|áx±ÊݾÚJÂE# x±ÂÍ:|þÊO·Êë*xëå*zDMáÅåõx/Gy/Oñbk T]áÁ~þ ÚEÂJ#z³ÂÃO*xå*zDMáåõ|/g}/oñ# DMáþ ÚJÂE x±Â2ÃO>ÃQ>ÃQ>G:w Êh*c6#6#"cÃ*c6#6#"cÃ*c+F+NÅõx/Gy/Oñ Á#6#"cÃ*c+6#6#"cÃ*c+V+^Õõz/W{/_ñÑ~6#=Âé*i|µÊ1+"i*c+V+^"cz£þÿÊ+*cÕõz/W{/_ñÑ"c~æ_ÍÐÃ.Í4Ãðè*c+F+NÅõx/Gy/Oñ Á~æO+V+^Õõz/W{/_ñÑ"c~æ_ÃÍ#ë"¾ë!À>6#=Âx*¾|µÊ¨+"¾*c+V+^"cz£þÿÊ¢ÍÐÃ¥ÍòÃ*cÀw# °"cÃ{怲À{æx·O!À {æG¯7Âê¶wÉ*c+F+N+V+^"cÅõxºÂ y»ÁxÁØå`i".áë",ëÍÐå*.DMáë*,ëÃ*cðÿå+V+^Õõz/W{/_ñÑ"c~æ_áÃd*cïÿV+^"c##Í| Ây*c6#6#"cÃ*c6#6#"cÃ*c+T]ðÿ ¶w+”ë"cëÃ*c+T]ðÿ ¦w+²ë"cëÃ*c+T]ðÿ /¦w+ÂÐë"cëï23 Ãï¯<23 *cðÿ T] "c¾Â Âþ:3 ·Â *c6#6#"cÃ:3 ·Â *c6#6#"cÃ*cðÿ T] "c¦¾Â\ ÂC *c6#6#"cÃ*c6#6#"cÃ*cðÿ T] "cëÃA ÅõxºÂˆ y»ÁxÁÚ§ {æx·O {æG¯7  ¦É¯É*cë!ðÿ~# ³ ë"cÃ*cðÿ"cÃ*c+F+N##q#p#"cÃ*c++"cÃ*c+V+^s#rÃ*c+V+^s#rÃ*c+~/W+~/_s#rÃ*c+F+N"c+V+^ë ës#rÃ*c+F+N"c+V+^Ååõx/Gy/Oñbk T]áÁs#rï2ö!*c+F+N"c+V+^åxÒ|!x/Gy/O>€2ö!zÒ�!z/W{/_:ö!î€2ö!x·Â™!yÜ!{PY!Ò¨!Î)Ò°!Î)Ò¸!Î)ÒÀ!Î)ÒÈ!Î)ÒÐ!Î)ÒØ!Î)Òà!Î:ö!·Êî!|/g}/o#Ñës#rÃ>Ã">Ã">Ã">Ã">Ã">Ã"2�"*c+V+^"c+F+NåxÚh"zÚc"ÅõxºÂ:"y»ÁxÁ>ÊI">ÚI">G:�" ÊZ"á6#6Ãá6#6Ã>ÃI"zÒˆ"ÅõxºÂv"y»ÁxÁ>ÊI">ÚI">ÃI">ÃI" "k#Í@$"m#*k#ëÍ*m#ëÍ2u¯2v€ÍÉ"š#Í@$"œ#*š#ëÍ*œ#ëÍ2u¯2v€ÍÉ}æ2¼"¯2½")l&Ò±#&"¾"ë!À"Ío#¯2³"Éõ:³"æ€Ê×#*¾"ë!À"Ío#¯2³"ñ*¼"T]À" wë#"¼"}þ€À*¾"T]#"¾"!À"Í@#!"¼">€2³"É*¼"}þ€Ú#$*¾"#"¾"ë!À"Ío#!"¼"ë!À"~ë#"¼"É*¼"|µÈ*¾"ë!À"Í@#É{æ2†$zþÒ€$bk)|2‡$l&)š" ^#Vë|µÂr$Õ:‡$͈$Ñës#rëÍœ:†$ë! wëÉ!6#Ãc !Ž"–"OÍ¡8È!5#Ãc !"u"B'"D'*c+~2¬"+V+^"cë"­"ëÍô(:¬"æÊÊ$Í%Ã%ë*¯"ë*kÍ[0:™"æ€Âã$!9#Ãc :¬"æ`Âÿ$:™"æ@Êù$!>#Ãc ÍL%Ã%:™"æ@ %!=#Ãc Í&ë*¯"ë*kÍw0Ã> 2™"Ͳ&ÂH%:wæ€Ê8%ÕÍÑ:wæ@Ê#%ÍÃ#%É $*¢"Íœ"¡%Ͳ& %*¡%å*¦"DMá så`i"¦"á*¤"Åõ|¸Â|%}¹ÁxÁÒU%*š"Íœå*¤"DMáë*¡%ëÍ£%!"¦"ÃU%É"&ë"&! )|2&*&T]€ "&Í*&ëÍ·Êí%þÂÜ%!I#Ãc þÂç%!J#Ãc !K#Ãc :&=2&³%€ÍÉ!"ƒ&*±":¬"æ@Ê!&ëå*ª"DMáÍYÍž#:¬"æ@ÊK&*ƒ&ë*ª"Åõz¼Â<&{½ÁxÁÚK&ÊK&!:#Ãc Ͳ&Â_&{ÍÀ#*ƒ&#"ƒ&Ã$&:¬"æ@Ê&*ƒ&ë*ª"Õõz/W{/_ñÑ|µÄ…&Í/$É"°&:™"æ ʘ&> 2¯&Ü&¯2¯&:¯&ÍÀ#*°&+"°&|µÂœ&É*B'|µÊÃ&+"B' Ã'*D'|µÊÚ&+"D'*F'^#"F'Ã'*­"|µÊ'+"­"ë*¸"Í))N"¶"ë!J' :™"æ Ê'  'Åé"F'ë"D'`i"B'ò&¯É:¬"æÊ9':¬"æû2¬"!H'"F'!"D'ò&¯<É!H#Ãc Æ'ÃÃÃÃ¥(Ã<'Ã<'Ã<'Ã<'Ã<'Õ'ÃÃÃÃ¥(ç'ÃÃÃÿ(*¶"++"¶"É*¶"+V+^"¶"ëÍV(É*¶"+F+N+V+^"¶"å`i"ê'áëÍV(å*ê'DMáÕåõz/W{/_ñ`iDMáÑx±Êä'xÚä'ÉÃã'ë!%("*(ëðØÍ,(ÍI(üÍ,(ÍI(œÿÍ,(ÍI(öÿÍ,(ÍI(ÿÿÍ,(ÍI(!%(É00000¯2H(DM|ÚB(:H(<2H(Ã0(`i:H(Éåö0**(w#"*(áɯ2¤(|Òk(|/g}/o#>2¤(Íì'ë!ž(:¤(·Ê€(6- #þ0Â�(‚(w# ÂŽ(Y!ž(É000000*¶"+V+^Õõz/W{/_ñÑ"¶"É*¶"+F+N+V+^Õåõz/W{/_ñ`iDMáÑxÂä(Õõz/W{/_ñÑ"¶"É:¬"G*c+æÂ)V+^+ë"¯"ëxæÂ)V+^+ë"±"ë"¸"ë*­"ëÍ))#"cÉz³Èn) ¾Ê:)Ã0) O~Åõx/Gy/Oñ Áþ ÊY)þÊY)Ã))å#N#FáÅõx/Gy/Oñ ÁÃV)    !"u!À"" ,¯2Å*2,2,2,:´"ö€2´"*c+~2¬"+V+^"cë"­"ëÍ@.:¬"æÊÈ)Í*Ã*ë*¯"ë*kÍ[0:™"æ€Âá)!9#Ãc :¬"æ`Âý):™"æ@Ê÷)!>#Ãc Í^1Ã*:™"æ@ *!=#Ãc Í64ë*¯"ë*kÍw0Ã*­"|µÊq*:Ã*·ÂN* Ä*Í Í:Å*<2Ã*!Æ*"Á*O +6,:Ã*·Ê+*:Ã*=2Ã**Á*~#"Á*ÍM+þÊ¡*þÂN*:¬"æÊ€*¯2Ã*Ã’*:Ã*·Â’*:wö 2wÚ*:wæß2w!"uÉ!"u °*ÍÉ %Input error $‡þ'Âe+Í#,·Ê ,þÊ ,þÂe+>'2,:,·Êy+¯2,2,ÃÉ+:,·:,«+õþ Ê‘+:™"æï2™"ñõþ  +:™"ö2™"ñþ ÊÉ+þ,ÊÉ+* ,w#" ,>2,:,<2,þ€ÒÆ+¯É>É:,·Ê ,*­"+"­"ë*¸"Íu.N"¶"!, ð+Å:,éÂÆ+¯2,2,!À"" ,*­"|µÂ ,>ɯÉÃE,ÃÃÃÃß-:,·Â1,>2,¯É:,·Â>,>2,ɯ2,>É2…,O!À" +~æßþHÂ^,͆,Ãa,Í5-ë!À"~þ-Âr,z/W{/_BK*¶"+V+^ëq#p:„,·É:…,þÚ—,>2„,!ɯ2„,!À"~þ+Ê©,þ-ª,#ò,~#Í-½, ï,!î, ~Íú,æW#~Íú,æ²W#~Íú,æ_#~Íú,æ³_ëÉ000000000000þ:ØæßÖÉþ0Ú -þ:Ú0-þAÚ -þGÚ0-þaÚ -þgÚ0-þHÊ2-þhÊ2-¯<2„,ɯɯ<É:…,þÚF->2„,!ɯ2„,õ:…,Gñ!À"~þ+Ê^-þ-Â`-#…-~#ÍÍ-Â|- Âe-!€- ÍŒ-É!É000000000000ë"¶-ë'͸-è͸-d͸- ͸-͸-*¶-É~æO#åÍYë*¶-"¶-áÉþ0ÚÙ-þ:ÒÙ-¯É¯<2„,É*¶"+V+^+F+No&Åõz¼Âö-{½ÁxÁÚ.Ê.åõ|/g}/oñ#T]áë">.ëT]Ã.!">.!À"z³Ê-.~#à .`ië*>.ëz³È6 #Ã4.:¬"G*c+æÂe.V+^+ë"¯"ëxæÂe.V+^+ë"±"ë"¸"ë*­"ëÍu.#"cÉz³È›. ¾Ê†.Ã|. O~Åõx/Gy/Oñ ÁÃu.  !"u€ÍÍð.!ÿÿ"¨":¬"æ`ÄR/:¬"æàþ@ÊÙ.þ Êß.Íd/Ãâ.Í…/Ãâ.Í /ë*¯"ë*kÍw0Ã*c+~2¬"æ`Ê/+V+^ë ë{æ€_ë"N/ë+V+^ë"P/ëÕõz/W{/_ñÑå+V+^"cë"¯"ë*kÍ[0ë*P/ëáÍØ/*N/"¤"Í/0É*¤"Í{"¢"!"¦"É!Ž"–"Í¡8"š"ÈÍœëÍþÿÀ!K#Ãc !Ž"–"Í¡8"š"Êœ/!M#Ãc Íy1É!!Í{"š"Íœ"Ö/Ž"–"¯Íç8*Ö/ëÍ*Ö/ëÍþÿÀ!K#Ãc ¯2™"2æ8#~+þ:Âñ/~æ2æ8##å!Ž" 6 # Â÷/áŽ"~#þ.Ê0ÈÂ0~#þ.Ê0ÈÃ0–"~#ÈÂ$0É:™"ö€G:¬"Oæ€ÊB0xö@Gyæ@ÊL0xöGyæÊV0xö Gx2™"ÉBKë)) )) Ž"~#Ân0ÉBKë)) )) Ž"w#Š0É!"u€Í*c+V+^ë"¯"ë"c*kÍ[0:™"æHÌñ0!š"ÅåÍH1áÁ## ÂÃ0*¢"}´ÄN!Ž"6# ÂÝ0*¯"ë*kÍw0Ã*¤"ë*¦"åõ|/g}/oñ#T]áë"F1ë*¢"Íœë*¦"ëë*F1ëz³Ê*16#z³Â!1*š"Íœå*¢"Íœëáå*¦"DMáx±Ä£%É^#Vz³ÈëåÍœëÍáÍNÉ*¢"Íœ"w1:™"æ Ês1Í«2É͇2É*¢"Íœ"2"2*š"Íœ"2*¤" )|2!2*2"2T]€ "2Íë*2ëÍ·Âå1:™"æ ÊÔ1€*2>¾Ê2# ÂË1:!2=2!2š1!"¦"É*2ë*2åõ|/g}/oñ#T]áë"¨"ëÃÞ1ë*2ëÕõz/W{/_ñÑ"¨"ÃÞ1*¨"ë*¦"Åõ|ºÂ22}»ÁxÁÒ{2ë*¤"Åõz¼ÂE2{½ÁxÁÚQ2Íy1Ã"2*w1Fë"¦"ë*¨"Åõz¼Âh2{½ÁxÁÊq2¯xÉ:™"ö2™"xÉ:™"ö2™"> ·É*­"|µÈ:™"æÀÍ"2Í;3þʤ2þÂ�2É!?#Í» É*­"|µÊÛ2:™"æï2™":™"æÀÍ"2þ Ìß2þ Ìß2ÍM+þʤ2þ»2Íâ2É> É:¬"æÄ3:™"æÀÍ"2þ Êê2þ Ê3þ Êê2þ,Êê2*¦"+"¦"É:™"ö2™"É:™"Gæï2™"¸À:™"æÀÍ"2þ Ê73þ ÈÃ#3Í"2É2�3:´"æ€Ä€3:´"æ@Âu3:�3*Œ3w#"Œ3*Ž3+"Ž3|µÊg3¯É*­"|µÊu3Í‘3Ãe3:´"ö@2´">É:´"æ?2´"Í‘3É*¸"ë*­"ëë"­"ëÍu.~+"ý3·ÊÑ3þÊÚ3þÊÑ3þ Êã3þ Êì3!8#Ãc *ý3V+^ë"Œ3¯É!"Ž3ÃÅ3!"Ž3ÃÅ3!"Ž3ÃÅ3*ý3V+^+"ý3ë"Ž3ÃÅ3*c+V+^åzþÿÂ4{þÿÂ4Ã-4*kÍ[0:™"æÊ-4á6#6Ãá6#6Ã*±":¬"æ@ÊL4ëå*ª"DMáÍYÍž#Í$G:™"æ xÂb4Í;3Ãe4ÍM+·ÊO4þÈ!?#Í» É :…4æ Ìq6*�4#"�4*†4#"†4"ƒ4:…4ö°2…4*{4:…4æÌœÉ*†4#"†4"ƒ4*�4+"�4}´À:…4æ2…4É:…4æ Ìq6*�4#"�4*†4#"†4"ƒ4:…4ö°2…4*{4:…4æÌœÉ*†4#"†4"ƒ4*�4+"�4}´À:…4æ2…4É{2Ú5:Û5»Ê25:Ü5»Ê:5ÅÃŽ5x·Êˆ4õ4x·ÊÒ4Ãÿ4{2Û5ÍÝ5!"ª4!"‘4"•4"À4"Ä4!"Ÿ4"½4!"‰4"¢4"§4"­4"Ê4"Ï4!Ž5"05ñ·Êˆ4õ4{2Ü5ÍÝ5!"ô4!"Û4"ß4" 5"5!"é4"5!"Ó4"ì4"ñ4"÷4"5"5!B5"05ñ·ÊÒ4Ãÿ4*gBKë)))) ëÉ!!Í{"4Íœ"6s46¯Íç8*6Í6!D#Â&9ÉINT"@6¯ÍB6>ÍB6þÿÊ=6*@6wëÍþÿÊ"6¯É¯<É·ÊY6*`6~#"`6þZÊV6æÉ>ÿÉ!U"`6ÉåÍœëÍáÍNÉ:Ú5_Í 7:…4æÌî5*4ÍœÍä6ë"à6ë"Þ6 Í{"Ú6Íœ"Ü6*4ÍœDM*Ü6ë*Þ6ëÍ 7*Ü6DMë*à6ëëëÍ(*à6"}4*Ú6"{4:Ú5_ͽ7Éå€ÍÑ! 6Í·Ê7!C#Ã&9*”ë*–Éå`i"™7á"›7bk{æ€_Õõz/W{/_ñÑ"�7‚‚2Ÿ7·Êk7ë*›7ëÍ*™7ëÍ·ÊQ7!C#Ã&9*›7€"›7ëÍ:Ÿ7=2Ÿ7Â>7€Í*™7ëÍå*�7DMá€*›7y°Ê˜7w# y°ÂŽ7É*gBKë)))) s4~#´7É*gBKë)))) s4w#ÂÑ7!"ƒÉÕåÍ 7*{4ÍN*4Íb6¯2…4áÑͽ7É"—8!ÿÿ"™8ë"Ÿ8ë*—8Í 7:s4þÿÊJ8:…4æÀÂA8:…4æ ÊA8*™8ë*ƒ4ëÅõz¼Â;8{½ÁxÁÜ…8ë*Ÿ8ëÃ8*™8|þÿÂY8}þÿÊ‚8*›8ÍN*—8ë*�8ëÕåÍ 7:…4æß2…4áÑͽ7*#"¯É¯<Éë"™8ë*{4"›8*Ÿ8"�8Éy2á8Õå€Í!$Í{"â8Íœ"ä8ÑÁ:á8Íç8*ä8ëÍþÿÊÜ8G¯xÃÝ8·*â8É2#9"$9:æ8w#Åw#Âõ8Ñw#w#w#:#9w#¯w#Â9*$9# Í+Éå!s4K9~# Â/9 C9ÍáÃc %Extern 12345678$ü9¯"ú9ë"ø9#Íg<Å*ú9#Íg<Ñzƒgx�¼Ú»9{*ø9å*ú9ÃÃ9y*ú9å*ø9#Í(:á :~+WæÅÕåÄù:áÑÁ zæðÅÕåÄù:áÑÁ ÂÑ9ÃÔ;2h:k:~Gæðxæ# Â0::h:=Èøõx:ˆ:`iÕÍ;Á! ë!x:ñ=õÂS:ñÉÿÿÿÿÿÿÿÿÿ=!x:_PY †+'þ ? Ž+'þ ? Ž+'þ ? Ž+'þ ? Ž+'þ ? Ž+'þ ? Ž+'þ ? Ž+'þ ? Ž+'þ ? Ž+'þ ? Ž+'þ ? Ž+'þ ? Ž+'þ ? Ž+'þ ? Ž               É!þ9¯¾Âæ;# ÂÚ;ÃH<ë! ~þ Â<ÕT]f<Í;Ñ·Ê<*ø9Få#ë~#¶#  <*ú9Ny¨æ€WxæGyæO:þ9·>Â6<>ÿ€�þ@Ú�<þÀÒº<ÆÀ²áwÉ*ø96@#¯w# ÂQ<É~W#æðÊ<¹ÚÚe>ë*mÅõz¼Â]>{½ÁxÁÒe>¯É p>ͯ<É insufficient storage$! ÍÜ>·Â®>) Í Í·Â®>€Íɹ> Íà PAS40.LIB damaged or not found $"?6ëÍþÿ>ÀÍ<2?!U"?Í?Â?*?wëÍþÿ>ÀÃû>>É*?~þZÊ5?#"?æG:?¸Ê?¯xɯ<É*m ÿ"M>ÿ`w#ÂF?*Müþ"eë*Ms#r#6Íj?!ÿÿ"IÉë"Oëbk6#6#s#r#6#>q#p#p#p#p#=‡?>dp#=—?É ³?ÍÍ AÍ:BͧBÍÕBÉ JRT Pascal ver 4.0 Copyright 1983 JRT Systems $Í@þ Êý?þaØþ{ÐÖ É> É:5@·Ê@¯25@:@OÉ:AOÍ~@2@Oõ*3@~æ#"3@þÂ.@Í7@Ã@2AOñÉ–u:6@·ÂÇ@>@2{@!–U"|@"3@*|@T]€ "|@Í!HOëÍ·Âu@:{@=2{@ÂL@É*|@6Éþ ʳ@Ðþ ʸ@þÈþ °@:ÜF·Â«@>þÍÁA¯2Æ@*BO#"BOð@>2ÝF> É!Æ@4É:Æ@Ææø<2Æ@> É>2A!—u" A"3@* AT]€ " AÍ!«OëÍ·Âþ@:A=2AÂÕ@É* A€ÿ6É>ÿ2–u2—y!1IO~þ Â#A#ÃA#~+þ:Â3A~æ2HO##~ÍoAÂ@A#Ã3AHOÍþÿÊcAiOÍiOÍþÿÊiAÉ�AüN§AüN͸Aþ0Ú†Aþ:Ú‹AþAÚ†Aþ[Ú‹AG¯ 2B!˜y"B*BT]€ "BÍiOÍ·ÂB:B=2BÂíAÉBüNError in writing TEMP1 file$Íì?þ Ê:BþAÚRBþ[ÒRBÍ\CÃ:Bþ'Â]BͬMÃ:Bþ%ÂpB>xÍÁAÍì?Í\CÃ:Bþ€B:6@·ÈÍEÃ:Bþ0Ò‹BÍõJÃ:Bþ:Ò–BÍ2EÃ:BþAÒ¡BÍLÃ:BÍpLÃ:BHOÍÍ»BiOÍÉ*àA˜yz/W{/_}|ÍäAÉŠOÍŠOÍþÿÊiA!˜‰"ZCë*DOz/W{/_}|2YC*ZCT]€ "ZCÍŠOÍ·Â7C:YC=2YCÂCŠOÍÉ=CüNError in writing TEMP3 file$2ÄC!ÅC:AOþAÚ{Cþ[Ú�CþaÚ{Cþ{Ú�Cþ_Ê�Cþ$Ê�Cþ0ÚœCþ:ÒœCÕåÍì?áÑw#ÃdCz2ÃC!ÃCÍRMxþ€Ú·CxÅÍÁAÁyÍÁAÉyõÍÁAñþRÌDÉBYN1LOOPKG¬?YN1VALIžGAYN1DONEYGYN1ZEROŠGæAYN1ADJ–G3CYN1:6@·Â‰D:Æ@ÍÁAÍì?þ ÊDþ(ÊDþ'‰D>2»NͬM¯2»N:N_!NͯD¯2ËO !«OÅå~ÍÁAáÁ# ÂDDÍì?þ ÊQDþ)‰DÍì?«OÍþÿʉD*3@"«D*BO"­D>26@!"BOÍÇ@É�DüNError in %INCLUDE directive$Õå~͸Aw#±Dáѯ2«O#~+þ:ÂÓD~æ2«O##å!¬O 6 # ÂÙDá¬O~#þ.ÊEÈÂæD~#þ.ÊEÈÃõD´O~#ÈÂEÉ«OÍ*«D"3@*­D"BO¯26@> 2@O2AOÉ>2ÚF2ÜF>i2ÛF¯2ÙF!¿F"×F¯2ÚF:@O*×Fw#"×FÍì?þ0ÚpEþ:ÒpE¯2ÙF<2ÚFÃäEþAÚ”EþIÒ”EþEÊ”EþGÊ”E¯2ÙF<2ÚF>h2ÛFÃäEþ.¶E:AOþ.©E>i2ÛFÃäE>2ÚF>r2ÛFÃäEþEÂËE>r2ÛF>2ÚF2ÙFÃäEþ+ÊÕEþ-ÂäE:ÙFþÂäE2ÚF¯2ÙF:ÚF·ÂIE>25@:ÝF·>þÄÁA¯2ÜF2ÝF*×F¿Fz/W{/_}2¾F:ÛFþiÊOFþhÊXF:¾F!¿FÍmH2½Få>@ÍÁAá~#åÅÍÁAÁá Â4F:½F·ÈŸF ÍÉ:¾FÍÑGÃ^F:¾FÍ-Gå>?ÍÁAáå}ÍÁAá|ÍÁA:½F·È}F ÍÉFormat error in integer literal $Format error in real number $ x·ÂçFyÃêF{PY!ÒôFÎ)ÒüFÎ)ÒGÎ)Ò GÎ)ÒGÎ)ÒGÎ)Ò$GÎ)Ò,GÎÉ:¾FþÚ>G>2½F!ɯ2½F!¿F~ŽG~#ÍžGÂYG ÃKG!ŠG ~Í–GæW#~Í–Gæ²W#~Í–Gæ_#~Í–Gæ³_ëÉ000000000000þ:ØæßÖÉþ0Ú¼Gþ:ÚÌGþAÚ¼GþGÚÌGþaÚ¼GþgÚÌGþHÊÎGþhÊÎG¯<2½Fɯɯ<É:¾FþÚâG>2½F!ɯ2½F:¾FG!¿F~H~#Í[H H ÂóG!H ÍHÉ!É000000000000ë!"DHë'ÍFHèÍFHdÍFH ÍFHÍFH*DHÉ~æO#åÍÞFë*DH"DHáÉþ0ÚgHþ:ÒgH¯É¯<2½FÉ"¼H2·H¯2µH2¶H2¿H2ÀH2ÁH<2¾H!­H"¸H"ºHÍIIÍìHÀ:µH·Ä{IÀÍ¿I*ºH͵J!­H¯ÉG:¾H·ÂÜH>2¾H*¸Hxæ¶w#"¸Hɯ2¾Hxæ*¸HwÉÍ0IÂIþ0ÊìHþ.ÊIþEÊ'IþeÊ'I2/IÍ[HÀ:/IÍÂH!¿H4Í0IÊ÷H¯É>2µHÃI>2¶HÃI:·H·ÊFI=2·H*¼HF#"¼H¯xɯ<É*¼H~þ+ÊjIþ-ÊpI*¸H6#"¸H>6#=ÂbIÉÍ0IÃWIÍ0I*¸H6€Ã\I:¿H·Â”IÍ0I´Iþ0—I!ÀH4ÂIÍ0IþEʶIþeʶI2¾IÍ[HÀ:¾IÍÂHÍ0IÊ—I¯É>2¶HôI:¶H·ÊÊIÍìIÀ:¿H·ÊàIG:ÁH€Æ@*ºHæ¶wÉ:ÁH!ÀH–Æ@ÃØI>+2.JÍ0IÀþ+Ê4Jþ-Ê4J2-JÍ0IÂ>J23J:-J22J!/JÍH:.Jþ-Ê%J}2ÁH¯É}/<2ÁH¯É000002.JÍ0IÀÃÿI>022J:-J23JÃJ·ÈõåÜwJáñæþÈå_ëáOG>‘Ow# ÂgJ6#ÂoJÉ ~Oæð°w+yæGÂ}JÉ·ÈþÒ³JG=æþ_NxÚ«JyæÉyæðɯÉ>2òJ#"óJ:òJ*óJÍ‘J·ÂÞJ:òJ<2òJþÚ¾J*óJ+6@É*óJ:òJ=õÍLJÁ*óJ+~�wÉþ,ÊLKþ+ÊQKþ.ÊoKþ-ÊVKþ(Ê‹Kþ)Ê[Kþ*Ê`Kþ/ÊeKþ&ÊjKþ"ÊåKÉÍÁAÉÍÁAÍ@Éõ>ÿÍÁAñÍÁAÉõ>ÿÍÁAñÍÁAÍ@É>BÃ(K>CÃ(K>DÃ(K>FÃ(K>GÃ(K>HÃ(K>Ã(K:AOþ.Ê�Kþ)ʆK>IÃ(K>TÃ,K>MÃ,K:AOþ*Ê¢Kþ.Ê�K>EÃ(K>LÃ,K*BO"¹NÍì?Íì?þÊÄKþ*«K:AOþ)«KÍì?É*¹N"BOÐKüNComment does not end$Íì?þ"ÂåKÉ*BO"¹NÍ@þÊÄKþ}ÂôKÉþ;Ê!Lþ:Ê0Lþ=Ê&Lþ>Ê^Lþ<ÊBLþ@Ê+LÉ>KÃ(K>€Ã3K>†Ã3K:AOþ=Ê=L>OÃ(K>SÃ,K:AOþ>ÊTLþ=ÊYL>‚Ã3K>…Ã>K>„Ã>K:AOþ=ÊkL>�Ã3K>ƒÃ>Kþ[Ê…Lþ]ÊŠLþ^Ê+Lþ{ÊîKÉ>LÃ(K>MÃ(Kå^#å6$Ñ ÍáÍ Mx¡þÿµL¯LÄL ÍÉ ** found ** $ -- not found -- $¾À# Â×LÉi&+)))þGÚMþNÚMþTÚMÌO^#V+ÉN#~+åÍáLÁÍMÉ 2OMå`i#"PMáz£þÿÊKMÕå*PM:OMOÍ×LáÑÊEMë^#V+Ã#Më+F+NÉÿÿÉåÍ MÑx¡þÿÀÍ`MÉ"ªM*DOw#Õë*FO"¨Mës#r#Oë "FOëÑÕë*ªMs#rëÑ6ÿ#6ÿ#Ow# —M"DO*¨MDMÉ*BO"¹N!NÅåÍ@áÁþ'ÊÔMþÊNw #yþ�ÊN÷M:AOþ'ÂæMÅåÍ@áÁÃÈMy2N:»N·À>>ÍÁA:NÍÁA:NO·È!N~ÅåÍÁAáÁ# ÂNÉ*¹N"BO NüNXRRNnRNXPOSuR¹EXPUT|RCHXVARƒR-NXXORŠRKKXELSE™R©=XCASE¡R¤BXEOLN©R'DXADDR±R¶AXFILE¹Rì<XFREEÁRúIXCONSÉR5MXCOPYÑRRNXCALLString literal too large$ Í =OÍ*BO>ÍZ#O~# Â×NO Í:6@·Ê O !¬O2O~# ÂöNO ÍÃ=O ÍÃLine 0000$ in %INCLUDE file: filenametyp $ ˜‰€ PASTEMP1 $$$TEMP3 $$$12345678123ÿÿÿÿÿÿÿÿÎQÔQàQìQòQ#R8R…R“RãRûR+SSS€S’S­SÚS T>T¢T¬TÍTãTUUÿÿJUÿÿÿÿÿÿbUÿÿ|UŠUÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿDOÚQIFÿÿINæQOFÿÿOR4ÿÿTO ùQENDRFORRCHRRAND RDIVREOFhÿÿABS*RMOD%1RMAPÿÿGET ?RNOT8FRSET!MRNIL#TRORD"[RNEWibRSQR^iRODDspRRBArwRRRN~RPOS(ÿÿPUT3ŒRVAR;ÿÿXOR›RCHAR£RELSE«RCASE³REOLN »RADDRÃRFILEËRFREEqÓRCONSNÛRCOPYÿÿCALLëRGOTOkóRHEX$zÿÿLIST+SREAL. SREAD&SOPENdSPREDe#SSUCC*ÿÿPAGE23STHEN6;STYPEZCSTRUE:KSWITHuÿÿTEXT\SBEGINeSARRAYnSCONST[wSFALSEÿÿCLOSE$‰SLABEL_ÿÿINPUT-›SRESETg¤SROUNDlÿÿREAL$7¶SWRITE5¿SWHILE<ÈSUNTILfÑSTRUNCWÿÿTITLEäSEXTERN îSDOWNTOtøSBINARYQTCONCATxÿÿDELETE]TMAXINT~ TLTRACEw*TLRANGE\4TINSERTPÿÿLENGTH0HTREADLN,RTRECORD1\TREPEATbfTPORTIN`pTOUTPUTyzTNOLIST|„TPTRACEpŽTNOCONSJ˜TSTRINGaÿÿSYSTEMmÿÿUPCASEA·TBOOLEANÂTDISPOSEÿÿFORWARDØTINTEGERRÿÿINCLUDE)îTPROGRAM/ùTREWRITEcÿÿPORTOUT9UWRITELNoÿÿWARNING&UFUNCTIONY2UCOMPRESSv>UFILLCHARUÿÿALLOCATE}VUNOLTRACE{ÿÿNOPTRACE'oUPROCEDUREnÿÿNOWARNINGVÿÿDEALLOCATEjÿÿINITIALIZE jz ym2type stax b! inx b dcr e! rz ;done dcr d! jnz ym2lp1 ; ;scan until type field is found orRCHRRAND RDIVREOFhÿÿABS*RMOD%1RMAPÿÿGET ?RNOT8FRSET!MRNIL#TRORD"[RNEWibRSQR^iRODDspRRBArwRRRN~RPOS(ÿÿPUT3ŒRVAR;ÿÿXOR›RCHAR£RELSE«RCASE³REOLN »RADDRÃRFILEËRFREEqÓRCONSNÛRCOPYÿÿCALLëRGOTOkóRHEX$zÿÿLIST+SREAL. SREAD&SOPENdSPREDe#SSUCC*ÿÿPAGE23STHEN6;STYPEZCSTRUE:KSWITHuÿÿTEXT\SBEGINeSARRAYnSCONST[wSFALSEÿÿCLOSE$‰SLABEL_ÿÿINPUT-›SRESETg¤SROUNDlÿÿREAL$7¶SWRITE5¿SWHILE<ÈSUNTILfÑSTRUNCWÿÿTITLEäSEXTERN îSDOWNTOtøSBINARYQTCONCATxÿÿDELETE]TMAXINT~ TLTRACEw*TLRANGE\4TINSERTPÿÿLENGTH0HTREADLN,RTRECORD1\TREPEATbfTPORTIN`pTOUTPUTyzTNOLIST|„TPTRACEpŽTNOCONSJ˜TSTRINGaÿÿSYSTEMmÿÿUPCASEA·TBOOLEANÂTDISPOSEÿÿFORWARDØTINTEGERRÿÿINCLUDE)îTPROGRAM/ùTREWRITEcÿÿPORTOB$4E °ÀÐàð 1#A#Q#z&‘&¡&ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ� «@ ;r@ ­5€ ɆÊý%€ Ë"€ ú>€ ûX€ ük€ ý € þŒ€ ÿ›€ ©€ º€ É€ Û€ ô€  /€ < € I€ X € d€ }4€ ±€ Ì € Ù € æ € ò,€  € + € 8 € E € R€ n€ …€ ¡€ ¼€ Û€ é€ ÿ€ € :+€ e€ }%€ ¢€ !¹€ "Ø&€ #þ#€ $! € %A/€ &p&€ '–€ (¯ € )Ï0€ *ÿ&€ +%!€ ,F€ -\ € .h€ /w€ 0“€ 1±'€ 2Ø'€ 3ÿ(€ 4''€ 5N€ 6j€ 7†€ 8œ5€ 9Ñ%€ :ö€ ;€ <+€ =G(€ >o&€ @•'€ A¼1€ Bí3€ C 2€ DR0€ E‚1€ F³1€ Gä+€ H€ I( € JHV€ Kž2€ LÐ0€ M-€ N-,€ OY € Py2€ Q«3€ RÞ<€ S € �4 %€  Y € ¡^ € ¢b € £f € ¤k € ¥n € ¦s € §v € ¨{ € © € ªƒ € «… € ¬ˆ € ­‹ € ®‘ € ¯˜ € °œ € ±¢ € ²¥ € ³© € ´« € µ® € ¶µ € ·¹ € ¸½ € ¹¿ € ºÆ € »Î € ¼Ñ € ½Õ € ¾× € ¿Ù € ÀÜ € Áß € Ââ € Ãå € Äè € Åí € Æð € Çô € Èý € É!€ Ê!€ Ë !€ Ì!€ Í!€ Î!€ Ï!€ Ð%!€ Ñ+!€ Ò1!€ Ó5!€ Ô8!€ Õ:!€ Ö?!€ ×C!€ ØH!€ ÙK!€ ÚR!€ ÛV!€ ÜY!€ Ý^! € Þh!€ ßv!€ à…! € á‘!€ â˜!€ ã™!€ äš!€ å›!€ æœ!€ ç�!€ èž!€ éŸ!€ ê !€ ë¦!€ ì§!€ í¨!€ î©!€ ï­!€ ð®!€ ñ´!€ òº!€ óÁ!€ ôÃ!€ õÅ!€ öÍ! € ÷×!€ øÜ!€ ùß!€ úç!€ ûë!€ üð!€ ýö!€ þü!€ ÿÿ!€ "€  "€ "€ "€ "€ !"€ %"€ *"€ /"€ 2"€ 5" € ?"€ B"€ F"€ L" € U"€ \"€ b"€ f"€ i"€ l"€ r"€ v"€ ~"€ „"€ Š"€ �"€ ”"€ œ"€ ¢"€ ª"€ °"€ ³"€ !´"€ "µ"€ #¶"€ $¸"€ %º"€ &¼"€ (#½"€ )#Õ"€ *#í"4€ +#!#2€ ,#S#S€ -#¦#@€ .#æ#€ /#$S€ 0#X$/€ 1#‡$‚€ 2# %!€ 3#*%&€ 4#P%x€ 5#È%'€ 6#ï%%€ 7#&0€ 8#D&)€ 9#m&"€ :#�&G€ ;#Ö&F€ <#' € =#<'#€ >#_'#€ ?#‚'€ @#¡'0€ A#Ñ'o€ B#@(†€ C#Æ()€ D#ï((€ E#).€ F#E)Q€ G#–)C€ H#Ù)0€ I# *€ J##*!€ K#D*+€ L#o*$€ M#“*#€ N#¶*/€ O#å*Q€ P#6+Q€ Q#‡+T€ R#Û+1€ T$ ,,€ U$8,,€ V$d,-€ W$‘,&€ X$·,'€ Y$Þ,&€ Z$-'€ [$+-)€ \$T-*€ h$~-€ i$�-M€ u&ê-€ x& .X€ y&a..€ z&�.F€ {&Õ.N€ |&#/[€ }&~/@€ ~&¾/?€ &ý/G€ €&D0N€ �&’0O€ ‰&á0K€ Š&,1N€ ‹&z16€ Œ&°1K€ �&û11€ Ž&,2,€ �&X2@€ �&˜2Q€ ‘&é2/€ ’&3W€ “&o3J€ ”&¹3.€ •&ç3c€ –&J4c€ —&­4O€ ˜&ü4;€ ™&75V€ š&�5I€ ›&Ö5D€ œ&6E€ �&_6P€ ž&¯6T€ Ÿ&7c€  &f7S€ ¡&¹7R€ ¢& 8C€ ¹{²ÂU>:2S 3Í IÍÍõVÍ/ñþÊ ö þcÊLþhÊ·þiÊzþmÊ`þrÊkþzÊ[…Í/Ã*gÅõ|ºÂa}»ÁxÁØ*eÅõz¼Âq{½ÁxÁØåõ|/g}/oñ#T]á*i|/g}/o#ë |·úžÂ�µÂ� !k ~ÆwÐ#~ÆwÐ6ÿ+6ÿÉ!"±ÍâÍÍ1Í?ÍOÃÕ>Í#Ñ~# ÂÙÉ!k>d2^#V#ÅõxºÂúy»ÁxÁÒBK:=2Âí`i"«É*«ë!*>Íz³Ê*ë"­É!"­É*­·|g}o"¯É*­cÍÏ)Í/É*e"–!k"˜*˜^#V#"˜ë"šÍœÍËjÍ/*–ë*gÅõz¼Â‰{½ÁxÁÚ_VÍ/É*–jåÍÏÑ*i"–+oÍÏ*š>Íu~# ÂÂÉ*šë*¯ë*­>Í!|{·Êì>*w#Âæ6 #6 #6$> 2{*š|þÿÀ}þÿÀ>+2{É:xGæÊ!xæý2x>:2SÃxö2x>#2SÃÕ Íá:xæÈ~þ$Èå_Íá#Ã<¯È!kw# ÂRÃ>ÿÃ:xöæý2xÉ:xæü2xÍ ÉY ÍÍ"ei ÍÍ"gw ÍÍ"i*gë*eåõ|/g}/oñ#T]á*i>Íz·ÂÌ{þeÚL× ÍÃz Maximum of 100 counters exceeded Enter new parameters $ LÍV Í!GNw# Â*:MO!B > ÍÉ00000xxxxxactivan data areasÈ Activan interrupt $ command : $ $ start line : $end line : $spacing : $ C clear the counters H display histogram I initialize line range M run program with monitoring R run program Z terminate program $ Line range count Activan 4.0 * = 0000 $0000-0000 00000: ÿÿÿÿ !$*16;@EJMPSV]fm†•˜œ¢»¾ÁÄÇÊÍßãèöþ "'.2<@CFILPSY]`gknqtwz~…��“� ¤¨¬°³¶¾ÈÌÐÕÝâê÷ú*-JPVY{ƒ†‰‘”—Ÿ¢¥©ºÄÊÍÕ#&039ÿÿ >:2ë ÎÍ áÍÍþʵö þlÊþpÊ*Í÷þgÊUþnÊdþsÊlþeÊtþrÊMþzÊîÍÚà ò ÍÍt"yý ÍÍt"{à  ®ÍË Í!©°w# ÂŒ:¯O!¤ > ÍÉ00000xxxxx:xGæÊÌxæý2x>:2ëà xö2x>#2ëà Õ Íá:xæÈ~þ$Èå_Íá#Ãçõ ËÍñÉ>ÿÃÍÍ÷þ-Ê:xö€2xà :xæ2xà ÍÍ÷þ-ÊB:xö@2xà :xæ¿2xà Í  ËÍ:xæý2xÉ>Íà >Íà :ˆ·Â†Ž Íà >Íà Program module not yet loaded, exproc table not available. $ Exec interrupt $ command : $ E external procedure table G set line range for trace L+ L- line trace on/off N current line and last proc P+ P- procedure trace on/off R resume program execution S system  status display Z terminate program $ lower : $upper : $ÿÿÿÿ$),16;@EJMPSV^dlrw}…ˆ’•›¼ÇÊÕØõû (05@KVjry|„ŒÿÿInvalid virtual machine code generated, system error$PROGRAM or EXTERN expected$Compilation does not end with period$Program identifier expected$Unsigned integer expected$Semicolon expected$Identifier expected$'=' expected$Comma expected$'..' expected$Undeclared label$Colon expected$Error in constant$Syntax error in constant$Syntax error in constant$Constants in subrange are not compatible types$END expected$BEGIN expected$DO expected$Type identifier expected$In subrange, first constant exceeds second constant$Undeclared type identifier$'[' expected$']' expected$OF expected$More than 8 dimensions in array declaration$'(' expected$')' expected$'[' expected$']' expected$More than 10 files declared$'Simple type' expected$WITH statement syntax error$Record identifier expected$Undeclared variable identifier$THEN expected$Pointer type expected$Undeclared field identifier$Array declaration syntax error$Invalid expression type in array reference$Invalid array reference$Invalid expression type in parameter$Parameter syntax error$Incorrect number of parameters$Incompatible types in set constructor$Incompatible types in set subrange$Invalid type in set constructor$Invalid parameter in system procedure/function$Incompatible data types in expression$File identifier expected$Assignment symbol ':=' expected$Incompatible data types in assignment statement$Incompatible data types in CASE label$Data type error in FOR statement$TO or DOWNTO expected$DO expected$UNTIL expected$Boolean expression expected$Data type error in expression$Syntax error in input/output statement$RBA or RRN expression not integer type$Invalid file name in OPEN/RESET/REWRITE$Buffer size parameter not integer type$Invalid parameter in SYSTEM$Integer expression expected$'Factor' syntax error$First operand in set membership test is invalid type$External procedure/function expected$REAL expression expected$Pointer symbol '^' expected$Parameter list syntax error$String or character expression expected$Parameter error in OPEN/RESET/REWRITE$ABS parameter not real or integer type$First parameter in COPY function not string type$Second parameter in COPY function not integer type$Third parameter in COPY function not integer type$First parameter in POS function not string type$Second parameter in POS function not string type$Third parameter in POS function not integer type$Pointer variable or file variable expected$String variable expected$Dynamic array variable expected$Index types in ALLOCATE incompatible with index types in dynamic array's declaration$Incorrect number of index expressions in ALLOCATE$Type declarations not allowed in parameter list$Integer literal or integer constant expected$Undeclared variable in assignment statement$Undeclared procedure identifier$Undeclared array variable in assignment statement$Undeclared record variable in assignment statement$Undeclared file or pointer variable in assignment statement$Syntax error in statement$'Block' structure of program invalid$BEGINCHARCASEARRAYCHRCONSTANDCLOSECALLADDRDOENDDIVDOWNTODISPOSEELSEEXTERNEOFEOLNIFFORINTEGERGOTOFILEINFORWARDFUNCTIONGETFREEOFORMODNOTNILNEWORDLABELMAPOPENPROCEDUREPUTPROGRAMPAGEREALRECORDRESETREADREWRITEREADLNREPEATTHENVARTOWHILETYPEWRITESETWRITELNWITHXORUNTILIDENTIFIERString literalInteger literalReal literalBOOLEAN,+-()*/.STRING;[]COPY:LENGTHCONCATINCLUDE:=..ALLOCATEDEALLOCATETITLEphiCOMPRESSTRUEFALSEINSERTMAXINTODDINPUTOUTPUTSYSTEMPORTINPORTOUTPREDSUCCTRUNCROUNDABSSQRINITIALIZEHEXREALUPCASENOWARNINGWARNINGNOCONSCONSRRNRBABINARYTEXTFILLCHARLRANGEDELETENOLISTLISTNOPTRACEPTRACENOLTRACELTRACEPOS=><>=<=<>^Array index too large $Array index too small $Pointer variable contains invalid virtual address $System error during dynamic storage compression $System error in dynamic storage pointer tables, possibly due to storage overlay $Dynamic storage tables full, more than 1632 blocks allocated $Insufficient dynamic storage $System error in dynamic storage pointer tables, possibly due to storage overlay $Invalid parameter in SYSFUN builtin function $Integer division by zero, if dividend is positive then quotient is set to +32767 else -32768, remainder is always set to zero $System error in assert monitor $Insufficient storage for data stack $Invalid virtual machine code encountered, possibly due to storage overlay or incorrectly defined external procedure $Error opening file for random access $Error accessing random access file $Invalid data format in input/output statement $Invalid data format in input statement $Attempt to access unopened file $Data items exceed record size in random file in RRN write statement $Error opening file due to 'file not found' or 'no directory space' $Error writing sequential file $Random access of sequential file $Sequential access of random file $Format error in input/output $Invalid parameter in SYSTEM builtin procedure $Out of range in TRUNC or ROUND function, if pa rameter is positive then result is set to +32767 else -32768 $Floating point division by zero, if dividend is positive then quotient is set to +0.99999999999999e+63 else -0.99999999999999e+63 $Error while loading external procedure $External procedure INT file not found $Invalid code passed to EXEC service routine $Error in COPY function, start_pos + length - 1 is greater than current_length $Error in POS function, start_pos is greater than current_length $Invalid data format in input/output statement $Error in extending file $No more space on selected disk $No more directory space on selected disk $Random access files not supported $File RESET error, file not found $External procedure libraries not implemented $Attempt to access character in dynamic string. Index exceeds current length. $Attempt to update character in dynamic string. Index exceeds current length. $External procedure/function was not compiled with JRT Pascal version 3 or higher $Attempt to access an unallocated dynamic array $Invalid variable or data type declaration $Overflow in floating point multiplication $Underflow in floating point multiplication $Overflow in floating point division $Underflow in floating point division $Overflow in floating point addition $Underflow in floating point addition $Overflow in floating point subtraction $Underflow in floating point subtraction $Syntax error - unrecoverable $Attempt to access buffer variable - file was not both open and sequential $ ***** 000000 00 00 00 000 00 0000 00 00 00 0000 00 000 00 00 00 000000 11 111 11 11 11 11 11 11 1111 22222 22 22 22 22 22 22 22 22 2222222 33333 33 33 33 33 333 33 33 33 33 33333 44 444 4444 44 44 44 44 44 44 444444444 44 44 5555555 55 55 55 555555 55 55 55 55 55555 66666 66 66 66 66 66 666666 66 66 66 66 66666 777777777 77 77 77 77 77 77 77 77 88888 88 88 88 88 88 88 88888 88 88 88 88 88 88 88888 99999 99 99 99 99 99 99 999999 99 99 99 99 99999 A AAA AA AA AA AA AAAAAAA AA AA AA AA AA AA AA AA BBBBBB BB BB BB BB BB BB BBBBBB BB BB BB BB BB BB BBBBBB CCCC CC CC CC CC CC CC CC CC CC CCCC DDDDD DD DD DD DD DD DD DD DD DD DD DD DD DD DD DDDDD EEEEEEE EE EE EE EEEEE EE EE EE EEEEEEE FFFFFFF FF FF FF FFFFF FF FF FF FF GGGG GG GG GG GG GG GG GGG GG GGG GG GG GGGG HH HH HH HH HH HH HH HH HHHHHHH HH HH HH HH HH HH HH HH IIII II II II II II II II IIII JJ JJ JJ JJ JJ JJ JJ JJ JJ JJ JJJJ KK KK KK KK KK KK KK KK KKKK KK KK KK KK KK KK KK KK LL LL LL LL LL LL LL LL LL LLLLLLL MM MM MMM MMM MMMM MMMM MM MMM MM MM M MM MM MM MM MM MM MM MM MM NN NN NNN NN NNNN NN NN NN NN NN NN NN NN NNNN NN NNN NN NN NN NN OOOOO OOO OOO OO OO OO OO OO OO OO OO OO OO OOO OOO OOOOO PPPPPP PP PP PP PP PP PP PPPPPP PP PP PP PP QQQQ QQ QQ QQ QQ QQ QQ QQ QQ QQ QQ QQ Q QQ QQ QQ QQQQ Q RRRRRR RR RR RR RR RR RR RRRRRR RRRR RR RR RR RR RR RR SSSSS SS SS SS SS SSSSS SS SS SS SS SSSSS TTTTTTTT T TT T TT TT TT TT TT TT TT UU UU UU UU UU UU UU UU UU UU UU UU UU UU UU UU UUUUU VV VV VV VV VV VV VV VV VV VV VV VV VV VV VVVV VV WW WW WW WW WW WW WW WW WW W WW WW WWW WW WWWW WWWW WWW WWW WW WW XX XX XX XX XX XX XXX X XXX XX XX XX XX XX XX YY YY YY YY YY YY YYYY YY YY YY YY YY ZZZZZZZ ZZ ZZ ZZ ZZZZ ZZ ZZ ZZ ZZZZZZZ  PP PP PP PP PP PP PP PPPPPP PP PP PP PP QQQQ QQ QQ QQ QQ QQ QQ QQ QQ QQ QQ QQ Q QQ QQ QQ QQQQ Q RRRRRR RR RR RR RR RR RR RRRRRR RRRR RR RR RR RR RR RR SSSSS SS SS SS SS SSSSS SS SS SS SS SSSSS TTTTTTTT T TT T TT TT TT TT TT TT TT UU UU UU UU UU UU UU UU UU UU UU UU UU UU UU UU UUUUU VV VV VV VV VV VV VV VV VV VV VV VV VV VV VVVV VV WW WW WW WW WW WW WW WW WW W WW WW WWW WW WWWW WWWW WWW WWW WW WW XX XX XX XX XX XX XXX X XXX XX XX XX XX XX XX YY YY YY YY YY YY YYYY YY YY YY Y  MUTIL2 *,0200.>PQII€I?III PP›IPtI _B&0ù&0 5 0 Î5 &ú.i h0À0.i�t= 5 2=A=ZI=:L¾@¼E(j( h0= °(0•¹R((i�PÙ*i( h02@Ž* •¹RXt* E( h05((i�**i�P ,h(i0`Š( h0=$°R‡,(Ph,h‘Ru*,i�0`u* h09=P°RÇ=Y5Pq9=L°RÛ=Y5Pq9=E°Rï^=Y5Pq9=S°R^=Y5Pq9=T°Rq^*i� h05^0=A=PI=X=ZILޏRnh ä=Error in $T parameter i ähûPq:P£YPqP|_ýÿ09=A°R—€P]9=B°R© P]9=C°R»àP]9=D°RͤP]9=E°Rß�P]9=F°RñˆP]9=G°R¢P]9=H°RâP]9=I°R'¡P]9=J°R9áP]9=K°RKÀP]9=L°R]ÄP]:Þ÷ÿ +Á5Y_ hÁ5h`ŸÞ +05P†h=MODE;=A;X|i=LDA;=C;X|j=LDD;=B;X|=LDP;=A;X|=LDI;=A;X|=LDAL;=B;X|=LDAG;=B;X|=LDLS;=K;X| =CAE;=I;X| =CAS;=I;X| =BUFV;=A;X| =LDLS;=K;X| =LDGS;=K;X|=LDDS;=K;X|=LODI;=A;X|=LLI;=B;X|=LII;=C;X|=LGI;=B;X|=LITI;=B;X|=STOI;=A;X|=SLI;=B;X|=SII;=C;X|=SGI;=B;X|=COPI;=A;X|=DELI;=A;X|=INCI;=A;X|=DCRI;=A;X|=LITY;=K;X|=STOT;=K;X|=LODT;=K;X| =LODR;=A;X|!=LLR;=B;X|"=LIR;=C;X|#=LGR;=B;X|$=LITR;=E;X|%=STOR;=A;X|&=SLR;=B;X|'=SIR;=C;X|(=SGR;=B;X|)=COPR;=A;X|*=DELR;=A;X|.=STRT;=A;X|/=LDRT;=A;X|0=LODS;=B;X|1=LLS;=G;X|2=LIS;=H;X|3=LGS;=G;X|4=LITS;=D;X|5=STOS;=B;X|6=SLS;=G;X|7=SIS;=H;X|8=SGS;=G;X|9=COPS;=A;X|:=DELS;=A;X|;=ADJS;=B;X|<=CCS;=A;X|==LIT2;=L;X|@=LODE;=A;X|A=LLE;=B;X|B=LIE;=C;X|C=LGE;=B;X|D=LITE;=F;X|E=STOE;=A;X|F=SLE;=B;X|G=SIE;=C;X|H=SGE;=B;X|I=SRNG;=A;X|J=TEQ;=A;X|K=TNEQ;=A;X|L=CTSC;=B;X|M=TGEQ;=A;X|N=CTSI;=B;X|O=TLEQ;=A;X|P=JMP;=I;X|Q=JPCT;=I;X|R=JPCF;=I;X|X=CAL;=J;X|Y=RET;=A;X|Z=XCAL;=C;X|[=XRET;=A;X|\=LPN;=A;X|^=EOP;=A;X|_=INT;=B;X|`=FRIT;=I;X|a=FRID;=I;X|b=FRCT;=I;X|c=FRCD;=I;X|e=LTRC;=B;X|f=PIN;=L;X|g=POUT;=L;X|h=L0;=A;X|i=L1;=A;X|j=L2;=A;X|l=PUSH;=A;X|m=POP;=A;X|n=COPE;=A;X|o=DELE;=A;X|p=LODN;=A;X|u=STON;=B;X|v=SPARM;=B;X|w=SRET;=A;X|x=LELM;=A;X|z=DAE;=A;X|{=DAS;=A;X|}=SELM;=A;X|=ERR;=A;X|YPÇ _hhÞ= 5€¾=0=9ILEÎ=i "#%&(+-./079;AZ[]^_`abcdefghijklmnopqrstu*wyz{|}~Jv\xNPQUVWRNKE=N5=N5=N5hhjhlh^=N5g=N5_iaÿÿcÿÿeÿÿnhj15:?N Î@¼E~$63'NEŽ?=E LNE3h?ÿÿAÿÿCÿÿEÿÿ5è7è9è^=N5^=N5^=Z5hXqYPöII_1tj E0=:°RTti E0À@‚Á5 `Qj‚ t E05P,PkhÁ5t0 5 =ERR5)Á5)))ûY_ hXÇ hXtèhhZ j= TEMP3.$$$€æhXöYPhII@I€IÿIPqP'II_/hÁ5öÿ05 =$$$5'Á5'''ûY_=TEMP1;X'=TEMP2;X'=TEMP3;X'YP¸I _ hÁ5g0=N°R-ai `û  ¬ 05Pâÿÿ‘R-0  0  jäPûi€iäi€iäYPG_ CE‘R|0 iäP§ i7i‚`§  áiäP‰ÿÿ�RZi€iäYPÊ_  3h “R û0 iäi�  ‚PÚh i‚`H û î0 iäP#YPL_hiǸ€’¹RÅø û  iiâi�”RÂ=Error : INT file too large i äPTYPsP PÏ_ ûÿ050À û0À îýÿ05Y_ üÿi Íüÿj Í 05 0;XÏi� 0;XÏY_? A ‘Rœ@P¦5i‚ i`À jX P±úÿÿ�R†YP%Pç_7�‚Cÿÿ‘R$€�PÿY_ Á MÁ iätj E0=:°R| `yt E0 iäP]P¢i`¢t E0 iäP†3g0=Y°RÄj�PÙ_i‚ƒ�j� j�hXç  jƒ�j�=0300   ä= Module size =  = dec bytes  äi4`ghiäPWY_èhhZ i= TEMP2.$$$@æt0 =.INT< æhX%hXLhXshXÊhX¸hXGçhXq^0=Y°RÚç=End of compile for  t0  j äh äY_\üÿi€�RhX›P(j€�R(hXhP([ÿÿÿÿRUe¤áõ%/9Vis}ˆ‘¤®¹ÅÍÙáíõ Coswz‹•�§¯¹ÁËÓÝåï÷ %-7?IQ[f‡‘�´Êàø)B[s‹¤½Öï 8Pi‚š²Êãü.G`y’ªÂÚó $<Tm†Ÿ¸Ñé2Kc{“¬ÅÞö ( @ X p ‰ ¢ º Ò ê   4 M f  ˜ ° É â ú  + D \ t Œ ¥ ¾ × ð ! : Q h  ˜ ° É â û  . G ` x � © Á Å ÖÚþ-<FOR¡¦ÆÊ ƒ”¥©Îãíù+EdzŠ˜¥¹Èãî$/7FJatžÃÇÊÍõ 5Wp�š²»¾Þâå"EO^hwz‡‘ µÂæXe¢§¬±¶»ÄÔ#&ÿÿi`¢t E0 iäP†3g0=Y°RÄj�PÙ_i‚ƒ�j� j�hXç  jƒ�j�=0300   ä= Module size =  = dec bytes  äi4`ghiäPWY_èhhZ i= TEMP2.$$$@æt0 =.INT< æhX%hXLhXshXÊhX¸hXGçhXq^0=Y°RÚç=End of compile for  t0  j äh äY_\üÿi€�RhX›P(j€�R(hXhP([ÿÿÿÿRUe¤áõ%/9Vis}ˆ‘¤®¹ÅÍÙáíõ Coswz‹•�§¯¹ MPTYPE ÑÓ0200ÕÛPkII I I€I?III PiPq_úÿ‘R‰üÿjZYP�_ìÿ@�¸R¦üÿjZYPª_K�RÀhZPÈûjZYPèPÏ_ øüÿi�RïûÿP õÿZ iûÿûÿ_hZûÿÿÿYPNP7_O‘RMhZP:Y_ hhZÎ@�¸Rp jZ _hZhZO�Rù  jXÏhZÎ@�¸R¸ jZõÿjZûÿ'ûÿùÿûÿ!ùÿùÿ!�XqhZK�RhZÎ@CD>?@N¼�RÞhX7O‘RdBþXqhZhX7P?hZEXqhZF‘R¹õÿùÿûÿ=V; XÉ”R¹FXqhZK�RÛhZPùÿY_ýÿ09=R°RõÿjZ'hPA9=V°RAiûÿÿÿ‘R>ûÿûÿP&PA:Î@�RjXÏ ûÿhZO‘R¤BþXqhZÎ@�¸R–üjZijXÏhZPdhZõÿjZ! ' ùÿ   ùÿùÿ�   ÿÿ�RÂK�RhZPBùÿh�R3 ÿÿjXÏj�RAhXNýÿ09=R°RqõÿùÿZ ÷ÿP…9=V°R…÷ÿùÿP…:YPŠ_ hhZÎ@�¸Rº jZ j€jPÇ_hZüÿZ�Rñ  PÆX�R»i�R €iP·�R) j€jP·A�RA €jP·+�RY €jP·J�RƒiüÿjZ! 'P·ÿÿ)_hZüÿjZ 'hP·PÆ jZPÆ !#jüÿjZ'¸RhZYP_ P _!øÿ#úÿ%üÿüÿjZ'YPC_ Î@CD?>N¼�¸RkjZ>�Rœ =C5 Þi +05P�C�D�ºRÀhZPÇXÎ@?N¼�¸RãjZ?�R =I5Pv_hZüÿZ�Q+i�RA =I5!Pr�Rg =C5 Þi +05PrjZPrPvD�R�€hZYP–_hXCTÿXqhZ  05  05hXC 0 0±RøjZP� 09=I°R?”R  jZP<‚i�X PŒ9=C°RŒ 0 0´Rd jZP‰ 0À 0À 0À‚i�X PŒ:YP‘_hZhhhX )_hZ!hüÿjZhZF‘R$ BþXqhZÎ@�¸RüüjZ)_hZ!!i�üÿjZhZPÊhZüÿ!i�Z YPG _ jZj€hZY_E�Ru hX‘P CD>?N�R” hX–Pr Î@�¸R© hXG Pr _hZüÿZ�Ræ 'hZP i�Q �Q �Q �R hX–P X�R i�R/ €hZP �RF j€hZP +�R_ €hZP A�Rx €hZP J�R hZL�Rõ hZhXC 0=I±R¯ MjZ€!h#j�üÿjZ'MXqhZPþ €P hXG P P hXG P YP _hZXqhZhX_ !h#üÿjZ'YPl _hZXq hZüÿjZ'#5üÿjZ'#5YP]IIPé _;3i� Á5Á5hèZ  Í  Í   Í 05  �i‚ è Z ƒi‚i’RH üÿZ YPö _‘R jZ0 5 �Q1 h�R> :=I5P^ �RS :=C5P^ ‡jZP^ 8 Í :058 Í 8 Í 88i�YP¿ _;=F5Î@?CD>EN¼�R}i�hX_ ;  Ú ”RCjZM‘R@hZP-PbhXö ;  Ú :05BMNX�hZPÐ YP�_;=T5iN�R;i��RÅ=I5P×i�R×=C5P×”RjZM‘RÿhZPìP;  Ú 05hZBMNX�hZP’üÿ ƒ�Z Y_=hZL XqhZiN�RŽiP“hüÿjZ '';!øüÿ ;Z 8ihRìhX�PñhX¿ ;�R hZPjZüÿjZ !; üÿ 'Z ¸Rh; ƒhXé Y_\†�R�hXŠPù�R‘hX]Pù8�R¡hX Pù�R±hXl Pù,�RéhZüÿhh=R; Xè XqhZPùhX_ Pù'h”R|�Rah�Q6�R>!jP]�RN!iP]!P]Px!PxPÐj€�Q�€�R˜!jPÏ€�R©!iPÏ€�R¼!PÏ€�RÏ!RPÏ[ÿÿÿÿlo~‹›¨¶¾ÊÍàí25CKfŠœ®8=HU_bt„£¯ÄÔÜ÷0<?LUmzŒš¢!1:?Mowƒˆ¢¸Øï÷'/?GW_�µ¹ÄüAa|‘š®¾Ùí#)?G\ept€”œ©Ùëö:=EWb‡Š�¡Óàò" E k p s Š � ’ Ÿ ¤ § Ç ä ê ò ú     - 5 D L ] e v ~ Ž ˜ ¥ ë ó ÿ      - 7 j  Ê ç T g z Ø ô  ) / < D Q \ i  – ½ í þ #6>AFVs{Ÿ·ÃÉÕâõý19p„Œâçêï Pfw|‡Œ�—œŸ§¬¯·Òßçì÷ ,4<DL[_vz…Ž–Ÿ§°ºÃÍÿÿ�R hZPjZüÿjZ !; üÿ 'Z ¸Rh; ƒhXé Y_\†�R�hXŠPù�R‘hX]Pù8�R¡hX Pù�R±hXl Pù,�RéhZüÿhh=R; Xè XqhZPùhX_ Pù'h”R|�Rah�Q6�R>!jP]�RN!iP]!P]Px!PxPÐj€�Q�€�R˜!jPÏ€�R©!iPÏ€�R¼!PÏ€�RÏ!RPÏ[ÿÿÿÿlo~‹›¨¶¾ÊÍàí25CKfŠœ®8=HU_bt„£¯ÄÔÜ÷0<?LUmzŒš¢!1:?Mowƒˆ¢¸Øï÷'/?GW_�µ¹ÄüAa|‘š®¾Ùí#)?G\ept€”œ©Ùëö:=EWb‡Š�¡Óàò" E k p s Š � ’ Ÿ ¤ § Ç ä ê ò ú     - 5 D L ] e v ~ Ž ˜ ¥ ë ó ÿ      - 7 j  Ê ç T g z Ø ô  ) / < D Q \ i  – ½ í þ #6>AFVs{Ÿ·ÃÉÕâõý19p„Œâç MSTMTA ¥§0200©‰PDII€I?II PË PJ_úÿ‘RbüÿjZYPf_K�R|hZP„ûjZYPˆ_øÿ=L;=N;üÿüÿZ YPÜP³_jXˆ0=I±RÖ+jZ4�Rø`hhZ P! �RahhZ P!,jZP!hhZ hZjXˆ0=I±RS+jZ �RfhZPn-jZ 3hhZ =øÿúÿüÿZPh Z èhZ YPÃ_jXˆ0=C±Ræ+jZ4�RbÅhhZ P1 �R&cÄhhZ P1,jZP15hiZ hZjXˆ0=C±Rc+jZ;hiZ  �R‚hZPŠ-jZ 3hhZ =øÿúÿüÿZPh Z èhZ Y_ hZ_hZøÿZøÿ=S;=Y;üÿZ hhZ S(XJhZ09=I°ROhX³Pj9=C°R_hXÃPj+jZPj:YPo_n@KN¼EhZ@�¸R–P¿øÿúÿüÿZ ‘R¼hXfP† XJhZYPÕ_n@KN¼EhZ3@�¸RP-øÿúÿüÿZ<‘R*hXfPô<.XJhZjXˆ0=B±R_/jZRhZ YPŒII€_ hhZjXˆ�R´hZP¼jZ0509=I°Qá9=B°Rù�Pa9=N°Q 9=C°R!9°:Pa9=R°RA)¨*Pa9=E°RanJoPa: h ‘RhO‘RoB�R’hZ�RªhZiPhhZ jXˆ00±R00<509=CN°Q9=NC°RP*jZP:hhZ O�RGh�RDRhhZ =Pli�QhhZ  €=Pw i`–è  €hZ PzhZøÿúÿüÿZ  i�PhhZ   €=h�RîèhZ  ‘RþhXfPg i `(è  €hZ P hhZ hZYP>_ 'hZE�RnøÿüÿZ h Z �Q–�R XPªZPªüÿ‚ Z YPÐ_øÿ=S;=Y;üÿZ S(XJhZ0=R°R!=R5P*=N5øÿ=L;0; üÿZ 0 0±R¯0 0<9=RI°RŽ–hhZ P®9=NC°Q 9=CN°R£P®)jZP®:hZ YPÆ_ hZjXˆ0=B±Rð/jZ2�R hZP jZRhhZ =øÿúÿüÿZ‘RR èhZ PŸ PhhZ =èhZ hZøÿúÿüÿZèhZ YP£ _ hZ3jXˆ0=B±RÕ /jZRhhZ = �Rü hZP jZøÿúÿüÿZPhZ èhZ YP< _øÿüÿ‘øÿ‘¹Rz PL øÿ�R– ÿÿPŸ YP£ _hZ?�R jX< ÿÿ�RÖ jZP h�R øÿi3Z PhhZ P PhZ P( újZhZYP1 _hZS�RP NjZP¯ K�Q` E�Rk OjZP¯ L�R~ PjZP¯ I�R‘ QjZP¯ †�R¤ RjZP¯ SjZP¯ K N�¸RÊ hZP° Y_\?�RO jX< ÿÿ�Rù jZP/ h‘R èi�hZ øÿi3Z hZO�RG hZPO jZÎ@�RÚ _hZøÿZ�Q¢  �Q¢  �Q¢  �Q¢  �Q¢  �Rª hXÐPÖ �Q �Q �RÊ hX>PÖ X�RÎ 9�Q> 7�Q> .�Q> 0�Q> -�Q> /�Q> &�Q> �Q> c�Q> *�Q> �Q> (�Q> �RT øÿúÿüÿZPÊ a�Q¬ :�Q¬ �Q¬ v�Q¬ "�Q¬ %�Q¬ �Q¬ x�Q¬ \�Q¬ U�Q¬ V�R øÿúÿüÿZPÊ hX1 PÊ PÖ hX1 PÖ P¤h�Rì hXoP£ �R÷ P£�RhXÆP£j�RhXŒP£�R%hXÜP£5�R5hX£ P£1�REhXÕP£�RUhX£ P£:�RsøÿúÿüÿZP£K�R~P£SjZK N�¸R hZP†P£[ÿÿÿÿEHWdrz†®±¼Ìàöþ9I\dÁÌÜð$/IYx€/EJMUZ]hm‘”µº½ÊÓÿ#(+8EUpŸª²×ß÷ÿ'?G_p€‹›¨½Ðõþ %.Eem{ˆ”ÏÝ÷üÿ &<WŒ”ž¨Îþa}Œ•ž¡¬ÄÕæù > P ¡ º Ë ò ú : i x ‰ ” ¡ ´ ½ É Ô â   / C N V ^ i q | „ � — ¢ ­ À È Ø á ì ÷  = E Y x € ˆ � ˜   ¥ ¨ ° ¸ À Å È Ð Ü ä ì ô ü    $ , 4 < R Z b j r z ‚ Š ’ š ¢ ª À Å È Ì Ñ Ô Ø â ç ê ò õ ý   #+03;@CKPS[qy|–ž¡ÿÿ/�Q> &�Q> �Q> c�Q> *�Q> �Q> (�Q> �RT øÿúÿüÿZPÊ a�Q¬ :�Q¬ �Q¬ v�Q¬ "�Q¬ %�Q¬ �Q¬ x�Q¬ \�Q¬ U�Q¬ V�R øÿúÿüÿZPÊ hX1 PÊ PÖ hX1 PÖ P¤h�Rì hXoP£ �R÷ P£�RhXÆP£j�RhXŒP£�R%hXÜP£5�R5hX£ P£1�REhXÕP£�RUhX£ P£:�RsøÿúÿüÿZP£K�R~P£SjZK N�¸R hZP†P£[ÿÿÿÿEHWdrz†®±¼Ìàöþ9I\dÁÌÜð$/IYx€/EJMUZ]hm‘”µº½ÊÓÿ#(+8EUpŸª²×ß÷ÿ'?G_p€‹›¨½Ðõþ %.Eem{ˆ”ÏÝ÷üÿ &<WŒ”ž¨Îþ EXTERN {=================================================================} FUNCTION arctan (x : real) : real; CONST half_pi = 1.5707963267948; sixth_pi = 0.52359877559828; twelfth_pi = 0.26179938779914; sqrt3 = 1.7320508075689; VAR flag2, flag3, i : integer; result : real; sign : char; {=================================================================} PROCEDURE compute; VAR flip, power, x2, odd1, result2 : real; i, j : integer; BEGIN (* compute *) flip := 1.0; power := x; x2 := sqr(power); odd1 := 1.0; j := 0; i := 0; result := 0.0; REPEAT result2 := result; result := result + flip * (power / odd1); odd1 := odd1 + 2.0; flip := - flip; power := power * x2; j := j + 1; i := i + 1; IF i > 5 THEN BEGIN i := 0; IF abs(result - result2) < (1e-12 * result) THEN result2 := result; END; UNTIL result = result2; END; (* compute *)  BEGIN (* arctan *) IF x = 0.0 THEN arctan := 0.0 ELSE BEGIN IF x < 0.0 THEN BEGIN x := - x; sign := '-' END ELSE sign := '+'; IF x > 1.0 THEN BEGIN x := 1.0 / x; flag2 := 1; END ELSE flag2 := 0; IF x > twelfth_pi THEN BEGIN x := (sqrt3 * x - 1.0) / (x + sqrt3); flag3 := 1; END ELSE flag3 := 0; IF (abs(x) <= 1.0e-08) THEN result := x ELSE compute; IF flag3 = 1 THEN result := result + sixth_pi; IF flag2 = 1 THEN result := half_pi - result; IF sign = '-' THEN arctan := - result ELSE arctan := result; END; (* else *) END; (* arctan *) .  ELSE arctan := result; END; (* else *) END; (* arctan *) .  x := - x; sign := '-' END ELSE sign := '+'; IF x > 1.0 THEN BEGIN x := 1.0 / x; flag2 := 1; END ELSE flag2 := 0; IF x > twelfth_pi THEN BEGIN x := (sqrt3 * x - 1.0) / (x + sqrt3); flag3 := 1; END ELSE flag3 := 0; IF (abs(x) <= 1.0e-08) THEN result := x ELSE compute; IF flag3 = 1 THEN result := result + sixth_pi; IF flag2 = 1 THEN result := half_pi - result; IF sign = '-' THEN arctan := - result ELSE arctan := result; END; (* else *) END; (* arctan *) .  *CONVERTME Z 0300\ œ P´ IIIIIhIôPT_ üÿjÌ5öÿi  05öÿj  05öÿ i 05öÿ j 05YPÌI_üÿÇRùh ä=File not found i ähûYP I€_ˆ=Convertm ver 4.0 i äh ä=enter name of REL file :  iäã h ä=.pNÛh‘R�=*enter filename only, do not enter filetype i äP'h ä(ip=.rel<Î@æ(jXÌ ih(l i miâ h]ip=.int<Î æi€` þhÁ5Pý]l0€ miähYP,_  j� �]lÿÿÿÿmjäi i‚`‰]l EmiäPm]lÿÿmiäj i‚ƒ�j�YP®_†]ip=.int<΀æ]lh–.€ /mi â05 =03005i  Á5j MÁ5 iÁ5]lh–.0€ /mi ä]çYPj_“RŒ(l i miâh_ 0;ZRºûÿ=15PÃûÿ=05i�YPÑ_i _ihXj5j _ihXj5úÿ05YP _ _jhXÑ5_jhXÑ5øÿ05YP>_ h €i`„_ihXj=1°Rw �  j…PWûÿÁ5YP“_h_ihXj=1°R·�_ihXj=1°RÑj�_ihXj=1°Rëi�üÿYP÷__ihX>5_ihX>5üÿ0À0Àƒ�YP3_]l_ihX> miä  i�YPX_ h_jhXÑ9=00°R†= absolute  iäPñ9=01°R«=program relative  iäPñ9=10°RÍ=data relative  iäPñ9=11°Rñ=common relative  iäPñ:_hX÷= =  j äYP_ = name field  iä_hX“= len = jä= 5i`y _ihX>5P]= =  0 j äYP�_=-- special link item i ä_hX 9=0000°Rã= entry symbol  iähXPY 9=0001°R=select common block  iähXPY 9=0010°RF= program name  iähX05PY 9=0101°Ry=define common size  iähXXhXPY 9=0110°R¨=chain external  iähXXhXPY 9=0111°RÛ=define entry point  iähXXhXPY 9=1001°R =external plus offset  iähXXPY 9=1010°R7=define data size  iähXXPY 9=1011°Rf=set location counter iähXXPY 9=1100°R�=chain address  iähXXPY 9=1101°R¾=define program size  iähXXPY 9=1110°R = end module  iähXX‘Rþ_ihXj5PáPY 9=1111°R% = end file  iäiPY = *** error - unknown special item i äiâPY :h äYPb __hX÷=program relative =  _jXT j ä]lmiä  E   i�  j�YPÓ _=data relative =  __hX÷jXT j äYP _=common relative =  __hX÷jXT j äYP= __ihXj9=0°RY hX3P² 9=1°R² _jhXÑ9=00°R{ hX�P® 9=01°RŒ hXb P® 9=10°R� hXÓ P® 9=11°R® hX P® :P² :Y_’hX ¸RÌ hX= P¼ hX,(ç]çhX®= byte count =  j äh ä=Convertm processing complete i äY_\ë++++F+~Â/ Ú> +6+6É+6+6ÉTESTBIT ! tÿÿÿÿRhq~‡–�¬³½Õûf›½þ*n|‡¬(6Fhv¬¸ÏÙâìõ)<Xah‚‘¢©¾ÅØßõ1AVgp„�©²ËÔïû2^hqwޏÃÞáì 5DOotw‚ž£¦±ÑÖÙä 25@adoŠ�˜¹¼Çßêöüÿ # W ` n • ´ Ñ ö û  , 1 ; G O T W _ h q v y ‚ ‡ Š “ ˜ › ¤ © ¬ ° º Â Ç Ê Ï Ü 2 5 M ÿÿ 9=1111°R% = end file  iäiPY = *** error - unknown special item i äiâPY :h äYPb __hX÷=program relative =  _jXT j ä]lmiä  E   i�  j�YPÓ _=data relative =  __hX÷jXT j äYP _=common relative =  __hX÷jXT j äYP= __ihXj9=0°RY hX3P² 9=1°R² _jhXÑ9=00°R{ hX�P® 9=01°RŒ hXb P® 9=10°R� hXÓ P® 9=11°R® hX P® :P² :Y_’hX ¸RÌ hX= P¼ hX,(ç]çhX®= byte count =  j äh ä=Convertm processing complete i äY_\ë++++F+~Â/ Ú> +6+6É+6+6ÉTESTBIT ! tÿÿÿÿRhq~‡–�¬³½Õûf›½þ EXTERN {=================================================================} FUNCTION cos (x : real) : real; CONST half_pi = 1.5707963267948; pi = 3.1415926535897; two_pi = 6.2831853071796; VAR i : integer; {=================================================================} PROCEDURE compute_cos; VAR result, result2, f, exclam, x2, power, odd1 : real; i : integer; {=================================================================} PROCEDURE factorial; BEGIN f := f + 2.0; exclam := exclam * (f - 1.0) * f; END; BEGIN (* compute_cos *) x2 := sqr(x); power := x * x2; odd1 := - 1.0; i := 0; result := x; exclam := 6.0; f := 3.0; REPEAT result2 := result; result := result + odd1 * (power / exclam); power := power * x2; odd1 := - odd1; factorial; i := i + 1; IF i > 5 THEN BEGIN i := 0; IF abs(result - result2) < (1e-12 * result) THEN result2 := result; END; UNTIL result = result2; cos := result; END; (* compute_cos *) BEGIN (* cos *) IF x = 0.0 THEN cos := 1.0 ELSE BEGIN (* else_1 *) x := x + half_pi; IF (x = 0.0) OR (x = pi) OR (x = two_pi) THEN cos := 0.0 ELSE BEGIN WHILE x < 0.0 DO x := x + two_pi; WHILE x > two_pi DO x := x - two_pi; compute_cos; END; (* else *) END; (* else_1 *) END; (* cos *) . sult := x; exclam := 6.0; f := 3.0; REPEAT result2 := result; result := result + odd1 * (power / exclam); power := power * x2; odd1 := - odd1; factorial; i := i + 1; IF i > 5 THEN BEGIN i := 0; IF abs(result - result2) < (1e-12 * result) THEN result2 := res %TITLE('----- CRT Mapping Utility _____') %PAGE(50) { This version setup for Televideo terminals. To adapt to other terminals modify PROCEDURE PART2 which generates the cursor positioning (gotoxy) and clear screen (clear) codes. } {=================================================================} PROGRAM crtmap; TYPE char16 = ARRAY [1..16] OF char; VAR ch : char; alphameric : SET OF char; end_of_file : boolean; map_file_name : STRING[15]; word : char16; exproc_name : char16; include_name : char16; record_name : char16; f1, f2 : FILE OF char; {=================================================================} PROCEDURE error (msg : STRING[40]); VAR dummy : char16; BEGIN writeln; writeln; writeln(msg); writeln; { abnormally terminate - return to CP/M } call(0, dummy, dummy); END; {=================================================================} PROCEDURE get_char; BEGIN read(f1; ch); IF ch = chr(1ah) THEN error('Premature end of input file'); write(ch); END; {=================================================================} PROCEDURE get_word; LABEL 99; VAR i : integer; BEGIN word := ' '; WHILE NOT (ch IN alphameric) DO BEGIN get_char; END; word[1] := ch; i := 2; get_char; WHILE (ch IN alphameric) DO BEGIN word[i] := ch; i := i + 1; get_char; END; word := upcase(word); END; {get_word} {=================================================================} PROCEDURE init; BEGIN writeln('CRTMAP ver 4.0'); writeln; write('name of Map Description File : '); readln(map_file_name); writeln; writeln; reset(f1, map_file_name, binary, 256); end_of_file := false; ch := ' '; alphameric := ['A'..'Z', 'a'..'z', '0'..'9', ':', '.', '_', '$']; get_word; IF word <> 'EXPROC' THEN error('EXPROC command expected'); get_word; exproc_name := word; rewrite(f2, exproc_name + '.pas', binary, 256); get_word; IF word <> 'INCLUDE' THEN error('INCLUDE command expected'); get_word; include_name := word; get_word; IF word <> 'RECORD' THEN error('RECORD command expected'); get_word; record_name := word; END; {init} {=================================================================} PROCEDURE part1; BEGIN writeln(f2; '{ CRTMAP generated external procedure }'); writeln(f2; 'extern'); writeln(f2); writeln(f2; 'type'); writeln(f2; '%include (''', include_name, ''')'); writeln(f2); writeln(f2; 'procedure ', exproc_name, '( var r : ', record_name, ');'); writeln(f2); END; {part1} {=================================================================} PROCEDURE part2; BEGIN writeln(f2; 'procedure clear;'); writeln(f2; 'begin'); writeln(f2; 'write(chr(27),''*'');'); writeln(f2; 'end;'); writeln(f2); writeln(f2; 'procedure gotoxy ( x,y : integer );'); writeln(f2; 'begin'); writeln(f2; 'write(chr(27),''='',chr(y+20h),chr(x+20h));'); writeln(f2; 'end;'); writeln(f2); END; {part2} {=================================================================} PROCEDURE part3; {create DISPLAY procedure} {=================================================================} PROCEDURE process_coordinates; VAR x_coord, y_coord : char16; BEGIN get_word; x_coord := word; get_word; y_coord := word; writeln(f2; 'gotoxy( ', x_coord, ',', y_coord, ');'); END; {=================================================================} PROCEDURE process_string; BEGIN {find start of string} WHILE NOT (ch IN ['''', chr(0dh), ' ', chr(9), chr(1ah)]) DO get_char; IF ch <> '''' THEN error('Literal string expected'); write(f2; 'write('); REPEAT write(f2; ch); get_char; UNTIL ch = chr(0dh); writeln(f2; ');'); END; BEGIN {part3} writeln(f2; 'procedure display;'); writeln(f2; 'begin'); writeln(f2; 'clear;'); WHILE NOT end_of_file DO BEGIN get_word; CASE word OF 'LITERAL' : BEGIN process_coordinates;  process_string; END; 'FIELD' : BEGIN process_coordinates; get_word; writeln(f2; 'write( r.', word, ');'); END; 'CURSOR' : process_coordinates; 'END' : end_of_file := true; ELSE : error('LITERAL, FIELD, CURSOR or END command expected'); END; END; writeln(f2; 'end;'); writeln(f2); END; {part3} {=================================================================} PROCEDURE part9; BEGIN writeln(f2; 'begin'); writeln(f2; 'display;'); writeln(f2; 'end;.'); END; {part9} BEGIN {crtmap} init; part1; part2; part3; part9; close(f1); close(f2); END {crtmap} .  BEGIN get_word; CASE word OF 'LITERAL' : BEGIN process_coordinates;  MCUSTOMIZôö0300øP7IUII'I_‰=A=PILE=Customiz ver 4.0 i äh äh ä=$Which disk is PAS4.COM located on :  iäi i â=%Which disk is EXEC4.COM located on :  iäi i âh äi0= :pas4.com<΀æTi0= :exec4.com<΀ælh–.€ /mi âTlh–.Ÿ€ /mi â=6The disk search list may contain up to 4 disk letters. i ä=8These indicate which disks will be searched for external i ä=6procedures and for PASCAL.LIB. Pascal source programs i ä=6are not searched for by the compiler and compiled main i ä='programs are not searched for by EXEC4. i äh ä=4The disk search list is entered as 1 to 4 contiguous i ä=8characters, e.g. ABC. There must be no spaces, commas, i ä=or quotation marks. i äh ä=enter new disk search list :  iä i â0Î5i`u +0@ޏRr +=Z5PIh ä +=Z5U05ŸU05lh–.0€ /mi äTlh–.Ÿ0€ /mi äçTçh ä=end of Customiz i äYÿÿÿÿJT`js€ÿÿM located on :  iäi i â=%Which disk is EXEC4.COM located on :  iäi i âh äi0= :pas4.com<΀æTi0= :exec4.com<΀ælh–.€ /mi âTlh–.Ÿ€ /mi â=6The disk search list may contain up to 4 disk letters. i ä=8These indicate which disks will be searched for external i ä=6procedures and for PASCAL.LIB. Pascal source programs i ä=6are not searched for by the compiler and compiled main i ä='programs are not searched for by EXEC4. i äh ä=4The disk search list is entered as 1 to 4 contiguous i ä=8characters, e.g. ABC. There must be no spaces, commas, i ä=or quotation marks. i äh ä=enter new disk search list :  iä i â0Î5i`u +0@ޏRr +=Z5PIh ä  MDEBUG çé0300ëùPP_ \h ä=Activate line trace? y/n :  iäi i â0Î=Y°R’=Range of lines? lower,upper :  iä j âý ýP–ý=!Activate procedure trace? y/n :  iäi i â0Î=Y°RÞ ýPâýh ä[ÿÿÿÿH�ÕÜÿÿDEBUG $$$åååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååå MERASE 0300GPP�I IIP0_'èÿèÿpÎuèÿjx=:°ReÚÿèÿixÀ@‚Á5PrÚÿhÁ5i= 5 èÿp= °R‰P=A=ZI=0=9I=$=/LEèÿx@ޏRÂi�P¤i èÿx5i�i�èÿx@ޏ”ºRÇèÿx@ޏ‘¹R1i�P �R?P† i` èÿx5i�i�PPÚÿ0 5 Y_=\1_  èÿpvX05 10 5#û0Àÿ�Rh ä=%Erase - file does not exist:  èÿp j ä[ÿÿÿÿ.Hc„‡³ÀÏ"/:=Q[}¨æÿÿååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååÊçÃÃÉZ Copyright 1983 JRT Systems DISKSABZZZçƒ[�ÿ!9"—1™ÙÓõÅÕå ƒ[ÍÍ•[ÍÄ]Í\ÂçÍU\ÂçÍc]ÂçÍu^ͦ[Í(*]DMë*oëÍfͦ*_####ðq#pÍ‚ Í>2‰:xæÊÍÉZáÑÁñ*—ùà Program termination $>2ˆ*]"d*dëÍ*d€"d\Í·Ê3\̀ͯÉ" ë"¢å`i"¤á*¢^#V#"¢{þÿŠzþÿÊŸ*¤^#V+å* ëás#rÃtÉ*_¯w#w#w#w#ðs#rÉõx2Lñ"JÍOÊH*Jõ:LGñÍdÊH†I!µy°Êïw# y°ÂåÍë*J@ Åõz¼Â{½ÁxÁÚÍN*Jõ:LGñÍd"MÊ-*gÍMÊï!.#à µ!†Iy°ÊEw# y°Â;*M¯Éx2°"±!ª"³*³"µÍñ"³­ë*±ë͹þÊ\"··Ê—ë*±ëå*³DMáÍ*±"·Ã�*³ÍY:°G*·ë*³Í©¯É¯<É##N#FÅõxºÂÇy»ÁxÁÚîÅõxºÂßy»ÁxÁÚê`i>É`i¯É>É^#V>ÿ»ÂºÂë¯<Éë¯É"Oë"Qëå`i"Uáë "W*Qåõ|/g}/oñ#T]áë"S*UÍñë*Ws#r#ë*Sës#r*Wë*µs#rÉÍñë*µs#rÉÅë*c å*eDMáÕåõz/W{/_ñ`iDMáÑÅõx¼Â�y½ÁxÁÚ¥`i"eë*JëÁÍ©¯É¯<ÁÉxæ@ʵÍ\ÃâÅÕåÍåÊÄÍ€Íå2ãÍ(2äÁÑñÍR:äO‡‡�o:ãO��gÉ *®##ÿ~þʹÒO"%x2'ÂñyþÿÊ":'G> �G*%5+V+^ë¯xɯ<É4¯¾Â8#¾+ÊCÂ.!,#à å+~·>áÂ8>4�Éq#p#s#r#wÉÕå"Š*°õ:²_ñÑs#r#Ñs#r#p*Šë*³s#r#64É"ØÍÚ"Õ <2×ë6#6#N6#F6#~6þ�ÊÔ*ªë*Õëë"ªëës#r#q#p:×þ4*ØÔÍÉ:‡þÿÊìåÍáåÍ_áM\*®å^#Vë ^#V+ëÁÉ|þ^Ò&þ-ÚÖ-þ ÚÖ ÃþÚ$Ö÷ÈMͯáááXͯC Í!*#à virt addr:1234 call:1234 $}þxÚgÖxþÚqÖÃgþÚ{ÖÃq·ÈÃ&*® >ÿ¾Â“#¾ÊžŠ!-#à +"³> �2²@!͹:²_!))ÍÚ>‚p#p#=ÂÄÉ"|!·Êâ�ÃÙÍÚÕë*ªë"ªs#r#s#rá6#¯w#w#w#w*®:_>ÿw#w#wÉ!ªN#F#ÅN#Fë ëá|þÿÂ}þÿÂ*eå*cDMáÅõx/Gy/Oñ ÁÉ*ª>ÿ¼ÂY½È*}#"}ÍÈͱ Íê Í‘ {²Êžë"¤##^#Vë"¦ÍÛ :¨_!ë*®^#V*¤Í5 ÃiÍ É"!""±¯2W2N*®ûþ"¢!"- !1 "/ *- #"- ë*gÍÃL:†IþÿÊ$ :˜Iæ  */ 6#6#"/ ÃÞ*ŽI:˜IæÌÚë*/ s#r#"/ ÃÞ*/ 6ÿ#6ÿÉ*® ^#V##{þÿÂÇ zþÿÊÌ åÍÑ á¶ É4ë~þ�Êä æw ÂÛ É!€"1 *®"3  Å*3 ^#V##"3 {þÿ zþÿÊ *1 Í5 "1 Ã+ *1 ¯w#w#w#w#"1 ÁÂø Éåë>4^#V#ÅõxºÂI y»ÁxÁÜy ###=Â< yþÂd xþÂd áq#p#å*w DMáq#p#ÉõÕå##~æ€Â� BK++++"w áÑñÉ!€> ^#V#ÅõxºÂ¦ y»ÁxÁÚ¯ û BK++"Ù ##2¨##=™ x±ÊÖ :¨_> “2¨¯*Ù ëɯ<É"C N#F#å`i"K á^#V#~2I åbk +å*¢DMáÍQ ë"M ë~+ z³Â å`i"¢áå`i"O áá~ö€wæ Ê: *K ë*M ëå*O DMáͽ :I æ@ă ÉõÅÕåÕåõz/W{/_ñ`iDMáÑå`i"G á*C ^#V+ë"E ëq#páÑÁñÉÍÔ Â¼ ë*G ës#ro&))€åë*E ë*G Õõz/W{/_ñÑëá##N#Fë ër+sÉ" ë" ëå`i" áÅõ|¸ÂÕ }¹ÁxÁÈÍ ë* ë" * åõ|/g}/oñ#T]áë" å* DMáë* ëÍfÍI Éë!1 >N#F#ÅõxºÂ* y»ÁxÁÊ< <þ@ !+#à _*gÍÃL*�IÉ* "™ ë* +"— !]Í› å*_DMáë*aë!ÅõxºÂw y»ÁxÁÊ– õÅÕåÍ› áÑÁñbk##^#V!Ãn É^#Vå*™ DMáÅõz¸Â® {¹ÁxÁØå*— DMáÅõz¸Â {¹ÁxÁÐå* DMáë ër+sÉ*®¯å*E DMá^#V##Åõz¸Âí {¹ÁxÁÊÿ <þ Âß !/#à +++G¯xÉ!ÿÿ"ª*¢#"eÉ>ÿ2‡Í8 åÍ*ͯ áOÍ GÍÃç $|þ#À}þ3ÊE þ.À P ÍÃç %Error: Insufficient main storage$:wæÈåͯ áÍÕå ¢ ÍÑ Í 5 ÍáÍŒÉ %Warning: $*aë*_Åõz¼Â¿ {½ÁxÁÊ÷ :'þ Ê! :OGÍ—*ƒ|µÈÍn:#~# Âæ   ÍÉ ÍÃ×  "ÍÃ× %Line 1234 $%Main $%Proc $ÍÍ4ÍÉ*]”ͯ!ƒ[¡ͯ*o®ͯ*_ºͯ*aÇͯ*cÔͯ*eàͯ*}íͯ*úͯ ŽÍÉaddr :0000 prog :0000 size :0000 base :0000 cur :0000 tos :0000 low :0000 compr:0000 purge:0000 $ 5 Í!"L¯2K*L#"Lë*gÍÃL:†IþÿÊB:K·Â<<2K NÍÍÅà 5 ÍÉexproc name addr use cnt time stat $ 12345678 0000 0000 0000 00 $Õå|ÍB'Áár#s#åyÍB'ár#sÉ:LG:…¸> ÂÔ>+2†I!€w# Âß*ŽI:˜IæÌÚŽͯ*”I—ͯ*–I¡ͯ:˜IÍB'cj"ª ÍÉ:ž1æ€È:¯1þ1È:®1ö@2a!¯1c ~# Â::ž1ÍB'cj"pÍ<ö@2t aÍÉ :----------- 00 * $PAS40 LIB"^ë"`ëÍn2˜!€͹"fÍÚ"dÍ”*^ëͪÍÝÍþ€Í*fÍŒ*bë*`Éë!›¯N#F#Åõz¸Â€{¹ÁxÁÚ�<þ?Âs÷ʌÉ*dëÍxÍ·ÈÃ*d>N#F#ÅõxºÂ¼y»ÁxÁÊÏ######=¯Ãh~# ÂÔÉ*`|µÀ*j͹"bÍÚ"`*fÍÚ"dÉ*hÍ8"bë"dë*j€Õåõz/W{/_ñ`iDMáÑÅõ|¸Â-}¹ÁxÁÚ5`i"fë*jÕõz/W{/_ñÑÍ8"hë"j*`"lÍnͨÍÑÉ*dëÍ:b2˜xÍ·ÊŒÃ*dë*dë*l:fOw# œ"lÉ:h·È=2h*l]T€ "lÍxͷʨÃ:j·È*dëÍxÍ·ÊîÃ:jO*dë*lw# ÂùÉ  ÍÃç Msg err $ $ÍÃç PAS40.LIB error $}æ_}|o¯gÉ%Error: ͪÍÛë*cs#r#"cÂ*]N#F#"]*c+V+^ë ës#rÂ*c+V+^åë^#VëÍÚëás#rÂ*c+V+^ëN#Fëq#p¯2IÍŸÍœ*c+V+^ë ës#rÂ>2Iëx·ÂÒyÃÕ{PY!ÒßÎ)ÒçÎ)ÒïÎ)Ò÷Î)ÒÿÎ)ÒÎ)ÒÎ)ÒÎÉ*]^#V#"]*aë*cs#r#"cÂ*]^#V#"]*_ë*cs#r#"cÂ*]^#"]*aë*cs#r#"cÂ*]^#"]*_ë*cs#r#"cÂ*]N#"]*c+V+^ë ës#rÂ*c+V+^åÍC:�1þ©ÂÐ:ž1æ@ÂÐ* 1ÍÚë*¤1ëás#rÂ!i$à *c+V+^"cë~6þË‚#~6þ‚#^#Vë͌¯2I*c+V+^"cë~þËÂ>#~þÂ>#^#V#åëÍÚ"<ÑÍœ*< ë*cs#r#"cÂ!R#à >2IÃ*c+V+^"c*cs#r#"cÂe*c+V+^"c*cs#r#"cÂ!"J2L:I·ÊÁë"MëÃ)*cþCÊÒ+F+NÃå+F+NÅõx/Gy/Oñ ÁN"cÅë^#V#Õåõz/W{/_ñ`iDMáÑxÚ=^#V#ãÅDMÍ�ÁáþÊC^#V#"MÍÉë*J"J*Më:L=2LÂÁ*JDMÉ!)#à !(#à ÍkÍ£ÍÂ*c+V+^ë"[ë+~2]ë"^ë+F+Nëq#p#ëå`i"`á"cë"bëÉ*c+~2dþIʶÍ1ùÍ"c*`"i*eë*gÕõz/W{/_ñÑ#ë*`DMÍÉ"`*bdw# Âê"b:]=2]£É*`ë*^s#rë͹ë*[6Ë#6#s#rÉ+V+^ë"gë+V+^ë"eëÉ+V+^Õõz/W{/_ñÑ~2g+V+^Õõz/W{/_ñÑ~2e¯2h2fÉ*c@ ë*ez¼Ú‚ÊwÃ|{½Ú‚!3#à *]^#"]!–^#VëéQOc}•ø4P§Á¢Plˆø#5øøS  øø«.¾.É.×.0CŸšøøø±8 øøøW+WøøøÑïÌøøøøS øøø?$h$�$à$âøøºøøøøä øøø©+¿-Æ-¸+G.G,.]‰køøøøøþ6áøøï§ ZªÞøñÌPjzŠøL…….ž.R!øøøøz!p#@#¶#øýDøì#øøå.÷./4/øÓ/ï/øøøøøøø -1- 0000 0%0MUcUÄTÞT÷TU4Uøøøøøøøøøøø³V¸V½VÌVÂVÇVøø0%5%:%?%D%I%øøÿ !$!;!d- -‚-øk&ˆ&…UœU˜&±&$GðFøÊ&øÛ&ô&³Ug'‘1ÑTøøøøøøøÂ!øÕ!8"øøøøøø<‡Gr4øBA5C—<+6OÖøøøø°*r)E)øøøøø–'È'³'è'ø:(")ø*]N#"]É*]^#V#"]É*]N#^#V#"]É*]N#^#V#~#F#"]`oÉ*]^#V#N#F#"]`iÉyBK*a·Êí^#Vë=Âå ÉÉ^ÍŸë"ƒëÕ:xæÊÍÉZÍ^[Ñ:xæ€Ê‚*{DM*yëÍs‚*ƒëÍn:J#~# Â0 CÍÂ%Trace 1234 $*]"gå*cDMáë*aë*_Í!r"]Â[åëåÍ�ÁÑþÊŠÍ�þÊŠ¯É¯<ÉxÚ¯zÚ¬ÅõxºÂ y»ÁxÁ>È>Ø>É>ÉzÒÉÅõxºÂ½y»ÁxÁ>È>Ø>É>É*]FxÆ2O#'~#ÂÜN#Fp+q##"]Õ`iÍn:Ñ> ~#Âýë6 #6 :xæ@Ê‚! :OGÍ—Â%Entry *]N#T] "]:xæ@Ê‚ÅÕ �ÍÑÁAë^#ÅåÍáÁÂu ”ÍÂ%Exit $ $^#ÅåÍáÁ™ÉþÊÚþÊ*þÊn:þʯþʯ þÊ4þÊþÊ£0þ Êôþ Ê*@þ ʹþÿÊê!E#Ít É:‰·ÊçÃ!xÉ!4#à Í^[*]~#^#V#åë"]*aå·Ê^#Vë=Âë*c"as#r#Ñs#r#Ñs#rÂ*aå+~/G+~/O "cá##^#V#ë"aë^#Vë"]Â*]^#V#ë"]Â*]^#V#"]*c++~"cÚ‚ë"]Â*]^#V#"]*c++~"cÒ‚ë"]Â*]^#V#"]*c"c�ë*eÅõz¼ÂÉ{½ÁxÁÚa*gÍM*gÍMÍNÃaͪë"…ëÅÍ/JëÁy*]à *c+V+^"cÍ/JÃ6*c+F+N+V+^ë^#Vr+sxªúRxºÚ:Â/y»Ú:*]##"]Â*c++++"c*]^#V#ë"]ÂzÚ/Ã:*c+F+N+V+^ë^#Vr+sxªú¢z¸ÚŠÂ{¹ÚŠ*]##"]Â*c++++"c*]^#V#ë"]ÂzÚŠÃ*c+N+V+^ë^sy»ÚÇ*]##"]Â*c+++"c*]^#V#ë"]Â*c+N+V+^ë^s{¹Úû*]##"]Â*c+++"c*]^#V#ë"]Â*…ë*cs#r#"cÂ*c+V+^ëN#Fëq#pÂ*]^#V#"]*aN#F*cq#p#"cÂ*]^#V#"]*cs#r#"cÂ*cs#r#"cÂ*cs#r#"cÂ*cs#r#"cÂ*c+V+^w#£"cÂ*]ë*cw#º"cë"]Â*]^#V#"]BK*c+V+^Ã*]~#·ÊGOë*cw# Âñp#6#"cë"]Ãa"]*c6#6#"cÂÅw# y°ÂÁq#p#"cÃa*]N#"]*cq#"cÂÍ–!] ë*c+F+N"cëq#pÂÍ–!] ë*cw#w#"cÂ*c+V+^w#ÂÃ"cÂ*cî+~ ÂÙ"cÂ*cçw# Â÷"cÂ*c+F+N+V+^"cëq#pÂ*]^#V#"]*c+F+N"c*aq#pÂ*cöÿ"c^#V#~# ÂH Â*]^#V#"]BK*c+V+^ÕÕõz/W{/_ñÑå+V+^"cë"ß áÑÄ ¯2ã Åõz¸Â‘ {¹ÁxÁÒ¸ >2ã Õåõz/W{/_ñ`iDMáÑy2á x2â BKë*ß w# y°Â¼ :ã ·ÊÜ ë*á ë p#z³ÂÔ Ã‚*cîÿ"c^#V#~# Âô Â*c+~/w+~/wÂ*c+F+N"c+V+~¡w#z wÂ*c+F+N"c+V+~±w#z°wÂ*c+F+N"c+V+~©w#z¨wÂ*c+V+^ëN#F#Åy°Ên!~# y°Âd!áës#r#"cÃaÍŸ*c+F+NÅõx/Gy/Oñ ÁÅõxºÂ™!y»ÁxÁÚ¡!BK+V+^"c##yxy°Ê‚~# y°Âµ!Â*c+V+^ëN#FyxÂ*c+V+^ë"6"ë+V+^+F+Nå*6"Åõx¼Âø!y½ÁxÁÒ"!F#à áÅõx/Gy/Oñ Áëå*6"DMáÅy°Ê*"~# y°Â "ëÑs#r#"cÂ*c+~þNÊN"+V+^ë"6#ëÃV"ë!"6#ë+F+NÅõz¸Âc"{¹ÁxÁÚu"Êu"Úu"!G#à Åõx/Gy/Oñ Á"8#å+V+^ë":#ëÕõz/W{/_ñÑ"<#"cy°ÊÐ"{²ÊÐ"~25#Ñ*6#+åõ|/g}/oñ# DMá:5#¾ÊÞ"# y°ÂÂ"*c¯w#w#"cÂë*:#">#*<#ëõÅåå*>#+">#|µáÊ# y°Â#áÁñÃÐ"#¾Êì"áÁñÃÉ"Ñ*8#åõ|/g}/oñ#T]á*cs#r#"cÁñ *c+V+^Õõz/W{/_ñÑT]N#F#Å~# x±ÂZ#ëÑs#r#"cÂ*c+T]F+N+Åx±Êˆ#~+ Ã{#ÕÍŸá+DM"cáÅõz¼Â #{½ÁxÁÚ®#}|Ãa{zÃa*c+"cV+^+F+Nå`iN#FÅõxºÂÔ#y»ÁxÁÚæ#~áw#6#6Â!O#à Í$õ*c+F+N+V+^"cë^#V Åõz¸Â ${¹ÁxÁÚ$ñwÂ!P#à *c+V+^z³Ê:$Õõz/W{/_ñÑ~"cÉ"c¯É*cDM+V+^Õõz/W{/_ñÑ~#z³ÂV$`i"cÃa*c+V+^Õõz/W{/_ñÑ"cÂÍŸ*c+F+NÅõxºÂ”$y»ÁxÁÚ¾$Õåõz/W{/_ñ`iDMáÑÅõx/Gy/Oñ Á"cÂÅåõx/Gy/Oñbk T]áÁ p#z³ÂÒ$"cÂ*c+F+N"cÅõx/Gy/Oñ Á+V+^å`i",%áë".%ëT]x±Ê%w# x±Â%ëå*,%DMá*.% ës#rÂ>ÃN%>ÃN%>ÃN%>ÃN%>ÃN%>ÃN%2e&*c+V+^ë"h&ëÕõz/W{/_ñÑT]+F+Nå`i"f&áÅõx/Gy/Oñ Á"cå¯2j&å*f&DMá*h&Åõx¼Â�%y½ÁxÁʰ%Ú­%MD>2j&õ%>2j&áx±ÊË%¾Ú8&Â3&# x±Â»%:j&þÊ=&·Ê&ë*f&ëå*h&DMáÅåõx/Gy/Oñbk T]áÁ~þ Ú3&Â8&#z³Âõ%Ã=&*f&å*h&DMáåõ|/g}/oñ# DMáþ Ú8&Â3& x±Â &Ã=&>Ã?&>Ã?&>G:e& ÊV&*c6#6#"cÂ*c6#6#"cÂ*c+F+NÅõx/Gy/Oñ Á#6#"cÂ*c+6#6#"cÂ*c+V+^Õõz/W{/_ñÑ~'á"cë)ë+r+s+"@'*<'|µÊ9'+"<'*>'~+">'ÍB'*@'s+r+"@'Ã'ÃaGæþ ÚO'Æ7ÃQ'Æ0_xæþ Úc'Æ7Ãe'Æ0WÉ*c+V+^Õõz/W{/_ñÑÍ€'Â{²È~Í�'w#À'þaØþ{ÐÖ É*c+V+^+F+N"cÅë͹ëás#rÂ*c+V+^"cë^#VëÍŒÂ*c+V+^+F+N"cÅë�Í©ëás#rÂ*c+V+^ë"8(ë+F+N+V+^"cë"(`iN#F#ÅñN#F#^#V#Õ^#VëÑÍå*8(ÅõÁq#p#Áq#p#s#r#Ñs#r#Â*c+V+^"c{þÊŒ(þÊ—(þÊ¢(þÊ­(þʸ(þʾ(þ ÊÆ(þ ÊÑ(þ ÊÜ(þÊç(þÊò(þÊý(þÊ)!@#à :wö€2wÂ:wæ2wÂ:wö@2wÂ:wæ¿2wÂÍN ÍÂ:wö2wÂ:wæï2wÂ:xö@2xÂ:xæ¿2xÂ:xö€2xÂ:xæ2xÂ*c+V+^ë"{ë+V+^"cë"yÂ*c+V+^Õõz/W{/_ñÑF++~"c2A)xÓÿÂ*c+V+^Õõz/W{/_ñÑ~+V+^+F+N"c`iGz³Ê‚p#Ãg)*c+V+^ë"×)ë+V+^ë"Ù)ë+F+Nå`i"Ý)á+V+^ë"ß)ëÕõz/W{/_ñÑ"á)"c`i^#Vë"Û)Íé)Í7*Íc*Í}*Í–**Û)ë*ß)ë*Ý)s#rÂ*×)|·Ú%*µÊ%*ë*Û)#Åõ|ºÂ*}»ÁxÁÚ+*+ë*ß)ë*Ù)++Åõ|ºÂ*}»ÁxÁÚ1*É!T#à !U#à !V#à *Ý)ë*Û)#"å)ë*ß)"ã)*×)ë*Û)Õõz/W{/_ñÑ#"ç)É*ç)DMx±È*ã)ë*å)~+ x±Âr*É*Ý)ë*×)#"ã)*á)"å)*ß)"ç)É*ç)DMx±È*ã)ë*å)~# x±Â¥*É*c+V+^ë"+ë+F+Nå`i"+á+V+^ë"+ë"cÍ+Íi+* +ë* +MDx±Êô**+w# y°Âê**+ë*+s#rÂx·úW+±ÊW+*+ +åë^#Vë" +ëáÅõz¼Â3+{½ÁxÁÚ]+:+·úc+*+ë* +Õõz/W{/_ñÑ"+É!Q#à !R#à !S#à *+#ë*+"+ë*+" +å*+DMáë*+ë* +Åõx/Gy/Oñ ÁÕõz/W{/_ñÑ#" +É*c6ÿ#6ÿ#"cÂÍŸë"E,ë!œ,>6#=ÂÅ+*E,|µÊ ,+"E,*c+V+^"cz£þÿÊ,*cÕõz/W{/_ñÑ"c~æ_ͬ,à ,Í,ÃÌ+Ä,*c+F+NÅõx/Gy/Oñ Á~æO+V+^Õõz/W{/_ñÑ"c~æ_ÃÜ,ÍŸë"š,ë!œ,>6#=ÂT,*š,|µÊ„,+"š,*c+V+^"cz£þÿÊ~,ͬ,Ã�,ÍÎ,Ã[,*cœ,w# ÂŒ,"cÂ{怲À{æx·O!œ, {æG¯7ÂÆ,¶wÉ*c+F+N+V+^"cÅõxºÂå,y»ÁxÁØå`i" -áë"-ëͬ,å* -DMáë*-ëÃÜ,*cðÿå+V+^Õõz/W{/_ñÑ"c~æ_áÃ@-*cïÿV+^"c##ÍX.ÂU-*c6#6#"cÂ*c6#6#"cÂ*c+T]ðÿ ¶w+Âp-ë"cëÂ*c+T]ðÿ ¦w+ÂŽ-ë"cëÂ*c+T]ðÿ /¦w+¬-ë"cë¯2.ÃË-¯<2.*cðÿ T] "c¾Âù- ÂÚ-:.·Âù-*c6#6#"cÂ:.·Âã-*c6#6#"cÂ*cðÿ T] "c¦¾Â8. Â.*c6#6#"cÂ*c6#6#"cÂ*cðÿ T] "cëÃ.ÅõxºÂd.y»ÁxÁÚƒ.{æx·O {æG¯7Â|.¦É¯É*cë!ðÿ~# Â�.ë"cÂ*cðÿ"cÂ*c+F+N##q#p#"cÂ*c++"cÂ*c+V+^s#rÂ*c+V+^s#rÂ*c+~/W+~/_s#rÂ*c+F+N"c+V+^ë ës#rÂ*c+F+N"c+V+^Ååõx/Gy/Oñbk T]áÁs#r¯2Ò/*c+F+N"c+V+^åxÒX/x/Gy/O>€2Ò/zÒl/z/W{/_:Ò/î€2Ò/x·Âu/yÃx/{PY!Ò„/Î)ÒŒ/Î)Ò”/Î)Òœ/Î)Ò¤/Î)Ò¬/Î)Ò´/Î)Ò¼/Î:Ò/·ÊÊ/|/g}/o#Ñës#rÂ*c+F+N+V+^å`iÍ£0ás#r#"cÂ*c+F+N+V+^å`iÍ£0ëás#r#"cÂ>Ã*0>Ã*0>Ã*0>Ã*0>Ã*0>Ã*02¢0*c+V+^"c+F+NåxÚ}0zÚx0ÅõxºÂO0y»ÁxÁ>Ê^0>Ú^0>G:¢0 Êo0á6#6Âá6#6Â>Ã^0zÒ�0ÅõxºÂ‹0y»ÁxÁ>Ê^0>Ú^0>Ã^0>Ã^0|µÊê0zæ€2ÿ0¬æ€21zÒÀ0z/W{/_|ÒÌ0|/g}/o#Í1:1·ÊÝ0z/W{/_:ÿ0·È|/g}/o#ÉÕ!1#Ít ÑzÚû0ÿÉ€ÉÕÍ~1ë!"I1ëÑÅõz¼Â1{½ÁxÁÚ21åõ|/g}/oñ#T]áÕåÍK1áÑ·|g}o:H1=2H1ò1*I1ëÉ:H1þÚi1ÞG>Ã\1Â[1O:J1±2J1ÉÃq1Âp1O:I1±2I1É·}o|gÒ�1x2H1É*c+~Úå.Â12345678123"Š2Í54"Œ2*Š2ëÍ*Œ2ë(Í€ÍÉ"Â2Í54"Ä2*Â2ëÍ*Ä2ë!ͷʹ2¯€!æ1w# ³2€Íɯ2G32H32I3Íw3Y3!23ÍZ3!53ÍZ3!83ÍZ3!;3ÍZ3!>3ÍZ3!A3ÍZ3!D3ÍZ3:I3Gæ2â1x:H3_:G3Wë"ä1ë!æ1ÍŽ2¯2Ù1É dè'† B@·ÈÕGN#V#^!I3{†w+zŽw+yŽwÂc3ÑÉ~2£3#R3ͤ3 Â�3:£3æ?_!R3+Y3~+ š3É~#GæðxæÉõ:Ù1æ€ÊÌ3*ä1ë!æ1ÍŽ2¯2Ù1ñ*â1T]æ1 wë#"â1}þ€À*ä1T]#"ä1!æ1Íf2!"â1>€2Ù1É*â1}þ€Ú4*ä1#"ä1ë!æ1ÍŽ2!"â1ë!æ1~ë#"â1É*â1|µÈ*ä1ë!æ1Íf2É!®1å! s#r#6áÉ*×1:Ò1æ@Êf4*¨1ë!j4ÍþRj4*×1Í8W!j4ÍÆ2É!"u"u7"w7*c+~2Ò1+V+^"cë"Ó1ëÍv;:Ò1æÊ£4Íñ4Ãî4ë*Õ1ëÍC:ž1æ€Â¹4!9#à :Ò1æ`ÂÕ4:ž1æ@ÊÏ4!>#à Í5Ãæ4:ž1æ@Âã4!=#à ÍN6ë*Õ1ëÍ'CÂ> 2ž1Íå6Â5:wæ€Ê 5ÕÍÑ:wæ@Êö4ÍÃö4É $* 1ÍÚ"F5Íå6À*F5å*¤1DMá så`i"¤1áÍ6Ã(52ü5·ÊW5`i"ú5Ã{5*¢1€ÿ"ú5*¢1ë*¤1Õõz/W{/_ñÑ€"¤1*ú5)|26* 1ÍÚ"ÿ5"ý5*ÿ5T]€ "ÿ5Í®1Í·ÊÌ5þ»5!I#à þÂÆ5!J#à !K#à :6=26“5€Í:ü5·À*ý5ë*¢1€ÿ €~# Âñ5É*¢1ë*¤1åõ|/g}/oñ#T]á*¨1¯Åõz¼Â$6{½ÁxÁÜH5É*c+V+^"cÕÍC*¤1ë*¨1"¤1Í6ÑÍ'CÂ!"¶6ÍE4:Ò1æ@Ê~6*¶6ë*¨1Åõz¼Âo6{½ÁxÁÚ~6Ê~6!:#à Íå6Â’6{͵3*¶6#"¶6ÃW6:Ò1æ@ʲ6*¶6ë*¨1Õõz/W{/_ñÑ|µÄ¸6Í$4É"ã6:ž1æ ÊË6> 2â6ÃÏ6¯2â6:â6͵3*ã6+"ã6|µÂÏ6É*u7|µÊö6+"u7 ÃK7*w7|µÊ 7+"w7*y7^#"y7ÃK7*Ó1|µÊM7+"Ó1ë*Þ1ͪ;N"Ü1ë!}7 :ž1æ Ê77 <7Åé"y7ë"w7`i"u7Ãå6¯É:Ò1æÊl7:Ò1æû2Ò1!{7"y7!"w7Ãå6¯<É!H#à ù7Ã8ù7Ã]:Ã';Ão7Ão7Ão7Ão7Ão7ÃÈ7Ã08Ãø9Ã]:Ã';ÃÚ7Ã08Ã":Ão7ÃA;*Ü1++"Ü1É*Ü1+V+^"Ü1ëÍØ:É*Ü1+F+N+V+^"Ü1å`i"8áëÍØ:å*8DMáÕåõz/W{/_ñ`iDMáÑx±Ê8xÚ8ÉÃ8*Ü1ôÿ"Ü1É!Ì9"ì9*Ü1+F+N+V+^å`i"î9áë"ð9ëøÿ "Ü1~æþ3Ú´8þMÒ´8~Òo8*ì96-#"ì9ÍÀ8Í9*ì9Ì9Õõz/W{/_ñÑëå*ð9|¥þÿÊ®8Õõz/W{/_ñÑ|Ú¨8DMáÉæ8æ8ÍøU!ãUÈ8¯2ò9*Ü1~æ2ó9#"ô9:ó9þAÚ÷8=2ó9*ô9:ò9<2ò9ͼNÆ0*ì9w#"ì9ÃÑ8:ò9·À*ì960#"ì9É*î9|¥þÿÊe9}þÚ9>2÷9·È*ì96.#:ó9þ@Ò@960#<"ì92ó9:÷9=2÷9ÈÃ#9"ì9:ò9<2ò9*ô9ͼNö0*ì9w#"ì9:÷9=2÷9ÂC9É:ò9<2ò9þÐ>2ö9:ö9*ô9ͼN·Â‘9:ò9G:ö9¸È=2ö9Ãt9*ì96.#:ó9þ@Ò¦960#<Ú9"ì9:ò9*ô9ͼNö0*ì9w#"ì9:ö9G:ò9¸È<2ò9é9*Ü1++~"Ü1Ú:!:É!:Étruefalse*Ü1+F+N++~"Ü1Ú<:!:ÃB:!:Õåõz/W{/_ñ`iDMáÑxÒ\:É*Ü1ðÿ"Ü1Éë!§:"¬:ëðØÍ®:ÍË:üÍ®:ÍË:œÿÍ®:ÍË:öÿÍ®:ÍË:ÿÿÍ®:ÍË:!§:É00000¯2Ê:DM|ÚÄ::Ê:<2Ê:ò:`i:Ê:Éåö0*¬:w#"¬:áɯ2&;|Òí:|/g}/o#>2&;Ín:ë! ;:&;·Ê;6- #þ0Â;Â;w# Â;Y! ;É000000*Ü1+V+^Õõz/W{/_ñÑ"Ü1É*Ü1+F+N+V+^Õåõz/W{/_ñ`iDMáÑxÂf;Õõz/W{/_ñÑ"Ü1É:Ò1G*c+æš;V+^+ë"Õ1ëxæš;ùÿ"×1+"Þ1ë*Ó1ëͪ;#"cÉz³Èï; ¾Ê»;ñ; O~Åõx/Gy/Oñ Áþ ÊÚ;þÊÚ;ê;å#N#FáÅõx/Gy/Oñ ÁÃ×;    !"u!æ1"«>¯2c=2­>2®>2¯>:Ú1ö€2Ú1*c+~2Ò1+V+^"cë"Ó1ëÍÞ@:Ò1æÊI<ͺ<Ô<ë*Õ1ëÍC:ž1æ€Â_#à ÍÁCÃŒ<:ž1æ@‰ÍÁ>·Ê©>þÊ©>þÂ>>'2°>:±>·Ê>¯2¯>2±>Ãg>:¯>·:°>ÂI>õþ Ê/>:ž1æï2ž1ñõþ Â>>:ž1ö2ž1ñþ Êg>þ,Êg>*«>w#"«>>2®>:­><2­>þ€Òd>¯É>É:®>·Ê©>*Ó1+"Ó1ë*Þ1ÍAN"Ü1!²> Ž>Å:­>éÂd>¯2®>2­>!æ1"«>*Ó1|µÂ©>>ɯÉÃã>êGÃo7Ão7Ã}@:¯>·ÂÏ>>2¯>¯É:±>·ÂÜ>>2±>ɯ2±>>É2#?O!æ1 +~æßþHÂü>Í$?Ãÿ>ÍÓ?ë!æ1~þ-Â?z/W{/_BK*Ü1+V+^ëq#p:"?·É:#?þÚ5?>2"?!ɯ2"?!æ1~þ+ÊG?þ-ÂH?#�?~#Í ?Â[? ÃM?!Œ? ~͘?æW#~͘?æ²W#~͘?æ_#~͘?æ³_ëÉ000000000000þ:ØæßÖÉþ0Ú¾?þ:ÚÎ?þAÚ¾?þGÚÎ?þaÚ¾?þgÚÎ?þHÊÐ?þhÊÐ?¯<2"?ɯɯ<É:#?þÚä?>2"?!ɯ2"?õ:#?Gñ!æ1~þ+Êü?þ-Âþ?##@~#Ík@Â@ Â@!@ Í*@É!É000000000000ë"T@ë'ÍV@èÍV@dÍV@ ÍV@ÍV@*T@É~æO#åÍÉë*T@"T@áÉþ0Úw@þ:Òw@¯É¯<2"?É*Ü1+V+^+F+No&Åõz¼Â”@{½ÁxÁÚµ@ʵ@åõ|/g}/oñ#T]áë"Ü@ëT]û@!"Ü@!æ1z³ÊË@~#þ@`ië*Ü@ëz³È6 #ÃÒ@:Ò1G*c+æÂAV+^+ë"Õ1ëxæÂAùÿ"×1+"Þ1ë*Ó1ëÍA#"cÉz³È8A ¾Ê#AÃA O~Åõx/Gy/Oñ ÁÃA  !"u€ÍÍŠA!ÿÿ"¦1:Ò1æ`Ä÷A:Ò1æàþ@ÊvAþ Ê|AÍ BÃAÍ%BÃAÍTBë*Õ1ëÍ'CÂ*c+~2Ò1æ`ÊžA+V+^ë"óAë+V+^ë"õAëÕõz/W{/_ñÑå+V+^Õ+V+^"cë"Õ1!ž1¯4w# ÂÏA>©2�1á"¨1ë*õAëáÍmB:Ò1æ`ÄêBÍÂBÉ*¢1͹" 1!"¤1É®1ÍþÿÀ®1ÍþÿÀ!K#à ®1ÍþÿÂGB!M#Ít :ž1öæ2ž1¯2�1É>2öDÍÜC¯2öDÉ®1Í®1ÍþÿÀ!K#à ¯2®1#~+þ:ƒB~æ2®1##å!¯1 6 # ‰Bá¯1~#þ.ʱBÈ–B~#þ.ʱBÈÃ¥B·1~#È·BÉ€:Ò1Oæ€ÊÑBxö@Gyæ@ÊÛBxöGyæÊåBxö Gx2ž1É*óA }æ€oë*¨1ÿ }æ€oÅõ|ºÂ C}»ÁxÁÚC"¢1Éë"¢1É!�15w# ÂCÉ!�15~# Â,CÉ!"u€Í*c+V+^ë"Õ1ë"cÍC:ž1æHÌ{C®1Í* 1}´ÄŒ¯2�1*Õ1ëÍ'CÂ*¢1ë*¤1åõ|/g}/oñ#T]áë"¿Cë* 1ÍÚë*¤1ëë*¿Cëz³Ê´C6#z³Â«C*¤1DMx±ÄH5É* 1ÍÚ"ÚC:ž1æ ÊÖCÍrEÉÍNEÉ* 1ÍÚ"ïD"ñD*¢1 ):öD·ÊD|2õD!"¤1ÃCD|=2õD*¢1ë*¤1Õõz/W{/_ñÑ€"¤1*ïDë*¢1€ÿ €~# Â1D*ïD€"ïD:ž1æÊhD*¢1ë*¦1Õõz/W{/_ñÑ€"¦1êD*ïD"óDT]€ "ïDÍ®1ͷ«D:ž1æ Ê D€*óD>¾ÊÐD# —D:õD=2õDÂhDÉ*óDë*ñDåõ|/g}/oñ#T]áë"¦1ë:ž1ö2ž1êDë*ñDëÕõz/W{/_ñÑ"¦1:ž1ö2ž1êD*¦1ë*¤1Åõ|ºÂE}»ÁxÁÒBEÍFÚ÷Dë*¤1ë*ÚCFë"¤1ë*¦1Åõz¼Â/E{½ÁxÁÊ8E¯xÉ:ž1ö2ž1xÉ:ž1ö2ž1> ·É*Ó1|µÈ:ž1æÀÍ÷DÍ,FþÊkEþÂTEÉ!?#Ít É*Ó1|µÊ¢E:ž1æï2ž1:ž1æÀÍ÷Dþ ̦Eþ ̦EÍë=þÊkEþ‚EÍ©EÉ> É:Ò1æÄßE:ž1æÀÍ÷Dþ ʱEþ ÊÖEþ ʱEþ,ʱE*¤1+"¤1É:ž1ö2ž1É:ž1Gæï2ž1¸À:ž1æÀÍ÷Dþ ÊþEþ ÈÃêEÍ÷DÉ*¢1ë*¤1åõ|/g}/oñ#T]á*¨1Åõz¼Â#F{½ÁxÁõÜÜCñÉ2�F:Ú1æ€ÄqF:Ú1æ@ÂfF:�F*}Fw#"}F*F+"F|µÊXF¯É*Ó1|µÊfFÍ‚FÃVF:Ú1ö@2Ú1>É:Ú1æ?2Ú1Í‚FÉ*Þ1ë*Ó1ëë"Ó1ëÍA~+"îF·ÊÂFþÊËFþÊÂFþ ÊÔFþ ÊÝF!8#à *îFV+^ë"}F¯É!"FöF!"FöF!"FöF*îFV+^+"îFë"FöF*c+V+^åzþÿÂG{þÿÂGÃGÍC:ž1æÊGá6#6Âá6#6Â*c+V+^åzþÿÂCG{þÿÂCG:wæ ÊWGÃNGÍC:ž1æÊWGá6#6Âá6#6ÂÍE4Íû3G:ž1æ xÂvGÍ,FÃyGÍë=·ÊcGþÈ!?#Ít É*c++N +V+^"cëq#å+ë Íá~6+wÂ2ñG¯2ïG2ðG2ùG2úG2ûG<2øG*Ü1+V+^ë"òG"ôG!æ1"öG̓HÍ&HÀ:ïG·ÄµHÀÍùH*ôGÍàN¯ÉG:øG·ÂH>2øG*òGxæ¶w#"òGɯ2øGxæ*òGwÉÍjHÂWHþ0Ê&Hþ.ÊYHþEÊaHþeÊaH2iHÍk@À:iHÍüG!ùG4ÍjHÊ1H¯É>2ïGÃWH>2ðGÃWH:ñG·Ê€H=2ñG*öGF#"öG¯xɯ<É*öG~þ+ʤHþ-ʪH*òG6#"òG>6#=œHÉÍjHÑHÍjH*òG6€Ã–H:ùG·ÂÎHÍjHÂîHþ0ÂÑH!úG4üHÍjHþEÊðHþeÊðH2øHÍk@À:øHÍüGÍjHÊÑH¯É>2ðGÃîH:ðG·ÊIÍ&IÀ:ùG·ÊIG:ûG€Æ@*ôGæ¶wÉ:ûG!úG–Æ@ÃI>+2hIÍjHÀþ+ÊnIþ-ÊnI2gIÍjHÂxI2mI:gI2lI!iIÍ*@:hIþ-Ê_I}2ûG¯É}/<2ûG¯É000002hIÍjHÀÃ9I>02lI:gI2mIÃKI :˜Iæ Ì„K*”I#"”I*™I#"™I"–I:˜Iö°2˜I*ŽI:˜IæÌÚÉ*™I#"™I"–I*”I+"”I}´À:˜Iæ2˜IÉ:˜Iæ Ì„K*”I#"”I*™I#"™I"–I:˜Iö°2˜I*ŽI:˜IæÌÚÉ*™I#"™I"–I*”I+"”I}´À:˜Iæ2˜IÉ{2íJ:îJ»ÊEJ:ïJ»ÊMJÅáJx·Ê›IÃÈIx·ÊåIÃJ{2îJÍðJ!"½I!"¤I"¨I"ÓI"×I!"²I"ÐI!"œI"µI"ºI"ÀI"ÝI"âI!¡J"CJñ·Ê›IÃÈI{2ïJÍðJ!"J!"îI"òI"J"!J!"üI"J!"æI"ÿI"J" J"'J",J!UJ"CJñ·ÊåIÃJ*gBKë)))) ëÉ!!͹"’IÍÚ")K†I+K¯Í N*)KÍ.K!D#ÂINÉINT"SK¯ÍUK>ÍUKþÿÊPK*SKwëÍþÿÊ5K¯É¯<É·ÊlK*sK~#"sKþZÊiKæÉ>ÿÉ!U"sKÉåÍÚëÍáÍŒÉ:íJ_ÍÃL:˜IæÌK*’IÍÚÍ÷Kë"óKë"ñK ͹"íKÍÚ"ïK*’IÍÚDM*ïKë*ñKëÍ.L*ïKDMë*óKëëëÍf*óK"�I*íK"ŽI:íJ_ÍàLÉå€ÍÑ! 6Íõ:‘þ3ÊL!Q#ÃINñ·Ê&L!C#ÃIN*”ë*–Éå`i"¼Lá"¾Lbk{æ€_Õõz/W{/_ñÑ"ÀL‚‚2ÂL·ÊŽLë*¾LëÍ*¼LëÍ·ÊtL!C#ÃIN*¾L€"¾LëÍ:ÂL=2ÂLÂaL€Í*¼LëÍå*ÀLDMá€*¾Ly°Ê»Lw# y°Â±LÉ*gBKë)))) †I~#Â×LÉ*gBKë)))) †Iw#ÂôL!"ƒÉÕåÍÃL*ŽIÍŒ*’IÍuK¯2˜IáÑÍàLÉ"ºM!ÿÿ"¼Më"ÂMë*ºMÍÃL:†IþÿÊmM:˜IæÀÂdM:˜Iæ ÊdM*¼Më*–IëÅõz¼Â^M{½ÁxÁܨMë*ÂMëÃ*M*¼M|þÿÂ|M}þÿÊ¥M*¾MÍŒ*ºMë*ÀMëÕåÍÃL:˜Iæß2˜IáÑÍàL*#"¯É¯<Éë"¼Më*ŽI"¾M*ÂM"ÀMÉy2NÕå€Í!$͹"NÍÚ"NÑÁ:NÍ N*NëÍþÿÊÿMG¯xÃN·*NÉ2FN"GN: Nw#Åw#ÂNÑw#w#w#:FNw#¯w#Â5N*GN# Í€'Éå!†InN~# ÂRN fNÍáà %Extern 12345678$·ÈõåÜ¢NáñæþÈå_ëáOG>‘Ow# Â’N6#šNÉ ~Oæð°w+yæG¨NÉ·ÈþÒÞNG=æþ_NxÚÖNyæÉyæðɯÉ>2,O#"-O:,O*-OͼN·Â O:,O<2,OþÚéN*-O+6@É*-O:,O=õÍwNÁ*-O+~·ú%O�·útZwÉ�·òtZwÉ™x–w# Â3O+~€'wÐ È+Ã@O¾#Ú]OÂ`O ÂMO¯É>É>É~æGæ¸ÚvOÊtO>ɯÉ>ÉÚ“O~Ú£OÍcOÊ�OÍ·OÉ#ÍKOÉ~Ò¦OÍcOÊ©OþʦO>É>É#ÍKOÈþʦOãO2ÞOë"ÜOëÍcQ|µÊÖO*ÜOÍcQ|µÊÙO:ÞOÉ>É>É ë · Ž'w+ ÂçOÉ·Èå "-PáG>�GÅåxÍ0PáÁWxÅÕåÍ0PáÑÁ²ë*-Pw+"-Pë ÂPÉ·Ê=PþÒ=PͼNÉ:/PÚFP¯É> ÉÍcO·Ê…PþÊnP2/PæO~æ‘#ÕåëÍòOáÑÇP~2/PæGæ�#ÕåÍòOáÑÇP#ÍßOÉë"DQë"FQ~æGæ�OyÚ2QþÒõPÚ%Q~ÚüP*DQ~æ€2HQ~æw*FQ~æwÍIPÒéP*DQ~åõz2/PñÍòOá~öw*DQ~æG:HQ°w*DQÍàNÉ#Í/O*DQë*FQÍIPÚQ*DQ~ö€w#Í/OÃõP*DQ~æwÃõP~Ú°Pë#Í/OÃQ/<þÚ¦P~#Â;QÉ ~Oæð°w+yæGÂOQÉ#>õ~#õæOë ëñæOë ëñ=ÂkQëÉ"ÛQë"ÙQ#"ÝQ͈RÈÍCRÍöQÅͧRÁ·Â°Q*ÙQ5ÅͧRÁOÅͧRÁ±*ÝQw#"ÝQ«QͧRþ*ÙQÔÉR*ÙQÍàNɯ!çQw#ÂüQë*ÙQëw# R*ÛQë!àQw#ÂR!àQÍ/OÉõQ!æQ·Ž'+ Â4RØ=É*ÛQF*ÙQNPYx©æ€GzæW{æÆAºÚtZ’þ€ÒžZ°wÉ:îQ·À*ÛQ#ë!ïQ¾ØÂ†R#ÂwR¯<ɯÉ*ÛQ#~·À!B#Ít *ÙQ~öw>#6™#=ŸRɯ2ÈRÍhRʾRÍ+R:ÈR<2ÈRëR!çQÍIQ:ÈRÉ"õRë!÷RÍßOÐ*õR~ÆwÊžZþ€ÊžZ¯2/P>#åÍòOá~öwÉ"rS"tSzÒS6Åz/W{/_ÃS6EëðØÍvSõüÍvSÁ°ë*rS#w"rSëœÿÍvSõöÿÍvSÁ°ë*rS#w"rSëÿÿÍvS*rS#w>#6#=ÂdS*tSÍàNɯ2’SDM|ÚŒS:’S<2’SÃzS`i:’SÉ"-TÍ?TÂT!"/T*-T~æþAÚTÞ@G>�#õz2/PñÍòO>*-T#åͼNÍ1T> áåͼN Í1T> áåͼNdÍ1T> áåͼNèÍ1T> áåͼN'Í1Tá+~*/TÐ|/g}/o#É!É!A#Ít *-T~Ú)T!ÿÉ!€É·È*/T=Â6T"/TÉ]TÍyOþÊZT*-TeTÍyOþÊZT¯É¯<ÉÅ2v€E2vp"�T~ëÚ|T!ŸTÃT!§T¯T~# „T*�Të!¯TÍ‹P*�TÍ“SÉ@PÀP~æwÉ~î€wÍàNÉ*cøÿ ͼTÂ*cøÿ Í·TÂ>2ÈZ*cøÿ "cT] ëÍ‹PÂ>2ÈZ*cøÿ "cT] ë~î€wÕåÍàNáÑÍ‹PÂ>2ÈZ*cøÿ "cT] ëÍ8WÂ>2ÈZ*cøÿ "cT] ë͇QÂ*c+V+^å "cáÍþRÂ*c+T] "c+w+ ÂsUëV+^ÍþRÃa*cøÿ åÍ“Sëás#r#"cÂ*cøÿ åÍmTëás#r#"cÂ*c+V+^{2ÜU+V+^ë"ÝUëøÿ"cÍøU:ÜUþÍQVÂ+0.12345678901234E+99"LV~ÚV>+2ãUà V>-2ãU~æ͆V>2PV!æU"NV*LV#ͼNö0*NVw#"NV:PV<2PVþÂV!ãU"áU>2àU>2ßUÉ:ßU*c6 #=ÂWV:àUGë*áUëw#ÂgVë:ßUo&:àUO ës#r#"cÉþ@Ú–VÞ@G>+2õUàVG>@�G>-2õUh&Ín:###~2öU#~2÷UÉ>ÃÑV>ÃÑV>ÃÑV>ÃÑV>ÃÑV>ÃÑV2W*cøÿ T] "cëÍyO·ÂëV>G:W ÂW*c6#6#"cÂ*c6#6#"cÂ*cë!øÿ~# ÂWë"cÂ*cøÿ"cÂàW¯"ÞWë"ÜW#ÍKZÅ*ÞW#ÍKZÑzƒgx�¼ÚŸW{*ÜWå*ÞWçWy*ÞWå*ÜW#Í Xá ýW~+WæÅÕåÄÝXáÑÁ zæðÅÕåÄÝXáÑÁ µWøY2LXOX~Gæðxæ# ÂX:LX=Èøõ\XlX`iÕÍëXÁ! ë!\Xñ=õÂ7XñÉÿÿÿÿÿÿÿÿÿ=!\X_PY †+'þ ? Ž+'þ ?  Ž+'þ ? Ž+'þ ? Ž+'þ ? Ž+'þ ? Ž+'þ ? Ž+'þ ? Ž+'þ ? Ž+'þ ? Ž+'þ ? Ž+'þ ? Ž+'þ ? Ž+'þ ? Ž               É!âW¯¾ÂÊY# ¾YÃ,Zë! ~þ ÂçYÕT]JZÍëXÑ·ÊçY*ÜWFå#ë~#¶# ÂðY*ÞWNy¨æ€WxæGyæO:âW·>ÂZ>ÿ€�þ@ÚtZþÀÒžZÆÀ²áwÉ*ÜW6@#¯w# Â5ZÉ~W#æðÊcZ¹ÚcZOzæÊoZ¹ÚoZOÂQZÉ:ÈZþÊŒZþÊ’ZþʘZ!X$à !Z$à !\$à !V$à :ÈZþʶZþʼZþÊÂZ!W$à !Y$à ![$à !U$à yþÒ[x·Â[ÕÍP[z³ÊåZëÍÚ##Ñé"*[i&ÍÕå^#V+DMë`iÍf**[ÑÁq#p#s#rë##ÑéÑ ,[ÍÉÍP[6#6ëÍŒÉ ZACALL error $i&))<[^#V+É Í·ÈÍþÂy[ÍÉZÉþÀÍÉZÉExec ver 4.0 $!€0 ~# Â�[É:0O!1>$¾Ê¹[# ¯[É# È~ö þnÊÙ[þaÊí[þlÊ\þpÊ \# ¼[ÉõÅÕåÍÉZáÑÁñÃÓ[õÅÕåÍÉZáÑÁñÃÓ[:xö€2xÃÓ[:xö@2xÃÓ[>I2e>N2f>T2g\ÍþÿÊ5\¯É @\ͯ<É INT file not found$ã\Í\Í·Êt\ |\ÍÃy\Í�\¯É¯<É INT file empty$:ô\þ3ʽ\  \Íà INT module not version 3 $*]ë*ï\"g*ñ\"k*÷\"o*ù\"q*û\"iÉ*"m*]ë*o"_"a"c*]ë*q·Ú¢]Ú¢]ë*mÅõz¼Âš]{½ÁxÁÒ¢]¯É ­]ͯ<É insufficient storage$!xÍ^·Âë]™ÍxÍ·Âë]€ÍÉö] Íà PAS40.LIB damaged or not found $"S^6ëÍþÿ>ÀÍ<2U^!U"V^ÍX^ÂP^*S^wëÍþÿ>ÀÃ8^>É*V^~þZÊr^#"V^æG:U^¸ÊX^¯xɯ<É*m ÿ"®>ÿ`w#ƒ^*®üþ"eë*®s#r#6ͧ^!ÿÿ"ªÉë"°ëbk6#6#s#r#6#>q#p#p#p#p#=ÂÄ^>dp#=ÂÔ^ÉNOÓoIQMSG—»^ECPART2× Î†KOICONVPnf**[ÑÁq#p#s#rë##ÑéÑ ,[ÍÉÍP[6#6ëÍŒÉ ZACALL error $i&))<[^#V+É Í·ÈÍþÂy[ÍÉZÉþÀÍÉZÉExec ver 4.0 $!€0 ~# Â�[É:0O!1>$¾Ê¹[# ¯[É# È~ö þnÊÙ[þaÊí[þlÊ\þpÊ \# ¼[ÉõÅÕåÍÉZáÑÁñÃÓ[õÅÕåÍÉZáÑÁñÃÓ[:xö€2xÃÓ[:xö@2xÃÓ[>I2e>N2f>T2g\ÍþÿÊ5\¯É @\ͯ<É INT file not found$ã\Í\Í·Êt\ |\ÍÃy\Í�\¯É¯<É INT file empty$:ô\þ3ʽ\  \Íà INT module not version 3 $*]ë*ï\"g*ñ\"k*÷\"o*ù\"q*û\"iÉ EXTERN {=================================================================} FUNCTION exp (x : real) : real; CONST factor2 = 0.50000000000000e+00; factor3 = 0.16666666666667e+00; factor4 = 0.41666666666667e-01; factor5 = 0.83333333333333e-02; factor6 = 0.13888888888889e-02; factor7 = 0.19841269841270e-03; factor8 = 0.24801587301587e-04; factor9 = 0.27557319223986e-05; factor10 = 0.27557319223986e-06; factor11 = 0.25052108385442e-07; factor12 = 0.20876756987868e-08; factor13 = 0.16059043836822e-09; factor14 = 0.11470745597730e-10; factor15 = 0.76471637318198e-12; factor16 = 0.47794773323874e-13; factor17 = 0.28114572543455e-14; factor18 = 0.15619206968586e-15; factor19 = 0.82206352466245e-17; factor20 = 0.41103176233122e-18; factor21 = 0.19572941063392e-19; TYPE str = ARRAY [1..22] OF char; VAR result, xa : real; p : ARRAY [1..21] OF real; count, i, j : integer; sign : char; BEGIN (* exp *) IF x > 145.0 THEN exp := 0.99999999999999e+63 ELSE IF x < - 145.0 THEN exp := 0.0 ELSE BEGIN IF x < 0.0 THEN BEGIN sign := '-'; x := - x; END ELSE sign := '+'; (* compute exp(x) for 0 1.5 THEN IF x < 6.0 THEN BEGIN count := 1; x := x / 4 END ELSE IF x < 24.0 THEN BEGIN count := 2; x := x / 16 END ELSE IF x < 96.0 THEN BEGIN count := 3; x := x / 64 END ELSE BEGIN count := 4; x := x / 256.0 END; IF x < 0.007 THEN result := x + 1.0 ELSE BEGIN xa := x; FOR i := 1 TO 21 DO BEGIN p[i] := xa; xa := xa * x; END; result := 1 + x + (p[2] * factor2) + (p[3] * factor3) + (p[4] * factor4) + (p[5] * factor5) + (p[6] * factor6) + (p[7] * factor7) + (p[8] * factor8) + (p[9] * factor9) + (p[10] * factor10) + (p[11] * factor11) + (p[12] * factor12) + (p[13] * factor13) + (p[14] * factor14) + (p[15] * factor15) + (p[16] * factor16) + (p[17] * factor17) + (p[18] * factor18); END; (* else *) FOR i := 1 TO count DO result := sqr(sqr(result)); IF sign = '-' THEN exp := 1.0 / result ELSE exp := result; END; (* else *) END; (* exp *) .  xa := xa * x; END; result := 1 + x + (p[2] * factor2) + (p[3] * factor3) + (p[4] * factor4) + (p[5] * factor5) + (p[6] * factor6) + (p[7] * factor7) + (p[8] * factor8) + (p[9] * factor9) + (p MINDEX0 ü þ 0300!š$P.IIIIII I@@I@ I IIIIIIIIIIIIII*PˆP4_X=Rj}‘ £¦ÆÛî"1i¬ú36Yfj‹•� ©²Ëó .CP[^go†™¢­°¹ÁÓØð÷ " . 2 B O c q z ‡ Š — £ ¶ Ô ê " ? K § « ½ ý 7 A I Y „ Ž – µ Å Õ Þ ñ     ? | Ž š ž ¶ º Ü â    6 9 H V Z e h Ž ¡ ¦ © ¹ Ï × ì Ka‰%h±¹Éßéñ $(1DH^d{�Œ¬µÄÙâåèñ 1?I]jnŒ‘”§°ÌÙÜä÷û#04Mo�—ÏÒýl} ª²Îíð  $9fŠ­Íð*ERao‰“ž¡©¬¹ÄÇáêþ2Vqv­¶¾Ö  8EV�éîò/48@PuÇËÖÙþ #+IN[gjmp—§¹ï6:BGK—ãëð"&.3¨­¾ÂÍÐöû  #38Gg€…®¶¹¾ÁÉÑÔÙÜäìïô÷ÿ "%*-5=@EHPX[`cksv{~†Ž‘–™¡©¬»ÃÌÔÝåíðõø &.2@HKPS[lt…“±Öîô  / 7 P X t | – ž ¸ À Ø à ø ÿÿ/2}�¦Ýí*9AWfn„“›±ÀÆÜéï;?RhŸ¨¾Ô×ÚÝàãæéìïòõøûtƒ’Çèð(7>Rj}‘ £¦ÆÛî"1i¬ú36Yfj‹•� ©²Ëó .CP[^go†™¢­°¹ÁÓØð÷ " . 2 B O c q z ‡ Š — £ ¶ Ô ê " ? K § « ½ ý 7 A I Y „ Ž – µ Å Õ Þ ñ     ? | Ž š ž ¶ º Ü â    6 9 H V Z e h Ž ¡ ¦ © ¹ Ï × ì Ka‰%h±¹Éßéñ $(1DH^d{�Œ¬µÄÙâåèñ 1?I]jnŒ‘”§°ÌÙÜä÷û#04Mo�—ÏÒýl} ª²Îíð  $9fŠ­Íð*ERao‰“ž¡©¬¹ÄÇáêþ2Vqv­¶¾Ö  8EV�éîò/48@PuÇËÖÙþ #+IN[g MINDEX1 ôö0300øÔP.IIIIII I@@I@ I IIIIIIIIIIIIII*PâPPkPÛP(PdPPSPÝP P¶ PR_X=.2†i�.i‘¹Rh ä. † �R5=+ iäP>=. iä.i‚܆h�R1i.’Rs§ll0 miälhÁòàhjn á_üÿi�XÞ5jn á000±jn á 0hÁ±¹R0jn á05jn á jn á 0Å5P'0jn á05nni�P =/%INDEX1 - did not find all records on data base i ä.= out of üÿ  äüÿ  P»làüÿXd_hX% R>là�_ X;Xx üÿf úÿüÿ X�púÿ4XQ 4–™%0_lài�XÞ5àà�P‘§ll0 miäüÿ 0=TW°R•h ä_hX% ¸R»üÿflh–.400 /mi ä§ç§i0 ΀æ§lh–.j0 /mi ä§ç_hX% Röpçüÿ h�R×üÿ1ç_hX% R!üÿfçâh_d0;üÿ0;=ix0; X R‘_d0;üÿ0;=ix0;=$$i;X R‘âiâ_hX% ¹R_d0;üÿ0;=dat; X R â_d0;üÿ0;=dat;=$$d;X Pâhâ¸R^=*%INDEX1 - error erasing and renaming files i äüÿ  hXg Peüÿ0d0±d0=Y±¹R¯_üÿ0;üÿ0;=ix0; X· R¯üÿ1id0=:<üÿ0<=.ix0<΀æ_hX% Reüÿ0d0±d0=Y±¹R8_üÿ0;üÿ0;=dat; X· R8üÿfid0=:<üÿ0<=.dat<΀æüÿhüÿj05üÿl05üÿi€üÿhüÿhüÿ 40050üÿd05hXg hXÅY_\üÿ h÷ÿ÷ÿ0Î5÷ÿ09=J°Q9=K°R%_hX¾R"hXT P3üÿ P3:üÿ h‘üÿ 0=TW°¹Ró=%INDEX1 error:  iäüÿ �R�= Key not found i äPò�R²=Invalid command i äPò�RÒ= File not open i äPò �Rò= Serious error i äPò[ÿÿÿÿ/258;>ADGJMP›®Ãù $0ES[p~†›©±ÆÔÚïû"KObr•ž®ÂÑà$7KZ]`€•¨»ÊÍÐì os…ÃÜ8HXat„”�¡Þðü>Ddu‚˜›ª¸¼Òú–Ù. 6 F J S f j € † � £ ® Î × æ û    # : v Ž û   E \ e v † œ · É  „ ˜ ž k o … ¦ ´ È Ú â @M`ÃÆï’š�Ô'3LU�ž¬ÁÇÑßðö2ž»ÃÆåï+Vj�›ŸíðPS‡Š›ŸËÎ Y\ª­âå36Úß #1OvŽ–°¸ÐØðÿÿ=Y±¹R8_üÿ0;üÿ0;=dat; X· R8üÿfid0=:<üÿ0<=.dat<΀æüÿhüÿj05üÿl05üÿi€üÿhüÿhüÿ 40050üÿd05hXg hXÅY_\üÿ h÷ÿ÷ÿ0Î5÷ÿ09=J°Q9=K°R%_hX¾R"hXT P3üÿ P3:üÿ h‘üÿ 0=TW°¹Ró=%INDEX1 error:  iäüÿ �R�= Key not found i äPò�R²=Invalid command i äPò�RÒ= File not open i äPò �Rò= Serious error i äPò[ÿÿÿÿ/258;>ADGJMP›®Ãù $0ES[p~†›©±ÆÔÚïû"KObr•ž®ÂÑà$7KZ]`€•¨»ÊÍÐì os…ÃÜ MINDEX2 -0300/yPüIIIIIIIIIIII*I<P¯_X==JGRAF - graph size error: ìÿŒj äPVi�R_èøìÿŠPUj�R| ÐøìÿŠ PU�R› ¸ øìÿŠ PU�Rº øìÿŠPU�RÙˆøìÿŠPU�RøpøìÿŠPU�RXøìÿŠPU�R6@øìÿŠPU �RU(#øìÿŠPUYPZ_   Á5  Á5ìÿŽi‚iìÿ�i‚`ÞìÿŠ l 05ìÿŠi� l 05ìÿŽ�P’�ìÿŠ l 05ìÿŠi� l 05YP*P%_.ìÿ�úÿ‚ ìÿŽƒ � Œ=x5 Œ i�úÿ–%ìÿš %ìÿ %& $A0š › ™%l& ÿÿÿÿmiäìÿüÿºRø ìÿPý ih `)ìÿŠ � l=-5PY_iX% ìÿ�i‚•RmhX% �P?YP›Pt_*ìÿüÿºRßjìÿŽƒúÿ�iìÿi�`ÜìÿŠ l=I5ìÿŽ�P®PìÿŽìÿj�ƒúÿ�ìÿŠ l=I5 Œ=y5 Œi� úÿ–%ìÿ’ %ìÿ %" $Bš › ™%l" ÿÿÿÿmiäY_iXtìÿ�•RàhXt �P°YPñèIè_ò= 5èðìÿŠùîiìÿŒè…i�`:ðî å0è5èP YP>_ = JGRAF ver 4.0ui `�ìÿŠ lx5P`ìÿŽj…ìÿ8Øj…‚j�i`ÎìÿŠ l=*5i�P¨i�iìÿ8Ø`ìÿŠ lìÿ8x5i�Pèi�i`RìÿŠ l=*5i�P,YP«IPf_ &i‚$ Œ •R« ‚ P¾‚ i`úìÿŠ l  W05i�PÉYPþ_ &i‚$ Œ •RQìÿŽ� j…‚i� PnìÿŽ�‚ i`ªìÿŠ l  W05i�PyY_)i= jgraf.$$$΀@æl(i miâ$ii‚`` = 5&il(i miâ& W(05&&i�(0= °Rô$ Œ09=x°RL hXfP\ 9=y°R\ hXþP\ :PãçY_žìÿ’ìÿ ìÿ šìÿ–œ%ìÿšìÿ" ìÿ šìÿ–œ%hX›hXñhXZii= jgraf.$$$΀0æhX*hX›l=  miäçhX«hX>YPŽ P _ìÿŽìÿ�üÿ‚‚ƒúÿ��ìÿŒ”Ro =plot computation error i äP� ìÿŠ lìÿ05Y_ îÿ ìÿ «îÿ ìÿ ­¹öÿ ìÿ «¹öÿ ìÿ" ­¹¸R× P" îÿ ìÿ šìÿ’ œÃöÿ ìÿ šìÿš œÃX YP& _ ýÿ0=p°R: ýýÿ0=s°R^ iìÿ*0Î æìÿŒ i“R… P� ýÿ0=s°R¾ lìÿŠ0(# Ú miäPÙ ìÿŠ0(# Ú iä  �‚h•Rp ýÿ0=p°R ýýÿ0=s°R çY_=\ìÿ0Î9=D°R: hXŽ PÌ 9=I°RJ hXf PÌ 9=S°R` =s;iX& PÌ 9=C°Rv =c;iX& PÌ 9=P°RŒ =p;iX& PÌ 9=X°RŸ ìÿŠúPÌ =JGRAF - unknown command:  ìÿ0 j äPÌ :[ÿÿÿÿ†‰™ <F]cz‚™¡¸À×ßöþ4<SX“£¾Üø #Zlæö '6P\kor†¯¿ÚÝ /§ÃÏÞâ!,8<aq©¹Ìéù-=PTd�‘©ÊÚåøü)OzŠ•¨ä , 7 B G J R W Z ^ º ¿ Ä å ê    L m } Ò Õ $ 4 E y ƒ ˜ ¼ ø   0 5 8 @ E H P [ ^ f q t | ‡ Š ’ � Ê ÿÿhX«hX>YPŽ P _ìÿŽìÿ�üÿ‚‚ƒúÿ��ìÿŒ”Ro =plot computation error i äP� ìÿŠ lìÿ05Y_ îÿ ìÿ «îÿ ìÿ ­¹öÿ ìÿ «¹öÿ ìÿ" ­¹¸R× P" îÿ ìÿ šìÿ’ œÃöÿ ìÿ šìÿš œÃX YP& _ ýÿ0=p°R: ýýÿ0=s°R^ iìÿ*0Î æìÿŒ i“R…  EXTERN TYPE char1000 = ARRAY [1..1000] OF char; char2000 = ARRAY [1..2000] OF char; char3000 = ARRAY [1..3000] OF char; char4000 = ARRAY [1..4000] OF char; char5000 = ARRAY [1..5000] OF char; char6000 = ARRAY [1..6000] OF char; char7000 = ARRAY [1..7000] OF char; char8000 = ARRAY [1..8000] OF char; char9000 = ARRAY [1..9000] OF char; jgraf_interface = RECORD command, plot_char : char; x_grid, y_grid : boolean; rows, columns : integer; x_lower, x_upper, y_lower, y_upper : real; filename : ARRAY [1..14] OF char; graf_title : STRING; b : ^char9000; bufr_size, line_size, row_count : integer; x_spacing, y_spacing : real; END; {=================================================================} PROCEDURE jgraf (VAR jg : jgraf_interface; x, y : real); VAR i : integer; f1 : FILE OF char; {=================================================================} PROCEDURE setup; VAR ai : integer; axis_labels : ARRAY [1..50] OF RECORD axis : char; ptr : integer; END; {=================================================================} PROCEDURE allocate_buffer; LABEL 99; VAR x : integer; b1 : ^char1000; b2 : ^char2000; b3 : ^char3000; b4 : ^char4000; b5 : ^char5000; b6 : ^char6000; b7 : ^char7000; b8 : ^char8000; b9 : ^char9000; BEGIN jg.line_size := jg.columns + 16; jg.row_count := jg.rows + 5; jg.bufr_size := jg.line_size * jg.row_count + 8; x := (jg.bufr_size DIV 1000) + 1; IF (x < 1) OR (x > 9) THEN BEGIN writeln('JGRAF - graph size error:', jg.bufr_size); GOTO 99; END; CASE x OF 1 : BEGIN new(b1); jg.b := b1 END; 2 : BEGIN new(b2); jg.b := b2 END; 3 : BEGIN new(b3); jg.b := b3 END; 4 : BEGIN new(b4); jg.b := b4 END; 5 : BEGIN new(b5); jg.b := b5 END; 6 :  BEGIN new(b6); jg.b := b6 END; 7 : BEGIN new(b7); jg.b := b7 END; 8 : BEGIN new(b8); jg.b := b8 END; 9 : BEGIN new(b9); jg.b := b9 END; END; 99 : END; (* allocate_buffer *) {=================================================================} PROCEDURE crlfs; (* put crlfs in buffer *) VAR i, ptr : integer; cr, lf : char; BEGIN cr := chr(0dh); lf := chr(0ah); ptr := jg.line_size - 1; FOR i := 1 TO jg.row_count - 1 DO BEGIN jg.b^[ptr] := cr; jg.b^[ptr + 1] := lf; ptr := ptr + jg.line_size; END; ptr := ptr + 8; jg.b^[ptr] := cr; jg.b^[ptr + 1] := lf; END; (* crlfs *) {=================================================================} PROCEDURE xgrid; VAR x : integer; {=================================================================} PROCEDURE x_axes (r : integer; main : boolean); VAR i, r1, ptr, count : integer; ll, ss, rr, xx : real; BEGIN r1 := jg.row_count - r; ptr := (r1 * jg.line_size) + 13; (* update axis labels array and file *) axis_labels[ai].axis := 'x'; axis_labels[ai].ptr := ptr; ai := ai + 1; rr := r; ss := jg.y_spacing; ll := jg.y_lower; xx := ((rr - 3.0) * ss) + ll; write(f1; xx); IF jg.x_grid OR main THEN count := jg.columns ELSE count := 1; FOR i := 0 TO count DO jg.b^[ptr + i] := '-'; END; (* x_axes *) BEGIN (* xgrid *) x_axes(3, true); x := 13; WHILE x <= jg.row_count - 1 DO BEGIN x_axes(x, false); x := x + 10; END; END; (* xgrid *) {=================================================================} PROCEDURE ygrid; VAR y : integer; {=================================================================} PROCEDURE y_axes (c : integer; main : boolean); VAR i, ptr : integer; cc, ll, ss, yy : real; BEGIN IF jg.y_grid OR main THEN BEGIN ptr := (2 * jg.line_size) + c; FOR i := 1 TO jg.rows + 1 DO BEGIN jg.b^[ptr] := 'I'; ptr := ptr + jg.line_size; END; END ELSE BEGIN (* no ygrid *) ptr := (jg.line_size * (jg.rows + 2)) + c; jg.b^[ptr] := 'I'; END; (* update axis labels array and file *) axis_labels[ai].axis := 'y'; axis_labels[ai].ptr := ptr; ai := ai + 1; cc := c; ss := jg.x_spacing; ll := jg.x_lower; yy := ((cc - 14.0) * ss) + ll; write(f1; yy); END; (* y_axes *) BEGIN (* ygrid *) y_axes(14, true); y := 24; WHILE y <= jg.columns + 14 DO BEGIN y_axes(y, false); y := y + 10; END; END; (* ygrid *) {=================================================================} PROCEDURE clear_bufr; TYPE buffer = ARRAY [1..20] OF char1000; VAR a : char1000; i : integer; ptr : ^buffer; BEGIN a := ' '; map(ptr, addr(jg.b^)); FOR i := 1 TO (jg.bufr_size DIV 1000) + 1 DO ptr^[i] := a; END; {=================================================================} PROCEDURE move_title; VAR s : STRING[20]; x, i : integer; BEGIN s := 'JGRAF ver 4.0'; FOR i := 1 TO 13 DO jg.b^[i] := s[i]; x := (jg.line_size DIV 2) - (length(jg.graf_title) DIV 2) + 2; FOR i := 1 TO 4 DO BEGIN jg.b^[x] := '*'; x := x + 1; END; x := x + 1; (* skip 1 space *) FOR i := 1 TO length(jg.graf_title) DO BEGIN jg.b^[x] := jg.graf_title[i]; x := x + 1; END; x := x + 1; (* skip 1 space *) FOR i := 1 TO 4 DO BEGIN jg.b^[x] := '*'; x := x + 1; END; END; (* move_title *) {=================================================================} PROCEDURE process_axis_labels; VAR hold : ARRAY [1..30] OF char; i, j : integer; ch : char; {=================================================================} PROCEDURE xlabels; VAR count, ptr, number_length, k : integer; BEGIN number_length := j - 1; ptr := axis_labels[i].ptr; IF number_length <= 8 THEN BEGIN ptr := ptr - number_length; count := number_length; END ELSE BEGIN ptr := ptr - 8; count := 8; END; FOR k := 1 TO count DO BEGIN jg.b^[ptr] := hold[k]; ptr := ptr + 1; END; END; (* xlabels *) {=================================================================} PROCEDURE ylabels; VAR count, ptr, number_length, k : integer; BEGIN number_length := j - 1; ptr := axis_labels[i].ptr; IF number_length <= 8 THEN BEGIN ptr := ptr + jg.line_size - (number_length DIV 2) + 1; count := number_length; END ELSE BEGIN ptr := ptr + jg.line_size - 4; count := 8; END; FOR k := 1 TO count DO BEGIN jg.b^[ptr] := hold[k]; ptr := ptr + 1; END; END; (* ylabels *) BEGIN reset(f1, 'jgraf.$$$', binary, 128); read(f1; ch); (* skip over leading blank *) FOR i := 1 TO ai - 1 DO BEGIN hold := ' '; j := 1; REPEAT read(f1; ch); hold[j] := ch; j := j + 1; UNTIL ch = ' '; CASE axis_labels[i].axis OF 'x' : xlabels; 'y' : ylabels; END; END; close(f1); END; (* process_axis_labels *) BEGIN (* setup *) jg.x_spacing := (jg.x_upper - jg.x_lower) / jg.columns; jg.y_spacing := (jg.y_upper - jg.y_lower) / jg.rows; allocate_buffer; clear_bufr; crlfs; ai := 1; (* axis labels array index *) rewrite(f1, 'jgraf.$$$', text, 128); xgrid; ygrid; write(f1; ' '); close(f1); process_axis_labels; move_title; END; (* setup *) {=================================================================} PROCEDURE data; LABEL 99; VAR x1, y1 : integer; {=================================================================} PROCEDURE plot (x, y : integer); (* place char in graph area - origin 0 at lower left *) VAR ptr : integer; BEGIN ptr := (jg.line_size * (jg.row_count - y - 3)) + (x + 14); IF ptr > jg.bufr_size THEN writeln('plot computation error') ELSE jg.b^[ptr] := jg.plot_char; END; (* plot *) BEGIN IF NOT ((x >= jg.x_lower) AND (x <= jg.x_upper) AND (y >= jg.y_lower) AND (y <= jg.y_upper)) THEN GOTO 99; x1 := round((x - jg.x_lower) / jg.x_spacing); y1 := round((y - jg.y_lower) / jg.y_spacing); plot(x1, y1); 99 : END; {=================================================================} PROCEDURE display (mode : char); VAR bytes_remaining, len, start : integer; BEGIN IF mode = 'p' THEN system(list); IF mode = 's' THEN rewrite(f1, jg.filename, binary, 1024); bytes_remaining := jg.bufr_size; start := 1; REPEAT IF bytes_remaining >= 1024 THEN len := 1024 ELSE len := bytes_remaining; IF mode = 's' THEN write(f1; copy(jg.b^, start, len)) ELSE write(copy(jg.b^, start, len)); start := start + 1024; bytes_remaining := bytes_remaining - 1024; UNTIL bytes_remaining <= 0; IF mode = 'p' THEN system(nolist); IF mode = 's' THEN close(f1); END; (* display *) BEGIN (* jgraf *) CASE upcase(jg.command) OF 'D' : data; 'I' : setup; 'S' : display('s'); 'C' : display('c'); 'P' : display('p'); 'X' : dispose(jg.b); ELSE : writeln('JGRAF - unknown command: ', jg.command); END; (* case *) END; (* jgraf *) . THEN system(list); IF mode = 's' THEN rewrite(f1, jg.filename, binary, 1024); bytes_remaining := jg.bufr_size; start := 1; REPEAT IF bytes_remaining >= 1024 THEN len := 1024 ELSE len := bytes_remaining; IF mode = 's' THEN write(f1; copy(jg.b^, start, len)) ELSE write(copy *JRTASM ¡2‡30300‰3:PIIIIII I@I I I I I, IÈ IÿIPÖI_üÿÇRh ä=File not found i ähûYP!PI_=!Options (c=com 1=pass1 n=none) :  iä i â0Î5h ä&=INNN5=.INT5i 0= ±•¹R  09=C°RÉ&=C5=.COM5P9=S°Rà&=Y5P9=P°Rûý&=Y5P9=1°R&=Y5P:i�P~Y_"h ä=Program name :  iäã h ä=.pNÛh‘R–=0enter filename of program, do not enter filetype i äP$tpÎ5 h ähX‹%it0 =.ASM<΀@æ‹%jXÖÀ%it0 0<΀ æi hhhV= 55 hih%=N5$=Y57=A=ZI=a=zILEG=0=9ILEW7@G@¼E÷%=00005õ%i&h&=15&= 1111111115 ‹ ÿi�hÁòYP¼PªP•_$iüÿ Vúÿüÿ�j…  0 5 V  0  0 ²Rãi�P¿ 0 V  0 ²Ri‚Pã•RgV  0 5 V  V  0 5 V  0 5 i�i‚”R¿úÿ’RŽúÿX•üÿ’R©üÿX•Y_ii‚X•Y_hXªh ä= Symbol Flag Value i äii‚`q=:  V  0  =  V   0Ì V   =  _V   jZ  äPùYPu_ii‚`ß_V   0;hZ RÜV  0  iä= : UNRESOLVED SYMBOL;  Z P…YPðIh_‰ ÁMÁ°�RO~i� r 09==°R5'=>=5j�PK'=>5i�PK:Pê0=<°�RÅ~i� r 09==°RŒ'=<=5j�PÁ9=>°R«'=<>5j�PÁ'=<5i�PÁ:Pê0Ì=: invalid char<;  Z Pê[PüIP I_\üÿjÌ5 05 05öÿ 05[P IIIIII I@I I I I I, IÈ IÿIPU"P_õ% •RA÷%õ% ³ýÿ05õ%õ%i�YPE_üÿi K0;iXüÿj K0;iXYPp_úÿi e0;iXúÿj e0;iXúÿ e0;iXúÿ e0;iXYPãPÆ_ûÿ09=A°RáùÿP”9=B°RñùÿhP”9=C°RùÿiP”9=D°RùÿjP”9=E°R#ùÿP”9=H°R5ùÿP”9=L°RGùÿP”9=M°Qb9=SP°Qb9=PSW°RlùÿP”=Invalid register: ûÿ0<;  Z P”:YP™_üÿ‹  ô05‹ i� ô05j�  j�üÿjÌ;XpYP÷_‹  ôüÿÁ5i�  i�üÿÁÌ;jXEYP2_üÿjX÷hZYPG_0=R°j�¹R i�,”R‘=Reloc tab ovfl;  Z P þ Ú YP¤_hZjZüÿjX÷hXGjX™YPÔ_hZüÿ_'0;XÆ�jX÷hZYP_hZ@_'0;Xƃ�hZ_'0;XÆ�jX÷hZYP\_hZi_'0;Xƃ�hZjZjX÷hXGjX™YP®_hZÇ ƒ�jX÷hZYPÐ_hZ_'0;Xƃ�hZjZjX÷jX÷YP_hZ'0=@@@EOL°'0=!°º¸Rœ'0=STRING°Rƒi `{¾ ™0ÀjX÷PbhZP™jZjX÷P'YP _hZ'0=@@@EOL°'0=!°º¸RäjZhXGjX™P¨YPè_hZüÿ_'0;Xƃ�jX÷hZYP_hZjZüÿjX÷jX÷YPE_hZ'0=@@@EOL°'0=!°º¸RÕ'0=STRING°R²i�Rªi `ª¾ ™0 iäP‘hZPÒjZi�RÒiäPMi�Râh äY_i'i 09=R°R.'09=RLC°RjX2P*9=RRC°R-jX2P*9=RAL°RBjX2P*9=RAR°RWjX2P*9=RET°RlÉjX2P*9=RNZ°R�ÀjX2P*9=RZ°R•ÈjX2P*9=RNC°RªÐjX2P*9=RC°R¾ØjX2P*9=RPO°RÓàjX2P*9=RPE°RèèjX2P*9=RP°RüðjX2P*9=RM°RøjX2P*9=RST°R"hX®P*hP*:P9=C°RV'09=CALL°RRÍjX¤PR9=CNZ°RgÄjX¤PR9=CZ°R{ÌjX¤PR9=CNC°R�ÔjX¤PR9=CC°R¤ÜjX¤PR9=CPO°R¹äjX¤PR9=CPE°RÎìjX¤PR9=CP°RâôjX¤PR9=CM°RöüjX¤PR9=CMP°R ¸jXÔPR9=CMA°R /jX2PR9=CMC°R5?jX2PR9=CPI°RJþjXPRhPR:P9=J°R)'09=JMP°RyÃjX¤P%9=JNZ°RŽÂjX¤P%9=JZ°R¢ÊjX¤P%9=JNC°R·ÒjX¤P%9=JC°RËÚjX¤P%9=JPO°RàâjX¤P%9=JPE°RõêjX¤P%9=JP°R òjX¤P%9=JM°RújX¤P%hP%:P9=S°R'09=SHLD°RM"jX¤Pý9=STA°Rb2jX¤Pý9=STAX°RvjjXèPý9=SUB°R‹�jXÔPý9=SBB°R ˜jXÔPý9=STC°Rµ7jX2Pý9=SPHL°RËùjX2Pý9=SUI°RàÖjXPý9=SBI°RõÞjXPýhPý:P9=D°RÐ'09=DB°R hXPÌ9=DW°R1hX PÌ9=DS°R\hZ �   �PÌ9=DCX°Rq jXèPÌ9=DAD°R† jXèPÌ9=DCR°R›jXèPÌ9=DAA°R°'jX2PÌ9=DI°RÄójX2PÌhPÌ:P9=A°Rh'09=ADD°Ró€jXÔPd9=ADC°RˆjXÔPd9=ANA°R jXÔPd9=ADI°R2ÆjXPd9=ACI°RGÎjXPd9=ANI°R\æjXPdhPd:P9=M°R¦'09=MOV°RˆhXP¢9=MVI°RšhXÐP¢hP¢:P9=O°R!'09=ORG°RÖhZ   P9=ORA°Rë°jXÔP9=ORI°RöjXP9=OUT°RÓjXPhP:P9=X°R‘'09=XRA°RD¨jXÔP�9=XCHG°RZëjX2P�9=XTHL°RpãjX2P�9=XRI°R…îjXP�hP�:P9=L°Rþ'09=LHLD°Rµ*jX¤Pú9=LDA°RÊ:jX¤Pú9=LDAX°Rà jXèPú9=LXI°RòhX\PúhPú:P9=I°RV'09=INX°R!jXèPR9=INR°R6jXèPR9=IN°RJÛjXPRhPR:P9=P°R±'09=PUSH°RzÅjXèP­9=POP°R�ÁjXèP­9=PCHL°R¥éjX2P­hP­:P'09=EI°RËûjX2P9=NOP°RÞhjX2P9=HLT°RóvjX2P9=WRITE°RhXEPhP:P:h�R9=Undefined opcode;  Z YP§ P@_#0=Y°Re= EQU error;  Z hZjZ0=R°RŒ@P’hjÌ;Xp÷%==5i�Rá 0; Á; ZP,j�R, 0;  ZV ç ‘R)= Phase error;  Z P,YP1_#0=Y°R[=SET/READ error;  Z '0=READ°j�¹R  0;  Z V ç jÌ;XpP¦ '09=SET°RíhZjZ0=R°R×@PÝhP# 9=READ°R#  0 =:=  jäi âh ähP# : 0;  ZjÌ;Xp÷%=#5h�R}  0; Á; ZP¦ V ç V ç Á5Y_'09=EQU°R hX@Pq!9=SET°Q× 9=READ°Rß hX1Pq! 0= ±#0=N°¹Ri!i�R!! 0; @Á;  ZPh!j�Rh! 0;  Z V ç ‘Re!= Phase error;  Z Ph!hXãPq!:YPv!_#0=Y°Rš!=IF error;  Z hZjZ&09=0°RÂ!=05P"9=1°R"h�Rã!=05Pì!=15jÌ;XpP":&’R"&&i�P5"= Nesting error;  Z && 05&05Y_\hZ~i ™0=;=*LŽRx"P1$i = 5~ ™07@ŽR#~ ™0W@ŽR×"  ~ ™05i�P›"  0Î5~ ™0=:°R#i�#=N5hZ'09=IF°R'#hXv!P$9=ELSE°Rj#&0=0°RK#&=15PT#&=05&& &05P$9=ENDIF°R¹#&h”RŒ#&&i‚P£#= Extra ENDIF;  Z &&& 05P$9=END°Rñ#%=Y5&h‘Rî#= Unbalanced IF;  Z P$&0=0°R$'=@@@EOL5P$hX§ P$:'0=!°R1$#=Y5P #[Pø$IIIIII I@I I I I I, IÈ IÿIPû$_\j�i�&0=Y°¹ºRl%÷%0 =:  Á äij‚`e%~ „$0 iäPL%h äPŸ% †h�R…%=+ iäPŽ%=- iä2†h�RŸ%h ä÷%= 5÷%_ jZ5õ%ii�[P“&IIIIII I@I I I I I, IÈ IÿIP–&_ \$0=N°R¯&hZPÛ&$=N5i÷%= 5÷%_ jZ5i Á5‹%  i  iâ~ & 05i� 00°Rê&‹%  i  iâ[P(IIIIII I@I I I I I, IÈ IÿIP½-P(_ '09=NUMBER°R'(üÿ PÄ)9=$°RE(üÿ üÿ=R5PÄ)9=STRING°R§( j“R�( ¾j Œ'05 ¾i Œ'05Pœ( ¾i Œ'05 hÁ5üÿ PÄ)9=(°R )hZjX(0=R°RÔ(üÿ=R5'0=)±Rý(=Expression error;  Z üÿPÄ)'0;  Zh�RO)'0; €Á;h Züÿhüÿ=R5PÁ)_V Ú' 0;hZ Rƒ)üÿhüÿ=R5PÁ)üÿV Ú' _V Ú' 0;iZ RÁ)üÿ=R5PÄ):hZYPÎ)_ _hX(ii�Rb*'09=*°R*hZ_hX(ƒP^*9=/°R3*hZ_hX(…P^*9=MOD°RV*hZ_hX(†P^*hP^*:Pâ)üÿYPn*_ '09=-°Q‡*9=+°R›* '05hZP§* =+5P§*:_hXÎ) 0=-°RÊ*€ii�R,+'09=+°Rÿ*hZ_hXÎ)�P(+9=-°R +hZ_hXÎ)‚P(+hP(+:PÏ*üÿYP8+_ _hXn*ii�Rº,'09=EQ°Ql+9==°R“+hZ_hXn*�R‹+ÿÿP�+hP¶,9=NE°Q¥+9=<>°RÌ+hZ_hXn*‘RÄ+ÿÿPÉ+hP¶,9=LT°QÝ+9=<°R,hZ_hXn*’Rü+ÿÿP,hP¶,9=GT°Q,9=>°R<,hZ_hXn*”R4,ÿÿP9,hP¶,9=LE°QN,9=<=°Ru,hZ_hXn*•Rm,ÿÿPr,hP¶,9=GE°Q‡,9=>=°R®,hZ_hXn*“R¦,ÿÿP«,hP¶,hP¶,:PL+üÿYPÆ,_'0=NOT°Rí,hZüÿ_hX8+¸Pù,üÿ_hX8+YPý,__hXÆ,'0=AND°R4-hZ_hXÆ,¹P -üÿYP@-_ _hXý,ii�R´-'09=OR°R…-hZ_hXý,ºP°-9=XOR°R¨-hZ_hXý,»P°-hP°-:PT-üÿY_\üÿ=A5'09=HIGH°R.hZ_hX@-05hÁ5üÿP^.9=LOW°RK.hZ_hX@-hÁ5üÿP^.üÿ_hX@-P^.:[P&/IIIIII I@I I I I I, IÈ IÿIP)/_\ñÿ0 ;  Zh�R°/V /ñÿ0 5 V / ûÿ05V / üÿi�È”R­/= Symtab ovfl;  Z P0_V / 0;hZ ¸Rñ/=Duplicate symbol;  Z P0V / üÿV / ûÿ05[Pà0IIIIII I@I I I I I, IÈ IÿIPã0_\Vh º0ôÿ0 5 i‚V º00 ôÿ0 ±R%1i‚P1[_\ë++++F+~Â<1ÚK1+6+6É+6+6É_\ë++++F+V+^ëN>Âf1±wÉ_\ë++++F+V+^ëN>þ‚1¡wÉPP2IIIIII I@I I I I I, IÈ IÿIPS2_\i�R€2&0=Y°R}2Þÿ0  i äPŸ2j�RŸ2i�Þÿ0  i äPŸ2[LEXA tHEXINT ìtPROCESSLGtPRNTLINE2$tLINE Í%tEXPRA :'tADD `.tLOOKUP 0tTESTBIT .1tSETBIT R1tRESETBITn1tERRORA Š1!tÿÿÿÿÇ߆™£®ÇÏÞæùY”¨È��“·ÇÔáñø.8Hq}Œ˜§¹Âú)<[os†“§±Ýáx…‘²ÀÍìú_œ¤´¾)1HXfsv~ƒ†�•£·½Ïç! ç ê í  7 I o y › ± Ê Õ ó ÿ " 8 ^ † ‘ ž ¹ Ð Ú ä   $ 4 e o “ ž ¡ ¤ ® ¹ Á Ø Ý à æ ë î  ' 6 O Z d n ‹ ° Ý ö 3IM\hsŠ’©¿ÃèíýH,CMX_jnxƒŠ•ž©²½ÁÄÕßçï÷ÿ!)3;EMV`j’—¬Áñõ,0<E]r�™¢¼ÁÎÒñ÷!FQZy–›¨¬ÅÎï CUcmvy�—šžÄÒßâæ2?Ci{„’œ¨°ÂÓÜðû  (+5=@JRU_gjt|ˆ�“�¥¨±¹¼ÆÎÑÛãæï÷ú  (,4EMPZbenvyƒ‹Ž—Ÿ¢¬´·ÁÉÌÕÝàéñôþ (03=EHPT\ltw�‰Œ•� ª²µ¾ÆÉÓÛÞèðóü#'/@HKU]`kqt~†‰“›ž¨°³¾ÆÉÓÛÞèðóûÿ',/8Zdloy�„Ž–™£«®·¿ÂÊÎÖæîñû%-0:BEOWZbfn~ƒ†�•˜ ¤¬¼ÔÞæéóûþ'7?BMUXcknx€ƒ‹�—¨°³½ÅÈÓÛÞèíðøü)14=EHPT\mux‚Š�˜ £«¯¾ÆÉÓÙÜæîñý ;>NФºßå*/?p‹›ž®ÊÕëö! D Y { … ˜ ¸ ½ À Ê Õ Ú Ý ö !!%!D!L!f!l!o!t!„!´!À!È!Õ!á!þ!" ""="c"s"v"Ž"™"£"®"¸"Â"Õ"ì"ö"#"#%#0#=#I#\#h#t#}#Š#®#·#Á#Ó#ï#ü# $$$#$/$3$ù$%M%W%c%j%w%ƒ%™%Î%”&¥&­&'&';'(((%(-(C(P(Y(c(v((‰(¥(­(º(Ç(ß( )")M)Z)n)�)Ž) )´)Â)Ì)Ú)é)÷) ***,*1*;*O*T*\*`*l*}*…*™*¥*±*¿*Ö*ä*ø*ý*+++&+*+6+D+S+b+j+{++‰+‘+š+£+´+¸+Â+Ê+Ó+Û+ì+ð+ú+, ,,$,(,2,:,C,L,],a,k,s,|,…,–,š,¤,¬,´,¸,Ä,Ö,æ,ë,ö,û, ----2->-L-[-j-~-ƒ-�-¡-¦-®-²-Ú-ê-....I.X.\.a.'/D/N/a/w/”/®/»/Ð/ï/ù/ 00á0ì0 11#1?1B1i1…1‹1Q2_2o2~2„2�2©2¼2Ï2â2õ233.3A3T3g3z3ÿÿü#'/@HKU]`kqt~†‰“›ž¨°³¾ÆÉÓÛÞèðóûÿ',/8Zdloy�„Ž–™£«®·¿ÂÊÎÖæîñû%-0:BEOWZbfn~ƒ†�•˜ ¤¬¼ÔÞæéóûþ'7?BMUXcknx€ƒ‹�—¨°³½(* JSTAT ver 4.0 JRT Systems *) (* *) (* jstat computes several basic statistics on *) (* an input array. *) (* *) (* parameters: *) (* n - the number of data items in the *) (* input array *) (* x - the input array of real numbers, *) (* may be up to 1000 elements, *) (* actual variable in calling pgm *) (* may be much smaller array *) (* r - the computed statistics are stored *) (* in this record *) EXTERN TYPE jstat_interface = RECORD mean, standard_deviation, variance, skewness, kurtosis, m1, m2, m3, m4 : real; END; jstat_array = ARRAY [1..1000] OF real; {=================================================================} PROCEDURE jstat (n : integer; VAR x : jstat_array; VAR r : jstat_interface); VAR i : integer; total_x, total_x2, total_x3, total_x4 : real; {=================================================================} FUNCTION cube (x : real) : real; BEGIN cube := x * sqr(x); END; {=================================================================} FUNCTION sqrt (x : real) : real; VAR sq, a, b : real; exponent, i : integer; zap : RECORD CASE integer OF 0 : (num : real); 1 : (ch8 : ARRAY [1..8] OF char); END; BEGIN IF x = 0.0 THEN sqrt := 0.0 ELSE BEGIN sq := abs(x); zap.num := sq; exponent := ord(zap.ch8[1]); exponent := (exponent DIV 2) + 32; zap.ch8[1] := chr(exponent); a := zap.num; b := 0; i := 0; WHILE a <> b DO BEGIN b := sq / a; a := (a + b) / 2; i := i + 1; IF i > 4 THEN BEGIN i := 0; IF abs(a - b) < (1.0e-12 * a) THEN a := b; END; END; sqrt := a; END; (* else *) END; (* sqrt *) {=================================================================} PROCEDURE totals; VAR i : integer; tx, tx2, tx3, tx4 : real; sum_x, mean : real; BEGIN (* totals *) total_x := 0; total_x2 := 0; total_x3 := 0; total_x4 := 0; sum_x := 0; FOR i := 1 TO n DO sum_x := sum_x + x[i]; mean := sum_x / n; r.mean := mean; FOR i := 1 TO n DO BEGIN tx := x[i] - mean; tx2 := sqr(tx); tx3 := tx * tx2; tx4 := tx * tx3; total_x := total_x + tx; total_x2 := total_x2 + tx2; total_x3 := total_x3 + tx3; total_x4 := total_x4 + tx4; END; END; (* totals *) BEGIN (* jstat *) totals; r.m1 := total_x / n; r.m2 := total_x2 / n; r.m3 := total_x3 / n; r.m4 := total_x4 / n; r.standard_deviation := sqrt(r.m2); r.variance := r.m2; r.kurtosis := r.m4 / sqr(r.m2); r.skewness := r.m3 / sqrt(cube(r.m2)); END; (* jstat *) . ND; END; sqrt := a; END; (* else *) END; (* sqrt *) {====================================" MLETTERS 0300€PÞI ÞPzI I I P7_ûÿ0Î9=R°Rüÿi = uÞüÿj = uÞüÿ = uÞüÿ = uÞüÿ = uÞüÿ = uÞüÿ = uÞüÿ = uÞüÿ = uÞPb9=L°RÊüÿi = uÞüÿj = uÞüÿ = uÞüÿ = uÞüÿ = uÞüÿ = uÞüÿ = uÞüÿ = uÞüÿ = uÞPbüÿi = uÞüÿj = uÞüÿ = uÞüÿ = uÞüÿ = uÞüÿ = uÞüÿ = uÞüÿ = uÞüÿ = uÞPb:YPtIx_�ýÿ0…@ޏRœ= 5cPyH&ýÿ0À�ûhŠi= 5c†i `yˆiŒŠ h05Œ0 Á±RL†ˆ Œ05ˆˆi�ŠŠi�ŒŠ h05PüŠŠj�ˆˆi‚ˆ”RvˆPáY_•\…=A=ZI=0=9I=-LE©ÿ©ÿpÎuRhX7i©ÿØ` ©ÿx;iXt i `üÿ  üÿ  p= <  0 iÚ”i’`‰Ãl›Ž” ü0 miäPgh äbüÿ 80tÁ°RÖ=) ** WARNING ** procedure already merged i äbüÿ 8tÁ5büÿ 8i-çii �YP_ q= 5?im•R»hm•’¹R´q Y0=X°Rk=* iäPt=  iä=: b 80 =  äi�i�P6h äP%h ä= select :  iä iâi i“ ?•¹�Rq  Y=X5P† ?€“ i€•¹�R+q € Y= 5P† d��R[i?`Xq Y=X5PBP† d€��Ruq= 5?P† h��R†PŸP†ÿÿÆRœh âh äP PŸPÐh âh äYP«_h ä=Main program module i ä~ÿ0 = module size = ~ÿ= bytes code size = ~ÿ = bytes  äh äYP= I€_’Žl€ miâÃl0€ miä0€;€€X«i  €…  €† i`Î Žl€ miâÃl0€ miäP¦  i `ÿ Žl�i miâÃl�0 miäPÙ m ‚…o‚…‚j‚j…g ‚†h”Rp ‘=N5Py ‘=O5 im`¢ Žlb  8 miâP„ ‘0=N°R½ Žlmiâ io`æ Žl  E miâPÈ ‘0=N°R Žlmiâ i`/ ŽlmiâølmiäP Y_¸h ä=Linker ver 4.0 i äh ä=Name of main program :  iä i â#0Î5Ži0=.INT<Î@æŽjXuÃi= LINK1.$$$Î æøi= LINK2.$$$Î æhX= Žçj 0MÁ±R! =%** ERROR ** module previously linked i äPà hX=Processing external procedures i ä=% proc name total size phase i äkim`§ qk Y0=X°R¤ kjXŠP„ ii ähXHhXâhXÍh ä=Linker processing completed i äh äYÿÿÿÿf~¤àFs�Ž©·Äó!;EOzù.Ge{˜Ú@N[i{†œó!?MZhz‡•£Þò/IS]iв¹ìöÿ )6CMVYgs~�„Œ—š�©. p § Ì Ú ý b n … “   ­ É × ä ñ - ¨ Ù ä ï  $ … � ™ ¢ ¥ · ¼ Á ÿÿm ‚…o‚…‚j‚j…g ‚†h”Rp ‘=N5Py ‘=O5 im`¢ Žlb  8 miâP„ ‘0=N°R½ Žlmiâ io`æ Žl  E miâPÈ ‘0=N°R Žlmiâ i`/ ŽlmiâølmiäP Y_¸h ä=Linker ver 4.0 i äh ä=Name of main program :  iä i â EXTERN {=================================================================} FUNCTION ln (x : real) : real; CONST index = 16; ln4 = 0.13862943611196e+01; r3 = 0.33333333333333e+00; r5 = 0.20000000000000e+00; r7 = 0.14285714285714e+00; r9 = 0.11111111111111e+00; r11 = 0.90909090909091e-01; r13 = 0.76923076923077e-01; r15 = 0.66666666666667e-01; r17 = 0.58823529411765e-01; r19 = 0.52631578947368e-01; r21 = 0.47619047619048e-01; r23 = 0.43478260869565e-01; r25 = 0.40000000000000e-01; r27 = 0.37037037037037e-01; r29 = 0.34482758620690e-01; r31 = 0.32258064516129e-01; VAR div_count, i : integer; result, term, term2 : real; p : ARRAY [1..index] OF real; BEGIN (* ln - natural logarithm *) IF x <= 0.0 THEN ln := - 0.99999999999999e+63 ELSE BEGIN (* x must be in range 0.7 to 2.85 *) div_count := 0; WHILE x < 0.7 DO BEGIN x := x * 4; div_count := div_count - 1; END;  WHILE x > 2.85 DO BEGIN x := x / 4; div_count := div_count + 1; END; term := (x - 1.0) / (x + 1.0); term2 := sqr(term); FOR i := 1 TO index DO BEGIN p[i] := term; IF (abs(term) <= 0.9e-51) THEN term := 0.0 ELSE term := term * term2; END; result := 2.0 * (p[1] + (p[2] * r3) + (p[3] * r5) + (p[4] * r7) + (p[5] * r9) + (p[6] * r11) + (p[7] * r13) + ( p[8] * r15) + (p[9] * r17) + (p[10] * r19) + (p[11] * r21) + (p[12] * r23) + (p[13] * r25) + (p[14] * r27) + ( p[15] * r29) + (p[16] * r31)); ln := result + div_count * ln4; END; (* else *) END; (* ln *) . x < 0.7 DO BEGIN x := x * 4; div_count := div_count - 1; END; { this program takes an input textual file and converts all characters except those inside single quotes to lower case } {=================================================================} PROGRAM lower; VAR ch, ch_1a : char; count : integer; string_flag : boolean; infile, outfile : ARRAY [1..16] OF char; upper_case : SET OF char; f1, f2 : FILE OF char; BEGIN writeln; string_flag := false; ch_1a := chr(1ah); upper_case := ['A'..'Z']; WHILE true DO BEGIN count := 0; write('input filename (or ctl-c to end) : '); readln(infile); write('output filename : '); readln(outfile); reset(f1, infile, binary, 4096); rewrite(f2, outfile, binary, 4096); read(f1; ch); WHILE NOT (eof(f1)) AND (ch <> ch_1a) DO BEGIN IF ch = '''' THEN IF string_flag THEN string_flag := false ELSE string_flag := true; IF NOT string_flag THEN IF ch IN upper_case THEN ch := chr(ord(ch) + 20h); write(f2; ch); write(ch); count := count + 1; read(f1; ch); END; writeln; writeln('byte count =', count); writeln; writeln; close(f1); close(f2); END; END. ; write('input filename (or ctl-c to end) : '); readln(infile); write('output filename : '); readln(outfile); reset(f1, infile, binary, 4096); rewrite(f2, outfile, binary, 4096); read(f1; ch); WHILE NOT (eof(f1)) AND (ch <> ch_1a) DO BEGIN IF ch = '''' THEN IF string_flag THEN string_flag := false ELSE string_flag $ This is the release date of the disk. EXP PAS €d€INDEX0 INT €h€%INDEX1 INT €r€INDEX2 INT €yJGRAF INT €{€JGRAF PAS €€&JRTASM INT €‰;JSTAT PAS €˜€ LETTERS INT €›LINKER INT €�€LN PAS €¡€LOWER PAS €£ååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååCUSTOMIZ.INT 97 8B 1280 10 DEBUG .INT C8 83 384 3 ERASE .INT 25 D6 768 6 EXEC4 .COM 19 71 24064 188 EXP .PAS 1C AB 3712 29 INDEX0 .INT B3 DF 9600 75 INDEX1 .INT 2A 5E 6528 51 INDEX2 .INT 8E DE 1536 12 JGRAF .INT 36 49 3712 29 JGRAF .PAS 71 23 9856 77 JRTASM .INT C0 13 15104 118 JSTAT .PAS 30 44 2944 23 LETTERS  Fog Library Disk FOG-CPM.171 Copyright (1987) by Fog International Computer Users Group to the extent not copyrighted by the original author for the exclusive use and enjoyment of its members. Any reproduction or distribution for profit or personal gain is strictly forbidden. For information, contact FOG, P. O. Box 3474, Daly City, CA. 94015-0474. as part of the description of a file indicates that the program is distributed on a "try first, pay if you like it" basis. If you find the program(s) meet your need, please refer to the author's documentation for information on becoming a registered user. Only by registering and paying for the programs you like and use will the authors of such programs continue development. Often, more complete documentation, additional modules, and new releases are available only to registered users. Disk 1 of 4. JRT Pascal. Filename Description -04-00 .87 This is the release date of the disk. -CPM171 .DOC This is the description of the disk contents. PAS4 .COM 05BD 22K ver. 4.0 [JRT Pascal 1 of 78] A pseudo-code system using a run-time pseudo interpreter. Full documentation and sample programs are included. PAS40 .LIB F1B3 15K ver. 4.0 [JRT Pascal 2 of 78] PAS401 .INT 3ED4 7K ver. 4.0 [JRT Pascal 3 of 78] PAS402 .INT C5CD 6K ver. 4.0 [JRT Pascal 4 of 78] PAS403 .INT 8A91 5K ver. 4.0 [JRT Pascal 5 of 78] ARCTAN .PAS FCCF 3K ver. 4.0 [JRT Pascal 6 of 78] CONVERTM.INT F40A 4K ver. 4.0 [JRT Pascal 7 of 78] COS .PAS 11AC 2K ver. 4.0 [JRT Pascal 8 of 78] CRTMAP .PAS 475A 5K ver. 4.0 [JRT Pascal 9 of 78] CUSTOMIZ.INT 978B 2K ver. 4.0 [JRT Pascal 10 of 78] DEBUG .INT C883 1K ver. 4.0 [JRT Pascal 11 of 78] ERASE .INT 25D6 1K ver. 4.0 [JRT Pascal 12 of 78] EXEC4 .COM 1971 24K ver. 4.0 [JRT Pascal 13 of 78] EXP .PAS 1CAB 4K ver. 4.0 [JRT Pascal 14 of 78] INDEX0 .INT B3DF  10K ver. 4.0 [JRT Pascal 15 of 78] INDEX1 .INT 2A5E 7K ver. 4.0 [JRT Pascal 16 of 78] INDEX2 .INT 8EDE 2K ver. 4.0 [JRT Pascal 17 of 78] JGRAF .INT 3649 4K ver. 4.0 [JRT Pascal 18 of 78] JGRAF .PAS 7123 10K ver. 4.0 [JRT Pascal 19 of 78] JRTASM .INT C013 15K ver. 4.0 [JRT Pascal 20 of 78] JSTAT .PAS 3044 3K ver. 4.0 [JRT Pascal 21 of 78] LETTERS .INT CB19 2K ver. 4.0 [JRT Pascal 22 of 78] LINKER .INT 090A 4K ver. 4.0 [JRT Pascal 23 of 78] LN .PAS 32DC 2K ver. 4.0 [JRT Pascal 24 of 78] LOWER .PAS E0FE 2K ver. 4.0 [JRT Pascal 25 of 78] 2K ver. 4.0 [JRT Pascal 17 of 78] JGRAF .INT 3649 4K ver. 4.0 [JRT Pascal 18 of 78] JGRAF .PAS 7123 10K ver. 4.0 [JRT Pascal 19 of 78] JRTASM .INT C013 15K ver. 4.0 [JRT Pascal 20 of 78] JSTAT .PAS 3044 3K ver. 4.0 [JRT Pascal 21 of 78] LETTERS .INT CB19 2K ver. 4.0 [JRT Pascal 22 of 78] LINKER .INT 090A 4K ver. 4.0 [JRT Pascal 23 of 78] å%ååååå&ååååå'ååååå