30000 Rem CALCULATE F(X) WHERE F IS A POLYNOMIAL WITH COEFFICIENTS IN P()
30010 Procedure "EVALPOLY" Using Degree, !P(),X:Local E,V
30020 For E=Degree To 0 Step -1
30030 V=V+(X^E)*P(E)
30040 Next E
30050 Exit V
TAB -computer will TAB out a given
number of spaces
ERR -can either return the # of the
last error -OR- the line # where
the last error occurred

ParallaxScroll on Last.fm.


User-contributed text is available under the Creative Commons By-SA License and may also be available under the GNU FDL.