1IBMPROGABQSYC-TO-PASC ]$GFOURIER BASt%³FTEXT BAS��dFOUREXT BAS“lÑFT BAS–ÎöPARANOIADQC¨"YMODEL3D BASÊ#ÌSIGEN BASäC‡HEATSUB BQSëULJANUS-L1LSTlÂJANUS-L2LST jVJANUS-L3LST K]PROGRAMSFEB %'ÿvÿÉñIBMPROGA.BAShßÿ ºÿ­ÿÏÿ«ÿ¶ÿ±ÿ¾ÿõÿòÿ¯ÿ°ÿ !"#$%&'(ÝÿÍÿÎÿÂÿ²ÿ¬ÿÌÿÊÿ»ÿËÿÅÿÛÿªÿ³ÿ¸ÿšÿ)*+,-./0123456¹ÿ·ÿÉÿ½ÿoÿ¦ÿÓÿ×ÿÖÿÆÿÇÿÈÿ¼ÿ�ÿ‹ÿžÿ789:;<=>?@AB�ÿŒÿ‘ÿ–ÿÒÿÄÿ—ÿ´ÿ§ÿÁÿ›ÿ’ÿ“ÿÃÿCDEFGHIJKL¨ÿŠÿúÿ�ÿ˜ÿ�ÿ™ÿ†ÿÜÿÑÿ¥ÿÔÿœÿ©ÿùÿMNOPQØÿ£ÿûÿRSTUVWXÕÿ®ÿˆÿ…ÿYZ[\]^_`ab‰ÿÐÿîÿµÿ”ÿóÿçÿäÿ¡ÿôÿïÿíÿêÿÙÿÀÿcdefgŽÿöÿ•ÿ‡ÿ÷ÿðÿìÿéÿåÿÿþ‰LÒÅ«³‰H˜2,þON¬Lò2x›,#v6±S†Å?ýåx}:�W¸¾r6…S†Å¿eêÀ!‰¹ÉÕŸ.Ž8Ý�Pó þàl"j¦ é"u6¥Sæl"fLÒEêl"öL”VR™^}3R �TšœMÄN€)CºH�MÄVàž–“‰³I"z¥).Û4š›®Iéï~ÈsÈÒß±øãw`nr‚7¥¿ø=r6I�9·i$D ù6�sÛÌ}›Î¹u6Ib�Š&JK˜›oMÐ æÀ‚ ¨gB8›$…@.9Ì)�˲©º,[¦qY6Þ ”Šf¾””Ц2²ËÒ¸,�M’Zà¾M£Ÿ^Sx3­Ô<ï£f83²M#oJÿÀ|))ýýw•‘&ýý÷ÈÙ$)2•™�RÑd6UÅéN‹É¡©¨7Ë4ÂÙ$™ 0eH©³I²`Ê�¥1ÕaÏa`“á÷´Ä<®�ÓŸ;Òr6IvLÒEêl’l†�wsÄq)œMb!àYi¥‹GN¬Lò2x›,#Fºø»ÈÙ$N<+-#,þcnº l$!§žR9›Ä±€g¥¥³I\xVZFònDN¬LXâýñâÃñüü<ñã|…‹÷ãñ|q>árü›ñx~ÁÓõ§Oãq¼:áãùíSälמ•–Ññ|/¿"_Æ'œîF|<¿}Âñ|ñéâˆÏo�¸ü|yŸñéxñŒÓ݈—ëË>Ž/A9›Ä¥€g¥¥³I<𬴌¬“ !ðñüö)r6‰÷ž•–€u¼ÁL|<¿}ŠœMâ�€g¥e`]l�ÄBàãùíSälo<+-#ëzƒ¸ÏoŸ"g“BxVZFÖåõN|<¿}ŠœMŠDÀ³Ò2°žm°� ��ç·O‘³I xVZ:›…€g¥eDW§ñˆÓ݈«·ÏÇ#.>áóÅÛ#.Ç—ñÇéúâ 77�ˆn›¹éª6UÚw²]'g“¢ð¬´ÄÜtUÛÌMW¥?M¿ž›®j7�š`nºêQÀè sÓU¯{È)i$ÅL8›¥€g¥eôºx‡¹é*°‘„œz:H4ˆ90ï¢C�IQg“b&0ç6Í%·ëBˆ?Åÿ²ž›®ºI6g“b/0„¼›#ŽKálRì<+-£tñïȉ•éAžCÏa`“eÄH9›[ÏJË‹ÿ Ï!ƒ\zBN=¤ :r6©…€g¥¥³I�xVZFònDN¬Lò2¼?^|8žŸŸÇ#îΗ8Ý�8¼~¹>}Æéï�Žçg\Ž3Ï/‘³I xVZFOן>�Çñêò²ü+òñeüqÂénÄéóûŸ@žC†OÇ‹gœîF¼\_žðq|¹øK9›Ô…€g¥¥³I] xVZFÖÉñ>™EÎ&u)àYiXÇÄû"þÛx_Ä&r6©gž•–€u±A¼ŸÕ‘³I½𬴌¬ë â}ï"g“z'àYiélRo<+-#º:�GœîF\½}þ8qñ Ÿ/Þq9¾Œ?N×W¸¹yDtÛP®¾Q›*í;Ù®“�³I)<+-A¹úFmC¹úFéOÓ¯)WߨÝ4jÊÕ7z0ºåê½–�SÒHÊX8›”‰€g¥%¢×Å;�ç�A.=�˜ãqñ.j† ’z+œMÊX ÊÕ7J׊ÿ…rõ�oÊÓ*WßèoãrælRä“6Í%·ëdö§ø_Ö”«ot“l6Î&e-@¾M£x}g5Le»&Ÿ´«žôš|Ònn’�³IY T*ƒa6Ëu•«o´q6)gCÈ»9â¸ÍònŽz¿ÍònŽ8.…³I¹ð¬´D”.þ9±2=ÈsÈà9 l²Œéâï"g“r'àYi‰‹ÿ8])©‚F˜€<‡,r6)·ž•–Î&3!àYi©O8Ý� Ï!Ãç‹·8G¼?^|8žŸŸ¯¯>àúŸÞ¾¼|Æx<_ŽO8Ý�W¸_ƧÈÙd–xVZF¿‘ç��ØäTý†OÇ‹gœîF\Ž/ã�ÓõÅ^®/Oø8¾\üå+äÝõ%þrýò‚Ëóߌ‘³É,𬴌Nw#N×Ï#Žã{{}ŸpºÀqát7‚<‡,r6™ž•–ÑÝùÇñ ïÏÇÓõùåå3Þ/>ÏÏÏãNwã.Ç—ñÇé7oX*Ó÷Kx›,£ê·ÈÙdV xVZFç«'œîF�ç�á/×//ø8â8žŸp}uºÀóø|qüŒ÷Çë‹#Nx¼øp_¼=âr|œ®/®psóˆè¶!6mª´ïd»N6Î&{!àYi bÓ6ž•– ±Iš~MlÚM£& 6i 9%�d_ g“}" & 6¯�H §¤áYi½.Þ!§žR bŒÇÅ»¨‚ Hf[ál²�<+-£×Å;(­¤éÕ7¥d”^â¾'“Þ%ñ¸x9›ì �I`¨T@T¹úF7Ic˜Ír­6i\–�¦ ål²¯‚ÆÜt† ’})VÉ~&VÉ~/VÉ~'VÉ~+VÉNg“})ÏÏÏã×—x:^ÿÍx…�ŸqÆ?ŒŸ/OÇ‹qq¼¯NãSäl²› xVZFï�Žçç¯�w#þaü|‰óqÄÓøéúj|ÂõΘRïñ<^½ý yw}‰»ñå=žÇ«·_#g“Ý^À³Ò2úq¾ÂÇO×—ï_ΟÇ'œO8_}ÆéúyÄÇÏ8}~}õ§»/ãé4±žnpþt�‘³Én'àYi�îF¼?^|8žŸqw¾ÄÇq¼ÂõÕõéúürý×ñékäl²Û xVZ6ž•–Î&[!àYiÉ \_]Ÿ®Ï/×qºñþxñáx~Æç‹·x~{yÂxu�8Ý�øx¾ñþüaŒœM¶‰€g¥et~z:Ž——¸ø„ÓÝò²¯�w×—8?=ÇËK\_âÃx5Ï//ŸqÆ”ð7ç—·cäl²�<+-£ÇãxùþâêéúêN8Ý�ø8~¸¾ºº¾ú€÷ç#.>á|…ñoÆ+Äÿ€�o¯žŽŸ¿FÎ&ÛBÀ³Ò2š\1þÏóóû—B¬Än5«ùn5ž~|�œM¶µ€g¥¥³É¶BÞÍQì÷¢aʰøçœ$æ&'˜ªbÊsg“íL@M0�ôfHÈ)iL'½RÑ A$ÛR8›l÷jb“&�SÒˆ…Î&Û�€g¥ed�Qx •™�&X†ŽAžC•cNJÈLE‘³Év+0„¼›£ØmEÔañÏ™¹'d”^Bef gc!†�wsÄ»�h˜2,þ¹R¹ïÍSê=2Ò�³±H<+-ÏJKgc xVZFËÐ1¦Ñ9‚ÑÔ=-Û×4úk9% uOË6=L¹]›ü°V÷´l70ºÂ¶Ü8‹½À}ªt.y}ß®Ô=-ÛM£&¸Oä”4<+-½™‰ÿŠn›!È€X”ÂÙXì¦“Þ ©p6[� q�!äÝE]ˆU\ìÄ*®k±Š“™XÅ¥«x6«x·«¢,ŪØÏĪØîĪŽk±ªk!œ�!À”añßbñ‡Çâ�ńŋ?Þ`ñÇ‹?*,þPXü1Çâ�‹?zgã$PL'½ÒrJCÈ»9âÝN8'±€š`:éÍ�& uOË6�¦ä”4b‘PŸbQgã¤`Ê�.Rgã¤`Ê0ïXƒ<‡ FW ]!x©‚v6NJ¦ é"u6NfCÈ»9ŠíN8'{5�º§eûúérJL²cílœì}È©!]9'[¦ é"u6Ž…S†Ì(�y¨– ]å˜n�ws�Tš�…ªë)Ç$ô}xãl'LÒEêlÇLÒEêlL*•ûÞ,‘K#»½Òäl×LÒEêl—‡>oúp0’—«¤ñ¬´D—+= Wšâ²½�s»"߮澽u6Žgž•–ˆ€CÈ2£«¼At{ß:Ç{�>Œ$«d•4L²cílï˜2¤‹ÔÙ8Þ 0eH©³q!˜2 R¹ïÍ}8©‚†Ñ*#�³q‘0eH©³q pe¤I ³Y®½èOq9û>_JÚÀè qY6Lï’¨Œì2L8d0Ìfél\ž•–èr¥LgF¶·Szh×seòïÞ ´YMé¡]Ï—’6«)=´k®Œ4gã¢`’kgã¢`Ê�.Rgãb&À”¡¢SFZÂTSž;{¦ é"u6.vjoJŒ®0_JJä”4˜dÇÔç„ùRR:_JºIœ�‹­€š`¾””Þ$�SÒðf Ô›�n’f¾””Æeél\ &Ù±v6®¦ é"u6®c¦ J˜2Ò¦ª˜òÜÙ¸.˜2¤‹ÔÙ¸®ÔÞ ”z3P~“Àè ó¥¤4.KÈ)i0ÉŽ5¨Ï ó¥¤t¾”ô=q6®K5Á|))�Ëä”4¼(õf ïI3_JJ…³q=`’kgãz/À”!]¤ÎÆõN€)C˜Lr’�šÞ —†¥ÒLU1å¹³q½`Ê�.RgãR˜ªjÓ(j<+-ÏJˈ´$†¦7èÃÁH4”Æ”LE•™ë»ÅÜÜ<"ºu6.�¾M•ö�l×ɦñ¬´DßÞ:—±€š oÓèÁè }ûšF� §¤Ñ·éaÊíÚä‡ußn`t…m¹q6. 5AߦÑ4‚œ’ÆtÒ›!M&Ù±v6.k5Aߦџ#È)ixVZ6L²cíl\–¦ªÚÔTUû½o5AOzmªªÝ¤5ä”4<+-A}NˆËD8—3ojÓž&²]›ªjWñ¦™/%µ)«a*Ûµ©ªvoœ�˽À!è6õf ¶BÞÍQ$‰hÔy—¥7 ä”4âRgãr'àÍ@iÞe7sergãr+ &ðf GoÊo†7½ È)ixVZF¯‹w�D˜€��‹wQ3—B8Ï„À!è6�/%µÍònŽ"ID£&È»,½I §¤—B8Ï�ùRRšw™³ñ,`’kgãY!À”!]¤ÎƳZ€)ÃV’  ³Yâó¥$Ì—˜/%9ÏJ¦ é"u6žÍ&½RÑTFvY›FQãYi½¾¾â +IÈBEx||HKbTF(�)=`}w·ÁÍÍ#¢[gãÙ^ jS¥}'Ûu²i<+-Qµ·ÎƳ�€š jÓèÁè UûšF� §¤QµéaÊíÚä‡uÕn`t…m¹q6žmÔU›FÓrJÓIo†4i˜dÇÚÙx/ÔU›FŽ §¤áYiÙ0ÉŽµ³ñ>PTm=D�SÒx˜ôfH“¦2²ËÚ4Šš!È€x¶ÎÆûX 2²ËÚ´2²ËÚïUÛ¨ zÒëÊÈ.k7¯�1ä”4âÙ^8ï ÏJËæt›VFvYÛ !ïæ(’D4•‘]–æ]æl¼¯Ôy—¥7 ä”4âÙL8ïK5ÁÚ0›åÚ›�þ—³ïó¥¤ Œ®—åæõ1.K]áaÒ›!�SÒˆw…p6ÞÏ*#»,­Œì2F\Φ ‹“f@Fª ar¼a%%iÈàl¼ß f³\{3Пârö}¾”´I+#»¬aʰø_oXIBed—Af³t6Þï†�wsÄE,¦ ‹ªTî{³ÄV’  ³Y:ï·j‚ùRR—%Œ®àÍ@©7å7 ä”4˜dÇÚÙx'†�wsÄu-¦ ‹RúÀ”‘–0UÅ”çÎÆ»D`y7G\Ä¢aʰø§Jå¾7Khz�èÃÁH´³ñ.‚ ˆg3ál¼+<+-ÏJËèuñ ªïi0=Þ°’à™~ªÐåýžÃÀ&˨BFª ñ¸ø9ïj&Ù±v6Þ•LÒEêl¼› 0e˜RïÁ¡“J“³ñn/À”!]¤ÎÆ»�ÀònŽ8.EÔañ=F~`"íl¼Û xVZFò×W×§ëóËõ_GœîF¼?^|8žŸñùâ-.ï.Þ¾�x¾x/¿FÎÆÛXÀ³Ò2’w#>]¼¼\üåúê.¯¯>¼ŒxO§ñˆÏÏç«§Kœ�#Þ^ŽO8]àÇÅÕéxñ‚ÓÝ9o ÏJËèùâi¼ÄÅ'œîF�ç�áýñâÃñüü<›¨ñ¬´t6ÞÖž•–ïÖj¥•T¦Wßs“¼¦ª˜ò7øx¾q~z:Ž——¸¾Dt;W&oo#!"gãm)àYiañnýsƒŸÄj²±É;¦ÈÙx;𬴌°x·ÖT*÷½YBÓƒÄ|))r6Þî<+-#,Þ­ý•Ê}o–ðL?UèrÌ—’"gãíNÀ³Ò2ÂâÝ:l&“œ$d€¦7ðf ü'æKI‘³ñv+àYiañnÝoÐSÁ0›%&2T*¿�œ-„𬴌°x·Î7ÈÍO‚a6K�Jå÷‘³…H<+-#,Þ­ßl@Zc¾”„7¬$! añkýörÄŸqqħ Œÿóú´zÀéãÓõi9[ˆXÀ³Ò2ÂâݺÚ`J¨ºÌCä&Ò‘³…(<+-#,Þ­ç�–ÄømÞ±yÙoÈBE‘³…¨<+-#,Þ­§�–ĘRï‘…Š°øÇõ§ãÅ3ÎWŸq}õþí —§ói|¯N›ÈÙB”ž•–ïÖ´=( Ïa`“EÎb&À$;ÖÎb/À”!]¤Îb'À”áO‹w8ý“XbJ�TfzüiñÎÙBl˜2�–Äx£äSz@.YéJãt»¢%ñFÉ)*:¨ÌôøiúŽ 4ò.s¶H„S†t‘:[$‰@Þe©p¶Hb�I`¨4� èI¯A·g‹¤R“Ö™ªÚõ!èvµîI¯A·›ïÉ�Ú¬’ÍÆÙ"©5ÁÃk½C`<<îä”4ò.Ko’F¥=éõ!èvÓ AÉV8[$¥ &xx,÷0ºÂÃ묄œ’FÞeéMÒ¨´'½>Ýnš!È€"Ù g‹d&¨ ^g5ä”4Ò‡›zêsÂCúpS–ÎÉ^È»,Í»ìûúáOÉì_Öê&Ùlœ-’� &È»ì1.KFÞe¯rJy—¥7‰³E²Ôy—¥7 ä”4<+-£×Å;(í; bŒÇÅ»ÈÙ"š$TÃ$;ÖÎq"À”!]¤Îq,À”á +I0˜/%9[Ä…S†t‘:[ĵÀoJ½�‘Ä»†)Ãâç$ñ†•$x3Öoþ–Ódãl—ž•–øR¬Sn×o¼hsÛ0eXükNºÂV’àÍ@ÎñLÀ³Ò_ŠÕaÊíz¾”´¹m˜2,þ1'‰7¬$a¾”älï<+-ñ¥X¦Ü®+#»lsÛ0eXüke¤� xÃJ’³E¼ð¬´Ä—bu˜r»Î%‡9mn¦ û†•$ä’Üœ-â­À$0*êÓ2 ¢Þ,Mõ S†Å»7¬$¡¢Þ,�- !À$;ÖÎE"À”!]¤ÎE,À”�ÉT0˜/%9[…S†t‘:[µ€g¥%¾«Ã”Ûµ7mn¦ ‹ÌI‚ÉTðf ¬ßü-§bãlQ”ž•–øR¬Sn×ó¥¤ÍmÔañ�9I0™ ó¥$g‹b&àYi‰/Åê0åv]uY¶ÜÜ6LÿZuY¶De¤ANZ:[{ÏJK|)V‡)·ë\r˜Óæ¶aʰ°L¦B.9ÌÉÙ¢Ø pe¤IM~X+í;Ù®“Õ—b³i˜2,þ»Ò¾“¨Œ4ÎÅV€Iv¬�-j!À”!]¤Îu"À”á'±š,AlòŽÉÙ¢Ž˜2¤‹ÔÙ¢.<+-ÏJËè'±š,• §F‚<‡ *±É©ŠÏJKg‹º˜/%¥¢ñf T8[Ô¥À$0¼(�Þ ”ß$ÍÏ6�î#g‹z&Lc¾”” È€¸,�-ê½Àâ�š`m˜ÍríÍ@ŠËÙ÷ùRÒFWˆËr“Æe 9%�¢Þ g‹z'°x÷³M£×Å/è Alrªð¸ø9[Ô[@ÓƒÄ|)©ñ¬´Œ¼(ºõf ÛŸ­³E)4=Hx3�³E™Ì—’RÑx3P*&Ù±v¶(c¦ é"u¶( ¦ U—yÈ€üÀDÚÙ¢¬˜2¤‹ÔÙ¢,†�wsÄq)œ-Ê™À$0z�&�ÉÌÙ¢Ü •7µ)«a*Ûu$¢ïSzh×seòïÞ ´YÅg‹r'Tó¥¤6e5Le»ŽDô}Jíz¾”´YÅg‹r+xVZ¢Ë•¢ß�n+ojo«ùRR{5ˆn�-fB˜F•&�ÉÌÙb–,ÞU•‘¦MY SÙ®#}ŸÒC»^f³\{3Пârö}¾”´�Ñâ²ÜlVñÆÙb ,ÞyVZ¢Ë•¢ßñ{t[UFšöÖÙbV,Þ© ¼(õf ü&�ÑæKIi\–�SÒ¨ÒdÖô:MfγZ`ñny7G\×¢QÌ—’�… É,�SÒð¬´lª4™9[ÌJ@ÓƒDål1› hz�èuãYiÙxVZ:[ÌöjoJ½(¿I`t…ùRR—%ä”4<+-£×Å/�®& Ï!Ããâ]Ô0ÉŽµ³Ål'àYi‘–ÄX6�‡ ¥Ò!0ÖÞ@Ѓ’¨ºÌãææÑm£îiÙ¦JûN¶ëdãl1Û ¨ Ô=-ÛÇ4:G0º‚º§eûšF� §¤¡îiÙ¦‡)·k“Öêž–íFWØ–g‹½𬴄º§eÛxVZ6juOË6�ä”4Šr&œ-ö‰€š@ÝÓ²M£i9%�é¤7Cš4L²cíl±�Ôêž–mý9‚œ’“ìXƒúœPÌvÂÙb_0eH©³Å¾`Ê�“Ä\™¦ª˜òÜÙb_ 0eH©³Å~&0„¼›#ŽKál±ß Ì•ÉÛ4ŠÏJËÆ³Ò2"-‰179Á›�`ªŠ)Ï¡4¦ô`*:¨ÌôXßÝmpsóˆèÖÙb¿˜·©Ò¾“í:Ù4ž•–˜··Îû­€š`Þ>¦Ñ9‚Ñæíký5‚œ’ƼMSn×&?¬çíFWØ–g‹�PÌÛ4šF�SÒ˜Nz3¤IÃ$;ÖλD@M0oÓèÏä”4<+-&Ù±v¶ØÅseò6�+“·ßçm£&èI¯çÊäíæõ1†œ’F±ß g‹]!àYiél±«A·é\™¼m†�wsI"š¹2yšwYãYiÙxVZ6j‚¼ËÒ›rJÅ~/œ-v¥€7¥¢™/%¥¢™û6�+“·ß#!¢fy7G—¢a’kg‹ÝL€)CºH�-v{¦ L¦yd€a6Kg‹ÝN€)CºH�-v[oJE3_JJE3„¼›#ŽKál±CÈ»9Š¢ÎÛDÀ0›åÚ›�þ—³ïó¥¤MÊ•‘¦QÌ—’R9% ÏJˈÉTJðf èÖ›�œ-¶±À|))�/%}O5Á|))�Ëä”4¼(õf ïI3_JJ…³Å¶Px3ÐkêÍ@ùM9%�b+„³Å¶ð¬´l¼(Í|)) “ìX;[lK¦ é"u¶ØÎ˜2¼a% †Ù,!ÈsÈœ-¶{¦ é"u¶Øî†�wsÄq)œ-¶[ÏJËèuñ óŽ5LßÃsØdU˜/%åø¯ÿÂãâ"gk!<+-�­E"àYiÉ¥'`½Ü@x› ä9d‘³µˆ<+-#,~­ÿ¼� `’kÈÏa`“EÎÖ¢𬴌°øµžn *•ûÞ,1¥Þ##ÝEÎÖ¢𬴌°øµÖÈ&Ù±† ð6&2ü6ïXÿ†,T9[‹RÀ³Ò2ÂÂÊ3,á9 l2(�ßèAÉß�…оFÎÖb&àYiÙxVZF¤%1rêé Uи¹yDtÛ¨{Z¶©Ò¾“í:Ù8[‹½€g¥%Ô=-[gk±P¨{Z¶�itŽ`tuOËö5�þANICÝÓ²MSn×&?¬Õ=-Û Œ®°-7ÎÖb+ &P÷´lÓHG�SÒ`’kgëD¨ Ô=-Û4šF�SÒ˜Nz3¤IÃ$;ÖÎÖI" &P÷´lÓèÏä”4<+-&Ù±v¶Nb5�º§eûú-#È)iÛ­p¶N �I`˜ªJd@•«oäl�Ô@ed—¥†Ù,צª6�š 2²Ëð—3È)iÔÉV8['¥PÙeied—Áè qY6ó¥¤ÔT²P!.g�7¥kSU7ó¥¤Í߯åÌÙ:™ ž•–ˆæk¥D·Íònޏˆ…³u²†�wsq-š!äÝEQ gëd'¨ ¸2Ò¼>VFvä”4<+-½.~¡2Ò@‰ŸÄj¢¨ÂãâWäl�l4=H˜ªr¶Ž…€g¥e3_JJEãÍ@©h˜dÇÚÙ:N˜2¤‹ÔÙ:Ž˜2äæ'Á0›%”F¥ò{LTOÎÖq!À”!]¤ÎÖq-0„¼›#ŽKÑxVZFrJ¨T~�‰ê &#©Â”˜ðFõ=AK£4LßCN •‘&r¶ŽKÏJËÈ3å¤e¿Ä!hi”¦ Jc:y2Ê/¡23Œ®"gëx&àYi½Q}�9Áä¹4U�SÂDõz�¤¥ ¿yÎ~û9[Ç{ÏJËHN “Ð÷á�ÒTƒ^åazP¹Tz@¥ò{LTO9Þ(9�œ­ã�€g¥e$§„‰ê ô IK4~ûê9ûíkÔxVZ6ž•–ÎÖñV`¢zÊýé«ç,j<+-ÏJKgëB(í;‘–Ä�SÂDõ¤MF,CÇÐô•Êï1Q=áææÑj¢zÒ&£ÖÙºHÔÕ“6µi4�Õ“6µitANIc:éÍ�& “ìX;[±€š`¢zÒ&£6�þ!0&ª'm2jÓè¿E�SÒ`’kg뢞4¢­¾$«‰êI›ŒÚïÑWÏYäl]Ô“ÀP©€ ¨rõ�n’ƳÒ_’ÕÚ0›åZm`t…¸,7·ÎÖE)¨ ²P!.g©€œ’†g¥%¢ÜüTz€7E·êoãræl]Ì4=H¨æÐ‡œð%i˜dÇÚÙºØ 0eH©³u±`ÊÐSÁ0›%&�3T*¿w¶.¶LÒEêl] �!äÝq\ŠÆ³Ò²ñ¬´Œä”0 }Þ(=@å0èU.&˜¨ž´É(Ç%§�SÂDõ9[׉€g¥eD’´TAã·¯ž³ß¢Æ³Ò²ñ¬´t¶®c�‰ê)Gô§¯ž³¨ñ¬´l<+-�­ëB@ißɈ´$†ÁDõ¤MF˜pÈ §„^åf~nn£ÕDõ¤MF­³u] ¨ &ª'm2jÓh!0&ª'm2jÓè.‚œ’ÆtÒ›!M&Ù±v¶®K5ÁDõ¤MFmý9B`LTOÚdԦы §¤Á$;ÖÎÖõL xÒˆT´ú’¬&ª'm2j¿G_=g‘³u½˜†Jd@•«ot“4JûNâK²ªŒì2gëz'¨ ²P!.g©€œ’†g¥%¢>˜JéÞ ݪ¿�Ë™³u½Ô•‘]–Æe‰À¨Œì²tm˜Ír­60ºB\–È)iÔåL8[—BPf³\«Íëc\–�SÒ¨ËX8[—‰`˜Ír­6ied—!0ârÖ AÔåL8[—±àYi½.~Aõ= ¦‡Ò¾“¨Œ4˜pÈ0Q=áqñ+r¶. À³Ò2z]ü‚‘’2/!Þ°’„ð“žÃÀ&˨BFª ñ¸ø9[—µàYi½.~ÁsØd˜šs" 3,©ÂãâWäl]–À¡9}IÒ•³u9Ðô ¡šCr—¤a’kgër/À”!]¤ÎÖåN€)C¥ò{s`pè¤Òäl]n˜2¤‹ÔÙz&ÔÄœ–Œ®@ܧu¼�SÒ𬴌t€ç ÕS5Ly—êBgëY" & æ´,`tâ>­ëX@NIóÒ2Òž3LTOyÔ AÔ³½p¶žÅjbNËFW îÓºž È)ixVZF�¾×á�ÆDõ5C�õl/œ­g…€š€˜ÓY9% ÏJKD•Êï1éú>j† êÙ^8[Ïj51§årJž•–SNä9dð6YF5C�õl/œ­g¥€š€˜ÓÙrJž•–Q§ïux£1Q=i“Ñ UпIÈ¥'üöÕsö[Ô AÔ³½p¶žÍ}ÈéKÒxVZ"êô½o4ˆ90¾D·Ä|)�^i—薸w¶ží<+-#Ï”ç0z‰{ZB‚–Jw„››GD·�º§e›*í;Ù®“MãYiél=Û ¨ ˆ9-÷�SÒ`Ê»Œ œ­g[�é¤7Cš8[ï…SÞe„8I„³õ>ÄC�ÂÙz 0eH©³õ¾`Êpz¢†Ž�TAƒC'•&gë}-À”!]¤ÎÖûR 2Ò .ËU\–«d;[Åe¹J¶³U\–«d;[Åe¹ŠËr•lg«¸,WÉvæl½Ÿ TFˆx¶J¶³U\–«¸,WqY®’íl—å*ÙÎVÉv¶ŠËr—å*ÙΜ­÷{�ÊHƒd;[Åe¹J¶³U²�­â²\Åe¹J¶³U\–«d;[Åe¹ŠËr—¥³õ~'Pi�lg«¸,WÉv¶J¶³U\–«¸,WÉv¶ŠËr•lg«¸,WÉv¶ŠËÒÙz¿PP®¾Qš@NIƒ)—� õ¾ÎÖ;! & \}£4†œ’S.êýL8[ï5åê¥ä”4˜r˜Pï÷ÂÙz ¨ (Wß(­!§¤Á”ËÀ„z¿ÎÖ»B # É*ŽÏJKDßež‡ 'jèØHtäl½«úp0’P¬ ÑxVZâ0åv‹ds{˜r»ŽE¹¹=L¹]Ç¢Üܦܮ“Ý~ãl½+&�¡Ò2 )�­w3 # jUˆÆ³Ò‡)·ëd»ÝÜF@t{˜r»Nvñæ6úûèVÝÎÖ»½€¦ ål½Û ôá`$!™­ ÑxVZâ0åv ±¹=L¹]Ç¢ÜܦܮcQnnSn×Én·q¶Þm&�¡Ò2 )�­·B`2þ¾Ë<±³õ6úp0’ VEÒxVZâ0åvý÷]æ‰7·‡)·ë¿ï2O¼q¶ÞÆš$”³õ¶èÃÁHB½*vÎÖÛZ@M@¹úFi 9% ÏJËHI ”Î¥é{ü}‚I`Äû"6 Ï!Ë#gëm)Їƒ‘„d·ŠEãYi‰H}Âÿxûü~<^â|quqÂûãÅûñøò?.®>]x{Ÿ"gëíL # Év‹Æ³ÒÑåÝÛ.>}ÂûãŇãùùy<â|õ„Ëñ„ÿñöùýx¼\EÎÖÛ½@Fb±ŠEãYi‰èt7^áôöx…÷Ç‹ÇóóóxÄÇó�ÀÅÕ×ÈÙz»èÃÁHB¯bÑxVZ"òÇñòç«Ïø‡ñ3Nøqquº¾z;âææÑ­³õv+`ÚTißÉv�l&Ù±vöÿ-þíÿ I MOD 256=0 THEN PRINT "LOADING PAGE";I/256 4490 /* C to pascal - filter to replace C punctuation and certain key words with their Pascal equivalents. C form Pascal form ------ ----------- " ' { BEGIN } END; <2 blank spaces> () && AND || OR comment start { comment end } == = != <> = := printf writeln scanf readln while WHILE Usage: ctp outfile Copyright 1984 Ted Carnevale. Permission granted for personal nonprofit use. All other rights reserved. */ #define EOF -1 #define EOS '\0' main() { char c,*letter,word[100]; int wordlnth; letter=word; wordlnth=0; while ((c=getchar()) != EOF) { if (isalpha(c)) letter[wordlnth++]=c; else { if (wordlnth>0) { /* word ready to check */ letter[wordlnth]='\0'; wtest(word); /* pass or replace it */ wordlnth=0; /* reset index */ } ctest(c); /* process following char */ } } } /* note: the last word in the file will be missed if it is immediately followed by EOF with no intervening nonalpha character. This is not a problem for Pascal or C program sources. However, a general purpose word filter would have to check for a nonzero wordlength after EOF is reached. */ wtest(word) char *word; { char *swapword; swapword=word; switch (word[0]) { /* test first letter, then rest of word */ case 'p': if (strcmp(word,"printf\0")==0) swapword="writeln\0"; break; case 's': if (strcmp(word,"scanf\0")==0) swapword="readln\0"; break; case 'w': if (strcmp(word,"while\0")==0) swapword="WHILE\0"; break; default: break; /* pass unchanged */ } swap(swapword); } ctest(c) char c; { switch (c) { case '"': putchar('\''); break; case '{': swap("BEGIN\0"); break; case '}': swap("END;\0"); break; case '\t': swap(" \0"); break; case '&': swapif('&','&'," AND \0"); break; case '|': swapif('|','|'," OR \0"); break; case '(': swapif('(',')',"\0"); /* () simply deleted */ break; case '/': swapif('/','*',"{\0"); break; case '*': swapif('*','/',"}\0"); break; case '!': swapif('!','=',"<>\0"); /* != -> <> */ break; case '<': case '>': putchar(c); /* x are passed unchanged */ c=getchar(); putchar(c); break; case '=': identassign(); /* == -> = , = -> := */ break; default: putchar(c); break; } } swap(s) char *s; { while (*s!=EOS) putchar(*s++); } swapif(first,second,replacement) char first,second,*replacement; { char c; if ((c=getchar())==second) swap(replacement); else { putchar(first); putchar(c); } } identassign() { char c; if ((c=getchar())!= '=') { /* assignment */ putchar(':'); putchar('='); } putchar(c); } /* end of ctp.c */ 2 '*********************************************************************** 4 '* FOURIER SMOOTHING WITHOUT THE FAST FOURIER TRANSFORM PROGRAM * 6 '* By Eric E. Aubanel and Keith B. Oldham * 8 '*********************************************************************** 10 CLS 12 INPUT "ENTER NUMBER OF DATA POINTS";N 14 REM LEAVING R AND I ARRAYS UNDIMENSIONED LIMITS VALID VALUES OF E TO <=10 16 DIM X(N),X1(N),U(N),V(N) 18 FOR I=0 TO N-1 20 INPUT "ENTER DATAPOINT VALUE";X(I) 22 NEXT I 24 GOSUB 60 26 PRINT "THE SMOOTHED DATA VALUES ARE:" 28 FOR I=0 TO N-1 30 PRINT "X(";I+1;") = ";X1(I) 32 NEXT I 34 END 36 REM FOURIER ALGORITHM SUBROUTINE BEGINS AT LINE 60. LINE NUMBERS ARE THE SAME AS FOR THE HP VERSION OF THE SUBROUTINE 60 PI=3.141593 70 PRINT "NUMBER OF TRANSFORM POINTS TO BE KEPT"; 80 INPUT E 90 IF E>INT((N+1)/2) THEN PRINT "E TOO LARGE":GOTO 70 100 IF E<>INT(E) OR E<=1 THEN GOTO 70 110 IF E<=Q THEN 870 120 REM 130 IF Q<>0 THEN 330 240 'CALCULATE R(0) 250 G=0 260 FOR J=0 TO N-1 280 G=G+X(J) 290 NEXT J 300 R(0)=G/N 310 Q=1 320 REM 330 PRINT "WORKING ON R(K) TRANSFORM CALCULATIONS" 340 J2=INT((N-1)/2) 350 P1=INT(LOG(2*J2-1)/LOG(2)) 360 FOR K=Q TO E-1 370 J1=J2 380 S=PI*K*2/N 390 C=COS(S):S=SIN(S) 400 FOR J=1 TO J1 410 L=2*J-1 420 U(J)=X(L)*C+X(L+1) 430 V(J)=X(L)*S 440 NEXT J 450 S=2*S*C:C=2*C*C-1 460 FOR P=1 TO P1 470 U(J1+1)=0:V(J1+1)=0 480 J1=INT((J1+1)/2) 490 FOR J=1 TO J1 500 L=2*J-1 510 U=U(L)*C-V(L)*S+U(L+1) 520 V(J)=U(L)*S+V(L)*C+V(L+1) 530 U(J)=U 540 NEXT J 550 S=2*S*C:C=2*C*C-1 560 NEXT P 570 R(K)=(X(0)+(U(1)*C+V(1)*S))/N 580 NEXT K 590 REM 600 PRINT "WORKING ON I(K) TRANSFORM CALCULATIONS" 610 FOR K=Q TO E-1 620 J1=J2 630 S=2*PI*K/N 640 C=COS(S):S=SIN(S) 650 FOR J=1 TO J1 660 L=2*J-1 670 U(J)=-(X(L)*S) 680 V(J)=X(L)*C+X(L+1) 690 NEXT J 700 S=2*S*C:C=2*C*C-1 710 FOR P=1 TO P1 720 U(J1+1)=0:V(J1+1)=0 730 J1=INT((J1+1)/2) 740 FOR J=1 TO J1 750 L=2*J-1 760 U=U(L)*C-V(L)*S+U(L+1) 770 V(J)=U(L)*S+V(L)*C+V(L+1) 780 U(J)=U 790 NEXT J 800 S=2*S*C:C=2*C*C-1 810 NEXT P 820 I(K)=-((U(1)*C+V(1)*S)/N) 830 NEXT K 840 REM 850 IF E>Q THEN Q=E 860 REM 870 PRINT "WORKING ON INVERSE TRANSFORM" 880 REM 890 'CALCULATE X1(0) 900 F1=0:F2=0 910 FOR K=1 TO E-1 920 T=R(K) 930 F1=F1+T 940 F2=F2+K*K*T 950 NEXT K 960 X1(0)=R(0)+2*(F1-F2*(1/E/E)) 980 REM 990 P1=INT(LOG(2*E-3)/LOG(2)) 1000 FOR J=1 TO N-1 1010 T2=E*E 1020 FOR K=1 TO E-1 1030 F=1-K*K/T2 1040 U(K)=R(K)*F:V(K)=-(I(K)*F) 1050 NEXT K 1060 K1=E-1 1070 S=2*PI*J/N 1080 C=COS(S):S=SIN(S) 1090 FOR P=1 TO P1 1100 U(K1+1)=0:V(K1+1)=0 1110 K1=INT((K1+1)/2) 1120 FOR K=1 TO K1 1130 L=2*K-1 1140 U=U(L)*C-V(L)*S+U(L+1) 1150 V(K)=U(L)*S+V(L)*C+V(L+1) 1160 U(K)=U 1170 NEXT K 1180 S=2*S*C:C=2*C*C-1 1190 NEXT P 1200 X1(J)=R(0)+2*(U(1)*C+V(1)*S) 1220 NEXT J 1230 RETURN 140 ! STRAIGHT LINE CALCULATION 150 S1,S2=0 160 D=INT(N/10) 170 FOR J=0 TO D-1 180 S1=S1+X(J) 190 S2=S2+X(N-J-1) 200 NEXT J 210 X1=S1/D @ X2=S2/D 220 M=(X2-X1)/(N-D) 230 B=(X1+X2)/2-M*N/2 270 X(J)=X(J)-M*J-B 970 X1(0)=X1(0)+B 1210 X1(J)=X1(J)+M*J+B 140 'STRAIGHT LINE CALCULATION 150 S1=0:S2=0 160 D=INT(N/10) 170 FOR J=0 TO D-1 180 S1=S1+X(J) 190 S2=S2+X(N-J-1) 200 NEXT J 210 X1=S1/D:X2=S2/D 220 M=(X2-X1)/(N-D) 230 B=(X1+X2)/2-M*N/2 270 X(J)=X(J)-M*J-B 970 X1(0)=X1(0)+B 1210 X1(J)=X1(J)+M*J+B 10 ! 20 ! **************** 30 ! SUBROUTINE FRTRN 40 ! **************** 50 ! 60 RAD 70 DISP "Number of transform points to be kept"; 80 INPUT E 90 IF E>INT((N+1)/2) THEN DISP "E too large" @ GOTO 70 100 IF E#INT(E) OR E<=1 THEN GOTO 70 110 IF E<=Q THEN 870 120 ! 130 IF Q#0 THEN 330 240 ! CALCULATE R(0) 250 G=0 260 FOR J=0 TO N-1 280 G=G+X(J) 290 NEXT J 300 R(0)=G/N 310 Q=1 320 ! 330 DISP "Working on R(K) transform calculations." 340 J2=INT((N-1)/2) 350 P1=INT(LOG(2*J2-1)/LOG(2)) 360 FOR K=Q TO E-1 370 J1=J2 380 S=PI*K*2/N 390 C=COS(S) @ S=SIN(S) 400 FOR J=1 TO J1 410 L=2*J-1 420 U(J)=X(L)*C+X(L+1) 430 V(J)=X(L)*S 440 NEXT J 450 S=2*S*C @ C=2*C*C-1 460 FOR P=1 TO P1 470 U(J1+1),V(J1+1)=0 480 J1=INT((J1+1)/2) 490 FOR J=1 TO J1 500 L=2*J-1 510 U=U(L)*C-V(L)*S+U(L+1) 520 V(J)=U(L)*S+V(L)*C+V(L+1) 530 U(J)=U 540 NEXT J 550 S=2*S*C @ C=2*C*C-1 560 NEXT P 570 R(K)=(X(0)+(U(1)*C+V(1)*S))/N 580 NEXT K 590 ! 600 DISP "Working on I(K) transform calculations." 610 FOR K=Q TO E-1 620 J1=J2 630 S=2*PI*K/N 640 C=COS(S) @ S=SIN(S) 650 FOR J=1 TO J1 660 L=2*J-1 670 U(J)=X(L)*C+X(L+1) 680 V(J)=X(L)*S 690 NEXT J 700 S=2*S*C @ C=2*C*C-1 710 FOR P=1 TO P1 720 U(J1+1),V(J1+1)=0 730 J1=INT((J1+1)/2) 740 FOR J=1 TO J1 750 L=2*J-1 760 U=U(L)*C-V(L)*S+U(L+1) 770 V(J)=U(L)*S+V(L)*C+V(L+1) 780 U(J)=U 790 NEXT J 800 S=2*S*C @ C=2*C*C-1 810 NEXT P 820 I(K)=-((U(1)*C+V(1)*S)/N) 830 NEXT K 840 ! 850 IF E>Q THEN Q=E 860 ! 870 DISP "Working on inverse transform." 880 ! 890 ! CALCULATE X1(0) 900 F1,F2=0 910 FOR K=1 TO E-1 920 T=R(K) 930 F1=F1+T 940 F2=F2+K*K*T 950 NEXT K 960 X1(0)=R(0)+2*(F1-F2*(1/E/E)) 980 ! 990 P1=INT(LOG(2*E-3)/LOG(2)) 1000 FOR J=1 TO N-1 1010 T2=E*E 1020 FOR K=1 TO E-1 1030 F=1-K*K/T2 1040 U(K)=R(K)*F @ V(K)=-(I(K)*F) 1050 NEXT K 1060 K1=E-1 1070 S=2*PI*J/N 1080 C=COS(S) @ S=SIN(S) 1090 FOR P=1 TO P1 1100 U(K1+1),V(K1+1)=0 1110 K1=INT((K1+1)/2) 1120 FOR K=1 TO K1 1130 L=2*K-1 1140 U=U(L)*C-V(L)*S+U(L+1) 1150 V(K)=U(L)*S+V(L)*C+V(L+1) 1160 U(K)=U 1170 NEXT K 1180 S=2*S*C @ C=2*C*C-1 1190 NEXT P 1200 X1(J)=R(0)+2*(U(1)*C+V(1)*S) 1220 NEXT J 1230 RETURN vÿ�¼PARANOIA.DOC[ßÿ –ÿšÿ ‘ÿžÿõÿ›ÿòÿ‹ÿŒÿ !"�ÿ“ÿ�ÿÏÿoÿöÿ—ÿØÿœÿŠÿ‡ÿÂÿ#$%&'()*+,-./0�ÿ­ÿ°ÿ˜ÿÄÿªÿÒÿ™ÿ¨ÿ�ÿÅÿ†ÿ123456789:;<=>?@„ÿ‚ÿúÿùÿÖÿ×ÿûÿÍÿÎÿˆÿÊÿ’ÿÌÿ¯ÿËÿÉÿÈÿÔÿÑÿÇÿ²ÿÓÿÆÿABCDEFGHI«ÿ±ÿ¾ÿøÿ¹ÿÝÿ¶ÿ…ÿÐÿJKLMNOPQR·ÿ¸ÿ¥ÿ¬ÿÕÿ¼ÿ»ÿ‰ÿºÿ”ÿSTUVWXYZ¿ÿ•ÿÃÿÁÿ³ÿ¡ÿÿÿ÷ÿôÿóÿêÿåÿÞÿ½ÿÿÿþÁýá/’¢˜9.¸à¸(i©>~ßÛ̳ZñNSDÖXï¿¥~3ÛE›°Ì{›y¼Ì%ÇyI7%03Z3ÂÅS -ŸòÂF1óÕ¤é “¢51Ç] |góuÍåÓUp\•Àš5#”OepÜ—À‹˜>͌֌¬.žÊàx(iƒã¹¤åW›‰ÝæšvÁñVÒwQ–´L­—�Êýló®ÏmTÏ:/l3_M 1‘Ìz‚»¸(i¹Í´“$…¡:þQæFÖÒYñ2—˜ÃÖ&ej½ Á]œ—´Á]Ü”´TÿºÍ´“$… î⮤e=¹*7µ^ªžSëeà¯ÜfÚI’œwqUÒ²¯Tÿø$YŠhŠrm£R¬YO.ÅÇ&¸‹û’6¸‹‡’–e>™¥ª—F"bÈmŠLrÛ)Åš?ö)’kJÄÆ £Á]<—´,óÉÔz¨>N­—�ŸXæ“™Ñà.ÞJÚàÎË’–™Ñ1}¢ú83 ¬Xæ“™Qª£Îæ]ŸÛ¨žK‰ �Í4¸ó‹’–©õ2¼ˆéÕÑÔzX±Ì'Sëeîü¼¤ îü¦¤%½_é©þ¾)²ßÅÌùÕfb·¹¦àÎïJZ†Wö¯| îüª¤ îü¾¤ îü¡¤>‰ñX6â•T°•9±±뽘9…Q|¡ SDºÆš¹"‘ížÂhpçÏ%mpço%lÄ+#3£ÁÝ”%mp7e½¯ŒlÄ+�lÄ+-¿ý6W$Ò›(9™gÅe"ä6›+±±1¸›ó²¨ÎF6â•GfF¡¥:ûམ9…Q|¡ SDºÆš¹"‘" îæ¦¬ëh©ÎN/%6dEo¼˜ù ]cÍ\Ùî9îæ®¬÷Tg#ÕÙŠ�x¥¥úøcAl/ëµfj:E_5+(2΃»¹*ë¯Tg#{ª³3£ÐR¹ÆIlµ+®5ñÈ7VFƒ»¹/iƒ»y(ë/Ÿ8åELŸfFyäÃ<å+'œªùA³Þ}÷Û{n.ÊànžKÚànÞJÚàîÊ’–Ob<±Q2ëeà´È0ýõV3¶6é 6åZŒ\÷׈é2µIÃF¼wwQÒR�MõZ¯·šÙˆW$ñÇ>Er›Í5E?oˆ��ÄFé�ÄÄ$·�ww^ÒR�I‘L'™&5Qý+©ÀRE ±Qr›"™N2Mj¢z&¹í4¸»›’–êì46JT“˜ä¶ÓWÖE†×N®m~‚$t°]Ì÷ÄFɬ—‰IóõSpww%-ÕÙ»l�D¶{küSpwW%mpw÷%°gdf4¸»‡’6¸»ç²fj½ ŒlÄ+<²§:ky_Ð5Ö̕°–,E¬÷¥0Áݽ•5{ª£‘=ÕÑ#{ª³–êìÇ_ôÛ\ÙwU–5Sëe`dj½ ¬ØˆWZª�K%'×J×X3W;™¨IÁ]]”´Á]�—5_>1µ^F~ЬàÝw¿½ç¥:z×(]cÍ\‘Dl”ÌzÚà®nJÚà®îJàvúåý;>O­—�‘Ï ¦ÖËÜÕUIÜÕ}IÜÕCIË'1žØ(“L;IRÄ0µ^¼Ì%¦à®žKÚà®ÞJà6ÓN’†‘4+‚»/K`=¹›FfFƒ»¿(iƒ»?/kn3í$Ia¹Í´“$…á‘™Q åç¢7‘Ø(^æSp÷7eÍzr)>6TG#ëÉ¥øØÔÀOL­—�–êìƒñˆé2µIYO.ÅÇ&¸û»²f_#ëÉ¥øØÔ<23ZÓR}\š(9Ö{1s £ÁÝ_•´ÁÝß—5_>qÊžëÉ¥øØpÂÈÌ(ï¾ûí=÷ç%-ÕÇ/ ¹ždÚIÒàîJÚàîŸKàvúåý;>ßfÚI’Â0òyÁm¦�$)Lp÷o%mpe ÜN¿¼ÇçõäR|lù¼`=¹›à.JÚàÎK`™OfF™åëÉ¥øØ÷pSÒ÷pW·Ó/ïßñùç¼Hš"™æ6ʯJÒ‰Íl”°.zã‘Ä2ŸÌŒ2òyÁ2ŸÌŒ÷pUÒ÷p_3£/búÄÈ)ßÙ| +–ùdf”ùÎæëàJ`™O¦ÖËÀL­—�ŸXæ“™ÑàžKÚàÞJ`j½ /búÄL­—¡®©ŽVÌŒ÷\–ÀÔz^Äô‰‘S¦ÖËð"¦O¬Xæ“©õ2pÂ#3£Á=_”´Á=Ÿ—ÀÀÈÌh½b™OfFƒ{¾)�=#3£õŠ™Ñ1} îù®¾223Z¯‚{¾*iƒ{¾/�ÄÈÔzX±Ì'Sëeîù¡"#Sëe`ÅÔz^Äô)¸ççè™Z/+RpÏo%mpoe |ùÄž‘e>™åÃû_øÊÈ2ŸÌŒòáý/DF–ùdj½ |xÿ =#Ë|2µ^Þ}÷Û{ÞnÊàÞÎKàûÙ»oWepo7eÍíôËûw|þàý·Ôocf»Hc–yo3�—¹DlB"©)úÜ?}îí®¾Ÿ½›ñöP÷vUÖÜN¿¼ÇçÞKý6f¶‹ä¶û=1ïmæñ2—øJgM§yn£†b›º>Sÿô9¸·û’6¸·‡øíý/´|ßÛÌ\pÁýá/’¢˜9ç.¸à&Y1Ïì5ß÷6ó‹šêãï4Ed�õþ[ê·1³]¤± ˼·™ÇË\"p\p]aR ˜­©ŽG¸x*pÀ§¼°QÌ|5)ÄDºÂ¤hMLu ‡ÁßÙ|Mõq„òéjðƒfÕÇʧrð"¦O3£ÀÈêâ©\÷«Í‚¦ÖË@u¼#S›/à€ŸmÞõ¹�êYç…�bæ«I!&’Y/C ‡Á·™v’¤0°#S›/à€end-�5/s‰ 1lmR¦ÖËPÃapuMõ1¸º¦úx@u|›i'I C]×p°ªã™Ú|L­—¡®á´È˜Z/å6ÓN’æƒ6â•êãŽLm¾€>I–"š¢\Û¨k6âcS×p°Ì'3£TG;2µùX‰ˆ!·)2Ém§kþاH®)k(Œr°Ì'Sëevdjó0µ^~b™OfF©ëƒ‚fF_Äô Ø‘©ÍpÀÌ(°b™OfF©Ž:›w}n£z.%6t6S8 ˜Z/˘>±#S›/à€©õ2°b™O¦ÖËP×5¤Wâ+=ÕÙŽLm¾€6Eö»˜9¿ÚLì6×T×5 ¯ì_ùJu¶#S›/‚‚‚Ûê\ ß÷6ó‡ÁÁ|ã±lÄ+©`+sbc#Ö{1s £øB¦ˆt�5sE"Û=…Ñ'à08 8`#^Ù�ÌŒ.‚2�¨�ÁQGu¼¯ìF6â•G6âuÁ¿ý6W$Ò›(9™gÅe"ä6›+±±ƒ£:¨Îv#ñÊ#3£ 8¨?x/fNa_h‘®±f®H¤È¨Žƒ«ë8¨O/%6dEo¼˜ù ]cÍ\Ùî9§:> ŽêxOu¶¨ÎVlÄ낃ø± 6Š—õZ35�"‰¯šçTg‡ÁQ¥:Û�ì©ÎVÌŒ5Õñã‰�$¶Úךxä+ £TG‡ÁQGuÜ›(9§¼ˆéÓÌ(�Øm:å+'œ�4+ÁÕ5ÕQp@pÀŸÄxb£dÖËÀi‘aúë­flmÒl"6ʵ¹î¯Óej“"†�xå08à žêµ^o5#66²¯Hâ�}Šä6›+jŠ~Þ‰�Ò‰‰In;å08à –„)"™N2Mj¢úWR�¥0Šb£ä6E2�dšÔDõLrÛ)ppPŸÆF‰j“ÜvúʺÈðÚɵÍO�„¶‹ùžØ(™õ2 1i¾~ƒêwÙ‰l÷4Öø'êêˆêè08 8`Ïndft�éDm Žê88ªã©õ2°ÙˆWxd¿ :;à}A×X3W ÃZ²±ÞK”ÂÔTG‡ÁQ祈v#{ª£Gö ª³ƒ~,ðE¿Í•}]×TG‡ÁQO­—�ÝÈÔzX±¯pPS-M”œT\+]cÍ\iìd¢&ÕTG‡ÁQGuÜ›(9SëeàOæÍŠpP×ï¥k¬™+’ˆ�’Y/Ã¨Žƒ‚.3‰š›SÚ©õ20Ò¾2µ^NÁÁÁ|ã‰�2É´“$…A SëeÀË\b¢®kª£Ãà€à€ÛL;IRv#?hV,‚6âcCu´™]d:Qƒ£:Žêø6ÓN’†ÝÈm¦�$) �ÌŒ.€~.z‰�âe.1ÕTG‡ÁQoÄǦÞ�lÄdžêè'¦Ö˰à€êìƒñˆé2µIÙˆ�MMutÕñžz7²ª£GfF©Î¨>.M”뽘9…Ñšêè08ªã਎{%ç”=+6âcà ú33£ ª£j¾$äz’i'Ikª£Ãà€à€ËL¢ææ”ö6ÓN’†‘ö•ÛL;IRNÁÁ—™DÍÍ)íF|li_Ùˆ� '‹à€à€e>™e723Ê76âc³¸Ì$jnNi΋¤)’in£üª$�ØÌF) ë¢7I,óÉÌ(#í+Ë|23ÊÉ"8 8`fôELŸØ�œò�Í×°b™OfF9á‘ïl¾^,óÉÔzØ�5Sëeà'–ùdft0µ^†1}b7Sëe¨k`ÅÌè"8`j½ /búÄn䔩õ2¼ˆé+–ùdj½ œðÈÌè"8 8``723 ¬Xæ“™ÑEpÀžÝÈÌ(°bfôELŸÁ_Ù�ÌŒ+†Ep@p@b72µ^V,óÉÔzÁ‘ÝÈÔzX1µ^†1}ZôìF¦ÖËÀŠ´�5§{F–ùdfô°Æsú•‘e>™=©­ñÁQŸFF–ùdj½ 'Xã9íYæ“©õ2œ5ÁQ_f57§´¼ÿ–úmÌlilÂ2ïmæñ2—ˆMH$5EŸû§–“àÍ“Õñe&QssJûÁûo©ßÆÌv‘Üv¿'æ½Í<^æ_é¬é4Ïm”ÂPlS×gêŸZN‚‚Ôx¾ïm柂 îß6!‘Ô}îŸZN‚4OJpTÇ—™DÍÍ)íï¿¥~3ÛErÛýž˜÷6óx™K|¥³¦Ó<·Q C±M]Ÿ©j9 Pã9ø¾·Ùߪÿý?dÇÔç„ùRR:_JºIœ�‹­€š`¾””Þ$�SÒðf Ô›�n’f¾””Æeél\ &Ù±v6®¦ é"u6®c¦ J˜2Ò¦ª˜òÜÙ¸.˜2¤‹ÔÙ¸®ÔÞ ”z3P~“Àè ó¥¤410 ' *** MODEL3D.BAS *** 20 ' Draw a 3D perspective view of a molecule with rotation. 30 ' for private, non-commercial use only. 40 ' copyright E. Kirkland 4-Jul-84, added printer distortion 9-Sep-84 50 ' 60 ' NOTE: Remeber to shrink command window to lower left 70 'hand corner so that the lower right side of screen is visible 80 ' 90 DEFINT I-N:DEFSNG O-Z:DEFSNG A-G 100 DIM IE(4),IP(12),X(600),Y(600),Z(600),S(600) 110 ' 120 ' Define shading bit patterns for sphere 130 IP(0)=&H4411:IP(1)=IP(0):IP(2)=IP(0):IP(3)=IP(0) 140 IP(4)=&H55AA:IP(5)=IP(4):IP(6)=IP(4):IP(7)=IP(4) 150 IP(8)=&HFFFF:IP(9)=IP(8):IP(10)=IP(8):IP(11)=IP(8) 160 ' 170 ' Ask what to do 180 CLS:INPUT "Data file name : ",FILE$ 190 INPUT "Azim., polar angles : ", PHI,THETA 200 INPUT "Viewing distance : ",VIEWD:INPUT "Size mag. : ",SMAG 210 INPUT "Type 1 for printer:",IPRINT 220 ' Printer distortion correction factor 230 IF IPRINT=1 THEN DISTORT=1.094 ELSE DISTORT=1! 240 TIM#=TIMER 250 PHI=PHI*3.14159/180!:THETA=THETA*3.14159/180! 260 CP=COS(PHI):SP=SIN(PHI):CT=COS(THETA):ST=SIN(THETA) 270 ' 280 ' Read atomic coordinates from data file and scale 290 OPEN FILE$ FOR INPUT AS #1 300 XMIN=1E+25:XMAX=-XMIN:YMIN=XMIN:YMAX=XMAX 310 ZMIN=XMIN:ZMAX=XMAX:N=0 320 WHILE NOT EOF(1) 330 N=N+1 340 INPUT#1,X(N),Y(N),Z(N),S(N) 350 IF X(N)>XMAX THEN XMAX=X(N) 360 IF X(N)YMAX THEN YMAX=Y(N) 380 IF Y(N)ZMAX THEN ZMAX=Z(N) 400 IF Z(N)=1 570 FOR I=IGAP+1 TO N 580 FOR J=I-IGAP TO 1 STEP -IGAP 590 JG=J+IGAP 600 IF Y(J)<=Y(JG) THEN GOTO 640 610 SWAP X(J),X(JG):SWAP Y(J),Y(JG) 620 SWAP Z(J),Z(JG):SWAP S(J),S(JG) 630 NEXT J 640 NEXT I 650 IGAP=INT(CSNG(IGAP)/2!) 660 WEND 670 ' 680 ' For perspective projection and scale coordinates 690 SCALE=-1E+25:SMAX=SCALE 700 FOR I=1 TO N 710 YA=1!/(VIEWD-Y(I)):X(I)=X(I)*YA:Z(I)=Z(I)*YA:S(I)=S(I)*YA 720 IF SCALE?@ABCDãÿÄÿæÿâÿÕÿÔÿÒÿ¥ÿØÿEFGHIÿÿÿèÿçÿàÿÙÿµÿŸÿ’ÿÿþmÂð•8"0óùý…¬!�XŒ0³ l�¯wUˆ*Ál�·*d(5æ: ¿²†4ÂÏVW;Fdj8ã9È á>*!0óùýÞyVb ß>0u8vÓxI¾G²†4bw‚ÌÕ£¯jǯؑºÌÁ£vá“rB?s ^è„áGæ¢$‘�Lã1aøJ‘cÄ÷öÄš=dfÈÌ­·ºTüŠ#¾·· Öì!3cøW!ö¾&†�:Ÿëž©Ãð9¸ A«ð'#0óùý»zY˜PY¯̽"‡ÈÎsP"=ùi<'ìr§9ÓËþßó±M‡" ±¿¿\ÓÃ!‡áXî/×ô0�ׄá+q„/܇å„Þb©… ™?„žáê¸cz .HÐ*üÉÈ*ŠbÁ Ó4¾%ÄS§9Ó˾=ä"ûvo†¯Äϵ“P�Xó bØq¨vPˆ½¯‰A¬9¸Æ#Ö^0üØ1Šù áC]†ÌLQ+ðÇ:TaG¡ŽˆµìÄÚÏœ1üºãň!3ƒj‡7ÁùnßúÊ 'X ±÷PwÂ#Ÿð<³ÃÉj(1ˆ5Ÿ †7Áád5�j·Nã]‚n÷Á=òi{ t»_WÈÌwiÛ”0|%Ž.HÐ*üÉØ™RÆs�½ÅR Ô£7'dUÅ4�m›P”4n÷kpAº~³óõmž¦±½$ _‰#< v&3rŒy,F Ž&ŒÞœ�UØ�Ð[,µ0Mc{L(J·ûU³Ðf=4æëÚ4ÆË9_ ±÷5ñ:�í[BQҸݯÏÔy¡M{»iÏ›Íf=4æëÚ4¾ìÓ¡11\RšÆËmÂpC0‘ÑçOþäD¿€‰Œ^Q/`"#Dö^Fp°^´‚ºŒáv¹›ÆË{BXàéã˾…ÌìP(8ÁÊDFàE¥ö n‚&ÜëE«‡=ÖŸ­—í}±ªêˆ}yy8°ËÓx¹Knˆ#Ø ²Šv^(¸f uÏ„QÈÒƒkÜbU‚9 ?‰!Ljïí]ÍŸ{ú„Ål¾›ÆcJ®Ô‚•�0¡·Õex¡à,FŽ¥CŽ÷ßÛ»‡õ笢� ®ÙNã±MÈ*Úy¡àší>«hç…‚k¶¿÷3mïÛãÃ4/ à q„ÕRjAVÑÎ ×l!†ã4� EIãv¿>Sç…6íÝfÓ7l~³óõmž¦ñxNnˆ#ú™ûG,Fð''úLd„à�U´óBÁ5Û Nì_Q™ ßvÚ?B İ&dí¼PpÍv�ׄ¢¤q»_içe³óõmž¦ñø–0ÜG„Ldôù“?9Ñ/`"£WTÁ ˜È‘½×†¬­ .cø…]î¦ñx›xúø²o!3;%�ÛýꙺbUµiï6ë¡1_ïЦáé«ªŽØ—¨Ë8ïÏ�™ 'Xýɉ~!8ô£º¼<}|Ù§Ccb8¦4�Ç÷„°ÀÓÇ—} ™Ù¡Pp‚•‰Œ:À‹JíAÜ/Lûûà`½hõ€õgëe{_¬ª:b_^ìò4ï†âˆ7Á¹àØ‚¬¢Ðþc|0‡Ê¬t@pA‚ CÑ�Õïü…ûZB¡i˜ âÞ(Cf¦h½Õ¥b¨Ë(ÄÞ×Ä~RçsÝ3�Xsp�‡±®D[í«S7�ç”P”4n÷kòio_Û»ÍzhÌ×;´ixšÆs›0ÜGk†ÌŒ#>hU³GpƒÌŒÞb©…iÏ—„¢¤q»_)w^hÓÞn6mÚ°ùÍzhÌ×;´ixšÆó1a¸!ŽðbÄ�™A¬9¸ÁAfF!ö¾&†é©ZˆíÛô¿¯~xÃomJˆúÈö…Ø#8ˆuÓx>'bŸ‹<ì?huŸU´óBÁ5Û‡ßÚ”¦ñ|Mnˆ#œ CfĘ̀‚c,ÌÁ£öœ!§df°Ë°ÃOYEœÖ [ 3£b×È [Ð[í¤*v�̰½ÕN0|ëµöì¡Ld„Þ\Ìafb<™ñ¡;Nãù-¡(iÜîWÊ�Ú´w›M›6l~³óõmž¦ñ|›0ÜGx1bÈÌ Ö\ƒà 3C8&•šJ¤§ „cùt{ûø7 ÿh bèµêëJ%˜Y-Áñ4žß„c¹ÏEö´ºÏ*Úy¡àšíÃomJéÇrŸ‹<|úãÚ]�w�™ÞŽiÏw à qD?sÿˆÅ ™u\ÁÓÇ Nì_ÑÄÐkÕוJ0‡áY-Áñ4^SBQҸݯ´ó²Y�ùz‡6 OÓxmÂO_>j!3;\¯i¯—„¢¤q»_=SW¬ª6ííf=4æëÚ4<‚bUÕûòòùS‚ÌìðvLÓx=&%�ÛýꙺbUµiï6ë¡1_ïЦáé«ªŽØ——ÏŸdf‡·cšÆë9a¸!Ž Ö ÇÏ�ùýÌý#¸Òâ9CBäi¼^†â ‘·ÄžbHxžÙ�v^ÐÏÜ?z,F�ÙjÁ¢u%~¯o ìr_=î?huO¡™e{/!òöõòðp(œ€]î«Çi¼Þ& 7Äa� *V/8&xî1«WZ<çW4,pü bÍÁ5Óx}O Øå¾zü|L�™®oi¯w à qD?sÿˆÅì2l�é©‚ûWü§ŽbèµêëJ%˜ÃðY-Áq“™é9xFp=qd'ÈE .£·ªâ^àø‹ Xpò·i|K aA.òér¾ƒÌìðvLÓøÖ&ä"û\ä÷öИÎ)MãÛ%a¸!Ž(œ «(Ôedƒç*k@Ü{Ì¡1ö˜™¸Èj Ž1ü3sÅ‹v'a(Iè+®*�ÕC?h¨tW1²ˆá‡Ö2uÓøãïÃÿEo¼˜ù ]cÍ\Ùî9§:> ŽêxOu¶¨ÎVlÄ낃ø± 6Š—õZ35�"‰¯šçTg‡ÁQ¥:Û�ì©ÎVÌŒ5Õñã‰�$¶Úךxä+ £TG‡ÁQGuÜ›(9§¼ˆéÓÌ(�Øm:å+'œ--\HY --\UN --\BF --\SSA --\SSB --\LM2,RM78,TM1,BM1,NP -- Translated from C version, August 1983 BYTE, p. 88 package body floatbch is const1 : constant float := 3.141597E0; const2 : constant float := 1.7839032E4; count : constant integer := 1000; a, b, c : float; i: integer; begin -- float main program body a := const1; b := const2; for i in 1..count loop c := a * b; c := c / a; c := a * b; c := c / a; c := a * b; c := c / a; c := a * b; c := c / a; c := a * b; c := c / a; c := a * b; c := c / a; c := a * b; c := c / a; end loop; -- for i put("Done"); new_line; end floatbch;  * b; c := c / a; c := a * --\HY --\UN --\BF --\SSA --\SSB --\LM2,RM78,TM1,BM1,NP -- translated from C, as printed in the June 1984 BYTE, p. 307 package body fibo is ntimes : constant integer := 10; -- # of times to compute fibonacci value number : constant integer := 24; -- biggest we can compute in 16 bits value : integer; i : integer; -------- function fib(x: in integer) return integer is begin if x > 2 then return (fib(x - 1) + fib(x - 2)); else return 1; end if; end; -- function fib -------- begin -- fibo put(ntimes); put(" iterations: "); new_line; for i in 1..ntimes loop value := fib(number); end loop; -- for i put("fibonacci("); put(number); put(") = "); put(value); new_line; end; -- fibo umber); end loop; -- for i put("fibonacci("); put(number); put(") = "); put(value); new_line;--\HY --\UN --\BF --\SSA --\SSB --\LM2,RM78,TM1,BM1,NP -- translated from C, as printed in the June 1984 BYTE, p. 307 with longops; package body fibo is use longops; ntimes : constant integer := 10; -- # of times to compute fibonacci value number : constant long_integer := lint(24); -- biggest we can compute in 16 bits one : constant long_integer := lint(1); two : constant long_integer := lint(2); value : long_integer; i : long_integer; -------- function fib(x: in long_integer) return long_integer is begin if Lgt(x,two) then return Ladd(fib(Lsub(x,one)),fib(Lsub(x,two))); else return one; end if; end; -- function fib -------- begin -- fibo put(ntimes); put(" iterations: "); new_line; for i in 1..ntimes loop value := fib(number); end loop; -- for i put("fibonacci("); put(L_to_Int(number)); put(") = "); put(L_to_Int(value)); new_line; end; -- fibo  -- for i put("fibonacci("); February 1985 ------------- "Ciarcia's Circuit Cellar: Build A Serial EPROM Programmer," p. 104. IBMPROGA.BAS 19313 Listing 1, p. 114. "C To Pascal," by Ted Carnevale, p. 138. C-TO-PAS.C 2944 Listing 1, p. 140. "A Low-Cost Data-Acquisition System," by Kiyohisa Okamura and Kamyab Aghai-Tabriz, p. 199. "Fourier Smoothing Without the Fast Fourier Transform," by Eric E. Aubanel and Keith Oldham, p.207. FOURIER.BAS 3584 Listing 1, p. 212. Microsoft BASIC. FTEXT.BAS 384 Hewlett-Packard BASIC. FOUREXT.BAS 384 HP BASIC. FT.BAS 2304 HP BASIC. "Paranoia: A Floating-Point Benchmark," by Richard Karpinski, p.223. PARANOIA.DOC 6528 Listings 1 and 2, pp. 230 through 235. "Viewing Molecules with the Macintosh," by Earl J. Kirkland, p. 251. MODEL3D.BAS 3328 Listing 1, p. 253. SIGEN.BAS 896 Listing 2, p. 256. "Interfacing for Data Acquisition," by Tom Clune, p. 269. HEATSUB.BAS 5248 Listing 1, p. 278. "Janus/Ada," by Mark J. Welch, p. 295. JANUS-L1.LST 896 Listing 1, p. 297. JANUS-L2.LST 1024 Listing 2, p. 297. JANUS-L3.LST 1152 Listing 3, p. 298.