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

 
Output of file : INOUT.M2O contained in archive : M2LIB20.ZIP
InOute¯sTerminalf¯sFileSysteme¯sASCIIe¯sStringse¯sNumberConversione¯sReadNameôüw°ÍÀU‹ìUÄúÿ‹NAAÑé‹ÁÀ;àw°ÍÀ+á+á‹üŒÓŽÃÅv
‰~
‰^ üò¥.Ž¸APÿvÿvš.Žš.Ž6FøPš.Ž€~øtp¸AP6ÿv6ÿvš.Ž‰Fü~üv‹Fü-Ävð&€<.u°ë°ÐÈs,¸AP6ÿv6ÿv6ÿv6ÿv 6ÿv
¸APÿvÿvš.ŽÄv&ÆëÄv&Æ‹å]ÊPZj†×OpenInputöíüRw°ÍÀU‹ìUÄ¼ÿ‹N
AAÑé‹ÁÀ;àw°ÍÀ+á+á‹üŒÓŽÃÅv‰~‰^üò¥.Ž¸PPš.Ž6F¼P6ÿv
6ÿv6ÿv6FºPšŠFºÐÈs9P¸AP6F¼P¸Pš.Ž€>t¸ P$Pš.Žš.Ž€>t
ŠFº4ÐÈr°ë°ÐÈréhÿŠFº¢ŠFº¢‹å]ÊDf†¡«OpenOutputãüRw°ÍÀU‹ìUÄ¼ÿ‹N
AAÑé‹ÁÀ;àw°ÍÀ+á+á‹üŒÓŽÃÅv‰~‰^üò¥.Ž¸P0Pš.Ž6F¼P6ÿv
6ÿv6ÿv6FºPšŠFºÐÈsQP¸AP6F¼P¸Pš.Ž€>u,Pš.Ž€>tPš.ŽÆš.Ž€>t
ŠFº4ÐÈr°ë°ÐÈréPÿŠFº¢ŠFº¢‹å]Ê1SsŠ¡°RedirectInputèyü w°ÍÀU‹ìU‹N
AAÑé‹ÁÀ;àw°ÍÀ+á+á‹üŒÓŽÃÅv‰~‰^üò¥.ŽP6ÿv
6ÿv6ÿv¸Pš.Ž€>°uþÀ¢ ¢‹å]Ê>RedirectOutputa°ü w°ÍÀU‹ìU‹N
AAÑé‹ÁÀ;àw°ÍÀ+á+á‹üŒÓŽÃÅv‰~‰^üò¥.ŽP6ÿv
6ÿv6ÿv¸Pš.Ž€>u9Pš.Ž€>°uþÀ¢ 4ÐÈsPš.ŽëÆ ¢‹å]Ê·ÎõCloseInput5üw°ÍÀU‹ìU.Ž ÐÈsPš.ŽÆ‹å]Ê2CloseOutputF5üw°ÍÀU‹ìU.Ž ÐÈsPš.ŽÆ‹å]ÊgRead{Uüw°ÍÀU‹ìU.Ž ÐÈs Pÿvÿvš .Ž  4¢ëÿvÿvš.ŽÆ‹å]Ê¢¼ ReadWrdÐEüw°ÍÀU‹ìU.Ž ÐÈs Pÿvÿvš.Ž  4¢ëÆ‹å]Ê÷ReadString™ü w°ÍÀU‹ìUÄüÿ.ŽÇFú ÐÈsyP6FüPš .Ž€~ü w   ÐÈr°ë°ÐÈsÓ  4ÐÈs
€~ü v°ë°ÐÈs0‹Fú;F
wÄvvúŠFü&ˆ6ÿFúP6FüPš .Žë·éß6FüPš.Ž€~ü w
€~üt°ë°ÐÈsڀ~ü w€~üt
€~üt°ë°ÐÈs|€~üu~úv¸Pš.Ž6ÿNúëH€~üu~úv¸Pš.Ž6ÿNúëåë%‹Fú;F
wÄvvúŠFü&ˆ6ÿFúÿvüš.Ž6FüPš.Žéhÿ€~üu~úv¸Pš.Ž6ÿNúëå‹Fú;F
w
Ävvú&ÆŠFü¢‹å]ÊE£¸&Sc ReadLine®¹ü w°ÍÀU‹ìUÄüÿ.Ž ÐÈshÇFüP6FúPš .Ž  ÐÈr
€~út°ë°ÐÈsë‹Fü;F
wÄvvüŠFú&ˆ6ÿFü뷊Fú¢‹Fü;F
w
Ävvü&Æë-ÿv
ÿvÿvš.Žš.ŽPš.Ž‹å]ÊÞ>HX
ReadIntgLüw°ÍÀU‹ìUÄôÿ.Ž¸
P6FòPš¸
P6FòPÿvÿvPš.Ž‹å]ʉ¤ ReadCard³Lüw°ÍÀU‹ìUÄôÿ.Ž¸
P6FòPš¸
P6FòPÿvÿvPš.Ž‹å]ÊÕð
WriteÿBüw°ÍÀU‹ìU.Ž ÐÈsPÿvš
.Žë
ÿvš.Ž‹å]Ê#2WriteWrdAHüw°ÍÀU‹ìU.Ž ÐÈs#Pÿvš.Ž€>°uþÀ¢ëÆ‹å]ÊeWriteLn‰@üw°ÍÀU‹ìU.Ž ÐÈsP¸Pš
.Žë
š.Ž‹å]Ê®ºWriteStringɪü
w°ÍÀU‹ìUÄüÿ‹N
AAÑé‹ÁÀ;àw°ÍÀ+á+á‹üŒÓŽÃÅv‰~‰^üò¥.Ž ÐÈsDÇFü‹Fü;F
wÄvvü&€<t°ë°ÐÈsPÄvvü&ÿ4š
.Ž6ÿFüëÃë6ÿv
6ÿv6ÿvš.Ž‹å]ÊF d WriteLines [üw°ÍÀU‹ìU‹N
AAÑé‹ÁÀ;àw°ÍÀ+á+á‹üŒÓŽÃÅv‰~‰^üò¥.Ž6ÿv
6ÿv6ÿvšš‹å]Ê¿ Ä WriteIntÎ €üw°ÍÀU‹ìUÄôÿ.Ž~
sÿv¸
P6FòPÿvš.Žë1ÿv¸
P6FòP¸
Pš.Ž~
v¸ Pš
6ÿNëê¸
P6FòPš‹å]Êý 
/
D
WriteCardN
€üw°ÍÀU‹ìUÄôÿ.Ž~
sÿv¸
P6FòPÿvš.Žë1ÿv¸
P6FòP¸
Pš.Ž~
v¸ Pš
6ÿNëê¸
P6FòPš‹å]Ê}



WriteOctÎ
Ɓüw°ÍÀU‹ìUÄîÿ.Ž‹F‰Fø~v¸ Pš
6ÿNëêÇFü~ür1‹FüÑà‹ð‹F»3Ò÷ó‹Â‰Bì‹F»3Ò÷ó‰F~üvnüëρ~w ~øw°ë°ÐÈsÇFúëÇFú‹Fú‰Fü~üw‹FüÑà‹ð‹Bì0Pš
~üsÿFüëá‹å]Ê÷
~ HexDig” Nüw°ÍÀU‹ôÿvþV‹î‹F»3Ò÷ó‹Â‰F~
s ‹F0‰Fë ‹F-
A‰Fÿvš
‹å]ÂØ WriteHexâ yüw°ÍÀU‹ìU.Ž~v¸ Pš
6ÿNëê~s ~w°ë°ÐÈsë‹F»3Ò÷óPè‹F»3Ò÷óPè‹F»3Ò÷óPèÿvè‹å]Ê 1 ? M S ReadLongInt[ Lü$w°ÍÀU‹ìUÄêÿ.Ž¸P6FèPš¸P6FèPÿvÿvPš.Ž‹å]Ê} ˜ ReadLongCard§ Lü$w°ÍÀU‹ìUÄêÿ.Ž¸P6FèPš¸P6FèPÿvÿvPš.Ž‹å]ÊÉ ä WriteLongIntó †ü"w°ÍÀU‹ìUÄêÿ.Ž~sÿv
ÿv¸P6FèPÿvš .Žë4ÿv
ÿv¸P6FèP¸Pš .Ž~v¸ Pš
6ÿNëê¸P6FèPš‹å]Ê%
E
Z
o
WriteLongCardy
†ü"w°ÍÀU‹ìUÄêÿ.Ž~sÿv
ÿv¸P6FèPÿvš
.Žë4ÿv
ÿv¸P6FèP¸Pš
.Ž~v¸ Pš
6ÿNëê¸P6FèPš‹å]Ê«



INITÿ
Vüw°ÍÀU‹ì.Ž¡ÑÈs‹å]Êÿššššš.ŽÆÆÆ‹å]Ê#(-276"in> $ not found0out>

  3 Responses to “Category : Modula II Source Code
Archive   : M2LIB20.ZIP
Filename : INOUT.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/