0200 BAC-220 STANDARD VERSION 2/1/62 0200 COMMENT FIFTH EXAMPLE PROGRAM - FROM BALGOL MANUAL, JANUARY 1961 0200 EDITION. 0200 0200 THE FOLLOWING PROGRAM FOR OPTICAL RAY-TRACING WAS WRITTEN BY 0200 R. MITCHELL$ 0200 0200 COMMENT OPTICAL TRACE PROGRAM, R. F. MITCHELL, VIDYA 1$ 0200 INTEGER M, J, K, JA, JB$ 0200 ARRAY A(4), B(4), C(4)$ 0200 0200 0 0000 11 4987 CONST 0201 0 0000 40 4996 A 0202 0 0000 11 4986 CONST 0203 0 0000 40 4998 A 0200 A(1) = -260.0$ A(3) = -600.0$ A(4) = 0.0$ 0204 0 0000 46 4999 A 4980 0 5225 00 0000 4981 0 5250 00 0000 4982 0 5275 00 0000 4983 0 5310 00 0000 4984 0 5312 50 0000 4985 0 5315 00 0000 0205 ARRAY G(6) = (25.0, 50.0, 75.0, 100.0, 125.0, 150.0)$ 0205 0 0000 10 4979 CONST 0206 0 0000 40 4988 C 0207 0 0000 10 4978 CONST 0208 0 0000 40 4989 C 0209 0 0000 10 4979 CONST 0210 0 0000 40 4990 C 0205 C(1) = 1.0$ C(2) = 3.436$ C(3) = 1.0$ C(4) = -1.0$ 0211 0 0000 11 4979 CONST 0212 0 0000 40 4991 C 0213 0 0000 10 4977 CONST 0214 0 0000 40 4993 B 0215 0 0000 10 4979 CONST 0216 0 0000 40 4994 B 0213 B(2) = 339.75$ B(3) = 1.0$ B(4) = 0.0$ 0217 0 0000 46 4995 B 4971 0 5155 00 0000 4972 0 5157 50 0000 4973 0 5160 00 0000 4974 0 5162 50 0000 4975 0 5167 50 0000 4976 0 5170 00 0000 0218 ARRAY B1(6) = (5.5, 5.75, 6.0, 6.25, 6.75, 7.0)$ 0218 0218 0 0000 10 4970 CONST 0219 0 0000 40 4969 JB 0220 0 0000 44 0221 0 0000 30 0222 0 0000 10 4970 CONST 0223 0 0000 12 4969 JB 0224 0 0000 40 4969 JB 0221 0225 0225 0 0000 13 4968 CONST 0226 0 1111 31 0228 0227 0 0000 36 0228 0 0001 33 0218 FOR JB = (1, 1, 6)$ 0229 0 0000 30 0228 0230 0227 0230 0229 BEGIN 0229 B(1) = B1(JB)$ 0230 0 0000 42 4969 JB 0231 1 0000 10 4970 B1 0232 0 0000 40 4992 B 0233 0 0000 10 4989 C 0234 0 0000 24 4989 C 0235 0 0000 40 4967 TEMP 0236 0 0000 11 4979 CONST 0237 0 0002 45 0000 0238 0 0000 25 4967 TEMP 0239 0 0000 22 4979 CONST 0233 A(2) = A(1) - B1(JB)(1.0 - 1.0/C(2).C(2))$ 0240 0 0000 42 4969 JB 0241 1 0000 24 4970 B1 0242 0 0000 23 4996 A 0243 0 0000 40 4967 TEMP 0244 0 0000 11 4967 TEMP 0245 0 0000 40 4997 A 0246 0 0000 10 0247 0247 0 0000 01 0000 PARAM 0248 0 4400 28 4727 0249 1 0000 40 0000 0246 WRITE ($$ PARAM, F6)$ 0250 0 0000 10 0251 0251 0 0000 01 0000 F6 0252 0 0000 44 4727 WRITE 0253 0 0100 30 4727 0254 0 0000 30 0247 0255 0255 0 0000 30 0256 0 0000 10 4970 CONST 0257 0 0000 40 4726 K 0258 0 0000 44 0259 0 0000 30 0260 0 0000 10 4970 CONST 0261 0 0000 12 4726 K 0262 0 0000 40 4726 K 0259 0263 0263 0 0000 13 4725 CONST 0264 0 1111 31 0266 0265 0 0000 36 0266 0 0001 33 0267 0 0000 30 0266 0268 0265 0268 0268 0 0000 42 4726 K 0269 1 0000 10 4995 A 0270 0 0000 42 0270 0271 0 0002 20 0255 0272 0 0000 42 4726 K 0273 1 0000 10 4991 B 0274 0 0000 42 0274 0275 0 0002 20 0255 0276 0 0000 42 4726 K 0277 1 0000 10 4987 C 0278 0 0000 42 0278 0279 0 0002 20 0255 0267 0281 0258 0280 0280 0 0000 30 0254 OUTPUT PARAM (FOR K = (1, 1, 4)$ (A(K), B(K), C(K)))$ 0281 0 0009 43 0000 0282 0 0000 30 0255 0254 0283 0283 0 0000 30 0251 0284 0284 0 0006 60 0300 0285 0 0034 60 2008 0286 0 0006 60 0400 0287 1 0000 11 0285 0288 1 0000 00 0284 0283 FORMAT F6 (W3,11(3F20.8,W4))$ 0283 0289 0289 0 0000 10 4970 CONST 0290 0 0000 40 4724 M 0291 0 0000 44 0292 0 0000 30 0293 0 0000 10 4970 CONST 0294 0 0000 12 4724 M 0295 0 0000 40 4724 M 0292 0296 0296 0 0000 13 4968 CONST 0297 0 1111 31 0299 0298 0 0000 36 0299 0 0001 33 0289 FOR M = (1, 1, 6)$ 0300 0 0000 30 0299 0301 0298 0301 0300 BEGIN 0300 H1 = G(M)$ 0301 0 0000 42 4724 M 0302 1 0000 10 4979 G 0303 0 0000 40 4723 H1 0304 0 0000 10 0305 0305 0 0000 01 0000 GVALU 0306 0 4400 28 4727 0307 1 0000 40 0000 0304 WRITE ($$ GVALU, F1)$ 0308 0 0000 10 0309 0309 0 0000 01 0000 F1 0310 0 0000 44 4727 WRITE 0311 0 0100 30 4727 0312 0 0000 30 0305 0313 0313 0 0000 30 0312 OUTPUT GVALU (H1)$ 0314 0 0000 10 4723 H1 0315 0 0000 42 0315 0316 0 0002 20 0313 0317 0 0009 43 0000 0318 0 0000 30 0313 0312 0319 0319 0 0000 30 0309 0320 0320 0 0004 20 1000 0321 3 4714 00 0000 0322 0 0006 70 2008 0323 0 0006 60 0600 0324 1 0000 00 0320 0319 FORMAT F1 (B10,*G*,X20.8,W6)$ 0319 0325 0325 0 0000 46 4722 SUMD 0326 0 0000 46 4721 E 0325 SUMD = 0.0$ E = 0.0$ P = H1$ 0327 0 0000 10 4723 H1 0328 0 0000 40 4720 P 0329 0 0000 10 4970 CONST 0330 0 0000 40 4719 J 0331 0 0000 44 0332 0 0000 30 0333 0 0000 10 4970 CONST 0334 0 0000 12 4719 J 0335 0 0000 40 4719 J 0332 0336 0336 0 0000 13 4718 CONST 0337 0 1111 31 0339 0338 0 0000 36 0339 0 0001 33 0329 FOR J = (1, 1, 3)$ 0340 0 0000 30 0339 0341 0338 0341 0340 BEGIN 0340 R1 = P/A(J)$ 0341 0 0000 10 4720 P 0342 0 0002 45 0000 0343 0 0000 42 4719 J 0344 1 0000 25 4995 A 0345 0 0000 40 4717 R1 0346 0 0001 10 4717 R1 0346 IF ABS(R1) GTR 0.95$ 0347 0 0000 13 4716 CONST 0348 0 1111 31 0350 0349 0 0000 36 0350 0 0001 33 0346 GO TO PRINT$ 0346 0351 0 0000 30 0000 PRINT 0350 0352 0349 0352 0352 I = ARCSIN(R1)$ 0352 0 0000 10 4717 R1 0353 0 0000 44 4703 ARCSI 0354 0 0000 30 4703 0355 0 0000 40 4702 I 0356 0 0000 10 4717 R1 0357 0 0000 42 4719 J 0358 1 0000 24 4987 C 0356 R2 = R1.C(J)/C(J+1)$ 0359 0 0002 45 0000 0360 1 0000 25 4988 C 0361 0 0000 40 4701 R2 0362 0 0001 10 4701 R2 0362 IF ABS(R2) GTR 0.95$ 0363 0 0000 13 4716 CONST 0364 0 1111 31 0366 0365 0 0000 36 0366 0 0001 33 0362 GO TO PRINT$ 0362 0367 0 0000 30 0000 PRINT 0366 0368 0365 0368 0368 IP = ARCSIN(R2)$ 0368 0 0000 10 4701 R2 0369 0 0000 44 4703 ARCSI 0370 0 0000 30 4703 0371 0 0000 40 4700 IP 0372 E = E + I - IP$ 0372 0 0000 10 4702 I 0373 0 0000 23 4700 IP 0374 0 0000 22 4721 E 0375 0 0000 40 4721 E 0376 0 0000 10 4970 CONST 0377 0 0000 12 4719 J 0378 0 0000 40 4967 TEMP 0379 0 0000 10 4702 I 0380 0 0000 22 4721 E 0376 H2 =(J+1)SIN(E+I)$ 0381 0 0000 44 4644 SIN 0382 0 0000 30 4644 0383 0 0000 40 4643 TEMP 0384 0 0000 10 4967 TEMP 0385 0 0000 44 4629 FLOAT 0386 0 0000 30 4629 0387 0 0000 24 4643 TEMP 0388 0 0000 40 4628 H2 0389 R3 = SIN(E)$ 0389 0 0000 10 4721 E 0390 0 0000 44 4644 SIN 0391 0 0000 30 4644 0392 0 0000 40 4627 R3 0393 COMMENT IF R3 = SIN(E)$ *APPAREN 0393 IF R3 EQL 0.0$ 0393 0 0000 10 4627 R3 0394 0 0000 36 0396 0395 0 0000 30 0393 R3 = 1.0**-20$ 0393 0396 0 0000 10 4626 CONST 0397 0 0000 40 4627 R3 0395 0398 0398 0 0000 10 4628 H2 0399 0 0000 23 4723 H1 0398 DL = (H2-H1)/R3$ 0400 0 0002 45 0000 0401 0 0000 25 4627 R3 0402 0 0000 40 4625 DL 0403 DU = DL.C(J+1)$ 0403 0 0000 10 4625 DL 0404 0 0000 42 4719 J 0405 1 0000 24 4988 C 0406 0 0000 40 4624 DU 0407 SUMD = SUMD + DU$ 0407 0 0000 10 4624 DU 0408 0 0000 22 4722 SUMD 0409 0 0000 40 4722 SUMD 0410 H1 = H2$ 0410 0 0000 10 4628 H2 0411 0 0000 40 4723 H1 0412 0 0000 10 0413 0413 0 0000 01 0000 EDH 0414 0 4400 28 4727 0415 1 0000 40 0000 0412 WRITE ($$ EDH, F2)$ 0416 0 0000 10 0417 0417 0 0000 01 0000 F2 0418 0 0000 44 4727 WRITE 0419 0 0100 30 4727 0420 0 0000 30 0413 0421 0421 0 0000 30 0422 0 0000 10 4721 E 0423 0 0000 42 0423 0424 0 0002 20 0421 0425 0 0000 10 4624 DU 0426 0 0000 42 0426 0427 0 0002 20 0421 0420 OUTPUT EDH(E, DU, H1)$ 0428 0 0000 10 4723 H1 0429 0 0000 42 0429 0430 0 0002 20 0421 0431 0 0009 43 0000 0432 0 0000 30 0421 0420 0433 0433 0 0000 30 0417 0434 0434 0 0004 20 0500 0435 3 4514 00 0000 0436 0 0006 70 1508 0437 0 0004 20 1000 0438 3 4414 00 0000 0439 0 0006 70 1508 0440 0 0004 20 1000 0441 3 4814 00 0000 0442 0 0006 70 1508 0443 0 0006 60 0400 0444 1 0000 00 0434 0433 FORMAT F2 (B5,*E*,X15.8,B10,*D*,X15.8,B10,*H*,X15.8,W4)$ 0433 0445 0445 0 0000 10 4970 CONST 0446 0 1000 38 0448 0447 0 0001 45 0002 0445 IF (PCS(1))$ 0448 0 0000 36 0445 BEGIN 0449 0 0000 10 0450 0450 0 0000 01 0000 ALL 0451 0 4400 28 4727 0452 1 0000 40 0000 0453 WRITE ($$ ALL, F5)$ 0453 0 0000 10 0454 0454 0 0000 01 0000 F5 0455 0 0000 44 4727 WRITE 0456 0 0100 30 4727 0457 0 0000 30 0450 0458 0458 0 0000 30 0459 0 0000 10 4717 R1 0460 0 0000 42 0460 0461 0 0002 20 0458 0462 0 0000 10 4701 R2 0463 0 0000 42 0463 0464 0 0002 20 0458 0465 0 0000 10 4702 I 0466 0 0000 42 0466 0467 0 0002 20 0458 0468 0 0000 10 4700 IP 0469 0 0000 42 0469 0470 0 0002 20 0458 0471 0 0000 10 4721 E 0472 0 0000 42 0472 0473 0 0002 20 0458 0474 0 0000 10 4628 H2 0475 0 0000 42 0475 0476 0 0002 20 0458 0477 0 0000 10 4627 R3 0478 0 0000 42 0478 0479 0 0002 20 0458 0480 0 0000 10 4625 DL 0481 0 0000 42 0481 0482 0 0002 20 0458 0483 0 0000 10 4624 DU 0484 0 0000 42 0484 0485 0 0002 20 0458 0457 OUTPUT ALL (R1, R2, I, IP, E, H2, R3, DL, DU, P)$ 0486 0 0000 10 4720 P 0487 0 0000 42 0487 0488 0 0002 20 0458 0489 0 0009 43 0000 0490 0 0000 30 0458 0457 0491 0491 0 0000 30 0454 0492 0492 0 0054 60 1205 0493 0 0006 60 0400 0494 1 0000 02 0492 0495 1 0000 00 0492 0491 FORMAT F5 (2(5F12.5,W4)) 0496 END$ 0496 0491 0496 0448 0496 0496 0 0000 42 4719 J 0497 1 0000 10 4995 A 0498 0 0000 24 4701 R2 0496 P = A(J).R2 - R3(A(J+1) = A(J) + B(J)) 0499 0 0000 40 4643 TEMP 0500 1 0000 10 4991 B 0501 1 0000 22 4995 A 0502 1 0000 40 4996 A 0503 0 0000 24 4627 R3 0504 0 0000 23 4643 TEMP 0505 0 0000 40 4643 TEMP 0506 0 0000 11 4643 TEMP 0507 0 0000 40 4720 P 0503 END$ 0503 0340 0509 0331 0508 0508 0 0000 30 0509 0 0000 10 4701 R2 0510 0 0002 45 0000 0511 0 0000 25 4627 R3 0512 0 0000 22 4979 CONST 0509 L = A(3)(1.0 + R2/R3)$ 0513 0 0000 24 4998 A 0514 0 0000 40 4623 L 0515 SUMD = SUMD - DU$ 0515 0 0000 10 4722 SUMD 0516 0 0000 23 4624 DU 0517 0 0000 40 4722 SUMD 0518 0 0000 10 0519 0519 0 0000 01 0000 LSUMD 0520 0 4400 28 4727 0521 1 0000 40 0000 0518 WRITE ($$ LSUMD, F3)$ 0522 0 0000 10 0523 0523 0 0000 01 0000 F3 0524 0 0000 44 4727 WRITE 0525 0 0100 30 4727 0526 0 0000 30 0519 0527 0527 0 0000 30 0528 0 0000 10 4623 L 0529 0 0000 42 0529 0530 0 0002 20 0527 0526 OUTPUT LSUMD (L, SUMD)$ 0531 0 0000 10 4722 SUMD 0532 0 0000 42 0532 0533 0 0002 20 0527 0534 0 0009 43 0000 0535 0 0000 30 0527 0526 0536 0536 0 0000 30 0523 0537 0537 0 0004 20 1000 0538 3 5314 00 0000 0539 0 0006 70 2008 0540 0 0004 20 1000 0541 3 6264 54 4414 0542 0 0006 70 2008 0543 0 0006 60 0600 0544 0 0006 60 0400 0545 1 0000 00 0537 0536 FORMAT F3 (B10,*L*,X20.8,B10,*SUMD*,X20.8,W6,W4) 0536 END 0536 0546 0546 END$ 0546 0300 0547 0291 0546 0546 0 0000 30 0229 0548 0220 0547 0547 0 0000 30 0547 STOP$ 0547 0548 0 0137 00 7310 0549 PRINT.. 0367 0549 0351 0549 0549 0 0000 10 0550 0550 0 0000 01 0000 ERROR 0551 0 4400 28 4727 0552 1 0000 40 0000 0553 WRITE ($$ ERROR, F)$ 0553 0 0000 10 0554 0554 0 0000 01 0000 F 0555 0 0000 44 4727 WRITE 0556 0 0100 30 4727 0557 0 0000 30 0550 0558 0558 0 0000 30 0559 0 0000 10 4717 R1 0560 0 0000 42 0560 0561 0 0002 20 0558 0562 0 0000 10 4701 R2 0563 0 0000 42 0563 0564 0 0002 20 0558 0565 0 0000 42 4719 J 0566 1 0000 10 4995 A 0567 0 0000 42 0567 0568 0 0002 20 0558 0569 0 0000 42 4719 J 0570 1 0000 10 4988 C 0571 0 0000 42 0571 0572 0 0002 20 0558 0557 OUTPUT ERROR (R1, R2, A(J), C(J+1), P)$ 0573 0 0000 10 4720 P 0574 0 0000 42 0574 0575 0 0002 20 0558 0576 0 0009 43 0000 0577 0 0000 30 0558 0557 0578 0578 0 0000 30 0554 0579 0579 3 5981 14 0000 0580 0 0006 70 0904 0581 0 0004 20 0400 0582 3 5982 14 0000 0583 0 0006 70 0904 0584 0 0004 20 0400 0585 3 4114 00 0000 0586 0 0006 70 0904 0587 0 0004 20 0400 0588 3 4314 00 0000 0589 0 0006 70 0906 0590 0 0004 20 0400 0578 FORMAT F (*R1*,X9.4,B4,*R2*,X9.4,B4,*A*,X9.4,B4,*C*,X9.6,B4, 0591 3 5714 00 0000 0592 0 0006 70 0904 0593 0 0006 60 0100 0594 1 0000 00 0579 0578 *P*,X9.4,W1)$ 0578 0595 0595 STOP$ 0595 0 0137 00 7310 0596 FINISH$ 0596 0 9669 00 9669 0597 0 1000 60 0000 4970 0 0000 00 0001 POOL 4725 0 0000 00 0004 4718 0 0000 00 0003 4968 0 0000 00 0006 4979 0 5110 00 0000 4987 0 5326 00 0000 4986 0 5360 00 0000 4978 0 5134 36 0000 4977 0 5333 97 5000 4716 0 5095 00 0000 4626 0 3110 00 0000 4629 0 0006 45 0000 4630 0 2200 36 4633 4631 0 0000 48 0001 4632 0 0001 20 4630 4633 0 0001 48 0008 4634 1 0000 10 4639 4635 0 0001 49 0008 4636 0 0000 22 4642 4637 0 0000 42 4629 4638 1 0000 30 0000 4639 0 0000 00 0058 4640 0 0000 00 0059 4641 0 0000 00 0060 4642 0 5800 00 0000 4727 0 0100 01 0000 4728 0 0410 40 4763 4729 0 0000 42 4731 4730 0 0010 29 4963 4731 0 0300 29 0101 4732 0 0000 42 4727 4733 0 0412 40 4812 4734 1 0000 41 9999 4735 0 0009 43 7557 4736 0 2200 37 4740 4737 0 0000 42 0100 4738 1 0000 44 0000 4739 1 2201 37 0001 4740 0 0000 40 0132 4741 0 0412 40 4794 4742 0 0000 41 0130 4743 0 0000 37 4761 4744 0 0000 10 0134 4745 0 0000 46 0133 4746 0 5246 37 4923 4747 0 5267 37 4899 4748 0 5249 37 4837 4749 0 5262 37 4950 4750 0 5241 37 4752 4751 0 0000 30 4938 4752 0 0000 41 4770 4753 0 0001 27 0129 4754 0 0000 44 4895 4755 0 0000 30 4886 4756 0 0000 10 0129 4757 0 0000 36 4777 4758 0 2299 37 4791 4759 0 0001 49 0010 4760 0 0000 30 4753 4761 0 0000 42 4728 4762 0 0000 31 4577 ERROR 4763 0 0000 10 9999 4764 0 0401 26 4763 4765 0 0000 33 4779 4766 0 0000 41 4770 4767 0 0001 33 4795 4768 0 2214 36 4763 4769 0 0000 44 4895 4770 0 9900 30 4886 4771 0 2299 37 4763 4772 0 0001 49 0010 4773 0 0000 30 4768 4774 0 0000 10 0129 4775 0 0000 19 0125 4776 0 0000 19 0125 4777 0 0000 10 0130 4778 0 3300 36 4761 4779 0 3300 36 4781 4780 0 0000 13 4964 4781 0 0000 40 0130 4782 0 0210 40 0131 4783 0 0001 48 0002 4784 0 0310 40 0129 4785 0 7242 36 4774 4786 0 7266 36 4815 4787 0 7257 36 4823 4788 0 7263 36 4825 4789 0 7243 36 4814 4790 0 0300 36 4763 4791 0 0000 10 0132 4792 0 0000 40 0134 4793 0 0009 33 4774 4794 0 0000 30 9999 4795 0 0000 42 4763 4796 0 6600 36 4811 4797 0 0001 49 0003 4798 0 0300 37 4805 4799 0 0000 13 4964 4800 0 3300 36 4807 4801 1 6301 27 9999 4802 1 0000 41 9999 4803 0 0411 40 4763 4804 0 0000 30 4763 4805 1 3310 40 9999 4806 0 0000 30 4799 4807 1 0000 10 9999 4808 0 0001 48 0003 4809 1 6610 40 9999 4810 0 0000 30 4763 4811 0 0000 10 0132 4812 0 0009 33 9999 4813 0 0000 30 4802 4814 0 1008 61 0124 4815 0 0001 48 0003 4816 0 3111 40 4817 4817 0 2408 44 4610 REED 4818 0 0101 30 4610 REED 4819 0 0000 42 4821 4820 0 0010 29 4963 4821 0 0240 29 0101 4822 0 0000 30 4777 4823 0 1008 61 0124 4824 0 0000 30 4819 4825 0 0300 36 4830 4826 0 0010 09 4829 4827 0 0001 12 4807 4828 0 0000 30 4825 4829 2 1602 02 0202 4830 0 0000 10 0125 4831 0 0000 36 4777 4832 0 0000 12 4900 4833 0 0001 48 0004 4834 0 3211 40 4835 4835 0 0990 09 0101 4836 0 0000 30 4819 4837 0 0000 42 4847 4838 0 0000 36 4896 4839 0 1100 36 4897 4840 0 0000 40 0134 4841 0 0003 45 0080 4842 0 0002 40 0128 4843 0 0000 46 0126 4844 0 0410 40 0126 4845 0 0001 40 0127 4846 0 0000 10 0134 4847 0 0002 48 0010 4848 0 0001 43 0023 4849 0 0000 12 0129 4850 0 0000 13 0128 4851 0 0001 33 4938 4852 0 0000 19 0125 4853 0 5000 19 0125 4854 0 0000 10 0134 4855 0 0000 41 4891 4856 0 0000 44 4895 4857 0 0001 33 4885 4858 0 0001 27 0128 4859 0 0000 32 4871 4860 0 0000 41 0127 4861 0 0000 37 4777 4862 0 0000 41 4848 4863 0 0000 44 4895 4864 0 0000 30 4885 4865 0 0000 10 0127 4866 0 0000 13 4853 4867 0 0000 42 4783 4868 0 0000 46 0129 4869 0 0003 26 0129 4870 0 0000 30 4840 4871 0 0001 27 0126 4872 0 0000 41 0126 4873 0 0000 37 4879 4874 0 0000 41 0133 4875 0 0000 37 4881 4876 0 0001 27 0133 4877 0 0000 41 4841 4878 0 0000 30 4885 4879 0 0000 41 4808 4880 0 0000 30 4885 4881 0 0000 10 0134 4882 0 0000 41 4900 4883 0 0001 49 0001 4884 0 0000 40 0134 4885 0 0001 49 0018 4886 0 0001 48 0008 4887 0 0001 42 0125 4888 1 0000 49 0008 4889 0 9400 28 0125 4890 0 0024 21 4895 4891 0 0000 43 0020 4892 1 0000 12 0125 4893 1 0010 40 0125 4894 0 0002 26 0125 4895 0 0000 30 9999 4896 0 0009 21 4841 4897 0 0000 49 0051 4898 0 0001 21 4839 4899 0 0002 45 7557 4900 0 0001 48 0008 4901 0 0410 18 4965 4902 0 0001 40 0134 4903 0 0001 34 4913 4904 0 0410 40 4911 4905 0 0449 27 4911 4906 0 0000 42 4911 4907 0 0000 10 0130 4908 0 0001 48 0004 4909 0 4211 40 4912 4910 0 0000 10 4911 4911 0 0002 45 9999 4912 0 0000 20 4842 4913 0 0000 43 7557 4914 0 0000 13 4965 4915 0 0210 40 0133 4916 0 0211 18 0130 4917 0 0000 35 4920 4918 0 0000 10 4965 4919 0 0000 30 4904 4920 0 0000 10 4897 4921 0 1110 40 0134 4922 0 0000 30 4904 4923 0 0304 27 0129 4924 0 0000 32 4927 4925 0 0000 30 4937 4926 0 0000 10 4966 4927 0 0000 36 4926 4928 0 0002 45 7557 4929 0 2210 40 4852 4930 0 0001 48 0008 4931 0 0001 40 0134 4932 0 0002 48 0010 4933 0 0000 12 0130 4934 0 0000 17 4897 4935 0 0310 18 0129 4936 0 0001 34 4946 4937 0 0004 26 0129 4938 0 0000 10 0129 4939 0 0000 19 0125 4940 0 0000 19 0125 4941 0 0002 27 0125 4942 0 0000 41 4953 4943 0 0000 44 4895 4944 0 0000 30 4885 4945 0 0000 30 4777 4946 0 0000 41 4852 4947 0 0000 10 4883 4948 0 0000 42 0131 4949 0 0001 20 4842 4950 0 0002 45 7557 4951 0 0001 48 0008 4952 0 0001 40 0134 4953 0 0000 43 0014 4954 0 0000 13 4965 4955 0 0002 45 7557 4956 0 0001 33 4961 4957 0 0210 18 0130 4958 0 0000 34 4938 4959 0 0000 12 4883 4960 0 0000 30 4948 4961 0 0010 40 0133 4962 0 0000 30 4947 4963 2 0000 00 0000 4964 0 0010 00 0000 4965 0 0000 00 0050 4966 0 5000 00 0000 4556 0 0000 44 4589 4557 0 0000 30 4585 4558 2 5945 62 6453 4559 2 6300 56 6463 4560 2 0056 46 0059 4561 2 4155 47 4500 4562 2 4955 00 0000 4563 0 0000 44 4589 4564 0 0000 30 4585 4565 2 5945 62 6453 4566 2 6300 64 5544 4567 2 4546 49 5545 4568 2 4400 46 5659 4569 2 0000 00 0000 4570 0 0000 44 4589 4571 0 0000 30 4585 4572 2 5945 62 6453 4573 2 6300 49 5353 4574 2 2044 45 4649 4575 2 5545 44 0046 4576 2 5659 00 0000 4577 0 0000 46 4598 4578 0 0000 44 4589 4579 0 0000 30 4587 4580 0 0000 00 0000 4581 2 0041 59 4963 4582 2 4854 45 6349 4583 2 4300 56 6545 4584 2 5946 53 5666 4585 0 0001 40 4598 4586 0 0003 45 0000 4587 0 0412 40 4592 4588 0 0000 42 4609 4589 0 0050 29 0033 4590 0 1106 44 4610 REED 4591 0 4593 30 4610 REED 4592 0 0000 30 0036 4593 0 0000 00 0000 4594 0 0000 00 0000 4595 0 0000 00 0000 4596 0 0000 00 0000 4597 0 0000 00 0000 4598 0 0000 00 0000 4599 0 0000 00 0000 4600 0 0000 00 0000 4601 0 0000 00 0000 4602 0 0000 00 0000 4603 0 0000 00 0000 4604 0 5000 00 0000 4605 0 0000 00 0000 4606 0 0000 00 0000 4607 0 5110 00 0000 4608 0 0000 00 0000 4609 0 0000 00 4593 4399 0 0004 45 0000 4400 0 0000 42 4399 4401 1 0000 36 0000 4402 0 0001 33 4433 4403 0 0810 40 4435 4404 0 2310 40 4436 4405 0 0000 10 4604 ERROR 4406 0 0000 14 4436 4407 0 0000 13 4437 4408 0 2310 40 4436 4409 0 3110 18 4436 4410 0 0000 35 4413 4411 0 0001 33 4413 4412 0 2201 26 4436 4413 0 0000 10 4438 4414 0 0000 24 4435 4415 0 0000 22 4439 4416 0 0000 24 4435 4417 0 0000 22 4440 4418 0 0000 40 4605 ERROR 4419 0 0000 10 4435 4420 0 0000 25 4605 ERROR 4421 0 0000 22 4605 ERROR 4422 0 0000 24 4441 4423 0 0000 40 4605 ERROR 4424 0 0000 10 4435 4425 0 0000 25 4605 ERROR 4426 0 0000 22 4605 ERROR 4427 0 0000 12 4436 4428 0 0000 35 4431 4429 0 0000 24 4442 4430 1 0000 30 0000 4431 0 0000 24 4441 4432 1 0000 30 0000 4433 0 0000 41 4443 4434 0 0000 30 4563 ERROR 4435 0 5110 00 0000 4436 0 0000 00 0000 4437 0 2550 00 0000 4438 1 4916 45 0338 4439 0 5041 11 7101 4440 0 5062 69 7923 4441 0 5050 00 0000 4442 0 5015 81 1388 4443 2 6258 59 6300 4644 0 0006 45 0000 4645 0 0000 41 4690 4646 0 0411 40 4688 4647 0 0000 46 4608 ERROR 4648 0 0000 24 4693 4649 0 0001 49 0002 4650 0 0211 40 4692 4651 0 0000 42 4692 4652 0 9949 20 4658 4653 0 0007 21 4687 4654 1 0001 49 0018 4655 0 0000 40 4608 ERROR 4656 0 0000 10 4657 4657 0 0001 49 0050 4658 0 0001 49 0018 4659 0 0000 40 4606 ERROR 4660 0 0000 22 4606 ERROR 4661 0 0010 18 4607 ERROR 4662 0 0001 34 4666 4663 0 0000 43 0000 4664 0 0000 23 4694 4665 0 0001 49 0000 4666 0 0000 40 4606 ERROR 4667 0 0000 24 4606 ERROR 4668 0 0000 40 4605 ERROR 4669 0 0000 24 4695 4670 0 0000 22 4696 4671 0 0000 24 4605 ERROR 4672 0 0000 22 4697 4673 0 0000 24 4605 ERROR 4674 0 0000 22 4698 4675 0 0000 24 4605 ERROR 4676 0 0000 22 4699 4677 0 0000 24 4606 ERROR 4678 0 0000 22 4606 ERROR 4679 0 0000 40 4606 ERROR 4680 0 0000 10 4604 ERROR 4681 0 0000 14 4608 ERROR 4682 0 0000 10 4606 ERROR 4683 0 0000 42 4644 4684 1 0000 37 0000 4685 0 0000 11 4606 ERROR 4686 1 0000 30 0000 4687 0 0000 42 4644 4688 0 0000 41 4691 4689 0 0000 30 4570 ERROR 4690 0 0000 00 4691 4691 2 6249 55 0000 4692 0 0000 00 0000 4693 0 5031 83 0989 4694 0 5120 00 0000 4695 0 4715 14 8419 4696 1 4846 73 7656 4697 0 4979 68 9679 4698 1 5064 59 6371 4699 0 5057 07 9632 4703 0 0000 01 0000 4704 0 0000 40 4608 ERROR 4705 0 0000 41 4714 4706 0 0000 44 4509 ROMXX 4707 0 0000 30 4513 ROMXX 4708 0 0000 42 4703 4709 0 0000 36 4548 ROMXX 4710 0 0000 40 4605 ERROR 4711 0 0000 10 4608 ERROR 4712 0 0000 25 4605 ERROR 4713 0 0000 30 4446 ARCTA 4714 0 0000 00 4715 4715 2 4162 49 5500 4444 0 0006 45 0000 4445 0 0000 42 4444 4446 0 0010 18 4607 ERROR 4447 0 0000 40 4608 ERROR 4448 0 4412 40 4479 4449 0 0001 34 4453 4450 0 4401 27 4479 4451 0 5010 10 4497 4452 0 0000 25 4608 ERROR 4453 0 0010 18 4451 4454 0 0001 34 4485 4455 0 0000 49 0002 4456 0 0000 40 4608 ERROR 4457 0 0000 14 4608 ERROR 4458 0 0000 40 4605 ERROR 4459 0 0000 14 4498 4460 0 0000 12 4499 4461 0 0000 14 4605 ERROR 4462 0 0000 12 4500 4463 0 0000 14 4605 ERROR 4464 0 0000 12 4501 4465 0 0000 40 4606 ERROR 4466 0 0000 10 4502 4467 0 0000 14 4605 ERROR 4468 0 0000 12 4503 4469 0 0000 14 4605 ERROR 4470 0 0000 12 4504 4471 0 0000 14 4605 ERROR 4472 0 0000 12 4501 4473 0 0000 14 4608 ERROR 4474 0 0001 48 0002 4475 0 0000 15 4606 ERROR 4476 0 0000 40 4606 ERROR 4477 0 1105 26 4606 ERROR 4478 0 0000 10 4606 ERROR 4479 1 0000 20 0000 4480 0 0000 10 4505 4481 0 0000 41 4608 ERROR 4482 0 0001 49 0000 4483 0 0000 23 4606 ERROR 4484 1 0000 30 0001 4485 0 0000 40 4608 ERROR 4486 0 0000 24 4608 ERROR 4487 0 0000 40 4605 ERROR 4488 0 0000 24 4506 4489 0 0000 22 4507 4490 0 0000 24 4605 ERROR 4491 0 0000 23 4508 4492 0 0000 24 4605 ERROR 4493 0 0000 24 4608 ERROR 4494 0 0000 22 4608 ERROR 4495 0 0000 40 4606 ERROR 4496 0 0000 30 4479 4497 0 5099 99 9999 4498 0 0049 01 7591 4499 0 0565 03 0980 4500 0 1453 56 7135 4501 0 1000 00 0000 4502 0 0008 56 1189 4503 0 0280 50 4541 4504 0 1120 23 4014 4505 0 5115 70 7963 4506 1 5014 28 1428 4507 0 5020 00 0000 4508 0 5033 33 3333 4509 0 4512 01 0000 4510 0 4400 28 4509 4511 0 0000 31 4577 ERROR 4512 0 0000 41 4547 4513 0 0411 40 4543 4514 0 0010 18 4607 ERROR 4515 0 0000 34 4543 4516 0 2251 36 4540 4517 0 0000 36 4541 4518 0 0000 40 4608 ERROR 4519 0 0000 24 4608 ERROR 4520 0 0001 49 0002 4521 0 0211 40 4540 4522 0 0001 42 4540 4523 1 0001 48 0051 4524 0 0000 13 4553 4525 0 0001 49 0010 4526 0 0000 13 4604 ERROR 4527 0 0000 13 4604 ERROR 4528 0 0001 49 0010 4529 0 0000 31 4531 4530 0 0051 12 4554 4531 0 4400 28 4530 4532 0 1100 36 4538 4533 0 0412 40 4540 4534 0 0000 41 4540 4535 0 0001 49 0018 4536 0 0000 42 4509 4537 0 0000 30 4401 SQRT 4538 0 0001 49 0001 4539 0 0001 21 4532 4540 0 0001 43 0000 4541 0 0000 22 4607 ERROR 4542 0 0000 30 4536 4543 0 0000 41 4546 4544 0 0000 42 4509 4545 0 0000 30 4563 ERROR 4546 2 5956 54 6767 4547 0 0000 00 4546 4548 0 0000 10 4555 4549 0 0000 41 4608 ERROR 4550 1 0000 37 0000 4551 0 0001 49 0000 4552 1 0000 30 0000 4553 0 1000 00 0000 4554 0 0000 00 0001 4555 0 5115 70 7963 4610 0 0000 01 0000 4611 0 0000 42 4610 4612 1 0000 10 9999 4613 0 0000 48 0006 4614 0 0410 40 4620 4615 1 0000 10 9998 4616 0 4210 40 4620 4617 0 0000 48 0008 4618 0 0000 13 4622 4619 0 0000 19 4620 4620 0 2000 61 0000 4621 1 0000 30 0000 4622 0 0000 00 0001 COMPILED PROGRAM ENDS AT 0597 PROGRAM VARIABLES BEGIN AT 4399 -.26000000, 03 .55000000, 01 .10000000, 01 -.26503413, 03 .33975000, 03 .34360000, 01 -.60000000, 03 .10000000, 01 .10000000, 01 .00000000, 00 .00000000, 00 -.10000000, 01 G 25.00000000 E -.06831474 D 1274.89130000 H -.32774976 -.96153,-01 -.27984,-01 -.96302,-01 -.27987,-01 -.68314,-01 -.32774, 00 -.68261,-01 .37103, 03 .12748, 04 .25000, 02 E -.16537255 D .29356608 H -.37607655 .39672,-01 .13631, 00 .39683,-01 .13674, 00 -.16537, 00 -.37607, 00 -.16461, 00 .29356, 00 .29356, 00 -.10096, 02 E -.65489915 D -4.52550560 H -3.13246810 -.24232, 00 .24232, 00 -.24476, 00 .24476, 00 -.65489, 00 -.31324, 01 -.60907, 00 .45255, 01 -.45255, 01 -.20658, 02 L 51.33266500 SUMD 1275.18480000 G 50.00000000 E -.13751546 D 1269.55340000 H -.65003198 -.19230, 00 -.55968,-01 -.19351, 00 -.55997,-01 -.13751, 00 -.65003, 00 -.13708, 00 .36948, 03 .12695, 04 .50000, 02 E -.33564916 D .32976416 H -.75865041 .79904,-01 .27455, 00 .79989,-01 .27812, 00 -.33564, 00 -.75865, 00 -.32938, 00 .32976, 00 .32976, 00 -.20335, 02 E -1.36039550 D -3.12936780 H -3.81900720 -.49024, 00 .49024, 00 -.51237, 00 .51237, 00 -.13603, 01 -.38190, 01 -.97794, 00 .31293, 01 -.31293, 01 -.41793, 02 L 42.51399500 SUMD 1269.88310000 G 75.00000000 E -.20856805 D 1260.51770000 H -.96093506 -.28846, 00 -.83952,-01 -.29261, 00 -.84051,-01 -.20856, 00 -.96093, 00 -.20705, 00 .36685, 03 .12605, 04 .75000, 02 E -.51685446 D .39303495 H -1.15515240 .12129, 00 .41675, 00 .12159, 00 .42987, 00 -.51685, 00 -.11551, 01 -.49414, 00 .39303, 00 .39303, 00 -.30868, 02 E -2.21304160 D 1.04110740 H -.32148266 -.75002, 00 .75002, 00 -.84809, 00 .84809, 00 -.22130, 01 -.32148, 00 -.80075, 00 -.10411, 01 .10411, 01 -.63939, 02 L 5.40105630 SUMD 1260.91070000 G 100.00000000 E -.28261909 D 1247.55250000 H -1.25355430 -.38461, 00 -.11193, 00 -.39479, 00 -.11217, 00 -.28261, 00 -.12535, 01 -.27887, 00 .36308, 03 .12475, 04 .10000, 03 E -.71812001 D .48907616 H -1.57535180 .16451, 00 .56527, 00 .16526, 00 .60076, 00 -.71812, 00 -.15753, 01 -.65797, 00 .48907, 00 .48907, 00 -.41869, 02 R1 -1.0295 R2 .5652 A 85.2500 C-1.000000 P -87.7708