File: BITSET.RL of Disk: V50/Source/Source-Listing-FORTRAN-2
(Binary file converted to dump format)
Block: 0000
00000: 0003 0050 0000 0000 4322 0524 2216 0002 0160 0000 4306 1130 0000 0002 0200 0000 @C@(@@@@#RETRN@BA0@@#FIX@@@BB@@@ ( RT @p FX
00020: 0211 2424 0522 0007 0220 0204 1511 2303 1715 0003 0240 5073 1123 1006 2400 0001 BITTER@GBPBDMISCOM@CB (;ISHFT@@A R IC4M 0 ; S " P
00040: 0220 0133 0211 2423 0524 0001 0220 0062 4301 1604 0522 0001 0220 0000 0000 0000 BPA[BITSET@ABP@2#ANDER@ABP@@@@@@ [ T 2 A R
00060: 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
00100: 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
00120: 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
00140: 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
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: 1003 0000 0000 1011 0000 0000 0405 1235 0236 3235 6203 5637 1411 1100 0035 1411 HC@@@@HI@@@@DEJ]B^Z]2C._LII@@]LI K @2
00420: 1110 0016 1411 1030 0014 0403 0211 2423 0524 1011 0000 0021 1011 0000 0024 1011 IH@NLIHX@LDCBITSETHI@@@QHI@@@THI H 2 T
00440: 0000 0027 0407 0211 2423 0524 1123 1006 2440 0040 1407 0000 0000 0406 0001 0002 @@@WDGBITSETISHFT @ LG@@@@DF@A@B TQS " P 0
00460: 0003 0002 2000 0000 1011 0000 0046 0401 0040 1411 1030 0005 0403 0040 0000 0000 @C@BP@@@HI@@@&DA@ LIHX@EDC@ @@@@ @ &
00500: 1012 0000 0000 1012 0000 0003 1012 0000 0006 1012 0000 0011 1012 0000 0014 1012 HJ@@@@HJ@@@CHJ@@@FHJ@@@IHJ@@@LHJ
00520: 0000 0017 1012 0000 0063 1012 0000 0157 1012 0000 0162 1012 0000 1064 1012 0000 @@@OHJ@@@3HJ@@A/HJ@@A2HJ@@H4HJ@@ 3 o r 4
00540: 1540 1012 0000 2214 1012 0000 2365 1012 0000 3267 1012 0000 3647 1012 0000 3652 M HJ@@RLHJ@@S5HJ@@Z7HJ@@^'HJ@@^* ` 2 u B 7 ' r *
00560: 1012 0000 4326 1012 0000 4331 1012 0000 4334 1012 0000 4430 1012 0000 4433 1012 HJ@@#VHJ@@#YHJ@@#\HJ@@$XHJ@@$[HJ V Y \
00600: 0000 4436 1012 0000 4460 1012 0000 4463 1012 0000 4505 1012 0000 4510 1012 0000 @@$^HJ@@$0HJ@@$3HJ@@%EHJ@@%HHJ@@ 0 3 E H
00620: 4513 1012 0000 4516 1012 0000 4521 1012 0000 4524 1012 0000 4527 1012 0000 4532 %KHJ@@%NHJ@@%QHJ@@%THJ@@%WHJ@@%Z K N Q T W Z
00640: 1012 0000 4535 1012 0000 4540 1012 0000 4543 1012 0000 4546 1012 0000 4551 1012 HJ@@%]HJ@@% HJ@@%#HJ@@%&HJ@@%)HJ ] ` c f i
00660: 0000 4554 1012 0000 4557 1012 0000 4562 1012 0000 4565 1012 0000 4570 1012 0000 @@%,HJ@@%/HJ@@%2HJ@@%5HJ@@%8HJ@@ l o r u x
00700: 4573 1012 0000 4576 1012 0000 4601 1012 0000 4604 1012 0000 4607 1012 0000 4612 %;HJ@@%>HJ@@&AHJ@@&DHJ@@&GHJ@@&J { ~
00720: 1012 0000 4615 1012 0000 4620 1012 0000 4623 1012 0000 4626 1012 0000 4631 1012 HJ@@&MHJ@@&PHJ@@&SHJ@@&VHJ@@&YHJ
00740: 0000 4634 1012 0000 4637 1012 0000 4642 1012 0000 4645 1012 0000 4650 1012 0000 @@&\HJ@@&_HJ@@&"HJ@@&%HJ@@&(HJ@@ " % (
00760: 4653 1012 0000 4656 1012 0000 4661 1012 0000 4664 1012 0000 4667 1012 0000 4672 &+HJ@@&.HJ@@&1HJ@@&4HJ@@&7HJ@@&: + . 1 4 7 :
Block: 0002
01000: 1012 0000 4675 1012 0000 4700 1012 0000 4703 1012 0000 4706 1012 0000 4711 1012 HJ@@&=HJ@@'@HJ@@'CHJ@@'FHJ@@'IHJ = @ C F I
01020: 0000 4714 1012 0000 4717 1012 0000 4722 1012 0000 4725 1012 0000 4730 1012 0000 @@'LHJ@@'OHJ@@'RHJ@@'UHJ@@'XHJ@@ L O R U X
01040: 4733 1012 0000 4736 1012 0000 4741 1012 0000 4744 1012 0000 4747 1012 0000 4752 '[HJ@@'^HJ@@'!HJ@@'$HJ@@''HJ@@'* [ ^ a d g j
01060: 1012 0000 4755 1012 0000 4760 1012 0000 4763 1012 0000 4766 1012 0000 4771 1012 HJ@@'-HJ@@'0HJ@@'3HJ@@'6HJ@@'9HJ m p s v y
01100: 0000 4774 1012 0000 4777 1012 0000 5002 1012 0000 5005 1012 0000 5010 1012 0000 @@'<HJ@@'?HJ@@(BHJ@@(EHJ@@(HHJ@@ | "
01120: 5013 1012 0000 5016 1012 0000 5021 1012 0000 5024 1012 0000 5027 1012 0000 5032 (KHJ@@(NHJ@@(QHJ@@(THJ@@(WHJ@@(Z " " "
01140: 1012 0000 5035 1012 0000 5040 1012 0000 5043 1012 0000 5065 1012 0000 5070 1012 HJ@@(]HJ@@( HJ@@(#HJ@@(5HJ@@(8HJ " # " 5 8 "
01160: 0000 5073 1011 0000 0054 1011 0000 0057 0404 0001 2000 0000 0203 1411 1120 0157 @@(;HI@@@,HI@@@/DD@AP@@@BCLIIPA/ ; , / @ Po
01200: 0402 0602 0027 1412 0470 2362 1411 6400 0130 0403 0100 0001 0601 1411 1000 0107 DBFB@WLJD8S2LI4@AXDCA@@AFALIH@AG 8r =X @ G
01220: 0410 0003 0021 0030 0006 0011 0005 0020 0030 1410 1120 0000 0401 0020 1411 0400 DH@C@Q@X@F@I@E@P@XLHIP@@DA@PLID@ P 1
01240: 0130 1410 1120 0000 0401 0021 1411 3000 0000 0401 0030 1411 1000 0052 0401 0213 AXLHIP@@DA@QLIX@@@DA@XLIH@@*DABK X P 6 *
01260: 1411 1030 0052 1011 0000 0133 0401 0204 1411 1120 0157 0401 0601 1411 1000 0154 LIHX@*HI@@A[DABDLIIPA/DAFALIH@A, 2* [ P2o l
01300: 0407 0003 0021 0602 0010 0006 0011 0005 1410 1120 0000 1411 1030 0052 0401 0602 DG@C@QFB@H@F@I@ELHIP@@LIHX@*DAFB P2 *
01320: 1411 1030 0052 0402 0000 0000 1411 6400 0013 1411 1100 0035 0402 0006 0210 1411 LIHX@*DB@@@@LI4@@KLII@@]DB@FBHLI 2* = @
01340: 6400 0052 0401 0200 1411 1110 0016 0406 6200 0630 6202 0640 6201 0005 1411 1030 4@@*DAB@LIIH@NDF2@FX2BF 2A@ELIHX *P H2 A A @ 2
01360: 0157 0000 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 o