HP 39gII - Page 271

Programming 261
c2 can be 0 to 3 (0=black, 1= dark gray, 2= light gray,
3= white). c2 is optional. If not specified the background
is not erased.
Example:
This program displays the successive approximations for
using the series for the arctangent(1).
EXPORT RUNPISERIES()
BEGIN
LOCAL sign;
2
 K;4 A;
-1
 sign;
RECT();
TEXTOUT_P("N=",0,0);
TEXTOUT_P("PI APPROX=",0,30);
REPEAT
A+sign*4/(2*K-1)
 A;
TEXTOUT_P(K
,35,0,2,0,100,3);
TEXTOUT_P(A
,90,30,2,0,100,3);
sign*-1
 sign;
K+1
 K;
UNTIL 0;
END;
The program executes until
the user presses
Oto terminate. The spaces after K
(the number of the term) and A (the current
approximation) in the TEXTOUT_P commands are there
to overwrite the previously displayed value.
BLIT and
BLIT_P Syntax: BLIT([trgtGRB, dx1, dy1, dx2, dy2],
srcGRB [ ,sx1, sy1, sx2, sy2, c])
BLIT_P ([trgtGRB, dx1, dy1, dx2, dy2],
srcGRB [ ,sx1, sy1, sx2, sy2, c])