$EXECUTE FORTRAN 1 * ID KAY 1 * XEQ * LIST * LABEL 1 DIMENSIONX(1000),D(100),D2(100),D3(100),D4(100),D5(100),D6(100),D7 12/01/64 PAGE 1 DIMENSIONX(1000),D(100),D2(100),D3(100),D4(100),D5(100),D6(100),D7UMKAY001 1(100),D8(100),FR(100),C6(4,4),C7(4,4),C8(7,7),B6(4),B7(4),B8(7),SPUMKAY002 241(3),SP51(3),SP61(3),SP62(3),SP63(3),SP64(3),SP71(3),SP72(3), UMKAY003 3SP73(3),SP74(3),SP81(3),SP82(3),SP83(3),SP84(3),SP85(3),SP86(3), UMKAY004 4SP87(3),SP88(3),SP89(3),SP810(3),SP811(3),F(2),SP812(3),FMT(12) UMKAY005 4 READ INPUT TAPE 5,2,LUG UMKAY006 2 FORMAT (I1) UMKAY007 6 FORMAT (12A6) UMKAY008 F=0.0 UMKAY009 SX=0.0 UMKAY010 S2=0.0 UMKAY011 S3=0.0 UMKAY012 S4=0.0 UMKAY013 S5=0.0 UMKAY014 S6=0.0 UMKAY015 S7=0.0 UMKAY016 S8=0.0 UMKAY017 IF (LUG-1) 8,8,5 UMKAY018 8 READ INPUT TAPE 5,3,N,F(2),LOP UMKAY019 3 FORMAT (I8,F8.0,I1) UMKAY020 READ INPUT TAPE 5,6,(FMT(I),I=1,12) UMKAY021 READ INPUT TAPE 5,FMT,(X(I),I=1,N) UMKAY022 F=FLOATF(N) UMKAY023 DO25 I=1,N UMKAY024 25 SX=SX+X(I) UMKAY025 AV=SX/F UMKAY026 B1=AV UMKAY027 DO 30 I=1,N UMKAY028 D1=X(I)-AV UMKAY029 D2=D1*D1 UMKAY030 D3=D1*D2 UMKAY031 D4=D1*D3 UMKAY032 D5=D1*D4 UMKAY033 D6=D1*D5 UMKAY034 D7=D1*D6 UMKAY035 D8=D1*D7 UMKAY036 S2=S2+D2 UMKAY037 S3=S3+D3 UMKAY038 S4=S4+D4 UMKAY039 S5=S5+D5 UMKAY040 S6=S6+D6 UMKAY041 S7=S7+D7 UMKAY042 30 S8=S8+D8 UMKAY043 GO TO 35 UMKAY044 5 READ INPUT TAPE 5,1,M,F(2),LOP UMKAY045 1 FORMAT (I8,F8.0,I1) UMKAY046 READ INPUT TAPE 5,6,(FMT(I),I=1,12) UMKAY047 READ INPUT TAPE 5,FMT,(X(I),FR(I),I=1,M) UMKAY048 DO10 I=1,M UMKAY049 SX=SX+FR(I)*X(I) UMKAY050 10 F=F+FR(I) UMKAY051 AV=SX/F UMKAY052 B1=AV UMKAY053 DO 15 I=1,M UMKAY054 D(I)=X(I)-AV UMKAY055 D2(I)=D(I)**2 UMKAY056 1 DIMENSIONX(1000),D(100),D2(100),D3(100),D4(100),D5(100),D6(100),D7 12/01/64 PAGE 2 D3(I)=D(I)*D2(I) UMKAY057 D4(I)=D(I)*D3(I) UMKAY058 D5(I)=D(I)*D4(I) UMKAY059 D6(I)=D(I)*D5(I) UMKAY060 D7(I)=D(I)*D6(I) UMKAY061 15 D8(I)=D(I)*D7(I) UMKAY062 DO 20 I=1,M UMKAY063 S2=S2+FR(I)*D2(I) UMKAY064 S3=S3+FR(I)*D3(I) UMKAY065 S4=S4+FR(I)*D4(I) UMKAY066 S5=S5+FR(I)*D5(I) UMKAY067 S6=S6+FR(I)*D6(I) UMKAY068 S7=S7+FR(I)*D7(I) UMKAY069 20 S8=S8+FR(I)*D8(I) UMKAY070 35 F2=F**2 UMKAY071 F3=F*F2 UMKAY072 F4=F*F3 UMKAY073 F5=F*F4 UMKAY074 F6=F*F5 UMKAY075 F7=F*F6 UMKAY076 F8=F*F7 UMKAY077 FF2=F*(F-1.0) UMKAY078 FF3=FF2*(F-2.0) UMKAY079 FF4=FF3*(F-3.0) UMKAY080 FF5=FF4*(F-4.0) UMKAY081 FF6=FF5*(F-5.0) UMKAY082 FF7=FF6*(F-6.0) UMKAY083 FF8=FF7*(F-7.0) UMKAY084 C211=F UMKAY085 C311=F2 UMKAY086 C411=F3+F2 UMKAY087 C421=-3.0*(F2-F) UMKAY088 C412=-1.0*(F2-F) UMKAY089 C422=F2-3.0*F+3.0 UMKAY090 C511=F4+5.0*F3 UMKAY091 C521=-10.0*(F3-F2) UMKAY092 C512=-1.0*(F3-F2) UMKAY093 C522=F3-2.0*F2+2.0*F UMKAY094 C6(1,1)=F5+16.0*F4+11.0*F3-4.0*F2 UMKAY095 C6(1,2)=-1.0*(F4+2.0*F3-7.0*F2+4.0*F) UMKAY096 C6(1,3)=-1.0*(F4-2.0*F3+5.0*F2-4.0*F) UMKAY097 C6(1,4)=2.0*(F3-3.0*F2+2.0*F) UMKAY098 C6(2,1)=15.0*C6(1,2) UMKAY099 C6(3,1)=10.0*C6(1,3) UMKAY100 C6(4,1)=15.0*C6(1,4) UMKAY101 C6(2,2)=F4-10.0*F2+45.0*F-60.0 UMKAY102 C6(2,3)=3.0*(2.0*F3-5.0*F2-5.0*F+20.0) UMKAY103 C6(2,4)=-3.0*(F3-7.0*F2+20.0*F-20.0) UMKAY104 C6(3,2)=2.0*C6(2,3)/3.0 UMKAY105 C6(4,2)=C6(2,4) UMKAY106 C6(3,3)=F4-8.0*F3+25.0*F2-10.0*F-40.0 UMKAY107 C6(3,4)=-2.0*(3.0*F2-15.0*F+20.0) UMKAY108 C6(4,3)=3.0*C6(3,4)/2.0 UMKAY109 C6(4,4)=F3-9.0*F2+29.0*F-30.0 UMKAY110 C7(1,1)=F6+42.0*F5+119.0*F4-42.0*F3 UMKAY111 C7(1,2)=-1.0*(F5+12.0*F4-31.0*F3+18.0*F2) UMKAY112 1 DIMENSIONX(1000),D(100),D2(100),D3(100),D4(100),D5(100),D6(100),D7 12/01/64 PAGE 3 C7(1,3)=-1.0*(F5+5.0*F3-6.0*F2) UMKAY113 C7(1,4)=2.0*(F4-3.0*F3+2.0*F2) UMKAY114 C7(2,1)=21.0*C7(1,2) UMKAY115 C7(3,1)=35.0*C7(1,3) UMKAY116 C7(4,1)=105.0*C7(1,4) UMKAY117 C7(2,2)=F5+6.0*F4-28.0*F3+99.0*F2-162.0*F UMKAY118 C7(2,3)=3.0*(3.0*F4-10.0*F3+5.0*F2+18.0*F) UMKAY119 C7(2,4)=-2.0*(F4-6.0*F3+17.0*F2-18.0*F) UMKAY120 C7(3,2)=5.0*C7(2,3)/3.0 UMKAY121 C7(4,2)=5.0*C7(2,4) UMKAY122 C7(3,3)=F5-6.0*F4+30.0*F3-35.0*F2-30.0*F UMKAY123 C7(3,4)=-1.0*(F4-F3-10.0*F2+20.0*F) UMKAY124 C7(4,3)=3.0*C7(3,4) UMKAY125 C7(4,4)=F4-7.0*F3+21.0*F2-20.0*F UMKAY126 C8(1,1)=F7+99.0*F6+757.0*F5+141.0*F4-398.0*F3+120.0*F2 UMKAY127 C8(1,2)=-1.0*(F6+37.0*F5-39.0*F4-157.0*F3+278.0*F2-120.0*F) UMKAY128 C8(1,3)=-1.0*(F6+9.0*F5-23.0*F4+111.0*F3-218.0*F2+120.0*F) UMKAY129 C8(1,4)=-1.0*(F6+F5+33.0*F4-121.0*F3+206.0*F2-120.0*F) UMKAY130 C8(1,5)=2.0*(F5+2.0*F4-25.0*F3+46.0*F2-24.0*F) UMKAY131 C8(1,6)=2.0*(F5-4.0*F4+11.0*F3-20.0*F2+12.0*F) UMKAY132 C8(1,7)=-6.0*(F4-6.0*F3+11.0*F2-6.0*F) UMKAY133 C8(2,1)=28.0*C8(1,2) UMKAY134 C8(3,1)=56.0*C8(1,3) UMKAY135 C8(4,1)=35.0*C8(1,4) UMKAY136 C8(5,1)=210.0*C8(1,5) UMKAY137 C8(6,1)=280.0*C8(1,6) UMKAY138 C8(7,1)=105.0*C8(1,7) UMKAY139 C8(2,2)=F6+20.0*F5+3.0*F4-336.0*F3+1736.0*F2-4424.0*F+3360.0 UMKAY140 C8(2,3)=13.0*F5-14.0*F4-57.0*F3-406.0*F2+2744.0*F-3360.0 UMKAY141 C8(2,4)=4.0*(3.0*F5-11.0*F4+11.0*F3+119.0*F2-602.0*F+840.0) UMKAY142 C8(2,5)=-2.0*(F5-2.0*F4-27.0*F3+236.0*F2-700.0*F+672.0) UMKAY143 C8(2,6)=-1.0*(F5-5.0*F3-96.0*F2+532.0*F-672.0) UMKAY144 C8(2,7)=8.0*(F4-12.0*F3+62.0*F2-147.0*F+126.0) UMKAY145 C8(3,2)=2.0*C8(2,3) UMKAY146 C8(4,2)=5.0*C8(2,4)/4.0 UMKAY147 C8(5,2)=15.0*C8(2,5)/2.0 UMKAY148 C8(6,2)=10.0*C8(2,6) UMKAY149 C8(7,2)=30.0*C8(2,7)/8.0 UMKAY150 C8(3,3)=F6+F5-51.0*F4+527.0*F3-1134.0*F2-2128.0*F+6720.0 UMKAY151 C8(3,4)=8.0*(F5+F4-39.0*F3+119.0*F2+182.0*F-840.0) UMKAY152 C8(3,5)=-4.0*(5.0*F4-26.0*F3-25.0*F2+406.0*F-672.0) UMKAY153 C8(3,6)=-2.0*(F5-11.0*F4+61.0*F3-101.0*F2-238.0*F+672.0) UMKAY154 C8(3,7)=48.0*(F3-10.0*F2+35.0*F-42.0) UMKAY155 C8(4,3)=5.0*C8(3,4)/8.0 UMKAY156 C8(5,3)=15.0*C8(3,5)/4.0 UMKAY157 C8(6,3)=5.0*C8(3,6) UMKAY158 C8(7,3)=90.0*C8(3,7)/48.0 UMKAY159 C8(4,4)=F6-13.0*F5+76.0*F4-37.0*F3-497.0*F2-490.0*F+4200.0 UMKAY160 C8(4,5)=-1.0*(F5-8.0*F4+33.0*F3+62.0*F2-868.0*F+1680.0) UMKAY161 C8(4,6)=-2.0*(4.0*F4-31.0*F3+65.0*F2+112.0*F-420.0) UMKAY162 C8(4,7)=3.0*(F4-14.0*F3+95.0*F2-322.0*F+420.0) UMKAY163 C8(5,4)=6.0*C8(4,5) UMKAY164 C8(6,4)=8.0*C8(4,6) UMKAY165 C8(7,4)=3.0*C8(4,7) UMKAY166 C8(5,5)=F5-F4-94.0*F3+868.0*F2-2952.0*F+3528.0 UMKAY167 C8(5,6)=3.0*(2.0*F4-7.0*F3-57.0*F2+380.0*F-588.0) UMKAY168 1 DIMENSIONX(1000),D(100),D2(100),D3(100),D4(100),D5(100),D6(100),D7 12/01/64 PAGE 4 C8(5,7)=-6.0*(F4-16.0*F3+104.0*F2-305.0*F+336.0) UMKAY169 C8(6,5)=4.0*C8(5,6)/3.0 UMKAY170 C8(7,5)=C8(5,7)/2.0 UMKAY171 C8(6,6)=F5-12.0*F4+63.0*F3-52.0*F2-536.0*F+1176.0 UMKAY172 C8(6,7)=-8.0*(3.0*F3-33.0*F2+128.0*F-168.0) UMKAY173 C8(7,6)=3.0*C8(6,7)/8.0 UMKAY174 C8(7,7)=F4-18.0*F3+125.0*F2-384.0*F+441.0 UMKAY175 B2=S2*C211/FF2 UMKAY176 B3=S3*C311/FF3 UMKAY177 B4=(S4*C411+S2**2*C421)/FF4 UMKAY178 B22=(S4*C412+S2**2*C422)/FF4 UMKAY179 B5=(S5*C511+S3*S2*C521)/FF5 UMKAY180 B32=(S5*C512+S3*S2*C522)/FF5 UMKAY181 DO 50 J=1,4 UMKAY182 50 B6(J)=(S6*C6(1,J)+S4*S2*C6(2,J)+S3**2*C6(3,J)+S2**3*C6(4,J))/FF6 UMKAY183 DO 60 J=1,4 UMKAY184 60 B7(J)=(S7*C7(1,J)+S5*S2*C7(2,J)+S4*S3*C7(3,J)+S3*S2**2*C7(4,J)) UMKAY185 1/FF7 UMKAY186 DO 70 J=1,7 UMKAY187 70 B8(J)=(S8*C8(1,J)+S6*S2*C8(2,J)+S5*S3*C8(3,J)+S4**2*C8(4,J)+S4*S2 UMKAY188 1**2*C8(5,J)+S3**2*S2*C8(6,J)+S2**4*C8(7,J))/FF8 UMKAY189 B22A=B2*B2 UMKAY190 B22B=B4/F+(F+1.0)*B22/(F-1.0) UMKAY191 B32A=B3*B2 UMKAY192 B32B=B5/F+(F+5.0)*B32/(F-1.0) UMKAY193 B33A=B3*B3 UMKAY194 B33B=B6(1)/F+9.0*B6(2)/(F-1.0)+(F+8.0)*B6(3)/(F-1.0)+6.0*F*B6(4)/ UMKAY195 1((F-1.0)*(F-2.0)) UMKAY196 B43A=B4*B3 UMKAY197 B43B=B7(1)/F+12.0*B7(2)/(F-1.0)+(F+29.0)*B7(3)/(F-1.0)+36.0*F*B7(4UMKAY198 1)/((F-1.0)*(F-2.0)) UMKAY199 B44A=B4*B4 UMKAY200 B44B=B8(1)/F+16.0*B8(2)/(F-1.0)+48.0*B8(3)/(F-1.0)+(F+33.0)*B8(4)/UMKAY201 1(F-1.0)+72.0*F*B8(5)/((F-1.0)*(F-2.0))+144.0*F*B8(6)/((F-1.0)*(F-2UMKAY202 2.0))+24.0*F*(F+1.0)*B8(7)/((F-1.0)*(F-2.0)*(F-3.0)) UMKAY203 WRITE OUTPUT TAPE 6,80 UMKAY204 80 FORMAT(1H1,26H POWER SUMS OF DEVIATES) UMKAY205 WRITE OUTPUT TAPE 6,85,S2,S3,S4,S5,S6,S7,S8 UMKAY206 85 FORMAT(1H0,4E25.8/1H0,3E25.8) UMKAY207 WRITE OUTPUT TAPE 6,90 UMKAY208 90 FORMAT(1H6,25H DRESSELS COEFFICIENTS) UMKAY209 WRITE OUTPUT TAPE 6,95,C211,C311,C411,C421,C412,C422,C511,C521,C51UMKAY210 12,C522 UMKAY211 95 FORMAT(1H-,E25.8/1H-,E25.8/1H-,2E25.8/1H0,2E25.8/1H-,2E25.8/1H0,2EUMKAY212 125.8//) UMKAY213 WRITEOUTPUTTAPE6,100,((C6(I,J),I=1,4),J=1,4) UMKAY214 100 FORMAT(1H0,4E25.8) UMKAY215 WRITE OUTPUT TAPE 6,105,((C7(I,J),I=1,4),J=1,4) UMKAY216 105 FORMAT(1H-,4E25.8/(1H0,4E25.8)) UMKAY217 WRITE OUTPUT TAPE 6,110,((C8(I,J),I=1,7),J=1,7) UMKAY218 110 FORMAT(1H-,4E25.8/1H0,3E25.8) UMKAY219 WRITE OUTPUT TAPE 6,115 UMKAY220 115 FORMAT(1H6,16H K STATISTICS) UMKAY221 WRITE OUTPUT TAPE 6,120,B1,B2,B3 UMKAY222 120 FORMAT(1H0,13H K1= E16.8/1H0,13H K2= E16.8/1H0,13HUMKAY223 1 K3= E16.8) UMKAY224 1 DIMENSIONX(1000),D(100),D2(100),D3(100),D4(100),D5(100),D6(100),D7 12/01/64 PAGE 5 WRITE OUTPUT TAPE 6,122,B4,B22 UMKAY225 122 FORMAT(1H0,13H K4= E16.8,11H K22= E16.8) UMKAY226 WRITE OUTPUT TAPE 6,124,B5,B32 UMKAY227 124 FORMAT(1H0,13H K5= E16.8,11H K32= E16.8) UMKAY228 WRITE OUTPUT TAPE 6,126,(B6(J),J=1,4) UMKAY229 126 FORMAT(1H0,13H K6= E16.8,11H K42= E16.8,11H K33= UMKAY230 1 E16.8,11H K222= E16.8) UMKAY231 WRITE OUTPUT TAPE 6,128,(B7(J),J=1,4) UMKAY232 128 FORMAT(1H0,13H K7= E16.8,11H K52= E16.8,11H K43= UMKAY233 1 E16.8,11H K322= E16.8) UMKAY234 WRITE OUTPUT TAPE 6,130,(B8(J),J=1,7) UMKAY235 130 FORMAT(1H0,13H K8= E16.8,11H K62= E16.8,11H K53= UMKAY236 1 E16.8,11H K44= E16.8/1H0,13H K422= E16.8,11H K332=UMKAY237 2 E16.8,11H K2222=E16.8///) UMKAY238 WRITE OUTPUT TAPE 6,135 UMKAY239 135 FORMAT(1H0,10H CHECKS/) UMKAY240 WRITEOUTPUTTAPE6,140,B22A,B22B,B32A,B32B,B33A,B33B,B43A,B43B,B44A,UMKAY241 1B44B UMKAY242 140 FORMAT(1H0,2E25.8) UMKAY243 F(1)=F UMKAY244 150 DO 160 I=1,2 UMKAY245 R=F(I) UMKAY246 SP41(I)=B4/R+(R+1.0)*B22/(R-1.0) UMKAY247 SP51(I)=B5/R+(R+5.0)*B32/(R-1.0) UMKAY248 SP61(I)=B6(1)/R+(R+7.0)*B6(2)/(R-1.0)+6.0*B6(3)/(R-1.0) UMKAY249 SP62(I)=B6(1)/R+9.0*B6(2)/(R-1.0)+(R+8.0)*B6(3)/(R-1.0)+6.0*R*B6(4UMKAY250 1)/((R-1.0)*(R-2.0)) UMKAY251 SP63(I)=B6(1)/R**2+3.0*(R+3.0)*B6(2)/(R*(R-1.0))+4.0*(R-2.0)*B6(3)UMKAY252 2/(R*(R-1.0)**2)+(R+1.0)*(R+3.0)*B6(4)/(R-1.0)**2 UMKAY253 SP64(I)=2.0*B6(2)/R-2.0*B6(3)/(R*(R-1.0))+(R+3.0)*B6(4)/(R-1.0) UMKAY254 SP71(I)=B7(1)/R+(R+9.0)*B7(2)/(R-1.0)+20.0*B7(3)/(R-1.0) UMKAY255 SP72(I)=B7(1)/R+12.0*B7(2)/(R-1.0)+(R+29.0)*B7(3)/(R-1.0)+36.0*R*BUMKAY256 27(4)/((R-1.0)*(R-2.0)) UMKAY257 SP73(I)=B7(2)/R+(R-3.0)*B7(3)/(R*(R-1.0))+(R+7.0)*B7(4)/(R-1.0) UMKAY258 SP74(I)=2.0*B7(2)/R-6.0*B7(3)/(R*(R-1.0))+(R**2+9.0*R-34.0)*B7(4)/UMKAY259 1((R-1.0)*(R-2.0)) UMKAY260 SP81(I)=B8(1)/R+(R+11.0)*B8(2)/(R-1.0)+30.0*B8(3)/(R-1.0)+20.0*B8(UMKAY261 14)/(R-1.0) UMKAY262 SP82(I)=B8(1)/R+16.0*B8(2)/(R-1.0)+48.0*B8(3)/(R-1.0)+(R+33.0)*B8(UMKAY263 14)/(R-1.0)+72.0*R*B8(5)/((R-1.0)*(R-2.0))+144.0*R*B8(6)/((R-1.0)*(UMKAY264 2R-2.0))+24.0*R*(R+1.0)*B8(7)/((R-1.0)*(R-2.0)*(R-3.0)) UMKAY265 SP83(I)=B8(1)/R**2+2.0*(R+9.0)*B8(2)/(R*(R-1.0))+8.0*(5.0*R-7.0)*BUMKAY266 18(3)/(R*(R-1.0)**2)+(R**2+26.0*R-39.0)*B8(4)/(R*(R-1.0)**2)+(R+7.0UMKAY267 2)*(R+9.0)*B8(5)/((R-1.0)**2)+12.0*(R+9.0)*B8(6)/((R-1.0)**2) UMKAY268 SP84(I)=B8(1)/R**2+(R+20.0)*B8(2)/(R*(R-1.0))+2.0*(R**2+22.0*R-32.UMKAY269 10)*B8(3)/(R*(R-1.0)**2)+9.0*(3.0*R-5.0)*B8(4)/(R*(R-1.0)**2)+9.0*(UMKAY270 2R**2+9.0*R-20.0)*B8(5)/((R-1.0)**2*(R-2.0))+(R**3+17.0*R**2+104.0*UMKAY271 3R-320.0)*B8(6)/((R-1.0)**2*(R-2.0))+6.0*R*(R+5.0)*B8(7)/((R-1.0)**UMKAY272 42*(R-2.0)) UMKAY273 SP85(I)=B8(1)/R**3+4.0*(R+5.0)*B8(2)/(R**2*(R-1.0))+32.0*(R-2.0)*BUMKAY274 18(3)/(R**2*(R-1.0)**2)+(3.0*R**3+23.0*R**2-63.0*R+45.0)*B8(4)/((R-UMKAY275 21.0)**3*R**2)+6.0*(R+3.0)*(R+5.0)*B8(5)/(R*(R-1.0)**2)+16.0*(R-2.0UMKAY276 3)*(R+5.0)*B8(6)/(R*(R-1.0)**3)+(R+1.0)*(R+3.0)*(R+5.0)*B8(7)/((R-1UMKAY277 4.0)**3) UMKAY278 SP86(I)=B8(2)/R-2.0*B8(3)/(R*(R-1.0))+B8(4)/R+(R+9.0)*B8(5)/(R-1.0UMKAY279 1)+6.0*B8(6)/(R-1.0) UMKAY280 1 DIMENSIONX(1000),D(100),D2(100),D3(100),D4(100),D5(100),D6(100),D7 12/01/64 PAGE 6 SP87(I)=2.0*B8(2)/R-8.0*B8(3)/(R*(R-1.0))-6.0*B8(4)/(R*(R-1.0))+(RUMKAY281 1**2+13.0*R-54.0)*B8(5)/((R-1.0)*(R-2.0))+12.0*(R-6.0)*B8(6)/((R-1.UMKAY282 20)*(R-2.0))-24.0*B8(7)/((R-2.0)*(R-3.0)) UMKAY283 SP88(I)=2.0*B8(3)/R-2.0*B8(4)/(R*(R-1.0))+(R+11.0)*B8(6)/(R-1.0) UMKAY284 SP89(I)=B8(2)/R+(R-4.0)*B8(3)/(R*(R-1.0))-3.0*B8(4)/(R*(R-1.0))+3.UMKAY285 10*(3.0*R-8.0)*B8(5)/((R-1.0)*(R-2.0))+(R**2+12.0*R-46.0)*B8(6)/((RUMKAY286 2-1.0)*(R-2.0))+6.0*R*B8(7)/((R-1.0)*(R-2.0)) UMKAY287 SP810(I)=3.0*B8(5)/R-6.0*B8(6)/(R*(R-1.0))+(R+5.0)*B8(7)/(R-1.0) UMKAY288 SP812(I)=2.0*B8(4)/(R*(R-1.0))+4.0*B8(5)/(R-2.0)-8.0*(R-4.0)*B8(6)UMKAY289 1/(R*(R-1.0)*(R-2.0))+(R**4+2.0*R**3-21.0*R**2+18.0*R+24.0)*B8(7)/ UMKAY290 2(R*(R-1.0)*(R-2.0)*(R-3.0)) UMKAY291 160 SP811(I)=2.0*B8(2)/R**2-8.0*B8(3)/(R**2*(R-1.0))+2.0*(R**2-2.0*R+3UMKAY292 1.0)*B8(4)/(R**2*(R-1.0)**2)+(5.0*R+27.0)*B8(5)/(R*(R-1.0))+4.0*(R-UMKAY293 213.0)*B8(6)/(R*(R-1.0)**2)+(R+3.0)*(R+5.0)*B8(7)/(R-1.0)**2 UMKAY294 SP41(3)=B2**2 UMKAY295 SP51(3)=B3*B2 UMKAY296 SP61(3)=B4*B2 UMKAY297 SP62(3)=B3**2 UMKAY298 SP63(3)=B2**3 UMKAY299 SP64(3)=B22*B2 UMKAY300 SP71(3)=B5*B2 UMKAY301 SP72(3)=B4*B3 UMKAY302 SP73(3)=B32*B2 UMKAY303 SP74(3)=B3*B22 UMKAY304 SP81(3)=B6(1)*B2 UMKAY305 SP82(3)=B4*B4 UMKAY306 SP83(3)=B4*B2**2 UMKAY307 SP84(3)=B2*B3**2 UMKAY308 SP85(3)=B2**4 UMKAY309 SP86(3)=B6(2)*B2 UMKAY310 SP87(3)=B4*B22 UMKAY311 SP88(3)=B6(3)*B2 UMKAY312 SP89(3)=B32*B3 UMKAY313 SP810(3)=B6(4)*B2 UMKAY314 SP811(3)=B22*B2**2 UMKAY315 SP812(3)=B22*B22 UMKAY316 WRITE OUTPUT TAPE 6,178 UMKAY317 178 FORMAT(1H0,10H CHECKS/) UMKAY318 WRITE OUTPUT TAPE 6,180,SP41(3),SP41(1),SP51(3),SP51(1),SP61(3), UMKAY319 1SP61(1),SP62(3),SP62(1),SP63(3),SP63(1) UMKAY320 WRITE OUTPUT TAPE 6,180,SP64(3),SP64(1),SP71(3),SP71(1),SP72(3), UMKAY321 1SP72(1),SP73(3),SP73(1),SP74(3),SP74(1) UMKAY322 WRITE OUTPUT TAPE 6,180,SP81(3),SP81(1),SP82(3),SP82(1),SP83(3), UMKAY323 1SP83(1),SP84(3),SP84(1),SP85(3),SP85(1) UMKAY324 WRITE OUTPUT TAPE 6,180,SP86(3),SP86(1),SP87(3),SP87(1),SP88(3), UMKAY325 1SP88(1),SP89(3),SP89(1),SP810(3),SP810(1),SP811(3),SP811(1) UMKAY326 2,SP812(3),SP812(1) UMKAY327 180 FORMAT(1H0,2E25.8) UMKAY328 WRITE OUTPUT TAPE 6,185 UMKAY329 185 FORMAT(1H-,25H SUBSTITUTION PRODUCTS/) UMKAY330 WRITE OUTPUT TAPE 6,190,SP41(2),SP51(2),SP61(2),SP62(2),SP63(2) UMKAY331 WRITE OUTPUT TAPE 6,191,SP64(2),SP71(2),SP72(2),SP73(2),SP74(2) UMKAY332 WRITE OUTPUT TAPE 6,192,SP81(2),SP82(2),SP83(2),SP84(2),SP85(2) UMKAY333 WRITE OUTPUT TAPE 6,223,SP86(2),SP87(2),SP88(2),SP89(2),SP810(2) UMKAY334 WRITE OUTPUT TAPE 6,194,SP811(2) UMKAY335 WRITE OUTPUT TAPE 6,225,SP812(2) UMKAY336 1 DIMENSIONX(1000),D(100),D2(100),D3(100),D4(100),D5(100),D6(100),D7 12/01/64 PAGE 7 225 FORMAT(1H0,15H K22K22= E16.8) UMKAY337 190 FORMAT(1H0,15H K2K2= E16.8/1H0,15H K3K2= E16.8/1H0UMKAY338 1,15H K4K2= E16.8/1H0,15H K3K3= E16.8/1H0,15H UMKAY339 2K2K2K2= E16.8) UMKAY340 191 FORMAT(1H0,15H K22K2= E16.8/1H0,15H K5K2= E16.8/1H0UMKAY341 1,15H K4K3= E16.8/1H0,15H K32K2= E16.8/1H0,15H UMKAY342 2K3K22= E16.8) UMKAY343 192 FORMAT(1H0,15H K6K2= E16.8/1H0,15H K4K4= E16.8/1H0UMKAY344 1,15H K4K2K2= E16.8/1H0,15H K3K3K2= E16.8/1H0,15H UMKAY345 2K2K2K2K2=E16.8) UMKAY346 223 FORMAT(1H0,15H K42K2= E16.8/1H0,15H K4K22= E16.8/1H0UMKAY347 1,15H K33K2= E16.8/1H0,15H K3K32= E16.8/1H0,15H UMKAY348 2K222K2= E16.8) UMKAY349 194 FORMAT(1H0,15H K22K2K2= E16.8) UMKAY350 IF (LOP-1) 193,203,203 UMKAY351 193 EX5=SP41(2)-B2**2 UMKAY352 EX6=SP51(2)-B2*B3 UMKAY353 EX7=SP61(2)-B2*B4 UMKAY354 EX8=SP62(2)-B3**2 UMKAY355 EX9=SP72(2)-B3*B4 UMKAY356 EX10=SP82(2)-B4**2 UMKAY357 EX13=SP63(2)-3.0*SP41(2)*B2+2.0*B2**3 UMKAY358 EX14=SP85(2)-4.0*SP63(2)*B2+6.0*SP41(2)*B2**2-3.0*B2**4 UMKAY359 EX1=(1.0/F(2)-1.0/F(1))*B2 UMKAY360 EX11=(1.0/F(2)-1.0/F(1))*(1.0/F(2)-2.0/F(1))*B3 UMKAY361 EX12=(1.0/F(2)**3-4.0/(F(2)**2*F(1))+6.0/(F(2)*F(1)**2)-3.0/(F(1)*UMKAY362 1*3))*B4+3.0*(1.0/F(2)**2-2.0/(F(2)*F(1))+1.0/F(1)**2)*B22 UMKAY363 EX2=(1.0/F(2)-1.0/F(1))*B3 UMKAY364 EX3=(1.0/F(2)-1.0/F(1))*B4 UMKAY365 EX4=(1.0/F(2)-1.0/F(1))*B5 UMKAY366 WRITE OUTPUT TAPE 6,195 UMKAY367 195 FORMAT(1H6,27H MOMENTS OF K STATISTICS) UMKAY368 WRITE OUTPUT TAPE 6,200,EX1,EX2,EX3,EX4,EX5,EX6,EX7,EX8,EX9,EX10,EUMKAY369 1X11,EX12,EX13,EX14 UMKAY370 200 FORMAT(1H0,13H M11= E16.8,11H M12= E16.8,11H M13= UMKAY371 1 E16.8,11H M14= E16.8/1H0,29X,11H M22= E16.8,11H M23UMKAY372 2= E16.8,11H M24= E16.8/1H0,56X,11H M33= E16.8,11H MUMKAY373 334= E16.8/1H0,83X,11H M44= E16.8/1H0,13H M111= E16.8,1UMKAY374 41H M1111=E16.8,11H M222= E16.8,11H M2222=E16.8) UMKAY375 GO TO 4 UMKAY376 203 ES5=B2**2-SP41(2) UMKAY377 ES8=B3**2-SP62(2) UMKAY378 ES10=B4**2-SP82(2) UMKAY379 ES6=B2*B3-SP51(2) UMKAY380 ES7=B2*B4-SP61(2) UMKAY381 ES9=B3*B4-SP72(2) UMKAY382 ES13=B2**3-3.0*SP61(2)/F-3.0*(F+1.0)*SP64(2)/(F-1.0)+2.0*SP63(2) UMKAY383 ES14=B2**4-4.0*SP81(2)/F**2-12.0*(F+3.0)*SP86(2)/(F*(F-1.0))-16.0*UMKAY384 1(F-2.0)*SP88(2)/(F*(F-1.0)**2)-4.0*(F+1.0)*(F+3.0)*SP810(2)/(F-1.0UMKAY385 2)**2+6.0*SP83(2)/F+6.0*(F+1.0)*SP811(2)/(F-1.0)-3.0*SP85(2) UMKAY386 ES1=(1.0/F(1)-1.0/F(2))*B2 UMKAY387 ES11=(1.0/F(1)-1.0/F(2))*(1.0/F(1)-2.0/F(2))*B3 UMKAY388 ES12=(1.0/F(1)**3-4.0/(F(1)**2*F(2))+6.0/(F(1)*F(2)**2)-3.0/(F(2)*UMKAY389 1*3))*B4+3.0*(1.0/F(1)**2-2.0/(F(1)*F(2))+1.0/(F(2)**2))*B22 UMKAY390 ES2=(1.0/F(1)-1.0/F(2))*B3 UMKAY391 ES3=(1.0/F(1)-1.0/F(2))*B4 UMKAY392 1 DIMENSIONX(1000),D(100),D2(100),D3(100),D4(100),D5(100),D6(100),D7 12/01/64 PAGE 8 ES4=(1.0/F(1)-1.0/F(2))*B5 UMKAY393 WRITE OUTPUT TAPE 6,205 UMKAY394 205 FORMAT(1H6,37H ESTIMATED MOMENTS OF K STATISTICS) UMKAY395 WRITE OUTPUT TAPE 6,210,ES1,ES2,ES3,ES4,ES5,ES6,ES7,ES8,ES9,ES10,EUMKAY396 1S11,ES12,ES13,ES14 UMKAY397 210 FORMAT(1H0,13H M11= E16.8,11H M12= E16.8,11H M13= UMKAY398 1 E16.8,11H M14= E16.8/1H0,29X,11H M22= E16.8,11H M23UMKAY399 2= E16.8,11H M24= E16.8/1H0,56X,11H M33= E16.8,11H MUMKAY400 334= E16.8/1H0,83X,11H M44= E16.8/1H0,13H M111= E16.8,1UMKAY401 41H M1111=E16.8,11H M222= E16.8,11H M2222=E16.8) UMKAY402 GO TO 4 UMKAY403 END(1,1,0,0,0,0,1,0,0,1,0,0,0,0,0) 1 DIMENSIONX(1000),D(100),D2(100),D3(100),D4(100),D5(100),D6(100),D7 12/01/64 PAGE 9 | | 0 STORAGE NOT USED BY PROGRAM | 0 DEC OCT DEC OCT | 6176 14040 32561 77461 0 STORAGE LOCATIONS FOR VARIABLES APPEARING IN DIMENSION AND EQUIVALENCE STATEMENTS | 0 DEC OCT DEC OCT DEC OCT DEC OCT DEC OCT | B6 4275 10263 B7 4271 10257 B8 4267 10253 C6 4180 10124 C7 4164 10104 | C8 4148 10064 D2 5075 11723 D3 4975 11557 D4 4875 11413 D5 4775 11247 | D6 4675 11103 D7 4575 10737 D8 4475 10573 D 5175 12067 FMT 4192 10140 FR 4375 10427 F 4197 10145 SP41 4260 10244 SP51 4257 10241 SP61 4254 10236 | SP62 4251 10233 SP63 4248 10230 SP64 4245 10225 SP71 4242 10222 SP72 4239 10217 | SP73 4236 10214 SP74 4233 10211 SP810 4203 10153 SP811 4200 10150 SP812 4195 10143 | SP81 4230 10206 SP82 4227 10203 SP83 4224 10200 SP84 4221 10175 SP85 4218 10172 | SP86 4215 10167 SP87 4212 10164 SP88 4209 10161 SP89 4206 10156 X 6175 14037 0 STORAGE LOCATIONS FOR VARIABLES NOT APPEARING IN COMMON, DIMENSION, OR EQUIVALENCE STATEMENT | 0 DEC OCT DEC OCT DEC OCT DEC OCT DEC OCT | AV 4099 10003 B1 4098 10002 B22A 4097 10001 B22B 4096 10000 B22 4095 07777 | B2 4094 07776 B32A 4093 07775 B32B 4092 07774 B32 4091 07773 B33A 4090 07772 | B33B 4089 07771 B3 4088 07770 B43A 4087 07767 B43B 4086 07766 B44A 4085 07765 B44B 4084 07764 B4 4083 07763 B5 4082 07762 C211 4081 07761 C311 4080 07760 | C411 4079 07757 C412 4078 07756 C421 4077 07755 C422 4076 07754 C511 4075 07753 | C512 4074 07752 C521 4073 07751 C522 4072 07750 D1 4071 07747 ES10 4070 07746 | ES11 4069 07745 ES12 4068 07744 ES13 4067 07743 ES14 4066 07742 ES1 4065 07741 | ES2 4064 07740 ES3 4063 07737 ES4 4062 07736 ES5 4061 07735 ES6 4060 07734 ES7 4059 07733 ES8 4058 07732 ES9 4057 07731 EX10 4056 07730 EX11 4055 07727 | EX12 4054 07726 EX13 4053 07725 EX14 4052 07724 EX1 4051 07723 EX2 4050 07722 | EX3 4049 07721 EX4 4048 07720 EX5 4047 07717 EX6 4046 07716 EX7 4045 07715 | EX8 4044 07714 EX9 4043 07713 F2 4042 07712 F3 4041 07711 F4 4040 07710 | F5 4039 07707 F6 4038 07706 F7 4037 07705 F8 4036 07704 FF2 4035 07703 FF3 4034 07702 FF4 4033 07701 FF5 4032 07700 FF6 4031 07677 FF7 4030 07676 | FF8 4029 07675 LOP 4028 07674 LUG 4027 07673 M 4026 07672 N 4025 07671 | R 4024 07670 S2 4023 07667 S3 4022 07666 S4 4021 07665 S5 4020 07664 | S6 4019 07663 S7 4018 07662 S8 4017 07661 SX 4016 07660 | 0 SYMBOLS AND LOCATIONS FOR SOURCE PROGRAM FORMAT STATEMENTS 0 EFN LOC EFN LOC EFN LOC EFN LOC EFN LOC | 8)1 1 07622 8)2 2 07630 8)3 3 07625 8)6 6 07627 8)2G 80 07617 | 8)2L 85 07611 8)2Q 90 07605 8)2V 95 07577 8)34 100 07563 8)39 105 07561 | 8)3E 110 07554 8)3J 115 07550 8)3O 120 07543 8)3Q 122 07525 8)3S 124 07515 | 8)3U 126 07505 8)40 128 07466 8)42 130 07447 8)47 135 07415 8)4C 140 07411 8)5I 178 07407 8)5K 180 07403 8)5P 185 07401 8)5U 190 07366 8)5V 191 07336 | 8)60 192 07306 8)62 194 07226 8)63 195 07221 8)68 200 07213 8)6D 205 07126 | 8)6I 210 07116 8)6V 223 07256 8)71 225 07373 | 0 LOCATIONS FOR OTHER SYMBOLS NOT APPEARING IN SOURCE PROGRAM | 0 DEC OCT DEC OCT DEC OCT DEC OCT DEC OCT 1) 3993 07631 2) 3478 06626 3) 3485 06635 4) 32767 77777 6) 3604 07024 | 1 DIMENSIONX(1000),D(100),D2(100),D3(100),D4(100),D5(100),D6(100),D7 12/01/64 PAGE 10 | | 0 LOCATIONS OF NAMES IN TRANSFER VECTOR | 0 DEC OCT DEC OCT DEC OCT DEC OCT DEC OCT (FIL) 4 00004 (FPT) 0 00000 (RTN) 2 00002 (STH) 3 00003 (TSH) 1 00001 | 0 ENTRY POINTS TO SUBROUTINES NOT OUTPUT FROM LIBRARY | | (FIL) (FPT) (RTN) (STH) (TSH) | 0 EXTERNAL FORMULA NUMBERS WITH CORRESPONDING INTERNAL FORMULA NUMBERS AND OCTAL LOCATIONS 0 EFN IFN LOC EFN IFN LOC EFN IFN LOC EFN IFN LOC EFN IFN LOC | 4 36 00012 8 48 00046 25 62 00114 30 80 00203 5 82 00211 | 10 96 00260 15 107 00322 20 115 00362 35 116 00370 50 228 02476 | 60 230 02533 70 232 02571 150 299 03410 160 322 05113 193 368 05633 | 203 386 06201 1 DIMENSIONX(1000),D(100),D2(100),D3(100),D4(100),D5(100),D6(100),D7 12/01/64 PAGE 11 | | 00000 (FPT) BCD 1(FPT) 54A BSS 00156 73A LDQ D1 | 00001 (TSH) BCD 1(TSH) 00070 TSX (RTN),4 00157 FMP D7 | 00002 (RTN) BCD 1(RTN) 00071 55A CAL 2) 00160 STO D8 00003 (STH) BCD 1(STH) 00072 TSX (TSH),4 00161 74A CLA S2 | 00004 (FIL) BCD 1(FIL) 00073 PZE FMT 00162 FAD D2 | 00005 $$ CLA 2 00074 56A LXD 2)+1,1 00163 STO S2 | 00006 STO 6)+5 00075 CLA N 00164 75A CLA S3 | 00007 CLA (FPT) 00076 STD 57A2 00165 FAD D3 00010 STO 8 00077 57A STR 00166 STO S3 | 00011 STZ 4)-205 00100 STQ X+1,1 00167 76A CLA S4 | 00012 36A CAL 2) 00101 57A1 TXI *+1,1,1 00170 FAD D4 | 00013 TSX (TSH),4 00102 57A2 TXL 57A,1 00171 STO S4 | 00014 PZE 8)2 59A BSS 00172 77A CLA S5 00015 37A STR 00103 TSX (RTN),4 00173 FAD D5 | 00016 STQ LUG 00104 60A CLA N 00174 STO S5 | 00017 TSX (RTN),4 00105 LRS 18 00175 78A CLA S6 | 00020 38A CLA 3) 00106 ORA 6) 00176 FAD D6 | 00021 STO F 00107 FAD 6) 00177 STO S6 00022 39A CLA 3) 00110 STO F 00200 79A CLA S7 | 00023 STO SX 00111 61A LXD 2)+1,1 00201 FAD D7 | 00024 40A CLA 3) 00112 CLA N 00202 STO S7 | 00025 STO S2 00113 STD 62A2 00203 80A CLA S8 | 00026 41A CLA 3) 00114 62A CLA SX 00204 FAD D8 00027 STO S3 00115 FAD X+1,1 00205 STO S8 | 00030 42A CLA 3) 00116 STO SX 00206 80A1 TXI *+1,1,1 | 00031 STO S4 00117 62A1 TXI *+1,1,1 00207 80A2 TXL 66A,1 | 00032 43A CLA 3) 00120 62A2 TXL 62A,1 00210 81A TRA 116A | 00033 STO S5 00121 63A CLA SX 00211 82A CAL 2) 00034 44A CLA 3) 00122 FDP F 00212 TSX (TSH),4 | 00035 STO S6 00123 STQ AV 00213 PZE 8)1 | 00036 45A CLA 3) 00124 64A CLA AV 00214 83A STR | 00037 STO S7 00125 STO B1 00215 STQ M | 00040 46A CLA 3) 00126 65A LXD 2)+1,1 00216 STR 00041 STO S8 00127 CLA N 00217 STQ F-1 | 00042 47A CLA LUG 00130 STD 80A2 00220 STR | 00043 SUB 2)+1 00131 66A CLA X+1,1 00221 STQ LOP | 00044 47A1 TZE 48A 00132 FSB AV 00222 TSX (RTN),4 | 00045 TPL 82A 00133 STO D1 00223 84A CAL 2) 00046 48A CAL 2) 00134 67A LDQ D1 00224 TSX (TSH),4 | 00047 TSX (TSH),4 00135 FMP D1 00225 PZE 8)6 | 00050 PZE 8)3 00136 STO D2 00226 85A LXD 2)+1,1 | 00051 49A STR 00137 68A LDQ D1 00227 86A STR | 00052 STQ N 00140 FMP D2 00230 STQ FMT+1,1 00053 STR 00141 STO D3 00231 86A1 TXI *+1,1,1 | 00054 STQ F-1 00142 69A LDQ D1 00232 86A2 TXL 86A,1,12 | 00055 STR 00143 FMP D3 88A BSS | 00056 STQ LOP 00144 STO D4 00233 TSX (RTN),4 | 00057 TSX (RTN),4 00145 70A LDQ D1 00234 89A CAL 2) 00060 50A CAL 2) 00146 FMP D4 00235 TSX (TSH),4 | 00061 TSX (TSH),4 00147 STO D5 00236 PZE FMT | 00062 PZE 8)6 00150 71A LDQ D1 00237 90A LXD 2)+1,1 | 00063 51A LXD 2)+1,1 00151 FMP D5 00240 CLA M | 00064 52A STR 00152 STO D6 00241 STD 91A2 00065 STQ FMT+1,1 00153 72A LDQ D1 00242 91A STR | 00066 52A1 TXI *+1,1,1 00154 FMP D6 00243 STQ X+1,1 | 00067 52A2 TXL 52A,1,12 00155 STO D7 00244 STR | 1 DIMENSIONX(1000),D(100),D2(100),D3(100),D4(100),D5(100),D6(100),D7 12/01/64 PAGE 12 | 00245 STQ FR+1,1 00334 FAD S2 00424 FSB 3)+2 | 00246 91A1 TXI *+1,1,1 00335 STO S2 00425 STO 1)+1 | 00247 91A2 TXL 91A,1 00336 110A LDQ FR+1,1 00426 LDQ FF2 | 93A BSS 00337 FMP D3+1,1 00427 FMP 1)+1 | 00250 TSX (RTN),4 00340 FAD S3 00430 STO FF3 00251 94A LXD 2)+1,1 00341 STO S3 00431 125A CLA F | 00252 CLA M 00342 111A LDQ FR+1,1 00432 FSB 3)+3 | 00253 STD 96A2 00343 FMP D4+1,1 00433 STO 1)+1 | 00254 95A LDQ FR+1,1 00344 FAD S4 00434 LDQ FF3 | 00255 FMP X+1,1 00345 STO S4 00435 FMP 1)+1 00256 FAD SX 00346 112A LDQ FR+1,1 00436 STO FF4 | 00257 STO SX 00347 FMP D5+1,1 00437 126A CLA F | 00260 96A CLA F 00350 FAD S5 00440 FSB 3)+4 | 00261 FAD FR+1,1 00351 STO S5 00441 STO 1)+1 | 00262 STO F 00352 113A LDQ FR+1,1 00442 LDQ FF4 00263 96A1 TXI *+1,1,1 00353 FMP D6+1,1 00443 FMP 1)+1 | 00264 96A2 TXL 95A,1 00354 FAD S6 00444 STO FF5 | 00265 97A CLA SX 00355 STO S6 00445 127A CLA F | 00266 FDP F 00356 114A LDQ FR+1,1 00446 FSB 3)+5 | 00267 STQ AV 00357 FMP D7+1,1 00447 STO 1)+1 00270 98A CLA AV 00360 FAD S7 00450 LDQ FF5 | 00271 STO B1 00361 STO S7 00451 FMP 1)+1 | 00272 99A LXD 2)+1,1 00362 115A LDQ FR+1,1 00452 STO FF6 | 00273 CLA M 00363 FMP D8+1,1 00453 128A CLA F | 00274 STD 107A2 00364 FAD S8 00454 FSB 3)+6 00275 100A CLA X+1,1 00365 STO S8 00455 STO 1)+1 | 00276 FSB AV 00366 115A1 TXI *+1,1,1 00456 LDQ FF6 | 00277 STO D+1,1 00367 115A2 TXL 109A,1 00457 FMP 1)+1 | 00300 101A LDQ D+1,1 00370 116A LDQ F 00460 STO FF7 | 00301 FMP D+1,1 00371 FMP F 00461 129A CLA F 00302 STO D2+1,1 00372 STO F2 00462 FSB 3)+7 | 00303 102A LDQ D+1,1 00373 117A LDQ F 00463 STO 1)+1 | 00304 FMP D2+1,1 00374 FMP F2 00464 LDQ FF7 | 00305 STO D3+1,1 00375 STO F3 00465 FMP 1)+1 | 00306 103A LDQ D+1,1 00376 118A LDQ F 00466 STO FF8 00307 FMP D3+1,1 00377 FMP F3 00467 130A CLA F | 00310 STO D4+1,1 00400 STO F4 00470 STO C211 | 00311 104A LDQ D+1,1 00401 119A LDQ F 00471 131A CLA F2 | 00312 FMP D4+1,1 00402 FMP F4 00472 STO C311 | 00313 STO D5+1,1 00403 STO F5 00473 132A CLA F3 00314 105A LDQ D+1,1 00404 120A LDQ F 00474 FAD F2 | 00315 FMP D5+1,1 00405 FMP F5 00475 STO C411 | 00316 STO D6+1,1 00406 STO F6 00476 133A CLA F2 | 00317 106A LDQ D+1,1 00407 121A LDQ F 00477 FSB F | 00320 FMP D6+1,1 00410 FMP F6 00500 STO 1)+1 00321 STO D7+1,1 00411 STO F7 00501 LDQ 3)+3 | 00322 107A LDQ D+1,1 00412 122A LDQ F 00502 FMP 1)+1 | 00323 FMP D7+1,1 00413 FMP F7 00503 CHS | 00324 STO D8+1,1 00414 STO F8 00504 STO C421 | 00325 107A1 TXI *+1,1,1 00415 123A CLA F 00505 134A CLA F2 00326 107A2 TXL 100A,1 00416 FSB 3)+1 00506 FSB F | 00327 108A LXD 2)+1,1 00417 STO 1)+1 00507 STO 1)+1 | 00330 CLA M 00420 LDQ F 00510 LDQ 3)+1 | 00331 STD 115A2 00421 FMP 1)+1 00511 FMP 1)+1 | 00332 109A LDQ FR+1,1 00422 STO FF2 00512 CHS 00333 FMP D2+1,1 00423 124A CLA F 00513 STO C412 | 1 DIMENSIONX(1000),D(100),D2(100),D3(100),D4(100),D5(100),D6(100),D7 12/01/64 PAGE 13 | | 00514 135A LDQ 3)+3 00604 STO 1)+3 00674 LDQ 3)+5 | 00515 FMP F 00605 LDQ 3)+1 00675 FMP F2 00516 CHS 00606 FMP 1)+3 00676 STO 1)+2 | 00517 FAD F2 00607 CHS 00677 LDQ 3)+2 | 00520 FAD 3)+3 00610 STO C6-4 00700 FMP F3 | 00521 STO C422 00611 142A LDQ 3)+4 00701 FSB 1)+2 | 00522 136A LDQ 3)+5 00612 FMP F 00702 FSB 1)+1 00523 FMP F3 00613 STO 1)+1 00703 FAD 3)+14 | 00524 FAD F4 00614 LDQ 3)+5 00704 STO 1)+3 | 00525 STO C511 00615 FMP F2 00705 LDQ 3)+3 | 00526 137A CLA F3 00616 STO 1)+2 00706 FMP 1)+3 | 00527 FSB F2 00617 LDQ 3)+2 00707 STO C6-9 00530 STO 1)+1 00620 FMP F3 00710 149A LDQ 3)+14 | 00531 LDQ 3)+8 00621 CHS 00711 FMP F | 00532 FMP 1)+1 00622 FAD F4 00712 STO 1)+1 | 00533 CHS 00623 FAD 1)+2 00713 LDQ 3)+7 | 00534 STO C521 00624 FSB 1)+1 00714 FMP F2 00535 138A CLA F3 00625 STO 1)+3 00715 CHS | 00536 FSB F2 00626 LDQ 3)+1 00716 FAD F3 | 00537 STO 1)+1 00627 FMP 1)+3 00717 FAD 1)+1 | 00540 LDQ 3)+1 00630 CHS 00720 FSB 3)+14 | 00541 FMP 1)+1 00631 STO C6-8 00721 STO 1)+2 00542 CHS 00632 143A LDQ 3)+2 00722 LDQ 3)+3 | 00543 STO C512 00633 FMP F 00723 FMP 1)+2 | 00544 139A LDQ 3)+2 00634 STO 1)+1 00724 CHS | 00545 FMP F 00635 LDQ 3)+3 00725 STO C6-13 | 00546 STO 1)+1 00636 FMP F2 00726 150A CLA 3)+2 00547 LDQ 3)+2 00637 CHS 00727 FDP 3)+3 | 00550 FMP F2 00640 FAD F3 00730 FMP C6-9 | 00551 CHS 00641 FAD 1)+1 00731 STO C6-6 | 00552 FAD F3 00642 STO 1)+2 00732 151A CLA C6-13 | 00553 FAD 1)+1 00643 LDQ 3)+2 00733 STO C6-7 00554 STO C522 00644 FMP 1)+2 00734 152A LDQ 3)+8 | 00555 140A LDQ 3)+4 00645 STO C6-12 00735 FMP F | 00556 FMP F2 00646 144A LDQ 3)+11 00736 STO 1)+1 | 00557 STO 1)+1 00647 FMP C6-4 00737 LDQ 3)+16 | 00560 LDQ 3)+10 00650 STO C6-1 00740 FMP F2 00561 FMP F3 00651 145A LDQ 3)+8 00741 STO 1)+2 | 00562 STO 1)+2 00652 FMP C6-8 00742 LDQ 3)+15 | 00563 LDQ 3)+9 00653 STO C6-2 00743 FMP F3 | 00564 FMP F4 00654 146A LDQ 3)+11 00744 CHS | 00565 FAD F5 00655 FMP C6-12 00745 FAD F4 00566 FAD 1)+2 00656 STO C6-3 00746 FAD 1)+2 | 00567 FSB 1)+1 00657 147A LDQ 3)+12 00747 FSB 1)+1 | 00570 STO C6 00660 FMP F 00750 FSB 3)+17 | 00571 141A LDQ 3)+4 00661 STO 1)+1 00751 STO C6-10 | 00572 FMP F 00662 LDQ 3)+8 00752 153A LDQ 3)+11 00573 STO 1)+1 00663 FMP F2 00753 FMP F | 00574 LDQ 3)+7 00664 CHS 00754 STO 1)+1 | 00575 FMP F2 00665 FAD F4 00755 LDQ 3)+3 | 00576 STO 1)+2 00666 FAD 1)+1 00756 FMP F2 | 00577 LDQ 3)+2 00667 FSB 3)+13 00757 FSB 1)+1 00600 FMP F3 00670 STO C6-5 00760 FAD 3)+14 | 00601 FAD F4 00671 148A LDQ 3)+5 00761 STO 1)+2 | 00602 FSB 1)+2 00672 FMP F 00762 LDQ 3)+2 | 00603 FAD 1)+1 00673 STO 1)+1 00763 FMP 1)+2 | 1 DIMENSIONX(1000),D(100),D2(100),D3(100),D4(100),D5(100),D6(100),D7 12/01/64 PAGE 14 | 00764 CHS 01054 159A LDQ 3)+2 01144 FMP F | 00765 STO C6-14 01055 FMP F2 01145 STO 1)+1 | 00766 154A CLA 3)+3 01056 STO 1)+1 01146 LDQ 3)+32 | 00767 FDP 3)+2 01057 LDQ 3)+3 01147 FMP F2 00770 FMP C6-14 01060 FMP F3 01150 STO 1)+2 | 00771 STO C6-11 01061 CHS 01151 LDQ 3)+6 | 00772 155A LDQ 3)+19 01062 FAD F4 01152 FMP F3 | 00773 FMP F 01063 FAD 1)+1 01153 CHS | 00774 STO 1)+1 01064 STO 1)+2 01154 FAD F4 00775 LDQ 3)+18 01065 LDQ 3)+2 01155 FAD 1)+2 | 00776 FMP F2 01066 FMP 1)+2 01156 FSB 1)+1 | 00777 CHS 01067 STO C7-12 01157 STO 1)+3 | 01000 FAD F3 01070 160A LDQ 3)+26 01160 LDQ 3)+2 | 01001 FAD 1)+1 01071 FMP C7-4 01161 FMP 1)+3 01002 FSB 3)+20 01072 STO C7-1 01162 CHS | 01003 STO C6-15 01073 161A LDQ 3)+27 01163 STO C7-13 | 01004 156A LDQ 3)+21 01074 FMP C7-8 01164 166A CLA 3)+5 | 01005 FMP F3 01075 STO C7-2 01165 FDP 3)+3 | 01006 STO 1)+1 01076 162A LDQ 3)+28 01166 FMP C7-9 01007 LDQ 3)+22 01077 FMP C7-12 01167 STO C7-6 | 01010 FMP F4 01100 STO C7-3 01170 167A LDQ 3)+5 | 01011 STO 1)+2 01101 163A LDQ 3)+31 01171 FMP C7-13 | 01012 LDQ 3)+21 01102 FMP F 01172 STO C7-7 | 01013 FMP F5 01103 STO 1)+1 01173 168A LDQ 3)+20 01014 FAD F6 01104 LDQ 3)+30 01174 FMP F | 01015 FAD 1)+2 01105 FMP F2 01175 STO 1)+1 | 01016 FSB 1)+1 01106 STO 1)+2 01176 LDQ 3)+27 | 01017 STO C7 01107 LDQ 3)+29 01177 FMP F2 | 01020 157A LDQ 3)+25 01110 FMP F3 01200 STO 1)+2 01021 FMP F2 01111 STO 1)+3 01201 LDQ 3)+20 | 01022 STO 1)+1 01112 LDQ 3)+6 01202 FMP F3 | 01023 LDQ 3)+24 01113 FMP F4 01203 STO 1)+3 | 01024 FMP F3 01114 FAD F5 01204 LDQ 3)+6 | 01025 STO 1)+2 01115 FSB 1)+3 01205 FMP F4 01026 LDQ 3)+23 01116 FAD 1)+2 01206 CHS | 01027 FMP F4 01117 FSB 1)+1 01207 FAD F5 | 01030 FAD F5 01120 STO C7-5 01210 FAD 1)+3 | 01031 FSB 1)+2 01121 164A LDQ 3)+25 01211 FSB 1)+2 | 01032 FAD 1)+1 01122 FMP F 01212 FSB 1)+1 01033 STO 1)+3 01123 STO 1)+1 01213 STO C7-10 | 01034 LDQ 3)+1 01124 LDQ 3)+5 01214 169A LDQ 3)+14 | 01035 FMP 1)+3 01125 FMP F2 01215 FMP F | 01036 CHS 01126 STO 1)+2 01216 STO 1)+1 | 01037 STO C7-4 01127 LDQ 3)+8 01217 LDQ 3)+8 01040 158A LDQ 3)+6 01130 FMP F3 01220 FMP F2 | 01041 FMP F2 01131 STO 1)+3 01221 CHS | 01042 STO 1)+1 01132 LDQ 3)+3 01222 FSB F3 | 01043 LDQ 3)+5 01133 FMP F4 01223 FAD F4 | 01044 FMP F3 01134 FSB 1)+3 01224 FAD 1)+1 01045 FAD F5 01135 FAD 1)+2 01225 STO 1)+2 | 01046 FSB 1)+1 01136 FAD 1)+1 01226 LDQ 3)+1 | 01047 STO 1)+2 01137 STO 1)+4 01227 FMP 1)+2 | 01050 LDQ 3)+1 01140 LDQ 3)+3 01230 CHS | 01051 FMP 1)+2 01141 FMP 1)+4 01231 STO C7-14 01052 CHS 01142 STO C7-9 01232 170A LDQ 3)+3 | 01053 STO C7-8 01143 165A LDQ 3)+25 01233 FMP C7-14 | 1 DIMENSIONX(1000),D(100),D2(100),D3(100),D4(100),D5(100),D6(100),D7 12/01/64 PAGE 15 | | 01234 STO C7-11 01324 CHS 01414 LDQ 3)+2 01235 171A LDQ 3)+14 01325 STO C8-7 01415 FMP F4 | 01236 FMP F 01326 174A LDQ 3)+36 01416 FAD F5 | 01237 STO 1)+1 01327 FMP F 01417 FSB 1)+3 | 01240 LDQ 3)+26 01330 STO 1)+1 01420 FAD 1)+2 | 01241 FMP F2 01331 LDQ 3)+43 01421 FSB 1)+1 01242 STO 1)+2 01332 FMP F2 01422 STO 1)+4 | 01243 LDQ 3)+7 01333 STO 1)+2 01423 LDQ 3)+2 | 01244 FMP F3 01334 LDQ 3)+42 01424 FMP 1)+4 | 01245 CHS 01335 FMP F3 01425 STO C8-28 | 01246 FAD F4 01336 STO 1)+3 01426 177A LDQ 3)+23 01247 FAD 1)+2 01337 LDQ 3)+41 01427 FMP F | 01250 FSB 1)+1 01340 FMP F4 01430 STO 1)+1 | 01251 STO C7-15 01341 STO 1)+4 01431 LDQ 3)+14 | 01252 172A LDQ 3)+36 01342 LDQ 3)+18 01432 FMP F2 | 01253 FMP F2 01343 FMP F5 01433 STO 1)+2 01254 STO 1)+1 01344 FAD F6 01434 LDQ 3)+10 | 01255 LDQ 3)+35 01345 FSB 1)+4 01435 FMP F3 | 01256 FMP F3 01346 FAD 1)+3 01436 STO 1)+3 | 01257 STO 1)+2 01347 FSB 1)+2 01437 LDQ 3)+4 | 01260 LDQ 3)+34 01350 FAD 1)+1 01440 FMP F4 01261 FMP F4 01351 STO 1)+5 01441 CHS | 01262 STO 1)+3 01352 LDQ 3)+1 01442 FAD F5 | 01263 LDQ 3)+33 01353 FMP 1)+5 01443 FAD 1)+3 | 01264 FMP F5 01354 CHS 01444 FSB 1)+2 | 01265 STO 1)+4 01355 STO C8-14 01445 FAD 1)+1 01266 LDQ 3)+30 01356 175A LDQ 3)+36 01446 STO 1)+4 | 01267 FMP F6 01357 FMP F 01447 LDQ 3)+2 | 01270 FAD F7 01360 STO 1)+1 01450 FMP 1)+4 | 01271 FAD 1)+4 01361 LDQ 3)+46 01451 STO C8-35 | 01272 FAD 1)+3 01362 FMP F2 01452 178A LDQ 3)+6 01273 FSB 1)+2 01363 STO 1)+2 01453 FMP F | 01274 FAD 1)+1 01364 LDQ 3)+45 01454 STO 1)+1 | 01275 STO C8 01365 FMP F3 01455 LDQ 3)+10 | 01276 173A LDQ 3)+36 01366 STO 1)+3 01456 FMP F2 | 01277 FMP F 01367 LDQ 3)+44 01457 STO 1)+2 01300 STO 1)+1 01370 FMP F4 01460 LDQ 3)+6 | 01301 LDQ 3)+40 01371 FAD F5 01461 FMP F3 | 01302 FMP F2 01372 FAD F6 01462 CHS | 01303 STO 1)+2 01373 FSB 1)+3 01463 FAD F4 | 01304 LDQ 3)+39 01374 FAD 1)+2 01464 FAD 1)+2 01305 FMP F3 01375 FSB 1)+1 01465 FSB 1)+1 | 01306 STO 1)+3 01376 STO 1)+4 01466 STO 1)+3 | 01307 LDQ 3)+38 01377 LDQ 3)+1 01467 LDQ 3)+6 | 01310 FMP F4 01400 FMP 1)+4 01470 FMP 1)+3 | 01311 STO 1)+4 01401 CHS 01471 CHS 01312 LDQ 3)+37 01402 STO C8-21 01472 STO C8-42 | 01313 FMP F5 01403 176A LDQ 3)+48 01473 179A LDQ 3)+29 | 01314 FAD F6 01404 FMP F 01474 FMP C8-7 | 01315 FSB 1)+4 01405 STO 1)+1 01475 STO C8-1 | 01316 FSB 1)+3 01406 LDQ 3)+47 01476 180A LDQ 3)+49 01317 FAD 1)+2 01407 FMP F2 01477 FMP C8-14 | 01320 FSB 1)+1 01410 STO 1)+2 01500 STO C8-2 | 01321 STO 1)+5 01411 LDQ 3)+16 01501 181A LDQ 3)+27 | 01322 LDQ 3)+1 01412 FMP F3 01502 FMP C8-21 | 01323 FMP 1)+5 01413 STO 1)+3 01503 STO C8-3 1 DIMENSIONX(1000),D(100),D2(100),D3(100),D4(100),D5(100),D6(100),D7 12/01/64 PAGE 16 | | 01504 182A LDQ 3)+50 01574 LDQ 3)+10 01664 STO C8-36 | 01505 FMP C8-28 01575 FMP F3 01665 190A LDQ 3)+70 | 01506 STO C8-4 01576 STO 1)+3 01666 FMP F 01507 183A LDQ 3)+51 01577 LDQ 3)+10 01667 STO 1)+1 | 01510 FMP C8-35 01600 FMP F4 01670 LDQ 3)+69 | 01511 STO C8-5 01601 STO 1)+4 01671 FMP F2 | 01512 184A LDQ 3)+28 01602 LDQ 3)+3 01672 STO 1)+2 | 01513 FMP C8-42 01603 FMP F5 01673 LDQ 3)+23 01514 STO C8-6 01604 FSB 1)+4 01674 FMP F3 | 01515 185A LDQ 3)+54 01605 FAD 1)+3 01675 CHS | 01516 FMP F 01606 FAD 1)+2 01676 FAD F4 | 01517 STO 1)+1 01607 FSB 1)+1 01677 FAD 1)+2 | 01520 LDQ 3)+53 01610 FAD 3)+62 01700 FSB 1)+1 01521 FMP F2 01611 STO 1)+5 01701 FAD 3)+71 | 01522 STO 1)+2 01612 LDQ 3)+4 01702 STO 1)+3 | 01523 LDQ 3)+52 01613 FMP 1)+5 01703 LDQ 3)+15 | 01524 FMP F3 01614 STO C8-22 01704 FMP 1)+3 | 01525 STO 1)+3 01615 188A LDQ 3)+65 01705 STO C8-43 01526 LDQ 3)+3 01616 FMP F 01706 191A LDQ 3)+2 | 01527 FMP F4 01617 STO 1)+1 01707 FMP C8-15 | 01530 STO 1)+4 01620 LDQ 3)+64 01710 STO C8-9 | 01531 LDQ 3)+14 01621 FMP F2 01711 192A CLA 3)+5 | 01532 FMP F5 01622 STO 1)+2 01712 FDP 3)+4 01533 FAD F6 01623 LDQ 3)+63 01713 FMP C8-22 | 01534 FAD 1)+4 01624 FMP F3 01714 STO C8-10 | 01535 FSB 1)+3 01625 STO 1)+3 01715 193A CLA 3)+11 | 01536 FAD 1)+2 01626 LDQ 3)+2 01716 FDP 3)+2 | 01537 FSB 1)+1 01627 FMP F4 01717 FMP C8-29 01540 FAD 3)+55 01630 CHS 01720 STO C8-11 | 01541 STO C8-8 01631 FAD F5 01721 194A LDQ 3)+8 | 01542 186A LDQ 3)+60 01632 FSB 1)+3 01722 FMP C8-36 | 01543 FMP F 01633 FAD 1)+2 01723 STO C8-12 | 01544 STO 1)+1 01634 FSB 1)+1 01724 195A CLA 3)+20 01545 LDQ 3)+59 01635 FAD 3)+66 01725 FDP 3)+15 | 01546 FMP F2 01636 STO 1)+4 01726 FMP C8-43 | 01547 STO 1)+2 01637 LDQ 3)+2 01727 STO C8-13 | 01550 LDQ 3)+58 01640 FMP 1)+4 01730 196A LDQ 3)+75 | 01551 FMP F3 01641 CHS 01731 FMP F 01552 STO 1)+3 01642 STO C8-29 01732 STO 1)+1 | 01553 LDQ 3)+57 01643 189A LDQ 3)+68 01733 LDQ 3)+74 | 01554 FMP F4 01644 FMP F 01734 FMP F2 | 01555 STO 1)+4 01645 STO 1)+1 01735 STO 1)+2 | 01556 LDQ 3)+56 01646 LDQ 3)+67 01736 LDQ 3)+73 01557 FMP F5 01647 FMP F2 01737 FMP F3 | 01560 FSB 1)+4 01650 STO 1)+2 01740 STO 1)+3 | 01561 FSB 1)+3 01651 LDQ 3)+5 01741 LDQ 3)+72 | 01562 FSB 1)+2 01652 FMP F3 01742 FMP F4 | 01563 FAD 1)+1 01653 CHS 01743 CHS 01564 FSB 3)+55 01654 FAD F5 01744 FAD F5 | 01565 STO C8-15 01655 FSB 1)+2 01745 FAD F6 | 01566 187A LDQ 3)+61 01656 FAD 1)+1 01746 FAD 1)+3 | 01567 FMP F 01657 FSB 3)+66 01747 FSB 1)+2 | 01570 STO 1)+1 01660 STO 1)+3 01750 FSB 1)+1 01571 LDQ 3)+22 01661 LDQ 3)+1 01751 FAD 3)+76 | 01572 FMP F2 01662 FMP 1)+3 01752 STO C8-16 | 01573 STO 1)+2 01663 CHS 01753 197A LDQ 3)+77 | 1 DIMENSIONX(1000),D(100),D2(100),D3(100),D4(100),D5(100),D6(100),D7 12/01/64 PAGE 17 | 01754 FMP F 02044 FMP 1)+4 02134 LDQ 3)+69 | 01755 STO 1)+1 02045 CHS 02135 FMP F2 | 01756 LDQ 3)+22 02046 STO C8-37 02136 STO 1)+2 | 01757 FMP F2 02047 200A LDQ 3)+27 02137 LDQ 3)+44 | 01760 STO 1)+2 02050 FMP F 02140 FMP F3 01761 LDQ 3)+38 02051 STO 1)+1 02141 STO 1)+3 | 01762 FMP F3 02052 LDQ 3)+8 02142 LDQ 3)+15 | 01763 CHS 02053 FMP F2 02143 FMP F4 | 01764 FAD F4 02054 CHS 02144 CHS | 01765 FAD F5 02055 FAD F3 02145 FAD F5 01766 FAD 1)+2 02056 FAD 1)+1 02146 FAD 1)+3 | 01767 FAD 1)+1 02057 FSB 3)+21 02147 FAD 1)+2 | 01770 FSB 3)+62 02060 STO 1)+2 02150 FSB 1)+1 | 01771 STO 1)+3 02061 LDQ 3)+82 02151 FAD 3)+89 | 01772 LDQ 3)+15 02062 FMP 1)+2 02152 STO 1)+4 01773 FMP 1)+3 02063 STO C8-44 02153 LDQ 3)+1 | 01774 STO C8-23 02064 201A CLA 3)+5 02154 FMP 1)+4 | 01775 198A LDQ 3)+59 02065 FDP 3)+15 02155 CHS | 01776 FMP F 02066 FMP C8-23 02156 STO C8-31 | 01777 STO 1)+1 02067 STO C8-17 02157 207A LDQ 3)+91 02000 LDQ 3)+16 02070 202A CLA 3)+11 02160 FMP F | 02001 FMP F2 02071 FDP 3)+4 02161 STO 1)+1 | 02002 STO 1)+2 02072 FMP C8-30 02162 LDQ 3)+90 | 02003 LDQ 3)+78 02073 STO C8-18 02163 FMP F2 | 02004 FMP F3 02074 203A LDQ 3)+5 02164 STO 1)+2 02005 STO 1)+3 02075 FMP C8-37 02165 LDQ 3)+24 | 02006 LDQ 3)+5 02076 STO C8-19 02166 FMP F3 | 02007 FMP F4 02077 204A CLA 3)+83 02167 STO 1)+3 | 02010 FSB 1)+3 02100 FDP 3)+82 02170 LDQ 3)+4 | 02011 FSB 1)+2 02101 FMP C8-44 02171 FMP F4 02012 FAD 1)+1 02102 STO C8-20 02172 FSB 1)+3 | 02013 FSB 3)+66 02103 205A LDQ 3)+86 02173 FAD 1)+2 | 02014 STO 1)+4 02104 FMP F 02174 FAD 1)+1 | 02015 LDQ 3)+4 02105 STO 1)+1 02175 FSB 3)+92 | 02016 FMP 1)+4 02106 LDQ 3)+85 02176 STO 1)+4 02017 CHS 02107 FMP F2 02177 LDQ 3)+2 | 02020 STO C8-30 02110 STO 1)+2 02200 FMP 1)+4 | 02021 199A LDQ 3)+81 02111 LDQ 3)+37 02201 CHS | 02022 FMP F 02112 FMP F3 02202 STO C8-38 | 02023 STO 1)+1 02113 STO 1)+3 02203 208A LDQ 3)+94 02024 LDQ 3)+80 02114 LDQ 3)+84 02204 FMP F | 02025 FMP F2 02115 FMP F4 02205 STO 1)+1 | 02026 STO 1)+2 02116 STO 1)+4 02206 LDQ 3)+93 | 02027 LDQ 3)+79 02117 LDQ 3)+56 02207 FMP F2 | 02030 FMP F3 02120 FMP F5 02210 STO 1)+2 02031 STO 1)+3 02121 CHS 02211 LDQ 3)+57 | 02032 LDQ 3)+10 02122 FAD F6 02212 FMP F3 | 02033 FMP F4 02123 FAD 1)+4 02213 CHS | 02034 CHS 02124 FSB 1)+3 02214 FAD F4 | 02035 FAD F5 02125 FSB 1)+2 02215 FAD 1)+2 02036 FAD 1)+3 02126 FSB 1)+1 02216 FSB 1)+1 | 02037 FSB 1)+2 02127 FAD 3)+87 02217 FAD 3)+92 | 02040 FSB 1)+1 02130 STO C8-24 02220 STO 1)+3 | 02041 FAD 3)+66 02131 206A LDQ 3)+88 02221 LDQ 3)+3 | 02042 STO 1)+4 02132 FMP F 02222 FMP 1)+3 02043 LDQ 3)+2 02133 STO 1)+1 02223 STO C8-45 | 1 DIMENSIONX(1000),D(100),D2(100),D3(100),D4(100),D5(100),D6(100),D7 12/01/64 PAGE 18 | | 02224 209A LDQ 3)+6 02314 STO 1)+3 02404 LDQ 3)+25 | 02225 FMP C8-31 02315 LDQ 3)+6 02405 FMP F3 02226 STO C8-25 02316 FMP 1)+3 02406 CHS | 02227 210A LDQ 3)+15 02317 CHS 02407 FAD F4 | 02230 FMP C8-38 02320 STO C8-46 02410 FAD 1)+2 | 02231 STO C8-26 02321 215A CLA 3)+4 02411 FSB 1)+1 | 02232 211A LDQ 3)+3 02322 FDP 3)+3 02412 FAD 3)+110 02233 FMP C8-45 02323 FMP C8-39 02413 STO C8-48 | 02234 STO C8-27 02324 STO C8-33 02414 221A CLA S2 | 02235 212A LDQ 3)+96 02325 216A CLA C8-46 02415 FDP FF2 | 02236 FMP F 02326 FDP 3)+2 02416 FMP C211 | 02237 STO 1)+1 02327 STQ C8-34 02417 STO B2 02240 LDQ 3)+88 02330 217A LDQ 3)+104 02420 222A CLA S3 | 02241 FMP F2 02331 FMP F 02421 FDP FF3 | 02242 STO 1)+2 02332 STO 1)+1 02422 FMP C311 | 02243 LDQ 3)+95 02333 LDQ 3)+103 02423 STO B3 | 02244 FMP F3 02334 FMP F2 02424 223A LDQ S2 02245 CHS 02335 STO 1)+2 02425 FMP S2 | 02246 FSB F4 02336 LDQ 3)+102 02426 XCA | 02247 FAD F5 02337 FMP F3 02427 FMP C421 | 02250 FAD 1)+2 02340 STO 1)+3 02430 STO 1)+2 | 02251 FSB 1)+1 02341 LDQ 3)+23 02431 LDQ S4 02252 FAD 3)+97 02342 FMP F4 02432 FMP C411 | 02253 STO C8-32 02343 CHS 02433 FAD 1)+2 | 02254 213A LDQ 3)+98 02344 FAD F5 02434 FDP FF4 | 02255 FMP F 02345 FAD 1)+3 02435 STQ B4 | 02256 STO 1)+1 02346 FSB 1)+2 02436 224A LDQ S2 02257 LDQ 3)+58 02347 FSB 1)+1 02437 FMP S2 | 02260 FMP F2 02350 FAD 3)+105 02440 XCA | 02261 STO 1)+2 02351 STO C8-40 02441 FMP C422 | 02262 LDQ 3)+7 02352 218A LDQ 3)+106 02442 STO 1)+2 | 02263 FMP F3 02353 FMP F 02443 LDQ S4 02264 STO 1)+3 02354 STO 1)+1 02444 FMP C412 | 02265 LDQ 3)+2 02355 LDQ 3)+44 02445 FAD 1)+2 | 02266 FMP F4 02356 FMP F2 02446 FDP FF4 | 02267 FSB 1)+3 02357 STO 1)+2 02447 STQ B22 | 02270 FSB 1)+2 02360 LDQ 3)+3 02450 225A LDQ C521 02271 FAD 1)+1 02361 FMP F3 02451 FMP S3 | 02272 FSB 3)+99 02362 FSB 1)+2 02452 XCA | 02273 STO 1)+4 02363 FAD 1)+1 02453 FMP S2 | 02274 LDQ 3)+3 02364 FSB 3)+107 02454 STO 1)+1 | 02275 FMP 1)+4 02365 STO 1)+3 02455 LDQ S5 02276 STO C8-39 02366 LDQ 3)+15 02456 FMP C511 | 02277 214A LDQ 3)+101 02367 FMP 1)+3 02457 FAD 1)+1 | 02300 FMP F 02370 CHS 02460 FDP FF5 | 02301 STO 1)+1 02371 STO C8-47 02461 STQ B5 | 02302 LDQ 3)+100 02372 219A CLA 3)+3 02462 226A LDQ C522 02303 FMP F2 02373 FDP 3)+15 02463 FMP S3 | 02304 STO 1)+2 02374 FMP C8-47 02464 XCA | 02305 LDQ 3)+9 02375 STO C8-41 02465 FMP S2 | 02306 FMP F3 02376 220A LDQ 3)+109 02466 STO 1)+1 | 02307 CHS 02377 FMP F 02467 LDQ S5 02310 FAD F4 02400 STO 1)+1 02470 FMP C512 | 02311 FAD 1)+2 02401 LDQ 3)+108 02471 FAD 1)+1 | 02312 FSB 1)+1 02402 FMP F2 02472 FDP FF5 | 02313 FAD 3)+52 02403 STO 1)+2 02473 STQ B32 | 1 DIMENSIONX(1000),D(100),D2(100),D3(100),D4(100),D5(100),D6(100),D7 12/01/64 PAGE 19 | 02474 227A LXD 2)+1,1 02564 230A1 TXI *+1,1,4 02654 TXI *+1,2,1 | 02475 LXD 2)+1,2 02565 TXI *+1,2,1 02655 232A2 TXL 232A,2,7 | 02476 228A LDQ S2 02566 230A2 TXL 230A,2,4 02656 233A LDQ B2 | 02477 FMP S2 02567 231A LXD 2)+1,1 02657 FMP B2 02500 XCA 02570 LXD 2)+1,2 02660 STO B22A | 02501 FMP S2 02571 232A LDQ S2 02661 234A CLA F | 02502 XCA 02572 FMP S2 02662 FSB 3)+1 | 02503 FMP C6-2,1 02573 XCA 02663 STO 1)+1 | 02504 STO 1)+2 02574 FMP S2 02664 CLA F 02505 LDQ S3 02575 XCA 02665 FAD 3)+1 | 02506 FMP S3 02576 FMP S2 02666 FDP 1)+1 | 02507 XCA 02577 XCA 02667 FMP B22 | 02510 FMP C6-1,1 02600 FMP C8-5,1 02670 STO 1)+2 | 02511 STO 1)+4 02601 STO 1)+2 02671 CLA B4 02512 LDQ C6,1 02602 LDQ S3 02672 FDP F | 02513 FMP S4 02603 FMP S3 02673 XCA | 02514 XCA 02604 STO 1)+3 02674 FAD 1)+2 | 02515 FMP S2 02605 LDQ C8-4,1 02675 STO B22B | 02516 STO 1)+5 02606 FMP 1)+3 02676 235A LDQ B3 02517 LDQ S6 02607 XCA 02677 FMP B2 | 02520 FMP C6+1,1 02610 FMP S2 02700 STO B32A | 02521 FAD 1)+5 02611 STO 1)+4 02701 236A CLA F | 02522 FAD 1)+4 02612 LDQ S2 02702 FSB 3)+1 | 02523 FAD 1)+2 02613 FMP S2 02703 STO 1)+1 02524 FDP FF6 02614 STO 1)+5 02704 CLA F | 02525 STQ B6+1,2 02615 LDQ C8-3,1 02705 FAD 3)+5 | 02526 228A1 TXI *+1,1,4 02616 FMP S4 02706 FDP 1)+1 | 02527 TXI *+1,2,1 02617 XCA 02707 FMP B32 | 02530 228A2 TXL 228A,2,4 02620 FMP 1)+5 02710 STO 1)+2 02531 229A LXD 2)+1,1 02621 STO 1)+6 02711 CLA B5 | 02532 LXD 2)+1,2 02622 LDQ S4 02712 FDP F | 02533 230A LDQ S2 02623 FMP S4 02713 XCA | 02534 FMP S2 02624 XCA 02714 FAD 1)+2 | 02535 STO 1)+1 02625 FMP C8-2,1 02715 STO B32B 02536 LDQ C7-2,1 02626 STO 1)+8 02716 237A LDQ B3 | 02537 FMP S3 02627 LDQ C8-1,1 02717 FMP B3 | 02540 XCA 02630 FMP S5 02720 STO B33A | 02541 FMP 1)+1 02631 XCA 02721 238A CLA F | 02542 STO 1)+2 02632 FMP S3 02722 FSB 3)+2 02543 LDQ C7-1,1 02633 STO 1)+9 02723 STO 1)+1 | 02544 FMP S4 02634 LDQ C8,1 02724 CLA F | 02545 XCA 02635 FMP S6 02725 FSB 3)+1 | 02546 FMP S3 02636 XCA 02726 STO 1)+2 | 02547 STO 1)+3 02637 FMP S2 02727 LDQ 1)+2 02550 LDQ C7,1 02640 STO 1)+10 02730 FMP 1)+1 | 02551 FMP S5 02641 LDQ S8 02731 STO 1)+3 | 02552 XCA 02642 FMP C8+1,1 02732 LDQ F | 02553 FMP S2 02643 FAD 1)+10 02733 FMP 3)+6 | 02554 STO 1)+4 02644 FAD 1)+9 02734 FDP 1)+3 02555 LDQ S7 02645 FAD 1)+8 02735 FMP B6-3 | 02556 FMP C7+1,1 02646 FAD 1)+6 02736 STO 1)+4 | 02557 FAD 1)+4 02647 FAD 1)+4 02737 CLA F | 02560 FAD 1)+3 02650 FAD 1)+2 02740 FAD 3)+15 | 02561 FAD 1)+2 02651 FDP FF8 02741 FDP 1)+2 02562 FDP FF7 02652 STQ B8+1,2 02742 FMP B6-2 | 02563 STQ B7+1,2 02653 232A1 TXI *+1,1,7 02743 STO 1)+5 | 1 DIMENSIONX(1000),D(100),D2(100),D3(100),D4(100),D5(100),D6(100),D7 12/01/64 PAGE 20 | | 02744 CLA 3)+18 03034 LDQ 1)+1 03124 TSX (STH),4 02745 FDP 1)+2 03035 FMP 1)+3 03125 PZE 8)2L | 02746 FMP B6-1 03036 XCA 03126 245A LDQ S2 | 02747 STO 1)+6 03037 FMP 1)+2 03127 STR | 02750 CLA B6 03040 STO 1)+4 03130 LDQ S3 | 02751 FDP F 03041 CLA F 03131 STR 02752 XCA 03042 FAD 3)+1 03132 LDQ S4 | 02753 FAD 1)+6 03043 STO 1)+5 03133 STR | 02754 FAD 1)+5 03044 LDQ F 03134 LDQ S5 | 02755 FAD 1)+4 03045 FMP 3)+48 03135 STR | 02756 STO B33B 03046 FDP 1)+4 03136 LDQ S6 02757 239A LDQ B4 03047 FMP 1)+5 03137 STR | 02760 FMP B3 03050 XCA 03140 LDQ S7 | 02761 STO B43A 03051 FMP B8-6 03141 STR | 02762 240A CLA F 03052 STO 1)+6 03142 LDQ S8 | 02763 FSB 3)+2 03053 LDQ 1)+3 03143 STR 02764 STO 1)+1 03054 FMP 1)+2 03144 TSX (FIL),4 | 02765 CLA F 03055 STO 1)+7 03145 246A CAL 2)+5 | 02766 FSB 3)+1 03056 LDQ F 03146 TSX (STH),4 | 02767 STO 1)+2 03057 FMP 3)+113 03147 PZE 8)2Q | 02770 LDQ 1)+2 03060 FDP 1)+7 03150 TSX (FIL),4 02771 FMP 1)+1 03061 FMP B8-5 03151 247A CAL 2)+5 | 02772 STO 1)+3 03062 STO 1)+8 03152 TSX (STH),4 | 02773 LDQ F 03063 LDQ F 03153 PZE 8)2V | 02774 FMP 3)+111 03064 FMP 3)+112 03154 248A LDQ C211 | 02775 FDP 1)+3 03065 FDP 1)+7 03155 STR 02776 FMP B7-3 03066 FMP B8-4 03156 LDQ C311 | 02777 STO 1)+4 03067 STO 1)+9 03157 STR | 03000 CLA F 03070 CLA F 03160 LDQ C411 | 03001 FAD 3)+19 03071 FAD 3)+44 03161 STR | 03002 FDP 1)+2 03072 FDP 1)+3 03162 LDQ C421 03003 FMP B7-2 03073 FMP B8-3 03163 STR | 03004 STO 1)+5 03074 STO 1)+10 03164 LDQ C412 | 03005 CLA 3)+23 03075 CLA 3)+82 03165 STR | 03006 FDP 1)+2 03076 FDP 1)+3 03166 LDQ C422 | 03007 FMP B7-1 03077 FMP B8-2 03167 STR 03010 STO 1)+6 03100 STO 1)+11 03170 LDQ C511 | 03011 CLA B7 03101 CLA 3)+9 03171 STR | 03012 FDP F 03102 FDP 1)+3 03172 LDQ C521 | 03013 XCA 03103 FMP B8-1 03173 STR | 03014 FAD 1)+6 03104 STO 1)+12 03174 LDQ C512 03015 FAD 1)+5 03105 CLA B8 03175 STR | 03016 FAD 1)+4 03106 FDP F 03176 LDQ C522 | 03017 STO B43B 03107 XCA 03177 STR | 03020 241A LDQ B4 03110 FAD 1)+12 03200 TSX (FIL),4 | 03021 FMP B4 03111 FAD 1)+11 03201 249A CAL 2)+5 03022 STO B44A 03112 FAD 1)+10 03202 TSX (STH),4 | 03023 242A CLA F 03113 FAD 1)+9 03203 PZE 8)34 | 03024 FSB 3)+3 03114 FAD 1)+8 03204 250A LXD 2)+1,1 | 03025 STO 1)+1 03115 FAD 1)+6 03205 CLA 2)+4 | 03026 CLA F 03116 STO B44B 03206 STD 253A2 03027 FSB 3)+2 03117 243A CAL 2)+5 251A BSS | 03030 STO 1)+2 03120 TSX (STH),4 252A BSS | 03031 CLA F 03121 PZE 8)2G 03207 253A LDQ C6+1,1 | 03032 FSB 3)+1 03122 TSX (FIL),4 03210 STR | 03033 STO 1)+3 03123 244A CAL 2)+5 03211 253A1 TXI *+1,1,1 1 DIMENSIONX(1000),D(100),D2(100),D3(100),D4(100),D5(100),D6(100),D7 12/01/64 PAGE 21 | | 03212 253A2 TXL 253A,1,4 03270 275A LDQ B1 03355 TSX (FIL),4 | 03213 253A3 TIX *+1,1,4 03271 STR 03356 296A CAL 2)+5 | 254A BSS 03272 LDQ B2 03357 TSX (STH),4 03214 254A1 TXI *+1,1,7 03273 STR 03360 PZE 8)4C | 03215 SXD 253A2,1 03274 LDQ B3 03361 297A LDQ B22A | 03216 TIX *+1,1,3 03275 STR 03362 STR | 03217 254A3 TXL 251A,1,16 03276 TSX (FIL),4 03363 LDQ B22B | 256A BSS 03277 276A CAL 2)+5 03364 STR 03220 TSX (FIL),4 03300 TSX (STH),4 03365 LDQ B32A | 03221 257A CAL 2)+5 03301 PZE 8)3Q 03366 STR | 03222 TSX (STH),4 03302 277A LDQ B4 03367 LDQ B32B | 03223 PZE 8)39 03303 STR 03370 STR | 03224 258A LXD 2)+1,1 03304 LDQ B22 03371 LDQ B33A 03225 CLA 2)+4 03305 STR 03372 STR | 03226 STD 261A2 03306 TSX (FIL),4 03373 LDQ B33B | 259A BSS 03307 278A CAL 2)+5 03374 STR | 260A BSS 03310 TSX (STH),4 03375 LDQ B43A | 03227 261A LDQ C7+1,1 03311 PZE 8)3S 03376 STR 03230 STR 03312 279A LDQ B5 03377 LDQ B43B | 03231 261A1 TXI *+1,1,1 03313 STR 03400 STR | 03232 261A2 TXL 261A,1,4 03314 LDQ B32 03401 LDQ B44A | 03233 261A3 TIX *+1,1,4 03315 STR 03402 STR | 262A BSS 03316 TSX (FIL),4 03403 LDQ B44B 03234 262A1 TXI *+1,1,7 03317 280A CAL 2)+5 03404 STR | 03235 SXD 261A2,1 03320 TSX (STH),4 03405 TSX (FIL),4 | 03236 TIX *+1,1,3 03321 PZE 8)3U 03406 298A CLA F | 03237 262A3 TXL 259A,1,16 03322 281A LXD 2)+1,1 03407 STO F | 264A BSS 03323 282A LDQ B6+1,1 03410 299A LXD 2)+1,1 03240 TSX (FIL),4 03324 STR 03411 300A CLA F+1,1 | 03241 265A CAL 2)+5 03325 282A1 TXI *+1,1,1 03412 STO R | 03242 TSX (STH),4 03326 282A2 TXL 282A,1,4 03413 301A CLA R | 03243 PZE 8)3E 284A BSS 03414 FSB 3)+1 | 03244 266A LXD 2)+1,1 03327 TSX (FIL),4 03415 STO 1)+1 03245 CLA 2)+6 03330 285A CAL 2)+5 03416 CLA R | 03246 STD 269A2 03331 TSX (STH),4 03417 FAD 3)+1 | 267A BSS 03332 PZE 8)40 03420 FDP 1)+1 | 268A BSS 03333 286A LXD 2)+1,1 03421 FMP B22 | 03247 269A LDQ C8+1,1 03334 287A LDQ B7+1,1 03422 STO 1)+2 03250 STR 03335 STR 03423 CLA B4 | 03251 269A1 TXI *+1,1,1 03336 287A1 TXI *+1,1,1 03424 FDP R | 03252 269A2 TXL 269A,1,7 03337 287A2 TXL 287A,1,4 03425 XCA | 03253 269A3 TIX *+1,1,7 289A BSS 03426 FAD 1)+2 | 270A BSS 03340 TSX (FIL),4 03427 STO SP41+1,1 03254 270A1 TXI *+1,1,13 03341 290A CAL 2)+5 03430 302A CLA R | 03255 SXD 269A2,1 03342 TSX (STH),4 03431 FSB 3)+1 | 03256 TIX *+1,1,6 03343 PZE 8)42 03432 STO 1)+1 | 03257 270A3 TXL 267A,1,49 03344 291A LXD 2)+1,1 03433 CLA R | 272A BSS 03345 292A LDQ B8+1,1 03434 FAD 3)+5 03260 TSX (FIL),4 03346 STR 03435 FDP 1)+1 | 03261 273A CAL 2)+5 03347 292A1 TXI *+1,1,1 03436 FMP B32 | 03262 TSX (STH),4 03350 292A2 TXL 292A,1,7 03437 STO 1)+2 | 03263 PZE 8)3J 294A BSS 03440 CLA B5 | 03264 TSX (FIL),4 03351 TSX (FIL),4 03441 FDP R 03265 274A CAL 2)+5 03352 295A CAL 2)+5 03442 XCA | 03266 TSX (STH),4 03353 TSX (STH),4 03443 FAD 1)+2 | 03267 PZE 8)3O 03354 PZE 8)47 03444 STO SP51+1,1 | 1 DIMENSIONX(1000),D(100),D2(100),D3(100),D4(100),D5(100),D6(100),D7 12/01/64 PAGE 22 | 03445 303A CLA R 03535 FAD 3)+3 03625 FSB 1)+4 | 03446 FSB 3)+1 03536 STO 1)+3 03626 FAD 1)+2 | 03447 STO 1)+1 03537 CLA R 03627 STO SP64+1,1 | 03450 CLA 3)+6 03540 FAD 3)+1 03630 307A CLA R | 03451 FDP 1)+1 03541 STO 1)+4 03631 FSB 3)+1 03452 FMP B6-2 03542 LDQ 1)+3 03632 STO 1)+1 | 03453 STO 1)+2 03543 FMP 1)+4 03633 CLA 3)+14 | 03454 CLA R 03544 FDP 1)+2 03634 FDP 1)+1 | 03455 FAD 3)+7 03545 FMP B6-3 03635 FMP B7-2 | 03456 FDP 1)+1 03546 STO 1)+5 03636 STO 1)+2 03457 FMP B6-1 03547 LDQ R 03637 CLA R | 03460 STO 1)+3 03550 FMP 1)+2 03640 FAD 3)+18 | 03461 CLA B6 03551 STO 1)+6 03641 FDP 1)+1 | 03462 FDP R 03552 CLA R 03642 FMP B7-1 | 03463 XCA 03553 FSB 3)+2 03643 STO 1)+3 03464 FAD 1)+3 03554 XCA 03644 CLA B7 | 03465 FAD 1)+2 03555 FMP 3)+4 03645 FDP R | 03466 STO SP61+1,1 03556 FDP 1)+6 03646 XCA | 03467 304A CLA R 03557 FMP B6-2 03647 FAD 1)+3 | 03470 FSB 3)+2 03560 STO 1)+8 03650 FAD 1)+2 03471 STO 1)+1 03561 LDQ R 03651 STO SP71+1,1 | 03472 CLA R 03562 FMP 1)+1 03652 308A CLA R | 03473 FSB 3)+1 03563 STO 1)+9 03653 FSB 3)+2 | 03474 STO 1)+2 03564 LDQ 1)+3 03654 STO 1)+1 | 03475 LDQ 1)+2 03565 FMP 3)+3 03655 CLA R 03476 FMP 1)+1 03566 FDP 1)+9 03656 FSB 3)+1 | 03477 STO 1)+3 03567 FMP B6-1 03657 STO 1)+2 | 03500 LDQ R 03570 STO 1)+10 03660 LDQ 1)+2 | 03501 FMP 3)+6 03571 LDQ R 03661 FMP 1)+1 | 03502 FDP 1)+3 03572 FMP R 03662 STO 1)+3 03503 FMP B6-3 03573 STO 1)+11 03663 LDQ R | 03504 STO 1)+4 03574 CLA B6 03664 FMP 3)+111 | 03505 CLA R 03575 FDP 1)+11 03665 FDP 1)+3 | 03506 FAD 3)+15 03576 XCA 03666 FMP B7-3 | 03507 FDP 1)+2 03577 FAD 1)+10 03667 STO 1)+4 03510 FMP B6-2 03600 FAD 1)+8 03670 CLA R | 03511 STO 1)+5 03601 FAD 1)+5 03671 FAD 3)+19 | 03512 CLA 3)+18 03602 STO SP63+1,1 03672 FDP 1)+2 | 03513 FDP 1)+2 03603 306A CLA R 03673 FMP B7-2 | 03514 FMP B6-1 03604 FSB 3)+1 03674 STO 1)+5 03515 STO 1)+6 03605 STO 1)+1 03675 CLA 3)+23 | 03516 CLA B6 03606 CLA R 03676 FDP 1)+2 | 03517 FDP R 03607 FAD 3)+3 03677 FMP B7-1 | 03520 XCA 03610 FDP 1)+1 03700 STO 1)+6 | 03521 FAD 1)+6 03611 FMP B6-3 03701 CLA B7 03522 FAD 1)+5 03612 STO 1)+2 03702 FDP R | 03523 FAD 1)+4 03613 LDQ R 03703 XCA | 03524 STO SP62+1,1 03614 FMP 1)+1 03704 FAD 1)+6 | 03525 305A CLA R 03615 STO 1)+3 03705 FAD 1)+5 | 03526 FSB 3)+1 03616 CLA 3)+2 03706 FAD 1)+4 03527 STO 1)+1 03617 FDP 1)+3 03707 STO SP72+1,1 | 03530 STO 1) 03620 FMP B6-2 03710 309A CLA R | 03531 LDQ 1) 03621 STO 1)+4 03711 FSB 3)+1 | 03532 FMP 1) 03622 CLA 3)+2 03712 STO 1)+1 | 03533 STO 1)+2 03623 FDP R 03713 CLA R 03534 CLA R 03624 FMP B6-1 03714 FAD 3)+7 | 1 DIMENSIONX(1000),D(100),D2(100),D3(100),D4(100),D5(100),D6(100),D7 12/01/64 PAGE 23 | | 03715 FDP 1)+1 04005 CLA 3)+20 04075 FMP B8-3 | 03716 FMP B7-3 04006 FDP 1)+1 04076 STO 1)+10 03717 STO 1)+2 04007 FMP B8-2 04077 CLA 3)+82 | 03720 LDQ R 04010 STO 1)+3 04100 FDP 1)+3 | 03721 FMP 1)+1 04011 CLA R 04101 FMP B8-2 | 03722 STO 1)+3 04012 FAD 3)+10 04102 STO 1)+11 | 03723 CLA R 04013 FDP 1)+1 04103 CLA 3)+9 03724 FSB 3)+3 04014 FMP B8-1 04104 FDP 1)+3 | 03725 FDP 1)+3 04015 STO 1)+4 04105 FMP B8-1 | 03726 FMP B7-2 04016 CLA B8 04106 STO 1)+12 | 03727 STO 1)+4 04017 FDP R 04107 CLA B8 | 03730 CLA B7-1 04020 XCA 04110 FDP R 03731 FDP R 04021 FAD 1)+4 04111 XCA | 03732 XCA 04022 FAD 1)+3 04112 FAD 1)+12 | 03733 FAD 1)+4 04023 FAD 1)+2 04113 FAD 1)+11 | 03734 FAD 1)+2 04024 STO SP81+1,1 04114 FAD 1)+10 | 03735 STO SP73+1,1 04025 312A CLA R 04115 FAD 1)+9 03736 310A CLA R 04026 FSB 3)+3 04116 FAD 1)+8 | 03737 FSB 3)+2 04027 STO 1)+1 04117 FAD 1)+6 | 03740 STO 1)+1 04030 CLA R 04120 STO SP82+1,1 | 03741 CLA R 04031 FSB 3)+2 04121 313A CLA R | 03742 FSB 3)+1 04032 STO 1)+2 04122 FSB 3)+1 03743 STO 1)+2 04033 CLA R 04123 STO 1)+1 | 03744 LDQ 1)+2 04034 FSB 3)+1 04124 STO 1) | 03745 FMP 1)+1 04035 STO 1)+3 04125 LDQ 1) | 03746 STO 1)+3 04036 LDQ 1)+1 04126 FMP 1) | 03747 LDQ 3)+18 04037 FMP 1)+3 04127 STO 1)+2 03750 FMP R 04040 XCA 04130 CLA R | 03751 STO 1)+4 04041 FMP 1)+2 04131 FAD 3)+18 | 03752 LDQ R 04042 STO 1)+4 04132 STO 1)+3 | 03753 FMP R 04043 CLA R 04133 LDQ 1)+3 | 03754 FAD 1)+4 04044 FAD 3)+1 04134 FMP 3)+23 03755 FSB 3)+114 04045 STO 1)+5 04135 FDP 1)+2 | 03756 FDP 1)+3 04046 LDQ R 04136 FMP B8-5 | 03757 FMP B7-3 04047 FMP 3)+48 04137 STO 1)+4 | 03760 STO 1)+5 04050 FDP 1)+4 04140 CLA R | 03761 LDQ R 04051 FMP 1)+5 04141 FAD 3)+7 03762 FMP 1)+2 04052 XCA 04142 STO 1)+5 | 03763 STO 1)+6 04053 FMP B8-6 04143 LDQ 1)+3 | 03764 CLA 3)+6 04054 STO 1)+6 04144 FMP 1)+5 | 03765 FDP 1)+6 04055 LDQ 1)+3 04145 FDP 1)+2 | 03766 FMP B7-2 04056 FMP 1)+2 04146 FMP B8-4 03767 STO 1)+7 04057 STO 1)+7 04147 STO 1)+6 | 03770 CLA 3)+2 04060 LDQ R 04150 LDQ R | 03771 FDP R 04061 FMP 3)+113 04151 FMP 1)+2 | 03772 FMP B7-1 04062 FDP 1)+7 04152 STO 1)+7 | 03773 FSB 1)+7 04063 FMP B8-5 04153 LDQ 3)+78 03774 FAD 1)+5 04064 STO 1)+8 04154 FMP R | 03775 STO SP74+1,1 04065 LDQ R 04155 STO 1)+8 | 03776 311A CLA R 04066 FMP 3)+112 04156 LDQ R | 03777 FSB 3)+1 04067 FDP 1)+7 04157 FMP R | 04000 STO 1)+1 04070 FMP B8-4 04160 STO 1)+9 04001 CLA 3)+14 04071 STO 1)+9 04161 FAD 1)+8 | 04002 FDP 1)+1 04072 CLA R 04162 FSB 3)+38 | 04003 FMP B8-3 04073 FAD 3)+44 04163 FDP 1)+7 | 04004 STO 1)+2 04074 FDP 1)+3 04164 FMP B8-3 | 1 DIMENSIONX(1000),D(100),D2(100),D3(100),D4(100),D5(100),D6(100),D7 12/01/64 PAGE 24 | 04165 STO 1)+10 04255 FMP 1)+8 04345 FAD 1)+10 | 04166 LDQ 3)+5 04256 STO 1)+9 04346 FAD 1)+6 | 04167 FMP R 04257 LDQ R 04347 STO SP84+1,1 | 04170 FSB 3)+7 04260 FMP R 04350 315A CLA R 04171 XCA 04261 XCA 04351 FSB 3)+1 | 04172 FMP 3)+15 04262 FMP R 04352 STO 1)+1 | 04173 FDP 1)+7 04263 FAD 1)+9 04353 STO 1) | 04174 FMP B8-2 04264 FAD 1)+7 04354 LDQ 1) | 04175 STO 1)+12 04265 FSB 3)+117 04355 FMP 1) 04176 LDQ R 04266 FDP 1)+4 04356 XCA | 04177 FMP 1)+1 04267 FMP B8-5 04357 FMP 1) | 04200 STO 1)+13 04270 STO 1)+10 04360 STO 1)+2 | 04201 LDQ 1)+3 04271 LDQ 3)+18 04361 CLA R | 04202 FMP 3)+2 04272 FMP R 04362 FAD 3)+5 04203 FDP 1)+13 04273 FAD 1)+8 04363 STO 1)+3 | 04204 FMP B8-1 04274 FSB 3)+14 04364 CLA R | 04205 STO 1)+14 04275 XCA 04365 FAD 3)+3 | 04206 CLA B8 04276 FMP 3)+18 04366 STO 1)+4 | 04207 FDP 1)+9 04277 FDP 1)+4 04367 CLA R 04210 XCA 04300 FMP B8-4 04370 FAD 3)+1 | 04211 FAD 1)+14 04301 STO 1)+12 04371 STO 1)+5 | 04212 FAD 1)+12 04302 LDQ R 04372 LDQ 1)+4 | 04213 FAD 1)+10 04303 FMP 1)+3 04373 FMP 1)+5 | 04214 FAD 1)+6 04304 STO 1)+13 04374 FDP 1)+2 04215 FAD 1)+4 04305 LDQ 3)+3 04375 FMP 1)+3 | 04216 STO SP83+1,1 04306 FMP R 04376 XCA | 04217 314A CLA R 04307 FSB 3)+5 04377 FMP B8-6 | 04220 FSB 3)+2 04310 XCA 04400 STO 1)+6 | 04221 STO 1)+1 04311 FMP 3)+18 04401 LDQ R 04222 CLA R 04312 FDP 1)+13 04402 FMP 1)+2 | 04223 FSB 3)+1 04313 FMP B8-3 04403 STO 1)+7 | 04224 STO 1)+2 04314 STO 1)+15 04404 CLA R | 04225 STO 1) 04315 LDQ 3)+115 04405 FSB 3)+2 | 04226 LDQ 1) 04316 FMP R 04406 STO 1)+8 04227 FMP 1) 04317 FAD 1)+8 04407 LDQ 1)+8 | 04230 STO 1)+3 04320 FSB 3)+116 04410 FMP 3)+9 | 04231 LDQ 1)+3 04321 XCA 04411 FDP 1)+7 | 04232 FMP 1)+1 04322 FMP 3)+2 04412 FMP 1)+3 | 04233 STO 1)+4 04323 FDP 1)+13 04413 XCA 04234 CLA R 04324 FMP B8-2 04414 FMP B8-5 | 04235 FAD 3)+5 04325 STO 1)+17 04415 STO 1)+9 | 04236 STO 1)+5 04326 LDQ R 04416 LDQ 1)+1 | 04237 LDQ R 04327 FMP 1)+2 04417 FMP 1)+1 | 04240 FMP 3)+6 04330 STO 1)+18 04420 STO 1)+10 04241 FDP 1)+4 04331 CLA R 04421 LDQ R | 04242 FMP 1)+5 04332 FAD 3)+14 04422 FMP 1)+10 | 04243 XCA 04333 FDP 1)+18 04423 STO 1)+11 | 04244 FMP B8-6 04334 FMP B8-1 04424 LDQ 1)+4 | 04245 STO 1)+6 04335 STO 1)+19 04425 FMP 3)+6 04246 LDQ 3)+100 04336 CLA B8 04426 FDP 1)+11 | 04247 FMP R 04337 FDP 1)+8 04427 FMP 1)+3 | 04250 STO 1)+7 04340 XCA 04430 XCA | 04251 LDQ R 04341 FAD 1)+19 04431 FMP B8-4 | 04252 FMP R 04342 FAD 1)+17 04432 STO 1)+12 04253 STO 1)+8 04343 FAD 1)+15 04433 LDQ R | 04254 LDQ 3)+32 04344 FAD 1)+12 04434 FMP R | 1 DIMENSIONX(1000),D(100),D2(100),D3(100),D4(100),D5(100),D6(100),D7 12/01/64 PAGE 25 | | 04435 STO 1)+13 04525 CLA R 04615 FDP 1)+6 04436 LDQ 1)+2 04526 FAD 3)+18 04616 FMP B8-4 | 04437 FMP 1)+13 04527 FDP 1)+1 04617 STO 1)+10 | 04440 STO 1)+14 04530 FMP B8-4 04620 LDQ R | 04441 LDQ 3)+102 04531 STO 1)+3 04621 FMP 1)+5 | 04442 FMP R 04532 CLA B8-3 04622 STO 1)+11 04443 STO 1)+15 04533 FDP R 04623 CLA 3)+6 | 04444 LDQ 3)+41 04534 STQ 1)+4 04624 FDP 1)+11 | 04445 FMP 1)+13 04535 LDQ R 04625 FMP B8-3 | 04446 STO 1)+16 04536 FMP 1)+1 04626 STO 1)+12 | 04447 LDQ R 04537 STO 1)+5 04627 CLA 3)+15 04450 FMP R 04540 CLA 3)+2 04630 FDP 1)+11 | 04451 XCA 04541 FDP 1)+5 04631 FMP B8-2 | 04452 FMP R 04542 FMP B8-2 04632 STO 1)+13 | 04453 STO 1)+17 04543 STO 1)+6 04633 CLA 3)+2 | 04454 LDQ 3)+3 04544 CLA B8-1 04634 FDP R 04455 FMP 1)+17 04545 FDP R 04635 FMP B8-1 | 04456 FAD 1)+16 04546 XCA 04636 FSB 1)+13 | 04457 FSB 1)+15 04547 FSB 1)+6 04637 FSB 1)+12 | 04460 FAD 3)+12 04550 FAD 1)+4 04640 FAD 1)+10 | 04461 FDP 1)+14 04551 FAD 1)+3 04641 FAD 1)+8 04462 FMP B8-3 04552 FAD 1)+2 04642 FSB 1)+4 | 04463 STO 1)+18 04553 STO SP86+1,1 04643 STO SP87+1,1 | 04464 LDQ 1)+13 04554 317A CLA R 04644 318A CLA R | 04465 FMP 1)+10 04555 FSB 3)+3 04645 FSB 3)+1 | 04466 STO 1)+19 04556 STO 1)+1 04646 STO 1)+1 04467 LDQ 1)+8 04557 CLA R 04647 CLA R | 04470 FMP 3)+116 04560 FSB 3)+2 04650 FAD 3)+10 | 04471 FDP 1)+19 04561 STO 1)+2 04651 FDP 1)+1 | 04472 FMP B8-2 04562 LDQ 1)+2 04652 FMP B8-5 | 04473 STO 1)+20 04563 FMP 1)+1 04653 STO 1)+2 04474 LDQ 1)+13 04564 STO 1)+3 04654 LDQ R | 04475 FMP 1)+1 04565 CLA 3)+48 04655 FMP 1)+1 | 04476 STO 1)+21 04566 FDP 1)+3 04656 STO 1)+3 | 04477 LDQ 1)+3 04567 FMP B8-6 04657 CLA 3)+2 | 04500 FMP 3)+4 04570 STO 1)+4 04660 FDP 1)+3 04501 FDP 1)+21 04571 CLA R 04661 FMP B8-3 | 04502 FMP B8-1 04572 FSB 3)+1 04662 STO 1)+4 | 04503 STO 1)+22 04573 STO 1)+5 04663 CLA 3)+2 | 04504 CLA B8 04574 LDQ 1)+5 04664 FDP R | 04505 FDP 1)+17 04575 FMP 1)+2 04665 FMP B8-2 04506 XCA 04576 STO 1)+6 04666 FSB 1)+4 | 04507 FAD 1)+22 04577 CLA R 04667 FAD 1)+2 | 04510 FAD 1)+20 04600 FSB 3)+6 04670 STO SP88+1,1 | 04511 FAD 1)+18 04601 XCA 04671 319A CLA R | 04512 FAD 1)+12 04602 FMP 3)+23 04672 FSB 3)+2 04513 FAD 1)+9 04603 FDP 1)+6 04673 STO 1)+1 | 04514 FAD 1)+6 04604 FMP B8-5 04674 CLA R | 04515 STO SP85+1,1 04605 STO 1)+8 04675 FSB 3)+1 | 04516 316A CLA R 04606 LDQ 3)+56 04676 STO 1)+2 | 04517 FSB 3)+1 04607 FMP R 04677 LDQ 1)+2 04520 STO 1)+1 04610 STO 1)+9 04700 FMP 1)+1 | 04521 CLA 3)+6 04611 LDQ R 04701 STO 1)+3 | 04522 FDP 1)+1 04612 FMP R 04702 LDQ R | 04523 FMP B8-5 04613 FAD 1)+9 04703 FMP 3)+6 | 04524 STO 1)+2 04614 FSB 3)+118 04704 FDP 1)+3 1 DIMENSIONX(1000),D(100),D2(100),D3(100),D4(100),D5(100),D6(100),D7 12/01/64 PAGE 26 | | 04705 FMP B8-6 04775 CLA 3)+3 05065 STO 1)+11 | 04706 STO 1)+4 04776 FDP R 05066 CLA R | 04707 LDQ 3)+23 04777 FMP B8-4 05067 FSB 3)+4 04710 FMP R 05000 FSB 1)+4 05070 XCA | 04711 STO 1)+5 05001 FAD 1)+2 05071 FMP 3)+15 | 04712 LDQ R 05002 STO SP810+1,1 05072 FDP 1)+11 | 04713 FMP R 05003 321A CLA R 05073 FMP B8-5 | 04714 FAD 1)+5 05004 FSB 3)+3 05074 STO 1)+13 04715 FSB 3)+47 05005 STO 1)+1 05075 CLA 3)+4 | 04716 FDP 1)+3 05006 CLA R 05076 FDP 1)+2 | 04717 FMP B8-5 05007 FSB 3)+2 05077 FMP B8-4 | 04720 STO 1)+6 05010 STO 1)+2 05100 STO 1)+14 | 04721 LDQ 3)+3 05011 CLA R 05101 LDQ R 04722 FMP R 05012 FSB 3)+1 05102 FMP 1)+3 | 04723 FSB 3)+15 05013 STO 1)+3 05103 STO 1)+15 | 04724 XCA 05014 LDQ 1)+1 05104 CLA 3)+2 | 04725 FMP 3)+3 05015 FMP R 05105 FDP 1)+15 | 04726 FDP 1)+3 05016 XCA 05106 FMP B8-3 04727 FMP B8-4 05017 FMP 1)+3 05107 FAD 1)+14 | 04730 STO 1)+8 05020 XCA 05110 FSB 1)+13 | 04731 LDQ R 05021 FMP 1)+2 05111 FAD 1)+10 | 04732 FMP 1)+2 05022 STO 1)+4 05112 STO SP812+1,1 | 04733 STO 1)+9 05023 LDQ 3)+25 05113 322A CLA R 04734 CLA 3)+3 05024 FMP R 05114 FSB 3)+1 | 04735 FDP 1)+9 05025 STO 1)+5 05115 STO 1)+1 | 04736 FMP B8-3 05026 LDQ R 05116 STO 1) | 04737 STO 1)+10 05027 FMP R 05117 LDQ 1) | 04740 CLA R 05030 STO 1)+6 05120 FMP 1) 04741 FSB 3)+4 05031 LDQ 3)+26 05121 STO 1)+2 | 04742 FDP 1)+9 05032 FMP 1)+6 05122 CLA R | 04743 FMP B8-2 05033 STO 1)+7 05123 FAD 3)+5 | 04744 STO 1)+11 05034 LDQ R 05124 STO 1)+3 | 04745 CLA B8-1 05035 FMP R 05125 CLA R 04746 FDP R 05036 XCA 05126 FAD 3)+3 | 04747 XCA 05037 FMP R 05127 STO 1)+4 | 04750 FAD 1)+11 05040 STO 1)+8 05130 LDQ 1)+3 | 04751 FSB 1)+10 05041 LDQ 3)+2 05131 FMP 1)+4 | 04752 FAD 1)+8 05042 FMP 1)+8 05132 FDP 1)+2 04753 FAD 1)+6 05043 STO 1)+9 05133 FMP B8-6 | 04754 FAD 1)+4 05044 LDQ R 05134 STO 1)+5 | 04755 STO SP89+1,1 05045 FMP R 05135 LDQ R | 04756 320A CLA R 05046 XCA 05136 FMP 1)+2 | 04757 FSB 3)+1 05047 FMP R 05137 STO 1)+6 04760 STO 1)+1 05050 XCA 05140 CLA R | 04761 CLA R 05051 FMP R 05141 FSB 3)+56 | 04762 FAD 3)+5 05052 FAD 1)+9 05142 XCA | 04763 FDP 1)+1 05053 FSB 1)+7 05143 FMP 3)+4 | 04764 FMP B8-6 05054 FAD 1)+5 05144 FDP 1)+6 04765 STO 1)+2 05055 FAD 3)+48 05145 FMP B8-5 | 04766 LDQ R 05056 FDP 1)+4 05146 STO 1)+8 | 04767 FMP 1)+1 05057 FMP B8-6 05147 LDQ R | 04770 STO 1)+3 05060 STO 1)+10 05150 FMP 1)+1 | 04771 CLA 3)+6 05061 LDQ 1)+2 05151 STO 1)+9 04772 FDP 1)+3 05062 FMP R 05152 LDQ 3)+5 | 04773 FMP B8-5 05063 XCA 05153 FMP R | 04774 STO 1)+4 05064 FMP 1)+3 05154 FAD 3)+63 | 1 DIMENSIONX(1000),D(100),D2(100),D3(100),D4(100),D5(100),D6(100),D7 12/01/64 PAGE 27 | 05155 FDP 1)+9 05245 STO SP64-2 05335 LDQ B22 | 05156 FMP B8-4 05246 329A LDQ B5 05336 FMP 1)+1 | 05157 STO 1)+10 05247 FMP B2 05337 STO SP811-2 | 05160 LDQ R 05250 STO SP71-2 05340 344A LDQ B22 | 05161 FMP R 05251 330A LDQ B4 05341 FMP B22 05162 STO 1)+11 05252 FMP B3 05342 STO SP812-2 | 05163 LDQ 1)+11 05253 STO SP72-2 05343 345A CAL 2)+5 | 05164 FMP 1)+2 05254 331A LDQ B32 05344 TSX (STH),4 | 05165 STO 1)+12 05255 FMP B2 05345 PZE 8)5I | 05166 LDQ 3)+2 05256 STO SP73-2 05346 TSX (FIL),4 05167 FMP R 05257 332A LDQ B3 05347 346A CAL 2)+5 | 05170 CHS 05260 FMP B22 05350 TSX (STH),4 | 05171 FAD 1)+11 05261 STO SP74-2 05351 PZE 8)5K | 05172 FAD 3)+3 05262 333A LDQ B6 05352 347A LDQ SP41-2 | 05173 XCA 05263 FMP B2 05353 STR 05174 FMP 3)+2 05264 STO SP81-2 05354 LDQ SP41 | 05175 FDP 1)+12 05265 334A LDQ B4 05355 STR | 05176 FMP B8-3 05266 FMP B4 05356 LDQ SP51-2 | 05177 STO 1)+14 05267 STO SP82-2 05357 STR | 05200 LDQ 1)+11 05270 335A LDQ B2 05360 LDQ SP51 05201 FMP 1)+1 05271 FMP B2 05361 STR | 05202 STO 1)+15 05272 STO 1)+1 05362 LDQ SP61-2 | 05203 CLA 3)+15 05273 LDQ B4 05363 STR | 05204 FDP 1)+15 05274 FMP 1)+1 05364 LDQ SP61 | 05205 FMP B8-2 05275 STO SP83-2 05365 STR 05206 STO 1)+16 05276 336A LDQ B3 05366 LDQ SP62-2 | 05207 CLA 3)+2 05277 FMP B3 05367 STR | 05210 FDP 1)+11 05300 STO 1)+1 05370 LDQ SP62 | 05211 FMP B8-1 05301 LDQ B2 05371 STR | 05212 FSB 1)+16 05302 FMP 1)+1 05372 LDQ SP63-2 05213 FAD 1)+14 05303 STO SP84-2 05373 STR | 05214 FAD 1)+10 05304 337A LDQ B2 05374 LDQ SP63 | 05215 FAD 1)+8 05305 FMP B2 05375 STR | 05216 FAD 1)+5 05306 XCA 05376 TSX (FIL),4 | 05217 STO SP811+1,1 05307 FMP B2 05377 348A CAL 2)+5 05220 322A1 TXI *+1,1,1 05310 XCA 05400 TSX (STH),4 | 05221 322A2 TXL 300A,1,2 05311 FMP B2 05401 PZE 8)5K | 05222 323A LDQ B2 05312 STO SP85-2 05402 349A LDQ SP64-2 | 05223 FMP B2 05313 338A LDQ B6-1 05403 STR | 05224 STO SP41-2 05314 FMP B2 05404 LDQ SP64 05225 324A LDQ B3 05315 STO SP86-2 05405 STR | 05226 FMP B2 05316 339A LDQ B4 05406 LDQ SP71-2 | 05227 STO SP51-2 05317 FMP B22 05407 STR | 05230 325A LDQ B4 05320 STO SP87-2 05410 LDQ SP71 | 05231 FMP B2 05321 340A LDQ B6-2 05411 STR 05232 STO SP61-2 05322 FMP B2 05412 LDQ SP72-2 | 05233 326A LDQ B3 05323 STO SP88-2 05413 STR | 05234 FMP B3 05324 341A LDQ B32 05414 LDQ SP72 | 05235 STO SP62-2 05325 FMP B3 05415 STR | 05236 327A LDQ B2 05326 STO SP89-2 05416 LDQ SP73-2 05237 FMP B2 05327 342A LDQ B6-3 05417 STR | 05240 XCA 05330 FMP B2 05420 LDQ SP73 | 05241 FMP B2 05331 STO SP810-2 05421 STR | 05242 STO SP63-2 05332 343A LDQ B2 05422 LDQ SP74-2 | 05243 328A LDQ B22 05333 FMP B2 05423 STR 05244 FMP B2 05334 STO 1)+1 05424 LDQ SP74 | 1 DIMENSIONX(1000),D(100),D2(100),D3(100),D4(100),D5(100),D6(100),D7 12/01/64 PAGE 28 | | 05425 STR 05515 STR 05605 STR | 05426 TSX (FIL),4 05516 TSX (FIL),4 05606 LDQ SP89-1 05427 350A CAL 2)+5 05517 354A CAL 2)+5 05607 STR | 05430 TSX (STH),4 05520 TSX (STH),4 05610 LDQ SP810-1 | 05431 PZE 8)5K 05521 PZE 8)5P 05611 STR | 05432 351A LDQ SP81-2 05522 TSX (FIL),4 05612 TSX (FIL),4 | 05433 STR 05523 355A CAL 2)+5 05613 363A CAL 2)+5 05434 LDQ SP81 05524 TSX (STH),4 05614 TSX (STH),4 | 05435 STR 05525 PZE 8)5U 05615 PZE 8)62 | 05436 LDQ SP82-2 05526 356A LDQ SP41-1 05616 364A LDQ SP811-1 | 05437 STR 05527 STR 05617 STR | 05440 LDQ SP82 05530 LDQ SP51-1 05620 TSX (FIL),4 05441 STR 05531 STR 05621 365A CAL 2)+5 | 05442 LDQ SP83-2 05532 LDQ SP61-1 05622 TSX (STH),4 | 05443 STR 05533 STR 05623 PZE 8)71 | 05444 LDQ SP83 05534 LDQ SP62-1 05624 366A LDQ SP812-1 | 05445 STR 05535 STR 05625 STR 05446 LDQ SP84-2 05536 LDQ SP63-1 05626 TSX (FIL),4 | 05447 STR 05537 STR 05627 367A CLA LOP | 05450 LDQ SP84 05540 TSX (FIL),4 05630 SUB 2)+1 | 05451 STR 05541 357A CAL 2)+5 05631 367A1 TZE 386A | 05452 LDQ SP85-2 05542 TSX (STH),4 05632 TPL 386A 05453 STR 05543 PZE 8)5V 05633 368A LDQ B2 | 05454 LDQ SP85 05544 358A LDQ SP64-1 05634 FMP B2 | 05455 STR 05545 STR 05635 CHS | 05456 TSX (FIL),4 05546 LDQ SP71-1 05636 FAD SP41-1 | 05457 352A CAL 2)+5 05547 STR 05637 STO EX5 05460 TSX (STH),4 05550 LDQ SP72-1 05640 369A LDQ B2 | 05461 PZE 8)5K 05551 STR 05641 FMP B3 | 05462 353A LDQ SP86-2 05552 LDQ SP73-1 05642 CHS | 05463 STR 05553 STR 05643 FAD SP51-1 | 05464 LDQ SP86 05554 LDQ SP74-1 05644 STO EX6 05465 STR 05555 STR 05645 370A LDQ B2 | 05466 LDQ SP87-2 05556 TSX (FIL),4 05646 FMP B4 | 05467 STR 05557 359A CAL 2)+5 05647 CHS | 05470 LDQ SP87 05560 TSX (STH),4 05650 FAD SP61-1 | 05471 STR 05561 PZE 8)60 05651 STO EX7 05472 LDQ SP88-2 05562 360A LDQ SP81-1 05652 371A LDQ B3 | 05473 STR 05563 STR 05653 FMP B3 | 05474 LDQ SP88 05564 LDQ SP82-1 05654 CHS | 05475 STR 05565 STR 05655 FAD SP62-1 | 05476 LDQ SP89-2 05566 LDQ SP83-1 05656 STO EX8 05477 STR 05567 STR 05657 372A LDQ B3 | 05500 LDQ SP89 05570 LDQ SP84-1 05660 FMP B4 | 05501 STR 05571 STR 05661 CHS | 05502 LDQ SP810-2 05572 LDQ SP85-1 05662 FAD SP72-1 | 05503 STR 05573 STR 05663 STO EX9 05504 LDQ SP810 05574 TSX (FIL),4 05664 373A LDQ B4 | 05505 STR 05575 361A CAL 2)+5 05665 FMP B4 | 05506 LDQ SP811-2 05576 TSX (STH),4 05666 CHS | 05507 STR 05577 PZE 8)6V 05667 FAD SP82-1 | 05510 LDQ SP811 05600 362A LDQ SP86-1 05670 STO EX10 05511 STR 05601 STR 05671 374A LDQ B2 | 05512 LDQ SP812-2 05602 LDQ SP87-1 05672 FMP B2 | 05513 STR 05603 STR 05673 XCA | 05514 LDQ SP812 05604 LDQ SP88-1 05674 FMP B2 | 1 DIMENSIONX(1000),D(100),D2(100),D3(100),D4(100),D5(100),D6(100),D7 12/01/64 PAGE 29 | 05675 STO 1)+1 05765 STO 1)+3 06055 FDP 1)+13 | 05676 LDQ 3)+2 05766 CLA 3)+1 06056 STQ 1)+14 | 05677 FMP 1)+1 05767 FDP F 06057 LDQ F-1 | 05700 STO 1)+2 05770 STQ 1)+4 06060 FMP F-1 05701 LDQ B2 05771 CLA 1)+2 06061 XCA | 05702 FMP 3)+3 05772 FSB 1)+4 06062 FMP F-1 | 05703 XCA 05773 STO 1)+5 06063 STO 1)+15 | 05704 FMP SP41-1 05774 LDQ B3 06064 CLA 3)+1 | 05705 CHS 05775 FMP 1)+5 06065 FDP 1)+15 05706 FAD SP63-1 05776 XCA 06066 XCA | 05707 FAD 1)+2 05777 FMP 1)+3 06067 FSB 1)+14 | 05710 STO EX13 06000 STO EX11 06070 FAD 1)+12 | 05711 375A LDQ B2 06001 378A LDQ F 06071 FSB 1)+10 | 05712 FMP B2 06002 FMP F 06072 XCA 05713 XCA 06003 STO 1)+1 06073 FMP B4 | 05714 FMP B2 06004 CLA 3)+1 06074 FAD 1)+8 | 05715 XCA 06005 FDP 1)+1 06075 STO EX12 | 05716 FMP B2 06006 STQ 1)+2 06076 379A CLA 3)+1 | 05717 STO 1)+1 06007 LDQ F-1 06077 FDP F 05720 LDQ 3)+3 06010 FMP F 06100 STQ 1)+1 | 05721 FMP 1)+1 06011 STO 1)+3 06101 CLA 3)+1 | 05722 STO 1)+2 06012 CLA 3)+2 06102 FDP F-1 | 05723 LDQ B2 06013 FDP 1)+3 06103 XCA | 05724 FMP B2 06014 STQ 1)+4 06104 FSB 1)+1 05725 XCA 06015 LDQ F-1 06105 XCA | 05726 FMP 3)+6 06016 FMP F-1 06106 FMP B3 | 05727 XCA 06017 STO 1)+5 06107 STO EX2 | 05730 FMP SP41-1 06020 CLA 3)+1 06110 380A CLA 3)+1 | 05731 STO 1)+4 06021 FDP 1)+5 06111 FDP F 05732 LDQ B2 06022 XCA 06112 STQ 1)+1 | 05733 FMP 3)+4 06023 FSB 1)+4 06113 CLA 3)+1 | 05734 XCA 06024 FAD 1)+2 06114 FDP F-1 | 05735 FMP SP63-1 06025 STO 1)+7 06115 XCA | 05736 CHS 06026 LDQ B22 06116 FSB 1)+1 05737 FAD SP85-1 06027 FMP 3)+3 06117 XCA | 05740 FAD 1)+4 06030 XCA 06120 FMP B4 | 05741 FSB 1)+2 06031 FMP 1)+7 06121 STO EX3 | 05742 STO EX14 06032 STO 1)+8 06122 381A CLA 3)+1 | 05743 376A CLA 3)+1 06033 LDQ F 06123 FDP F 05744 FDP F 06034 FMP F 06124 STQ 1)+1 | 05745 STQ 1)+1 06035 XCA 06125 CLA 3)+1 | 05746 CLA 3)+1 06036 FMP F 06126 FDP F-1 | 05747 FDP F-1 06037 STO 1)+9 06127 XCA | 05750 XCA 06040 CLA 3)+3 06130 FSB 1)+1 05751 FSB 1)+1 06041 FDP 1)+9 06131 XCA | 05752 XCA 06042 STQ 1)+10 06132 FMP B5 | 05753 FMP B2 06043 LDQ F-1 06133 STO EX4 | 05754 STO EX1 06044 FMP 1)+1 06134 382A CAL 2)+5 | 05755 377A CLA 3)+2 06045 STO 1)+11 06135 TSX (STH),4 05756 FDP F 06046 CLA 3)+6 06136 PZE 8)63 | 05757 STQ 1)+1 06047 FDP 1)+11 06137 TSX (FIL),4 | 05760 CLA 3)+1 06050 STQ 1)+12 06140 383A CAL 2)+5 | 05761 FDP F-1 06051 LDQ 1)+5 06141 TSX (STH),4 | 05762 STQ 1)+2 06052 FMP F 06142 PZE 8)68 05763 CLA 1)+2 06053 STO 1)+13 06143 384A LDQ EX1 | 05764 FSB 1)+1 06054 CLA 3)+4 06144 STR | 1 DIMENSIONX(1000),D(100),D2(100),D3(100),D4(100),D5(100),D6(100),D7 12/01/64 PAGE 30 | | 06145 LDQ EX2 06235 FSB 3)+1 06325 FSB 3)+2 06146 STR 06236 STO 1)+2 06326 XCA | 06147 LDQ EX3 06237 CLA F 06327 FMP 3)+9 | 06150 STR 06240 FAD 3)+1 06330 FDP 1)+9 | 06151 LDQ EX4 06241 XCA 06331 FMP SP88-1 | 06152 STR 06242 FMP 3)+3 06332 STO 1)+11 06153 LDQ EX5 06243 FDP 1)+2 06333 LDQ F | 06154 STR 06244 FMP SP64-1 06334 FMP 1)+2 | 06155 LDQ EX6 06245 STO 1)+4 06335 STO 1)+12 | 06156 STR 06246 CLA 3)+3 06336 LDQ 1)+7 | 06157 LDQ EX7 06247 FDP F 06337 FMP 3)+23 06160 STR 06250 FMP SP61-1 06340 FDP 1)+12 | 06161 LDQ EX8 06251 STO 1)+5 06341 FMP SP86-1 | 06162 STR 06252 LDQ B2 06342 STO 1)+13 | 06163 LDQ EX9 06253 FMP B2 06343 LDQ F | 06164 STR 06254 XCA 06344 FMP F 06165 LDQ EX10 06255 FMP B2 06345 STO 1)+14 | 06166 STR 06256 FSB 1)+5 06346 CLA 3)+4 | 06167 LDQ EX11 06257 FSB 1)+4 06347 FDP 1)+14 | 06170 STR 06260 FAD 1)+1 06350 FMP SP81-1 | 06171 LDQ EX12 06261 STO ES13 06351 STO 1)+15 06172 STR 06262 393A LDQ 3)+3 06352 LDQ B2 | 06173 LDQ EX13 06263 FMP SP85-1 06353 FMP B2 | 06174 STR 06264 STO 1)+1 06354 XCA | 06175 LDQ EX14 06265 CLA F 06355 FMP B2 | 06176 STR 06266 FSB 3)+1 06356 XCA 06177 TSX (FIL),4 06267 STO 1)+2 06357 FMP B2 | 06200 385A TRA 36A 06270 CLA F 06360 FSB 1)+15 | 06201 386A LDQ B2 06271 FAD 3)+1 06361 FSB 1)+13 | 06202 FMP B2 06272 STO 1)+3 06362 FSB 1)+11 | 06203 FSB SP41-1 06273 LDQ 1)+3 06363 FSB 1)+8 06204 STO ES5 06274 FMP 3)+6 06364 FAD 1)+5 | 06205 387A LDQ B3 06275 FDP 1)+2 06365 FAD 1)+4 | 06206 FMP B3 06276 FMP SP811-1 06366 FSB 1)+1 | 06207 FSB SP62-1 06277 STO 1)+4 06367 STO ES14 | 06210 STO ES8 06300 CLA 3)+6 06370 394A CLA 3)+1 06211 388A LDQ B4 06301 FDP F 06371 FDP F-1 | 06212 FMP B4 06302 FMP SP83-1 06372 STQ 1)+1 | 06213 FSB SP82-1 06303 STO 1)+5 06373 CLA 3)+1 | 06214 STO ES10 06304 LDQ 1)+2 06374 FDP F | 06215 389A LDQ B2 06305 FMP 1)+2 06375 XCA 06216 FMP B3 06306 STO 1)+6 06376 FSB 1)+1 | 06217 FSB SP51-1 06307 CLA F 06377 XCA | 06220 STO ES6 06310 FAD 3)+3 06400 FMP B2 | 06221 390A LDQ B2 06311 STO 1)+7 06401 STO ES1 | 06222 FMP B4 06312 LDQ 1)+3 06402 395A CLA 3)+2 06223 FSB SP61-1 06313 FMP 3)+4 06403 FDP F-1 | 06224 STO ES7 06314 FDP 1)+6 06404 STQ 1)+1 | 06225 391A LDQ B3 06315 FMP 1)+7 06405 CLA 3)+1 | 06226 FMP B4 06316 XCA 06406 FDP F | 06227 FSB SP72-1 06317 FMP SP810-1 06407 STQ 1)+2 06230 STO ES9 06320 STO 1)+8 06410 CLA 1)+2 | 06231 392A LDQ 3)+2 06321 LDQ F 06411 FSB 1)+1 | 06232 FMP SP63-1 06322 FMP 1)+6 06412 STO 1)+3 | 06233 STO 1)+1 06323 STO 1)+9 06413 CLA 3)+1 | 06234 CLA F 06324 CLA F 06414 FDP F-1 1 DIMENSIONX(1000),D(100),D2(100),D3(100),D4(100),D5(100),D6(100),D7 12/01/64 PAGE 31 | | 06415 STQ 1)+4 06505 FMP F 06575 STR | 06416 CLA 1)+2 06506 XCA 06576 LDQ ES4 | 06417 FSB 1)+4 06507 FMP F 06577 STR 06420 STO 1)+5 06510 STO 1)+15 06600 LDQ ES5 | 06421 LDQ B3 06511 CLA 3)+1 06601 STR | 06422 FMP 1)+5 06512 FDP 1)+15 06602 LDQ ES6 | 06423 XCA 06513 XCA 06603 STR | 06424 FMP 1)+3 06514 FSB 1)+14 06604 LDQ ES7 06425 STO ES11 06515 FAD 1)+12 06605 STR | 06426 396A LDQ F-1 06516 FSB 1)+10 06606 LDQ ES8 | 06427 FMP F-1 06517 XCA 06607 STR | 06430 STO 1)+1 06520 FMP B4 06610 LDQ ES9 | 06431 CLA 3)+1 06521 FAD 1)+8 06611 STR 06432 FDP 1)+1 06522 STO ES12 06612 LDQ ES10 | 06433 STQ 1)+2 06523 397A CLA 3)+1 06613 STR | 06434 LDQ F 06524 FDP F-1 06614 LDQ ES11 | 06435 FMP F-1 06525 STQ 1)+1 06615 STR | 06436 STO 1)+3 06526 CLA 3)+1 06616 LDQ ES12 06437 CLA 3)+2 06527 FDP F 06617 STR | 06440 FDP 1)+3 06530 XCA 06620 LDQ ES13 | 06441 STQ 1)+4 06531 FSB 1)+1 06621 STR | 06442 LDQ F 06532 XCA 06622 LDQ ES14 | 06443 FMP F 06533 FMP B3 06623 STR 06444 STO 1)+5 06534 STO ES2 06624 TSX (FIL),4 | 06445 CLA 3)+1 06535 398A CLA 3)+1 06625 403A TRA 36A | 06446 FDP 1)+5 06536 FDP F-1 06626 2) OCT +000005000000 | 06447 XCA 06537 STQ 1)+1 06627 OCT +000001000000 | 06450 FSB 1)+4 06540 CLA 3)+1 06630 OCT +000002000000 06451 FAD 1)+2 06541 FDP F 06631 OCT +000003000000 | 06452 STO 1)+7 06542 XCA 06632 OCT +000004000000 | 06453 LDQ B22 06543 FSB 1)+1 06633 OCT +000006000000 | 06454 FMP 3)+3 06544 XCA 06634 OCT +000007000000 | 06455 XCA 06545 FMP B4 06635 3) OCT +000000000000 06456 FMP 1)+7 06546 STO ES3 06636 OCT +201400000000 | 06457 STO 1)+8 06547 399A CLA 3)+1 06637 OCT +202400000000 | 06460 LDQ F-1 06550 FDP F-1 06640 OCT +202600000000 | 06461 FMP F-1 06551 STQ 1)+1 06641 OCT +203400000000 | 06462 XCA 06552 CLA 3)+1 06642 OCT +203500000000 06463 FMP F-1 06553 FDP F 06643 OCT +203600000000 | 06464 STO 1)+9 06554 XCA 06644 OCT +203700000000 | 06465 CLA 3)+3 06555 FSB 1)+1 06645 OCT +204500000000 | 06466 FDP 1)+9 06556 XCA 06646 OCT +205400000000 | 06467 STQ 1)+10 06557 FMP B5 06647 OCT +204540000000 06470 LDQ F 06560 STO ES4 06650 OCT +204740000000 | 06471 FMP 1)+1 06561 400A CAL 2)+5 06651 OCT +206550000000 | 06472 STO 1)+11 06562 TSX (STH),4 06652 OCT +206740000000 | 06473 CLA 3)+6 06563 PZE 8)6D 06653 OCT +205500000000 | 06474 FDP 1)+11 06564 TSX (FIL),4 06654 OCT +204400000000 06475 STQ 1)+12 06565 401A CAL 2)+5 06655 OCT +205620000000 | 06476 LDQ 1)+5 06566 TSX (STH),4 06656 OCT +206500000000 | 06477 FMP F-1 06567 PZE 8)6I 06657 OCT +204440000000 | 06500 STO 1)+13 06570 402A LDQ ES1 06660 OCT +205720000000 | 06501 CLA 3)+4 06571 STR 06661 OCT +205740000000 06502 FDP 1)+13 06572 LDQ ES2 06662 OCT +206520000000 | 06503 STQ 1)+14 06573 STR 06663 OCT +207734000000 | 06504 LDQ F 06574 LDQ ES3 06664 OCT +204600000000 | 1 DIMENSIONX(1000),D(100),D2(100),D3(100),D4(100),D5(100),D6(100),D7 12/01/64 PAGE 32 | 06665 OCT +205760000000 06755 OCT +207624000000 07045 BCD 1111= E | 06666 OCT +205440000000 06756 OCT +210734000000 07046 BCD 1 M | 06667 OCT +205520000000 06757 OCT +206600000000 07047 BCD 1,13H | 06670 OCT +206430000000 06760 OCT +207550000000 07050 BCD 1.8/1H0 | 06671 OCT +207644000000 06761 OCT +207460000000 07051 BCD 1= E16 06672 OCT +205700000000 06762 OCT +211761000000 07052 BCD 1 M44 | 06673 OCT +207614000000 06763 OCT +211752000000 07053 BCD 1,11H | 06674 OCT +210504000000 06764 OCT +215406400000 07054 BCD 1H0,83X | 06675 OCT +205420000000 06765 OCT +212662000000 07055 BCD 116.8/1 | 06676 OCT +212572400000 06766 OCT +213644000000 07056 BCD 134= E 06677 OCT +210432000000 06767 OCT +207404000000 07057 BCD 1 M | 06700 OCT +211616000000 06770 OCT +207700000000 07060 BCD 1.8,11H | 06701 OCT +207740000000 06771 OCT +211644000000 07061 BCD 1= E16 | 06702 OCT +206450000000 06772 OCT +207574000000 07062 BCD 1 M33 | 06703 OCT +206470000000 06773 OCT +211502000000 07063 BCD 1,11H 06704 OCT +210472000000 06774 OCT +207570000000 07064 BCD 1H0,56X | 06705 OCT +211426000000 06775 OCT +214561000000 07065 BCD 116.8/1 | 06706 OCT +205560000000 06776 OCT +214671000000 07066 BCD 124= E | 06707 OCT +207674000000 06777 OCT +211574000000 07067 BCD 1 M | 06710 OCT +210664000000 07000 OCT +212446000000 07070 BCD 1.8,11H 06711 OCT +206410000000 07001 OCT +207640000000 07071 BCD 1= E16 | 06712 OCT +207744000000 07002 OCT +211461000000 07072 BCD 1 M23 | 06713 OCT +210634000000 07003 OCT +206770000000 07073 BCD 1,11H | 06714 OCT +206560000000 07004 OCT +206640000000 07074 BCD 1 E16.8 | 06715 OCT +205600000000 07005 OCT +212414000000 07075 BCD 1 M22= 06716 OCT +206700000000 07006 OCT +213446000000 07076 BCD 11H | 06717 OCT +210644000000 07007 OCT +210400000000 07077 BCD 1,29X,1 | 06720 OCT +211430000000 07010 OCT +210520000000 07100 BCD 1.8/1H0 | 06721 OCT +211520000000 07011 OCT +207764000000 07101 BCD 1= E16 | 06722 OCT +213662000000 07012 OCT +211600000000 07102 BCD 1 M14 06723 OCT +215424400000 07013 OCT +211671000000 07103 BCD 1,11H | 06724 OCT +214644000000 07014 OCT +206440000000 07104 BCD 1 E16.8 | 06725 OCT +204640000000 07015 OCT +207440000000 07105 BCD 1 M13= | 06726 OCT +204700000000 07016 OCT +210440000000 07106 BCD 11H | 06727 OCT +206710000000 07017 OCT +206420000000 07107 BCD 116.8,1 06730 OCT +211626000000 07020 OCT +205540000000 07110 BCD 112= E | 06731 OCT +214527000000 07021 OCT +206400000000 07111 BCD 1 M | 06732 OCT +212455000000 07022 OCT +211500000000 07112 BCD 1.8,11H | 06733 OCT +212644000000 07023 OCT +206660000000 07113 BCD 1= E16 | 06734 OCT +205660000000 07024 6) OCT +233000000000 07114 BCD 1 M11 06735 OCT +210730000000 07025 OCT +000000377777 07115 BCD 13H | 06736 OCT +212536000000 07026 OCT +000000000000 07116 8)6I BCD 1(1H0,1 | 06737 OCT +212520000000 07027 OCT +000001000000 07117 BCD 1ICS) | 06740 OCT +207600000000 07030 OCT +000000000000 07120 BCD 1TATIST | 06741 OCT +212412000000 07031 OCT +000000000000 07121 BCD 1OF K S 06742 OCT +206760000000 07032 BCD 116.8) 07122 BCD 1MENTS | 06743 OCT +210446000000 07033 BCD 12222=E 07123 BCD 1TED MO | 06744 OCT +207770000000 07034 BCD 1 M 07124 BCD 1ESTIMA | 06745 OCT +206630000000 07035 BCD 1.8,11H 07125 BCD 17H | 06746 OCT +212407400000 07036 BCD 12= E16 07126 8)6D BCD 1(1H6,3 06747 OCT +213433400000 07037 BCD 1 M22 07127 BCD 116.8) | 06750 OCT +214412000000 07040 BCD 1,11H 07130 BCD 12222=E | 06751 OCT +215644000000 07041 BCD 1=E16.8 07131 BCD 1 M | 06752 OCT +210554000000 07042 BCD 1 M1111 07132 BCD 1.8,11H | 06753 OCT +205640000000 07043 BCD 11H 07133 BCD 12= E16 06754 OCT +206750000000 07044 BCD 116.8,1 07134 BCD 1 M22 | 1 DIMENSIONX(1000),D(100),D2(100),D3(100),D4(100),D5(100),D6(100),D7 12/01/64 PAGE 33 | | 07135 BCD 1,11H 07225 BCD 15H 07315 BCD 12= E | 07136 BCD 1=E16.8 07226 8)62 BCD 1(1H0,1 07316 BCD 1 K32K 07137 BCD 1 M1111 07227 BCD 1.8) 07317 BCD 15H | 07140 BCD 11H 07230 BCD 1= E16 07320 BCD 1/1H0,1 | 07141 BCD 116.8,1 07231 BCD 1K222K2 07321 BCD 1 E16.8 | 07142 BCD 1111= E 07232 BCD 1 07322 BCD 1K3= | 07143 BCD 1 M 07233 BCD 1H0,15H 07323 BCD 1 K4 07144 BCD 1,13H 07234 BCD 116.8/1 07324 BCD 1,15H | 07145 BCD 1.8/1H0 07235 BCD 12= E 07325 BCD 1.8/1H0 | 07146 BCD 1= E16 07236 BCD 1 K3K3 07326 BCD 1 E16 | 07147 BCD 1 M44 07237 BCD 15H 07327 BCD 1K5K2= | 07150 BCD 1,11H 07240 BCD 1/1H0,1 07330 BCD 1 07151 BCD 1H0,83X 07241 BCD 1 E16.8 07331 BCD 1H0,15H | 07152 BCD 116.8/1 07242 BCD 13K2= 07332 BCD 116.8/1 | 07153 BCD 134= E 07243 BCD 1 K3 07333 BCD 12= E | 07154 BCD 1 M 07244 BCD 1,15H 07334 BCD 1 K22K | 07155 BCD 1.8,11H 07245 BCD 1.8/1H0 07335 BCD 15H 07156 BCD 1= E16 07246 BCD 1 E16 07336 8)5V BCD 1(1H0,1 | 07157 BCD 1 M33 07247 BCD 1K4K22= 07337 BCD 1.8) | 07160 BCD 1,11H 07250 BCD 1 07340 BCD 1= E16 | 07161 BCD 1H0,56X 07251 BCD 1H0,15H 07341 BCD 1K2K2K2 | 07162 BCD 116.8/1 07252 BCD 116.8/1 07342 BCD 1 07163 BCD 124= E 07253 BCD 12= E 07343 BCD 1H0,15H | 07164 BCD 1 M 07254 BCD 1 K42K 07344 BCD 116.8/1 | 07165 BCD 1.8,11H 07255 BCD 15H 07345 BCD 1= E | 07166 BCD 1= E16 07256 8)6V BCD 1(1H0,1 07346 BCD 1 K3K3 | 07167 BCD 1 M23 07257 BCD 1.8) 07347 BCD 15H 07170 BCD 1,11H 07260 BCD 1K2=E16 07350 BCD 1/1H0,1 | 07171 BCD 1 E16.8 07261 BCD 1K2K2K2 07351 BCD 1 E16.8 | 07172 BCD 1 M22= 07262 BCD 1 07352 BCD 1K2= | 07173 BCD 11H 07263 BCD 1H0,15H 07353 BCD 1 K4 | 07174 BCD 1,29X,1 07264 BCD 116.8/1 07354 BCD 1,15H 07175 BCD 1.8/1H0 07265 BCD 1K2= E 07355 BCD 1.8/1H0 | 07176 BCD 1= E16 07266 BCD 1 K3K3 07356 BCD 1 E16 | 07177 BCD 1 M14 07267 BCD 15H 07357 BCD 1K3K2= | 07200 BCD 1,11H 07270 BCD 1/1H0,1 07360 BCD 1 | 07201 BCD 1 E16.8 07271 BCD 1 E16.8 07361 BCD 1H0,15H 07202 BCD 1 M13= 07272 BCD 1K2K2= 07362 BCD 116.8/1 | 07203 BCD 11H 07273 BCD 1 K4 07363 BCD 1= E | 07204 BCD 116.8,1 07274 BCD 1,15H 07364 BCD 1 K2K2 | 07205 BCD 112= E 07275 BCD 1.8/1H0 07365 BCD 15H | 07206 BCD 1 M 07276 BCD 1 E16 07366 8)5U BCD 1(1H0,1 07207 BCD 1.8,11H 07277 BCD 1K4K4= 07367 BCD 116.8) | 07210 BCD 1= E16 07300 BCD 1 07370 BCD 122= E | 07211 BCD 1 M11 07301 BCD 1H0,15H 07371 BCD 1 K22K | 07212 BCD 13H 07302 BCD 116.8/1 07372 BCD 15H | 07213 8)68 BCD 1(1H0,1 07303 BCD 1= E 07373 8)71 BCD 1(1H0,1 07214 BCD 1STICS) 07304 BCD 1 K6K2 07374 BCD 1CTS/) | 07215 BCD 1 STATI 07305 BCD 15H 07375 BCD 1 PRODU | 07216 BCD 1S OF K 07306 8)60 BCD 1(1H0,1 07376 BCD 1TUTION | 07217 BCD 1MOMENT 07307 BCD 1.8) 07377 BCD 1SUBSTI | 07220 BCD 17H 07310 BCD 1 E16 07400 BCD 15H 07221 8)63 BCD 1(1H6,2 07311 BCD 1K3K22= 07401 8)5P BCD 1(1H-,2 | 07222 BCD 116.8) 07312 BCD 1 07402 BCD 1E25.8) | 07223 BCD 12K2= E 07313 BCD 1H0,15H 07403 8)5K BCD 1(1H0,2 | 07224 BCD 1 K22K 07314 BCD 116.8/1 07404 BCD 1/) | 1 DIMENSIONX(1000),D(100),D2(100),D3(100),D4(100),D5(100),D6(100),D7 12/01/64 PAGE 34 | 07405 BCD 1CHECKS 07475 BCD 11H 07565 BCD 125.8// | 07406 BCD 10H 07476 BCD 116.8,1 07566 BCD 11H0,2E | 07407 8)5I BCD 1(1H0,1 07477 BCD 142= E 07567 BCD 1E25.8/ | 07410 BCD 1E25.8) 07500 BCD 1 K 07570 BCD 1/1H-,2 07411 8)4C BCD 1(1H0,2 07501 BCD 1.8,11H 07571 BCD 12E25.8 | 07412 BCD 1/) 07502 BCD 1 E16 07572 BCD 18/1H0, | 07413 BCD 1CHECKS 07503 BCD 1 K6= 07573 BCD 1,2E25. | 07414 BCD 10H 07504 BCD 13H 07574 BCD 1.8/1H- | 07415 8)47 BCD 1(1H0,1 07505 8)3U BCD 1(1H0,1 07575 BCD 1H-,E25 07416 BCD 1.8///) 07506 BCD 116.8) 07576 BCD 125.8/1 | 07417 BCD 122=E16 07507 BCD 132= E 07577 8)2V BCD 1(1H-,E | 07420 BCD 1 K22 07510 BCD 1 K 07600 BCD 1NTS) | 07421 BCD 1,11H 07511 BCD 1.8,11H 07601 BCD 1FFICIE | 07422 BCD 1 E16.8 07512 BCD 1 E16 07602 BCD 1LS COE 07423 BCD 1 K332= 07513 BCD 1 K5= 07603 BCD 1DRESSE | 07424 BCD 11H 07514 BCD 13H 07604 BCD 15H | 07425 BCD 116.8,1 07515 8)3S BCD 1(1H0,1 07605 8)2Q BCD 1(1H6,2 | 07426 BCD 1422= E 07516 BCD 116.8) 07606 BCD 125.8) | 07427 BCD 1 K 07517 BCD 122= E 07607 BCD 11H0,3E 07430 BCD 1,13H 07520 BCD 1 K 07610 BCD 1E25.8/ | 07431 BCD 1.8/1H0 07521 BCD 1.8,11H 07611 8)2L BCD 1(1H0,4 | 07432 BCD 1= E16 07522 BCD 1 E16 07612 BCD 1ATES) | 07433 BCD 1 K44 07523 BCD 1 K4= 07613 BCD 1F DEVI | 07434 BCD 1,11H 07524 BCD 13H 07614 BCD 1SUMS O 07435 BCD 1 E16.8 07525 8)3Q BCD 1(1H0,1 07615 BCD 1POWER | 07436 BCD 1 K53= 07526 BCD 1) 07616 BCD 16H | 07437 BCD 11H 07527 BCD 1 E16.8 07617 8)2G BCD 1(1H1,2 | 07440 BCD 116.8,1 07530 BCD 1 K3= 07620 BCD 1) | 07441 BCD 162= E 07531 BCD 1 07621 BCD 18.0,I1 07442 BCD 1 K 07532 BCD 1H0,13H 07622 8)1 BCD 1 (I8,F | 07443 BCD 1.8,11H 07533 BCD 116.8/1 07623 BCD 1) | 07444 BCD 1 E16 07534 BCD 12= E 07624 BCD 18.0,I1 | 07445 BCD 1 K8= 07535 BCD 1 K 07625 8)3 BCD 1 (I8,F | 07446 BCD 13H 07536 BCD 1,13H 07626 BCD 1) 07447 8)42 BCD 1(1H0,1 07537 BCD 1.8/1H0 07627 8)6 BCD 1 (12A6 | 07450 BCD 1.8) 07540 BCD 1 E16 07630 8)2 BCD 1 (I1) | 07451 BCD 12= E16 07541 BCD 1 K1= | 07452 BCD 1 K32 07542 BCD 13H | 07453 BCD 1,11H 07543 8)3O BCD 1(1H0,1 07454 BCD 1 E16.8 07544 BCD 1) | 07455 BCD 1 K43= 07545 BCD 1ISTICS | 07456 BCD 11H 07546 BCD 1K STAT | 07457 BCD 116.8,1 07547 BCD 16H | 07460 BCD 152= E 07550 8)3J BCD 1(1H6,1 07461 BCD 1 K 07551 BCD 125.8) | 07462 BCD 1.8,11H 07552 BCD 11H0,3E | 07463 BCD 1 E16 07553 BCD 1E25.8/ | 07464 BCD 1 K7= 07554 8)3E BCD 1(1H-,4 | 07465 BCD 13H 07555 BCD 1) 07466 8)40 BCD 1(1H0,1 07556 BCD 1E25.8) | 07467 BCD 1.8) 07557 BCD 1(1H0,4 | 07470 BCD 12= E16 07560 BCD 1E25.8/ | 07471 BCD 1 K22 07561 8)39 BCD 1(1H-,4 | 07472 BCD 1,11H 07562 BCD 1E25.8) 07473 BCD 1 E16.8 07563 8)34 BCD 1(1H0,4 | 07474 BCD 1 K33= 07564 BCD 1) | 1 0LIBRARY ENTRY POINTS, (FPT) (TSHM) (RTN) (STHM) (FIL) 0LOGICAL MACHINE TOTAL TOTAL NOISE RECORDS TOTAL REDUNDANCIES POSITIONING TAPE TAPE WRITES READS WRITING READING WRITING READING ERRORS 1 A1 0 31 0 0 0 0 0 2 A4 523 557 0 0 0 0 0 3 B4 110 128 0 0 0 0 0 4 A3 469 644 0 0 0 0 0 5 A2 0 411 0 0 0 0 0 6 B1 728 1 0 0 0 0 0 7 B2 205 202 0 0 0 0 0 0 EXECUTION 1 POWER SUMS OF DEVIATES 0 0.48690998E 03 -0.11051752E 04 0.76357491E 04 -0.29657557E 05 0 0.15998493E 06 -0.72406430E 06 0.36699183E 07 6 DRESSELS COEFFICIENTS - 0.09999999E 03 - 0.09999999E 05 - 0.10100000E 07 -0.29700000E 05 0 -0.98999999E 04 0.97030000E 04 - 0.10500000E 09 -0.99000000E 07 0 -0.98999999E 06 0.98019999E 06 0 0.11610959E 11 -0.15289559E 10 -0.98049600E 09 0.29106000E 08 0 -0.10193039E 09 0.99904440E 08 0.38990399E 07 -0.27959400E 07 0 -0.98049600E 08 0.58485600E 07 0.92248960E 08 -0.85559999E 05 0 0.19404000E 07 -0.27959400E 07 -0.57039999E 05 0.91287000E 06 - 0.14318579E 13 -0.23455277E 12 -0.35017288E 12 0.20374199E 11 0 -0.11169180E 11 0.10572974E 11 0.14502589E 10 -0.94168200E 09 0 -0.10004939E 11 0.87015539E 09 0.94296468E 10 -0.29670600E 09 0 0.19403999E 09 -0.18833639E 09 -0.98902000E 08 0.93208000E 08 - 0.20658369E 15 -0.38246480E 14 -0.60917293E 14 -0.35461336E 14 0 0.42736921E 13 0.53820485E 13 -0.59288921E 11 - -0.13659457E 13 0.11999808E 13 0.25707841E 12 0.14456064E 12 0 -0.14662935E 12 -0.99940921E 11 0.26581627E 10 - -0.10878088E 13 0.12853920E 12 0.10054154E 13 0.50311035E 11 0 -0.71068488E 10 -0.89599667E 11 0.81311220E 08 - -0.10131810E 13 0.11564852E 12 0.80497656E 11 0.87755796E 12 0 -0.55401207E 11 -0.59145724E 10 0.78226397E 09 - 0.20350914E 11 -0.19550581E 11 -0.18951596E 10 -0.92335345E 10 0 0.98143880E 10 0.76986963E 09 -0.25502951E 09 - 0.19221602E 11 -0.99940922E 10 -0.17919933E 11 -0.73932155E 09 0 0.57740223E 09 0.88624273E 10 -0.80478960E 07 - -0.56465640E 09 0.70884340E 09 0.43365984E 08 0.26075466E 09 0 -0.51005901E 09 -0.21461055E 08 0.83212041E 08 6 K STATISTICS 0 K1= 0.19700000E 01 0 K2= 0.49182825E 01 0 K3= -0.11391211E 02 0 K4= 0.71277820E 01 K22= 0.23640636E 02 0 K5= 0.24498893E 03 K32= -0.55133650E 02 0 K6= -0.19395052E 04 K42= 0.43268395E 02 K33= 0.12682986E 03 K222= 0.11094880E 03 0 K7= -0.40909661E 03 K52= 0.11143690E 04 K43= -0.88682802E 02 K322= -0.26039558E 03 0 K8= 0.17586525E 06 K62= -0.93497427E 04 K53= -0.26220253E 04 K44= -0.99438938E 02 0 K422= 0.24542613E 03 K332= 0.60310221E 03 K2222= 0.50789859E 03 0 CHECKS 0 0.24189503E 02 0.24189502E 02 0 -0.56025194E 02 -0.56025192E 02 0 0.12975968E 03 0.12975968E 03 0 -0.81194068E 02 -0.81194047E 02 0 0.50805277E 02 0.50805864E 02 0 CHECKS 0 0.24189503E 02 0.24189502E 02 0 -0.56025194E 02 -0.56025192E 02 0 0.35056446E 02 0.35056437E 02 0 0.12975968E 03 0.12975968E 03 0 0.11897081E 03 0.11897081E 03 0 0.11627132E 03 0.11627133E 03 0 0.12049248E 04 0.12049248E 04 0 -0.81194068E 02 -0.81194047E 02 0 -0.27116287E 03 -0.27116286E 03 0 -0.26929547E 03 -0.26929547E 03 0 -0.95390347E 04 -0.95390338E 04 0 0.50805277E 02 0.50805864E 02 0 0.17241750E 03 0.17241745E 03 0 0.63819479E 03 0.63819478E 03 0 0.58513206E 03 0.58513206E 03 0 0.21280620E 03 0.21280618E 03 0 0.16850530E 03 0.16850525E 03 0 0.62378509E 03 0.62378508E 03 0 0.62803903E 03 0.62803902E 03 0 0.54567758E 03 0.54567757E 03 0 0.57185525E 03 0.57185526E 03 0 0.55887970E 03 0.55887970E 03 - SUBSTITUTION PRODUCTS 0 K2K2= 0.29606889E 02 0 K3K2= -0.67390522E 02 0 K4K2= -0.27668090E 02 0 K3K3= 0.19543493E 03 0 K2K2K2= 0.20023773E 03 0 K22K2= 0.16609462E 03 0 K5K2= 0.21145742E 04 0 K4K3= -0.24135434E 03 0 K32K2= -0.38731896E 03 0 K3K22= -0.33540442E 03 0 K6K2= -0.13190600E 05 0 K4K4= 0.36822547E 04 0 K4K2K2= -0.66567975E 03 0 K3K3K2= 0.12178308E 04 0 K2K2K2K2= 0.14710288E 04 0 K42K2= 0.33539040E 02 0 K4K22= -0.84592248E 03 0 K33K2= 0.88504317E 03 0 K3K32= 0.99925844E 03 0 K222K2= 0.87991866E 03 0 K22K2K2= 0.12580337E 04 0 K22K22= 0.10985122E 04 6 MOMENTS OF K STATISTICS 0 M11= 0.44264542E-00 M12= -0.10252089E 01 M13= 0.64150038E 00 M14= 0.22049004E 02 0 M22= 0.54173860E 01 M23= -0.11365328E 02 M24= -0.62724537E 02 0 M33= 0.65675249E 02 M34= -0.16016027E 03 0 M44= 0.36314494E 04 0 M111= -0.82016715E-01 M1111= 0.57915040E 00 M222= 0.13342151E 01 M2222= 0.73385360E 02 1 1990 LINES OUTPUT THIS JOB. 1 0 FORTRAN MONITOR RETURNING TO IBSYS $STOP | 1 PERIPHERAL UNIT POSITIONS AT END OF JOBS | 1 SYSPP1 IS B2 REC. 00000, FILE 00002 SYSOU1 IS B1 REC. 00839, FILE 00000 SYSIN1 IS A2 REC. 00002, FILE 00001| 1 END OF JOBS | 1