SYNTHDIV

Menu("SYNTHDIV","3RD DEG",A,"4TH DEG",B,"5TH DEG",C,"6TH DEG",D)
Lbl A
Prompt Z,L1
L1(1)-->A
L1(2)+(Z*A)-->B
L1(3)+(Z*B)-->C
L1(4)+(Z*C)-->D
Disp A,B,C,D
Goto A
Lbl B
Prompt Z,L1
L1(1)-->A
L1(2)+(Z*A)-->B
L1(3)+(Z*B)-->C
L1(4)+(Z*C)-->D
L1(5)+(Z*D)-->E
Disp A,B,C,D,E
Goto B
Lbl C
Prompt Z,L1
L1(1)-->A
L1(2)+(Z*A)-->B
L1(3)+(Z*B)-->C
L1(4)+(Z*C)-->D
L1(5)+(Z*D)-->E
L1(6)+(Z*E)-->F
Disp A,B,C,D,E,F
Goto C
Lbl D
Prompt Z,L1
L1(1)-->A
L1(2)+(Z*A)-->B
L1(3)+(Z*B)-->C
L1(4)+(Z*C)-->D
L1(5)+(Z*D)-->E
L1(6)+(Z*E)-->F
L1(7)+(Z*F)-->G
Disp A,B,C,D,E,F,G
Goto D