Wow tried putting this program in the HP Guide:

[tom234]

Program Listing
local x1:=160, x2:=299, x3:=21 local y1:=0, y2:=240, y3:=240 local xn:=160, yn:=0;
local a, b, color;
EXPORT Sierpinski()
BEGIN
RECT();
FOR a FROM 1 TO 10000 STEP 1 DO
b:=RANDINT(2)+1;
CASE
IF b=1 THEN xn:=(xn+x1)/2; yn:=(yn+y1)/2;END; IF b=2 THEN xn:=(xn+x2)/2; yn:=(yn+y2)/2;END; IF b=3 THEN xn:=(xn+x3)/2; yn:=(yn+y3)/2;END; END;
color:=RGB(255-a/40,0,a/40); PIXON_P(IP(xn),IP(yn),color); END;
WAIT;
END;

/////

Well, it didn't work couldn't get by line 2 with an error code?