Programas de ejemplos para probar el intérprete

Exponenciación

Factorial

División

División (con falla)

 
?x;
?y;
r:=1;
while y>0 do
	r:=r*x;
	y:=y-1
od;
!r

 
y:=1;
f:=1;
?x;
while x>=y do 
     f:=f*y;
     y:=y+1 
od;
!f

 
q:=0;
?x;
?y;
r:=x;
while r>=y do 
     q:=q+1;
     r:=r-y 
od;
!r;
!q

q:=0;
?x;
?y;
if y=0 
then fail DivZero 
else 
	r:=x;
	while r>=y do 
     		q:=q+1;
	     	r:=r-y 
	od;
	!q;
	!r
fi

Exponenciación (mejorado)

Fibonnaci de un número

Fibonnaci desde 1 hasta un número

 
catch ExpNeg in
?x;
?y;
if y<0 then 
	fail ExpNeg
else
	r:=1;
	while y>0 do
		r:=r*x;
		y:=y-1
	od;
	!r
fi
{fail CanNotDealWithReals}

ni:=0;
nj:=1;
?x;
y:=0;
for i:=1 to x do
	newvar t:=ni+nj {
		ni:=nj;
		nj:=t 
	};
	i:=i+1
od;
!nj

ni:=0;
nj:=1;
?x;
y:=0;
for i:=1 to x do
	newvar t:=ni+nj {
		ni:=nj;
		nj:=t 
	};
        !nj;
	i:=i+1
od

Primo o compuesto (muy ineficiente)
?x; i:=2; while i<x do if x rem i=0 then break else i:=i+1 fi od; if i<x then fail NotPrime else fail Prime fi