30  COM B[300],C[300],D[300],E[300],F[300],G[300]
40  COM H[25],N0,M0,I0,I1,I2,I3,I4,I5,I6,I8
50  COM I[100],J[100],M1,M2,A0
60  COM K[20],L[20],M[20],N[20]
61  COM R$[7],R9
63  COM A
65  COM G1,G2,G3,G4,G5,G6,G7,G8,G9
66  COM H1,H2,H3,H4,H5,H6,H7,H8
70  COM A$[4],P[4],B$[4],Q[4]
75  COM Q$[7],Q9
80  COM F1,F2,F3,F4
81  COM I9
82  COM R[9],S[9],T[9],U[9]
83  COM V[200,10]
84  COM W[9,9],X[9]
85  COM F5,F6,F7,F8,F9,L9
86  COM L8
87  COM S6
110  N1=N0+1
120  M3=M0
130  M4=M3+101
140  FOR I7=1 TO 100
150  I[I7]=0
160  J[I7]=0
170  B[I7]=0
171  NEXT I7
180  MAT C=ZER
190  FOR I7=N1 TO 300
191  D[I7]=0
192  NEXT I7
200  MAT E=ZER
260  I7=1
270  J0=1
280  IF (J0>I0) THEN 330
290  K[J0+1]=H[I7]
300  I7=I7+1
310  J0=J0+1
320  GOTO 280
330  J0=1
340  IF (J0>I2) THEN 390
350  M[J0+1]=H[I7]
360  I7=I7+1
370  J0=J0+1
380  GOTO 340
390  J0=1
400  IF (J0>I3) THEN 450
410  L[J0+1]=H[I7]
420  I7=I7+1
430  J0=J0+1
440  GOTO 400
450  J0=1
460  IF (J0>I5) THEN 510
470  N[J0+1]=H[I7]
480  I7=I7+1
490  J0=J0+1
500  GOTO 460
510  IF I6=0 THEN 520
515  A0=H[I7]
520  FOR I7=0 TO I0
530  FOR J0=0 TO I3
540  K0=I7+J0*I8
550  J[K0+1]=J[K0+1]-K[I7+1]*L[J0+1]
551  NEXT J0
552  NEXT I7
560  FOR I7=0 TO I2
570  FOR J0=0 TO I5
580  K0=I7+J0*I8
590  I[K0+1]=I[K0+1]-M[I7+1]*N[J0+1]
591  NEXT J0
592  NEXT I7
593  CHAIN "$IDA53B"
594  END 
