262F1 |
COERCE
|
( % → # )
|
35D08 |
COERCEDUP
|
( % → # # )
|
35EB6 |
COERCESWAP
|
( ob % → # ob )
|
3F481 |
COERCE2
|
( % %' → # #' )
|
262EC |
%ABSCOERCE
|
( % → # )
|
2F244 |
(Flag%isUser?)
|
( % → # flag )
TRUE if real is greater 0, else FALSE.
|
2F31F |
C%>#
|
( C% → # #' )
|
05A03 |
HXS>#
|
( hxs → # )
|
2F17E |
2HXSLIST?
|
( { hxs hxs' } → # #' )
Converts list of two hxs to two
bints. Generates "Bad Argument Value" for
invalid input.
|
05A51 |
CHR>#
|
( chr → # )
|
0EF006 |
^Z2BIN
|
( Z → # )
Convert Z to bint.
Returns FFFFF for overflows.
Returns 0 for negative numbers.
|
19D006 |
^Z>#
|
( z → # )
Coerces Z to #, overflow error if Z<0 or
Z>9999. 10000 is used to insure that the #*6
can be represented in BCD on a 5 nibbles
field.
|
0F0006 |
^COERCE2Z
|
( z2 z1 → #2 #1 )
Converts 2 zints to bints.
|