HP Prime Guia Del Usuario página 611

Programación
c2 puede ser cualquier color especificado como
#RRGGBB. c2 es opcional. Si no se especifica, no se borra
el fondo.
Ejemplo:
Este programa muestra las aproximaciones sucesivas de π
para utilizar las series de arcotangente(1). Tenga en
cuenta que se ha especificado un color para el texto y
para el fondo (con el ancho del texto limitado a 100
píxeles).
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)
TEXTOUT_P(K ,35,0,2,
#FFFFFF,100,#333399);
TEXTOUT_P(A ,90,30,2,
#000000,100,#99CC33);
sign*-1

sign;
K+1 K;

UNTIL 0;
END;
El programa se ejecuta
hasta que el usuario
pulsa O para
finalizar. Los espacios después de K (número del término)
y A (aproximación actual) en los comandos TEXTOUT_P
existen para sobrescribir el valor mostrado anteriormente.
A;

609