Re: Computing Pi on the Apple II and //e.

[schmidtd <schmidtd@my-deja.com>]

On Aug 19, 10:47 am, "bill.mart...@gmail.com" <bill.mart...@gmail.com>
wrote:
> For anyone interested, here is the Text of the Bob Bishop Pi Program
>
> ----------------APPLEPI.TXT---------------------
> --------------------End of APPLEPI.TXT------------------
With the power of cut-n-paste, I'm interested!  I fixed a few typos.
After comparing to the original text a couple of times, I must still
be missing something... I'm getting output in the 99.99x range.

< 5 CALL 936: VTAB 10: TAB 5: PRINT "HOW MANY DIGITS DO YOU WANT";
> 5 CALL -936: VTAB 10: TAB 5: PRINT "HOW MANY DIGITS DO YOU WANT";

< 70 DIM CONTANT(2):CONSTANT(1)=25:CONSTANT(2)=239
> 70 DIM CONSTANT(2):CONSTANT(1)=25:CONSTANT(2)=239

< 3010 LOAD=0
> 3010 LOAN=0

< 3030 DIFFERENCE=PEEK(RESULT+PLACE)-PEEK(TERM+PLACE)-LOAD
> 3030 DIFFERENCE=PEEK(RESULT+PLACE)-PEEK(TERM+PLACE)-LOAN

< 4030 POE TERM+PLACE,0
> 4030 POKE TERM+PLACE,0