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

 
Output of file : REALINOU.M2O contained in archive : M2LIB20.ZIP
RealInOutf¯sSysteme¯sLongJumpf¯sInOute¯sError-üw°ÍÀU‹ìU.ŽP¸Pš.Ž‹å]Ê ÿM2REALSTenTo/ü"w°ÍÀU‹ìUÄæÿ.Ž~}ÆFì‹F÷؉FëÆFì~öŒÐŽÀ6 ¹üò¥~îŒÐŽÀ6¹üò¥~鳋F$ÐÈsKvöŒÐŽØ¹èþ.ŽvîŒÐŽØ¹èþ.ŽFäPš ÿ.Ž~öŒÐŽÀväŒÐŽØ¹üò¥.Ž‹FÑø‰F~uëNvîŒÐŽØ¹èþ.ŽvîŒÐŽØ¹èþ.ŽFäPš ÿ.Ž~îŒÐŽÀväŒÐŽØ¹üò¥.ŽéMÿŠFìÐÈsC6¹èþvöŒÐŽØ¹èþ.ŽFäPš
ÿ.Ž~öŒÐŽÀväŒÐŽØ¹üò¥.Ž‹v6<ŒÐŽÀvöŒÐŽØ¹üò¥.Ž‹å]Ê°ÍÀ½fŸ±û
MZreadReal®ôüRw°ÍÀU‹ìUÄ¦ÿ.ŽÆ¸ P6FÄPš.Ž~öŒÐŽÀ6$¹üò¥ÇF~ v°ÍÀ‹v€zÄ-°uþÀˆF¾ŠF¾ÐÈr~ v°ÍÀ‹v€zÄ+t°ë°ÐÈs6ÿF~ v°ÍÀ‹v€zÄ0r~ v°ÍÀ‹v€zÄ9w°ë°ÐÈréâ~ w,~ v°ÍÀ‹v€zÄ0r~ v°ÍÀ‹v€zÄ9w°ë°ÐÈr餍vöŒÐŽØ¹èþ.Ž6,¹èþF´Pš ÿ.Ž~ v°ÍÀ‹vŠBÄ´-03ÒRPF¬Pšÿ.Žv´ŒÐŽØ¹èþ.Žv¬ŒÐŽØ¹èþ.ŽF¤Pš
ÿ.Ž~öŒÐŽÀv¤ŒÐŽØ¹üò¥.Ž6ÿFÂé ÿë Æ‹å]ʁ~ w~ v°ÍÀ‹v€zÄ.u°ë°ÐÈréÆ6ÿF~îŒÐŽÀ64¹üò¥~æŒÐŽÀ6<¹üò¥~ w,~ v°ÍÀ‹v€zÄ0r~ v°ÍÀ‹v€zÄ9w°ë°ÐÈréçvîŒÐŽØ¹èþ.Ž6D¹èþF´Pš ÿ.Ž~ v°ÍÀ‹vŠBÄ´-03ÒRPF¬Pšÿ.Žv´ŒÐŽØ¹èþ.Žv¬ŒÐŽØ¹èþ.ŽF¤Pš
ÿ.Ž~îŒÐŽÀv¤ŒÐŽØ¹üò¥.ŽvæŒÐŽØ¹èþ.Ž6L¹èþF´Pš ÿ.Ž~æŒÐŽÀv´ŒÐŽØ¹üò¥.Ž6ÿFÂéÝþvîŒÐŽØ¹èþ.ŽvæŒÐŽØ¹èþ.ŽF´Pš
ÿ.ŽvöŒÐŽØ¹èþ.Žv´ŒÐŽØ¹èþ.ŽF¬Pš
ÿ.Ž~öŒÐŽÀv¬ŒÐŽØ¹üò¥.Ž~ s~ v°ÍÀ‹v€zÄEu°ë°ÐÈré¯6ÿF~ v°ÍÀ‹v€zÄ-°uþÀˆF¼ŠF¼ÐÈr~ v°ÍÀ‹v€zÄ+t°ë°ÐÈs6ÿF~ w,~ v°ÍÀ‹v€zÄ0r~ v°ÍÀ‹v€zÄ9w°ë°ÐÈré ÇFÀ~ w,~ v°ÍÀ‹v€zÄ0r~ v°ÍÀ‹v€zÄ9w°ë°ÐÈs)‹FÀ»
÷ã~ v°ÍÀ‹vŠZÄ·Ã-0‰FÀ6ÿFÂ랊F¼ÐÈsYÿvÀF´PšvöŒÐŽØ¹èþ.Žv´ŒÐŽØ¹èþ.ŽF¬Pš
ÿ.Ž~öŒÐŽÀv¬ŒÐŽØ¹üò¥.ŽëWÿvÀF´PšvöŒÐŽØ¹èþ.Žv´ŒÐŽØ¹èþ.ŽF¬Pš ÿ.Ž~öŒÐŽÀv¬ŒÐŽØ¹üò¥.Žë Æ‹å]ʁ~ w~ v°ÍÀ‹v€zÄt°ë°ÐÈsÆŠF¾ÐÈs7vöŒÐŽØ¹èþ.ŽF´Pšÿ.ŽÄ~v´ŒÐŽØ¹üò¥.ŽëÄ~vöŒÐŽØ¹üò¥.Ž‹å]ÊÕÊò$-_¢ô&j—Ãðg´ÃïþASŒ›Öèy‹Òä[ReadReal¢†üw°ÍÀU‹ìUÄøÿ.ŽPš.Ž=uEÿ6Vÿ6Tš .Ž6FöPšvöŒÐŽØ¹èþ.Žšÿ.ŽÄv&‰&‰TëÆš .Ž‹å]ÊÀ×çþTöþM2LONGS WriteMant(‡ü"w°ÍÀU‹ôÿvþÿvüV‹îÄâÿÇFâÿvÿvÿ6Zÿ6Xšþ.Ž;Âv\~âv°ÍÀ‹vâÿvÿvÿ6^ÿ6\rä‰v܌Vޚþ.Ž0ÄvÜ&ˆ6ÿFâÿvÿvÿ6bÿ6`šþ.Ž‰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äš
.Žë‹å]ÂV‰® ! 1 P b ž 
writeExp¯ ‡üw°ÍÀU‹ôÿvþÿvüV‹î¸EPš
.Ž~}¸-Pš
.Ž‹F÷؉Fë¸+Pš
.Ž‹F»
™÷û0Pš
.Ž‹F»
™÷û‹Â0Pš
.Ž‹å]ÂÊ ß ÷ 
'
writeReal6
Cüw°ÍÀU‹ôÿvþV‹îÄîÿ~ sÇF ~
s‹vþ‹F-6‰Düë ‹vþ6ÇDüÿvÿvÿ6fÿ6dšÿ.Ž;Âu¡h‹j‰Fö‰^øÇFúÆFòéž‹F±Óèˆfò´-‰Fúfÿ‹Fú»÷ë»
™÷û‰Fú‹Fú‹vþ6+DüPFêPšvêŒÐŽØ¹èþ.Žšÿ.ŽÿvÿvRPšÿ.Ž‰Fö‰Vø‹vþ6ÿtüFêPšvêŒÐŽØ¹èþ.Žšÿ.ŽÿvøÿvöRPšÿ.Ž;Â|"6ÿFúÿvøÿvöÿ6nÿ6lšÿ.Ž‰Fö‰Vø‹vþ6‹Dü-PFêPšvêŒÐŽØ¹èþ.Žšÿ.ŽRPÿ6rÿ6pšÿ.ŽÿvøÿvöRPšÿ.Ž;Â"6ÿNúÿvøÿvöÿ6vÿ6tšÿ.Ž‰Fö‰Vø3ɋًVøÑâÐê€Ê€€î‹Fö€þwtÐêÑØÑÙÑÛþÆëíº¸¶öŀt€å Ëu¨t€Ò‰Vø‰Fö6nÿvøÿvöÿvòÿv‹vþ6ÿtü6FúPè ÿvúè
‹å]‡

ÿ
 , C U u ” « ¿ Ñ ñ ÷
; £ k q WriteRealy wüw°ÍÀU‹ìUÄþÿ.ŽPš.Ž=u ÿ6zÿ6xš .Žÿv
ÿvÿvèë~v¸*Pš
.Ž6ÿNëåš .Ž‹å]Ê— ® Ñ á xÁ ReadLongRealð \üw°ÍÀU‹ìU.ŽPš.Ž=uÿ6~ÿ6|š .ŽÿvÿvšëÆš .Ž‹å]Ê
!
1
=
| writeExpL
¦üw°ÍÀU‹ôÿvþÿvüV‹î¸EPš
.Ž~}¸-Pš
.Ž‹F÷؉Fë¸+Pš
.Ž‹F»d™÷û0Pš
.Ž‹F»d™÷û‹Â»
™÷û0Pš
.Ž‹F»
™÷û‹Â0Pš
.Ž‹å]Âg
|




Div10ò
iü
w°ÍÀU‹ôÿvþÿvüÿvúV‹îÄöÿ¹
3ҋF÷ñ‰Fö‹F÷ñ‰Fô‹F÷ñ‰Fò‹F ÷ñ‰Fð‰VîÄ~vðŒÐŽØ¹üò¥.Ž‹FîÄv&‰‹å]Â
WriteMant[^ü,w°ÍÀU‹ôÿvþÿvüV‹îÄäÿÇFâ‹F F F F=t>vŒÐŽØ¹èþ.Ž6FP6FàPè~âv°ÍÀ‹vâ‹Fà0ˆBä6ÿFâ뱋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äš
.Žë‹å]Â+;Zl¨–ª writeLongReal¹ü(w°ÍÀU‹ôÿvþV‹îÄÒÿ~
sÇF
~s‹vþ‹F-6‰Düë ‹vþ6ÇDüvŒÐŽØ¹èþ.Ž6€¹èþšÿ.Ž;Âu ÇFêÇFìÇFîÇFðÇFúÆFæéT‹F ŠÔ€â€ÐˆVæ€ä±Óè-ÿ‰Fúf ÿ‹Fú»÷ë»
™÷û‰Fú‹Fú‹vþ6+DüPFÞPšvŒÐŽØ¹èþ.ŽvތЎعèþ.ŽFÖPš
ÿ.Ž~òŒÐŽÀv֌Ўعüò¥.Ž‹vþ6ÿtüFÞPšvòŒÐŽØ¹èþ.ŽvތЎعèþ.Žšÿ.Ž;Â|G6ÿFúvòŒÐŽØ¹èþ.Ž6ˆ¹èþFÖPš
ÿ.Ž~òŒÐŽÀv֌Ўعüò¥.Ž‹vþ6‹Dü-PFÞPšvތЎعèþ.Ž6¹èþFÖPš ÿ.ŽvòŒÐŽØ¹èþ.Žv֌Ўعèþ.Žšÿ.Ž;ÂG6ÿ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úè ‹å]Â
ˆµã >p•Ãõ—©ò(7Ž©»ßîªÅËWriteLongRealÓƒü w°ÍÀU‹ìUÄþÿ.ŽPš.Ž=u,ÿ6¢ÿ6 š .ŽvŒÐŽØ¹èþ.Žÿvè ë~v¸*Pš
.Ž6ÿNëåš .Ž‹å]Ê
ñ7G 'INITVBüw°ÍÀU‹ì.Ž¡ÑÈs‹å]Êÿššššÿšþ‹å]Êz„‰ŽþPUSHSTRUCT˜[+áÑéŒ×ŽÇ‹üüò¥ÿã¤ü ð?[email protected]ð?$,[email protected]<ð?D[email protected][email protected]X\
`
dhl Ap€?t Ax|€ˆ[email protected]ð?˜[email protected] 

  3 Responses to “Category : Modula II Source Code
Archive   : M2LIB20.ZIP
Filename : REALINOU.M2O

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/