10  COM S[300],B[300],C[300],R[300],F[300],G[300]
20  COM T[25],G0,G1,G2,G3,G4,G5,G6,G7,G8,G9
30  COM H[100],I[100],M0,M1,A0
40  COM J[20],K[20],M[20],N[20]
50  COM R$[7],R9
60  COM S1
70  COM H2,H3,H4,H5,H6,H7,H8,H9,P1
80  COM J1,J2,J3,J4,J5,J6,J7,J8
100  COM C$[4],Z[4],E$[4],Y[4]
110  COM Q$[7],Q9
120  COM N0,N1
130  COM I9,I0
140  COM I2
150  COM P[9],Q[9],O[9],U[9]
160  COM D[200,10]
170  COM A[9,9],E[9]
180  COM F1,F2,F3,S2,T1,I1
190  COM I
200  COM S6
1430  PRINT "PARAMETER VALUES"
1440  FOR I=1 TO P1-1
1450  LET T[I]=U[I]
1460  PRINT T[I]
1470  NEXT I
1471  T[P1]=U[P1]
1472  IF G8=0 THEN 1479
1473  T[P1+1]=0
1474  FOR I=1 TO G2
1475  T[P1+1]=T[P1+1]+T[I]
1476  NEXT I
1477  PRINT T[P1]*(1-T[P1+1])
1478  GOTO 1480
1479  PRINT T[P1]
1480  PRINT "SUM-OF-SQUARES =";S6
1490  LET S3=0
1500  FOR I=1 TO P1
1510  IF (ABS(P[I]*(S2/E[I]))/(1.E-20+ABS(T[I]))>.001) THEN 1530
1520  LET S3=S3+1
1530  NEXT I
1540  IF (S3 >= P1) THEN 1560
1550  GOTO 1580
1560  PRINT LIN(1),"ITERATION STOPS, RELATIVE CHANGE IN EACH PARAMETER < .001"
1570  GOTO 1730
1580  IF (ABS((S6-S1)/S1)>.001) THEN 1610
1590  PRINT LIN(1),"ITERATION STOPS, RELATIVE CHANGE IN SUM OF SQUARES < .001"
1600  GOTO 1730
1610  LET S1=S6
1620  F1=F1+1
1660  IF (F1>10) THEN 1700
1670  CHAIN "$IDA53D",440
1680  PRINT LIN(2),"SUM-OF-SQUARES CANNOT BE REDUCED, ITERATION STOPS"
1690  GOTO 1720
1700  PRINT LIN(1),"ITERATION LIMIT (10) EXCEEDED, TRY BETTER GUESS VALUES"
1720  REM
1730  REM
1742  GOTO 1824
1750  PRINT LIN(2),"BACK-FORECAST RESIDUALS FROM FINAL MODEL:"
1760  FOR J=I2 TO 100
1770  PRINT R[J]
1780  NEXT J
1790  PRINT LIN(2),"ACTUAL RESIDUALS FROM FINAL MODEL:"
1800  FOR J=101 TO G0
1810  PRINT R[J]
1820  NEXT J
1824  J1=S6
1830  CHAIN R$,R9
1850  END 
