?p 0 0 ` 0 0 ?h X 6 ?x "
<+ + 32 ` ~ZP( )0 6 2K 2 )( ( MAIN BLOCK DATA A B C D E F G H I J K L M N O P Q R S T U V W X Y Z 1 2 3 4 5 6 7 8 9 0 - + / = , $ . ' ( * ) ^ < > ZZZZZ
(2X,'INPUT FILE MUST HAVE A .DAT EXTENSION'/' INPUT FILE NAME (5 CHARS)='$)(A5) (' OUTPUT FILE NAME (5 CHARS)='$) (I7,I2,I3,I3,/(72A1)) (I7) (/' NO STATEMENT NUMBERS USED') (72A1,8X) (1H-,5X,10HEND OF JOB) (45H1MORE THAN 19 CONTINUATION CARDS IN STATEMENT)(27H PROGRAM SKIPS TO NEXT DECK) (40H1PARENTHESES DO NOT MATE IN IF STATEMENT)(1H1,52X,10H(ENTRANCE)) (1H1//40X,43H LIST OF STATEMENT NUMBERS USED IN PROGRAM ,A10//) (/6X,20I6)(6X,20I6) (' OUTPUT SCRATCH FILE ON DSK:FOR20.DAT'/16H BEGIN EXECUTION///) (23H FLOW-CHARTING PROGRAM ,A10/) (1X,72A1) (1H1,45X,'PROGRAM LISTING'//) {@ {p ~` A / /
P P X $+ -< &% < , , < , , <
, <
< , &a < , , < , < ,
< , &d@d g < , %2" g0D + F < ^, ' < , < , < ,
< , @d a D ) & F %Of _Oh o!( H + D & 2@fH*d O $ D $6 o+ T < , , @d o@d D % .3D + ` 5ZD m" m.& F b .2H #+ \*d W+ ` < , #O @ %: a @ / < }, $ @ $ D &"&
$ F e D '$$ $ $. D - < {, # . .3F #+ i & . H
": &*d f < z, %2" g0D + m < ^, ' < 13D #+ 2D g+ z < ^, ' $ D b .ZD m m .3F #+
6b b0b + + 4 4 4 4 v m .2F + v & F b+
m .2F + v & F b+
m .2F + v & F b*d {+ C & + F
" R2D + ( $ D $ < (, < +,
" ' $ F d D b ._D cZD m $ $$ b. m < .,
: m; c+ : b; d+ , < /, " $ $ F c D m m < 2,
: m; c+ , R2D : % $0D + P < 4, < 7,
+ \6 _+ ] , `@d _ &1$ + 6
"2D + @
#2D + ]
#2D + ]
$2D + ]
'2D + ] < x, $; `+ ] &0D + ]
"2D + ]
#2D + ]
#2D + ]
$2D + ]
$2D + ] - `+ ] $ D b" & $ D m6b b0b + G+ D4 G4 K4 N4 R4 U m
"2D + \ $ D b+ \ m
"2D + ] $ D b+ \ m
"2D + ] $ D b+ \ m
"2D + ] $ D b+ \ m
"2H + ]
#2H + ] (
$ H - < w, $; `+ ]: m8& C &0F + i
"2F + i
#2F + i
#2F + i
$2F + i
$2F + i
%2F + i $ D $+ &0D + q
"2D + q
#2D + q
#2D + q
$3D + h &0D + x
"2D + x
#2D + x
#2D + x $ D $+
"2D +
#2D + < v, #:4` @d a D b D h D g & / & $ D m m
!2D %+ 6D a+ $ D a+
!2D &+
b0$ + : b+
!3H (+
!3H )+ : m8& $ D $@d ( 4ZD m m &
" F - < u, #: @ b4 & $ (. b F (*d + $ D $ < t, $ @ +
"2F + 5
#2F + 5
#2F + 5
$2F + 5 & / & $ D m m
"3D (+ 3: m8& # < s, #:4 5@d ( $ D $ 4ZD m m &
" F - < r, #: @ b5 0 m
"3F ++ + 5 & $ (. b F (*d )+ 5 < q, "/ $ D $+
"2D +
#2D +
#2D (+ $ D ' & / & $ D m m
"3H (: '
"3H )> '7H '+ F: m8& = < 8, , < ;, , + v m
"2H + Y
#2H + Y
#2H + Y
$2H + Y.$ D b"& / &. b b D m m
"3D (+ V: m8& P b $
" D - < p, #:4 $ D $ < o, "/+ m $
" D - < n, #:4 + 3 < >, ._D iZD m" ' $ ( $$ . m
5 J ..$ 8& `: m; i+ _!$ D +@d *@d *Od + < l, #* D $ < A, , < D, < G,
" ' $ F q D b ._D qZD m $ $$ b. m < J,
: m; q+ p: b; q+ o, < K, " $ $ F p D m m < N,
: m; p+ y, 7 *+ 7D + ( . & 2F*+ + $0D + 7D + ( . & 3F*+ @d *Od + < ^, f < ^, f7D + < k, "a 73D #+ D $ * D $ < i, #*Od + < ^, fOd * < ^, f < ^, f7D )+
2F + ( D - < g, #* $ D $"$ .D )+ $0D + #: ) F
( D - < e, #* )( F $ D b D _ b. _ D j $0F 1F + )+ /2d $+ / F n( . n ( . %2H++ 1: _+ % b3d '+ 5+ = < d, "a b3d '+ 5 < b, #*+ 8 $ $$ b $. D - < `, # < ^, f: b $/ _ '3$ 2$ b+ % $ 3D $+ k@f * F + $0F 1F + C0F 3$ _+ C+ DOf + < ^, f < ^, f $0D + k < _, $# < P, < S, 7D a+ Z0d z+ S < T, " a $ F p D m m < W, : m; p+ O, + F < Y, " a $ F o D m m < \, : m; o+ V, + F < ], , + F < ^,
x ah 6 - h # 3 1x nh ' - 2h ' - 2h 7 3 1x h # / 0x -x bx -x mx -x $p ( /x -x #x -x 'x gx gh 6 . -p % %p . bx gp \ np ] hX X r X ~ y $ h X z X ~ y ( n ` ] h ] $ $ ` ] X \ * X \ X \
X ] } $ % $ $ $ ' $ $ (. X ] $ X & 0 ` X \ X \
` ] X \ X ] } $ % $ $ $ ' $ $ (. X ] $ X \ 0 ` X \ $ / X \ $ / X \ (1H1) A / aJv@ \ c!$ D ` < !, !d )( .$ D c < !, #*6 *+ n < !
, !d < !, , < ! , !d $ D * c,~ p dp dh ( e eh # c dp dX \ b (1H*,130A1) @ _W \ !a !p @ ! p @ ! < " , 'p $ A D !X@d !_ !&$ D !^4D !x" !^/& $ A !]. H ![6J !_+ !r2H !c3H !a+ !wOj !_ ![2H !a+ !u !c H ![ !X ![!J3!"( .H !X/$ 8& !m !/ !^ D !]" !].& 7 .& (~/& !] F !Z D !@d !Y2D !+ " & F !Y !c !]. !/& F ![" !Y1H + "
7H !_+ " !Y1H + " ( H !Y !a H ![+ "Of !YOh !_ ![2F !a+ " !c F ![ !X ![ H!"& .F !X*d ""$ .d !; !Z+ !~ !X1D A+ " < "#, .$ D !\ !\/& A !\ F !Y D !^ !^ < "&,
: !^; !Y+ ", !a,~ P !b !^ ! !] !b !X \ !_ $! P O?@ \ "+ p @ "( @ ") $ D $ ".ZD "( "(. ") F "*
"3H &+ "<
"3H )+ "<
"3H ++ "< "(
" J O*d "3 < "R, #q"$ . "( D ", < "O, #O @ ", < "P, $ @ "+ $ D "* "*2d $+ "F 3F "++ "J: "*+ "B: $1d + "H < "N, #q $ "+ F "* D ")
"3F &+ "2 "+,~ x ".p P ",p ", "-x "- B #" CO w\ "^p @ "U "U( . "U7D*+ # "`ZD "^ "^ H3F "U+ "q*d "f "U( . "U *3D %+ # "`ZD "S "S "V F "^7HH+ "u*d "l < #, #q "U( . "U *2D %+ "w "^@fH+ "z "^ "U FH+ "z "U( . "U +2D %+ #7 *+ "} "` D "V+ "~ ' D "V "^( "V F8 "^ ) FT( F9+ # "U( . "U +3d %+ # "^( F9 "U( . "U +2$ %+ #
.
#
/ J'.$ 8& #!,~ e@ \ #( p @ #& p B #' p D #' @/ #' D #( $ D #) $ D #) < #4, # #(,~ h #( #) #) 8 ]Vh F #8 D #8 p @ #7"& $ F #7 D #6 D #6 3F #7+ #E: #6; #7+ #>Od #6 #7 #3F + #E #3F @d #6 #8 #8 #6,~ ]Vl \ #K H #M F #L D #L !p @ #J p @ #H@d #K" #H $ D #J $ . #H/ #J D #H. #J 2H #+ #Z: #J8& #U+ #a" #H $ . #J (' H #M < #e, #: ( $ #K. H #K.$ 8& #[ #K #L #L #M #K,~ x #M (46H1STATEMENT NUMBER TOO LARGE IN GO TO STATEMENT) (34H1T00 MANY EXITS IN GO TO STATEMENT) KK|@ \ #p p @ #f6b #f0b + #v+#t4 #v4 #x < #{, , + #y < #~, , #p,~ X \ #g X \ #l SJ,j7 F $ D $ p @ $ p @ $7D &+ $" & $ D $ $( . $ *3D $+ $: $8& $ : &( . & $ F* &( . &@f* & D $7d $+ $ $( . $ % F++ $ $( . $ % F* $ D $+ $ $ $ $,~ g?@ p @ $ 0@ 1@ + $2+ $'+ $2" $ $ F $! D $"" $". $ F $!" $! $ /3f 0+ $/ / F $
0 J / F 0.$ 8( $+: $"; $!+ $),~ @ @ P qSz H $6 F $6 D $5 !p @ $4 , $3"& $ F $4 D $5. $4 3F ++ $d7f+ $F 3& #+ $d 2f "+ $d6b $50b + $K+$H4 $K4 $N4 $S4 $X4 $]4 $a $46f + $d F $3+ $c $47& .& ?(|A $8 $3A $9G D $3+ $c $47& .& ?(yA $7 $3A $8G D $3+ $c $4 & $9A& $3D$ G D $3+ $c $4 & $7A& $3D$ G D $3+ $c $4 D $3: $5; $4+ $@ $5 $6 $6 $3,~ (1X,'INPUT READ ERROR - JOB ABORTED') (72A1,8X) (1H1,5X,'END OF JOB') (//5X,'END OF JOB') (1X,'NO END STATEMENT IN FILE,FLOW CHARTING TERMINATED') {H {h {@ 9 C
P X $1
O&)1 \ %) p @ $n %1 D $o %. D $j %. D $m %+ D $n %+ %0 F.*d %8 < &, < &, %+ZD % % .3H $n+ %@ .2H %0+ %A*d %<+ %8 $ $$ ' $. D %) < &, !d %* .2F $n+ %G %0 F.*d %E .2D %-+ %M %+ .2F $n+ %L %0 F.*d %J %/ZD % % .3F $n+ %S*d %M+ % < & , , < &, ' %/ %0 F$p*d %T % .3& %1+ %Y .3f %-+ %j & F $k0D + %` %* $k . H$p: $k*d %[ %+ $p F.*d %^+ % & / % $ . H$p.$ 8& %b $ . % D % %/& $ % $k . J $p: $k.$ 8& %g+ %^ $ D $k %0D + %`+ %[ $1D + %u6D '+ %q!$ D '+ % < &
, , < &, , + %u+ % < &, , < &, , < &, < &, < & , < & , < &",
< &#, Od $n %) $n Ap ,~ p %) %0X ] %m %Q % @ $ . X % X \ %# X %# X \ % X %! ` \ ` ] ` ] h ] $ $ ` ] ` Z (X^ . > X.~ (3~ + &* ~ + &5Z . \x <x *<x .ez+ &1!" b + " &2 b + Z` .Z . h + gg M?}
& &7 b + &%,
?NO CORE AVAILABLE - CAN NOT PROCEED
!* &Y** ,^ ,~ * x ,> < &Y*< &[ p Z@ &O`|+ &CP w,~ "p h a`~ + &Ih ``~ + &J$ '!&Kd '/"+ &DP ,~ @ @ @ @ @0 @x @@ @` edX91 ,> '}, &>!" QB &O < &O, + &<SMI 1 ,> '}, &> '+ &f_MI 1 ,> '}, &> ' B &O p d"~ l"
B &P!" GB &O+ &{I5R1 ,> '}, &> & ' B &O*\ &z p d"~ l" B &P*\ &z p .& d"~ l" $ B &P*\ &z p .& d"~ l"
B &Q*\ &z.& Sp *\ &zXp B &X@@ &X ' B &Q(F QF &O < &O, + &<EV4i91 ,> '} " &}+ ' S ,i@1 ,> '} " &+ ' _ ,i@1 ,> '} " '+ ' K>2 1 ,> '} " '+ ' K>40 1 ,> '} " '+ ' [<I71 ,> '} " ' & ' @ )@ . " 5B '
& ' ,~ .
.4 SEQIN ^ 'SEQOUT ^ 'RANDOM ^ ' &X %0 THE FOLLOWING ROUTINE IS NOT IMPLEMENTED IN FOROTS: a.3@1 ,> '}O@ 'Z+ '!gR~@1 ,> '}@@ 'Z,> ,> @ 6 w+ '-" '[0B + ')!"A`X#p 5@ '&/#p !" X#p + '-\p + '-a.9'1 ,> '},> ,> O@ 'Z+ '-,> 6 + _ 4` '6"` Q@ ,> < '\, ,^ ,> < '_, ,^ *b '3+ '@,> < '`, ,^ 7@ 'Z+ ';,> < 'c, ,^ + '=,> < 'e, ,^ Z 5" '@,> < 'f, ,^ , 7@ 'Z,
,> < 'h, ,^ , ,> < 'k, ,^ ,> < 'n, ,^ (@qd 1@ ,,
1@ #+ 'O0@ *+ 'A,> < 'o, ,^ + 'A,^ ,^ ,^ ,~ (' Type G to Continue, X to Exit, T To trace.'/2H *,$) (A1) (1H 14A5/)(1H A5,1X,O6) PAUSESTOP .p X 'W p X 'X p 'Y p 'Z p X 'Q X ~ 'V p x CR@1 ,> '},> ,> p p Ep <b 'y $Ep $ E . .& + 'u" .!p Ap $Ep ,^ ,^ ,~ '}Y\ 'Q< X\ '* + 6 ( 6`( S YVBG 9 'G 9 '
G J '}GK/K '}Uexh Uc*4 Z Y Y X X <: '
Y]@ 'Z
Y? '!
\! '3{-^ '-{-X '){-O ';{-N 'O{-N '@{-M '={-M '6VBSo&BTE ) |' wg &<rc &KUlrg1 UlrT3 UlrC< UlrBK Ulr0O UlrB Ulr [ Z Y Y X pX. &IpX. &DpX- &JpX- &C 9g &>pWb &Y
& u^
" r:^` &{l5m &fA* &d:
( '
8@#x '
lJ &a e,( ' S YVB Df ' Da '
_
G &jcl` &z
8v: &} Lc ' t(B &O)4zp&<\6 . AwB P @ VK V4 PbXl VkBI
YPb K YY Yh[|gg MA
J TUR /}F
/|N @\: T(q5v X _<F
zR (TsT ` u6
(J" &7
&*
R W J
> _Bb _2 v ^,6 RW ` K^ 2b 2 RYmt L (bIz&% ) h04 %) - %^
%: JU % c & Ji % w & %G G &")A %L [ &# ?Y %j &5 %@ &I %8 &] %8 3 & G % ! %S [ %4 E %A o %8 & & -5 %u + %< ] %T ? %= %M S %@ 2I %b
_ & 2] %h
s %E qG % dE \ za $/O R '\ & %w04 % %]t $pPH $pPI $o &Ac &SO F $ y( $o &K" $n %oG $n z $mP4 $mP5 $lP5 $l '[F ' $kP6 $k xr $jP6 $jP7 $iP7 $i0K %)P8 $h %p0 % \ ] $h} @ ' Ot . $g dD ] (Tm2 %2(Tm2s %2 5 $K I $N ] $S q $X $] $a - $c G $d [ $= o $@ $@ $F + $d ? $H S $M qG $5 za $/O R y '\ & $5 &Ac & +vG SO F $ e " &2c
&& *P4 $4 zs ' '[F ' , * %p0 % { + +]h ,Ph~s $3 Ot . $* $405 $506 $6 &2d )06 $6 /E H ` # {3 (
" {4 ( #m+ - zn ) ab + P + 3-2 + " PPh~s $;Ph~sxp$: $-
a $/ G $2 [ $$ o $' $2 $( + $) ? $+ qG $" $".O $!P4 $!P5 $ tZ $
$ E> 0 9r}@$# 5 $ I $ ] $ q $ $ G $ [ $ o $
$ $ qG $ za $/O R y '\ & $ &Ac & +vG SO F $ &2c
&& * {0 $P4 $ zs ' '[F ' , * %p0 % { + +]h , Ot .05 $06 $ &2d ) /E H aM $ {3 (
$'
" {4 ( #m+ , zn ) P + 3-2 + " P aM $aMz $ 5 #v I #x JU #g Ji #l G #y [ #s o #t #{ #~ qG #g dE \ #f0K #p \ ] dD ] K{ #q K{}p#q qG #f dE \ za $/O R y '\ & &Ac & +vG SO F $ &2c
&& * zs ' '[F ' , * %p0 % \ ] { +}
@ . +]h , Ot . &2d ) /E H {3 (
" {4 ( #m+ - zn ) P + 3-2 + dD ] " P~Z.{`#fh04 #M 5 #Y I #Z ] #[ G #a [ #S o #T #U #[ + #e qG #KWG #K za $/O R y '\ & #J &Ac & +vG #JSO F $ &2c
&& *P4 #IP5 #I zs ' '[F '0K #K , * %p0 % #H { + +]h , Ot .05 #L06 #L &2d )06 #M /E H #nD {3 (
"
#H {4 ( #m+ , zn ) P + 3-2 + " PWG #O WGy0#N 5 #@ G #E [ #< o #= #> #@ + #E ? #E qG #8 za $/O R y '\ & &Ac & +vG #7SO F $ &2c
&& *P4 #7 zs ' '[F ' , * %p0 % { + +]h , Ot .05 #806 #8 &2d ) /E H #nD {3 ( w #6
"
#6 {4 ( #m+ , zn ) P + 3-2 + " P w #: wz #9h05 #)h05 #)h04 #( G #2 [ #. o #4 qG #( za $/O R y #' '\ & &Ac & +vG SO F $ &2c
&& * zs ' '[F '0K #( , *
#' %p0 % { + +]h , Ot . &2d ) /E H {3 (
#&'
" {4 ( #m+ , zn ) P + 3-2 + " P 79w #* 79wzp#* 5 #! G #% [ # o #! qG # # #P4 #
# # .' # .'~@# "z - # A # U # , "} , "~ G # [ "c o "e "f "f + "l ? "l S "m
_ #
s # qG "^ du* # za $/O R y t '\ & "^ &Ac & s# * +vG SO F $ &2c
&& * {Q ) ((W "V "V {0 "U x P4 "UP5 "T zs 'P5 "T '[F '0K "^ , * %p0 %
"S { + +]h , Ot . yC * $8z ' &2d ) /E H m {3 (
e* #
"S'
" {4 ( #m+ , zn ) P + 3-2 + &2z ' " P
Z@ "a Z@v"ah05 ",h04 ", "F "J G "L [ "1 o "3 "3 "9 + "8 ? "R S "O
_ "P
s "H qG "+ %c & za $/O R y &M "+ '\ & "* "* &Ac & 93O + +vG SO F $ t} ) &2c
&& *P4 ") zs ' '[F ' . ")0K "+ , * %p0 %
"( { + +]h , Ot . &2d ) { ) /E H {3 (
"('
" {4 ( #m+ , zn ) ab + P + 3-2 + " P ": "/ ":wp"/ a "
" a " " " "& U !r
a !w &a !_ tA " zA !x 3 " [ " o !g " !m + !r ? !u S !~
_ !~ M "
s " qG !_ C: !_ dE \w04 !^ !^w05 !]w05 !] !\w06 !\ ![P4 ![P5 !ZP5 !Z=kK !YP6 !Y0K !a !X \ ] ; ! +E ! x ! dD ] ! ! !d !y0!dh04 c
] ~ } Ji b Pa ! G ! [ g o ! ! !
_ {
s z qG b q du* # dE \ za $/O R y '\ & b &Ac & +vG SO F $ &2c
&& * {Q ) #]3 (P4 a zs ' '[F ' 0K c , * %p0 %
a \ ] { + +]h , Ot . &2d ) /E H %W3 ( {3 (
e* # '
" p3@ ` {4 ( #m+ , zn ) P + dD ] 3-2 + " P 4o f 4ow f(R 6h04 - - R
s 97 l ; p P 5 C A V . ?
a j ' ' 4 ?W
u r ; + 7 ?k o p + p J}
tU 6 & W ,c x zg S K ? y t} G K9 &E - ? { # S y u K &Y KM 3 } - = {# s g NIoA } ] u% N &m Ka G b -3 < {7 ) { IoU u9 R h ' Ku [ c 2 : {K * Pa uM U ) i ' # o { 23 9 { r # k Pu & ua \ = x , % f 2G B {s q 7 i Q , / uu Z z 2[ C : K e
,) 1 + m 2o D s 8 s g 3 y ! ,e = ? " 3+ h / ? s ) 5 o t ,y S S % 3? f C @ d ! % s g y 3S e W 8 b 5 0 { { z 8? c k ; / ` I 3 + Q { 8S b M C D ] 5 ? X # | 8g ` K W C q A S ^ 7 8{ q J k B
_ K ( 9 o P A F
s _ + 9# n ' P _ qG r n
u1 )P] q w P] qP^ p !P^ p l " y %P o q
AS o %c & za $/O R y B 'u^# n n %i? & t * t
": $ '\ & m } j o PH m w PI l &Ac & 93O +PI l !PJ k m " t ( s# *PJ k j +vG r
%PL i E h t} ) | h &2c
u && * } j $&h $ #]3 ( {Q ) = g o %oG g x P4 fP5 f zs ' "P5 e '[F ' P6 e r P6 dP7 d cB 'P7 c z' *P8 c , * & %p0 % u
b \ ] ~ { + k b}
@ . p +]h , x Ot . " z% ( yC * s $8z ' &2d ) E> 0 h # { ) /E H m v #nD ~ & h $ %W3 ( {3 ( k ! p
ry % y G
# e* # 9 a s #o? & 2: $ /83 ` i +P U n '
" v {4 ( l ! #m+ - q
VVpY zn ) y ab + P + dD ] 3-2 + 8 i P\ ^
_9(k \J_9(k \ Lc .H Lcu`. ": $H ": ($RM> 0ORM> >@ 0 (RH 6\B: /\>X \>5 '\7N +\2g 'r'I (\)8 *\)7 \ \ )\+ ,\6 .\. ,[rO .O[mN O[m O[m O[l| [l{ &O[l+ O[k O[k O[j] O[jR O[i% r%H ([Z [X %[Qg r% 0[Ms /[M" -[M +[L ,[FG [@v *r#e OD^w'd w]!+{ 0