mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-20 04:24:48 +00:00
90941fffa7
This moves the CONST replacement up before we turn the elements into a single string. The advantage is that we don't have to worry about splitting the string properly to find the CONST names as the elements are already split for us.t
27 lines
563 B
QBasic
27 lines
563 B
QBasic
$CONSOLE:ONLY
|
|
|
|
CONST const__single! = 32E+0
|
|
CONST const__single_exp! = 32E+2
|
|
CONST const__single_neg_exp! = 32E-10
|
|
|
|
CONST const__double# = 32D+0
|
|
CONST const__double_exp# = 32D+2
|
|
CONST const__double_neg_exp# = 32D-20
|
|
|
|
CONST const__float## = 32F+0
|
|
CONST const__float_exp## = 32F+2
|
|
CONST const__float_neg_exp## = 32F-10
|
|
|
|
PRINT const__single!
|
|
PRINT const__single_exp!
|
|
PRINT const__single_neg_exp!
|
|
PRINT
|
|
PRINT const__double#
|
|
PRINT const__double_exp#
|
|
PRINT const__double_neg_exp#
|
|
PRINT
|
|
PRINT const__float##
|
|
PRINT const__float_exp##
|
|
PRINT const__float_neg_exp##
|
|
|
|
SYSTEM
|