HPHP49-B
!NO CODE
!RPL
(kreator 22.09.2000.)
(Sierpinski gasket)
(written on one boring day)
::
  ClrDA1IsStat 
  RECLAIMDISP 
  TURNMENUOFF 
  SIXTYFOUR 0
  DO
    XHI 0
    DO
     INDEX@
     JINDEX@ 
     #AND 
     #0=
     IT 
     ::
       INDEX@ 
       JINDEX@ 
       PIXON 
     ;
   LOOP
 LOOP
 SetDAsTemp 
;