12-19-2017, 12:05 PM

A one line PI generator because I got bored:

Code:

`DEFDBL A-Z: L = 1: T = TIMER: DO UNTIL TIMER - T > 10: X = X + 1 / L - 1 / (L + 2): L = L + 4: LOOP: P = 4 * X: PRINT LEFT$(LTRIM$(STR$(P)), 9)`

dndbbs project:

Links to my MUD: (strictly 16-bit); AKA XP:

Dndbbs executables

http://www.filegate.net/pdn/pdnbasic/dnd50a1e.zip

Dndbbs source

http://www.filegate.net/pdn/pdnbasic/dnd50a1s.zip

Dndbbs upgrade

http://www.filegate.net/pdn/pdnbasic/dnd50a1u.zip

DNDDOOR - https://bit.ly/EriksDNDDoor DUNGEON - https://bit.ly/EriksDungeon

Interpreter - https://bit.ly/EriksSICK Hex Editor - https://bit.ly/EriksHexEditor Utilities - https://bit.ly/EriksUtils

QB45 files: - https://bit.ly/EriksQB45 QB64shell - https://bit.ly/QB64shell Some old QB64 versions: - https://bit.ly/OldQB64

Links to my MUD: (strictly 16-bit); AKA XP:

Dndbbs executables

http://www.filegate.net/pdn/pdnbasic/dnd50a1e.zip

Dndbbs source

http://www.filegate.net/pdn/pdnbasic/dnd50a1s.zip

Dndbbs upgrade

http://www.filegate.net/pdn/pdnbasic/dnd50a1u.zip

DNDDOOR - https://bit.ly/EriksDNDDoor DUNGEON - https://bit.ly/EriksDungeon

Interpreter - https://bit.ly/EriksSICK Hex Editor - https://bit.ly/EriksHexEditor Utilities - https://bit.ly/EriksUtils

QB45 files: - https://bit.ly/EriksQB45 QB64shell - https://bit.ly/QB64shell Some old QB64 versions: - https://bit.ly/OldQB64