File: ADVENT.RL of Disk: V50/Source/Source-Listing-FORTRAN-2
(Binary file converted to dump format)
Block: 0000 00000: 0003 0050 0000 0000 4315 0111 1600 0004 0020 0333 0115 0111 1600 0002 0060 0000 @C@(@@@@#MAIN@@D@PC[AMAIN@@B@0@@ ( MI 0 [ MI 00 00020: 0530 1124 0000 0002 0100 0000 1116 1124 0000 0002 0120 0000 2305 2411 0414 0002 EXIT@@@BA@@@INIT@@@BAP@@SETIDL@B XT @ NT" P E E 00040: 0140 0000 0102 0203 1715 0003 0160 0702 1511 2303 1715 0003 0200 5073 1511 2303 A @@ABBCOM@CA0GBMISCOM@CB@(;MISC ` B M 0pB IC4M 0 ; IC4 00060: 6200 0003 0220 6333 2014 0103 1715 0003 0240 3165 2024 3003 1715 0003 0260 0454 2@@CBP3[PLACOM@CB Y5PTXCOM@CB0D, @ [ C@M 0 u FM 00, 00100: 2430 2403 1715 0003 0300 1455 2605 2223 1600 0003 0320 0011 2617 0303 1715 0003 TXTCOM@CC@L-VERSN@@CCP@IVOCCOM@C UM 0@- T 0P CPM 0 00120: 0340 3413 4316 0500 0000 0002 0360 0000 4305 3011 2400 0002 0400 0000 0000 0000 C \K#NE@@@@BC0@@#EXIT@@BD@@@@@@@ ` N@ p E P 00140: 0000 0000 0000 0000 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 @@@@@@@@@A@A@A@A@A@A@A@A@A@A@A@A 00160: 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 @A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A 00200: 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 @A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A 00220: 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 @A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A 00240: 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 @A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A 00260: 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 @A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A 00300: 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 @A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A 00320: 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 @A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A 00340: 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 @A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A 00360: 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 @A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A Block: 0001 00400: 1001 0000 0000 1401 1030 0315 1001 0000 0012 0403 1501 1116 4040 1401 1100 0002 HA@@@@LAHXCMHA@@@JDCMAIN LAI@@B M AN2 @ 00420: 1401 1110 0023 1401 1030 0024 1001 0000 0031 1001 0000 0053 0401 0040 1401 1030 LAIH@SLAHX@THA@@@YHA@@@+DA@ LAHX H2 + 2 00440: 0015 0403 0040 0000 0000 1001 0000 0064 1001 0000 0067 1001 0000 0072 1001 0000 @MDC@ @@@@HA@@@4HA@@@7HA@@@:HA@@ 4 7 : 00460: 0075 1001 0000 0106 0453 0001 2000 0000 0002 3000 0000 0003 2000 0000 0003 3000 @=HA@@AFD+@AP@@@@BX@@@@CP@@@@CX@ = F + @ @ 00500: 0000 0004 3000 0000 0005 2400 0000 0006 2140 0000 0006 3200 0000 0007 3100 0000 @@@DX@@@@ET@@@@FQ @@@FZ@@@@GY@@@ ` ` @ @ ` 00520: 0010 2260 0000 0010 3100 0000 0010 3150 0000 0010 3720 0000 0011 2260 0000 0000 @HR0@@@HY@@@@HY(@@@H_P@@@IR0@@@@ 0 @ ` h P p 0 00540: 1407 1037 7775 0401 0000 1410 1030 2211 0401 0000 1416 1030 1601 0401 0000 1412 LGH_?=DA@@LHHXRIDA@@LNHXNADA@@LJ 2} q $ 2 1 00560: 1037 7775 0401 0000 1410 1030 2362 0401 0000 1411 1030 0011 0401 0000 1410 1030 H_?=DA@@LHHXS2DA@@LIHX@IDA@@LHHX }/ 2r A 2 00600: 0014 0401 0000 1414 1030 1216 0401 0000 1410 1030 4460 0401 0000 1410 1030 4433 @LDA@@LLHXJNDA@@LHHX$0DA@@LHHX$[ " 20 ) 00620: 0401 0000 1410 1030 1535 0401 0000 1412 1030 2503 0401 0000 1411 1030 6226 0401 DA@@LHHXM]DA@@LJHXUCDA@@LIHX2VDA 2] 1 C% 2 A 00640: 0000 1410 1030 4331 0401 0000 1410 1030 3170 0401 0000 1410 1030 0157 0401 0000 @@LHHX#YDA@@LHHXY8DA@@LHHXA/DA@@ Y( 2x a o 00660: 1416 1037 7775 0401 0000 1414 1030 1144 0401 0000 1412 1030 0677 0401 0000 1411 LNH_?=DA@@LLHXI$DA@@LJHXF?DA@@LI 2} q d" 2? 00700: 1030 0757 0401 0000 1410 1030 5040 0401 0000 1410 1030 1061 0401 0000 1412 1030 HXG/DA@@LHHX( DA@@LHHXH1DA@@LJHX o! 2 ! 1" 2 00720: 2027 0401 0000 1410 1030 3647 0401 0000 1413 1037 7775 0401 0000 1414 1037 7775 PWDA@@LHHX^'DA@@LKH_?=DA@@LLH_?= A '' 2} q }/ 00740: 0401 0000 1411 1030 0055 0401 0000 1410 1030 0060 0401 0000 1411 1030 1664 0401 DA@@LIHX@-DA@@LHHX@0DA@@LIHXN4DA 2- 0 24 1 00760: 0000 1411 1030 3242 0401 0000 1411 1030 4620 1007 0000 0000 1007 0000 0702 0001 @@LIHXZ"DA@@LIHX&PHG@@@@HG@@GB@A "& 2 B Block: 0002 01000: 1010 0000 0000 1010 0000 0003 1010 0000 0006 1010 0000 0011 1010 0000 0014 1010 HH@@@@HH@@@CHH@@@FHH@@@IHH@@@LHH 01020: 0000 0017 1010 0000 0063 1010 0000 0157 1010 0000 0162 1010 0000 1064 1010 0000 @@@OHH@@@3HH@@A/HH@@A2HH@@H4HH@@ 3 o r 4 01040: 1540 1010 0000 2214 1010 0000 2365 1010 0000 3267 1010 0000 3647 1010 0000 3652 M HH@@RLHH@@S5HH@@Z7HH@@^'HH@@^* ` 2 u B 7 ' r * 01060: 1010 0000 4326 1010 0000 4331 1010 0000 4334 1010 0000 4430 1010 0000 4433 1010 HH@@#VHH@@#YHH@@#\HH@@$XHH@@$[HH V Y \ 01100: 0000 4436 1010 0000 4460 1010 0000 4463 1010 0000 4505 1010 0000 4510 1010 0000 @@$^HH@@$0HH@@$3HH@@%EHH@@%HHH@@ 0 3 E H 01120: 4513 1010 0000 4516 1010 0000 4521 1010 0000 4524 1010 0000 4527 1010 0000 4532 %KHH@@%NHH@@%QHH@@%THH@@%WHH@@%Z K N Q T W Z 01140: 1010 0000 4535 1010 0000 4540 1010 0000 4543 1010 0000 4546 1010 0000 4551 1010 HH@@%]HH@@% HH@@%#HH@@%&HH@@%)HH ] ` c f i 01160: 0000 4554 1010 0000 4557 1010 0000 4562 1010 0000 4565 1010 0000 4570 1010 0000 @@%,HH@@%/HH@@%2HH@@%5HH@@%8HH@@ l o r u x 01200: 4573 1010 0000 4576 1010 0000 4601 1010 0000 4604 1010 0000 4607 1010 0000 4612 %;HH@@%>HH@@&AHH@@&DHH@@&GHH@@&J { ~ 01220: 1010 0000 4615 1010 0000 4620 1010 0000 4623 1010 0000 4626 1010 0000 4631 1010 HH@@&MHH@@&PHH@@&SHH@@&VHH@@&YHH 01240: 0000 4634 1010 0000 4637 1010 0000 4642 1010 0000 4645 1010 0000 4650 1010 0000 @@&\HH@@&_HH@@&"HH@@&%HH@@&(HH@@ " % ( 01260: 4653 1010 0000 4656 1010 0000 4661 1010 0000 4664 1010 0000 4667 1010 0000 4672 &+HH@@&.HH@@&1HH@@&4HH@@&7HH@@&: + . 1 4 7 : 01300: 1010 0000 4675 1010 0000 4700 1010 0000 4703 1010 0000 4706 1010 0000 4711 1010 HH@@&=HH@@'@HH@@'CHH@@'FHH@@'IHH = @ C F I 01320: 0000 4714 1010 0000 4717 1010 0000 4722 1010 0000 4725 1010 0000 4730 1010 0000 @@'LHH@@'OHH@@'RHH@@'UHH@@'XHH@@ L O R U X 01340: 4733 1010 0000 4736 1010 0000 4741 1010 0000 4744 1010 0000 4747 1010 0000 4752 '[HH@@'^HH@@'!HH@@'$HH@@''HH@@'* [ ^ a d g j 01360: 1010 0000 4755 1010 0000 4760 1010 0000 4763 1010 0000 4766 1010 0000 4771 0001 HH@@'-HH@@'0HH@@'3HH@@'6HH@@'9@A m p s v y Block: 0003 01400: 1010 0000 4774 1010 0000 4777 1010 0000 5002 1010 0000 5005 1010 0000 5010 1010 HH@@'<HH@@'?HH@@(BHH@@(EHH@@(HHH | " " 01420: 0000 5013 1010 0000 5016 1010 0000 5021 1010 0000 5024 1010 0000 5027 1010 0000 @@(KHH@@(NHH@@(QHH@@(THH@@(WHH@@ " " 01440: 5032 1010 0000 5035 1010 0000 5040 1010 0000 5043 1010 0000 5065 1010 0000 5070 (ZHH@@(]HH@@( HH@@(#HH@@(5HH@@(8 " " # 5 " 8 01460: 1010 0000 5073 1011 0000 0000 1011 0000 0003 1011 0000 0006 1011 0000 0011 1011 HH@@(;HI@@@@HI@@@CHI@@@FHI@@@IHI ; " 01500: 0000 0014 1011 0000 0060 1011 0000 0762 1011 0000 1664 1011 0000 1667 1011 0000 @@@LHI@@@0HI@@G2HI@@N4HI@@N7HI@@ 0 r 4 2 7 01520: 3245 1011 0000 4623 1011 0000 6201 1011 0000 6204 1011 0000 6207 1011 0000 6212 Z%HI@@&SHI@@2AHI@@2DHI@@2GHI@@2J % b B B 01540: 1011 0000 6215 1011 0000 6220 1011 0000 6223 1011 0000 6226 1011 0000 6231 1011 HI@@2MHI@@2PHI@@2SHI@@2VHI@@2YHI B B B 01560: 0000 6325 1011 0000 6330 1011 0000 6333 1012 0000 0000 1012 0000 0702 1012 0000 @@3UHI@@3XHI@@3[HJ@@@@HJ@@GBHJ@@ U X B [ B 01600: 2032 1012 0000 2506 1012 0000 3162 1012 0000 3165 1013 0000 0000 1013 0000 0454 PZHJ@@UFHJ@@Y2HJ@@Y5HK@@@@HK@@D, B F r b u , 01620: 1014 0000 0000 1014 0000 1147 1014 0000 1213 1014 0000 1216 1014 0000 1221 1014 HL@@@@HL@@I'HL@@JKHL@@JNHL@@JQHL g " " 01640: 0000 1455 1015 0000 0000 1015 0000 0003 1015 0000 0006 1015 0000 0011 1016 0000 @@L-HM@@@@HM@@@CHM@@@FHM@@@IHN@@ - 01660: 0000 1016 0000 1604 1016 0000 3410 1016 0000 3413 1001 0000 0315 1401 1110 0023 @@HN@@NDHN@@\HHN@@\KHA@@CMLAIH@S r M H 01700: 1401 1100 0002 1015 0000 0000 0403 0002 2000 0000 1015 0000 0003 0403 0000 0000 LAI@@BHM@@@@DC@BP@@@HM@@@CDC@@@@ @2 @ 01720: 0000 1015 0000 0006 0403 0140 4040 4040 1001 0000 0321 1406 1130 0000 1405 1130 @@HM@@@FDCA HA@@CQLFIX@@LEIX ` Q X X2 01740: 0000 1403 1130 0000 1404 1130 0000 1420 1130 0000 0000 0001 0001 0001 0001 0001 @@LCIX@@LDIX@@LPIX@@@@@A@A@A@A@A X X2 X 01760: 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 0001 @A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A