home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 4 / DATAFILE_PDCD4.iso / utilities / utilsm / numbers / !NumModTxt / NumbersLib (.txt) < prev    next >
Encoding:
RISC OS BBC BASIC V Source  |  1995-09-27  |  2.8 KB  |  121 lines
  1.  >NumbersLib - A library for accessing the numbers module
  2.  (C) Copyright Nick Craig-Wood 1995
  3. numbers_initialise
  4. 9  *RMEnsure Numbers 0.0 RMLoad System:Modules.Numbers
  5. <  *RMEnsure Numbers 0.0 Error 1 Numbers module not found
  6.   HeapSize=256*1024
  7.  Numbers HeapSize
  8.  "Num_HeapInit",Numbers,HeapSize 
  9.  hp%,zero%,one%,two%
  10.  "Num_MakeSmallPrimes",5000 
  11.  PRINT ;a%;" small primes found"
  12.  set up swi numbers
  13. ,  Num_Author = 
  14. swi_number("Num_Author")
  15. 0  Num_HeapInit = 
  16. swi_number("Num_HeapInit")
  17. >  Num_MakeSmallPrimes = 
  18. swi_number("Num_MakeSmallPrimes")
  19. 0  Num_Allocate = 
  20. swi_number("Num_Allocate")
  21. 4  Num_Deallocate = 
  22. swi_number("Num_Deallocate")
  23. &  Num_Set = 
  24. swi_number("Num_Set")
  25. (  Num_USet = 
  26. swi_number("Num_USet")
  27. (  Num_Init = 
  28. swi_number("Num_Init")
  29. ,  Num_Remove = 
  30. swi_number("Num_Remove")
  31. ,  Num_Equals = 
  32. swi_number("Num_Equals")
  33. (  Num_Swap = 
  34. swi_number("Num_Swap")
  35. (  Num_Move = 
  36. swi_number("Num_Move")
  37. *  Num_Clear = 
  38. swi_number("Num_Clear")
  39. (  Num_Tidy = 
  40. swi_number("Num_Tidy")
  41. (  Num_UCmp = 
  42. swi_number("Num_UCmp")
  43. &  Num_Cmp = 
  44. swi_number("Num_Cmp")
  45. 2  Num_ScalarCmp = 
  46. swi_number("Num_ScalarCmp")
  47.  2  Num_ScalarAdd = 
  48. swi_number("Num_ScalarAdd")
  49. !2  Num_ScalarSub = 
  50. swi_number("Num_ScalarSub")
  51. "2  Num_ScalarMul = 
  52. swi_number("Num_ScalarMul")
  53. #2  Num_ScalarDiv = 
  54. swi_number("Num_ScalarDiv")
  55. $2  Num_ScalarMod = 
  56. swi_number("Num_ScalarMod")
  57. %8  Num_SmallFactorN = 
  58. swi_number("Num_SmallFactorN")
  59. &6  Num_SmallFactor = 
  60. swi_number("Num_SmallFactor")
  61. '&  Num_Add = 
  62. swi_number("Num_Add")
  63. (&  Num_Sub = 
  64. swi_number("Num_Sub")
  65. )&  Num_Mul = 
  66. swi_number("Num_Mul")
  67. *&  Num_Div = 
  68. swi_number("Num_Div")
  69. +&  Num_Mod = 
  70. swi_number("Num_Mod")
  71. ,(  Num_Dump = 
  72. swi_number("Num_Dump")
  73. -0  Num_ToString = 
  74. swi_number("Num_ToString")
  75. .*  Num_Print = 
  76. swi_number("Num_Print")
  77. /4  Num_FromString = 
  78. swi_number("Num_FromString")
  79. 0*  Num_Input = 
  80. swi_number("Num_Input")
  81. 1(  Num_Info = 
  82. swi_number("Num_Info")
  83. 22  Num_RndScalar = 
  84. swi_number("Num_RndScalar")
  85. 3.  Num_SetSeed = 
  86. swi_number("Num_SetSeed")
  87. 4&  Num_Rnd = 
  88. swi_number("Num_Rnd")
  89. 5&  Num_Gcd = 
  90. swi_number("Num_Gcd")
  91. 6&  Num_Sqr = 
  92. swi_number("Num_Sqr")
  93. 7&  Num_Pow = 
  94. swi_number("Num_Pow")
  95. 8,  Num_PowMod = 
  96. swi_number("Num_PowMod")
  97. 92  Num_Factorial = 
  98. swi_number("Num_Factorial")
  99. :&  Num_Inv = 
  100. swi_number("Num_Inv")
  101. ;4  Num_FermatTest = 
  102. swi_number("Num_FermatTest")
  103. <:  Num_ProbablyPrime = 
  104. swi_number("Num_ProbablyPrime")
  105. =(  Num_Base = 
  106. swi_number("Num_Base")
  107. >*  Num_ToMem = 
  108. swi_number("Num_ToMem")
  109. ?.  Num_FromMem = 
  110. swi_number("Num_FromMem")
  111. swi_number(swi$)
  112.  "OS_SWINumberFromString",,swi$ 
  113.  swi%
  114. D    =swi%
  115. num_create
  116.  Num_Init,hp% 
  117. num_destroy(a%)
  118.  Num_Remove,a%
  119. num_prn(a%)
  120.  Num_Print,a%
  121.