File: SPEAK.RL of Disk: V50/Source/Source-Listing-FORTRAN-2
(Binary file converted to dump format)
Block: 0000 00000: 0003 0050 0000 0000 0104 2624 2431 0011 0060 0063 2204 1411 1600 0011 0100 0117 @C@(@@@@ADVTTY@I@0@3RDLIN@@IA@AO ( D P03 C 0@O 00020: 0705 2414 1600 0011 0140 0323 2330 1725 2400 0011 0200 0167 2320 0501 1300 0004 GETLN@@IA CSSXOUT@@IB@A7SPEAK@@D E 0`S XUC P w PAA@ 00040: 0240 0225 1117 0000 0000 0002 0260 0000 4310 0116 0700 0002 0300 0000 2430 2403 B BUIO@@@@@BB0@@#HANG@@BC@@@TXTC O 0 HN @ @ U 00060: 1715 0003 0320 1573 4327 2211 2417 0002 0340 0000 4322 0516 0417 0002 0360 0000 OM@CCPM;#WRITO@BC @@#RENDO@BC0@@ M 0P{ W P` RN p 00100: 2204 1411 1605 0001 0100 0000 2311 3017 2524 0001 0140 0200 2311 3070 0000 0001 RDLINE@AA@@@SIXOUT@AA B@SIX8@@@A C 0@ I FT P` I8F 00120: 0200 0000 0000 0000 0000 0000 0000 0000 0001 0001 0001 0001 0001 0001 0001 0001 B@@@@@@@@@@@@@@@@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 0461 0000 6002 7450 5235 3261 6214 1226 3224 6201 1657 7740 5227 HC@@@@D1@@0B<(*]Z12LJVZT2AN/? *W 1 ( z1 l & /C` z 00420: 1657 7104 7230 1261 7510 6046 3657 6001 7402 5600 6203 6211 6202 4662 0451 6201 N/9D:XJ1=H0&^/0A<B.@2C2I2B&2D)2A /D> 1bH&|/ | { L 2I) 00440: 5214 6214 1226 3224 6201 1660 7650 5251 1660 3261 3660 1261 5223 6211 6202 4662 *L2LJVZT2AN0>(*)N0Z1^0J1*S2I2B&2 , & 0C()z01601r , 2I 00460: 0465 6201 5244 0004 0005 1414 0000 0000 1004 0000 0000 1404 1030 0063 1004 0000 D52A*$@D@ELL@@@@HD@@@@LDHX@3HD@@ 5 $ 3 00500: 0012 0403 2204 1411 1605 1404 1100 0002 1404 1110 0023 1404 1030 0024 1004 0000 @JDCRDLINELDI@@BLDIH@SLDHX@THD@@ C 3@ H2 00520: 0031 1004 0000 0034 1004 0000 0037 1004 0000 0053 0401 0040 1404 1030 0015 0403 @YHD@@@\HD@@@_HD@@@+DA@ LDHX@MDC + 2 00540: 0040 0000 0000 1404 1030 0057 0402 0006 0210 1404 6400 0057 0401 0200 1404 1100 @ @@@@LDHX@/DB@FBHLD4@@/DAB@LDI@ / /P @2 00560: 0002 1404 1110 0023 0410 0101 0000 6200 0710 6202 0710 6203 0005 1406 1100 0147 @BLDIH@SDHAA@@2@GH2BGH2C@ELFI@A' H A H H @g 00600: 0403 0603 0003 0020 1404 1100 0002 1406 4000 0000 1404 1030 0061 1006 0000 0000 DCFC@C@PLDI@@BLF @@@LDHX@1HF@@@@ @2 21 00620: 0557 0000 7200 3366 1750 0351 3364 1763 0376 7106 7004 1373 3275 4767 3377 1377 E/@@:@[6O(C)[4O3C>9F8DK;Z='7[?K? o vfhi0tsc~F {b=wib 00640: 1352 7650 5310 1377 1353 7650 5333 1377 1355 7710 5305 1377 1357 7710 5245 1377 K*>(+HK?K+>(+[K?K-?H+EK?K/?H*%K? j(/H"k(/["mH/E"oH/%" 00660: 1360 7700 5245 1377 1361 3377 1366 1347 7700 5305 1377 4767 4255 5214 0000 1366 K0?@*%K?K1[?K6K'?@+EK?'7"-*L@@K6 p@/%"q&vg"@Ezw)- v 00700: 1366 1366 1765 3362 1374 4274 4274 1377 0375 4274 6211 2366 5655 0000 7402 3762 K6K6O5[2K<"<"<K?C="<2IS6.-@@<B_2 vv"ur6|<(< }< vD- 0 rw 00720: 2362 5674 1275 1370 3275 5674 1356 4767 5214 1366 7650 5305 1364 7650 5325 1370 S2.<J=K8Z=.<K.'7*LK6>(+EK4>(+UK8 r<K=x"=<knw) v"(Ezt(/Ux" 00740: 4767 1371 4767 1370 4767 5327 1372 4767 7240 1366 3366 5214 1354 4767 1366 1347 '7K9'7K8'7+WK:'7: K6[6*LK,'7K6K' wy wx wW zw) vbv jlw)vg" 00760: 7700 5345 1371 3377 4255 5335 6203 5600 0000 7726 0200 7401 7563 0215 7540 0207 ?@+%K9[?"-+]2C.@@@?VB@<A=3BM= BG @ezy&-] K V s p` p Block: 0002 01000: 0403 7437 7405 7740 1404 0000 0032 1404 0000 0033 1403 0000 0000 0410 0010 0240 DC<_<E? LD@@@ZLD@@@[LC@@@@DH@HB ` 0 0 01020: 0334 6201 0027 0077 0007 0000 1406 1030 0263 1006 0000 0212 0403 2311 3017 2524 C\2A@W@?@G@@LFHXB3HF@@BJDCSIXOUT \ ? 23 I Te 01040: 1406 1100 0202 1406 1110 0223 1406 1030 0224 1006 0000 0231 1006 0000 0234 1006 LFI@BBLFIHBSLFHXBTHF@@BYHF@@B\HF @2 H 2 01060: 0000 0237 1006 0000 0253 0401 0040 1406 1030 0215 0403 0040 0000 0000 1406 1030 @@B_HF@@B+DA@ LFHXBMDC@ @@@@LFHX + 2 01100: 0257 0402 0006 0210 1406 6400 0257 0401 0200 1406 1100 0202 1406 1110 0223 0404 B/DB@FBHLF4@B/DAB@LFI@BBLFIHBSDD / =/ @ H2 01120: 0101 0000 6200 0710 1410 6400 0152 0406 0710 6202 0710 6203 0005 0602 1410 1100 AA@@2@GHLH4@A*DFGH2BGH2C@EFBLHI@ A HA =j H H @2 01140: 0144 0403 0020 0603 0021 1406 1100 0202 1410 4000 0000 1406 1030 0261 1010 0000 A$DC@PFC@QLFI@BBLH @@@LFHXB1HH@@ d @ 8 1 01160: 0000 0541 0000 1345 7010 7630 5210 6211 1350 4742 1362 3343 1352 0357 7104 7006 @@E!@@K%8H>X*H2IK('"K2[#K*C/9D8F a e o ,hb)rc&jo D n 01200: 1361 3234 1234 3255 1344 7450 5253 7240 1344 1353 3346 1344 7041 3344 7402 1746 K1Z\J\Z-K$<(*+: K$K+[&K$8![$<BO& q & -&d(/+ .dk"fdb!df fs 01220: 1351 7640 5250 2344 7410 5250 7240 1346 3346 5235 1344 7650 5274 1353 3346 7402 K)> *(S$<H*(: K&[&*]K$>(*<K+[&<B i /(d$ (z fbf jd(/<k"f o 01240: 1746 3355 1355 7012 7012 7012 4314 1355 4314 2346 7410 5306 2344 5255 7200 1345 O&[-K-8J8J8J#LK-#LS&<H+FS$*-:@K% fm6m . nLm Lf Fzd-J eb 01260: 7012 7630 5304 6211 1347 4742 6203 5600 1234 1365 3234 1234 3255 5272 0000 0356 8J>X+D2IK''"2C.@J\K5Z\J\Z-*:@@C. oD ,gb) K u" b-:j n 01300: 7450 5274 1363 7450 5335 1366 7450 5336 1364 7510 1343 1360 6211 4742 5714 1360 <(*<K3<(+]K6<(+^K4=HK#K02I'"/LK0 (<zs(/]v"(^ztH/cp" bILp2 01320: 1362 3343 5714 1403 0000 0000 0424 0140 0000 0000 0000 0015 0012 3740 0000 0000 K2[#/LLC@@@@DTA @@@@@@@M@J_ @@@@ rc&L 3 ` ` 01340: 0000 0000 0077 0007 0040 6201 0100 7743 7773 0010 0002 1012 0000 0000 1412 1030 @@@@@?@G@ 2AA@?#?;@H@BHJ@@@@LJHX ? @c { p 2 01360: 0074 1012 0000 0012 0403 2320 0501 1300 1412 1100 0002 1412 1110 0023 0001 0001 @<HJ@@@JDCSPEAK@LJI@@BLJIH@S@A@A < P A@ @2 H Block: 0003 01400: 1412 1030 0024 1012 0000 0031 1012 0000 0034 1012 0000 0037 0414 4040 4040 4040 LJHX@THJ@@@YHJ@@@\HJ@@@_DL 2 01420: 7644 7440 4040 0001 2000 0000 0003 2000 0000 1012 0000 0053 0401 0040 1412 1030 >$< @AP@@@@CP@@@HJ@@@+DA@ LJHX $ @ + 2 01440: 0015 0403 0040 0000 0000 1012 0000 0064 1012 0000 0067 1012 0000 0072 1015 0000 @MDC@ @@@@HJ@@@4HJ@@@7HJ@@@:HM@@ 4 7 : 01460: 0000 1015 0000 1147 1015 0000 1213 1015 0000 1216 1015 0000 1221 1015 0000 1573 @@HM@@I'HM@@JKHM@@JNHM@@JQHM@@M; g " " { 01500: 1012 0000 0072 1412 1030 0057 0402 0006 0210 1412 6400 0057 0401 0200 1412 1100 HJ@@@:LJHX@/DB@FBHLJ4@@/DAB@LJI@ : / /P @2 01520: 0002 1412 1110 0023 0407 0101 0000 6200 0710 6202 0005 0602 1412 1000 0072 0402 @BLJIH@SDGAA@@2@GH2B@EFBLJH@@:DB H A H 2: 01540: 0202 0006 1412 6400 0127 0401 0005 1413 1130 0000 1412 1030 0131 1412 1030 0127 BB@FLJ4@AWDA@ELKIX@@LJHXAYLJHXAW =W X 2Y W 01560: 0402 0206 0027 1415 0470 1144 0401 2205 1412 1000 0072 1415 0400 1216 0403 6214 DBBF@WLMD8I$DARELJH@@:LMD@JNDC2L 8d 2: 01600: 0206 6212 1410 1100 0144 0404 0100 0044 0101 0000 1412 1100 0002 1412 0400 0222 BF2JLHI@A$DDA@@$AA@@LJI@@BLJD@BR @2d @$ A @2 01620: 1410 6400 0152 1410 4000 0000 0405 0602 1206 6602 0202 0006 1412 6400 0177 0401 LH4@A*LH @@@DEFBJF6BBB@FLJ4@A?DA =j - = 01640: 0005 1413 1130 0000 1412 1030 0201 1412 1030 0177 1415 0400 1216 0401 2214 1412 @ELKIX@@LJHXBALJHXA?LMD@JNDARLLJ X 2 1 ! C 01660: 1000 0140 1416 3000 0000 1412 1030 0050 1412 1030 0220 1417 3000 0000 1412 1030 H@A LNX@@@LJHX@(LJHXBPLOX@@@LJHX ` 6 ( 2 ` 2 01700: 0072 0402 5061 3051 1415 0000 1147 0401 0000 0000 0001 0001 0001 0001 0001 0001 @:DB(1X)LM@@I'DA@@@@@A@A@A@A@A@A : 1)& 0g ! 01720: 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 01740: 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 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