20 lines
735 B
Plaintext
20 lines
735 B
Plaintext
;;; field of length 12, 3 digits after decimal place
|
|
format_print('~12,3,0,`*,`0F', [1299.19]);
|
|
;;; prints "00001299.190"
|
|
format_print('~12,3,0,`*,`0F', [100000000000000000]);
|
|
;;; Since the number does not fit into the field prints "************"
|
|
;;; that is stars instead of the number
|
|
format_print('~12,3,0,`*,`0F', [-1299.19]);
|
|
;;; prints "000-1299.190"
|
|
;;; that is _leading zeros_ before sign
|
|
|
|
format_print('~3,1,12,`0:$', [1299.19]);
|
|
;;; prints "00001299.190"
|
|
format_print('~3,1,12,`0:$', [-1299.19]);
|
|
;;; prints "-0001299.190"
|
|
;;; that is sign before leading zeros
|
|
format_print('~3,1,12,`0:$', [100000000000000000]);
|
|
;;; prints "100000000000000000.000"
|
|
;;; that is uses more space if the number does not fit into
|
|
;;; fixed width
|