0200 BAC-220 STANDARD VERSION 2/1/62 0200 COMMENT TEST PROGRAM 1 FOR BALGOL LIBRARY FUNCTIONS 0200 2018-01-18 P.KIMPEL$ 0200 0200 INTEGER DEGREES$ 0200 REAL RADS, TORADS$ 0200 REAL VSQRT, VSIN, VCOS, VTAN, VASIN, VACOS, VATAN$ 0200 0200 0 0000 30 0201 0 0000 30 0202 0 0000 10 4999 DEGRE 0203 0 0100 42 0203 0204 0 0002 20 0201 0205 0 0000 10 4998 RADS 0206 0 0000 42 0206 0207 0 0002 20 0201 0208 0 0000 10 4997 VSQRT 0209 0 0000 42 0209 0210 0 0002 20 0201 0211 0 0000 10 4996 VSIN 0212 0 0000 42 0212 0213 0 0002 20 0201 0214 0 0000 10 4995 VCOS 0215 0 0000 42 0215 0216 0 0002 20 0201 0200 OUTPUT RESULTS(DEGREES, RADS, VSQRT, VSIN, VCOS, VTAN, 0217 0 0000 10 4994 VTAN 0218 0 0000 42 0218 0219 0 0002 20 0201 0220 0 0000 10 4993 VASIN 0221 0 0000 42 0221 0222 0 0002 20 0201 0223 0 0000 10 4992 VACOS 0224 0 0000 42 0224 0225 0 0002 20 0201 0220 VASIN, VACOS, VATAN)$ 0226 0 0000 10 4991 VATAN 0227 0 0000 42 0227 0228 0 0002 20 0201 0229 0 0009 43 0000 0230 0 0000 30 0201 0200 0231 0231 0 0000 30 0232 0 0004 90 0200 0233 0 0024 60 1408 0234 0 0064 60 1508 0235 0 0006 60 0200 0236 1 0000 00 0232 0231 FORMAT F(I2,2F14.8,6F15.8,W2), 0237 2 0044 00 0059 0238 3 4144 62 1400 0239 0 0004 20 1000 0240 3 6258 59 6314 0241 0 0004 20 1100 0242 3 6249 55 1400 0243 0 0004 20 1200 0244 3 4356 62 1400 0245 0 0004 20 1200 0246 3 6341 55 1400 0231 HEAD(* D RADS*,B10,*SQRT*,B11,*SIN*,B12,*COS*,B12,*TAN*, 0247 0 0004 20 1200 0248 3 4162 49 5514 0249 0 0004 20 1100 0250 3 4143 56 6214 0251 0 0004 20 1100 0252 3 4163 41 5514 0253 0 0006 60 0200 0254 1 0000 00 0237 0231 B12,*ASIN*,B11,*ACOS*,B11,*ATAN*,W2)$ 0231 0231 0255 0255 TORADS = 3.1415926/180$ 0255 0 0000 10 4990 CONST 0256 0 0000 40 4989 TORAD 0257 WRITE($$ HEAD)$ 0257 0257 0 0000 10 0258 0258 0 0000 01 0237 HEAD 0259 0 0000 44 4749 WRITE 0260 0 0000 30 4749 0261 0 0000 10 4748 CONST 0262 0 0000 40 4999 DEGRE 0263 0 0000 44 0264 0 0000 30 0265 0 0000 10 4748 CONST 0266 0 0000 12 4999 DEGRE 0267 0 0000 40 4999 DEGRE 0264 0268 0268 0 0000 13 4747 CONST 0269 0 1111 31 0271 0270 0 0000 36 0271 0 0001 33 0261 FOR DEGREES = (1, 1, 89)$ 0272 0 0000 30 0271 0273 0270 0273 0272 BEGIN 0272 RADS = DEGREES.TORADS$ 0273 0 0000 10 4999 DEGRE 0274 0 0000 44 4733 FLOAT 0275 0 0000 30 4733 0276 0 0000 24 4989 TORAD 0277 0 0000 40 4998 RADS 0278 VSQRT = SQRT(RADS)$ 0278 0 0000 10 4998 RADS 0279 0 0000 44 4688 SQRT 0280 0 0000 30 4688 0281 0 0000 40 4997 VSQRT 0282 VSIN = SIN(RADS)$ 0282 0 0000 10 4998 RADS 0283 0 0000 44 4632 SIN 0284 0 0000 30 4632 0285 0 0000 40 4996 VSIN 0286 VCOS = COS(RADS)$ 0286 0 0000 10 4998 RADS 0287 0 0000 44 4622 COS 0288 0 0000 30 4622 0289 0 0000 40 4995 VCOS 0290 VTAN = TAN(RADS)$ 0290 0 0000 10 4998 RADS 0291 0 0000 44 4599 TAN 0292 0 0000 30 4599 0293 0 0000 40 4994 VTAN 0294 VASIN = ARCSIN(VSIN)$ 0294 0 0000 10 4996 VSIN 0295 0 0000 44 4586 ARCSI 0296 0 0000 30 4586 0297 0 0000 40 4993 VASIN 0298 VACOS = ARCCOS(VCOS)$ 0298 0 0000 10 4995 VCOS 0299 0 0000 44 4566 ARCCO 0300 0 0000 30 4566 0301 0 0000 40 4992 VACOS 0302 VATAN = ARCTAN(VTAN)$ 0302 0 0000 10 4994 VTAN 0303 0 0000 44 4501 ARCTA 0304 0 0000 30 4501 0305 0 0000 40 4991 VATAN 0306 0 0000 10 0307 0307 0 0000 01 0201 RESUL 0308 0 4400 28 4749 0309 1 0000 40 0000 0306 WRITE($$ RESULTS, F)$ 0310 0 0000 10 0311 0311 0 0000 01 0232 F 0312 0 0000 44 4749 WRITE 0313 0 0100 30 4749 0314 END$ 0272 0315 0263 0314 0314 0 0000 30 0315 FINISH$ 0315 0 9669 00 9669 0316 0 1000 60 0000 4748 0 0000 00 0001 POOL 4747 0 0000 00 0089 4990 0 4917 45 3292 4733 0 0006 45 0000 4734 0 2200 36 4737 4735 0 0000 48 0001 4736 0 0001 20 4734 4737 0 0001 48 0008 4738 1 0000 10 4743 4739 0 0001 49 0008 4740 0 0000 22 4746 4741 0 0000 42 4733 4742 1 0000 30 0000 4743 0 0000 00 0058 4744 0 0000 00 0059 4745 0 0000 00 0060 4746 0 5800 00 0000 4749 0 0100 01 0000 4750 0 0410 40 4785 4751 0 0000 42 4753 4752 0 0010 29 4985 4753 0 0300 29 0101 4754 0 0000 42 4749 4755 0 0412 40 4834 4756 1 0000 41 9999 4757 0 0009 43 7557 4758 0 2200 37 4762 4759 0 0000 42 0100 4760 1 0000 44 0000 4761 1 2201 37 0001 4762 0 0000 40 0132 4763 0 0412 40 4816 4764 0 0000 41 0130 4765 0 0000 37 4783 4766 0 0000 10 0134 4767 0 0000 46 0133 4768 0 5246 37 4945 4769 0 5267 37 4921 4770 0 5249 37 4859 4771 0 5262 37 4972 4772 0 5241 37 4774 4773 0 0000 30 4960 4774 0 0000 41 4792 4775 0 0001 27 0129 4776 0 0000 44 4917 4777 0 0000 30 4908 4778 0 0000 10 0129 4779 0 0000 36 4799 4780 0 2299 37 4813 4781 0 0001 49 0010 4782 0 0000 30 4775 4783 0 0000 42 4750 4784 0 0000 31 4455 ERROR 4785 0 0000 10 9999 4786 0 0401 26 4785 4787 0 0000 33 4801 4788 0 0000 41 4792 4789 0 0001 33 4817 4790 0 2214 36 4785 4791 0 0000 44 4917 4792 0 9900 30 4908 4793 0 2299 37 4785 4794 0 0001 49 0010 4795 0 0000 30 4790 4796 0 0000 10 0129 4797 0 0000 19 0125 4798 0 0000 19 0125 4799 0 0000 10 0130 4800 0 3300 36 4783 4801 0 3300 36 4803 4802 0 0000 13 4986 4803 0 0000 40 0130 4804 0 0210 40 0131 4805 0 0001 48 0002 4806 0 0310 40 0129 4807 0 7242 36 4796 4808 0 7266 36 4837 4809 0 7257 36 4845 4810 0 7263 36 4847 4811 0 7243 36 4836 4812 0 0300 36 4785 4813 0 0000 10 0132 4814 0 0000 40 0134 4815 0 0009 33 4796 4816 0 0000 30 9999 4817 0 0000 42 4785 4818 0 6600 36 4833 4819 0 0001 49 0003 4820 0 0300 37 4827 4821 0 0000 13 4986 4822 0 3300 36 4829 4823 1 6301 27 9999 4824 1 0000 41 9999 4825 0 0411 40 4785 4826 0 0000 30 4785 4827 1 3310 40 9999 4828 0 0000 30 4821 4829 1 0000 10 9999 4830 0 0001 48 0003 4831 1 6610 40 9999 4832 0 0000 30 4785 4833 0 0000 10 0132 4834 0 0009 33 9999 4835 0 0000 30 4824 4836 0 1008 61 0124 4837 0 0001 48 0003 4838 0 3111 40 4839 4839 0 2408 44 4488 REED 4840 0 0101 30 4488 REED 4841 0 0000 42 4843 4842 0 0010 29 4985 4843 0 0240 29 0101 4844 0 0000 30 4799 4845 0 1008 61 0124 4846 0 0000 30 4841 4847 0 0300 36 4852 4848 0 0010 09 4851 4849 0 0001 12 4829 4850 0 0000 30 4847 4851 2 1602 02 0202 4852 0 0000 10 0125 4853 0 0000 36 4799 4854 0 0000 12 4922 4855 0 0001 48 0004 4856 0 3211 40 4857 4857 0 0990 09 0101 4858 0 0000 30 4841 4859 0 0000 42 4869 4860 0 0000 36 4918 4861 0 1100 36 4919 4862 0 0000 40 0134 4863 0 0003 45 0080 4864 0 0002 40 0128 4865 0 0000 46 0126 4866 0 0410 40 0126 4867 0 0001 40 0127 4868 0 0000 10 0134 4869 0 0002 48 0010 4870 0 0001 43 0023 4871 0 0000 12 0129 4872 0 0000 13 0128 4873 0 0001 33 4960 4874 0 0000 19 0125 4875 0 5000 19 0125 4876 0 0000 10 0134 4877 0 0000 41 4913 4878 0 0000 44 4917 4879 0 0001 33 4907 4880 0 0001 27 0128 4881 0 0000 32 4893 4882 0 0000 41 0127 4883 0 0000 37 4799 4884 0 0000 41 4870 4885 0 0000 44 4917 4886 0 0000 30 4907 4887 0 0000 10 0127 4888 0 0000 13 4875 4889 0 0000 42 4805 4890 0 0000 46 0129 4891 0 0003 26 0129 4892 0 0000 30 4862 4893 0 0001 27 0126 4894 0 0000 41 0126 4895 0 0000 37 4901 4896 0 0000 41 0133 4897 0 0000 37 4903 4898 0 0001 27 0133 4899 0 0000 41 4863 4900 0 0000 30 4907 4901 0 0000 41 4830 4902 0 0000 30 4907 4903 0 0000 10 0134 4904 0 0000 41 4922 4905 0 0001 49 0001 4906 0 0000 40 0134 4907 0 0001 49 0018 4908 0 0001 48 0008 4909 0 0001 42 0125 4910 1 0000 49 0008 4911 0 9400 28 0125 4912 0 0024 21 4917 4913 0 0000 43 0020 4914 1 0000 12 0125 4915 1 0010 40 0125 4916 0 0002 26 0125 4917 0 0000 30 9999 4918 0 0009 21 4863 4919 0 0000 49 0051 4920 0 0001 21 4861 4921 0 0002 45 7557 4922 0 0001 48 0008 4923 0 0410 18 4987 4924 0 0001 40 0134 4925 0 0001 34 4935 4926 0 0410 40 4933 4927 0 0449 27 4933 4928 0 0000 42 4933 4929 0 0000 10 0130 4930 0 0001 48 0004 4931 0 4211 40 4934 4932 0 0000 10 4933 4933 0 0002 45 9999 4934 0 0000 20 4864 4935 0 0000 43 7557 4936 0 0000 13 4987 4937 0 0210 40 0133 4938 0 0211 18 0130 4939 0 0000 35 4942 4940 0 0000 10 4987 4941 0 0000 30 4926 4942 0 0000 10 4919 4943 0 1110 40 0134 4944 0 0000 30 4926 4945 0 0304 27 0129 4946 0 0000 32 4949 4947 0 0000 30 4959 4948 0 0000 10 4988 4949 0 0000 36 4948 4950 0 0002 45 7557 4951 0 2210 40 4874 4952 0 0001 48 0008 4953 0 0001 40 0134 4954 0 0002 48 0010 4955 0 0000 12 0130 4956 0 0000 17 4919 4957 0 0310 18 0129 4958 0 0001 34 4968 4959 0 0004 26 0129 4960 0 0000 10 0129 4961 0 0000 19 0125 4962 0 0000 19 0125 4963 0 0002 27 0125 4964 0 0000 41 4975 4965 0 0000 44 4917 4966 0 0000 30 4907 4967 0 0000 30 4799 4968 0 0000 41 4874 4969 0 0000 10 4905 4970 0 0000 42 0131 4971 0 0001 20 4864 4972 0 0002 45 7557 4973 0 0001 48 0008 4974 0 0001 40 0134 4975 0 0000 43 0014 4976 0 0000 13 4987 4977 0 0002 45 7557 4978 0 0001 33 4983 4979 0 0210 18 0130 4980 0 0000 34 4960 4981 0 0000 12 4905 4982 0 0000 30 4970 4983 0 0010 40 0133 4984 0 0000 30 4969 4985 2 0000 00 0000 4986 0 0010 00 0000 4987 0 0000 00 0050 4988 0 5000 00 0000 4434 0 0000 44 4467 4435 0 0000 30 4463 4436 2 5945 62 6453 4437 2 6300 56 6463 4438 2 0056 46 0059 4439 2 4155 47 4500 4440 2 4955 00 0000 4441 0 0000 44 4467 4442 0 0000 30 4463 4443 2 5945 62 6453 4444 2 6300 64 5544 4445 2 4546 49 5545 4446 2 4400 46 5659 4447 2 0000 00 0000 4448 0 0000 44 4467 4449 0 0000 30 4463 4450 2 5945 62 6453 4451 2 6300 49 5353 4452 2 2044 45 4649 4453 2 5545 44 0046 4454 2 5659 00 0000 4455 0 0000 46 4476 4456 0 0000 44 4467 4457 0 0000 30 4465 4458 0 0000 00 0000 4459 2 0041 59 4963 4460 2 4854 45 6349 4461 2 4300 56 6545 4462 2 5946 53 5666 4463 0 0001 40 4476 4464 0 0003 45 0000 4465 0 0412 40 4470 4466 0 0000 42 4487 4467 0 0050 29 0033 4468 0 1106 44 4488 REED 4469 0 4471 30 4488 REED 4470 0 0000 30 0036 4471 0 0000 00 0000 4472 0 0000 00 0000 4473 0 0000 00 0000 4474 0 0000 00 0000 4475 0 0000 00 0000 4476 0 0000 00 0000 4477 0 0000 00 0000 4478 0 0000 00 0000 4479 0 0000 00 0000 4480 0 0000 00 0000 4481 0 0000 00 0000 4482 0 5000 00 0000 4483 0 0000 00 0000 4484 0 0000 00 0000 4485 0 5110 00 0000 4486 0 0000 00 0000 4487 0 0000 00 4471 4688 0 0004 45 0000 4689 0 0000 42 4688 4690 1 0000 36 0000 4691 0 0001 33 4722 4692 0 0810 40 4724 4693 0 2310 40 4725 4694 0 0000 10 4482 ERROR 4695 0 0000 14 4725 4696 0 0000 13 4726 4697 0 2310 40 4725 4698 0 3110 18 4725 4699 0 0000 35 4702 4700 0 0001 33 4702 4701 0 2201 26 4725 4702 0 0000 10 4727 4703 0 0000 24 4724 4704 0 0000 22 4728 4705 0 0000 24 4724 4706 0 0000 22 4729 4707 0 0000 40 4483 ERROR 4708 0 0000 10 4724 4709 0 0000 25 4483 ERROR 4710 0 0000 22 4483 ERROR 4711 0 0000 24 4730 4712 0 0000 40 4483 ERROR 4713 0 0000 10 4724 4714 0 0000 25 4483 ERROR 4715 0 0000 22 4483 ERROR 4716 0 0000 12 4725 4717 0 0000 35 4720 4718 0 0000 24 4731 4719 1 0000 30 0000 4720 0 0000 24 4730 4721 1 0000 30 0000 4722 0 0000 41 4732 4723 0 0000 30 4441 ERROR 4724 0 5110 00 0000 4725 0 0000 00 0000 4726 0 2550 00 0000 4727 1 4916 45 0338 4728 0 5041 11 7101 4729 0 5062 69 7923 4730 0 5050 00 0000 4731 0 5015 81 1388 4732 2 6258 59 6300 4632 0 0006 45 0000 4633 0 0000 41 4678 4634 0 0411 40 4676 4635 0 0000 46 4486 ERROR 4636 0 0000 24 4681 4637 0 0001 49 0002 4638 0 0211 40 4680 4639 0 0000 42 4680 4640 0 9949 20 4646 4641 0 0007 21 4675 4642 1 0001 49 0018 4643 0 0000 40 4486 ERROR 4644 0 0000 10 4645 4645 0 0001 49 0050 4646 0 0001 49 0018 4647 0 0000 40 4484 ERROR 4648 0 0000 22 4484 ERROR 4649 0 0010 18 4485 ERROR 4650 0 0001 34 4654 4651 0 0000 43 0000 4652 0 0000 23 4682 4653 0 0001 49 0000 4654 0 0000 40 4484 ERROR 4655 0 0000 24 4484 ERROR 4656 0 0000 40 4483 ERROR 4657 0 0000 24 4683 4658 0 0000 22 4684 4659 0 0000 24 4483 ERROR 4660 0 0000 22 4685 4661 0 0000 24 4483 ERROR 4662 0 0000 22 4686 4663 0 0000 24 4483 ERROR 4664 0 0000 22 4687 4665 0 0000 24 4484 ERROR 4666 0 0000 22 4484 ERROR 4667 0 0000 40 4484 ERROR 4668 0 0000 10 4482 ERROR 4669 0 0000 14 4486 ERROR 4670 0 0000 10 4484 ERROR 4671 0 0000 42 4632 4672 1 0000 37 0000 4673 0 0000 11 4484 ERROR 4674 1 0000 30 0000 4675 0 0000 42 4632 4676 0 0000 41 4679 4677 0 0000 30 4448 ERROR 4678 0 0000 00 4679 4679 2 6249 55 0000 4680 0 0000 00 0000 4681 0 5031 83 0989 4682 0 5120 00 0000 4683 0 4715 14 8419 4684 1 4846 73 7656 4685 0 4979 68 9679 4686 1 5064 59 6371 4687 0 5057 07 9632 4622 0 0006 45 0000 4623 0 0000 41 4622 4624 0 0411 40 4632 SIN 4625 0 0000 41 4629 4626 0 0000 22 4631 4627 0 0000 22 4631 4628 0 0000 30 4634 SIN 4629 0 0000 00 4630 4630 2 4356 62 0000 4631 0 5078 53 9816 4599 0 0006 45 0000 4600 0 0000 40 4618 4601 0 0000 41 4621 4602 0 0000 44 4632 SIN 4603 0 0000 30 4626 COS 4604 0 0000 36 4612 4605 0 0000 40 4619 4606 0 0000 10 4618 4607 0 0000 44 4632 SIN 4608 0 0000 30 4632 SIN 4609 0 0000 25 4619 4610 0 0000 42 4599 4611 1 0000 30 0000 4612 0 0000 41 4618 4613 0 2211 18 4614 4614 1 5700 34 0000 4615 0 0000 42 4599 4616 0 0000 41 4620 4617 0 0000 30 4441 ERROR 4618 0 0000 00 0000 4619 0 0000 00 0000 4620 2 6341 55 0000 4621 0 0000 00 4620 4586 0 0000 01 0000 4587 0 0000 40 4486 ERROR 4588 0 0000 41 4597 4589 0 0000 44 4387 ROMXX 4590 0 0000 30 4391 ROMXX 4591 0 0000 42 4586 4592 0 0000 36 4426 ROMXX 4593 0 0000 40 4483 ERROR 4594 0 0000 10 4486 ERROR 4595 0 0000 25 4483 ERROR 4596 0 0000 30 4503 ARCTA 4597 0 0000 00 4598 4598 2 4162 49 5500 4566 0 0000 01 0000 4567 0 0000 40 4486 ERROR 4568 0 0000 42 4566 4569 0 0000 36 4426 ROMXX 4570 0 0000 41 4582 4571 0 0000 44 4387 ROMXX 4572 0 0000 30 4391 ROMXX 4573 0 0000 25 4486 ERROR 4574 0 0000 44 4501 ARCTA 4575 0 0000 30 4501 ARCTA 4576 0 0000 42 4566 4577 0 0000 41 4486 ERROR 4578 0 0001 49 0000 4579 1 0000 33 0000 4580 0 0000 22 4585 4581 1 0000 30 0000 4582 0 0000 00 4583 4583 2 4143 56 6200 4584 0 0000 00 0000 4585 0 5131 41 5927 4501 0 0006 45 0000 4502 0 0000 42 4501 4503 0 0010 18 4485 ERROR 4504 0 0000 40 4486 ERROR 4505 0 4412 40 4536 4506 0 0001 34 4510 4507 0 4401 27 4536 4508 0 5010 10 4554 4509 0 0000 25 4486 ERROR 4510 0 0010 18 4508 4511 0 0001 34 4542 4512 0 0000 49 0002 4513 0 0000 40 4486 ERROR 4514 0 0000 14 4486 ERROR 4515 0 0000 40 4483 ERROR 4516 0 0000 14 4555 4517 0 0000 12 4556 4518 0 0000 14 4483 ERROR 4519 0 0000 12 4557 4520 0 0000 14 4483 ERROR 4521 0 0000 12 4558 4522 0 0000 40 4484 ERROR 4523 0 0000 10 4559 4524 0 0000 14 4483 ERROR 4525 0 0000 12 4560 4526 0 0000 14 4483 ERROR 4527 0 0000 12 4561 4528 0 0000 14 4483 ERROR 4529 0 0000 12 4558 4530 0 0000 14 4486 ERROR 4531 0 0001 48 0002 4532 0 0000 15 4484 ERROR 4533 0 0000 40 4484 ERROR 4534 0 1105 26 4484 ERROR 4535 0 0000 10 4484 ERROR 4536 1 0000 20 0000 4537 0 0000 10 4562 4538 0 0000 41 4486 ERROR 4539 0 0001 49 0000 4540 0 0000 23 4484 ERROR 4541 1 0000 30 0001 4542 0 0000 40 4486 ERROR 4543 0 0000 24 4486 ERROR 4544 0 0000 40 4483 ERROR 4545 0 0000 24 4563 4546 0 0000 22 4564 4547 0 0000 24 4483 ERROR 4548 0 0000 23 4565 4549 0 0000 24 4483 ERROR 4550 0 0000 24 4486 ERROR 4551 0 0000 22 4486 ERROR 4552 0 0000 40 4484 ERROR 4553 0 0000 30 4536 4554 0 5099 99 9999 4555 0 0049 01 7591 4556 0 0565 03 0980 4557 0 1453 56 7135 4558 0 1000 00 0000 4559 0 0008 56 1189 4560 0 0280 50 4541 4561 0 1120 23 4014 4562 0 5115 70 7963 4563 1 5014 28 1428 4564 0 5020 00 0000 4565 0 5033 33 3333 4387 0 4390 01 0000 4388 0 4400 28 4387 4389 0 0000 31 4455 ERROR 4390 0 0000 41 4425 4391 0 0411 40 4421 4392 0 0010 18 4485 ERROR 4393 0 0000 34 4421 4394 0 2251 36 4418 4395 0 0000 36 4419 4396 0 0000 40 4486 ERROR 4397 0 0000 24 4486 ERROR 4398 0 0001 49 0002 4399 0 0211 40 4418 4400 0 0001 42 4418 4401 1 0001 48 0051 4402 0 0000 13 4431 4403 0 0001 49 0010 4404 0 0000 13 4482 ERROR 4405 0 0000 13 4482 ERROR 4406 0 0001 49 0010 4407 0 0000 31 4409 4408 0 0051 12 4432 4409 0 4400 28 4408 4410 0 1100 36 4416 4411 0 0412 40 4418 4412 0 0000 41 4418 4413 0 0001 49 0018 4414 0 0000 42 4387 4415 0 0000 30 4690 SQRT 4416 0 0001 49 0001 4417 0 0001 21 4410 4418 0 0001 43 0000 4419 0 0000 22 4485 ERROR 4420 0 0000 30 4414 4421 0 0000 41 4424 4422 0 0000 42 4387 4423 0 0000 30 4441 ERROR 4424 2 5956 54 6767 4425 0 0000 00 4424 4426 0 0000 10 4433 4427 0 0000 41 4486 ERROR 4428 1 0000 37 0000 4429 0 0001 49 0000 4430 1 0000 30 0000 4431 0 1000 00 0000 4432 0 0000 00 0001 4433 0 5115 70 7963 4488 0 0000 01 0000 4489 0 0000 42 4488 4490 1 0000 10 9999 4491 0 0000 48 0006 4492 0 0410 40 4498 4493 1 0000 10 9998 4494 0 4210 40 4498 4495 0 0000 48 0008 4496 0 0000 13 4500 4497 0 0000 19 4498 4498 0 2000 61 0000 4499 1 0000 30 0000 4500 0 0000 00 0001 COMPILED PROGRAM ENDS AT 0316 PROGRAM VARIABLES BEGIN AT 4387 D RADS SQRT SIN COS TAN ASIN ACOS ATAN 1 .17453292,-01 .13211091, 00 .17452404,-01 .99984769, 00 .17455062,-01 .17453291,-01 .17453645,-01 .17453290,-01 2 .34906584,-01 .18683303, 00 .34899493,-01 .99939083, 00 .34920765,-01 .34906582,-01 .34906526,-01 .34906581,-01 3 .52359876,-01 .22882280, 00 .52335954,-01 .99862955, 00 .52407776,-01 .52359877,-01 .52359603,-01 .52359875,-01 4 .69813168,-01 .26422182, 00 .69756469,-01 .99756405, 00 .69926807,-01 .69813167,-01 .69813187,-01 .69813166,-01 5 .87266460,-01 .29540897, 00 .87155740,-01 .99619470, 00 .87488660,-01 .87266462,-01 .87266451,-01 .87266460,-01 6 .10471975, 00 .32360431, 00 .10452845, 00 .99452190, 00 .10510422, 00 .10471974, 00 .10471971, 00 .10471974, 00 7 .12217304, 00 .34953259, 00 .12186933, 00 .99254616, 00 .12278454, 00 .12217304, 00 .12217299, 00 .12217303, 00 8 .13962633, 00 .37366605, 00 .13917309, 00 .99026809, 00 .14054082, 00 .13962633, 00 .13962619, 00 .13962633, 00 9 .15707962, 00 .39633271, 00 .15643445, 00 .98768836, 00 .15838442, 00 .15707962, 00 .15707952, 00 .15707961, 00 10 .17453292, 00 .41777137, 00 .17364816, 00 .98480779, 00 .17632695, 00 .17453291, 00 .17453271, 00 .17453290, 00 11 .19198621, 00 .43816230, 00 .19080897, 00 .98162719, 00 .19438028, 00 .19198619, 00 .19198618, 00 .19198619, 00 12 .20943950, 00 .45764560, 00 .20791167, 00 .97814762, 00 .21255653, 00 .20943949, 00 .20943941, 00 .20943948, 00 13 .22689279, 00 .47633264, 00 .22495103, 00 .97437012, 00 .23086815, 00 .22689279, 00 .22689256, 00 .22689276, 00 14 .24434608, 00 .49431373, 00 .24192187, 00 .97029579, 00 .24932796, 00 .24434608, 00 .24434583, 00 .24434606, 00 15 .26179938, 00 .51166334, 00 .25881903, 00 .96592586, 00 .26794916, 00 .26179938, 00 .26179926, 00 .26179936, 00 16 .27925267, 00 .52844362, 00 .27563734, 00 .96126173, 00 .28674535, 00 .27925268, 00 .27925256, 00 .27925265, 00 17 .29670596, 00 .54470720, 00 .29237169, 00 .95630480, 00 .30573065, 00 .29670596, 00 .29670582, 00 .29670594, 00 18 .31415925, 00 .56049909, 00 .30901698, 00 .95105657, 00 .32491966, 00 .31415926, 00 .31415909, 00 .31415923, 00 19 .33161254, 00 .57585807, 00 .32556814, 00 .94551864, 00 .34432757, 00 .33161255, 00 .33161235, 00 .33161252, 00 20 .34906584, 00 .59081792, 00 .34202011, 00 .93969269, 00 .36397017, 00 .34906583, 00 .34906563, 00 .34906579, 00 21 .36651913, 00 .60540821, 00 .35836793, 00 .93358051, 00 .38386397, 00 .36651913, 00 .36651889, 00 .36651909, 00 22 .38397242, 00 .61965506, 00 .37460656, 00 .92718394, 00 .40402615, 00 .38397240, 00 .38397220, 00 .38397237, 00 23 .40142571, 00 .63358163, 00 .39073110, 00 .92050495, 00 .42447474, 00 .40142571, 00 .40142545, 00 .40142566, 00 24 .41887900, 00 .64720860, 00 .40673660, 00 .91354557, 00 .44522858, 00 .41887899, 00 .41887873, 00 .41887893, 00 25 .43633230, 00 .66055452, 00 .42261823, 00 .90630784, 00 .46630759, 00 .43633230, 00 .43633218, 00 .43633226, 00 26 .45378559, 00 .67363607, 00 .43837113, 00 .89879411, 00 .48773253, 00 .45378560, 00 .45378544, 00 .45378556, 00 27 .47123888, 00 .68646839, 00 .45399047, 00 .89100660, 00 .50952537, 00 .47123887, 00 .47123873, 00 .47123883, 00 28 .48869217, 00 .69906519, 00 .46947155, 00 .88294767, 00 .53170937, 00 .48869219, 00 .48869202, 00 .48869214, 00 29 .50614546, 00 .71143900, 00 .48480959, 00 .87461980, 00 .55430895, 00 .50614546, 00 .50614528, 00 .50614541, 00 30 .52359876, 00 .72360123, 00 .49999998, 00 .86602550, 00 .57735018, 00 .52359876, 00 .52359857, 00 .52359871, 00 31 .54105205, 00 .73556238, 00 .51503804, 00 .85716733, 00 .60086055, 00 .54105203, 00 .54105200, 00 .54105202, 00 32 .55850534, 00 .74733214, 00 .52991924, 00 .84804814, 00 .62486929, 00 .55850533, 00 .55850526, 00 .55850532, 00 33 .57595863, 00 .75891938, 00 .54463900, 00 .83867070, 00 .64940744, 00 .57595862, 00 .57595838, 00 .57595854, 00 34 .59341192, 00 .77033234, 00 .55919288, 00 .82903772, 00 .67450836, 00 .59341193, 00 .59341166, 00 .59341184, 00 35 .61086522, 00 .78157866, 00 .57357642, 00 .81915212, 00 .70020745, 00 .61086522, 00 .61086509, 00 .61086518, 00 36 .62831851, 00 .79266543, 00 .58778523, 00 .80901708, 00 .72654242, 00 .62831851, 00 .62831836, 00 .62831846, 00 37 .64577180, 00 .80359928, 00 .60181501, 00 .79863561, 00 .75355393, 00 .64577182, 00 .64577164, 00 .64577175, 00 38 .66322509, 00 .81438633, 00 .61566145, 00 .78801087, 00 .78128547, 00 .66322510, 00 .66322491, 00 .66322502, 00 39 .68067838, 00 .82503234, 00 .62932038, 00 .77714609, 00 .80978388, 00 .68067839, 00 .68067818, 00 .68067831, 00 40 .69813168, 00 .83554274, 00 .64278758, 00 .76604458, 00 .83909944, 00 .69813167, 00 .69813146, 00 .69813159, 00 41 .71558497, 00 .84592255, 00 .65605901, 00 .75470974, 00 .86928652, 00 .71558498, 00 .71558473, 00 .71558487, 00 42 .73303826, 00 .85617652, 00 .66913057, 00 .74314489, 00 .90040391, 00 .73303825, 00 .73303817, 00 .73303821, 00 43 .75049155, 00 .86630914, 00 .68199834, 00 .73135378, 00 .93251495, 00 .75049156, 00 .75049145, 00 .75049150, 00 44 .76794484, 00 .87632459, 00 .69465834, 00 .71933990, 00 .96568859, 00 .76794485, 00 .76794471, 00 .76794477, 00 45 .78539814, 00 .88622689, 00 .70710676, 00 .70710689, 00 .99999981, 00 .78539814, 00 .78539799, 00 .78539807, 00 46 .80285143, 00 .89601975, 00 .71933979, 00 .69465849, 00 .10355301, 01 .80285150, 00 .80285130, 00 .80285140, 00 47 .82030472, 00 .90570672, 00 .73135367, 00 .68199850, 00 .10723684, 01 .82030470, 00 .82030450, 00 .82030460, 00 48 .83775801, 00 .91529119, 00 .74314481, 00 .66913076, 00 .11106122, 01 .83775810, 00 .83775780, 00 .83775790, 00 49 .85521130, 00 .92477633, 00 .75470955, 00 .65605920, 00 .11503680, 01 .85521130, 00 .85521110, 00 .85521120, 00 50 .87266460, 00 .93416516, 00 .76604442, 00 .64278780, 00 .11917532, 01 .87266460, 00 .87266440, 00 .87266450, 00 51 .89011789, 00 .94346057, 00 .77714593, 00 .62932060, 00 .12348966, 01 .89011790, 00 .89011760, 00 .89011770, 00 52 .90757118, 00 .95266528, 00 .78801073, 00 .61566157, 00 .12799413, 01 .90757120, 00 .90757110, 00 .90757110, 00 53 .92502447, 00 .96178189, 00 .79863548, 00 .60181514, 00 .13270445, 01 .92502450, 00 .92502440, 00 .92502440, 00 54 .94247776, 00 .97081291, 00 .80901697, 00 .58778538, 00 .13763815, 01 .94247780, 00 .94247760, 00 .94247770, 00 55 .95993106, 00 .97976068, 00 .81915203, 00 .57357658, 00 .14281476, 01 .95993110, 00 .95993090, 00 .95993100, 00 56 .97738435, 00 .98862749, 00 .82903755, 00 .55919306, 00 .14825605, 01 .97738440, 00 .97738420, 00 .97738430, 00 57 .99483764, 00 .99741547, 00 .83867053, 00 .54463921, 00 .15398643, 01 .99483760, 00 .99483750, 00 .99483750, 00 58 .10122909, 01 .10061267, 01 .84804806, 00 .52991946, 00 .16003338, 01 .10122909, 01 .10122907, 01 .10122908, 01 59 .10297442, 01 .10147631, 01 .85716727, 00 .51503829, 00 .16642787, 01 .10297442, 01 .10297440, 01 .10297441, 01 60 .10471975, 01 .10233267, 01 .86602538, 00 .50000023, 00 .17320499, 01 .10471976, 01 .10471973, 01 .10471974, 01 61 .10646508, 01 .10318191, 01 .87461967, 00 .48480986, 00 .18040467, 01 .10646508, 01 .10646506, 01 .10646506, 01 62 .10821041, 01 .10402423, 01 .88294757, 00 .46947169, 00 .18807259, 01 .10821041, 01 .10821040, 01 .10821040, 01 63 .10995573, 01 .10485977, 01 .89100646, 00 .45399078, 00 .19626091, 01 .10995573, 01 .10995571, 01 .10995572, 01 64 .11170106, 01 .10568872, 01 .89879400, 00 .43837144, 00 .20503023, 01 .11170106, 01 .11170104, 01 .11170104, 01 65 .11344639, 01 .10651121, 01 .90630773, 00 .42261858, 00 .21445051, 01 .11344639, 01 .11344637, 01 .11344637, 01 66 .11519172, 01 .10732740, 01 .91354541, 00 .40673683, 00 .22460356, 01 .11519172, 01 .11519171, 01 .11519171, 01 67 .11693705, 01 .10813743, 01 .92050482, 00 .39073134, 00 .23558510, 01 .11693706, 01 .11693704, 01 .11693704, 01 68 .11868238, 01 .10894144, 01 .92718383, 00 .37460682, 00 .24750852, 01 .11868239, 01 .11868237, 01 .11868237, 01 69 .12042771, 01 .10973956, 01 .93358040, 00 .35836819, 00 .26050872, 01 .12042771, 01 .12042769, 01 .12042770, 01 70 .12217304, 01 .11053191, 01 .93969259, 00 .34202040, 00 .27474752, 01 .12217304, 01 .12217302, 01 .12217302, 01 71 .12391837, 01 .11131862, 01 .94551856, 00 .32556843, 00 .29042083, 01 .12391838, 01 .12391835, 01 .12391835, 01 72 .12566370, 01 .11209982, 01 .95105650, 00 .30901714, 00 .30776820, 01 .12566370, 01 .12566369, 01 .12566369, 01 73 .12740903, 01 .11287561, 01 .95630474, 00 .29237187, 00 .32708507, 01 .12740903, 01 .12740902, 01 .12740902, 01 74 .12915436, 01 .11364609, 01 .96126170, 00 .27563754, 00 .34874121, 01 .12915437, 01 .12915435, 01 .12915435, 01 75 .13089969, 01 .11441140, 01 .96592582, 00 .25881924, 00 .37320479, 01 .13089969, 01 .13089968, 01 .13089968, 01 76 .13264501, 01 .11517161, 01 .97029571, 00 .24192211, 00 .40107773, 01 .13264502, 01 .13264500, 01 .13264500, 01 77 .13439034, 01 .11592684, 01 .97437005, 00 .22495129, 00 .43314712, 01 .13439035, 01 .13439033, 01 .13439033, 01 78 .13613567, 01 .11667719, 01 .97814758, 00 .20791194, 00 .47046243, 01 .13613567, 01 .13613566, 01 .13613566, 01 79 .13788100, 01 .11742274, 01 .98162716, 00 .19080926, 00 .51445467, 01 .13788100, 01 .13788099, 01 .13788099, 01 80 .13962633, 01 .11816358, 01 .98480773, 00 .17364847, 00 .56712721, 01 .13962633, 01 .13962631, 01 .13962631, 01 81 .14137166, 01 .11889981, 01 .98768832, 00 .15643477, 00 .63137390, 01 .14137166, 01 .14137164, 01 .14137164, 01 82 .14311699, 01 .11963151, 01 .99026806, 00 .13917342, 00 .71153533, 01 .14311699, 01 .14311697, 01 .14311697, 01 83 .14486232, 01 .12035876, 01 .99254614, 00 .12186953, 00 .81443338, 01 .14486232, 01 .14486231, 01 .14486231, 01 84 .14660765, 01 .12108164, 01 .99452188, 00 .10452867, 00 .95143454, 01 .14660764, 01 .14660764, 01 .14660764, 01 85 .14835298, 01 .12180023, 01 .99619469, 00 .87155968,-01 .11430022, 02 .14835298, 01 .14835297, 01 .14835297, 01 86 .15009831, 01 .12251461, 01 .99756404, 00 .69756717,-01 .14300616, 02 .15009830, 01 .15009829, 01 .15009829, 01 87 .15184364, 01 .12322485, 01 .99862953, 00 .52336217,-01 .19081041, 02 .15184364, 01 .15184362, 01 .15184362, 01 88 .15358896, 01 .12393101, 01 .99939082, 00 .34899775,-01 .28636024, 02 .15358895, 01 .15358895, 01 .15358895, 01 89 .15533429, 01 .12463318, 01 .99984769, 00 .17452703,-01 .57288987, 02 .15533427, 01 .15533428, 01 .15533428, 01