10  COM H[300],I[300],J[300],K[300],L[300],M[300]
20  COM A[25],N0,M0,I0,I1,I2,I3,I4,I5,I6,I9
30  COM B[100],C[100],M1,M2,A0
40  COM N[20],O[20],P[20],Q[20]
50  COM R$[7],R9
60  COM G1
70  COM G2,G3,G4,G5,G6,G7,G8,G9,H1
80  COM H2,H3,H4,H5,H6,H7,H8,H9
100  COM D$[4],E[4],F$[4],G[4]
110  COM Q$[7],Q9
120  COM N3,N4
125  COM I7,I8
130  N3=N4=1
160  IF (I6=1) THEN 320
170  FOR I7=1 TO 4
190  Q$="$IDA53G"
195  Q9=210
200  CHAIN "$IDA53H"
210  N1=I7
220  IF (I8=1) THEN 240
230  NEXT I7
240  N1=N1-I8
250  IF N1 <= 0 THEN 620
260  FOR I7=1 TO N1
270  PRINT  USING 290;D$[I7],E[I7],F$[I7],G[I7]
280  NEXT I7
290  IMAGE 5X,"Z(I) =",4(1X,1A,D.3D,"*",1A,"(I-",2D,")")
310  GOTO 460
320  FOR I7=1 TO 3
335  Q9=360
340  Q$="$IDA53G"
350  CHAIN "$IDA53H"
360  N1=I7
370  IF (I8=1) THEN 390
380  NEXT I7
390  N1=N1-I8
400  IF N1 <= 0 THEN 620
410  FOR I7=1 TO N1
420  PRINT  USING 450;(A0*(1-A[H1+1])),D$[I7],E[I7],F$[I7],G[I7]
430  NEXT I7
450  IMAGE " EST Z(I) =",7D.6D,3(1X,1A,2D.3D,"*",1A,"(I-",2D,")")
460  IF I8=1 THEN 620
470  FOR I7=1 TO 4
485  Q9=510
490  Q$="$IDA53G"
500  CHAIN "$IDA53H"
510  N1=I7
520  IF (I8=1) THEN 540
530  NEXT I7
540  N1=N1-I8
550  IF N1 <= 0 THEN 620
560  FOR I7=1 TO N1
570  PRINT  USING 600;D$[I7],E[I7],F$[I7],G[I7]
580  NEXT I7
600  IMAGE 11X,4(1X,1A,5D.3D,"*",1A,"(I-",DD,")")
610  GOTO 460
620  CHAIN R$,R9
630  END 
