بر عکس مثلث خيام پاسکال
DECLARE FUNCTION fact! (n!)
CLS
INPUT l
l = l - 1
FOR k = 2 * l TO 0 STEP -1
b = ABS(k - l)
   FOR u = 1 TO ABS(k - l)
      PRINT "   ";
   NEXT
   FOR i = ABS(k - l) TO l STEP 2
      PRINT USING "###"; fact(i) / (fact(b) * fact(i - b));
      PRINT "   ";
      b = b + 1
   NEXT i
PRINT
PRINT
NEXT k

FUNCTION fact (n)
s = 1
FOR r = 1 TO n
   s = s * r
NEXT
fact = s
END FUNCTION