HP 39gII Guia Del Usuario página 286

Programación
IF cur > max THEN
cur max;
k result;
END;
END;
MSGBOX("Máximo de "+ max +" factores para
"+result);
En Inicio, introduzca
MAXFACTORS(100).
Ejemplo 2: este programa dibuja un patrón interesante
en la pantalla.
EXPORT DRAWPATTERN()
BEGIN
LOCAL xincr,yincr,color;
STARTAPP("Función");
RECT();
xincr := (Xmax - Xmin)/254;
yincr := (Ymax - Ymin)/110;
FOR X FROM Xmin TO Xmax STEP xincr DO
FOR Y FROM Ymin TO Ymax STEP yincr DO
color := FLOOR(X^2+Y^2) MOD 4;
PIXON(X,Y,color);
END;
END;
FREEZE;
END;
275