SUCCESS! This is so effin cool!
There are a few 89-related syntax modifications to your original code, but all I really did was add in a couple gettime()'s and converted the difference (in {hr,min,sec} format) to seconds in order to prevent negative values from popping up. Note that the Clock must be manually enabled: Home -> F1 -> B and then set time and date. Unfortunately, the Clock does not seem to work on Virtual TI, so we can't run the emulator realtime on our computers...
Code:
spi89()
Prgm
ClrIO
getTime()->ti
1->s
0->c
For a,1,4000,2
4/(s*a)->b
b+c->d
d->c
-1*s->s
EndFor
getTime()->tf
tf-ti->dt
3600*dt[1]+60*dt[2]+dt[3]->tpi
Disp "pi="
Disp c+.0005
Disp "time="
Disp tpi
EndPrgm
Check it out!
http://img100.imageshack.us/img100/4268/spisskh7.jpg
102 seconds!!! Does this qualify as the current WR? Time for some memory tweaks!!!
Great work Knight! Obviously, feel free to modify any ugly code - my programming skills are limited to TI calculators, and thus may be substandard!