Category : Modula II Source Code
Archive   : FM2LIB31.ZIP
Filename : REALINOU.M2O

 
Output of file : REALINOU.M2O contained in archive : FM2LIB31.ZIP

RealInOutî¢8Systemî¢8LongJumpí¢8InOutí¢8FileSystemí¢8Error0üw°¹ÍÀU‹ìU.ŽP¸Pš.Ž‹å]Ê%ÿM2REALSTenTo4Žü"w°¹ÍÀU‹ìUÄæÿ.Ž~}ÆFì‹F÷؉FëÆFì~öŒÐŽÀ6¹üò¥~îŒÐŽÀ6¹üò¥~鹋F$ÐÈsNvöŒÐŽØ¹èþ.ŽvîŒÐŽØ¹èþ.ŽFäP¹!š ÿ.Ž~öŒÐŽÀväŒÐŽØ¹üò¥.Ž‹FÑø‰F~uëQvîŒÐŽØ¹èþ.ŽvîŒÐŽØ¹èþ.ŽFäP¹$š ÿ.Ž~îŒÐŽÀväŒÐŽØ¹üò¥.ŽéGÿŠFìÐÈsF6&¹èþvöŒÐŽØ¹èþ.ŽFäP¹'š
ÿ.Ž~öŒÐŽÀväŒÐŽØ¹üò¥.Ž‹v6<ŒÐŽÀvöŒÐŽØ¹üò¥.Ž‹å]Ê°¹)ÍÀÈ'w§¹[hreadRealÂsüRw°¹2ÍÀU‹ìUÄ¦ÿ.ŽÆ ¸ P6FÄPš.Ž~öŒÐŽÀ6.¹üò¥ÇF~ v°¹7ÍÀ‹v€zÄ-°uþÀˆF¾ŠF¾ÐÈr~ v°¹8ÍÀ‹v€zÄ+t°ë°ÐÈs6ÿF~ v°¹9ÍÀ‹v€zÄ0r~ v°¹9ÍÀ‹v€zÄ9w°ë°ÐÈréô~ w2~ v°¹:ÍÀ‹v€zÄ0r~ v°¹:ÍÀ‹v€zÄ9w°ë°ÐÈr鰍vöŒÐŽØ¹èþ.Ž66¹èþF´P¹;š ÿ.Ž~ v°¹;ÍÀ‹vŠBÄ´-03ÒRPF¬P¹;šÿ.Žv´ŒÐŽØ¹èþ.Žv¬ŒÐŽØ¹èþ.ŽF¤P¹;š
ÿ.Ž~öŒÐŽÀv¤ŒÐŽØ¹üò¥.Ž6ÿFÂéÿë Æ ‹å]ʁ~ w~ v°¹BÍÀ‹v€zÄ.u°ë°ÐÈréá6ÿF~îŒÐŽÀ6>¹üò¥~æŒÐŽÀ6F¹üò¥~ w2~ v°¹EÍÀ‹v€zÄ0r~ v°¹EÍÀ‹v€zÄ9w°ë°ÐÈréövîŒÐŽØ¹èþ.Ž6N¹èþF´P¹Fš ÿ.Ž~ v°¹FÍÀ‹vŠBÄ´-03ÒRPF¬P¹Fšÿ.Žv´ŒÐŽØ¹èþ.Žv¬ŒÐŽØ¹èþ.ŽF¤P¹Fš
ÿ.Ž~îŒÐŽÀv¤ŒÐŽØ¹üò¥.ŽvæŒÐŽØ¹èþ.Ž6V¹èþF´P¹Gš ÿ.Ž~æŒÐŽÀv´ŒÐŽØ¹üò¥.Ž6ÿFÂéÈþvîŒÐŽØ¹èþ.ŽvæŒÐŽØ¹èþ.ŽF´P¹Jš
ÿ.ŽvöŒÐŽØ¹èþ.Žv´ŒÐŽØ¹èþ.ŽF¬P¹Jš
ÿ.Ž~öŒÐŽÀv¬ŒÐŽØ¹üò¥.Ž~ s~ v°¹LÍÀ‹v€zÄEu°ë°ÐÈréæ6ÿF~ v°¹NÍÀ‹v€zÄ-°uþÀˆF¼ŠF¼ÐÈr~ v°¹OÍÀ‹v€zÄ+t°ë°ÐÈs6ÿF~ w2~ v°¹PÍÀ‹v€zÄ0r~ v°¹PÍÀ‹v€zÄ9w°ë°ÐÈréKÇFÀ~ w2~ v°¹RÍÀ‹v€zÄ0r~ v°¹RÍÀ‹v€zÄ9w°ë°ÐÈs,‹FÀ»
÷ã~ v°¹SÍÀ‹vŠZÄ·Ã-0‰FÀ6ÿFÂ땊F¼ÐÈsj÷FÀ€t°¹VÍÀÿvÀF´PšvöŒÐŽØ¹èþ.Žv´ŒÐŽØ¹èþ.ŽF¬P¹Wš
ÿ.Ž~öŒÐŽÀv¬ŒÐŽØ¹üò¥.Žëh÷FÀ€t°¹WÍÀÿvÀF´PšvöŒÐŽØ¹èþ.Žv´ŒÐŽØ¹èþ.ŽF¬P¹Xš ÿ.Ž~öŒÐŽÀv¬ŒÐŽØ¹üò¥.Žë Æ ‹å]ʁ~ w~ v°¹\ÍÀ‹v€zÄt°ë°ÐÈsÆ ŠF¾ÐÈs:vöŒÐŽØ¹èþ.ŽF´P¹^šÿ.ŽÄ~v´ŒÐŽØ¹üò¥.ŽëÄ~vöŒÐŽØ¹üò¥.Ž‹å]Êìö$YFt©ïDyãM}úÝì8J-<ˆšÖå#5Xjò\nëReadReal5Œüw°¹dÍÀU‹ìUÄøÿ.ŽPš.Ž=uHÿ6`ÿ6^š .Ž6FöPšvöŒÐŽØ¹èþ.Ž¹hšÿ.ŽÄv&‰&‰TëÆ š .Ž‹å]ÊVm}—²^ŒþM2LONGS WriteMantÁ–ü"w°¹ˆÍÀU‹ôÿvþÿvüV‹îÄâÿÇFâÿvÿvÿ6dÿ6bšþ.Ž;Âv_~âv°¹‹ÍÀ‹vâÿvÿvÿ6hÿ6frä‰v܌Vޚþ.Ž0ÄvÜ&ˆ6ÿFâÿvÿvÿ6lÿ6jšþ.Ž‰F‰V녋Fâ;Fs~âv°¹ÍÀ‹vâÆBä06ÿFâë݋Fâ;Fv
Äv&ÿÇFàëÇFà‹F
;Fâv¸ Pš
.Ž6ÿN
ëäŠF ÐÈs¸-Pš
.Žë¸ Pš
.Ž6ÿNâ~âv°¹•ÍÀ‹vâÿräš
.Ž6ÿN
¸.Pš
.Ž‹Fâ;Fàv ~
v°ë°ÐÈs(6ÿN
6ÿNâ~âv°¹™ÍÀ‹vâÿräš
.Ž뿋å]Âò( M ¨ à Ó õ 
F

writeExpW
›üw°¹žÍÀU‹ôÿvþÿvüV‹î‹vþ6ŠDúÐÈs6n¸EPš
.Ž~}¸-Pš
.Ž‹F÷؉Fë¸+Pš
.Ž‹F»
™÷û0Pš
.Ž‹F»
™÷û‹Â0Pš
.Ž‹å]†




writeRealò
ށüw°¹¨ÍÀU‹ôÿvþV‹îÄîÿ‹vþ6ÆDú~ sÇF ~
s‹vþ‹F-6‰Düë ‹vþ6ÇDüÿvÿvÿ6pÿ6n¹°šÿ.Ž;Âu¡r‹t‰Fö‰^øÇFúÆFòé+ÿvÿv¹³šÿ.ŽRPÿ6xÿ6v¹³šÿ.Ž;Â})ÿvÿvÿ6|ÿ6z¹´šÿ.Ž‰F‰V‹vþ6ÆDú‹F±Óèˆfò´-‰Fúfÿ‹Fú»÷ë»
™÷û‰Fú‹Fú‹vþ6+DüPFêPšvêŒÐŽØ¹èþ.Ž¹Âšÿ.ŽÿvÿvRP¹Âšÿ.Ž‰Fö‰Vø‹vþ6÷Dü€t°¹ÃÍÀ6ÿtüFêPšvêŒÐŽØ¹èþ.Ž¹Ãšÿ.ŽÿvøÿvöRP¹Ãšÿ.Ž;Â|%6ÿFúÿvøÿvöÿ6€ÿ6~¹Åšÿ.Ž‰Fö‰Vø‹vþ6‹Dü-©€t°¹ÆÍÀPFêPšvêŒÐŽØ¹èþ.Ž¹Æšÿ.ŽRPÿ6„ÿ6‚¹Æšÿ.ŽÿvøÿvöRP¹Æšÿ.Ž;Â%6ÿNúÿvøÿvöÿ6ˆÿ6†¹Èšÿ.Ž‰Fö‰Vø3ɋًVøÑâÐê€Ê€€î‹Fö€þwtÐêÑØÑÙÑÛþÆëíº¸¶öŀt€å Ëu¨t€Ò‰Vø‰Fö6nÿvøÿvöÿvòÿv‹vþ6ÿtü6FúPè ÿvúè
‹å]ÂQ  ˜ ·  # 8 b | ‘ ´ ß ù 
%
H
 q î Â

WriteRealÐ
zü
w°¹õÍÀU‹ìUÄüÿ.ŽPš.Ž=u ÿ6Œÿ6Šš .Žÿv
ÿvÿvèë~v¸*Pš
.Ž6ÿNëåš .Ž‹å]Êñ
+;ŠReadLongRealJ_üw°¹ÍÀU‹ìU.ŽPš.Ž=uÿ6ÿ6Žš .ŽÿvÿvšëÆ š .Ž‹å]Êg~ŽšŽ writeExp©ºüw°¹#ÍÀU‹ôÿvþÿvüV‹î‹vþ6ŠDúÐÈs6n ¸EPš
.Ž~}¸-Pš
.Ž‹F÷؉Fë¸+Pš
.Ž‹F»d™÷û0Pš
.Ž‹F»d™÷û‹Â»
™÷û0Pš
.Ž‹F»
™÷û‹Â0Pš
.Ž‹å]ÂØí;TDiv10clü
w°¹6ÍÀU‹ôÿvþÿvüÿvúV‹îÄöÿ¹
3ҋF÷ñ‰Fö‹F÷ñ‰Fô‹F÷ñ‰Fò‹F ÷ñ‰Fð‰VîÄ~vðŒÐŽØ¹üò¥.Ž‹FîÄv&‰‹å]Â
WriteMantÏmü,w°¹LÍÀU‹ôÿvþÿvüV‹îÄäÿÇFâ‹F F F F=tAvŒÐŽØ¹èþ.Ž6FP6FàPè~âv°¹PÍÀ‹vâ‹Fà0ˆBä6ÿFâ뮋Fâ;Fs~âv°¹SÍÀ‹vâÆBä06ÿFâë݋Fâ;Fv
Äv&ÿÇFÞëÇFދF
;Fâv¸ Pš
.Ž6ÿN
ëäŠF ÐÈs¸-Pš
.Žë¸ Pš
.Ž6ÿNâ~âv°¹YÍÀ‹vâÿräš
.Ž6ÿN
¸.Pš
.Ž‹Fâ;FÞv ~
v°ë°ÐÈs(6ÿN
6ÿNâ~âv°¹]ÍÀ‹vâÿräš
.Ž뿋å]¨¸Úì+
! writeLongReal<óü(w°¹aÍÀU‹ôÿvþV‹îÄÒÿ‹vþ6ÆDú~
sÇF
~s‹vþ‹F-6‰Düë ‹vþ6ÇDüvŒÐŽØ¹èþ.Ž6’¹èþ¹išÿ.Ž;Âu ÇFêÇFìÇFîÇFðÇFúÆFæévŒÐŽØ¹èþ.ŽFÞP¹mšÿ.ŽvތЎعèþ.Ž6š¹èþ¹mšÿ.Ž;Â}NvŒÐŽØ¹èþ.Ž6¢¹èþFÖP¹nš ÿ.Ž~ŒÐŽÀv֌Ўعüò¥.Ž‹vþ6ÆDú‹F ŠÔ€â€ÐˆVæ€ä±Óè-ÿ‰Fúf ÿ‹Fú»÷ë»
™÷û‰Fú‹Fú‹vþ6+DüPFÞPšvŒÐŽØ¹èþ.ŽvތЎعèþ.ŽFÖP¹š
ÿ.Ž~òŒÐŽÀv֌Ўعüò¥.Ž‹vþ6÷Dü€t°¹€ÍÀ6ÿtüFÞPšvòŒÐŽØ¹èþ.ŽvތЎعèþ.Ž¹€šÿ.Ž;Â|J6ÿFúvòŒÐŽØ¹èþ.Ž6ª¹èþFÖP¹‚š
ÿ.Ž~òŒÐŽÀv֌Ўعüò¥.Ž‹vþ6‹Dü-©€t°¹ƒÍÀPFÞPšvތЎعèþ.Ž6²¹èþFÖP¹ƒš ÿ.ŽvòŒÐŽØ¹èþ.Žv֌Ўعèþ.Ž¹ƒšÿ.Ž;ÂJ6ÿNúvòŒÐŽØ¹èþ.Ž6º¹èþFÎP¹…š ÿ.Ž~òŒÐŽÀvΌЎعüò¥.Ž‹Vø‹òæð±Óîî4îÿâ€Ê‹Fò‹^ô‹Nö3ÿþt'ÐêÑÙÑÛÑØÑ߁×FëçÇFêÇFìÇFîÇFðë÷ǀtÿ€w©tÓÑÒ‰Fê‰^ì‰Nî‰Vð6nvêŒÐŽØ¹èþ.Žÿvæÿv‹vþ6ÿtü6FúPè
ÿvúè ‹å]Â
©ðJ·ç$P…ÃëQ”£á1@ÆØ3El{Òáÿ8G!'WriteLongReal/†üw°¹ÁÍÀU‹ìUÄüÿ.ŽPš.Ž=u,ÿ6Äÿ6š .ŽvŒÐŽØ¹èþ.Žÿvè ë~v¸*Pš
.Ž6ÿNëåš .Ž‹å]Ê
Pg–¦Â{†INITµJüw°¹ÌÍÀU‹ì.Ž¡ÑÈs‹å]Êÿšššššÿšþ‹å]ÊÜáæëðõþPUSHSTRUCTÿ[+áÑéŒ×ŽÇ‹üüò¥ÿãƺ
RealInOutð?[email protected]&ð?.6[email protected]>Fð?N[email protected][email protected]^bf
j
nrv`B¢
z€–K~ A‚€?† AŠŽ’šë‘¤ Í¢nµµ¸“Fª[email protected]²ð?º[email protected]Â