Cls
T=Timer
While I%<=10000
  Inc I%
Wend
Print (Timer-T)/200

sierpens()
Prgm
Local x,y,k,n
ClrDraw
0->xmin:0->ymin
1->xmax:1->ymax
rand()->x:rand()->y
For k,1,3000
  rand()->n
  If n<=1/3 Then
    0.5*x->x
    0.5*y->y
  EndIf
  If 1/3<n and n<=2/3 Then
    0.5*(0.5+x)->x
    0.5*(1+y)->y
  EndIf
  If 2/3<n Then
    0.5*(1+x)->x
    0.5*y->y
  EndIf
  PtOn x,y
EndFor
EndPrgm

Cls
T%=Timer
X=Rnd
Y=Rnd
K%=1
While K%<=3000
  N=Rnd
  If N<=1/3 Then
    Mul X,0.5
    Mul Y,0.5
  Endif
  If 1/3<N And N<=2/3 Then
    X=0.5*(0.5+X)
    Y=0.5*(1+Y)
  Endif
  If 2/3<N Then
    X=0.5*(1+X)
    Mul Y,0.5
  Endif
  
  Plot Int(239*X),Int((1-Y)*127)
  
  Exit If getkey=264
  Inc K%
Wend
Print "Temps"Timer-T/200

#include <tigcclib.h>

void _main(void)
{
 ClrScr();
 unsigned long T=FiftyMsecTick;
 srand(T);
 unsigned X=random(240);
 unsigned Y=random(128 );
 unsigned K=1;
 while (K<=30000) {
  int N=random(3);
  switch(N) {
   case 0:
    X>>=1;
    Y>>=1;
    break;
   case 1:
    X=(X>>1)+60;
    Y=(Y>>1)+64;
    break;
   default:
    X=(X>>1)+120;
    Y>>=1;
    break;
  }
  poke_bset((long)(short)(0x5ae2-Y*30+(X>>3)),7-X);
  K++;
 }
 unsigned long Timer=FiftyMsecTick;
 ngetchx();
 ClrScr();
 printf_xy(0,0,"Temps: %lu ms",(Timer-T)*50);
 ngetchx();
}

E:\TI-89\Compilers\tigcc\Projects>tprbuilder sierpin.tpr
tprbuilder: tigcc sierpin.c  -o "sierpin" -n sierpin -O3 -Wall -W -Wwrite-string
s -WA,-g,-t --optimize-nops --optimize-returns --optimize-branches --optimize-mo
ves --optimize-tests --optimize-calcs --remove-unused --cut-ranges --reorder-sec
tions --merge-constants --omit-bss-init -DUSE_TI89 -DUSE_TI92PLUS -DUSE_V200 -DM
IN_AMS=200 -DUNOFFICIAL_OS_SUPPORT -DOPTIMIZE_ROM_CALLS -DMERGE_BSS -DKERNEL_FOR
MAT_DATA_VAR -DSAVE_SCREEN

Cls
T%=Timer
X%=240
Y%=128
K%=1
While K%<=3000
  N%=Random(3)
  If N%=0 Then
    Div X%,2
    Div Y%,2
  Elseif N%=1 Then
    Div X%,2
    Add X%,60
    Div Y%,2
    Add Y%,64
  Else
    Div X%,2
    Add X%,120
    Div Y%,2
  Endif

  Plot X%,Y%
  Inc K%
Wend
Print "Temps:"'(Timer-T%)/200