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

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

NumberConversionî¢8StringToCardlüw°¹ ÍÀU‹ìU‹NAAÑé‹ÁÀ;àw°¹ ÍÀ+á+á‹üŒÓŽÃÅv‰~‰^üò¥.Ž6ÿv6ÿv6ÿv¸
Pÿv ÿv
ÿvÿvš‹å]ÊfStringToIntpPüw°¹ÍÀU‹ìUÄúÿ‹NAAÑé‹ÁÀ;àw°¹ÍÀ+á+á‹üŒÓŽÃÅv‰~‰^üò¥.ŽÇFú‹Fú;Fw‹Fú9Fs°¹ÍÀÄvð&€< u°ë°ÐÈs6ÿFúë΋Fú;Fw‹Fú9Fs°¹ÍÀÄvð&€<-u°ë°ˆFøŠFøÐÈs‹Fú9Fs°¹ÍÀÄvð&Æ 6ÿv6ÿv6ÿv¸
P6FüPÿvÿvš~ü€u ŠFøÐÈs°ë°ÐÈs ‹FüÄv
&‰ë<~ü€s.÷Fü€t°¹ÍÀ‹FüÄv
&‰ŠFøÐÈsÄv
&‹÷ØÄv
&‰ëÄv&Æ‹å]ÊWStringToNumÀüw°¹,ÍÀU‹ìUÄúÿ‹NAAÑé‹ÁÀ;àw°¹,ÍÀ+á+á‹üŒÓŽÃÅv‰~‰^üò¥.ŽÄv&ÆÇFü‹Fü;Fw‹Fü9Fs°¹/ÍÀÄvð&€< u°ë°ÐÈs6ÿFüëÎÄv
&Ç‹Fü;Fw‹Fü9Fs°¹1ÍÀÄvð&€<t°ë°ÐÈr齸ÿÿ3Ò÷vÄv
&;rÄv
&‹÷fÄv
&‰ë
Äv&Æ‹å]Ê‹Fü9Fs°¹6ÍÀÄvð&ŠˆFú€~ú9vŠFú´-A
‰Føë €~ú0r
ŠFú´-0‰Føë
Äv&Æ‹å]Ê‹Fø;Fs¸ÿÿÄv
&+;Før°ë°ÐÈs ‹FøÄv
&ë
Äv&Æ‹å]Ê6ÿFüéÿ‹å]ÊCardToStringA4ü w°¹JÍÀU‹ìU.Žÿv¸
Pÿv ÿv
ÿvÿvš‹å]Ê
kIntToStringu‘üw°¹SÍÀU‹ìUÄôÿ.Ž~|éA~€u~òŒÐŽÀ6¹üò¤ë)‹F÷Ø©€t°¹VÍÀP¸
P¸P6FòP¸PšÇFü~üv°¹YÍÀ‹vü€zò u6ÿFüëã‹Fü-=v°¹ZÍÀ‹ðÆBò-6nüÇFú¸+Fü‹^;ØvB‹Fú;F w¸+Fü‹^+؋Fú;Ãs°ë°ÐÈs‹Fú9F s°¹_ÍÀÄvð&Æ 6ÿFúë¾6ÿFü~üw=‹Fú;F w+‹Fú9F s°¹eÍÀÄvð~üv°¹eÍÀ‹~üŠCò&ˆ6ÿFú6ÿFü뼋Fú;F w‹Fú9F s°¹hÍÀÄvð&Æë&÷F€t°¹jÍÀÿv¸
Pÿv ÿv
ÿvÿvš‹å]Ê
ØüNumToStringVüw°¹sÍÀU‹ìUÄèÿ.ŽÇFü~v^‹F3Ò÷v‹Â‰Fø~ø
s~üv°¹wÍÀ‹vü‹Fø0ˆBæë~üv°¹xÍÀ‹vü‹Fø-
AˆBæ‹F3Ò÷v‰F6ÿNü뛁~üu ÆFö0ÇFüÇFú¸+Fü‹^;ØvB‹Fú;F w¸+Fü‹^+؋Fú;Ãs°ë°ÐÈs‹Fú9F s°¹ÍÀÄvð&Æ 6ÿFúë¾6ÿFü~üw=‹Fú;F w+‹Fú9F s°¹‡ÍÀÄvð~üv°¹‡ÍÀ‹~üŠCæ&ˆ6ÿFú6ÿFü뼋Fú;F w‹Fú9F s°¹ŠÍÀÄvð&Æ‹å]Ê StringToLongCard\lüw°¹ÍÀU‹ìU‹NAAÑé‹ÁÀ;àw°¹ÍÀ+á+á‹üŒÓŽÃÅv‰~‰^üò¥.Ž6ÿv6ÿv6ÿv¸
Pÿv ÿv
ÿvÿvš ‹å]ʾþM2LONGSStringToLongIntÈ•üw°¹šÍÀU‹ìUÄøÿ‹NAAÑé‹ÁÀ;àw°¹šÍÀ+á+á‹üŒÓŽÃÅv‰~‰^üò¥.ŽÇFø‹Fø;Fw‹Fø9Fs°¹œÍÀÄvð&€< u°ë°ÐÈs6ÿFøë΋Fø;Fw‹Fø9Fs°¹ÍÀÄvð&€<-u°ë°ˆFöŠFöÐÈs‹Fø9Fs°¹žÍÀÄvð&Æ 6ÿv6ÿv6ÿv¸
P6FúPÿvÿvš ¡‹‹ ‹"ÁÚÿvüÿvúSPšþ.Ž;Âu ŠFöÐÈs°ë°ÐÈs‹Fú‹^üÄv
&‰&‰\ëXÿvüÿvúÿ6&ÿ6$šþ.Ž;Âw5‹Fú‹^üÄv
&‰&‰\ŠFöÐÈsÄv
&‹&‹\3É3Ò+ÈÓÄv
&‰ &‰TëÄv&Æ‹å]Ê¯Ï StringToLongNum]üw°¹±ÍÀU‹ìUÄòÿ‹NAAÑé‹ÁÀ;àw°¹±ÍÀ+á+á‹üŒÓŽÃÅv‰~‰^üò¥.Ž‹F3҉Fô‰VöÄv&ÆÇFü‹Fü;Fw‹Fü9Fs°¹µÍÀÄvð&€< u°ë°ÐÈs6ÿFüëΡ(‹*Äv
&‰&‰\‹Fü;Fw‹Fü9Fs°¹·ÍÀÄvð&€<t°ë°ÐÈré0ÿ6.ÿ6,ÿvöÿvôšþ.ŽRPÄv
&ÿt&ÿ4šþ.Ž;Âr&Äv
&ÿt&ÿ4ÿvöÿvôšþ.ŽÄv
&‰&‰Të
Äv&Æ‹å]Ê‹Fü9Fs°¹¼ÍÀÄvð&ŠˆFú€~ú9vŠFú´-A
‰Føë €~ú0r
ŠFú´-0‰Føë
Äv&Æ‹å]Ê‹Fø;Fs:¡0‹2Äv
&‹ &‹T+ÁډFð‰^ò‹Fø3ÒÿvòÿvðRPšþ.Ž;Âr°ë°ÐÈs‹Fø3ÒÄv
&‹&‹LØÊÄv
&‰&‰Lë
Äv&Æ‹å]Ê6ÿFüé¡þ‹å]Ê> T r 

LongCardToStringe
7üw°¹ÐÍÀU‹ìU.Žÿvÿv¸
Pÿv ÿv
ÿvÿvš ‹å]Ê ’
 LongIntToStringœ
®üw°¹ÙÍÀU‹ìUÄðÿ.Žÿvÿvÿ66ÿ64šþ.Ž;Â|éTÿvÿvÿ6:ÿ68šþ.Ž;Âu~îŒÐŽÀ6<¹üò¥ë'‹F‹^3É3Ò+ÈÓRQ¸
P¸ P6FîP¸ Pš ÇFü~ü v°¹ßÍÀ‹vü€zî u6ÿFüëã‹Fü-= v°¹àÍÀ‹ðÆBî-6nüÇFú¸ +Fü‹^;ØvB‹Fú;F w¸ +Fü‹^+؋Fú;Ãs°ë°ÐÈs‹Fú9F s°¹åÍÀÄvð&Æ 6ÿFúë¾6ÿFü~ü w=‹Fú;F w+‹Fú9F s°¹ëÍÀÄvð~ü v°¹ëÍÀ‹~üŠCî&ˆ6ÿFú6ÿFü뼋Fú;F w‹Fú9F s°¹îÍÀÄvð&Æëÿvÿv¸
Pÿv ÿv
ÿvÿvš ‹å]Ê Å

' @  LongNumToStringJ ¬ü2w°¹úÍÀU‹ìUÄÖÿ.ŽÇFü ÿvÿvÿ6Lÿ6Jšþ.Ž;Âw霋F3ÒÿvÿvRPšþ.Ž‰Fö‰Vøÿvøÿvöÿ6Pÿ6Nšþ.Ž;Âs~ü v°¹þÍÀ‹vü‹Fö‹^ø0ˆBÔë ~ü v°¹ÿÍÀ‹vü‹Fö‹^ø-
AˆBԋF3ÒÿvÿvRPšþ.Ž‰F‰V6ÿNüéEÿ~ü u ÆFô0ÇFüÇFú¸ +Fü‹^;ØvB‹Fú;F w¸ +Fü‹^+؋Fú;Ãs°ë°ÐÈs‹Fú9F s°¹ÍÀÄvð&Æ 6ÿFúë¾6ÿFü~ü w=‹Fú;F w+‹Fú9F s°¹ÍÀÄvð~ü v°¹ÍÀ‹~üŠCÔ&ˆ6ÿFú6ÿFü뼋Fú;F w‹Fú9F s°¹ÍÀÄvð&Æ‹å]Êx – ´ 
INITö
1üw°¹ÍÀU‹ì.Ž¡ÑÈs‹å]Êÿšþ‹å]ÊRNNumberConversion 32768ÿÿÿ $ÿÿÿ(,ÿÿÿÿ0ÿÿÿÿ48€<
2147483648JN