7 lines
237 B
Text
7 lines
237 B
Text
include c:\cxpl\stdlib;
|
|
char Two64, Product(40);
|
|
[Two64:= "18446744073709551616";
|
|
StrNMul(Two64, Two64, Product, 20);
|
|
Product(39):= Product(39)!$80; \terminate string
|
|
Text(0, Product+1); \skip leading zero
|
|
]
|