            - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
             !                                                                                                                                               ! 
 
             !                                                                                                                                               ! 
 
             !                         #"                                                                                                     ! 
 
             !                                                                                                                                               ! 
 
             !               0 0 0 1 4   -   0 1 . 3 3 . 0 2 - #                                                                                          ! 
 
             !                                                                                                                                               ! 
 
             !                                                                                                                                               ! 
 
             !                                                                                                                                               ! 
 
             !                                                                                                                                               ! 
 
             !                                                                                                                                               ! 
 
             !                                                                                                                                               ! 
 
             !                                                                                                                                               ! 
 
             !                                                                                                                                               ! 
 
             !                                                                                                                                               ! 
 
             !                                                                                                                                               ! 
 
             !                                                                                                                                               ! 
 
             !                                               /      +                                                        ! 
 
             !                                                                                                                                               ! 
 
             !                                                 " ""    -     3 "                                                             ! 
 
             !                                                                                                                                               ! 
 
             !                                                         $ "                                                                       ! 
 
             !                                                                                                                                               ! 
 
             !                                                                                                                                               ! 
 
             !                                            #!"      !"                                                  ! 
 
             !                                                                                                                                               ! 
 
             !                                                 0 0 0 1 4   -   0 1 . 3 3 . 0 2                                                               ! 
 
             !                                                                                                                                               ! 
 
             !                                                         !"  6 0                                                                     ! 
 
             !                                                                                                                                               ! 
 
             !                                                                                                                                               ! 
 
             !                                                                                                                                               ! 
 
             !                                                                                                                                               ! 
 
             !                                                                                                                                               ! 
 
             !                                                                                                                                               ! 
 
     - - - - !                                                                                                                                               ! 
 
     !   !   !                                                                                                                                               ! 
 
     !   !   !                                                                                                                                               ! 
 
     !   !   !                                                                                                                                               ! 
 
     !   !   !                                                                                                                                               ! 
 
     !   !   !                                                                                                                                               ! 
 
     !   !   !                                                                                                                                               ! 
 
     !   !   !                                                                                                                                               ! 
 
     ! - + - !                                                                                                                                               ! 
 
     !   !   !                                                                                                                                               ! 
 
     !   !   !                                                                                                                                               ! 
 
     !   !   !                                                                                                                                               ! 
 
     !   !   !                                                                                                                                               ! 
 
     !   !   !                                                                                                                                               ! 
 
     ! - + - !                                                                                                                                               ! 
 
     !   !   !                                                                                                                                               ! 
 
     !   !   !                                                                                                                                               ! 
 
     !   !   !                                                                                                                                               ! 
 
     !   !   !                                                                                                                                               ! 
 
     !   !   !                                                                                                                                               ! 
 
     ! - + - !                                                                                                                                               ! 
 
     !   !   !                                                                                                                                               ! 
 
     !   !   !                                                                                                                                               ! 
 
     !   !   !                                                                                                                                               ! 
 
     !   !   !                                                                 1 9 9 0                                                                       ! 
 
     !   !   !                                                                                                                                               ! 
 
     !   !   !                                                                                                                                               ! 
 
     !   !   !            '.    .                                                         "                             ! 
 
     ! - + - !           0 0 0 1 4 - 0 1 . 0 0 . 0 1                                                                                                         ! 
 
     !   !   !                                                                                                                                               ! 
 
     !   !   !                                                                                                                                               ! 
 
     !   !   !                                                                                                                                               ! 
 
     !   !   !                                                                                                                                               ! 
 
     !   !   !                                                                                                                                               ! 
 
     - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 
 
                                                             -   2   - 
 
 
 
                                                     0 0 0 1 4 - 0 1 . 3 3 . 0 2 
 
 
 
 
 
 
 
                                                       "&/
 
 
 
 
 
 
 
                 /  '!",  ! "  $ &.,   %#.      - 
 
 !"#  /   "+  !  /+  +!      # /    $ " 0 - 86.     - 
 
 !+   &# +,   %+  /      #!      /" ,     .'
 
   !" .       !+      "       &#           , 
 
 !,  ",   "    #!    +.            - 
 
 +      "+      #'/      -$$"!"         /  
 
 !!"   !"/  +%  $ " . 
 
 
 
                      1 .         !!      "'+%        
 
 !!+  %  !,/. 
 
                      2 .          " ,- !" &/
 
 ',   .!"  #.)/   "#   "   !  $ " - !!". 
 
 
 
 
 
 
 
 
 
 
 
                  ':         "    !    /+    $ " - 86  #
 
                                         !  ",    !!"#,     " /  .'"  
 
                                         !/    #  AKA;81. >19. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                               -   3   - 
 
 
 
                                                     0 0 0 1 4 - 0 1 . 3 3 . 0 2 
 
 
 
 
 
 
 
                                                         ! 
 
 
 
 
 
                 "&/                                                                              2 
 
 
 
 1 .   '    #!/   /                                            6 
 
 
 
 2 .   % " !"    +                                                          6 
 
 
 
 2 . 1 .   ,   !+  /"                                             6 
 
 
 
 3 .    )                                                                      7 
 
 
 
 3 . 1 .   .'    !"   /" 
 
           D>@B@0=.                                                                                       7 
 
 
 
 4 .   %+    +%+  +                                                      1 0 
 
 
 
 4 . 1 .   !&$&  $                                                                1 0 
 
 4 . 2 .   $ "  !"                                                                      1 0 
 
 4 . 2 . 1 .   !"  !,#+%  .'                                          1 2 
 
 4 . 2 . 2 .   !%+  !"                                                                1 3 
 
 4 . 2 . 3 .   !"   "+  /"                                                        1 3 
 
 4 . 2 . 4 .   !    #                                                1 3 
 
 4 . 2 . 5 .   !""!"  " !/&                                                      1 4 
 
 
 
 5 .   ,   +    "                          1 4 
 
 
 
 5 . 1 .   !,  /"  /"                                   1 4 
 
 5 . 2 .    &#                                                               1 5 
 
 5 . 3 .   !,  "                                                      1 5 
 
 5 . 4 .   !,   /                                                          1 6 
 
 5 . 4 . 1 .    '  # /                                                          1 6 
 
 5 . 4 . 2 .   !,    F><<>=                                          1 7 
 
 5 . 4 . 3 .   !"      !" #"# +                                  1 7 
 
 5 . 4 . 4 .                                                                                         1 8 
 
 5 . 5 .   +    +                                                            1 9 
 
 5 . 6 .   "    +                                                                  1 9 
 
 
 
 6 .   #'  -$$"!"     /                      2 0 
 
 
 
 6 . 1 .   $" +,   /.)    -$$"!",
 
              /                                                                    2 0 
 
 6 . 2 .   +(  -$$"!"  " !/&                                2 1 
 
 6 . 2 . 1 .   !'  #'(  !,/
 
               ""   ( /",,    /)                                         2 1 
 
 6 . 2 . 2 .    '   #"      +
 
               ( /",,    /)                                                                   2 1 
 
 6 . 2 . 3 .    " +- $#&  (  /)                                               2 2 
 
 6 . 2 . 4 .   &/  /"  "&+  " 
 
               !!  ( /",)                                                                 2 2 
 
 6 . 2 . 5 .   !,   +%  !!
 
 
 
 
 
 
 
 
 
 
 
                                                             -   4   - 
 
 
 
                                                     0 0 0 1 4 - 0 1 . 3 3 . 0 2 
 
 
 
 
 
 
 
 
 
                   (  /)                                                                               2 3 
 
 6 . 2 . 6 .       $ "+  - +  ( /",,    /)                     2 4 
 
 6 . 2 . 7 .       +   "  +%  ( /",,    /)                           2 4 
 
 6 . 2 . 8 .        &  ! /  ( /",)                                       2 4 
 
 6 . 2 . 9 .        &  #/        
 
                      "  (  /)                                                           2 5 
 
 6 . 2 . 1 0 .     !,  .'  /" 
 
                   ( /",,    /)                                                               2 5 
 
 6 . 3 .           "%     /                                            2 7 
 
 
 
 7 .               !" #"#     +                                                      3 0 
 
 
 
 7 . 1 .             +  !&                                                        3 0 
 
 7 . 1 . 1 .       !,  ?A5B                                                        3 0 
 
 7 . 1 . 2 .       !,  ?A5B    %  F><<>=                        3 1 
 
 7 . 1 . 3 .       !,    +%  !&  
 
                   "  >BA                                                                3 1 
 
 7 . 1 . 4 .        /  " ?A5FB"     +/+%
 
                     %                                                                        3 2 
 
 
 
 8 .               !"     +                                                      3 3 
 
 
 
 8 . 1 .                                                                     3 3 
 
 8 . 1 . 1 .        '  # /    +%.                                   3 3 
 
 8 . 1 . 2 .       !,   !"                                               3 5 
 
 8 . 2 .            &/  /"     /  +/                3 5 
 
 
 
 9 .                     +                                                        3 6 
 
 
 
 9 . 1 .           " !!   (                                                        3 6 
 
 
 
 1 0 .             !!"  /+  $ " - 86    !  1 1                 3 7 
 
 
 
 1 0 . 1 .          '/   "   >?5=/ F;>A5                          3 8 
 
 1 0 . 1 . 1 .      '/  .'+%  !                                          3 8 
 
 1 0 . 2 .         !%+  !"                                                               3 9 
 
 1 0 . 3 .            +%                                                            4 0 
 
 1 0 . 4 .         &&/  '   +%  
 
                   F><<>=                                                                                4 0 
 
 1 0 . 5 .         !"    /                                                        4 0 
 
 1 0 . 6 .          " +  AB>?    ?0CA5                                                4 0 
 
 1 0 . 7 .         !""!"  '!%     (
 
                   #!" !"    $                                                    4 1 
 
 1 0 . 8 .         !,/    !                                          4 2 
 
 1 0 . 9 .         / +  !   /+  !"#                                    4 2 
 
 1 0 . 9 . 1 .      "   45D8=5  D8;5                                                    4 2 
 
 1 0 . 9 . 2 .     !  $  !   /+  !"#                          4 3 
 
 1 0 . 1 0 .       $ "+  / +                                                    4 3 
 
 1 0 . 1 0 . 1 .   $ "+  / +                                                    4 3 
 
 1 0 . 1 0 . 2 .   $ "+  / +                                                4 4 
 
 1 0 . 1 0 . 3 .   / +  !   /+  !"#                                    4 5 
 
 1 0 . 1 1 .       !!"  ! /   +%
 
                    '+%  "                                                              4 5 
 
 
 
 1 1 .              !"  +%    $ " - 86                          4 6 
 
 
 
 1 1 . 1 .         $ "  &+%  '!                                                        4 6 
 
 1 1 . 2 .         $ "+  '!  !  .)  /"                          4 7 
 
 1 1 . 2 . 1 .     $ "  )!"  '!  ( #!+
 
 
 
 
 
                                                           -   5   - 
 
 
 
                                               0 0 0 1 4   -   0 1 . 3 3 . 0 2 
 
 
 
 
 
                     $ "  !  .)  "')                                               4 7 
 
 1 1 . 2 . 2 .       $ "    '!      !            "'!",.
 
                     ( 4 - !+  $ "  !  .)  "')                         4 7 
 
 1 1 . 2 . 3 .       $ "  !  '!                                                4 8 
 
 1 1 . 3 .       "+  $ "  ( L O G I C A L * 1 )                                                 4 8 
 
 1 1 . 4 .       "!"+  $ "                                                                      4 9 
 
 1 1 . 5 .       '!  $ "                                                                    4 9 
 
 1 1 . 6 .       $ "  R A D I X - 5 0                                                                         5 0 
 
 
 
    1 .       "'+    +                                    5 2 
 
 
 
    2 .       " ,- !" &/  '                  6 0 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                           -   6   - 
 
 
 
                                               0 0 0 1 4   -   0 1 . 3 3 . 0 2 
 
 
 
 
 
 
 
                               1 .   '    #!/   /
 
 
 
 
 
 
 
           /  +/    +,     !        $ " - I V , 
 
   #   "   !  1 1   %  +",    !- 
 
 #.)  !"/: 
 
 
 
             1 )   /&/; 
 
             2 )   ; 
 
             3 )   #!. 
 
 
 
           /&/  '"!/  !  +  /"     $ " - I V 
 
   !" ,   !+.)  %+        +%+    $+. 
 
 /  !"     "    ! ",    $" +    ( .') , 
 
 #"'/.)  !"/,   " #+  "  /" .   /"   
 
  &!!   "+  !"  ' "+   )+  $+,   "- 
 
  +  +  +",  !+     +. 
 
 
 
               '"!/    !    #!    )    L I N K 
 
   !" ,   '    !"     /"- 
 
  .   )  ' /"  !    +  -"+    - 
 
 %+    +      "    $ " - I V           #"
 
 $    $ "   #. 
 
 
 
           " "  (  '"!/      R U N . 
 
 
 
 
 
 
 
                               2 .   % " !"    +
 
 
 
 
 
 
 
           2 . 1 .   ,   !+  /" 
 
 
 
 
 
           /"   $ " - I V     #"  !,#.    #
 
 $ "     ' "#.    '  $ . 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                           -   7   - 
 
 
 
                                               0 0 0 1 4   -   0 1 . 3 3 . 0 2 
 
 
 
 
 
                                     3 .    )      
 
 
 
 
 
 
 
           /"   $ " - I V      "    #.    !" #    
 
 $ : 
 
 
 
                       O U T P U T = I N P U T / O P T I O N 
 
 
 
 
 
 
 
 O U T P U T 
 
               -   !&$&/  +%+%  $; 
 
 
 
 I N P U T 
 
               -   !&$&/  %+%  $; 
 
 
 
 / O P T I O N 
 
               -           .',     !,#+%    /    + 
 
                    +%  $#&  /" . 
 
 
 
           .'  #"  !",    .  !&$&    $    
 
   !" .   !,     #!". 
 
 
 
 
 
           3 . 1 .   .'        !"     /" 
 
                     F O R T R A N 
 
 
 
 
 
           +    !"     /"     $ " - I V     !,#."
 
 !+    .'  !  !, '+    !/"'+     #- 
 
 "    !&$&/%  %+%      +%+%    $.     .
 
 .'            " / S : N "       ++"      "  "&.      " N "       
 
 !, '  '/,   !  " N "   ! "  &$ +  0 - 7 ;     "
 
   " / S : N . "   ++"  "  "&.  " N "     !/"'  - 
 
 '/.       F O R T R A N     "     #!"    !,",
 
 !#.)  .'  (   !%    #+    !""!"#.)    .'
 
   !"   /" ) : 
 
 
 
   / A L L O C A T E : N 
 
               -   !,#"!/  !  .'  / L I S T         / O B J E C T     /
 
                   #/        !"    ( N     )         !, 
 
                   "  /  !/  +%  $; 
 
 
 
   / D I A G N O S E   (   / B   ) 
 
               -     ("   !( #.   !'"#  #"     - 
 
                   !"  /" ; 
 
 
 
   / E X T E N D   (   / E   ) 
 
               -   /"  !,",  &    7 3 - 8 0         !%+%
 
                   !" %    +  /  "!"   " ; 
 
 
 
   / N E A D E R   (   / O   ) 
 
               -   .'"        !"             " O P T I O N - I N - E F F E C T " 
 
                   ( !,#+  !"  /" ) ; 
 
 
 
 
 
 
 
 
 
 
 
                                                           -   8   - 
 
 
 
                                               0 0 0 1 4   -   0 1 . 3 3 . 0 2 
 
 
 
   / I 4   (   / T   ) 
 
               -   +/"  /   +%    "    I N T E G E R         !
 
                   /"  ( +'  /  "%   +%  ""!/  
 
                   !) ; 
 
 
 
   / L I N E N U M B E R S   (   #'.) 
 
               -   .'"    #"           "     ( I S N )     
 
                     #  /  &  !"  (; 
 
 
 
   / L I S T [ : F S P E C ] 
 
               -   !"  !";   /  $   ,;     !    /
 
                   $    ,     '!"  !"    !,#"!/
 
                   " L P : F I L S P C . L S T " ,     F I L S P C   -   /  $,     ! - 
 
                   )  " ! ##.    #; 
 
 
 
   / N O L I N E N U M B E R S   (   / S   ) 
 
               -   /"  .'  " !!   #" %   
 
                    "   ( I S N )     " ! ##.    #; 
 
 
 
   / N O O B J E C T 
 
               -    )"   &.  ' "+%  $; 
 
 
 
   / N O O P T I M I Z E : X X X   (   / M : X X X   ) 
 
               -   /"    #+    "    "&      +; 
 
                   !,#."!/  !#.)   #"+  .': 
 
 
 
                             S P D   -    )"  "&.    ! !"  +- 
 
                                         /    +;   "&/  
 
                                          "  /      ,(
 
                                           ; 
 
                             C S E   -    )"  #!"   )  + - 
 
                                         /; 
 
                             S T R   -   /"  "&.  !"/; 
 
                             B N D   -    )"  ,  !,
 
                                          !" ; 
 
 
 
   / N O S W A P   (   / U   ) 
 
               -    #"  !  U S R      /  +/    - 
 
                   +; 
 
 
 
   / N O V E C T O R S   (   / V   ) 
 
               -   /"  " &.   +%  !!; 
 
 
 
   / O B J E C T [ : F S P E C ] 
 
               -   !"  ' "+  $    (     #'.) ;     !    
 
                   #    /    $,       /"       !"      $
 
                   D K : F I L S P C . O B J ,     F I L S P C   -   /  $,   ! )
 
                   " ! ##.    #; 
 
 
 
   / O N D E B U G   (   / D   ) 
 
               -   " !/&/  !"   !  !  " D "            
 
                   ( /  &  ") .     -"  .'  !""!"#.- 
 
                   )  !"   ! ."!/    " ; 
 
 
 
   / O P T I M I Z E : X X X   (   / P : X X X   ) 
 
               -   + "    "&    '.   #": 
 
 
 
                             S P D   -   "&/  ! !"  +/   - 
 
                                          +    !'"  #'/    
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                           -   9   - 
 
 
 
                                               0 0 0 1 4   -   0 1 . 3 3 . 0 2 
 
 
 
 
 
                                           +; 
 
                             C S E   -     ("  #!"   )  + - 
 
                                         /; 
 
                             S T R   -     ("  "&.  !"/; 
 
                             B N D   -     ("  ,  !,
 
                                          !" ; 
 
 
 
   / R E C O R D : N   (   / R : N   ) 
 
               -    /"  !,+      !    (     "%) 
 
                      /  $ "  / +  ( 4 < N < 4 0 9 5 ) ; 
 
 
 
   / S H O W [ : N ]   (   / L : N   ) 
 
               -   #!""!/     .'  / L S T      /"  ! - 
 
                     !";    #"    N      #"!/    !#.)
 
                   !!: 
 
 
 
                             0     N U L L   -    !'"  !"; 
 
                             1     S R C     -    !'"  !%    +
 
                                                         !"; 
 
                             2          -    !'"   "+  /"  
 
                                                       !"; 
 
                             4     C O D     -    !'"    #  
 
                                                         !"; 
 
 
 
                     ./  &/  +(   !!
 
                      "   "  +",       !#
 
                     '!+%  '   #", 
 
                               : 
 
 
 
                                           7     A L L 
 
 
 
                     +"  !%+  !",    "#  /"  
 
                     !"    #  ;   !  -""  .'
 
                     #),   "    #'.  #!""!/
 
                     / S H O W : 3     +"!/  !%+  !"     "
 
                     /"; 
 
 
 
   / S T A T I S T I C S   (   /   ) 
 
               -   '""  !""!"#  " !/&; 
 
 
 
   / S W A P   (   #'.) 
 
               -     ("  !  U S R      /  +/    - 
 
                   +; 
 
 
 
   / U N I T S : N   (   / N : N   ) 
 
               -    /"  '!"  '!%       (  
 
                   +%) ,   " +  #"  !,",!/        
 
                    ; 
 
 
 
   / V E C T O R S   (   #'.) 
 
               -     ("  " &.   +%  !!; 
 
 
 
   / W A R N I N G S   (   / W   ) 
 
               -     ("  +'#   # .)  !"    - 
 
                   /" ;   !,#"!/    !'"  !  .'  / L S T . 
 
 
 
           !#.)  .'  #"  !,",!/,   ",  !  - 
 
 /"   ++"!/  !  ),.  +  "   R U N : 
 
 
 
 
 
 
 
                                                           -   1 0   - 
 
 
 
                                               0 0 0 1 4   -   0 1 . 3 3 . 0 2 
 
 
 
 
 
 
 
 / O
 
               -    )"  '",      +%  #    (  - 
 
                   " +  P R O G R A M ,   F U N C T I O N ,   S U B R O U T I N E       B L O C K     D A T A ) 
 
                      " !/&        #/
 
 
 
 / Z 
 
               -   #!""  /  !&    '!"            '!"+%
 
                   +%  " #"  " R O "   ( " ",  /  '"/" ) . 
 
 
 
 
 
 
 
 
 
                               4 .   %+    +%+  +
 
 
 
 
 
 
 
           4 . 1 .   !&$&  $
 
 
 
 
 
           /  !&$&/  $  "  $ "  C S I . 
 
 
 
             #'.  /  %  $  /"     !,#"
 
 "  . F O R . 
 
 
 
             #'.  /  +%+%  $  !,#."!/    !#.- 
 
 )   !( /: 
 
 
 
               -   /  ' "  $  . O B J ; 
 
               -   /  $  !"  . L S T . 
 
 
 
 
 
 
 
           4 . 2 .   $ "  !"
 
 
 
 
 
           !",   #'+  !    ),.    /" ,     ! "
 
 /",  !&.   !  ),.  .'    # /    !"    
 
 +",  .#.  &.  -"%  !&. 
 
 
 
           /  .'/      !"    !!    !"#.)%    .', 
 
   #            !""!"    /"     %
 
 !,",  !""!"#.)  .'.     !%/          
 
  "  /"  %/"    !"    #'.. 
 
 
 
           !#.)      !"  #"  !"  " !/&. 
 
 
 
   F O R T R A N   I V     V 0 2 . 1 - 1 0             F R I   2 2 - O C T - 7 9   0 1 : 1 3 : 0 0 
 
   D K : A S H , L P : A S H = D K : A S H / L : 7 / O / A 
 
   O P T I O N S   I N   E F F E C T : 
 
 
 
                                       S O U R S E 
 
                                       M A P 
 
                                       C O D E 
 
                                   N O L E A P Y E A R 
 
 
 
 
 
 
 
 
 
                                                           -   1 1   - 
 
 
 
                                               0 0 0 1 4   -   0 1 . 3 3 . 0 2 
 
 
 
 
 
 
 
                                   N O R E A D O N L Y 
 
                                       L R E C L = 0 1 3 6 
 
                                       S T A T 
 
                                       I S N S 
 
                                   N O C O L 8 0 
 
                                       U S R S W A P 
 
                                   N O D I A G N O S E 
 
                                   N O I N T E G E R * 4 
 
                                       N L C H N = 0 6 
 
                                   N O D E B U G 
 
                                       V E C T O R 
 
                                   N O W A R N 
 
                                       C O D E : T H R 
 
                                       O P T I M : S I Z : C S E : S T R : B N D : P E P 
 
                                       L O G 
 
 
 
 F O R T R A N   I V       V 0 2 . 1 - 1 0           F R I   2 2 - O C T - 7 9   0 1 : 1 3 : 0 0 
 
 
 
 0 0 0 1                   I N T E G E R   I N T 
 
 0 0 0 2                   R E A L   R E A L 
 
 0 0 0 3                   C O M P L E X   I M A G 
 
 0 0 0 4                   D O U B L E   P R E C I S I O N   D B L E 
 
 0 0 0 5                   D A T A   I N T / 1 0 0 / 
 
 0 0 0 6                   R E A L   =   I N T / 2   +   5 . 
 
 0 0 0 7                   D B L E   =   R E A L / 2 .   + 3 . 1 4 1 5 9 2 6 5 3 5 D 0 
 
 0 0 0 8                   I M A G   = C M P L X (   R E A L ,   3 . 2 1   ) 
 
 0 0 0 9                   W R I T E   ( 5 , 1 0 )   I M A G 
 
 0 0 1 0     1 0           F O R M A T ( 1 X , 2 F 8 . 5 ) 
 
 0 0 1 1                   S T O P 
 
 0 0 1 2                   E N D 
 
 
 
 
 
 F O R T R A N   I V           S T O R A G E   M A P   F O R   P R O G R A M   U N I T   . M A I N . 
 
 
 
 L O C A L   V A R I A B L E S ,   . R S E C T    D A T A ,   S I Z E   =   0 0 0 0 3 0   (       1 2 .   W O R D S ) 
 
 
 
 N A M E   T Y P E     O F F S E T     N A M E   T Y P E     O F F S E T     N A M E   T Y P E     O F F S E T 
 
 D B L E   R * 8       0 0 0 0 2 0     I M A G   C * 8       0 0 0 0 1 0     I N T     I * 2       0 0 0 0 0 2 
 
 R E A L   R * 4       0 0 0 0 0 4 
 
 
 
 S U B R O U T I N E S ,   F U N C T I O N S ,   S T A T E M E N T   A N D   P R O C E S S O R - D E F I N E D 
 
 F U N C T I O N S : 
 
 
 
 N A M E   T Y P E     N A M E   T Y P E     N A M E   T Y P E     N A M E   T Y P E     N A M E   T Y P E 
 
 C M P L X     C * 8 
 
 
 
 F O R T R A N   I V           G E N E R A T E D   C O D E   F O R   P R O G R A M   U N I T   . M A I N . 
 
                                                                                   ;   S T A T E M E N T   # 0 0 0 6 
 
 0 0 0 0 0 6                                 M O V           # 6 , @  A O T S 
 
 0 0 0 0 1 4                                 M O V           #  E A E , R 1 
 
 0 0 0 0 2 0                                 M O V           I N T , @ R 1 
 
 0 0 0 0 3 2                                 M O V           @ R 1 , - ( S P ) 
 
 0 0 0 0 3 4                                 J S R           P C ,  C V T I F 
 
 0 0 0 0 4 0                                 C L R           - ( S P ) 
 
 0 0 0 0 4 2                                 M O V           # 4 0 6 4 0 , - ( S P ) 
 
 0 0 0 0 4 6                                 J S R           P C ,  A D D F 
 
 0 0 0 0 5 2                                 M O V           ( S P ) + , R E A L 
 
 0 0 0 0 5 6                                 M O V           ( S P ) + , R E A L + 2 
 
                                                                                   ;   S T A T E M E N T   # 0 0 0 7 
 
 
 
 
 
 
 
 
 
                                                           -   1 2   - 
 
 
 
                                               0 0 0 1 4   -   0 1 . 3 3 . 0 2 
 
 
 
 
 
 
 
 0 0 0 0 6 2                                 I N C           @  A O T S 
 
 0 0 0 0 6 6                                 M O V           R E A L + 2 , - ( S P ) 
 
 0 0 0 0 7 2                                 M O V           R E A L , - ( S P ) 
 
 0 0 0 0 7 6                                 C L R           - ( S P ) 
 
 0 0 0 1 0 0                                 M O V           # 4 0 4 0 0 , - ( S P ) 
 
 0 0 0 1 0 4                                 J S R           P C ,  D I V F 
 
 0 0 0 1 1 0                                 J S R           P C ,  C V T F D 
 
 0 0 0 1 1 4                                 M O V           # - 4 2 7 4 1 , - ( S P ) 
 
 0 0 0 1 2 0                                 M O V           # - 5 6 7 7 0 , - ( S P ) 
 
 0 0 0 1 2 4                                 M O V           # 7 7 3 2 , - ( S P ) 
 
 0 0 0 1 3 0                                 M O V           # 4 0 5 1 1 , - ( S P ) 
 
 0 0 0 1 3 4                                 J S R           P C ,  A D D D 
 
 0 0 0 1 4 0                                 M O V           # D B L E , R 0 
 
 0 0 0 1 4 4                                 M O V           ( S P ) + , ( R 0 ) + 
 
 0 0 0 1 4 6                                 M O V           ( S P ) + , ( R 0 ) + 
 
 0 0 0 1 5 0                                 M O V           ( S P ) + , ( R 0 ) + 
 
 0 0 0 1 5 2                                 M O V           ( S P ) + , @ R 0 
 
                                                                                   ;   S T A T E M E N T   # 0 0 0 8 
 
 0 0 0 1 5 4                                 I N C           @  A O T S 
 
 0 0 0 1 6 0                                 M O V           # C  O L , R 5 
 
 0 0 0 1 6 4                                 J S R           P C , C M P L X 
 
 0 0 0 1 7 0                                 M O V           # I M A G , R 4 
 
 0 0 0 1 7 4                                 M O V           R 0 , ( R 4 ) + 
 
 0 0 0 1 7 6                                 M O V           R 1 , ( R 4 ) + 
 
 0 0 0 2 0 0                                 M O V           R 2 , ( R 4 ) + 
 
 0 0 0 2 0 2                                 M O V           R 3 , @ R 4 
 
                                                                                   ;   S T A T E M E N T   # 0 0 0 9 
 
 0 0 0 2 0 4                                 I N C           @  A O T S 
 
 0 0 0 2 1 0                                 M O V           # C  A B , - ( S P ) 
 
 0 0 0 2 1 4                                 M O V           # . 1 0 , - ( S P ) 
 
 0 0 0 2 2 0                                 J S R           P C ,  I F W 
 
 0 0 0 2 2 4                                 M O V           # I M A G , - ( S P ) 
 
 0 0 0 2 3 0                                 J S R           P C ,  T V C 
 
 0 0 0 2 3 4                                 J S R           P C ,  E O L 
 
                                                                                   ;   S T A T E M E N T   # 0 0 1 1 
 
 0 0 0 2 4 0                                 M O V           # 1 3 , @  A O T S 
 
 0 0 0 2 4 6                                 J S R           P C ,  S T R 
 
 
 
 C O M P T L A T I O N   S T A T I S T I C S : 
 
 S Y M B O L   T A B L E   S I Z E :   0 0 1 0 5   W O R D S 
 
 I N T E R N A L   F O R M   S I Z E :   0 0 1 5 7   W O R D S 
 
 F R E E   D Y N A M I C   M E M O R Y :   1 8 9 1 8   W O R D S 
 
 C O M P I L A T I O N   T I M E :   0 0 : 0 1 : 0 7 
 
 
 
 
 
 
 
           4 . 2 . 1 .   !"  !,#+%  .'
 
 
 
 
 
             -"  '!"  !"   !'"+"!/    !!    !,- 
 
 #+%  .'.   "  .',   " +  '."!/  !  " N O " ,   //."- 
 
 !/  !,#+.   !,  '!    '!%     
 
 +%,   " +  #"  +",     " +"+  ( N L C H N ) ,     
 
 !,/    !  ( L R E C L )   ."!/        '/    
 
 #'.      '/,   #+  !""!"  .'- 
 
     " / U N I T S : N "         " / R E C O R D : N " .     /    &      "$&
 
 +"!/  "  ,  ,   ",    /  /&      /
 
   !" . 
 
 
 
 
 
 
 
 
 
                                                           -   1 3   - 
 
 
 
                                               0 0 0 1 4   -   0 1 . 3 3 . 0 2 
 
 
 
 
 
 
 
           4 . 2 . 2 .   !%+  !"
 
 
 
 
 
           -"  '!",   !'"+"  !%#.      #    ",     
 
   //"!/    !%  $.   /"   /"  &+
 
 !",+       ( #"           "     - 
 
 I S N )   !  "  !" . 
 
 
 
           !#"  "",,   '"         !    #'."!/
 
   1 .     ,    " ,   !#.)    '!  I F ,   "
 
 &+  !",+       2   ,(,   '  !     " 
 
 I F ,   ". .   /"    !!" "  -""     "         , 
 
 !   " ,   +/.)!/    #!.      //"!/    " G O 
 
 T O " . 
 
 
 
           !"   " /    !"    /     "     
 
 # #."!/. 
 
 
 
 
 
 
 
           4 . 2 . 3 .   !"   "+  /"
 
 
 
 
 
           -"  !&/   !'"+"  !  !'!    ,     
 
 " +  !!+."!/    +  -"+.   ,+     - 
 
 +    !!+   )."!/              !&    "  D A T A " . 
 
  !   " '!%   +%,               $#&
 
  !."!/          !&    "  D A T A "         '."!/
 
 '  " @ "      !)      !&. 
 
 
 
               !"    %/"    !'!    /,     "      +%, 
 
 !,,     /  !&/    !).     !#'  - 
 
   C O M M O N       !!  !"    .'"    %          
 
 "%  ( !, '+)     !%    ( !/"'+) ,         "    %
 
   !". 
 
 
 
 
 
            '.   +    C O M M O N   !+"!/    
 
 C O M M O N   B L O C K   " /   / "      "  /",       )"!/         "#
 
  ! /  /"  L I N K     P S E C T   !    " .     . " . 
 
 
 
 
 
 
 
           4 . 2 . 4 .   !"    #  
 
 
 
 
 
           -"  !&/  ! "  !,   !"  ' "- 
 
   ,   !    /" ,     .'"    "!- 
 
 ",+   !        !&  "  C O D E " ,     !'!
 
 /    +    !!"  O T S       +   #"+  #,- 
 
         -"+        !!     /     /
 
 .   !  !,#"!/  .'  /"   / D I A G N O S E ,   "   - 
 
 /    !"    #   /        #+"
 
 "   !" +,   " +  !,#."!/    !#.)%     &/%. 
 
   #+           "     /     !""+    !!+
 
 '"!/  "    #"    /+   ,     '"        
 
 
 
 
 
 
 
 
 
 
 
                                                           -   1 4   - 
 
 
 
                                               0 0 0 1 4   -   0 1 . 3 3 . 0 2 
 
 
 
 
 
 
 
  !'"  !%    +. 
 
 
 
 
 
 
 
           4 . 2 . 5 .   !""!"  " !/&
 
 
 
 
 
             -"  '!"  !"   !"  "'"    !,- 
 
   /"          &!!  " !/&. 
 
 
 
 
 
 
 
                   5 .   ,   +    "    
 
 
 
 
 
 
 
           5 . 1 .   !,  /"  /" 
 
 
 
 
 
              /  " !/&    /"  +  %",!/: 
 
 
 
               -    "  "   ( R M O N ) ; 
 
 
 
               -      !"  /" ; 
 
 
 
               -      /  !&/; 
 
 
 
               -   !"; 
 
 
 
               -   " #+    +  #!" !"  ( "'+  "    
 
                   !!"  #!" !",   .'    R M O N ) . 
 
 
 
           /"   $ " - I V   '!   #"    " #+
 
   +.   !"(/!/    /",     !"/"!/    /    "&+
 
 !    #"    !"/    +. 
 
 
 
           !    /" #        %""    /",         " 
 
 +"!/  !)    (.     -"  !#'    #,    
 
 +",               +%    &,     /
 
   " +%    " ! ",!/   ,. 
 
 
 
           !,#    +  #!" !"    "&  !  +
 
 +",   "+     /  " !/&,   &!     - 
 
  ",  '!   '+%  $'!%  #!" !",   #+%    
 
   !" ,     ! "",    '!         +%    /
 
 #'/  '   /",      !"/    /     &
 
 ' "  . 
 
 
 
 
 
 
 
                                                             -   1 5   - 
 
 
 
                                                       0 0 0 1 4 - 0 1 . 3 3 . 0 2 
 
 
 
 
 
                     5 . 2 .    &#   
 
 
 
 
 
                       !!"  !  1 1   "  F O R L I B   ( "  !"- 
 
            "+%  $#&                      !/.)      !!"+
 
           $ " - I V )        !      ",.     -"#    %
 
           !,",  .'  / L I N K L I B R A R Y       !" /  '. 
 
 
 
                     )  ' /"      !,    +%
 
           #,   !+%  ,", !  + +    
 
             "  ,"/  ,     #'.,         "
 
           O T S   $ " -   I V .           ' "+%  $, !- 
 
           +%   !!     /"   $ " - I V ,   - 
 
           "  L I N K     #"  /  +/        $    $ "
 
            #     "#   #. 
 
 
 
                       #'.  "  $    $ "   #:   S A V ; 
 
 
 
           #!" !"  +    #'.  -   D K : 
 
 
 
                       $  "  . S A V     #'.  #"  /   
 
           #  %  ' "  $.   .+   +
 
           ,+  !!+  )  +""!/   ",  ",  !
 
           ),.  S Y S L I B ,     -"#    %    .'",    "#
 
           F O R L I B     #     )  .'  / L I N K L I B R A R Y     
 
           L I N K . 
 
 
 
 
 
                     5 . 3 .   !,  "
 
 
 
 
 
 
 
                     !  ),.    !!"    +    L I B R ,    '
 
           /  !/    /  ",   !",    - 
 
           "#  ' "+%  #  $#&      ,   !+%  
 
           /+%  !!     $ " - I V . 
 
 
 
                     "'+  $  .'"!/    #.  !" #  L I N K 
 
             !&$&  $    !!#  %+%  $. 
 
           L I N K    !"  "'+  $    #"  ",  " - 
 
           #+    +  #.   /  !"   L I N K : 
 
 
 
                     * L O A D = M A I N , L I B 1 / F 
 
 
 
           !"/"  L I N K   ' ",  $  M A I N . O B J   !  " #+  $#- 
 
           &/      ,   %/)!/    L I B 1 . O B J .   "  
 
           #'.    !!"/      "      $ " - I V     F O R L I B . O B J 
 
           !,#"!/  /   #%    " #+%      .      #'+
 
           #,  +"!/    $  L O A D . S A V . 
 
 
 
                      '.   " / F "     #+"!/,   !  F O R L I B   (    
 
           S Y S L I B .     -"  !#'  !   +  ,+  !!+
 
            /."!/  !  ),.  S Y S L I B . 
 
 
 
                     !    .'  " / F " ,   "    !    ",     !+
 
           ,",   !,#."!/      !"   !!"  - 
 
 
 
 
 
                                                       -   1 6   - 
 
 
 
                                             0 0 0 1 4 - 0 1 . 3 3 . 0 2 
 
 
 
 
 
           "  $ " - I V   F O R L I B . O B J . 
 
 
 
                     !   "  !    )    -     !""
 
           !"  /  "&+  !,        !#.)  +"  
 
           !,",  .'  " / S " .   -"  "  ",   &!!  - 
 
           ,      !""  !#  /"  /  "&+  !. 
 
 
 
 
 
                     5 . 4 .   !,   /
 
 
 
 
 
                     !      /    +/    %""  !#)!"#.- 
 
           )   "  /",   "  %  !,",    - 
 
           !"  )    !.    +",        #
 
             !"+    !    "   ,   '"+    !"+
 
             +    +   "+    /"   . 
 
 
 
                      /  !" #"#   !!""         !"    
 
                   ,(    !"      +".        !"
 
           ! "      #.        #    $ " - I V ,     +
 
           C O M M O N ,     +,     +- $#&      . P S E C T ,   .- 
 
           )  " #"  " G L B "   (      "!/   )        '
 
               !") . 
 
 
 
                      /    !",- -"    !",    /",     '/
 
           /  #%         +%    !",   ",        
 
           " +%  "  %",!/    /".    +  !"    !!- 
 
           ""                    +          - 
 
           $#&. 
 
 
 
                        +  +    +,   )     - 
 
             !",      /   "+    +,   #,     )- 
 
           /      +"/    /"   !#"!"#"    -""    !"  
 
            "  /".   !    !"    %"!/        /",   "
 
           #    %"    ++    .     !    !- 
 
           "     ",   "    !'"+"!/    $   #'
 
           #/    +     #.  !",.      -"    #("!/
 
            +#)   +  !"      -"         !". 
 
           "  #    %"    ++    . 
 
 
 
 
 
                     5 . 4 . 1 .    '  # /
 
 
 
 
 
                     %   "",       )    
 
             !"         +    $ " - I V        
 
           !"      +"/.   #!"        !"      +"/
 
           ++",    #,    (#.     #     !- 
 
           "  "       !"         !"    !
 
           ,(   ,   '  !",  ++.)    +. 
 
 
 
                     /      $ " - I V       +",  )    
 
              !". 
 
 
 
                       #!/%     !" #"# +  ++          
 
 
 
 
 
 
 
                                                           -   1 7   - 
 
 
 
                                                   0 0 0 1 4 - 0 1 . 3 3 . 0 2 
 
 
 
 
 
 
 
           !!+      - $#&/  +  "!",!/  ",  : 
 
 
 
                     -   "'         &#         $ " - I V       (   , 
 
                         A S S I G N ,   D C O S ) ; 
 
 
 
                     -    &#     /+  !!       $ " - I V ,     %- 
 
                         /)!/       !"; 
 
 
 
                     -    &#     /+  !!       $ " - I V ,     %- 
 
                         /)!/    "         !",   '"        ++- 
 
                         .)/   &# ; 
 
 
 
                     -    &#     /+  !!       $ " - I V ,     %- 
 
                         /)!/    !",           !"    "- 
 
                            ,(,   '    ++.)   &# . 
 
 
 
 
 
 
 
                 5 . 4 . 2 .   !,    C O M M O N 
 
 
 
 
 
                      #!         !" #"# +      C O M M O N   +
 
           )",!/  ",   '"+    +   "+      )  
 
           %/)!/    %   +. 
 
 
 
                 +  C O M M O N   !     ",     !,    
 
           !   /"!/         !".     !    +
 
           C O M M O N   +   )",!/           !",         
 
           !"  !  ,(     !"        !%    !", 
 
           !,#.)%  -""    C O M M O N .     #  #    C O M M O N 
 
             "  +",   )/    #%  !"          "    
 
           !",   !    C O M M O N          !"  !  ,(
 
              !". 
 
 
 
                 )  ""'!  )"      C O M M O N          - 
 
             !",   !    #     )"!/    /      
 
               ,   " /   !"!/       !". 
 
              "    !#'    )    )"        C O M M O N     
 
            +  !",   !+      !"     ), 
 
             "   !#)!"/"!/     -"    C O M M O N . 
 
 
 
                 !            C O M M O N ,     '/       +%        " +%
 
           ."!/   "   " D A T A " ,   +  !+",!/        "%    
 
            +%  !"%,       )."!/. 
 
 
 
 
 
 
 
                 5 . 4 . 3 .   !"      !" #"# +
 
 
 
 
 
                 !,   &!!   /   +%  !" #"#   # /"!/
 
           )        L I N K .     /    /         !" #"# +
 
           /  )  !,#"!/  /  !" .   L I N K     "- 
 
           "'!  .'"  #,   )/          +"/        
 
           "&+      #  ,"/     /       - 
 
            +. 
 
 
 
 
 
                                                         -   1 8   - 
 
 
 
                                               0 0 0 1 4 - 0 1 . 3 3 . 0 2 
 
 
 
 
 
 
 
                         !"        +"/      "'!  +'!/"!/
 
           ",   '"+    +  !""'  /   )/        ,- 
 
           (     !"  -"  !". 
 
 
 
                    !"    !   +  !"+    %/"!/    
 
            #'  #,   !  L I N K . 
 
 
 
                 /   /     !" #"# +  L I N K     !,#"    2 
 
           .'.   .'  !/    +"/  "  $ #
 
 
 
                                   / : N 
 
 
 
           
 
 
 
           N 
 
                       - !, '    '!,      /.)             !"
 
                         /. 
 
 
 
                 #",  !#)!"/   /    +         #
 
           !"   "    $ +:   / !    / / .   .'  " / !"       &    !" 
 
           /"  ,".     ",    #          !#.)
 
           !"   .   .'  " / / "   //"!/     &    
 
           !" . 
 
 
 
                        !      $    !         !" #"#    /
 
           !"     !"   L I N K     ! ",  (     %
 
           !!)   !  ' "+  #,   " +  +  +",    .'+
 
                !".   -"  !"     '",!/    .'
 
           " / !" .     .'    " / : N "         "    //",!/         !" 
 
           +.   !  !  !%  #,     " +    +    +",
 
           .'+       !",     )."!/       !" , 
 
           "  !",+  #  #"  +",  !&$& +      !#.- 
 
           )%  !" %,   /    " +%    '",!/    .'
 
           " / !" .      !"    +",  !         !
 
            +%  !". 
 
 
 
                 !    !#.)    !"     +    '",!/      .'
 
           " / : N " ,    /.)   #.  !",  /   " / !" .   '
 
           ",  .'  " / !"   #+",   '"  -"      +#)
 
           !"     !",,      !/       #- 
 
                !".   ' "+    #,     #+    
 
             !"          !"    /,   )."!/    
 
            +  !"  !      "     .   !    !"     
 
             !" ,      !,   +      ! ",    .'
 
           " / !" . 
 
 
 
 
 
                 5 . 4 . 4 .     
 
 
 
 
 
                 #!",,     ,   F O R L I B   %"!/    S Y S L I B ,            !- 
 
              #'  #/  !     !" #"#   %- 
 
              ",  #,  !#.)   : 
 
 
 
                 -   /        ' "+  #,  S U B 1   +    - 
 
           ",     !"; 
 
 
 
 
 
 
 
                                                         -   1 9   - 
 
 
 
                                                 0 0 0 1 4 - 0 1 . 3 3 . 0 2 
 
 
 
 
 
                 -   ' "+    #,    S U B 2          !",!/    
 
                          !"    !    ' "+    #    S U B 3 ,     
 
                      +%  !"%; 
 
 
 
                 -   ' "+    #    S U B 4         S U B 5     +    )",!/  
 
                         !"          " #.       #.      !",    !
 
                     ' "+  #/    S U B 6         S U B 7 ,     %/)       #- 
 
                       !"  -"  !". 
 
 
 
                 /  -"  %  !" ",  #.    !" #    !#- 
 
           .)   : 
 
 
 
                 . L I N K / P R O M P T / E X E : L O A D   M A I N + S U B 1 
 
                 * S U B 2 / 0 : 1 / C 
 
                 * S U B 3 / 0 : 1 / C 
 
                 * S U B 4 / 0 : 2 / C 
 
                 * S U B 5 / C 
 
                 * S U B 6 / 0 : 2 / C 
 
                 * S U B 7 / / 
 
 
 
 
 
                 5 . 5 .   +    +
 
 
 
 
 
                 /      '    +/     #'  #/  "    . S A V , 
 
           !  L I N K ,   !,#"!/    "   R U N .   : 
 
 
 
                 . R U N   D E V : F S P E C 
 
 
 
           ++"   ##    /",  !    #!" !"    ( D E V : )           #!
 
             +. 
 
 
 
                   !#.)       #"!/    "     !%+%    $,   ! - 
 
           )%  !#.    #    !,    ,     /    %
 
           +/"!/  " !/&/,       +    +: 
 
 
 
                 . R U N   F O R T R A N 
 
                   * M A I N = M A I N + S U B 
 
                   * S U B = S U B T 
 
                   * GC 
 
                 . L I N K / M A P   M A I N , S U B T , B Y 1 : F O R L I B 
 
                 . R U N   M A I N 
 
 
 
           !   +  !!+  "+!."!/  !'    F O R L I B . O B J , 
 
            !    B Y 1 : ,     "    S Y S L I B . 
 
 
 
 
 
                 5 . 6 .   "    +
 
 
 
 
 
                 $ " - I V   !  1 1   ! "  -$$"  ! !"  "- 
 
           -   "'+   " +  " ! #+    #!.. 
 
 
 
                 +/",     "     !    (       !'"   #- 
 
 
 
                                                         -   2 0   - 
 
 
 
                                             0 0 0 1 4   -   0 1 . 3 3 . 0 2 
 
 
 
 
 
 
 
 
 
 "'+%   #,"".   /  &  "     #.  #  - 
 
   !%  !"    "    !'"  "%   #,""
 
   !"",  !  " D " .   -"  !"       ##"    " ! - 
 
 ",!/,   !    #"  #  .'  "  ( / O N D E B U G   -     .'
 
 +  " ,   / D   -   .'  +  $ "  C S I   /    " !- 
 
 /" ) .       "  +",   " !         .'
 
 " / D "   !  ! /    (.     !    '+     " +
 
 "  ##"     -"   !!" ",!/    " . 
 
 
 
           /  "    +    %    !,",    !!- 
 
 "+  "'  V D T .   /  -"  !,#"!/    !"     - 
 
  +,   ! )  !  +  .         !"    !
 
 '"."!/  "!",+   !    !, '        - 
 
   (+%  !" #&            !&    "  C O D E " . 
 
 !#"  """,,   '"     "   #,     !    L I N K , 
 
  !'"+"!/  ",  +   !  -"  !&. 
 
 
 
            +    -"+  +%,   '+  !'!- 
 
     !"    #  ,    !."!/      - 
 
   !&  !  !)/,   #+    !""!"#.)   - 
 
    "+  /"  /" .   !  /     /    
 
 +/    +  #"!/        +%    #- 
 
 ,   "   !   !%  ,+%  !&  +%    /"
 
  !"     "   #,   !  ). 
 
 
 
 
 
 
 
           6 .   #'  -$$"!"     /
 
 
 
 
 
 
 
           6 . 1 .   $" +,     /.)            -$$"!",
 
                        /
 
 
 
 
 
                    ! "!/    $ &/,     %/
 
   !"#,   " +  " !    !        ##
 
    +/    +    "     ' #   - 
 
 "  /". 
 
 
 
           -$$"!",    +    $ " - I V   !"  "    !- 
 
 ,%  $" .   -"  $" +   /."!/      !!: 
 
 
 
               -   !!,     " +      !"     #"      !%+
 
                    "; 
 
 
 
               -   !!,   " +  /"      "+"    !%#.
 
                     #. 
 
 
 
 -"  $" +  !/+.   -$$"!",   "+  /" 
 
 "  +",    +(     &,+    !!    !!"/
 
 !%    +,   ". .   .'        !%#.      #
 
  +              +%         "         /+
 
 $ " - I V ,   " +     "+."!/    /"     
 
 
 
 
 
 
 
                                                       -   2 1   - 
 
 
 
                                           0 0 0 1 4   -   0 1 . 3 3 . 0 2 
 
 
 
 
 
 -$$". 
 
 
 
                  +(.  -$$"!",   !- 
 
   ,   '."!/      !#.)%  #": 
 
 
 
   ( /",) 
 
               -   '",   '"    !/    $#&/     !!" 
 
                      !",  &/  "     ' #     - 
 
                    +; 
 
 
 
   (  /) 
 
               -   '",   '"  !  '  "    &/
 
                      +/. 
 
 
 
 " +   /  #"  ",    #"/,    /.- 
 
 )  -.    /",   "     . 
 
 
 
 
 
 
 
           6 . 2 .   +(  -$$"!"  " !/&
 
 
 
 
 
           !#.)   /       .  !!!"#."
 
 +(.  -$$"!"  " !/&. 
 
 
 
 
 
 
 
           6 . 2 . 1 .   !'        #'(        !,/
 
                         ""   ( /",,    /) 
 
 
 
 
 
 
 
             !,#/  ",+    +  !" #&,     
 
  !"",  "" #  ,(#.    !",     #/
 
 )%  +         !%      .          !
 
   +  ",  ",  !,/   +%,   /
 
 " +%  ' /  -"!",,   " +  !+    %
 
 C O M M O N ,     $ ,+%   "       %    S U B R O U T I N E 
 
   F U N C T I O N . 
 
 
 
 
 
 
 
           6 . 2 . 2 .    '     #"              +
 
                         ( /",,    /) 
 
 
 
 
 
           '"+  ! "",   /,   %  /  +  F U N C T I O N 
 
     S U B R O U T I N E ,      " +     )/    !#"     ",
 
 '     C O M M O N ,       '   !" "+  !!     #- 
 
 ". 
 
 
 
           &/  '!  -"    !!   #"  ( #"
 
  )/  !",+%        %    C O M M O N )     #,("     /, 
 
 %  /  +/   '  # /      +#.
 
   #. 
 
 
 
 
 
 
 
 
 
                                                         -   2 2   - 
 
 
 
                                             0 0 0 1 4   -   0 1 . 3 3 . 0 2 
 
 
 
 
 
 
 
           6 . 2 . 3 .    " +- $#&  (  /) 
 
 
 
 
 
            $"'!    '!     " +- $#&    +- 
 
 /."!/    #"     +- $#&.     !",, 
 
 !  '/,   !.)!/  !!   #",   "!/"!/  "- 
 
        " - $#&/. 
 
 
 
 
 
 
 
           6 . 2 . 4 .   &/    /"    "&+    " 
 
                         !!  ( /") 
 
 
 
 
 
           " &/  !!,    #!" /        $ " - I V , 
 
 #,("   /,   %  /  +'!/   !,   !/- 
 
   !  -"     !!,         !'"      - 
 
 ",   /  " +%  %+%   &    #- 
 
 /.   '/,   +'!/+     /        !", 
 
 % /"!/      "&,   +  " " " . 
 
 
 
           /  &  /",      #  /  -"%    "- 
 
  ,   %  +",  !#.)  #!/: 
 
 
 
 
 
               -   1 ) .      " ,    /.)    !!,     ,(
 
                     !"  #  !"",             !".     -"
 
                   #,("  '!  !    "&,   "       /
 
                     !",    " #"!/; 
 
 
 
             ,   I N T E G E R   A ( 3 5 0 , 1 0 )     " #"    /    "     1 0 
 
 !.   I N T E G E R   A ( 1 0 , 3 5 0 )   " #"  /  "   3 5 0   !. 
 
 
 
           /"    #"    '!"    !,     %
 
 /   )/  "     /   )/  !!.   !  ' 
 
 /",   +  " ,     2 5 %   ,(    '     /", 
 
   !!,   "  !!  " #"!/.   !",- 
 
 ,    ,  # /'    !"    ",  -"
 
 /",  "&  " #+%  !!,     "  "    !- 
 
 '",  !",  " &   #%  !!. 
 
 
 
 
 
               -   2 ) .        !!        "    %
 
                   !.",    +     /      !";     -"
 
                   /"  !!  !,",      "      "- 
 
                   &+  " ; 
 
 
 
               ,   !!+: 
 
 
 
                   I N T E G E R   A ( 9 , 4 , 5 ) ,   B ( 9 , 4 , 7 ) ,   C ( 9 , 8 ) 
 
 
 
 !,#."    " :     /  "     !"      
 
 /  " ",.   "   /  "     !"  "  8     -- 
 
 ",   "#  '"  !!  " C "   "  ,(#.  " #.      - 
 
 !",,    #.  8 .   ',   "   /  " ",    !"
 
 "  !,  -".     )  !#'    !!  !,#."
 
 #    "#    "&#  "   /    !"  " I " ,   !  !
 
 
 
 
 
 
 
                                                         -   2 3   - 
 
 
 
                                             0 0 0 1 4   -   0 1 . 3 3 . 0 2 
 
 
 
 
 
   !",   ,(,   '  " I " ,       "        -"%    !!- 
 
 %.      !!"       !!+  A ,   B ,     C     !,#."
 
     ""    "   /  "       !",     ". .     +
 
 !!  "   #.    !",,    #.  9 . 
 
 
 
 
 
               -   3 ) .   " &.    !",.   "",    #- 
 
                     .'  " / N O V E C T O R S "       !"     - 
 
                   /" ;     -"  !#'  "&+  "        - 
 
                    #."!/,        #," #.)/          +/"!/
 
                         ,   '     " &; 
 
 
 
           -""   "      !,",    !&/%    +, 
 
     ! !",  +/      !!+        !,#."!/, 
 
   !+  #!  //"!/  -/   . 
 
 
 
 
 
 
 
           6 . 2 . 5 .   !,       +%      !!
 
                         (  /) 
 
 
 
 
 
              !,   +%  !!  '!    +%
 
 !   +%  /"     /,   %  /  +- 
 
 /  !!+    !!#.   /  "&    !!+        !!#
 
 %  !.",  !#.)   : 
 
 
 
               -   !,",  !!+    !        ,(    '!
 
                     !"; 
 
 
 
               -            !!    !,",          '!"
 
                   !  !""+;   !+- !""+    +'!/."!/
 
                      /  " !/&      " #."    (%     &
 
                      /  +/; 
 
 
 
               -      !!+%    -"  !!  !,",  !- 
 
                   ""+;   "  !!+   "+."!/    -$$"- 
 
                   ;     : 
 
 
 
                                 I = 1 
 
                                 A ( I ) = 0 . 0 
 
 
 
                       -$$",   '
 
 
 
                                 I = 1 
 
                                 A ( I ) = 0 . 0 
 
 
 
                          !#'  " #"!/   &/  !  !
 
                        /  +/;     !  !#'  - 
 
                     /"   "  +'!",   !  -"
 
                     !!  " A "      /  " !/&. 
 
 
 
 
 
 
 
                                                         -   2 4   - 
 
 
 
                                             0 0 0 1 4   -   0 1 . 3 3 . 0 2 
 
 
 
 
 
           6 . 2 . 6 .   $ "+  - +  ( /",,    /) 
 
 
 
 
 
           $ " - I V     ",  " ! #"    !"  !,
 
  "   F O R M A T ,   %/)%    !%#.    #.   -"    -- 
 
 "  /",,   %#.  /  % /  !&$&  $ "
 
    /  +/,     #'"  ! !",   &  - 
 
 +,   " +  !,#."  -"#  !&$&.  $ ". 
 
 
 
 
 
 
 
           6 . 2 . 7 .   +   "  +%  ( /",,    /) 
 
 
 
 
 
            /    !!"            !&       &!! 
 
 - 0 0 1 1 ,           '+%    #!/%    "&    $ " - I V 
 
 !,     +%    "    +%      "      ,(
 
 -$$": 
 
 
 
               -    '"",      !,        +%        "
 
                   I N T E G E R ;     /"     $ " - I V      "      
 
                     "&  !  -"  "  +%; 
 
 
 
               -    '"",    !,     +%      "
 
                   R E A L * 4 ,   '  "  D O U B L E   P R E C I S I O N   ( R E A L * 8 ) ;    - 
 
                   &       "'!"     /"!/    '",
 
                   +!"   '      -/"  /",; 
 
 
 
               -   !#"  ",  !(/  "  +%;       , 
 
                   " A = 0 . 0 "    '"",,   '  " A = 0 " ; 
 
 
 
               -   #'(  !,",     +  "  R E A L * 4 ,   '
 
                   #    C O M P L E X * 8 ;      &    !     +    R E A L * 4 
 
                   " #."!/    -$$",   '  !   +
 
                   C O M P L E X * 8 ; 
 
 
 
 
 
 
 
           6 . 2 . 8 .    &  ! /  ( /",) 
 
 
 
 
 
           !.#,     ,   !#"  !,",  !     !
 
 #.   !   +%  .  "  !  #  " #"    ,(
 
  &.     : 
 
 
 
                   I F   ( I   . L E .   1 )   G O T O   1 0 0 
 
 
 
 " #"  ,(   &,   '
 
 
 
                   I F   ( I   . L E .   0 )   G O T O   1 0 0 
 
 
 
                                                     -   2 5   - 
 
 
 
                                         0 0 0 1 4   -   0 1 . 3 3 . 0 2 
 
 
 
 
 
           6 . 2 . 9 .    &  #/          
 
                            "  (  /) 
 
 
 
 
 
           #                 "    '",
 
 -/"     /    +/.     !,    -"%     &
 
   -$$".     : 
 
 
 
                   A   =   ( B   +   A R R A Y ( C ) ) * * 2 
 
 
 
 ",,   '
 
 
 
                   A   =   ( B   +   A R R A Y ( C ) )   *   ( B   +   A R R A Y ( C ) ) 
 
 
 
    " : 
 
 
 
                   A = B * 2 
 
 
 
 ",   " : 
 
 
 
                   A = B + B 
 
 
 
 
 
 
 
           6 . 2 . 1 0 .   !,        .'        /" 
 
                           ( /",,    /) 
 
 
 
 
 
           '"+  ! "",  '   /",   %+  /    - 
 
 +,   !#"  !,",  !#.)  .': 
 
 
 
 / N O L I N E N U M B E R S 
 
               -    )"  $       !" ; 
 
 
 
 / N O V E C T O R S 
 
               -    )"  " &.  !!. 
 
 
 
    ",     !#"  #+",  .'  " / I 4 "         %- 
 
 !". 
 
 
 
           #  .'  " / N O O P T I M I Z E : X X X "   "  ! "",  ' 
 
 /",     -"  ,/   !",    #  !%     - 
 
  +.   !#"    ",   '+     "+    -"    .', 
 
 '"+  + ",  ",+. 
 
 
 
             !#"  #+",  .'  / N O S W A P ,   !      " #"- 
 
 !/. 
 
 
 
           /  ",   '"+    !-",    /",,     #    #+",
 
 ,  #!"+  '/    .'%  / U N I T S       / R E C O R D S . 
 
 '!   #"  .'  / U N I T S          !,#    '!#
 
 '!%  #!" !",   "+%        /   "+
 
   +.   .'  / R E C O R D     +",     !,  - 
 
   $ "  !  .!          ( /         
 
 !"      "   ") . 
 
 
 
           /  ! )/         +/      +    +
 
 
 
 
 
 
 
                                                     -   2 6   - 
 
 
 
                                         0 0 0 1 4   -   0 1 . 3 3 . 0 2 
 
 
 
 
 
 !,",!/  !#.)  .': 
 
 
 
 / N O L I N E N U M B E R S 
 
               -   /  !.'/  # &  !" ; 
 
 
 
 / N O S W A P 
 
               -   /  !.'/  !  U S R          /    +/
 
                     +. 
 
 
 
           "      )/    "&/        " &/    !!
 
 #! "  +    +,     !#"  !,",    .- 
 
 ': 
 
 
 
 / N O O P T I M I Z E : X X X 
 
               -   !.'"  "" ; 
 
 
 
 / N O V E C T O R S 
 
               -   !.'"  " &.  !!. 
 
 
 
           /  #,(/  '    #'  #/    !.- 
 
 '",  "!"+  !"'!%  !)    !/.)    !!"+
 
 $ "   ( O T S )      #'  #/.      -"         - 
 
 !"  (   "   #"  #'",  ",      - 
 
 ((  (      /!",    "!".     /    -"     
 
     +  #+"!/  .'  / I N C L U D E     ( I )          
 
  !  ): 
 
 
 
                             L I B R A R Y   S E A R C H ? 
 
 
 
 %  """,: 
 
 
 
                              S H O R T < C R > 
 
 
 
   : 
 
 
 
                             . L I N K / I N C L U D E   M A I N 
 
                             L I B R A R Y   S E A R C H ?    S H O R T 
 
                             L I B R A R Y   S E A R C H ? 
 
 
 
  "    !.   #'  #/  M A I N . S A V ,     " 
 
 "!#"!"#."  "!"+  !"'!%  !).     -"  !#'
 
    &'!      "   #'"  !): 
 
 
 
                             ? E R R   1 
 
 
 
 !"
 
 
 
                             ? E R R   1   I N T E G E R   O V E R F O W 
 
 
 
            &/  !.'/  "!"  !"  ( "        
 
 #" %        " )     &!     ",    /
 
 "+%    .        ! !"  "  +",   - 
 
     "+         !"  $&"  /". 
 
 
 
 
 
 
 
                                                     -   2 7   - 
 
 
 
                                         0 0 0 1 4   -   0 1 . 3 3 . 0 2 
 
 
 
 
 
           6 . 3 .   "%     /
 
 
 
 
 
             !#.)%    %     "!/    !      '+%
 
  "     /.   !    "!/      -$$- 
 
 "+  ". 
 
 
 
     1 .   !,  '/  (    &%. 
 
 
 
           -$$"                                    -$$"
 
 
 
           D I M E N S I O N   A ( 2 0 )                               D I M E N S I O N   A ( 2 0 ) 
 
           D O   1 0 0   I = 1 , 1 0                                   D O   1 0 0   I = 2 , 2 , 2 0 
 
           A ( 2 * 1 ) = B                                             A ( I ) = B 
 
   1 0 0   C O N T I N U E                                     1 0 0   C O N T I N U E 
 
 
 
             -$$"                &    +/"!/
 
 ",  +'!  (    " 2 * I " ) .     -$$"- 
 
       "  %!"    -"%  +'!/%,   ". .   #- 
 
   (  . 
 
 
 
     2 .    )  " +%  +'!    &. 
 
 
 
           -$$"                                    -$$"
 
 
 
           D O   1 0   I = 1 , 2 0                               T E M P 1 = B * C 
 
           D O   2 0   J = 1 , 5 0                               D O   1 0   I = 1 , 2 0 
 
     2 0   A ( J ) = A ( J ) + I * B * C                         T E M P 2 = I * T E M P 1 
 
     1 0   C O N T I N U E                                       D O   2 0   J = 1 , 5 0 
 
                                                           2 0   A ( J ) = A ( J ) + T E M P 2 
 
                                                           1 0   C O N T I N U E 
 
 
 
           +'!   /    B * C         &    ( -$$"+
 
   )    "!/  1 0 0 0    .     -$$",     !    +!"
 
 -"  +'!/    &. 
 
 
 
     3 .    ,    &  " D O "     "    #'",
 
 ! !",  +/    !'"  &  '!"  #!
 
 &. 
 
 
 
           -$$"                                    -$$"
 
 
 
           D I M E N S I O N   A ( 1 0 0 , 1 0 )                       D I M E N S I O N   A ( 1 0 0 , 1 0 ) 
 
           D O   6 0   I = 1 , 1 0 0                                   D O   6 0   J = 1 , 1 0 
 
           D O   6 0   J = 1 , 1 0                                     D O   6 0   I = 1 , 1 0 0 
 
     6 0   A ( I , J ) = B                                       6 0   A ( I , J ) = B 
 
 
 
                    #"   &  " D O "   +/"!/    1 0 0 
 
  ,   "      -$$"      -   1 0    . 
 
 
 
     4 .       -$$"+    !!    #/    ,(%
 
 !!    /    +%    '    !    -"
 
 !!  -   -"  #!"  -"!"       #
 
 !!#.   -""    "    !,#"!/    "    /     /
 
 ,(%   +%  !!. 
 
 
 
 
 
 
 
 
 
 
 
                                                     -   2 8   - 
 
 
 
                                         0 0 0 1 4   -   0 1 . 3 3 . 0 2 
 
 
 
 
 
 
 
 
 
           -$$"                                    -$$"
 
 
 
           I N T E G E R   A ( 2 0 , 1 0 0 )                           I N T E G E R   A ( 2 0 , 1 0 0 ) 
 
           D O   2 0   I = 1 , 1 0 0                                   R E A L * 8   A T E M P ( 5 0 0 ) 
 
           D O   2 0   J = 1 , 2 0                                     E Q U I V A L E N C E   ( A , A T E M P ) 
 
     2 0   A ( J , I )                                                 D O   2 0   I = 1 , 5 0 0 
 
                                                                 2 0   A T E M P ( I ) = 0 . 0 D 0 
 
 
 
             -$$"      +    8     "    !!    "
 
 R E A L * 8   !,#."!/  /   )/  !""!"#.)%    '"+ %
 
 &+%    !!  "  I N T E G E R      )    E Q U I V A L E N C E .     -"
 
 '"+   &+%  '!  #/."!/     &,     ! )/    
 
 '"+      '!  " &. 
 
 
 
     5 .   ",   ",      ,(    +'!
 
   $   I N T E G E R . 
 
 
 
           -$$"                                    -$$"
 
 
 
           A = B + I + J                                               A = B + ( I + J ) 
 
 
 
           !   .)  $     + /    //"!/    D O U B L E 
 
 P R E C I S I O N     C O M P L E X ,    #"!/     ",        
 
 ,(  +'!    $   R E A L .   +'!/      -$$- 
 
 "+       &+%,     -$$"+       R E A L     - 
 
   -$$"+    D O U B L E   P R E C I S I O N         C O M P L E X .     !#"
 
 ",,   '"     "!#"!"  !    +'!/    +/."!/
 
 !   . 
 
 
 
     6 .     !"  !#"  !,",    )    
 
 /   '   #"     "   #,""    . 
 
 
 
 
 
 
 
                                                     -   2 9   - 
 
 
 
                                         0 0 0 1 4   -   0 1 . 3 3 . 0 2 
 
 
 
 
 
 
 
           -$$"                                    -$$"
 
 
 
                                                                   C O M M O N / S U B R A / A , B , C , D , E 
 
                                                                   C O M M O N / F U N C T A / Y , Z 
 
                       .                                                     . 
 
                       .                                                     . 
 
                       .                                                     . 
 
           C A L L   S U B R ( A , B , C , D , E )                 C A L L   S U B R 
 
           X = F U N C T ( Y , Z )                                 X = F U N C T ( ) 
 
           C A L L   S U B R ( A , B , C , D , E )                 C A L L   S U B R 
 
                       .                                                     . 
 
                       .                                                     . 
 
                       .                                                     . 
 
           E N D                                                   E N D 
 
           S U B R O U T I N E   S U B R ( A , B , C , D , E )     S U B R O U T I N E   S U B R 
 
                       .                                           C O M M O N / S U B R A / A , B , C , D , E 
 
                       .                                                     . 
 
                       .                                                     . 
 
           E N D                                                             . 
 
                                                                     E N D 
 
           F U N C T I O N   F U N C T ( Y , Z )                     F U N C T I O N   F U N C T 
 
                       .                                             C O M M O N / F U N C T A / Y , Z 
 
                       .                                                     . 
 
                       .                                                     . 
 
           E N D                                                             . 
 
                                                                     E N D 
 
 
 
           C O M M O N    "+"!/        -$$",     '    !!
 
 $ ,+%   " .   ),   !,    )    
 
 /   '   #"      #  ,   !   - 
 
 )         "!/  ",  !    !"  
 
     !  !,#."!/      "    $"'!   "- 
 
  +. 
 
 
 
     7 .     !"  %  ",   &  - 
 
 /. 
 
 
 
           -$$"                                    -$$"
 
 
 
           A = B / 2                                                   A = B * . 5 
 
 
 
           #  +/"!/  +!" ,   '        ,     "
 
  ,   ! )"!/   /  +/. 
 
 
 
                                                         -   3 0   - 
 
 
 
                                             0 0 0 1 4   -   0 1 . 3 3 . 0 2 
 
 
 
 
 
                             7 .   !" #"#     +
 
 
 
 
 
 
 
 
 
           7 . 1 .     +  !&
 
 
 
 
 
             +  !&  ( P S E C T )   ! "            +    
 
 ."  #,+        !"+    ' "      +. 
 
    '   !,%  ",  ! +%     - 
 
      $ " ,     #        !!         "'+%
 
       #    +/#.      #     " +    " P S E C T " 
 
 # /."      L I N K .   !      +    !&/    #"
 
 #+",!/  !#.)  " #"+: 
 
 
 
           ' //    ( C O N )              /        ( O V R )   ; 
 
           +                ( D )                 !" #&        ( I )       ; 
 
           ,/        ( G B L )             ,/          ( L C L )   ; 
 
            )/    ( R E L )             !."/        ( A B S )   ; 
 
           '"/ !,  ( R W )               ",  '"  ( R O ) . 
 
 
 
 
 
 
 
           7 . 1 . 1 .   !,  P S E C T 
 
 
 
 
 
           /"   " ! #"      #        "       +
 
 !&,   ,   " #"+    !   " +%  +        ". 
 
 1 . 
 
 
 
 
 
                                                                                           "&  1 
 
                    &/    +%  !&
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
   /      !     " #"+        !                 ! 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
    C O D E   !     R W ,   I ,   L C L ,   !   !,    +/    +, 
 
               !   R E L ,   C O N           !   .'/  #,+     /
 
               !                             ! 
 
  D A T A P   !   R W ,   D ,   L C L ,     !   '!"+  +  (     +
 
               ! R E L ,   C O N             !        "   " F O R M A T " ,   !""+, 
 
               !                             !   "   !!) ,   " +  
 
               !                             !   #"  /",!/     /
 
               !                             !   +/    +
 
               !                             ! 
 
    D A T A   !   R W ,   D ,   L C L ,     !   !(+  +,    +, 
 
               !   R E L ,   C O N           !     % +   ,     !!+, 
 
               !                             !   !,#+      %
 
 
 
               L I N K    )"  +  " P S E C T "   !  " #- 
 
 "  " C O N "     !      "      !"    !",- 
 
 +%  /'%.      #," #.)      !&     - 
 
 /"!/  !#    ",+%  !&. 
 
 
 
 
 
 
 
                                                         -   3 1   - 
 
 
 
                                             0 0 0 1 4   -   0 1 . 3 3 . 0 2 
 
 
 
 
 
           7 . 1 . 2 .   !,  P S E C T     %  C O M M O N 
 
 
 
 
 
             $ "   /",  /    C O M M O N      #"!/    !    ),.
 
 +%  " P S E C T " ,   .)%  "    /,   '"        C O M M O N . 
 
 " P S E C T " ,     "    !"/"!/  /",  /  C O M M O N ,   "
 
 " #"+: 
 
 
 
                                     R W ,   D ,   G B L ,   R E L ,   O V R . 
 
 
 
             ,    " 
 
 
 
               C O M M O N   / X /   A ,   B ,   C 
 
 
 
 -"  !#.)  !",!"   "   !- 
 
 ! : 
 
 
 
                                 . P S E C T   X ,   R W ,   D ,   G B L ,   R E L ,   O V R 
 
                           A :   . B L K W     2 
 
                           B :   . B L K W     2 
 
                           C :   . B L K W     2 
 
 
 
           /        C O M M O N     !,#"!/    /    !&
 
 " .     . " .   "      " : 
 
 
 
               C O M M O N   C ,   B   / X /   A 
 
 
 
 -": 
 
 
 
                                 . P S E C T   .     . ,   R W ,   D ,   G B L ,   R E L ,   O V R 
 
                           C :   . B L K W     2 
 
                           B :   . B L K W     2 
 
                                 . P S E C T   X ,   R W ,   D ,   G B L ,   R E L ,   O V R 
 
                           A :   . B L K W     2 
 
 
 
                +  " P S E C T "   !          "    
 
     " #"  " O V R "    )."!/  !            "    
 
  !.      #," #.)  P S E C T        !,
 
   ' /+%  !&. 
 
 
 
 
 
 
 
           7 . 1 . 3 .   !,      +%    !&    
 
                         "  O T S 
 
 
 
 
 
 
 
           #,   .'+    "#  O T S ,       " +     - 
 
 )"!/         +,   ! "  /",      +%
 
 !&: 
 
 
 
   . P S E C T   O T S  I   R W ,   I ,   L C L ,   R E L ,   C O N 
 
               -   ! "  !,  '!"+      +  /  #/; 
 
 
 
   . P S E C T   O T S  P   R W ,   D ,   G B L ,   R E L ,   O V R 
 
               -   ! "  !  '!"+  "&+   !   #%  - 
 
                   "'+%  #  O T S ; 
 
 
 
 
 
 
 
                                                         -   3 2   - 
 
 
 
                                             0 0 0 1 4   -   0 1 . 3 3 . 0 2 
 
 
 
 
 
   . P S E C T   O T S  D   R W ,   D ,   L C L ,   R E L ,   C O N 
 
               -   ! "    '!"+    +,         " +       )"!/
 
                   #,; 
 
 
 
   . P S E C T   O T S  S   R W ,   D ,   L C L ,   R E L ,   C O N 
 
               -   ! "  ! % "#.  /",,     "      - 
 
                   )"!/  #,; 
 
 
 
   . P S E C T   O T S  O   R W ,   I ,   L C L ,   R E L ,   C O N 
 
               -   ! "    +  O T S ,     " +    +        
 
                   +   )",!/    !"  !  U S R . 
 
 
 
 
 
 
 
           7 . 1 . 4 .    /        " P S E C T "                 +/+%
 
                           %
 
 
 
 
 
            /,     "    )."!/      +    !&    
 
 +/    ,    /"!/   /,     "   
 
 '."   "+",!/  ). 
 
 
 
              +%    %  "/."!/  !&,     ! )
 
 $ &.  ",  /  '"/,   "  !(+%  !&,   ! - 
 
 )%   +. 
 
 
 
           /      ( +'  -"   /  ' "/     - 
 
      !",!"  %+%  $,   #+%    L I N K ) 
 
 ' //"  !#.)   /  " P S E C T " : 
 
 
 
           /  !&                                      " #"+
 
 
 
               O T S  I                                   R W ,   I ,   L C L ,   R E L ,   C O N 
 
               O T S  P                                   R W ,   D ,   G B L ,   R E L ,   O V R 
 
               S Y S  I                                   R W ,   I ,   L C L ,   R E L ,   C O N 
 
               U S E R  I                                 R W ,   I ,   L C L ,   R E L ,   C O N 
 
                C O D E                                   R W ,   I ,   L C L ,   R E L ,   C O N 
 
               O T S  O                                   R W ,   I ,   L C L ,   R E L ,   C O N 
 
               S Y S  I                                   R W ,   I ,   L C L ,   R E L ,   C O N 
 
                D A T A P                                 R W ,   D ,   L C L ,   R E L ,   C O N 
 
               O T S  D                                   R W ,   D ,   L C L ,   R E L ,   C O N 
 
               O T S  S                                   R W ,   D ,   L C L ,   R E L ,   C O N 
 
               S Y S  S                                   R W ,   D ,   L C L ,   R E L ,   C O N 
 
                D A T A                                   R W ,   D ,   L C L ,   R E L ,   C O N 
 
               U S E R  D                                 R W ,   D ,   L C L ,   R E L ,   C O N 
 
               .     .                                 R W ,   D ,   G B L ,   R E L ,   O V R 
 
                #    C O M M O N       R W ,   D ,   G B L ,   R E L ,   O V R 
 
 
 
             !  1 1   !",  !  U S R   "    +",    '!- 
 
 "+  ,           +",  !""+        !(+
 
 +,   " +  #"   ",!/        '!"     #- 
 
 ". 
 
 
 
           !!   #  +(   /#    /"  ! ."!/
 
 !  !&  '!"      !(+%  +%,     !    U S R 
 
 "  +/",!/          !&     C O D E ,     O T S  P ,     S Y S  I     
 
 U S E R  I . 
 
 
 
 
 
                                                         -   3 3   - 
 
 
 
                                             0 0 0 1 4   -   0 1 . 3 3 . 0 2 
 
 
 
 
 
             +    /+  !! ,   !,#+     - 
 
 +%    %,   ++.)  U S R ,   +  !,",    "    
 
   +    !&,     '"        /" ,     ". .     %
 
 !"",  '!"+      +  ",  /  !'"+/      !- 
 
 &.  U S E R  I ,     !  !",+  +  -     !&.    U S E R  D .      
 
 -"  #!    +    /+  !!   ##"     ,
 
 #'!"",         +        +. 
 
 
 
               %  !     !" #"#      /    " P S E C T " 
 
 #"   ",!/          !"      +"/    ( ". . 
 
    !"  #"  ! ",  '!"+  !&,     " +
 
 !#."  !(+) . 
 
 
 
             #!/%    +"    +  !&    !    " #"
 
 " G B L "    )."!/       !"                "    
 
 !"  /",   !         "!/     )    , 
 
 '      !". 
 
 
 
 
 
 
 
 
 
                                     8 .   !"     +
 
 
 
 
 
 
 
 
 
           8 . 1 .       +
 
 
 
 
 
            &!!    +/"!/  "'  /    , 
 
 !+%      !! ,   "      $ " . 
 
 
 
 
 
 
 
           8 . 1 . 1 .    '  # /    +%
 
 
 
 
 
           #        "!/    !" #&
 
 
 
                 J S R   P C ,   S U B R 
 
 
 
 
 
 
 
 S U B R 
 
               -   ,+  !,   "'  %        #,     
 
                    !"   5   ( R 5 )   ! "   !    !!     #", 
 
                   .)  !#.)  $ ": 
 
 
 
 
 
 
 
                                                         -   3 4   - 
 
 
 
                                             0 0 0 1 4   -   0 1 . 3 3 . 0 2 
 
 
 
 
 
                         - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
                         !   n e   o p r e d e l e n o   !   k o l i ~ e s t w o   a r g u m e n t o w   ! 
 
                         ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ! 
 
                         !                   a d r e s   1 - g o   a r g u m e n t a                     ! 
 
                         ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ! 
 
                         !                   a d r e s   2 - g o   a r g u m e n t a                     ! 
 
                         ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ! 
 
                         !                                       .                                       ! 
 
                         !                                       .                                       ! 
 
                         !                                       .                                       ! 
 
                         ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ! 
 
                         !                   a d r e s   N - g o   a r g u m e n t a                     ! 
 
                         - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 
 
  !  (  "     !  )"!/    R 5 .     '- 
 
   " - 1 "   !,#"!/     !  .+%  #)+%   #". 
 
 #)+   #"+  "'."!/     "   " C A L L "     !- 
 
 ",+  /"+.     : 
 
 
 
                 C A L L   S U B ( A , , B ) 
 
 
 
 
 
            '.   ". .   !!  $  #"!/     &!!     "+
 
 ++.)    +,   "  +/              /"
 
 !!   #",        . 
 
 
 
           !" #&/
 
 
 
                 R T S   P C 
 
 
 
  )"  #   ++.)    . 
 
 
 
                        '     #".           
 
 !!   !# #"  !  &+  '/   #",   " +
 
 ."!/    !!   " ,        "    !##    ++.)
 
           '!"    '       #,"".        " +
 
 " C A L L " ,   " +  ++."  -"#    #,   ."  $ #: 
 
 
 
                 C A L L   I A D D ( N U M 1 , N U M 2 , . . . , N U M N , I S U M ) , 
 
 
 
 
 
 
 
 N U M 1 , . . . , N U M N 
 
               -      '!  &+%  ',   )%    !#- 
 
                    .; 
 
 
 
 I S U M 
 
               -   &/   /    -"  &'!  !!- 
 
                   ,   #  #"  )  !#. 
 
 
 
           "!/  !#.)/         !! : 
 
 
 
                 . T I T L E       A D D E R 
 
 I A D D : :     M O V B           ( R 5 ) + , R 0   ; #'",  '!   #"
 
                 C L R             R 1               ; "",   '   !" 
 
                 D E C B           R 0               ; "  '!  "   /  !/
 
 1  :           A D D             @ ( R 5 ) + , R 1 ;  ",  "#)  " 
 
                 D E C B           R 0               ; #,(",  !'"'
 
                 B N E             1                ; " ",  &
 
 
 
                                                     -   3 5   - 
 
 
 
                                         0 0 0 1 4   -   0 1 . 3 3 . 0 2 
 
 
 
 
 
                 <>6            @1 , N( @5 )   ;  ",   #,""
 
                 R T S             P C               ;  "  # /
 
 
 
           !",!",   )    $ " : 
 
 
 
               C A L L   I A D D ( 1 , 5 , 7 , I ) 
 
               C A L L   I A D D ( 1 5 , 3 0 , 1 0 , 2 0 , 5 , J ) 
 
 
 
 +"   !     " I "   '  1 3 ,      
 
 " J "   -   '  8 0 . 
 
 
 
 
 
 
 
           8 . 1 . 2 .   !,   !" 
 
 
 
 
 
 
 
             ,   +/      $ " - I V ,     /- 
 
   !% /",   !" +.             !!"- 
 
 ",  !   !"  ",   '"+  #  !.    !"
 
 !""!"  +     !"    +%  %    +. 
 
 
 
           !+    /+  !!     +  ,"/, 
 
 " +  ++."  $ " !    +,   +    !% /",
 
 !   !%  #+%   !"     +      +    
 
 !!"",  %  !   "  # /,   !    %- 
 
 . 
 
 
 
             +- $#&   )."  !"+   #,""
 
    !" %.   #  "#   #,""    !""!"#"    !
 
 !,   !" .   /    &+%        '!%    $#&
 
  #,""  )"!/    R 0 .   /  )!"+%  $#&  (
 
 !   #,""  )"!/    R 0 ,   !" (  -       R 1 .     $#&
 
   "'!"  )."   #,""        R 0 - R 3 .     !+
 
 $#&  )."  !" (  !  )!"  '!"   #,"- 
 
 "    R 0 ,   (  !  )!"  '!"     #,""    -     
 
 R 1 ,   !" (  !    '!"     #,""        R 2 ,     (
 
 !    '!"  -     R 3 . 
 
 
 
 
 
 
 
           8 . 2 .    &/  /"     /  +/
 
 
 
 
 
                /    " !/&    !%      +    /" 
 
 !,#"  /  !   "+  !.   "#.  /",,   " #.
 
 #   !"/"  !!".      !.   1      '/   - 
 
 &/  /"  /  8       !!"  !  U S R ,   "     (
 
 !,   "    !   "  U S R . 
 
 
 
           !    !+    ,"      +    # /
 
   +/  #."!/  !        $ " ,   "    !- 
 
 #"  ",  !  U S R   !       "    +- 
 
     !""!"#.)  +.   /  U S R     ""!/    !",
 
 +(  "     +/,   '/  !  /'      O T S I ,         
 
 "   ",  2   !. 
 
 
 
             +   "    +  +   #",!/  +(
 
 
 
 
 
 
 
                                                     -   3 6   - 
 
 
 
                                         0 0 0 1 4   -   0 1 . 3 3 . 0 2 
 
 
 
 
 
 !",   !,#  /  !  U S R ,   !  U S R          - 
 
 ".   U S R   #"   ",     !        #"     )
 
 .'  /"   / N O S W A P . 
 
 
 
           " +  !"   '  /"    ."    $! +
 
   .   !.  %/":    "+  " ,      '/    !",
 
 O T S ,   !"  !"    "       +        !",    U S R , 
 
 !     ".    #  !"+   '    /"    - 
 
 /."!/        !""!"  !      +  ,- 
 
 "/.       +    #!" !",     "&+                  #$ +
 
 / +  ."  /",  '!.    "+  ",
 
   +,   %+  /    !,#+%    #!" !".     #$ +
 
 / +   )."!/      #/."!/        " .    (  
 
 +   "   / +) . 
 
 
 
           !        $ "             "    +- 
 
 /",!/      '   /",   "  #,(        - 
 
 '!  !"  /"  "  !'",    +     - 
 
  +.   !,   +%  !" #"#   #,("  '!"- 
 
   /",   %  /    +  ,"/.   !/  
 
 #  '!   '+%  $'!%  #!" !",    
 
 !,#+%  /  / +,     #,(",  '!     - 
 
  ,   " +  ##"   #+. 
 
 
 
 
 
 
 
 
 
                                     9 .         +
 
 
 
 
 
 
 
 
 
           9 . 1 .   " !!   (
 
 
 
 
 
             $ "   !  1 1     /    '/    !    (    
 
     !,#"!/  " !!     (,     '"    /"
 
  ",  /    +       !" ,     "    (- 
 
   (     /  +/    +. 
 
 
 
           !    +  -",     "    (    (- 
 
 ,     //"!/          S U B R O U T I N E         F U N C T I O N ,     "
 
 #,   "  (    '""    /      +         
 
 !" ,     "   (   (,     "    !",
 
 '"."!/             "%    !" ,         " +%
 
  !%  +.   -"  /"  "'   ",  !"- 
 
   (. 
 
 
 
             ,      #,""   "+  !#.)    +: 
 
 
 
           0 0 0 1       A = 0 . 0 
 
           0 0 0 2       C A L L   S U B 1 ( A ) 
 
           0 0 0 3       C A L L   E X I T 
 
           0 0 0 4       E N D 
 
 
 
           0 0 0 1       S U B R O U T I N E   S U B 1   ( B ) 
 
 
 
 
 
 
 
                                                     -   3 7   - 
 
 
 
                                         0 0 0 1 4   -   0 1 . 3 3 . 0 2 
 
 
 
 
 
           0 0 0 2       C A L L   S U B 1 ( B ) 
 
           0 0 0 3       R E T U R N 
 
           0 0 0 4       E N D 
 
 
 
           0 0 0 1       S U B R O U T I N E   S U B 2   ( C ) 
 
           0 0 0 2       C A L L   S U B 3 ( C ) 
 
           0 0 0 3       R E T U R N 
 
           0 0 0 4       E N D 
 
 
 
           0 0 0 1       S U B R O U T I N E   S U B 3   ( D ) 
 
           0 0 0 2       E = 1 . 0 
 
           0 0 0 3       F = E / D 
 
           0 0 0 4       R E T U R N 
 
           0 0 0 5       E N D 
 
 
 
 #"   !'"  !#.)/  !"  (: 
 
 
 
                   ? E R R   1 2   F L O A T I N G   Z E R O   D I V I D E 
 
 
 
                   I N       R O U T I N E   " S U B 3     "     L I N E   3 
 
                   F R O M   R O U T I N E   " S U B 2     "     L I N E   ? 
 
                   F R O M   R O U T I N E   " S U B 1     "     L I N E   2 
 
                   F R O M   R O U T I N E   " . M A I N . "     L I N E   2 
 
 
 
   "!"    !)    !"         !"     /      +
 
 " S U B 2 "   '"     !  ( ? ) .     -"     !%"    ", 
 
   #,  " ! !/  !  .'  " / N O L I N E N U M B E R S " . 
 
 
 
 
 
 
 
                 1 0 .   !!"  /+  $ " - I V     !  1 1 
 
 
 
 
 
 
 
           $ " - I V    ' //"  !#.)  " /       /#
 
  " : 
 
 
 
               -    /  !"     +,     //.)/!/    - 
 
                   " ,             +",         "         F U N C T I O N , 
 
                   S U B R O U T I N E     B L O C K   D A T A ; 
 
 
 
               -   !//  !"           +",     "- 
 
                      E N D ; 
 
 
 
               -    " +    $#&    +    +",     +    
 
                    )/    . 
 
 
 
 !  -""   /    !."!/,   "    !"    " !/&
 
    !,  .'  " / W A R N I N G S "   /"!/     # .- 
 
 )/  !". 
 
 
 
 
 
 
 
                                                     -   3 8   - 
 
 
 
                                         0 0 0 1 4   -   0 1 . 3 3 . 0 2 
 
 
 
 
 
           1 0 . 1 .    '/   "   O P E N / C L O S E 
 
 
 
 
 
           !" /    ",   '"   " +  O P E N     C L O S E   ."  +%
 
   (  " E R R = L A B E L " ,   #       "#    " L A B E L "      - 
 
 "!/  ",     !#.)%  #!/%: 
 
 
 
               -   !"!'!/  (    !&$&  $; 
 
 
 
               -   $    ; 
 
 
 
               -   $  #  " +"    #!" !"; 
 
 
 
               -   $    "  +",  " +"    #!" !". 
 
 
 
 
 
 
 
           1 0 . 1 . 1 .    '/  .'+%  !
 
 
 
 
 
           #!"+    .'+    !         " %    O P E N / C L O S E 
 
  !!" +    " !  /+  $ " " .     ,     !,#
 
 $ " - I V   !!"+  !  1 1      "  " +  .'- 
 
 +    !        .',     "           !,       " 
 
 O P E N / C L O S E   +  #'"+",!/  !#.)   '/: 
 
 
 
 A C C E S S = ' A P P E N D ' 
 
               -        "!/;     //"!/    (         /
 
                   " !/&       /  +/; 
 
 
 
 B U F F E R C O U N T = B C 
 
               -   #+"  '!  #$   ( 1     2 ) ,     " +    ##"
 
                   !,",!/     +    +%;     !     " 
 
                   "!#"!"#",   "  -     #$ ; 
 
 
 
 B U F F E R S I Z E = B C 
 
               -        "!/;     //"!/    (         /
 
                   " !/&    +/; 
 
 
 
 C A R R I A G E C O N T R O L 
 
               -   $ "+  $    ",  " #"  " F O R T R A N "     
 
                   " L I S T " ,   $ "+  $  !     ,+    !"#
 
                     ",  " #"  " N O N E " ; 
 
 
 
 D I S P O S E = ' P R I N T ' 
 
               -   //"!/  (       /    " !/&,     "    
 
                   !!"         "    !#        #!" !"
 
                   '"; 
 
 
 
 E X T E N D S I Z E = E S 
 
               -      "!/;      /  " !/&      +- 
 
                   /  //"!/  (; 
 
 
 
 F O R M = ' F O R M A T T E D ' 
 
               -     #!"  /  $  !   /+  !"#; 
 
 
 
 
 
 
 
                                                     -   3 9   - 
 
 
 
                                         0 0 0 1 4   -   0 1 . 3 3 . 0 2 
 
 
 
 
 
 I N I T I A L I Z E = I S 
 
               -    "!/    #'.  " /  !/  ,(/    !",
 
                           !    ,(    !    !"; 
 
                   I N I T I A L I Z E   # /"   )  $,     !,#
 
                    !(   $     "!/; 
 
 
 
 M A X R E C = M R 
 
               -       $  !   /+  !"#     ',   !- 
 
                       /"!/  ,(    #%   " ; 
 
                   I N I T I A L S I Z E        M A X R E C     R E C O R D S I Z E ; 
 
 
 
 N O S P A N B L O C K S 
 
               -      "!/,   (; 
 
 
 
 R E C O R D S I Z E 
 
               -   /",    +",  #  /  $  !   /+
 
                   !"#; 
 
 
 
 S H A R E D 
 
               -        "!/;     //"!/    (         /
 
                   " !/&    +/. 
 
 
 
 
 
 
 
           1 0 . 2 .   !%+  !" 
 
 
 
 
 
           #!"/  !%/  !"         $ " - I V     !!""    
 
 !#.)%  ": 
 
 
 
               -   /",/  '!/  "   "       "
 
                       /"    ;     "    !""'    '!
 
                      /   )/  !#.)  !      7 - 
 
                     ( !  "  !"    /)           6 - 
 
                     ( /   /)   '""!/       - 
 
                   /; 
 
 
 
                                                         
 
 
 
                   !  "#/&             .+      $"+
 
                   !  /  #/   /, 
 
 
 
                                                         
 
 
 
                   !  "#/&,   !  -"    !"    - 
 
                   /; 
 
 
 
               -   #!"+     "     $ " - I V          
 
                    " ; 
 
 
 
               -    ,    " /,    '    !
 
                   !&",+    ( ! ) . 
 
 
 
           !"   !    !         /     !" ,     !!"/)/
 
 ",    &  ( C R >     < L F > ,     #"!/         . 
 
 !    !"         #!"/,             ! ",     " 
 
 $ " - I V . 
 
 
 
                                                     -   4 0   - 
 
 
 
                                         0 0 0 1 4   -   0 1 . 3 3 . 0 2 
 
 
 
 
 
           1 0 . 3 .      +%
 
 
 
 
 
             $ " - I V       (."!/         +%,     .)%
 
 ,(  (!"  !.        -"  ",   +  (!",  !- 
 
   //."!/  ')    +  +",  #,+       - 
 
  .   /       ,     "      +- 
 
 ("  6   !,     //"!/     # .)/    !", 
 
 !          #.      !" #      /"       .'      .'
 
 " / W A R N I N G S " . 
 
 
 
 
 
 
 
           1 0 . 4 .   &&/    '     +%      
 
                       C O M M O N 
 
 
 
 
 
              !,   "   " D A T A "     ("!/  &- 
 
 &/  '    .+%     +%,      )+%        
 
 C O M M O N ,     "  '!    . 
 
 
 
 
 
 
 
           1 0 . 5 .   !"    /
 
 
 
 
 
           !"   !'""!/  !"    /,   !   +  !- 
 
 ,   !#.)    !  "#/&,   #+. 
 
 
 
           $ " - I V     +"  %   '    '!
 
 !"    /,   " +  "  ",   " . 
 
 
 
 
 
 
 
           1 0 . 6 .    " +  S T O P     P A U S E 
 
 
 
 
 
            "   " P A U S E "    !""  +    +
 
   '""  !  " P A U S E "     !   !"     "!"    ( !
 
   !",)     " .   /   /    +  %- 
 
   !"  !  "   !  ( C R > . 
 
 
 
             ,   !,   " 
 
 
 
               P A U S E   ' M O U N T   A   N E W   T A P E ' 
 
 
 
 ++"  '",  !#.)  !"     " : 
 
 
 
               P A U S E   - -   M O U N T   A   N E W   T A P E 
 
 
 
              +   "   " S T O P "    +."!/  !    $+
 
   #    "!/  " #.   /  '/    +/
 
   +    '"  !)/    " S T O P "     !,#"!/    " C A L L 
 
 E X I T " . 
 
 
 
 
 
 
 
                                                     -   4 1   - 
 
 
 
                                         0 0 0 1 4   -   0 1 . 3 3 . 0 2 
 
 
 
 
 
            "   " S T O P "   +"  !#.)  !): 
 
 
 
               S T O P   - -   T E X T 
 
 
 
 
 
 
 
 T E X T 
 
               -   "!"/  !" ,   /    !%   " . 
 
 
 
 
 
 
 
           1 0 . 7 .   !""!"  '!%     (
 
                       #!" !"    $
 
 
 
 
 
           !""!"  '!%     (  #!" !"    
 
 $  #    ".   2 . 
 
 
 
                                                                                                 "&  2 
 
 
 
                    !  '!%     #!" !"
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
              !                 #!" !"                    !       /  $
 
 '!!               #'.                    !       #'.
 
   #!" !"!                                                         ! 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
           1           !   !!"+  !     #    !           F T N 1 . D A T 
 
                       !   !!"  #!" !"  ( S Y : )   ! 
 
           2           !   !" "  #!" !"( D K : ) !           F T N 2 . D A T 
 
           3           !   !" "  #!" !"( D K : ) !           F T N 3 . D A T 
 
           4           !   !" "  #!" !"( D K : ) !           F T N 4 . D A T 
 
           5           !   " ,   T T :   ( )               !           F T N 5 . D A T 
 
           6           !   #!" !"  '",   L P :           !           F T N 6 . D A T 
 
           7           !   " ,   T T :   ( +)             !           F T N 7 . D A T 
 
 
 
             "   " A S S I G N "   "  /",  '  #!"- 
 
  !"    #'..     ,     " 
 
 
 
                 . A S S I G N   L P :   7 
 
 
 
 !/+"  '!     7   !  $'!  #!" !"  " L P : " 
 
 -   #!" !"  '". 
 
 
 
           !!"/        " A S S I G N "     "    /",    /
 
 #!" !"    /  $. 
 
 
 
           #!"+     '!%  #!" !",       '!- 
 
 +%    ".   2 ,   ( 1 0 - 9 9 )    !."!/      #'.    !!- 
 
 "#  #!" !"#. 
 
 
 
           %"/  "  !,",!/  ./  &/    #!"+%
 
    '!%  #!" !",   !#)!"#"  !,  '!
 
 #!" !",   " +  #"  !"",   .     #- 
 
 '.   ,  #"    +",    "+    (!",    '!%
 
 #!" !".   -"  '!  "  +",         !,
 
 .'  " / U N I T S "       " #       " !/&    !
 
   +. 
 
 
 
 
 
 
 
                                                     -   4 2   - 
 
 
 
                                         0 0 0 1 4   -   0 1 . 3 3 . 0 2 
 
 
 
 
 
           $ "+   "   R E A D     $ : 
 
 
 
                   R E A D   F ,   L I S T 
 
 
 
 -"
 
 
 
                   R E A D   ( 1 , F )   L I S T 
 
 
 
              '!%  #!" !"  5 ,   7         6     !""!"
 
  +     "   A C C E P T ,   T Y P E     P R I N T . 
 
 
 
 
 
 
 
           1 0 . 8 .   !,/    !
 
 
 
 
 
           #$   !" ,    '  /       % /
 
 !  / +,     #'.      &       1 3 6 
 
 ".   -"#     " %  $ "  / +    
 
 !   '"!/    1 3 6   !. 
 
 
 
               #$     ,     !",,     !,/    
 
 !  "  +",      .'    .'    " / R E C O R D "     
 
 #  "      " !/&  !    +. 
 
 
 
           !,+      #$   !"          4 0 9 5     "
 
 ( 7 7 7 7   !, '+%) .   ,+         4   ". 
 
 
 
 
 
 
 
           1 0 . 9 .   / +  !   /+  !"#
 
 
 
 
 
           $ " - I V   /"  !",    /",  $+  !   /- 
 
 +  !"#. 
 
 
 
 
 
 
 
           1 0 . 9 . 1 .    "   D E F I N E   F I L E 
 
 
 
 
 
            +,   .'+      !,      #"         " 
 
 " D E F I N E   F I L E "   #+"  #    !/%   /  $
 
  /  !"#.   !   "   " D E F I N E   F I L E "   //"!/  
 
   !,%   "       $  .    $,     '
 
  #"        -"     "     "    +",     +. 
 
 $ " - I V   "  " #.  ",#.  !",        -"
 
 !"#&.     !" #&/    " E N D = "          " %    / +
 
 %    -"  !"#&  /   /  +  $. 
 
 
 
 
 
 
 
                                                     -   4 3   - 
 
 
 
                                         0 0 0 1 4   -   0 1 . 3 3 . 0 2 
 
 
 
 
 
           1 0 . 9 . 2 .   !  $  !   /+  !"#
 
 
 
 
 
               &  / +,   +/  /  $  !
 
  /+  !"#     /    !/,         +",     &/
 
 " W R I T E " .        &/      " R E A D "               " F I N D "                  -"%
 
 !"/",!"%  ++"  #!" #.  (#. 
 
 
 
 
 
 
 
           1 0 . 1 0 .   $ "+  / +
 
 
 
 
 
           $ " - I V   /"  $ "+  / +  /   '
 
 +%    - 7 .   $ "+  / +    / +  !     /- 
 
 +  !"#  !,#"!/  /   '  '+%  +%. 
 
 
 
           " +    (    #"    "  ",!/           /
 
 +/    / +                ,     
 
 #    "!/    "#     !,     " 
 
 " E R R = " .   -""   "   "  +",  #     " %    R E A D , 
 
 W R I T E ,   E N C O D E     D E C O D E .     !#"    """,,     '"    (, 
 
 .)/  '  $- !'"'    " N " ,     !""    #!" 
 
    N -   "   (. 
 
 
 
           #"  +",  ++  !#.)  (: 
 
 
 
        (      "  (                !"
 
 
 
               5               #!" /              (    /
 
                               !  !'"  3                
 
             2 3               #!" /               "# /  (
 
                                                                     / +
 
             4 5               #!" /              !!"!",   - 
 
                                                                         $ "
 
             4 6               #!" /               +  &
 
                                                                     $ "
 
 
 
 
 
 
 
           1 0 . 1 0 . 1 .   $ "+  / +
 
 
 
 
 
             +  $ "  / +  '"."        !+- 
 
 ."  $ "+  !     +      - 7 .   !,
 
 !!""     /          - 7 ,         " +    !#"
 
 ( )    "/  !. 
 
 
 
                "  '"!"      !    "- 
 
  !+"!/  ( #!""!/    #,)         #   "- 
 
 !/  ",  7 - "+  !  - 7 .        +    "    '"!"
 
 !+"!/  !    #,. 
 
 
 
              +    '".)  #!" !"  ( T T :     L P : )    - 
 
 "  !,   /+            !,     //"!/
 
 !   "   "  ( < C R > ) .      "   "
 
 
 
 
 
 
 
                                                     -   4 4   - 
 
 
 
                                         0 0 0 1 4   -   0 1 . 3 3 . 0 2 
 
 
 
 
 
 "  +",    !,     "/    $ - 
 
 "  "  "      "   " F O R M A T " .    +  !      !
 
   +"!/    "  " #"!/    # /.). 
 
 
 
 
 
 
 
           1 0 . 1 0 . 2 .   $ "+  / +
 
 
 
 
 
               +    $ "    / +    !'"+."
 
   !+."  '+  !     +,     - 
 
 /."  $ &.    # .    & .        +
 
 ,"/.   # /.)/    $ &/    %"!/        
 
   $    !,#"!/         &     $    !
 
 ),.  !",+%   "   "  " B A C K S P A C E " . 
 
 
 
             !!""    2 5 6   !,    # +%  "  0       2 5 5 
 
   ! "  ",   !+.)  !,   " +  '."- 
 
 !/    .   "  '"!/  !  2 5 4   !     "!/  
 
  "       '  .     !  2 5 5   ! "- 
 
 !/  '!  !,   " +  '."!/    .   #!"- 
 
 +  "  1 5     !  2 5 5   //"!/     &  $.   - 
 
 /  !,  "  !!""          !        #+"
 
  !  &  !  "!",  '  ;   #!"+
 
 "  !" (    /  !- !    "  //"!/   - 
 
   !  &  $. 
 
 
 
   ,   #!",  !  3   !  ( !, ')   0   
 
 $ "  $  //."!/: 
 
 
 
                             1 0 0 0 4 0 ,   4 0 ,   2 
 
 
 
   !  4   !  ( !, '+)   1     "        $ - 
 
 "  $: 
 
 
 
                             1 0 6 ,   5 6 ,   4 6 ,   1 0 0 0 0 3 
 
 
 
 -"  "  " #"!/  !#.)   : 
 
 
 
             0   ! "  !  1 ,   2     '  !  3 .     !,
 
 0    )"!/  !    0   "  0     (     .'/)     4 0     "
 
   0 .   !,  2     //"!/    !,.    " E N D F I L E " ,     #
 
 "  # 1 5 ,   %/)!/      &    #"/    !;     !
 
 " E N D F I L E "     ."  +.   !,  3     +"  .   '- 
 
 /!,  !  4 0   "  0        /!,    (   .'/)   - 
 
 "  4 6     1 .     1      -"  "  ! "    !,    4 
 
 ( !  "  4 6     5 6 )     !,  5   ( !  "  5 6     1 0 6 ) .   !,- 
 
 #  #!"  "  !" (    /  !  2 5 5         1 ,     "
 
 !,,    %/)/      1       2 ,   "!#"!"#",     ". . 
 
 -""  $  ! "  5   !. 
 
 
 
           -""  $ "  $  //"!/  !"+  /  $ " - I V 
 
     "  +",    !,      ,     !+    
 
  #  /+.   /  '"/    !  $,   !   - 
 
  ,   !+     #    /+,     #    !,",
 
 $ "+  / +  /  +%      - 7     / +  !
 
  /+  !"#  /  '+%  +%. 
 
 
 
                                                       -   4 5   - 
 
 
 
                                           0 0 0 1 4   -   0 1 . 3 3 . 0 2 
 
 
 
 
 
           1 0 . 1 0 . 3 .   / +  !   /+  !"#
 
 
 
 
 
             +  / +  !   /+  !"#  !'"+."  
 
 !+."  '+  !  !  $!   .   !" #"#- 
 
    '!  !  /  $  !     /+    !"#     - 
 
 /"!/   "   " D E F I N E   F I L E "         .'    R E C O R D S I Z E     
 
  "   O P E N .   !,  ! "    ",    #+    +, 
 
 $ &/  # /     "  !    !,#."!/. 
 
 !" #"#   !  !   /+  !"#    !"  "  $'!- 
 
         #!" !"  / +.          &/
 
 #"    -$$",   !      !   "  '!#  2 5 6 
 
   //"!/    ". 
 
 
 
 
 
 
 
           1 0 . 1 1 .   !!"      ! /         +%
 
                          '+%  "
 
 
 
 
 
              !   '!     "'!"  !  '!    - 
 
   "'!"  '!  !    "'!",.    "        '
 
 ",!/  ,(,   '  '!     "'!",     !
 
   +  +  +  +",   +.     : 
 
 
 
             D O U B L E   P R E C I S I O N   D 
 
             A = 5 5 . 1 
 
             D = 5 5 . 1 D 0 
 
             I F ( A . L T . D ) S T O P 
 
 
 
                 " A "   ,(  " D " ,   ". .   5 5 . 1   //"!/     - 
 
 '!  '   ,..      !   2 4 - "/     /
 
 ( "!!)   '!",  " A "    !( /"!/    3 2   ",    +%    #.. 
 
 -"  3 2   "    (     /    ,(    3 2     "    (
 
  /  " D "     -"#  " D "      !   ,(  " A " . 
 
 
 
              !   '!       "'!"    !    " +
 
  #  '/  (     5 . 5 1 )   '!     "'!"
 
 #"  ,(  '!  !    "'!",.   /   #.
 
          '!    "'!"      '!    - 
 
    "'!". 
 
 
 
 
 
 
 
                                                       -   4 6   - 
 
 
 
                                           0 0 0 1 4   -   0 1 . 3 3 . 0 2 
 
 
 
 
 
                         1 1 .    !"  +%    $ " - I V 
 
 
 
 
 
 
 
 
 
           1 1 . 1 .   $ "  &+%  '!
 
 
 
 
 
 
 
                   
 
                 : - - - - : - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - : 
 
                 :   0 = + :                 '  '!                                : 
 
                 :   1 = - :                                                                             : 
 
                 : - - - - : - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - : 
 
               1 5       1 4                                                                             0 
 
 
 
           &+  " &",+  '!    % /"!/        ",
 
 .   !  !,#"!/  .'  /"   " / I 4 " ,   &#  '!- 
 
 #  ""!/    !,   %"/  ",  !  !" (     /
 
 ( .)  ,(   !) ,   //"!/    ').         #'.
 
 &+  ""!/    !.   !&$&  /  +    &+%
 
 ( I N T E G E R * 2     I N T E G E R * 4 )   !  ##"  ",    ""     
 
 .'  " / I 4 " .   &+  !""+  +  %",!/       %
 
 "  - 3 2 7 6 7     + 3 2 7 6 7 .     : 
 
 
 
                         + 2 2   =   0 0 0 0 2 6   ( !, '/) 
 
                           - 7   =   1 7 7 7 7 1   ( !, '/) 
 
 
 
 
 
 
 
           1 1 . 2 .   $ "+  '!  !  .)  /"
 
 
 
 
 
            /  /  2 - !    4 - !  $ "  !  .- 
 
 )  "'  % "!/  !  +"  1 2 8   ( 2 0 0   !, '+%) .   ". . 
 
  /  "  - 1 2 8     + 1 2 7    !"+  '+  -"- 
 
   '!  "  0     2 5 5   ( "  0     3 7 7   !, '+%) . 
 
 
 
            +  '!"   !"+      "!!+  !    
 
 $!   !  '  "'.   '!  !'"."!/   - 
 
 +    -"#  !" (    /    % "!/,   ". .   
 
 +"'  ( -""    /  +"!/  " ! +"+    /     - 
 
 &" ) .   +    /     1 ,   !   /           0 
 
 ( ". .   $"'!       - 1 2 8 ) ,        "    !#'    -""
 
   /     0 .   '!,      #.,    !"/"!/        -"%
 
 $ "%  #/    '"+ ,/  !,   ! )  #. 
 
 
 
             +. 
 
 
 
           '!  + 1 . 0    !"    #%!  $ "    : 
 
 
 
   . W O R D                   4 0 2 0 0 , 0 
 
 
 
     '"+ %!  $ "    : 
 
 
 
 
 
                                                       -   4 7   - 
 
 
 
                                           0 0 0 1 4   -   0 1 . 3 3 . 0 2 
 
 
 
 
 
   . W O R D                   4 0 2 0 0 , 0 , 0 , 0 
 
 
 
           '!  - 5     #%!  $ "  "  : 
 
 
 
   . W O R D                   1 4 0 6 4 0 , 0 
 
 
 
   '"+ %!: 
 
 
 
   . W O R D                   1 4 0 6 4 0 , 0 , 0 , 0 
 
 
 
 
 
 
 
           1 1 . 2 . 1 .   $ "  )!"  '!    ( #!+
 
                           $ "  !  .)  "') 
 
 
 
 
 
 
 
                 
 
               : - - - - : - - - - - - - - - - - - - - - : - - - - - - - - - - - - - - - - - - - - - - - - - - : 
 
 !1   :   0 = + :       '+        :       !" (    /+                : 
 
               :   1 = - :    /  +   1 2 8   :       "!!+                              : 
 
               : - - - - : - - - - - - - - - - - - - - - : - - - - - - - - - - - - - - - - - - - - - - - - - - : 
 
             1 5       1 4                             7   6                                                   0 
 
 
 
 
 
               - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 !2   :                                                                                               : 
 
               :       (    /+  "!!+                                        : 
 
               - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
             1 5                                                                                               0 
 
 
 
           !,#  "  !" (    /  "!!+    !     
 
 1 ,   "    " !+"!/,   $"'!/    "'!",     /"!/
 
 2 4   '+  &$ .   '  )!"  '+    %- 
 
 "!/     %  "  0 . 2 9 * 1 0 * * 3 8     1 . 7 * 1 0 * * 3 8 . 
 
 
 
 
 
 
 
           1 1 . 2 . 2 .   $ "    '!    !        "'!",.
 
                           ( 4 - !+  $ "  !  .)  "') 
 
 
 
 
 
 
 
                 
 
               : - - - - : - - - - - - - - - - - - - - - : - - - - - - - - - - - - - - - - - - - - - - - - - - : 
 
 !1   :   0 = + :       '+        :       !" (    /+                : 
 
               :   1 = - :    /  +   1 2 8   :       "!!+                              : 
 
               : - - - - : - - - - - - - - - - - - - - - : - - - - - - - - - - - - - - - - - - - - - - - - - - : 
 
             1 5       1 4                             7   6                                                   0 
 
 
 
 
 
               - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 !2   :                "!!+                                          : 
 
               :                                                                                               : 
 
               - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
             1 5                                                                                               0 
 
 
 
 
 
 
 
 
 
                                                       -   4 8   - 
 
 
 
                                           0 0 0 1 4   -   0 1 . 3 3 . 0 2 
 
 
 
 
 
 
 
               - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 !3   :                                                                                               : 
 
               :                "!!+                                          : 
 
               - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
             1 5                                                                                               0 
 
 
 
 
 
 
 
               - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 !4   :                                                                                               : 
 
               :             (    /+  "!!+                                  : 
 
               - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
             1 5                                                                                               0 
 
 
 
           $"'!/  "'!",  -   5 6   '+%    /       - 
 
 ",  1 7   !/"'+%  &$ .   '  '+  !    
 
 "'!",.  "     %  "  0 . 2 9 * 1 0 * * - 3 8     0 . 1 7 * 1 0 * * 3 9 . 
 
 
 
 
 
 
 
           1 1 . 2 . 3 .   $ "  !  '!
 
 
 
 
 
 
 
                 
 
               - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 !1   :   0 = + :       '+        :       !" (    /+: 
 
               :   1 = 1 :    /  +   1 2 8   :       "!!+              :   )!"- 
 
               - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
             1 5       1 4                             7   6                                   0   /
 
 
 
               - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   '!",
 
 !2   :     (    /+  "!!+                          : 
 
               :                                                                               : 
 
               - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
             1 5                                                                               0 
 
 
 
               - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 !3   :   0 = + :       '+        :       !" (    /+: 
 
               :   1 = - :    /  +   1 2 8   :       "!!+              : 
 
               - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
             1 5       1 4                             7   6                                   0   /
 
 
 
               - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   '!",
 
 !2   :                                                                               : 
 
               :     (    /+  "!!+                          : 
 
               - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
             1 5                                                                               0 
 
 
 
 
 
 
 
           1 1 . 3 .   "+  $ "  ( L O G I C A L * 1 ) 
 
 
 
 
 
               - - - - - - - - - - - - - - - - - - - - - - - - 
 
               :         &  +%        : 
 
               :                                             : 
 
               - - - - - - - - - - - - - - - - - - - - - - - - 
 
               7                                             0 
 
 
 
 
 
 
 
                                                       -   4 9   - 
 
 
 
                                           0 0 0 1 4   -   0 1 . 3 3 . 0 2 
 
 
 
 
 
           !'""!/,   '"  .  #  '  "  '!- 
 
   '  " . T R U E " .     "    $ "    L O G I C A L * 1     #"
 
 +",   !"+  '!  "  + 1 2 7     - 1 2 8 .     -"+    !!
 
 "  $ "   !."!/    !+%  "%. 
 
 
 
 
 
 
 
           1 1 . 4 .   "!"+  $ "
 
 
 
 
 
 
 
               - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 !1   :               !2                     :               !1                   : 
 
               :                                                 :                                               : 
 
               - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
             1 5                                               8   7                                             0 
 
 
 
               - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 !2   :               !4                     :               !5                   : 
 
               :                                                 :                                               : 
 
               - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
             1 5                                               8   7                                             0 
 
                                                                 . 
 
                                                                 . 
 
                                                                 . 
 
 
 
               - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
               :          =   4 0   ( !,-   :               !N   ( N < 2 5 5 )   : 
 
               :                                '+)     :                                               : 
 
               - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
             1 5                                               8   7                                             0 
 
 
 
           +  !  "!"  !""+  "      ". 
 
 '  "!"  !""+  /"!/    !      , 
 
 !  -"  %  ( ". .   !  '!    "!"  !- 
 
 ""+  '") . 
 
 
 
 
 
 
 
           1 1 . 5 .   '!  $ "
 
 
 
 
 
   !":   !1   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
                                 :                                       :                                       : 
 
                                 :                :               3 7 7                   : 
 
                                 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
                               1 5                                     8   7                                     0 
 
 
 
                   !2   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
                                 :                                                        : 
 
                                 :                                                                               : 
 
                                 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
                               1 5                                     8   7                                     0 
 
 
 
   ,:       !3   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
                                 :                                       :                                       : 
 
                                 :                :               0 0 0                   : 
 
                                 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
                               1 5                                     8   7                                     0 
 
 
 
                                                         -   5 0   - 
 
 
 
                                             0 0 0 1 4   -   0 1 . 3 3 . 0 2 
 
 
 
 
 
 
 
                   !4   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
                                 :                                                                               : 
 
                                 :                                                        : 
 
                                 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
                             1 5                                                                                   0 
 
 
 
              +  '!%         $"'!%     &
 
 -"+  '!%  +%  ( L O G I C A L * 4 )    !!" ."!/    
 
 -"+  "    L O G I C A L * 1 .         '!%    + /%    .
 
 #  '  (  "   !!" "!/    - 
 
 '!  '  " !"" . 
 
 
 
 
 
 
 
           1 1 . 6 .   $ "  R A D I X - 5 0 
 
 
 
 
 
             ".   3   !+  +  !  R A D I X - 5 0 . 
 
 
 
                                                                                     "&  3 
 
                      !  R A D I X - 5 0 
 
     - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
           !      !     !, '+        !         R A D I X - 5 0 
 
     - - - - - - - - - - - - ! - - - - - - - - - - - - - - - - - - - - - ! - - - - - - - - - - - - - - - - - 
 
                  !                     4 0                   !                     0 
 
       A   -   Z             !             1 0 1   -   1 3 2             !                 1   -   3 2 
 
                            !                     4 4                   !                     3 3 
 
           .                 !                     5 6                   !                     3 4 
 
         !,#"!/                                    !                     3 5 
 
       0   -   9             !               6 0   -   7 1               !               3 6   -   4 7 
 
 
 
           ".   4   /"   !"",        R A D I X - 5 0      +
 
 !  - 7 .     ,   /     !    - 7     " X 2 8 " 
 
   R A D I X - 5 0   #'"!/    !    !#.)%    !, '+%
 
 '!  ( +'!/  +/."!/    !, '  !!") : 
 
 
 
                             X   =   1 1 3 0 0 0 
 
                             2   =   0 0 2 4 0 0 
 
                             B   =   0 0 0 0 0 2 
 
                             - - - - - - - - - - 
 
                         X 2 B   =   1 1 5 4 0 2 
 
 
 
 
 
 
 
 
 
                                                         -   5 1   - 
 
 
 
                                             0 0 0 1 4   -   0 1 . 3 3 . 0 2 
 
 
 
 
 
                                                                                         "&  4 
 
                                             +  R A D I X - 5 0 
 
           - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
              +  !            "   !              " "  !
 
           - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
                  0 0 0 0 0 0            0 0 0 0 0 0                  0 0 0 0 0 0 
 
                       A     0 0 3 1 0 0                 A     0 0 0 0 5 0                       A     0 0 0 0 0 1 
 
                       B     0 0 6 2 0 0                 B     0 0 0 1 2 0                       B     0 0 0 0 0 2 
 
                       C     0 1 1 3 0 0                 C     0 0 0 1 7 0                       C     0 0 0 0 0 3 
 
                       D     0 1 4 4 0 0                 D     0 0 0 2 4 0                       D     0 0 0 0 0 4 
 
                       E     0 1 7 5 0 0                 E     0 0 0 3 1 0                       E     0 0 0 0 0 5 
 
                       F     0 2 2 6 0 0                 F     0 0 0 3 6 0                       F     0 0 0 0 0 6 
 
                       G     0 2 5 7 0 0                 G     0 0 0 4 3 0                       G     0 0 0 0 0 7 
 
                       H     0 3 1 0 0 0                 H     0 0 0 5 0 0                       H     0 0 0 0 1 0 
 
                       I     0 3 4 1 0 0                 I     0 0 0 5 5 0                       I     0 0 0 0 1 1 
 
                       J     0 3 7 2 0 0                 J     0 0 0 6 2 0                       J     0 0 0 0 1 2 
 
                       K     0 4 2 3 0 0                 K     0 0 0 6 7 0                       K     0 0 0 0 1 3 
 
                       L     0 4 5 4 0 0                 L     0 0 0 7 4 0                       L     0 0 0 0 1 4 
 
                       M     0 5 0 5 0 0                 M     0 0 1 0 1 0                       M     0 0 0 0 1 5 
 
                       N     0 5 3 6 0 0                 N     0 0 1 0 6 0                       N     0 0 0 0 1 6 
 
                       O     0 5 6 7 0 0                 O     0 0 1 1 3 0                       O     0 0 0 0 1 7 
 
                       P     0 6 2 0 0 0                 P     0 0 1 2 0 0                       P     0 0 0 0 2 0 
 
                       Q     0 6 5 1 0 0                 Q     0 0 1 2 5 0                       Q     0 0 0 0 2 1 
 
                       R     0 7 0 2 0 0                 R     0 0 1 3 2 0                       R     0 0 0 0 2 2 
 
                       S     0 7 3 3 0 0                 S     0 0 1 3 7 0                       S     0 0 0 0 2 3 
 
                       T     0 7 6 4 0 0                 T     0 0 1 4 4 0                       T     0 0 0 0 2 4 
 
                       U     1 0 1 5 0 0                 U     0 0 1 5 1 0                       U     0 0 0 0 2 5 
 
                       V     1 0 4 6 0 0                 V     0 0 1 5 6 0                       V     0 0 0 0 2 6 
 
                       W     1 0 7 7 0 0                 W     0 0 1 6 3 0                       W     0 0 0 0 2 7 
 
                       X     1 1 3 0 0 0                 X     0 0 1 7 0 0                       X     0 0 0 0 3 0 
 
                       Y     1 1 6 1 0 0                 Y     0 0 1 7 5 0                       Y     0 0 0 0 3 1 
 
                       Z     1 2 1 2 0 0                 Z     0 0 2 0 2 0                       Z     0 0 0 0 3 2 
 
                            1 2 4 3 0 0                      0 0 2 0 7 0                            0 0 0 0 3 3 
 
                       .     1 2 7 4 0 0                 .     0 0 2 1 4 0                       .     0 0 0 0 3 4 
 
             !.     1 3 2 5 0 0       !.     0 0 2 2 1 0             !.     0 0 0 0 3 5 
 
                       0     1 3 5 6 0 0                 0     0 0 2 2 6 0                       0     0 0 0 0 3 6 
 
                       1     1 4 0 7 0 0                 1     0 0 2 3 3 0                       1     0 0 0 0 3 7 
 
                       2     1 4 4 0 0 0                 2     0 0 2 4 0 0                       2     0 0 0 0 4 0 
 
                       3     1 4 7 1 0 0                 3     0 0 2 4 5 0                       3     0 0 0 0 4 1 
 
                       4     1 5 2 2 0 0                 4     0 0 2 5 2 0                       4     0 0 0 0 4 2 
 
                       5     1 5 5 3 0 0                 5     0 0 2 5 7 0                       5     0 0 0 0 4 3 
 
                       6     1 6 0 4 0 0                 6     0 0 2 6 4 0                       6     0 0 0 0 4 4 
 
                       7     1 6 3 5 0 0                 7     0 0 2 7 1 0                       7     0 0 0 0 4 5 
 
                       8     1 6 6 6 0 0                 8     0 0 2 7 6 0                       8     0 0 0 0 4 6 
 
                       9     1 7 1 7 0 0                 9     0 0 3 0 3 0                       9     0 0 0 0 4 7 
 
 
 
 
 
 
 
                                                         -   5 2   - 
 
 
 
                                             0 0 0 1 4   -   0 1 . 3 3 . 0 2 
 
 
 
 
 
                                                                                            1 
 
 
 
 
 
 
 
                                     "'+    +
 
 
 
 
 
 
 
 
 
 
 
                           1 .   !!  "'+%    
 
 
 
 
 
 
 
                 #"     !" "+  $#&/  $ "- 
 
      "  $ " - I V   ."!/      +,      !(- 
 
  /.)  !" "+  ! !"  /+.   -"    +  !#.- 
 
 ): 
 
 
 
   A S S I G N 
 
               -   /"  #!"",  !""!"     /    +- 
 
                   /    +  #  !&$&    #!" !"    
 
                       $    !    '!           #!" !"
 
                   $ " - I V ; 
 
 
 
   C L O S E 
 
               -    +"  $    #  '!  #!" !"; 
 
 
 
   D A T E 
 
               -    )"  9 - "#.  !" #,   ! )#.    !,- 
 
                      !"  "#)  "+; 
 
 
 
   I D A T E 
 
               -    )"    "     &+%    '/,        !"/.)
 
                   "#)#.  "#:      !/&,   '!,   ; 
 
 
 
   E X I T 
 
               -   '"  +    +     "  # - 
 
                     # /.)    ; 
 
 
 
   U S E R E X 
 
               -   /"  #",    #,   " /    +- 
 
                   /",!/     (.)/  '!",    +  ,"- 
 
                   /; 
 
 
 
   R A N D U 
 
   R A N 
 
               -    )"    !!#'+    '!    !       ,+
 
                    !   #  0     1 ; 
 
 
 
   S E T E R R 
 
               -   /"  ,".  /",   &.    !/.)
 
                   !!"+     +    (,      #+    
 
                    /  +/; 
 
 
 
 
 
 
 
                                                         -   5 3   - 
 
 
 
                                             0 0 0 1 4   -   0 1 . 3 3 . 0 2 
 
 
 
 
 
   E R R T S T 
 
               -   /"    %  +/    +    "  - 
 
                   ",  (     "; 
 
 
 
   E R R S N S 
 
               -   /"  #'",  $ &.    !     #- 
 
                     (. 
 
 
 
 
 
 
 
           1 . 1 .   A S S I G N 
 
 
 
 
 
 
 
               " A S S I G N "   !""    !""!"  !&$- 
 
 &.    $     #    '!    #!" !".         
 
 " A S S I G N "     +",  +    !,/  -"  - 
 
 '!  #!" !"  /   &    / +    (  " 
 
 R E A D     W R I T E )   /  $  !  !",+    !"#,     
 
 /  $  !   /+  !"#  -     !""!"#.)   "- 
 
    " D E F I N E   F I L E " .   '  #!" !"  !""!/    !    
 
 '/    +      "%   ,     $    #"  - 
 
  +"     ).  " C A L L   C L O S E "      "   " C L O S E " ,       
 
 +"!/  +  +  " A S S I G N " .   +  " A S S I G N "   "    !- 
 
 #.)#.  $ #: 
 
 
 
               C A L L   A S S I G N ( N ,   N A M E ,   I ,   M O D E ,   C O N R O L ,   N U M B U F ) 
 
 
 
           /"  ",     +     #",     !",+    #"
 
 +",  #)+,         -"    !#'    /."!/    '/    
 
 #'..   ,   !   #"     !#"!"#",     "    +
 
 +",  .'+  !     (!"#.)     #"+.         "!/
 
 !   #"    +  " A S S I G N " . 
 
 
 
   N 
 
               -      '!  #!" !"      &  !"- 
 
                   "+,        + /; 
 
 
 
   N A M E 
 
               -   "!"/  !" ,   ! )/  !" "    !
 
                   #!" !"    $;   !  #!" !"    #,   "
 
                   !,#"!/  '    #'.;   !    #- 
 
                     /  $,   "        '"!/        #'.; 
 
                   !#)!"#."  "   .',   " +  #"  +",    .'+
 
                     !&$&.  $;   -"  !#.)  .': 
 
 
 
                     / N       -    /"  "!#"!"  # /  - 
 
                                       ";   -""  .'    "/"
 
                                   !"   #"  " C O N T R O L " ; 
 
                     / C       -    /"  #      - 
 
                                    ";   -""  .'    "/"  !"
 
                                    #"  " C O N T R O L " ; 
 
                     / B : N   -   #+"  '!  #$   " N "   /   - 
 
                                   &  / +;    #"  " N "   
 
                                   ",  '  1     2 ;   -""  .'  
 
                                   "/"  !"   #"  " N U M B U F " ; 
 
 
 
                     !  /  //"!/  !&$&  #!" !", 
 
                     "  #!" !"   !!" "!/    #!" !"
 
 
 
 
 
 
 
                                                         -   5 4   - 
 
 
 
                                             0 0 0 1 4   -   0 1 . 3 3 . 0 2 
 
 
 
 
 
                     $  !" #"# +; 
 
 
 
   I 
 
                 -   !  " I "   ,(  #/,   "  " I "   #+"  '!    !- 
 
                         !"   " N A M E " ;   !    " I "     //"!/    #, 
 
                     !"   " N A M E "    "+"!/              
 
                       ",   ! )    #,;     !    " I "     //"!/
 
                     " &",+,       +        +       
 
                      !""!/,     "   +"!/  '- 
 
                       ( * )     !  "# +    +",  +    !&$- 
 
                     &/    $    "    $ ,     '"        " N A M E " , 
 
                     '.)/!/   "   ".          (/
 
                       +    +       #"; 
 
 
 
   M O D E 
 
                 -    /"       " +"/    $        #!" !"; 
 
                     -""   #"  "  +",      !#.)%: 
 
 
 
                       ' R D O '   -   $  ",  '""!/;   //"!/  - 
 
                                       #!" /  (,   !   "!/
 
                                       +"  !    -""  $;   !
 
                                       #+  $    !#)!"#",   "     - 
 
                                       /  +/  +"!/  !)  
 
                                       (  2 8   ( O P E N   F A L L E D   F O R   F I L E ) ; 
 
                       ' N E W '   -   !"!/  +  $  #  ; 
 
                                       -""  $    !""!/  !"/+, 
 
                                             #"   +"  !  ),.  - 
 
                                         +  " C L O S E "       '
 
                                         +;   !  +    +"!/
 
                                         " C T R L   C " ,   $    !% /"!/; 
 
                       ' O L D '   -   $  #  !#)!"#";   !  #+
 
                                       $    !#)!"#",      /  +- 
 
                                       /  +"!/  !)    (  2 8 
 
                                       ( O P E N   F A L L E D   F O R   F I L E ) ;    &/
 
                                       !    -""  $    (; 
 
                       ' S C R '   -   $  !,#"!/  ",     
 
                                       ""'!  !" "!/  !   +"/; 
 
                       !  -""   #"  #),   "    #'.
 
                          " +"/  $   /"!/    "#
 
                           &  / +;   !   
 
                        &,   +/    -"  #!" !", 
 
                       //"!/  " W R I T E " ,   "   "!/  ' N E W ' ; 
 
                       !      &  //"!/  ' R E A D ' ,   "
 
                        "!/  ' O L D ' ; 
 
 
 
   C O N T R O L 
 
               -   #+"     # /      ";   -""
 
                    #"  "  +",      !#.)%: 
 
 
 
                     ' N C '   -   !    /"!/  "    #+- 
 
                                   ."!/;   !   (!"#"     
 
                                   !" ,         !#"     "
 
                                    "; 
 
                     ' C C '   -            !%  %+%  - 
 
                                   !   !!" "!/      # /
 
                                    "; 
 
 
 
                   !  "  !&,+%  ,   !+%  - 
 
                       " A S S I G N " ,   "  "     #!" !"
 
 
 
                                                         -   5 5   - 
 
 
 
                                             0 0 0 1 4   -   0 1 . 3 3 . 0 2 
 
 
 
 
 
                   '"   ."    #'.     ' C C ' , 
 
                      #  #!" !"  -      ' N C ' ; 
 
 
 
   N U M B U F 
 
               -   #+"  '!  #" %  #$ ,   " +  +
 
                   !,",!/  /   &    / +;     +'
 
                   -"  '!     1 ;   !  -""   #"    #),     "
 
                   !,#"!/    #"   #$ . 
 
 
 
 
 
 
 
           1 . 2 .   C L O S E 
 
 
 
 
 
               " C L O S E "    +"  $,   " +"+      #- 
 
   '!  #!" !".     !    $    +    " +"    /
 
 +,   "        +"    !+."!/    !    '!"'
 
 +  #$   +      -""    $.     !    +/
 
 " C A L L   C L O S E "   !  #$ ,   !/+  !    '!    #!" !"- 
 
 ,   !."!/  /  !#.)    !,/,         !/
 
 $ &/,   #'/        +#)    " C A L L     A S S I G N "     /
 
 '!  #!" !"  !" "!/    "&  !/.)  !!- 
 
 "+.   '!  #!" !"  "     !"!/  /
 
  #  $. 
 
 
 
           //   &/  " C L O S E "   +/"!/    !%    " +"+%
 
 '!%  #!" !"%      (    +  (      /- 
 
   #!"     (,     +    " S T O P "         " C A L L 
 
 E X I T " ) . 
 
 
 
           $ "  +  !#.): 
 
 
 
                     C A L L   C L O S E   ( I L U N ) 
 
 
 
 
 
 
 
 I L U N 
 
               -   -"  &/  !"",    /,     -"    !!
 
                     + ,    /.)     '!  #!"- 
 
                    !",   )   +".. 
 
 
 
 
 
 
 
           1 . 3 .   D A T E 
 
 
 
 
 
               " D A T E "   "  !,",!/          
 
 $ " - I V   /  #'/  "#)  "+,   #!"    !!- 
 
 ".       " D A T E "   ++"!/  !#.)   : 
 
 
 
                     C A L L   D A T E ( M A S S ) 
 
 
 
 
 
 
 
 M A S S 
 
               -     ",     +    !!,     ! )
 
                   9 - "#.  !" #. 
 
 
 
 
 
 
 
                                                         -   5 6   - 
 
 
 
                                             0 0 0 1 4   -   0 1 . 3 3 . 0 2 
 
 
 
 
 
           !&$&/  !!        +    "    +",    + 
 
 ",  : 
 
 
 
 1 )   /  !!: 
 
 
 
                     C A L L   D A T E ( A ) 
 
 
 
   "    +  "     -"    )!"    !!    " A " 
 
 !,#."!/  /  % /  !"   "+; 
 
 
 
 2 )   -"  !!: 
 
 
 
                     C A L L   D A T E ( A ( I ) ) 
 
 
 
 
 
 
 
 A ( I ) 
 
               -   9 - "/  !"     '"!/    !    I - "    -"
 
                   !!  " A " . 
 
 
 
           "   "!/    9 - "/  ( 9 - !,/)   !"   
 
 $ : 
 
 
 
                     D D - M M M - Y Y 
 
 
 
 
 
 
 
 D D 
 
                 -     &$ +  '!; 
 
 
 
 M M M 
 
                 -   !&$&/  !/&    " %  #; 
 
 
 
 Y Y 
 
                 -   !    &$ +  . 
 
 
 
   : 
 
 
 
                       1 0 - J A N - 8 0 
 
 
 
 
 
 
 
           1 . 4 .   I D A T E 
 
 
 
 
 
               " I D A T E "    )"    "     &+%    '/, 
 
 !""!"#.)  "#)#  !/&#,     .,     #.     +    "
 
 $ #: 
 
 
 
                     C A L L   I D A T E ( I , J , K ) 
 
 
 
           !  "#)/  "  +  1 0   / /  1 9 8 0   ,   "    '- 
 
 /  &+%   +%  ##"
 
 
 
                     I   =   0 1 
 
                     J   =   1 0 
 
                     K   =   8 0 
 
 
 
 
 
 
 
                                                         -   5 7   - 
 
 
 
                                             0 0 0 1 4   -   0 1 . 3 3 . 0 2 
 
 
 
 
 
           1 . 5 .   E X I T 
 
 
 
 
 
           +    +  " E X I T "   "  !#.)#.  $ #: 
 
 
 
                     C A L L   E X I T 
 
 
 
 -"  -"   " #  " S T O P " ,       "     /- 
 
 /"!/  !)     (    +.            - 
 
 ("!/.   !  $+   +."!/    #    "!/  - 
 
 " #. 
 
 
 
 
 
 
 
           1 . 6 .   U S E R E X 
 
 
 
 
 
               " U S E R E X "   /"    ",      #, 
 
  (.)#.   "#      +.     -"    /"     ",
 
   +/,   #!"+    $ " !%    %.     $ 
 
 +    +  !#.)/: 
 
 
 
                     C A L L   U S E R E X ( N A M E ) 
 
 
 
 
 
 
 
 N A M E 
 
               -   /    +,   "    "!/  #     
 
                   &   "+    !"      " /        +",
 
                   !     "   " E X T E R N A L "       #,     " +
 
                    "    /    U S E R E X . 
 
 
 
           #    "!/    !" #&    " J M P "     !    !%
 
  &# ,   " #+%  /  '/    +.     -"     '
 
 # /   "!/  !"  +'   '    # /
 
 " #.   "   ,   !  ,".  %   - 
 
 ",  #   " #,   "    ,   #/     - 
 
    " U S E R E X " ,     +",  !""!"#.)   &# +
 
 +%,   ". .    "   R E T U R N . 
 
 
 
 
 
 
 
           1 . 7 .   R A N D U ,   R A N 
 
 
 
 
 
            "   !#'+%  '!  "  +",  +      - 
 
     " R A N D U "       #" //    $#&/    " R A N " .     +
 
   +  +/"!/  !#.)   : 
 
 
 
                     C A L L   R A N D U   ( I ( 1 ) ,   I ( 2 ) ,   X ) 
 
 
 
 
 
 
 
 I ( 1 )     I ( 2 ) 
 
               -     ",   +  &+   +; 
 
 
 
 
 
 
 
                                                         -   5 8   - 
 
 
 
                                             0 0 0 1 4   -   0 1 . 3 3 . 0 2 
 
 
 
 
 
 X 
 
               -   /  )!"   ,     " #.     "!/
 
                   !#'  '!  #  0     1 . 
 
 
 
            #"+  I ( 1 )     I ( 2 )   +  +",   ',    #!"- 
 
 +    #,.   I ( 1 )     I ( 2 )      /    +    - 
 
 " #."!/.   " /  #!"  I ( 1 )     I ( 2 )   " /"    !- 
 
 ",!",  !#'+%  '!.   '/   +%    I ( 1 )     
 
 I ( 2 )   ."  !&,#.  $ #;     -"%   +%  +  % - 
 
 ",!/  ",  0     #'+  "      '/  I ( 1 ) 
 
   I ( 2 ) . 
 
 
 
           !,          !#'+%    '!    
 
 !,.  $#&  R A N ,   
 
 
 
                     X   =   R A N   ( I ( 1 ) ,   I ( 2 ) ) 
 
 
 
 //"!/  $#&,  $    "   !#'+%  '!. 
 
 
 
 
 
 
 
           1 . 8 .   S E T E R R 
 
 
 
 
 
               " S E T E R R "   /"    ,".     - 
 
 /",     &.  !/.)  !!"+        ('+    !"#&, 
 
  #+     /  +/    +.   ",  !- 
 
 "  (  1   -   1 6   "  +",        "(.        %
 
 !!$&.   !  +"",!/  # /",     &    !!"+
 
   (  "  0     2 0   -   6 3 ,   "  +    +   - 
 
 "!/,       -"  !#'  "   "    #!(   (
 
   +.   $   +: 
 
 
 
                     C A L L   S E T E R R   ( N U M B E R , N C O U N T ) 
 
 
 
 
 
 
 
 N U M B E R 
 
               -   &/   /    + ,    /.)   
 
                   (  O T S ; 
 
 
 
 N C O U N T 
 
               -   &/   /    +   !        !#.- 
 
                   )%  '; 
 
 
 
 0 
 
               -     #."!/  !  //    (         - 
 
                    ,     !)        /    +"!/    
 
                   "    " ; 
 
 
 
 1 
 
               -        /    (  #"    $",+
 
                     +    +    ""!/; 
 
 
 
 2   -   1 2 7 
 
               -   N -   /  (  #"    $",+;          +%
 
                   " N - 1 "   //%  ##"     !'"+    !)/    
 
                   " ; 
 
 
 
 
 
 
 
                                                         -   5 9   - 
 
 
 
                                             0 0 0 1 4   -   0 1 . 3 3 . 0 2 
 
 
 
 
 
 1 2 8   -   2 5 5 
 
               -     #."!/  !  //  (. 
 
 
 
 
 
 
 
           1 . 9 .   E R R T S T 
 
 
 
 
 
               " E R R T S T "   /"      ,"/
 
  /",  '  "%    +%  (,      #+%    
 
  /  +/    +.   $   +  !#.)/; 
 
 
 
                     C A L L   E R R T S T   ( I , J ) 
 
 
 
 
 
 
 
 I 
 
               -      (,   /  "         +",    +
 
                     ; 
 
 
 
 J 
 
               -    /  "  " I N T E G E R * 2 "         -"    !!
 
                   /  #'/  !!"//  (:   J = 1 ,     !    (
 
                   /!,;   J = 2 ,   !  "  (. 
 
 
 
           +  " E R R T S T "   #/"  $- !'"'  (  /    -"
 
 !!  (. 
 
 
 
 
 
 
 
           1 . 1 0 .   E R R S N S 
 
 
 
 
 
              +    +  " E R R S N S "     ",  "    #/
 
   #%   #".   !  !,#"!/  +     #", 
 
 "   +#)  +    (  (     (%)     ')."!/, 
 
 //  "       #  (     +%   - 
 
  %  !&/%.   +'+  +: 
 
 
 
                   C A L L   E R R S N S   ( A , B ) 
 
 
 
 
 
 
 
 A 
 
             -    /  "  " I N T E G E R * 2 "   (   -"  !!) , 
 
                   " #.  )"!/  '!    !    (- 
 
                 ;   !  (  ",   )"!/  #,; 
 
 
 
 B 
 
             -    /  "  " I N T E G E R * 2 "   (   -"  !!) , 
 
                   " #.  )"!/     '!    #!" !"
 
                 / +,   !  " +  !/  (,   !  !/
 
                 !//  (  +  !/  !  / +. 
 
 
 
                                                           -   6 0   - 
 
 
 
                                               0 0 0 1 4   -   0 1 . 3 3 . 0 2 
 
 
 
 
 
 
 
                                                                                      2 
 
 
 
 
 
 
 
                           " ,- !" &/  '. 
 
 
 
 
 
              "#   "   !  /+  $ "       
 
 $#&  !'"  !#+  -"  #   !!. 
 
 
 
                           F U N C T I O N     S U M ( A , M , N ) 
 
                           D I M E N S I O N     A ( M , N ) 
 
                           S U M = 0 . 0 
 
                           D O   1 0 ,   I = 1 , M 
 
                           D O   1 0 ,   J = 1 , N 
 
           1 0             S U M = S U M + A ( I , J ) 
 
                           R E T U R N 
 
                           E N D 
 
 
 
 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
                 !"/   "           !               " 
 
                                                               !           -   !/
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
     .'"  !,     "-   ! 
 
     /,   ,   !","     %!        #"!/  !  - 1 1 
 
         !!"#.  !"#.   !       . 
 
                                                               ! 
 
     !  #"  !!"#.  !- ! 
 
     "#    !""!"  !   '-   ! 
 
       "&:   !  #  !      ! 
 
       !!"  !"  "  $- ! 
 
       S Y S L I B . O B J     "  !! 
 
     !"    5 1   ,   !% "  ! 
 
        '  !"  #+  ! 
 
     +  "  $+    #"! 
 
     %  !  !!"+.   "       ! 
 
     #  !",    +#.  ! 
 
     !",    5 1   .                       ! 
 
                                                               ! 
 
     !","            ! 
 
     !"#,   % /)#.  $ " .       ! 
 
     ! #"  S Y S L I B . O B J     !!- ! 
 
     "#.  !"#:                             ! 
 
                                                               ! 
 
         . C O P   B Y 1 : S Y S L I B     B Y 0 :     < > !       C O P     B Y 1 : S Y S L I B     B Y 0 : 
 
                                                               !       . 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
     +"   "   S T A R T             !     !" "    V   .    !
 
                                                               !     !    !"   - 
 
     . R   S T A R T                                           !     0 - 3 2 / 1 - 6 4 / - 2 - 8 0 : 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
     2     < >                                             !     /  $? 
 
     P R I M . F O R     < >                               ! 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
                                                               !     !",?   ( 4/ =) 
 
     D       < >                                           ! 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 
 
 
 
                                                           -   6 1   - 
 
 
 
                                               0 0 0 1 4   -   0 1 . 3 3 . 0 2 
 
 
 
 
 
 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
                 59AB28O  >?5@0B>@0          !               >B>1@065=85
 
                                                               !         =0  M:@0=5  48A?;5O
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
                                                               ! 
 
                   F U N C T I O N     S U M ( A , M , N )     !             F U N C T I O N     S U M ( A , M , N ) 
 
                   D I M E N S I O N   A ( M , N )             !             D I M E N S I O N   A ( M , N ) 
 
                   S U M = 0 . 0                               !             S U M = 0 . 0 
 
                   D O   1 0 ,   I = 1 , M                     !             D O   1 0 ,   I = 1 , M 
 
                   D O   1 0 ,   J = 1 , N                     !             D O   1 0 ,   J = 1 , N 
 
     1 0           S U M = S U M + A ( I , J )                 ! 1 0         S U M = S U M + A ( I , J ) 
 
                   R E T U R N                                 !             R E T U R N 
 
                   E N D                                       !             E N D 
 
                                                               ! 
 
   = ! = >     E                                               !     ? ? ?    (",? ( / ) 
 
     D     < >                                             ! 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
                                                               !     /  $? 
 
     !#/ !                                                  !     . 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
     +"  /"                     ! 
 
     . R U   F O R T R A N     < >                         !     R U   F O R T R A N 
 
                                                               !     * 
 
                                                               ! 
 
     * P R I M = P R I M     < >                           !     P R I M = P R I M 
 
                                                               !     S U M 
 
                                                               !     * 
 
     * !#/ !                                                !         !
 
                                                               !     . 
 
     . D I R                                                   !        '  !"  - 
 
                                                               !     $    P R I M . O B J 
 
                                                               !     . 
 
     +"  )                  ! 
 
                                                               ! 
 
     . R   L I N K                                             !     R   L I N K 
 
                                                               !     * 
 
     * P R I M = P R I M ,   F O R L I B                       !     P R I M = P R I M ,   F O R L I B 
 
                                                               !     * 
 
                                                               ! 
 
     * !#/ !                                                !         !
 
                                                               !     . 
 
                                                               ! 
 
     . D I R                                                   !        '  !"  - 
 
                                                               !      #'+  $
 
                                                               !     P R I M . S A V ,   "+  
 
                                                               !     !.
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 
 
               < >   -   "!"/  !"       < = = = / / 
 
 