END
FUNCTION matrixmult(n)
LET m=n
DIM M(m,m)
FOR i=1 TO m
  FOR j=1 TO m
    M(i,j)=i+j+0.5
  NEXT
NEXT
LET r=0
FOR i=1 TO m
  FOR j=1 TO m
    FOR k=1 TO m
      LET r=r+M(i,k)*M(k,j)
    NEXT
  NEXT
NEXT
LET matrixmult=r
END FUNCTION