Pi: Difference between revisions
Content added Content deleted
(Pi in Chipmunk Basic, GW-BASIC and MSX Basic) |
m (Improved the output of PI. Previously spaces were inserted between digits. Now all the digits are output without any extra spaces.) |
||
| Line 808: | Line 808: | ||
480 REM |
480 REM |
||
490 REM OUTPUT DIGITS |
490 REM OUTPUT DIGITS |
||
500 IF ND=0 THEN PRINT STR$(D);: RETURN |
500 IF ND=0 THEN PRINT RIGHT$(STR$(D),1);: RETURN |
||
510 IF D=0 THEN RETURN |
510 IF D=0 THEN RETURN |
||
520 PRINT STR$(D);"."; |
520 PRINT RIGHT$(STR$(D),1);"."; |
||
530 ND = 0 |
530 ND = 0 |
||
550 RETURN |
550 RETURN |
||