5  REM  HP CONTRIBUTED LIBRARY, 2/75
10  DIM C[20],T[20],A$[3]
20  REM
30  REM - BINOMIAL COEFFICIENT TABLE FOR (X+Y)^N , N = 1 TO 15
40  REM - COEFFICIENTS DERIVED BY BINOMIAL EQUATION USING (X+Y)^N
50  REM - FIRST TERM IS ALWAYS 1 AND IS NOT SHOWN
60  REM
70  DATA 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
80  DATA 2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
90  DATA 3,3,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
100  DATA 4,6,4,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
110  DATA 5,10,10,5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
120  DATA 6,15,20,15,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0
130  DATA 7,21,35,35,21,7,1,0,0,0,0,0,0,0,0,0,0,0,0,0
140  DATA 8,28,56,70,56,28,8,1,0,0,0,0,0,0,0,0,0,0,0,0
150  DATA 9,36,84,126,126,84,36,9,1,0,0,0,0,0,0,0,0,0,0,0
160  DATA 10,45,120,210,252,210,120,45,10,1,0,0,0,0,0,0,0,0,0,0
170  DATA 11,55,165,330,462,462,330,165,55,11,1,0,0,0,0,0,0,0,0,0
180  DATA 12,66,220,495,792,924,792,495,220,66,12,1,0,0,0,0,0,0,0,0
190  DATA 13,78,286,715,1287,1716,1716,1287,715,286,78,13,1,0,0,0,0,0,0,0
200  DATA 14,91,364,1001,2002,3003,3432,3003,2002,1001,364,91,14,1,0,0,0,0,0,0
210  DATA 15,105,455,1365,3003,5005,6435,6435,5005,3003,1365,455,105,15,1,0,0,0,0,0
220  DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
230  PRINT "PROGRAM COMPUTES COEFFICIENTS FOR POLYNOMIALS OF FORM"
240  PRINT "(AX+BY)^N, WHERE A & B ARE +- NUMBERS AND N IS A"
250  PRINT "POSITIVE INTEGER BETWEEN 1 AND 15"
260  PRINT "YES   IS CORRECT RESPONSE TO LAST QUESTIONS"
270  PRINT 
280  PRINT "INPUT A,B,N";
290  INPUT A,B,N
300  IF 0<N AND N<16 THEN 330
310  PRINT "VALUE FOR N MUST BE 1 TO 15"
320  GOTO 280
330  MAT T=ZER
340  REM
350  REM FIND CORRECT TABLE
360  REM
370  RESTORE 70
380  FOR I=1 TO N
390  MAT  READ C
400  NEXT I
410  R=0
420  E=N
430  I=1
440  J=0
450  REM
460  REM - FIRST TERM IS ALWAYS (AX)^N
470  REM
480  PRINT A^N;"X^";N;
490  T[I]=A^N
500  REM
510  N=N-1
520  I=I+1
530  R=R+1
540  IF N=0 THEN 610
550  T[I]=C[I-1]*((A^N)*(B^R))
560  PRINT "+";T[I];"X^";N;"Y^";R;
570  GOTO 500
580  REM
590  REM - LAST TERM IS ALWAYS (BY)^N
600  REM
610  T[I]=B^R
620  PRINT "+";T[I];"Y^";R
630  REM
640  REM MATRIX T CONTAINS COEFFICIENTS
650  PRINT "NEXT HIGHER DEGREE";
660  INPUT A$
670  IF A$ <> "YES" THEN 700
680  N=E+1
690  GOTO 330
700  PRINT "NEW VALUES";
710  INPUT A$
720  IF A$="YES" THEN 280
730  STOP 
740  END 
