200 "H" CLEAR : CLS : DIM A(10),B(10),C(20): WAIT 0
  201 INPUT "np=";N: CLS : FOR I=N TO 0 STEP -1: PRINT "p^"; STR$ I;"=";: INPUT A(I): CLS : NEXT I
  202 INPUT "nq=";M: CLS : FOR I=M TO 0 STEP -1: PRINT "q^"; STR$ I;"=";: INPUT B(I): CLS : NEXT I: WAIT 
  203 FOR L=0 TO M+N:X=(L+N- ABS (L-N))/2: FOR I=0 TO X:J=L-I
  204 C(L)=C(L)+A(I)*B(J): NEXT I: NEXT L
  205 FOR I=N+M TO 0 STEP -1: PRINT "c^"; STR$ I;"=";C(I): NEXT I: END