TRUE BASIC PROGRAM:
SET MODE "COLOR"
SET WINDOW 0,1026,0,750
DIM A(0 TO 1026, 0 TO 1026)
PRINT "  general Pascal's triangle as modulo sum rule"
PRINT "  input a: 2 to 60 or 1/4 to 2 "
PRINT "  1"
PRINT "  1 1"
PRINT "  1 c   1"
PRINT "  1 1+c 1+c 1"
INPUT c
CLEAR
LET A(0,0)=1
LET A(O,1)=1
LET A(1,0)=1
LET A(1,1)=c
IF c>=2 then LET c1=int(c) else LET c1=2
FOR I= 2 TO INT(1026/2)
    FOR J= 1 TO I
        IF J-1 =0 THEN LET A(I,J-1)=1
        LET A(I,J)=MOD(A(I,J-1)+A(I-1,J),c1)
        LET B=A(I,J)
        IF B>0 THEN SET COLOR MOD(256-2*B,256) ELSE SET COLOR 0
        IF J <=INT(750/2) THEN PLOT INT(1026/2)+I,J+INT(750/2)
        IF J <=INT(750/2) THEN PLOT INT(1026/2)-I,J+INT(750/2)
        IF J <=INT(750/2) THEN PLOT INT(1026/2)+I,-J+INT(750/2)
        IF J <=INT(750/2) THEN PLOT INT(1026/2)-I,-J+INT(750/2)

        IF i<=INT(750/2) then PLOT INT(1026/2)+J,I+INT(750/2)
        IF i<=INT(750/2) then PLOT INT(1026/2)+J,-I+INT(750/2)
        IF i<=INT(750/2) then PLOT INT(1026/2)-J,I+INT(750/2)
        IF i<=INT(750/2) then PLOT INT(1026/2)-J,-I+INT(750/2)

    NEXT J
NEXT I
SET COLOR 255
PRINT "  General Pascal's triangle for ";c
PRINT "  by R. L. Bagula 20 Aug 1998 ©"
END