9 lines
434 B
Text
9 lines
434 B
Text
INSTALL @lib$+"HIMELIB"
|
|
PROC_himeinit("")
|
|
|
|
PROC_hiputdec(1, "2988348162058574136915891421498819466320163312926952423791023078876139")
|
|
PROC_hiputdec(2, "2351399303373464486466122544523690094744975233415544072992656881240319")
|
|
PROC_hiputdec(3, "10000000000000000000000000000000000000000")
|
|
h1% = 1 : h2% = 2 : h3% = 3 : h4% = 4
|
|
SYS `hi_PowMod`, ^h1%, ^h2%, ^h3%, ^h4%
|
|
PRINT FN_higetdec(4)
|