File: GETIN.RL of Disk: V50/Source/Source-Listing-FORTRAN-2
(Binary file converted to dump format)
Block: 0000
00000: 0003 0050 0000 0000 0320 2524 0000 0002 0060 0000 0705 2411 1600 0004 0100 0736 @C@(@@@@CPUT@@@B@0@@GETIN@@DA@G^ ( PT 0 E 0@^
00020: 1116 2400 0000 0002 0120 0000 2204 1411 1605 0002 0140 0000 4327 2211 2417 0002 INT@@@@BAP@@RDLINE@BA @@#WRITO@B N % P C 0` W P
00040: 0160 0000 4322 0516 0417 0002 0200 0000 4316 0500 0000 0002 0220 0000 0000 0000 A0@@#RENDO@BB@@@#NE@@@@BBP@@@@@@ p RN N@
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: 1004 0000 0000 1404 1030 0245 1004 0000 0012 0403 0705 2411 1600 1404 1100 0002 HD@@@@LDHXB%HD@@@JDCGETIN@LDI@@B % E 3@
00420: 1404 1110 0023 1404 1030 0024 1004 0000 0031 1004 0000 0034 1004 0000 0037 1004 LDIH@SLDHX@THD@@@YHD@@@\HD@@@_HD H2
00440: 0000 0042 1004 0000 0045 1004 0000 0053 0401 0040 1404 1030 0015 0403 0040 0000 @@@"HD@@@%HD@@@+DA@ LDHX@MDC@ @@ " % + 2
00460: 0000 1004 0000 0064 1004 0000 0067 1004 0000 0072 1004 0000 0075 1004 0000 0100 @@HD@@@4HD@@@7HD@@@:HD@@@=HD@@A@ 4 7 : = @
00500: 1004 0000 0111 0431 0000 0000 0000 0001 2000 0000 0002 2000 0000 0002 3000 0000 HD@@AIDY@@@@@@@AP@@@@BP@@@@BX@@@ I @ `
00520: 0003 2000 0000 0003 3000 0000 0005 2400 0000 0006 2000 0000 0000 1404 1030 0144 @CP@@@@CX@@@@ET@@@@FP@@@@@LDHXA$ ` @ d
00540: 0403 4040 4040 4040 1004 0000 0243 1004 0000 0243 1404 1030 0057 0402 0006 0210 DC HD@@B#HD@@B#LDHX@/DB@FBH # # 2/
00560: 1404 6400 0057 0401 0200 1404 1100 0002 1404 1110 0023 0415 0101 0000 6200 6212 LD4@@/DAB@LDI@@BLDIH@SDMAA@@2@2J =/ @ H2 A L
00600: 0710 6202 0710 6203 0710 6204 0710 6205 0005 1407 3000 0000 1404 1030 0125 1404 GH2BGH2CGH2DGH2E@ELGX@@@LDHXAULD H H H H ` 2U
00620: 1030 0305 1410 3000 0000 1404 1030 0312 0405 5047 4076 4047 5444 5100 1406 1130 HXCELHX@@@LDHXCJDE(' > ',$)@LFIX E 6 J ' >' $@: X2
00640: 0000 1404 1030 0322 1404 1030 0147 1404 1030 0133 0421 0233 6602 0233 6603 0233 @@LDHXCRLDHXA'LDHXA[DQB[6BB[6CB[ R 2g [ P P
00660: 6604 0233 6605 0223 6213 0213 0027 0037 4225 0010 0006 1232 1404 6400 0352 0401 6DB[6EBS2KBK@W@_"U@H@FJZLD4@C*DA P P @ =j
00700: 0005 1405 1130 0000 1404 1030 0354 1404 1030 0352 0404 6216 0213 0027 0216 1404 @ELEIX@@LDHXC,LDHXC*DD2NBK@WBNLD X 2l j
00720: 6470 0144 0404 0213 1223 6213 2230 1404 1020 0334 0412 0222 6214 0222 6215 0222 48A$DDBKJS2KRXLDHPC\DJBR2LBR2MBR 8dP , C \ @ @
00740: 6213 0213 1223 6213 2230 1404 1060 0273 0402 0213 0027 1404 0470 0144 0401 2231 2KBKJS2KRXLDH0B;DBBK@WLDD8A$DARY @ , C0; 8d
00760: 1404 1000 0376 0406 0223 6214 0213 0027 0202 0006 1404 6400 0440 0402 0005 0037 LDH@C>DFBS2LBK@WBB@FLD4@D DB@E@_ 2~ =
Block: 0002
01000: 0404 4225 0010 0006 1232 1404 6400 0444 0401 0005 1403 1130 0000 1404 1030 0446 DD"U@H@FJZLD4@D$DA@ELCIX@@LDHXD& # $Q X2 &!
01020: 1404 1030 0440 1404 1030 0067 1404 1030 0444 0404 0213 1223 6213 2230 1404 1060 LDHXD LDHX@7LDHXD$DDBKJS2KRXLDH0 2 7 2$ D 02
01040: 0720 0402 0213 0027 1404 0470 0144 0401 2231 1404 1000 0547 0404 0214 1223 6214 GPDBBK@WLDD8A$DARYLDH@E'DDBLJS2L P 81d C g! ,
01060: 2226 1404 1020 0415 0406 0223 6214 0213 0027 0203 0006 1404 6400 0516 0406 0005 RVLDHPDMDFBS2LBK@WBC@FLD4@ENDF@E C ! @ NQ
01100: 0037 4225 0010 0006 1232 1404 6400 0522 0401 0005 1403 1130 0000 1404 1030 0524 @_"U@H@FJZLD4@ERDA@ELCIX@@LDHXET # RQ X2 T!
01120: 1404 1030 0516 1404 1030 0067 1404 1030 0522 0404 0213 1223 6213 2230 1404 1060 LDHXENLDHX@7LDHXERDDBKJS2KRXLDH0 2N 7 2R D 02
01140: 0720 0402 0213 0027 1404 0470 0144 0401 2231 1404 1000 0547 0404 0214 1223 6214 GPDBBK@WLDD8A$DARYLDH@E'DDBLJS2L P 81d C g! ,
01160: 2224 1404 1020 0473 0404 0213 1223 6213 2230 1404 1060 0720 0402 0213 0027 1404 RTLDHPD;DDBKJS2KRXLDH0GPDBBK@WLD C ;! , C0P!
01200: 0470 0144 0401 2231 1404 1000 0547 0406 0223 6214 0213 0027 0204 0006 1404 6400 D8A$DARYLDH@E'DFBS2LBK@WBD@FLD4@ 8d 2g =
01220: 0611 0406 0005 0037 4225 0010 0006 1232 1404 6400 0615 0401 0005 1403 1130 0000 FIDF@E@_"U@H@FJZLD4@FMDA@ELCIX@@ = X
01240: 1404 1030 0617 1404 1030 0611 1404 1030 0067 1404 1030 0615 0404 0213 1223 6213 LDHXFOLDHXFILDHX@7LDHXFMDDBKJS2K 2 ! 27 ! ,
01260: 2230 1404 1060 0720 0402 0213 0027 1404 0470 0144 0401 2231 1404 1000 0720 0404 RXLDH0GPDBBK@WLDD8A$DARYLDH@GPDD C0P! 8d 2P
01300: 0214 1223 6214 2226 1404 1020 0566 0406 0223 6214 0213 0027 0205 0006 1404 6400 BLJS2LRVLDHPE6DFBS2LBK@WBE@FLD4@ D 2v =
01320: 0667 0406 0005 0037 4225 0010 0006 1232 1404 6400 0673 0401 0005 1403 1130 0000 F7DF@E@_"U@H@FJZLD4@F;DA@ELCIX@@ 7 =; X
01340: 1404 1030 0675 1404 1030 0667 1404 1030 0067 1404 1030 0673 0404 0213 1223 6213 LDHXF=LDHXF7LDHX@7LDHXF;DDBKJS2K 2= 7! 27 ;! ,
01360: 2230 1404 1060 0720 0402 0213 0027 1404 0470 0144 0401 2231 1404 1000 0720 0001 RXLDH0GPDBBK@WLDD8A$DARYLDH@GP@A C0P! 8d 2P
Block: 0003
01400: 0404 0214 1223 6214 2224 1404 1020 0644 0402 0604 2233 1404 1000 0726 1404 1030 DDBLJS2LRTLDHPF$DBFDR[LDH@GVLDHX , C $! C V! 2
01420: 0243 0404 0222 6604 0222 6605 1404 1030 0243 1404 1030 0243 0000 0001 0001 0001 B#DDBR6DBR6ELDHXB#LDHXB#@@@A@A@A # 2# #
01440: 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
01460: 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
01500: 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
01520: 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
01540: 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
01560: 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
01600: 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
01620: 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
01640: 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
01660: 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
01700: 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
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