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

NumberConversionî¢8
StringToCardlü
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&Æ‹å]ÊW
StringToNumÀ

ü
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 ¬
ü2
w°¹úÍÀ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