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

 
Output of file : FILESYST.M2O contained in archive : M2LIB20.ZIP
FileSysteme¯sSysteme¯sASCIIe¯sStoragef¯sStringse¯sasciiz±üw°ÍÀU‹ìUÄøÿ.ŽÇFüÇFúÇFø~úAs‹Fü;FwÄv vü&€<t°ë°ÐÈsVÄv vü&ŠˆFö€~ö\t€~ö:t€~ö/t
€~ö.t°ë°ÐÈsÇFøë6ÿFø~øwÄvvúŠFö&ˆ6ÿFú6ÿFüë…Ävvú&Æ‹å]Ê open³ˆüNw°ÍÀU‹ìUÄ¾ÿ‹N AAÑé‹ÁÀ;àw°ÍÀ+á+á‹üŒÓŽÃÅv‰~‰^
üò¥.Žÿv ÿv
ÿv¸AP6F¼PšÇV¼ŒÐŽØŠF´=Í!.ŽÄ~s£¸ÿÿ&‰‹å]Ê 
create;ˆüNw°ÍÀU‹ìUÄ¾ÿ‹N AAÑé‹ÁÀ;àw°ÍÀ+á+á‹üŒÓŽÃÅv‰~‰^
üò¥.Žÿv ÿv
ÿv¸AP6F¼PšÇV¼ŒÐŽØŠF´<Í!.ŽÄ~s£¸ÿÿ&‰‹å]Ê ’closeÃ0üw°ÍÀU‹ìU.ŽÇ‹^´>Í!.Žs£‹å]Êrenameóǁüw°ÍÀU‹ìUÄ|ÿ‹NAAÑé‹ÁÀ;àw°ÍÀ+á+á‹üŒÓŽÃÅv ‰~ ‰^üò¥‹N
AAÑé‹ÁÀ;àw°ÍÀ+á+á‹üŒÓŽÃÅv‰~‰^üò¥.Žÿvÿvÿv ¸AP6F¼Pšÿv
ÿvÿv¸AP6†zÿPšÇV¼¾zÿŒÐŽØŽÀ´VÍ!.Žs£‹å]Ê vdeleteº|üNw°ÍÀU‹ìUÄ¾ÿ‹N
AAÑé‹ÁÀ;àw°ÍÀ+á+á‹üŒÓŽÃÅv‰~‰^üò¥.Žÿv
ÿvÿv¸AP6F¼PšÇV¼ŒÐŽØ´AÍ!.Žs£‹å]Êreadbytes6Cüw°ÍÀU‹ìU.ŽÇ‹^‹N
ÅV ´?Í!.ŽÄ~r&‰ë£&Ç‹å]Ê writebytesyCüw°ÍÀU‹ìU.ŽÇ‹^‹N
ÅV ´@Í!.ŽÄ~r&‰ë£&Ç‹å]Ê seek¼Lüw°ÍÀU‹ìU.ŽÇÄv&‹Ä~

‹^ŠF´BÍ!r&‰&‰ë
£&Çÿÿ&Çÿÿ‹å]Ê lseekLüw°ÍÀU‹ìU.ŽÇÄv&‹&‹L‹^ ŠF
´BÍ!r &‰&‰Të£&Çÿÿ&ÇDÿÿ‹å]Ê%FMSTüw°ÍÀU‹ì‹å]ÊNewFileg¡üw°ÍÀU‹ìUÄüÿ.Žÿvÿv¸–Pš.ŽÄv&Ä4‰vúŒFüÄvú&ÆDIÄvú¡
‹ &‰„Œ&‰œŽÄvú&DŽÄvú&DŽ’Ävú&Ƅ•Ävú&Ƅ”¡‹Ävú&‰&‰\Äv&‹&‹\£‰‹å]ʉFreeFile¹ü
w°ÍÀU‹ìUÄüÿ.Ž‹F‹^‹‹+ÁÚ ÃuÄv&‹&‹\£‰ë_¡‹‰Fú‰^ü‹Fú‹^ü ÃtÄvú&‹&‹\‹N‹V+ÁÚ Ãt°ë°ÐÈsÄvú&‹&‹\‰Fú‰^üëÂÄv&‹&‹\Ävú&‰&‰\6FP¸–Pš.Ž‹å]ʲMakeTempÁzüw°ÍÀU‹ìUÄøÿ‹N
AAÑé‹ÁÀ;àw°ÍÀ+á+á‹üŒÓŽÃÅv‰~‰^üò¥.Žÿ¡‰FúÄv&€<t!6ÿv
6ÿv6ÿvÿvÿvÿv š.ŽëÄv &Æ6ÿv6ÿv6ÿv š.Ž‰Fü~üt.‹Fü;Fs&‹Fü-Äv ð&€<:t‹Fü-Äv ð&€<\t°ë°ÐÈsÄv vü&Æ\Äv vü&Æ6ÿv6ÿv6ÿv ¸PPÿvÿvÿv š.ŽÇFü~ür0‹vü‹Fú»
3Ò÷ó‹Â0ˆBö‹Fú»
3Ò÷ó‰Fú~üvnüëÐ6ÿv6ÿv6ÿv ¸P6FöPÿvÿvÿv š.Ž‹å]Ê -LÇ, fillbuff;üü w°ÍÀU‹ìUÄôÿ.ŽÄv&Ä4‰vúŒFüÄvú&Ƅ•Ävú&Š„”ÐÈsÿvÿvš!Ävú&Š„•ÐÈs‹å]Êë>Ävú&´Œ‰vöŒFøÄ~ú&½Œ‰~òŒFôÄvú&‹„’3ÒÄvò&‹&‹LØÊÄvö&‰&‰LÄvú&ÿt¸P6Ävú&„ŒPšÄvú&ÿt6Ävú&„ŒŒÃSP¸P6Ävú&„’PšÄvú>°tþÀ&ˆ„•Ävú&DŽ‹å]Êzç!flushbuff7üw°ÍÀU‹ìUÄòÿ.ŽÄv&Ä4‰vøŒFúÄvø&Ƅ•Ävø&Š„”ÐÈréŒÄvø&ÿt¸P6Ävø&„ŒPšÄvø&ÿt6Ävø&„ŒŒÃSPÄvø&ÿ´’6FüPšÄvø>u&´•‰vôŒFöÄ~ø‹Fü&;…’u°ë°Ävô&ˆÄvø&Š„•ÐÈs‹å]ÊÄvø&Ƅ”Ävø&´Œ‰vôŒFöÄ~ø&½Œ‰~ðŒFòÄvø&‹„’3ÒÄvð&‹&‹LØÊÄvô&‰&‰LÄvø&DŽÄvø&DŽ’‹å]ʉ°þM2LONGS"doreadV Füw°ÍÀU‹ìUÄæÿ.ŽÄv&ÆDÄv&ÇÄv&‹D&‹\‰Fú‰^üÄvú‰vôŒFö~
wéõÄvô&´‰vðŒFòÄ~ô&½’‰~ìŒFîÄvð&‹Ävì&;r%6FúPš Ävú&Š„•ÐÈsÄv&ÆD‹å]ÊÄvô&¼’u‹å]ÊÄvô&‹„F
Ävô&;„’wo6Ävô&„ŒŒÃSPš
þ.ŽÄvô‰Fð‰Vò&‹„3ҋ^ð‹NòØÊQSš þ.ŽRPÿvÿv ÿv
š.Ž6Ävô‹F
&„‹F
Äv&ÇF
é
Ävô&´‰vðŒFòÄ~ô&½’‰~ìŒFîÄvð&‹Ävì&;réàÄvô&´’‰vèŒFêÄ~ô&½‰~äŒFæÄvè&‹Ävä&+‰Fø6Ävô&„ŒŒÃSPš
þ.ŽÄvô‰Fè‰Vê&‹„3ҋ^è‹NêØÊQSš þ.ŽRPÿvÿv ÿvøš.Žÿvÿv š
þ.Ž‰Fè‰Vê‹Fø3ҋ^è‹NêØÊQSš þ.Ž‰F ‰V‹FøÄv&‹Fø6)F
Ävô&´‰vèŒFêÄ~ô&‹…’Ävè&‰éþ‹å]ÊÒ %
K
`

 ' 7 X #dowriteœ )üw°ÍÀU‹ìUÄêÿ.ŽÄv&ÆDÄv&ÇÄv&‹D&‹\‰Fú‰^üÄvú‰vôŒFö~
wéØÄvô&¼r%6FúPš!Ävú&Š„•ÐÈsÄv&ÆD‹å]ÊÄvô&‹„F
=vé¾ÿvÿv 6Ävô&„ŒŒÃSPš
þ.ŽÄvô‰Fð‰Vò&‹„3ҋ^ð‹NòØÊQSš þ.ŽRPÿv
š.ŽÄvô&Ƅ”6Ävô‹F
&„‹F
Äv&ÇF
Ävô&´’‰vðŒFòÄ~ô&½‰~ìŒFîÄvð&‹Ävì&;sÄvô&´’‰vèŒFêÄ~ô&‹…Ävè&‰éÓÄvô&¼réÄÄvô¸&+„‰Føÿvÿv 6Ävô&„ŒŒÃSPš
þ.ŽÄvô‰Fð‰Vò&‹„3ҋ^ð‹NòØÊQSš þ.ŽRPÿvøš.ŽÄvô&Ƅ”ÿvÿv š
þ.Ž‰Fð‰Vò‹Fø3ҋ^ð‹NòØÊQSš þ.Ž‰F ‰V‹FøÄv&‹Fø6)F
Ävô&DŽÄvô&DŽ’éþ‹å]Êú ? e t 
@
O
h

LookupÅ
—üw°ÍÀU‹ìUÄúÿ‹N AAÑé‹ÁÀ;àw°ÍÀ+á+á‹üŒÓŽÃÅv‰~‰^
üò¥.Ž6FúPšÿv ÿv
ÿv6Ävú¸AP&DPš.Ž6Ävú&DPÄvú¸AP&DP¸PšÄvú&|ÿÿ°tþÀˆFøŠFøÐÈsÄv&ÆDÄv&ÆDéŒ6Ävú&DPÄvú¸AP&DP¸PšÄvú&|ÿÿ°tþÀˆFøŠFøÐÈsÄv&ÆDÄv&ÆDëAŠFÐÈs:6Ävú&DPÄvú¸AP&DP¸PšÄvú&|ÿÿ°tþÀˆFøÄv&ÆDŠFøÐÈs0Ävú&ÆDÄv&ÆDÄvú&‹DÄv&‰Äv‹Fú‹^ü&‰D&‰\ëÄv&ÆDÿvüÿvúš‹å]Ê +PœîRCreate\ñüw°ÍÀU‹ìUÄüÿ‹N
AAÑé‹ÁÀ;àw°ÍÀ+á+á‹üŒÓŽÃÅv‰~‰^üò¥.Ž6FúPš6Ävú¸AP&DP6ÿv
6ÿv6ÿvš6Ävú&DPÄvú¸AP&DP¸PšÄvú&|ÿÿ[email protected]Ävú&ÆDÄv &ÆDÄvú&‹DÄv &‰Äv ‹Fú‹^ü&‰D&‰\Äv &ÆDÄv &ÆDëÄv &ÆDÿvüÿvúš‹å]Ê
¦ÅåCCloseM÷üw°ÍÀU‹ìUÄîÿ.ŽÄv&‹D&‹\‰Fú‰^ü6FúPš!Äv&ÿ4šÄvú&Š„•ÐÈsÄv&ÆD‹å]ʁ>u
Äv&ÆDëÄv&ÆD‹å]ÊÄvú&ŠDIÐÈré;Ävú¸AP&DPÄvú¸AP&DJPš>ué>téþ6FøPÄvú¸AP&DP¸Pš~øÿÿuéÆ6FöPÄvú¸AP&DJP¸Pš~öÿÿuéŽ6FòP¸Pš.Žÿvøÿvôÿvò¸P6FðPš~ðu
Äv&ÆDë+ÿvöÿvôÿvòÿvð6FîPš‹Fî;Fðt
Äv&ÆDëë¬ÿvøšÿvöš6FòP¸Pš.ŽëÿvøšÄv&ÆDëÄv&ÆDÄvú&ÆDëÄv&ÆDÄvú&ŠDÐÈsÄvú¸AP&DPšÿvüÿvúšÄv&ÆD‹å]Ê|‡î F_|¤ÀÈ×æ'2$CloseAllDgüw°ÍÀU‹ìUÄòÿ.Ž¡‹‰Fú‰^ü‹Fú‹^ü Ãt3Ävú&‹D‰Fð‹Fú‹^ü‰Fõ‰^÷Ävú&‹&‹\‰Fú‰^ü6FðPšëËå]ÊŸRename«®üw°ÍÀU‹ìUÄüÿ‹N
AAÑé‹ÁÀ;àw°ÍÀ+á+á‹üŒÓŽÃÅv‰~‰^üò¥.ŽÄv &‹D&‹\‰Fú‰^üÄv&€<uÄvú&ÆDÄvú&ÆDIë1Ävú&ÆDÄvú&ÆDIÿv
ÿvÿv6Ävú¸AP&DJPš.ŽÄv &ÆD‹å]Ê
BResetY4üw°ÍÀU‹ìU.Žÿvÿv¸P¸Pš Äv&ÆD‹å]Ê{Rewrite]üw°ÍÀU‹ìUÄüÿ.Žÿvÿv¸P¸Pš Äv&ÿ46FüŒÓSP¸P6FúPš>uÄv&ÆD‹å]ʳÐReadWordêKüw°ÍÀU‹ìUÄþÿ.Žÿv ÿv
ÄvŒÀPV¸P6FüPš"Äv
~ü°tþÀ&ˆD‹å]ÊWriteWord5:üw°ÍÀU‹ìUÄþÿ.Žÿv
ÿv6FŒÓSP¸P6FüPš#‹å]Êe ReadCharovüw°ÍÀU‹ìUÄþÿ.Žÿv ÿv
ÄvŒÀPV¸P6FüPš"Äv
~ü°tþÀ&ˆDÄv
&ŠDÐÈsÄv&ÆÄv&€<
uÄv&ÆÄv&€<
t§‹å]Êž
WriteCharåUüw°ÍÀU‹ìUÄüÿ.Ž€~uÇFü
ÿv
ÿvÿvüšëÿv
ÿv6FŒÓSP¸P6FúPš#‹å]Ê0 GetPos:tüw°ÍÀU‹ìUÄôÿ.ŽÄv&‹D&‹\‰Fú‰^üÄvú&´Œ‰vòŒFôÄ~ú&‹…3ÒÄvò&‹&‹LØʉ^ö‰Nø‹FøÄv
&‰‹FöÄv&‰Äv&ÆD‹å]Ê  SetPos®΁üw°ÍÀU‹ìUÄôÿ.ŽÄv
&‹D&‹\‰Fú‰^ü6FúPš!Ävú&Š„•ÐÈsÄv
&ÆD‹å]ÊÄv
&ÿ4¸P6FP6FPš>u
Äv
&ÆDëÄv
&ÆDÄvú‹F3ÒRPÿ6ÿ6&´Œ‰vöŒFøšþ.Ž‰Fò‰Vô‹F3ҋ^ò‹NôØÊÄvö&‰&‰L‹å]ÊÝN
GetLPos|füw°ÍÀU‹ìUÄøÿ.ŽÄv
&‹D&‹\‰Fú‰^üÄvú&´Œ‰vöŒFøÄ~ú&‹…3ÒÄvö&‹&‹LØÊÄv&‰&‰LÄv
&ÆD‹å]ÊSetLPosâ:ü w°ÍÀU‹ìUÄðÿ.ŽÄv
&‹D&‹\‰Fú‰^üÄvú‰vöŒFøÄvöÿvÿv&ÿ´Ž&ÿ´Œšþ.Ž;Â[email protected]Ävö&´Œ‰vòŒFôÄ~ö&‹…’3ÒÄvò&‹&‹LØÊÿvÿvQSšþ.Ž;Âs°ë°ÐÈs5Ävö&´‰vîŒFðÄ~ö‹F‹^&‹Œ&‹•Ž+ÁÚÄvî&‰Äv
&ÆDëg6FúPš!Ävú&Š„•ÐÈsÄv
&ÆD‹å]ÊÄv
&ÿ4¸P6FPš>u
Äv
&ÆDëÄv
&ÆDÄvö‹F‹^&‰„Œ&‰œŽ‹å]Ê'c¶åLength²üw°ÍÀU‹ìUÄüÿ.ŽÄv&DPš!Äv&Ät&Š„•ÐÈsÄv&ÆD‹å]Ê ÿvÿv6FúPš
Äv&€|uNÄv
&ÇÄv&ÇÄv&ÿ4¸Pÿv ÿv
ÿvÿvš>uÿvÿvÿvüÿvúšëÄv&ÆD‹å]Ê =l¡ºLLength݁ü w°ÍÀU‹ìUÄüÿ.ŽÄv
&DPš!Äv
&Ät&Š„•ÐÈsÄv
&ÆD‹å]Êÿv ÿv
6FúPš
Äv
&€|uI¡‹Äv&‰&‰\Äv
&ÿ4¸Pÿvÿvš>uÿv ÿv
ÿvüÿvúšëÄv
&ÆD‹å]ÊïNgReadNBytes{}üw°ÍÀU‹ìUÄüÿ.ŽÄv&ŠDÐÈsÄv&ÇÄv&ÆDëCÿvÿvÿvÿv ÿv
ÿvÿvš"Äv&ÆDÄv&t‰vúŒFüÄ~&=°uþÀÄvú&ˆ‹å]ÊÅWriteNBytesøPüw°ÍÀU‹ìU.Žÿvÿvÿvÿv ÿv
ÿvÿvš#Äv&‹;F
u
Äv&ÆDëÄv&ÆD‹å]Ê!INITHpüw°ÍÀU‹ì.Ž¡ÑÈs‹å]Êÿšššššþ.Žš%ÇÇÇÿ6"ÿ6 š.Ž‹å]Êlqv{€Š© $-
 $$FMOD2. $

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