B

Task/Infinity/BBC-BASIC/infinity.bbc

@@ -0,0 +1,19 @@
+      *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