20 lines
419 B
Plaintext
20 lines
419 B
Plaintext
*FLOAT 64
|
|
PRINT FNinfinity
|
|
END
|
|
|
|
DEF FNinfinity
|
|
LOCAL supported%, maxpos, prev, inct
|
|
supported% = TRUE
|
|
ON ERROR LOCAL supported% = FALSE
|
|
IF supported% THEN = 1/0
|
|
RESTORE ERROR
|
|
inct = 1E10
|
|
REPEAT
|
|
prev = maxpos
|
|
inct *= 2
|
|
ON ERROR LOCAL inct /= 2
|
|
maxpos += inct
|
|
RESTORE ERROR
|
|
UNTIL maxpos = prev
|
|
= maxpos
|