Category : Modula II Source Code
Archive : M2LIB20.ZIP
Filename : NUMBERCO.M2O
Output of file : NUMBERCO.M2O contained in archive : M2LIB20.ZIP
Pÿv ÿv
ÿvÿv å]Ê ^ StringToInt h >üw° ÍÀUìUÄúÿNAAÑéÁÀ ;àw° ÍÀ+á+áüÓÃÅv~^üò¥. ÇFú Fú;FwFú9Fs°ÍÀÄvð&< u°ë° ÐÈs6ÿFúëÑFú;FwFú9Fs°ÍÀÄvð&<-u°ë° FøFøÐÈsFú9Fs°ÍÀÄvð&Æ 6ÿv6ÿv6ÿv¸
P6FüPÿvÿv ~ü u FøÐÈs°ë° ÐÈs FüÄv
&ë9~ü s+÷Fü t°ÍÀFüÄv
&FøÐÈsÄv
&÷ØÄv
&ëÄv&Æ å]Ê @StringToNum ¦rüw° ÍÀUìUÄúÿNAAÑéÁÀ ;àw° ÍÀ+á+áüÓÃÅv~^üò¥. Äv&ÆÇFü Fü;FwFü9Fs°ÍÀÄvð&< u°ë° ÐÈs6ÿFüëÑÄv
&Ç Fü;FwFü9Fs°ÍÀÄvð&< t°ë° ÐÈréº ¸ÿÿ3Ò÷vÄv
&;rÄv
&÷fÄv
&ë
Äv&Æ å]Ê Fü9Fs°ÍÀÄvð&Fú~ú9vFú´ -A
Føë ~ú0r
Fú´ -0 Føë
Äv&Æ å]Ê Fø;Fs¸ÿÿÄv
&+;Før°ë° ÐÈs FøÄv
&ë
Äv&Æ å]Ê 6ÿFüéÿå]Ê CardToString 1 ü w° ÍÀUìU. ÿv¸
Pÿv ÿv
ÿvÿv å]Ê
?IntToString Ibüw° ÍÀUìUÄôÿ. ~ |é#~ u~òÐÀ6 ¹ üò¤ë F÷ØP¸
P¸ P6FòP¸ P ÇFü ~ü v°ÍÀvüzò u6ÿFüëæFü- = v°ÍÀðÆBò-6nü ÇFú ¸ +Fü^;Øv?Fú;F w¸ +Fü^+ØFú;Ãs°ë° ÐÈsFú9F s°ÍÀÄvð&Æ 6ÿFúëÁ6ÿFü~ü w7Fú;F w%Fú9F s°ÍÀÄvð~ü v°ÍÀ~üCò&6ÿFú6ÿFüëÂFú;F wFú9F s°ÍÀÄvð&Æ ëÿv¸
Pÿv ÿv
ÿvÿv å]Ê
¡NumToString «Aüw° ÍÀUìUÄèÿ. ÇFü ~ vXF3Ò÷vÂFø~ø
s~ü v°ÍÀvüFø0 Bæë~ü v°ÍÀvüFø-
A BæF3Ò÷vF6ÿNüë¡~ü u ÆFö0ÇFü ÇFú ¸ +Fü^;Øv?Fú;F w¸ +Fü^+ØFú;Ãs°ë° ÐÈsFú9F s°ÍÀÄvð&Æ 6ÿFúëÁ6ÿFü~ü w7Fú;F w%Fú9F s°ÍÀÄvð~ü v°ÍÀ~üCæ&6ÿFú6ÿFüëÂFú;F wFú9F s°ÍÀÄvð&Æ å]Ê StringToLongCard ìf üw° ÍÀUìUNAAÑéÁÀ ;àw° ÍÀ+á+áüÓÃÅv~^üò¥. 6ÿv6ÿv6ÿv¸
Pÿv ÿv
ÿvÿv å]Ê HþM2LONGS StringToLongInt Rüw° ÍÀUìUÄøÿNAAÑéÁÀ ;àw° ÍÀ+á+áüÓÃÅv~^üò¥. ÇFø Fø;FwFø9Fs°ÍÀÄvð&< u°ë° ÐÈs6ÿFøëÑFø;FwFø9Fs°ÍÀÄvð&<-u°ë° FöFöÐÈsFø9Fs°ÍÀÄvð&Æ 6ÿv6ÿv6ÿv¸
P6FúPÿvÿv ¡
ÁÚÿvüÿvúSP þ . ;Âu FöÐÈs°ë° ÐÈsFú^üÄv
&&\ëXÿvüÿvúÿ6 ÿ6 þ . ;Âw5Fú^üÄv
&&\FöÐÈs Äv
&&\3É3Ò+ÈÓÄv
& &TëÄv&Æ å]Ê *J StringToLongNum Øùüw° ÍÀUìUÄòÿNAAÑéÁÀ ;àw° ÍÀ+á+áüÓÃÅv~^üò¥. F3ÒFôVöÄv&ÆÇFü Fü;FwFü9Fs°ÍÀÄvð&< u°ë° ÐÈs6ÿFüëÑ¡ Äv
&&\Fü;FwFü9Fs°ÍÀÄvð&< t°ë° ÐÈré-ÿ6 ÿ6 ÿvöÿvô þ . RPÄv
&ÿt&ÿ4 þ . ;Âr&Äv
&ÿt&ÿ4ÿvöÿvô þ . Äv
&&Të
Äv&Æ å]Ê Fü9Fs°ÍÀÄvð&Fú~ú9vFú´ -A
Føë ~ú0r
Fú´ -0 Føë
Äv&Æ å]Ê Fø;Fs:¡ Äv
& &T+ÁÚFð^òFø3ÒÿvòÿvðRP þ . ;Âr°ë° ÐÈs Fø3ÒÄv
& &LØÊÄv
& &Lë
Äv&Æ å]Ê 6ÿFüé§þå]Ê Ãá
LongCardToString Ñ 4 üw° ÍÀUìU. ÿvÿv¸
Pÿv ÿv
ÿvÿv å]Ê û LongIntToString
ü w° ÍÀUìUÄðÿ. ÿvÿvÿ6$ ÿ6" þ . ;Â|éBÿvÿvÿ6( ÿ6& þ . ;Âu~îÐÀ6* ¹ üò¥ë'F^3É3Ò+ÈÓRQ¸
P¸ P6FîP¸ P ÇFü ~ü v°ÍÀvüzî u6ÿFüëæFü- = v°ÍÀðÆBî-6nü ÇFú ¸ +Fü^;Øv?Fú;F w¸ +Fü^+ØFú;Ãs°ë° ÐÈsFú9F s°ÍÀÄvð&Æ 6ÿFúëÁ6ÿFü~ü w7Fú;F w%Fú9F s°ÍÀÄvð~ü v°ÍÀ~üCî&6ÿFú6ÿFüëÂFú;F wFú9F s°ÍÀÄvð&Æ ëÿvÿv¸
Pÿv ÿv
ÿvÿv å]Ê +
J
LongNumToString ü2w° ÍÀUìUÄÖÿ. ÇFü ÿvÿvÿ6: ÿ68 þ . ;Âwé F3ÒÿvÿvRP þ . FöVøÿvøÿvöÿ6> ÿ6< þ . ;Âs ~ü v°ÍÀvüFö^ø0 BÔë ~ü v°ÍÀvüFö^ø-
A BÔF3ÒÿvÿvRP þ . FV6ÿNüéKÿ~ü u ÆFô0ÇFü ÇFú ¸ +Fü^;Øv?Fú;F w¸ +Fü^+ØFú;Ãs°ë° ÐÈsFú9F s°ÍÀÄvð&Æ 6ÿFúëÁ6ÿFü~ü w7Fú;F w%Fú9F s°ÍÀÄvð~ü v°ÍÀ~üCÔ&6ÿFú6ÿFüëÂFú;F wFú9F s°ÍÀÄvð&Æ å]Ê É ç Y INIT 5
. ü w° ÍÀUì. ¡ ÑÈså]Ê ÿ þ å]Ê Y
@ m 32768
ÿÿÿ ÿÿÿ ÿÿÿÿ ÿÿÿÿ" & *
2147483648 8 <
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
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/