برعکس و معکوس مثلث خیام پاسکال
مثلا با وارد کردن عدد پنج خروجی روبرو را چاپ می کند
یعنی 5 خط مثلث خیام پاسکال را به صورت وارون و معکوس چاپ می کند

1
    1
4       1
    3         1
6       2           1
    3         1
4       1
    1
1

DECLARE FUNCTION fact! (n!) CLS INPUT L L = L - 1 v = L FOR k = 2 * L TO 0 STEP -1 m = m + 1 IF m MOD 2 = 0 THEN v = v - 1 b = v a = a + 1 s = 0 FOR i = L TO ABS(k - L) STEP -2 IF a MOD 2 = 0 AND s = 0 THEN i = i - 1 PRINT " "; s = 1 END IF PRINT USING "##"; fact(i) / (fact(b) * fact(i - b)); PRINT " "; b = b - 1 NEXT i PRINT : PRINT NEXT k END FUNCTION fact (n) s = 1 FOR r = 1 TO n s = s * r NEXT fact = s END FUNCTION

نویسنده برنامه رسول فضلی