        - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
         !                                                                                                                                                 ! 
 
         !                                                                                                                                                 ! 
 
         !                                                                                                                                                 ! 
 
         !                         #"                                                                                                       ! 
 
         !                                                                                                                                                 ! 
 
         !           0 0 0 1 4   -   0 1 . 3 5 . 0 2 - #                                                                                                ! 
 
         !                                                                                                                                                 ! 
 
         !                                                                                                                                                 ! 
 
         !                                                                                                                                                 ! 
 
         !                                                                                                                                                 ! 
 
         !                                                                                                                                                 ! 
 
         !                                                                                                                                                 ! 
 
         !                                                                                                                                                 ! 
 
         !                                                                                                                                                 ! 
 
         !                                                                                                                                                 ! 
 
         !                                                                                                                                                 ! 
 
         !                                                                                                                                                 ! 
 
         !                                                                                                                                                 ! 
 
         !                                                                                                                                                 ! 
 
         !                                                                                                                                                 ! 
 
         !                                                                                                                                                 ! 
 
         !                                                                                                                                                 ! 
 
         !                                                                                                                                                 ! 
 
         !                                                                                                                                                 ! 
 
         !                                                                                                                                                 ! 
 
         !                                                     /    +                                                      ! 
 
         !                                                                                                                                                 ! 
 
         !                                                         " ""  -   3 "                                                           ! 
 
         !                                                                                                                                                 ! 
 
         !                                                                 $ "                                                                   ! 
 
         !                                                                                                                                                 ! 
 
         !                                                           !  /+                                                          ! 
 
         !                                                                                                                                                 ! 
 
 - - - - !                                                         0 0 0 1 4   -   0 1 . 3 5 . 0 2                                                         ! 
 
 !   !   !                                                                                                                                                 ! 
 
 !   !   !                                                                                                                                                 ! 
 
 !   !   !                                                               !"  1 5 7                                                               ! 
 
 !   !   !                                                                                                                                                 ! 
 
 !   !   !                                                                                                                                                 ! 
 
 !   !   !                                                                                                                                                 ! 
 
 !   !   !                                                                                                                                                 ! 
 
 ! - + - !                                                                                                                                                 ! 
 
 !   !   !                                                                                                                                                 ! 
 
 !   !   !                                                                                                                                                 ! 
 
 !   !   !                                                                                                                                                 ! 
 
 !   !   !                                                                                                                                                 ! 
 
 ! - + - !                                                                                                                                                 ! 
 
 !   !   !                                                                                                                                                 ! 
 
 !   !   !                                                                                                                                                 ! 
 
 !   !   !                                                                                                                                                 ! 
 
 !   !   !                                                                                                                                                 ! 
 
 !   !   !                                                                                                                                                 ! 
 
 ! - + - !                                                                                                                                                 ! 
 
 !   !   !                                                                                                                                                 ! 
 
 !   !   !                                                                                                                                                 ! 
 
 !   !   !                                                                                                                                                 ! 
 
 !   !   !                                                                                                                                                 ! 
 
 !   !   !                                                                                                                                                 ! 
 
 !   !   !                                                                                                                                                 ! 
 
 !   !   !                                                                                                                                                 ! 
 
 ! - + - !                                                                                                                                                 ! 
 
 !   !   !            '.    .                                                       "   o                               ! 
 
 !   !   !             0 0 0 1 4 - 0 1 . 0 0 . 0 1                                                                                                         ! 
 
 !   !   !                                                                                                                                                 ! 
 
 !   !   !                                                           1 9 9 0                                                                               ! 
 
 !   !   !                                                                                                                                                 ! 
 
 + - + - + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 
 
 
 
                                                               -   2   - 
 
 
 
                                                       0 0 0 1 4 . 0 1 . 3 5 . 0 2 
 
 
 
 
 
 
 
 
 
 
 
                                                       "&/
 
 
 
 
 
 
 
 
 
 
 
 
 
                 +  #"  ! "  !  /+  $ "   - I V : 
 
 -"  /+,   $#&,    '/   " ,   %
 
 $ "+. 
 
 
 
                      1   !+  -"+    !" #"#     +  
 
 $ " . 
 
 
 
                      2     !  $ "    !" . 
 
 
 
                 -"+    !" #"#   +%  $ "   !+       3 . 
 
      "!/     !  "   "   $ " , 
 
 "  +%. 
 
 
 
                    4     ! "  !  + . 
 
 
 
                  " +  /+  !+         5 . 
 
 
 
                      6   !)  !.    ,   %   " , 
 
  $"'!%     "   -   $#&        - $#&. 
 
 
 
                   #"    "!/  2    /  ! )%  ! '+
 
 !/    /+#    $ " . 
 
 
 
                 -        1   +     !  /+    $ " , 
 
                     !,+           !  R A D I X - 5 0 ; 
 
 
 
                 -        2      "  +  !+  !/  
 
  " %  /+       ',  "'+%  $#&    $ " ; 
 
 
 
 
 
 
 
 
 
                                                                 -   3   - 
 
 
 
                                                       0 0 0 1 4 . 0 1 . 3 5 . 0 2 
 
 
 
 
 
 
 
                                     ! 
 
 
 
 
 
                   "&/                                                                                                    2 
 
 
 
 
 
 
 
 1 .   )  !/    !!  !/    /+                                                    7 
 
 
 
 1 . 1 .         "+    +    $ "                                                         7 
 
 1 . 1 . 1 .      " +                                                                                                      7 
 
 1 . 1 . 2 .     "                                                                                                   7 
 
 
 
 2 .   -"+    !+  !" #&  /+                                                        8 
 
 2 . 1 .          !  $ "                                                                               8 
 
 2 . 2 .         $ "  !"   $ "                                                               8 
 
 2 . 3 .       !,       /    $ "                         9 
 
 2 . 2 . 2 .   !,     "   "!"                                                          1 0 
 
 
 
 3 .   -"+  +%  $  - I V                                                                               1 1 
 
 3 . 1 .     $" +                                                                                                1 1 
 
 3 . 2 .     "+  +%                                                                                                    1 2 
 
 3 . 3 .     !""+                                                                                                        1 4 
 
 3 . 3 . 1 .     &+    !""+                                                                                      1 4 
 
 3 . 3 . 2 .     )!"+    !""+                                                                        1 5 
 
 3 . 3 . 3 .     !""+  !    "'!",.                                                            1 6 
 
 3 . 3 . 4 .     !+    !""+                                                                          1 7 
 
 3 . 3 . 5 .     !, '+    !""+                                                                        1 7 
 
 3 . 3 . 6 .     '!    !""+                                                                            1 8 
 
 3 . 3 . 7 .     "!"+  !""+                                                                                1 8 
 
 3 . 3 . 7 . 1 .   #- &$ +  " +                                                                1 9 
 
 3 . 3 . 7 . 2 .    ,    /.)  "+    +%, 
 
                    !"+%        "!"+%  !""                                  1 9 
 
 3 . 3 . 8 .       !,  !""      R A D I X - 5 0                                                       2 0 
 
 3 . 4 .            +                                                                                                2 1 
 
 3 . 4 . 1 .       !&$&/  "  +%                                                                    2 1 
 
 3 . 5 .           !!+                                                                                                      2 2 
 
 3 . 5 . 1 .       !"  !!                                                                                2 3 
 
 3 . 5 . 2 .       !!    !                                                                                    2 3 
 
 3 . 5 . 3 .        !  !!  /"                                                            2 4 
 
 3 . 5 . 4 .       "  +%  !!                                                                                2 6 
 
 3 . 5 . 5 .        )/    !!    !,/
 
                   !!  !                                                                                      2 6 
 
 3 . 5 . 6 .       !!+  !   +   &                                                      2 6 
 
 
 
 4 .     + /                                                                                                            2 8 
 
 4 . 1 .      $"'!  + /                                                                          2 8 
 
 4 . 1 . 1 .      !                                                                                      2 9 
 
 4 . 1 . 2 .   "  '/   $"'!  + /                                            3 0 
 
 4 . 2 .       + /  "(                                                                                  3 2 
 
 
 
 
 
 
 
 
 
                                             -   4   - 
 
 
 
                                     0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
 4 . 3 .     '!    + /                                                                                3 3 
 
 
 
 5 .    " +  /+  $ "   - I V                                                                           3 5 
 
 5 . 1 .    " +   !/                                                                                3 5 
 
 5 . 1 . 1 .      $"'!   "    !/                                              3 5 
 
 5 . 1 . 2 .     '!   " +   !/                                                    3 8 
 
 5 . 1 . 3 .      " +  " A S S I G N "                                                                                   3 8 
 
 5 . 2 .          " +  # /                                                                              3 9 
 
 5 . 2 . 1 .      "     " G O   T O "                                                                                     4 0 
 
 5 . 2 . 1 . 1 .    "   #!   %                                                        4 0 
 
 5 . 2 . 1 . 2 .   +'!/+   "    %  " G O   T O "                                           4 1 
 
 5 . 2 . 1 . 3 .    "    %     !.  " G O   ""                                     4 1 
 
 5 . 2 . 2 .        " +  " I F "                                                                                         4 2 
 
 5 . 2 . 2 . 1 .    $"'!   "   #!   %  " I F "                       4 2 
 
 5 . 2 . 2 . 2 .   '!  #!+   "   " I F "                                                   4 3 
 
 5 . 2 . 3 .        "   " D O "                                                                                           4 4 
 
 5 . 2 . 3 . 1 .   #   " &                                                                            4 5 
 
 5 . 2 . 3 . 2 .   !",   "   " D O "                                                               4 6 
 
 5 . 2 . 3 . 3 .    '  # /    +%  " D O "                                           4 7 
 
 5 . 2 . 3 . 4 .    !( /  !",  !"                                                            4 7 
 
 5 . 2 . 4 .        "   " C O N T I N U E "                                                                               4 9 
 
 5 . 2 . 5 .        "   " C A L L "                                                                                       5 0 
 
 5 . 2 . 6 .        "   " R E T U R N "                                                                                   5 0 
 
 5 . 2 . 7 .        "   " P A U S E "                                                                                     5 1 
 
 5 . 2 . 8 .        "   " S T O P "                                                                                       5 2 
 
 5 . 2 . 9 .        "   " E N D "                                                                                         5 2 
 
 5 . 3 .           / +    +%                                                                                5 3 
 
 5 . 3 . 1 .          '!%    #!" !"    +                                  5 4 
 
 5 . 3 . 2 .       #"  $ "                                                                                  5 4 
 
 5 . 3 . 3 .       &+  / +                                                                            5 4 
 
 5 . 3 . 4 .       !!  / +                                                                              5 5 
 
 5 . 3 . 4 . 1 .    !"+  !!                                                                                        5 5 
 
 5 . 3 . 4 . 2 .   !!  !  &                                                                                    5 6 
 
 5 . 3 . 5 .       $ "+  !",+  / +                                      5 8 
 
 5 . 3 . 5 . 1 .    "   $ "  !",
 
                     " R E A D "                                                                                             5 8 
 
 5 . 3 . 5 . 2 .    "   $ "  !",
 
                   +  " W R I T E "                                                                                         5 9 
 
 5 . 3 . 6 .       $ "+  !",+  / +                                          6 0 
 
 5 . 3 . 6 . 1 .    "   $ "  !",
 
                     " R E A D "                                                                                             6 0 
 
 5 . 3 . 6 . 2 .    "   $ "  !",
 
                   +  " W R I T E "                                                                                         6 1 
 
 5 . 3 . 6 . 3 .    "   $ "    " !! ""                                                 6 3 
 
 5 . 3 . 6 . 4 .    "   $ "  +  " T Y P E "                                                   6 3 
 
 5 . 3 . 6 . 5 .    "   $ "  +  " P R I N T "                                                 6 4 
 
 5 . 3 . 7 .       $ "+  / +  !   /+  !"#                                    6 5 
 
 5 . 3 . 7 . 1 .    "   $ "    !   /+  !"#
 
                   " R E A D "                                                                                                         6 5 
 
 5 . 3 . 7 . 2 .    "   $ "    !   /+  !"#
 
                   " W R I T E "                                                                                                       6 6 
 
 
 
 5 . 3 . 8 .       / +    #   !!                                                  6 7 
 
 5 . 3 . 8 . 1 .    "   " R E A D "     #   !!                                        6 8 
 
 5 . 3 . 8 . 2 .    "   " W R I T E "     #   !!                                      7 0 
 
 
 
 
 
                                                                 -   5   - 
 
 
 
                                                       0 0 0 1 4 . 0 1 . 3 5 . 0 2 
 
 
 
 
 
 5 . 3 . 8 . 3 .    "   " A C C E P T "     #   !!                                    7 1 
 
 5 . 3 . 8 . 4 .    "   " T Y P E "         #   !!                                    7 2 
 
 5 . 3 . 8 . 5 .    "   " P R I N T "       #   !!                                    7 2 
 
 5 . 3 . 9 .        '  # /    &#  $      (                    7 3 
 
 5 . 3 . 1 0 .     !",+   " +  / +                                        7 4 
 
 5 . 3 . 1 0 . 1 .  "   " R E W I N D "                                                                                   7 4 
 
 5 . 3 . 1 0 . 2 .  "   " B A C K S P A S E "                                                                             7 5 
 
 5 . 3 . 1 0 . 3 .  "   " E N D F I L E "                                                                                 7 5 
 
 5 . 3 . 1 0 . 4 .  "   " D E F I N E   F I L E "                                                                         7 6 
 
 5 . 3 . 1 0 . 5 .  "   " F I N D "                                                                                       7 7 
 
 5 . 3 . 1 0 . 6 .  "   " P E N "                                                                                       7 8 
 
 5 . 3 . 1 0 . 7 .  "   " C L O S E "                                                                                     8 3 
 
 5 . 3 . 1 1 .      " +  " E N C O D E "     " D E C O D E "                                                           8 3 
 
 
 
 5 . 4 .            " +  " F O R M A T "                                                                                 8 5 
 
 5 . 4 . 1 .           !&$&    /
 
 5 . 4 . 1 . 1 .       !&$&/  " I "                                                                                 8 7 
 
 5 . 4 . 1 . 2 .       !&$&/  " O "                                                                                 8 8 
 
 5 . 4 . 1 . 3 .       !&$&/  " F "                                                                                 8 9 
 
 5 . 4 . 1 . 4 .       !&$&/  " E "                                                                                 9 0 
 
 5 . 4 . 1 . 5 .       !&$&/  " D "                                                                                 9 1 
 
 5 . 4 . 1 . 6 .       !&$&/  " G "                                                                                 9 2 
 
 5 . 4 . 1 . 7 .       !&$&/  " L "                                                                                 9 3 
 
 5 . 4 . 1 . 8 .       !&$&/  " A "                                                                                 9 4 
 
 5 . 4 . 1 . 9 .       !&$&/  " H "                                                                                 9 5 
 
 5 . 4 . 1 . 1 0 .     !&$&/  " X "                                                                                 9 6 
 
 5 . 4 . 1 . 1 1 .     !&$&/  " T "                                                                                 9 6 
 
 5 . 4 . 1 . 1 2 .     !&$&/  " Q "                                                                                 9 7 
 
 5 . 4 . 1 . 1 3 .     !&$&/  "  "                                                                                 9 8 
 
 5 . 4 . 1 . 1 4 .     !&$&/  " : "                                                                                 9 8 
 
 5 . 4 . 2 .            "   !+%  +%                                              9 8 
 
 5 . 4 . 3 .           !("+  -$$&"                                                                    9 9 
 
 5 . 4 . 4 .            #     " /+   #+                                          1 0 1 
 
 5 . 4 . 5 .           !&$&/  !  #)+  '/                                      1 0 1 
 
 5 . 4 . 6 .           #    "                                                                        1 0 2 
 
 5 . 4 . 7 .            ",+    !!  !&$&                            1 0 3 
 
 5 . 4 . 7 . 1 .        "  (%                                                              1 0 4 
 
 5 . 4 . 7 . 2 .        +  !!  !&$&                                                  1 0 5 
 
 5 . 4 . 8 .           !"  # /  $ "    !!
 
                       / +                                                                                      1 0 5 
 
 5 . 4 . 9 .           !     /   "   " F O R M A T "                                       1 0 7 
 
 5 . 4 . 9 . 1 .       )                                                                                       1 0 7 
 
 5 . 4 . 9 . 2 .          /                                                                              1 0 8 
 
 5 . 5 .                " +  !/                                                                          1 0 9 
 
 5 . 5 . 1 .            "   " I M P L I C I T "                                                                         1 0 9 
 
 5 . 5 . 2 .            " +  !/    "                                                              1 1 1 
 
 5 . 5 . 3 .            "   " D I M E N S I O N "                                                                       1 1 2 
 
 5 . 5 . 4 .            "   " C O M M O N "                                                                             1 1 3 
 
 5 . 5 . 4 . 1 .       +    +  )                                1 1 4 
 
 5 . 5 . 4 . 2 .        " +  " C O M M O N "   !  !"/  !!                            1 1 4 
 
 5 . 5 . 5 .            "   " E Q U I V A L E N C E "                                                                   1 1 5 
 
 5 . 5 . 5 . 1 .       #!"  -"!"  !!                                    1 1 6 
 
 5 . 5 . 5 . 2 .       !"   "   " C O M M O N "     
 
                       " E Q U I V A L E N C E "                                                                                     1 1 7 
 
 
 
 5 . 5 . 5 . 3 .        "   " E Q U I V A L E N C E "       !!+    "
 
                       " L O G I C A L * 1 "                                                                                         1 1 7 
 
 
 
 
 
                                                                   -   6   - 
 
 
 
                                                         0 0 0 1 4 . 0 1 . 3 5 . 0 2 
 
 
 
 
 
 5 . 5 . 6 .        "     " E X T E R N A L "                                                                           1 1 8 
 
 5 . 5 . 7 .        "     " D A T A "                                                                                   1 1 9 
 
 5 . 5 . 8 .        "     " P R O G R A M "                                                                             1 2 0 
 
 
 
 
 
 6 .         +                                                                                                  1 2 1 
 
 
 
 
 
 6 . 1 .      " +                                                                                  1 2 1 
 
 6 . 2 .     ,",!    +                                                              1 2 2 
 
 6 . 2 .     $$"'!   " +- $#&                                                        1 2 2 
 
 6 . 2 . 2 .   - $#&/                                                                                1 2 4 
 
 6 . 2 . 3 .     +%  " B L O C K   D A T A "                                                         1 2 7 
 
 6 . 2 . 5 . "'+  $#&  $ "                                                               1 2 8 
 
 
 
 
 
 7 .     ! !"    "                                                                                          1 2 9 
 
 
 
 
 
 
 
          1 .      +    !                                                                1 3 0 
 
 
 
 
 
          2 .     !+    !/    /+  $ " - I V                       1 4 0 
 
 
 
 
 
 
 
                                                             -   7   - 
 
 
 
                                                     0 0 0 1 4 . 0 1 . 3 5 . 0 2 
 
 
 
 
 
                 1 .         )    !/    !!    !/  /+
 
 
 
 
 
 
 
             1 . 1 .     "+      +    $ " 
 
 
 
 
 
                       /+  $ "   !!""     "   $ "- 
 
        /",+%  " .    " +    ' /."!/    
 
 '!      ,     ++    +    #/.      - 
 
  +      #,    //"!/    !",!",.         " , 
 
  /.)  " #.     &# #  +'!/.       -"  !- 
 
 ",!",      '"!/     "       " E N D "   .           +
 
 #,  "    +",        !    ,       - 
 
 ,        - $#&.   +//      !!- 
 
 ""          !      +      .  '!"  - 
 
           - $#&. 
 
 
 
 
 
 
 
             1 . 1 . 1 .        " +
 
 
 
 
 
 
 
 
 
                 !   " +    /"!/        !!:     +/+  
 
 +/+   " +.   +/+     " +      !+."
 
  )    % " !"  +%,     "    ! "    $ - 
 
 &.,   %#.    /   " /      /    - 
 
 +%. 
 
 
 
                  "   !!""        !,%  !" .   !" - 
 
     +"!/    !",!",    !          7 2   
 
 .   !           "      +("    #!"#.    #
 
 !" ,       "    +",         !#.)  !"     
 
 !,%    !#.)%  !" %,     ++%  !"    - 
 
 /.     !"      /  "$& #"!/  '  !
 
  /      (!"  &  -"    !" . 
 
 
 
              "   "    ",  "#,     "    #   "- 
 
  +    #'"  !",   )",!/    #          $ - 
 
 &,       /     '    #    # /.     "     " 
 
 //"!/      &+    '!,   !+         +%  /"  &/%
 
      !"      " . 
 
 
 
 
 
 
 
 
 
                 1 . 1 . 2 .     " 
 
 
 
 
 
             '  " /    /"    +    +; 
 
     !#"    !",    $ &    /      !". 
 
 "       !,#"!/      /    !/   "+    +, 
 
 "$&    +%  !&     &!     ",   /
 
 #!"  '"/  !"    +    %  /+. 
 
 
 
 
 
                                                           -   8   - 
 
 
 
                                                   0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
                 #  " !"        &  !%  !"     #+", 
 
 '"    -"  !"   //"!/    " .     !&",+    
 
 ( ! ) ,   %/)!/    !" ,     #+",     '"    !,  "!",      !- 
 
 +  !  ,   "    //"!/    " . 
 
 
 
 
 
 
 
                           2 .       -"+      !+    !" #&    /+
 
 
 
 
 
 
 
                       2 . 1 .            !    $ " 
 
 
 
 
 
 
 
                        !          /+  $ "   !,#."!/  !- 
 
 #.)    !+: 
 
 
 
               -    !+    #+    "!  $"  "  " "     " Z " ; 
 
 
 
               -   &$ +  "  0       9 ; 
 
 
 
               -   !#.)  !&,+    !+: 
 
 
 
                                                                      
 
                                         =                              !"
 
                                         +                           .!
 
                                         -                           #!
 
                                         *                           '
 
                                         /                           !/  (  /) ' "
 
                                         (                           .  ( " +.)/)   !
 
                                         )                            /  (  +.)/)   !
 
                                         ,                           /"/
 
                                         .                           !/"'/  "'
 
                                         /                           !" $
 
                                         "                           +'
 
                                                                          &+
 
                                         :                           "'
 
 
 
 
 
 
 
 
 
             #+   &+      !",+    '"+    !+    #"
 
 !" '",!/       " %  $ "   ",    '!",  "!"
 
 !""+    #- &$     " .         " /%
 
 #!"!/  !,  .+%  '"+%    !. 
 
 
 
 
 
 
 
                       2 . 2 .           $ "  !"   $ " 
 
 
 
 
 
             $ "  !"     $ "     //"!/    +      /
 
 !" ,    $  #+%     $ ",   "    /  !" ,   - 
 
 +%  !  "      )     "   "!".        '."!/
 
 (,    !!+  $ " /  !" . 
 
 
 
 
 
                                                 -   9   - 
 
 
 
                                       0 0 0 1 4 -   0 1 . 3 5 . 0 2 
 
 
 
 
 
                 2 . 2 . 1 .     i s p o l x z o w a n i e   b l a n k a   p r o g r a m m i r o w a n i q 
 
                                 n a   f o r t r a n e 
 
 
 
               s t r o k a   f o r t r a n   d e l i t s q   n a   p o l q ,   p r e d n a z n a ~ e n n y e       d l q 
 
 !  "     " ,       /,   "!"  - 
 
  "          /+%            " .   /  &/
 
 !"   !""!"#"  #  !#. 
 
 
 
               "   " (       " )   !!""    
 
   !,%  (     /")   !/"'+%    &$ ,    !- 
 
 +%     +%  /"  &/%  ',  !"    " .      - 
 
 +    +  #      #."!/.      )"!/    !,
 
 "   " ,   !!"/)  ",    #. 
 
 
 
               .   " ,     " #  !#)!"#"  !!+     #- 
 
    " ,     ",  "#.          "       
 
     &    +  ",  +%  ". 
 
 
 
                 &  1   "  +",  )  #  " !" .     -"  - 
 
 '",   '"  /  !"   //"!/  " .         /" 
 
 '""  !   -"  !"     !"      !%     - 
 
  +,   !  '  -"  !"       #"!/. 
 
 
 
               "'+   " +  '."!/    #  " D " ,      
 
 &.      /  !"   "'   "       "  ! - 
 
 ",  "#   "     &/%  !  "           /"#..     !
 
 "'+     "     "    !,    !" ,   "    /
 
 !"    /    ",  !  " D "         &  1 ,     
 
 "  !   /    &  6 . 
 
 
 
             !      !"     "!/    .'    " / D "   "'+
 
  " +    " ! #."!/    '!",  !%      +;     !
 
     "!#"!"#",     "'+       " +   !!" ."!/    
 
 " . 
 
 
 
             (!"/  &/    !"   $ "              /
 
     /.   .  !,     !.'    #/  
 
  ,   )+    -"#  ).,    !"!/       
 
  /.     !+,   '.)!/    !,  &    !" 
 
  /  ,    !!" ."!/      !#.)          !
 
 !   +#)  !" . 
 
 
 
               !"   "       #"    +",     +.     !
 
 !"   "   +  '",!/  !  #+  " !"       &
 
 1 .   !"   "     +  !"/",!/    #    ',- 
 
   !"    "       !"     (   !" )      - 
 
 /,     #  #)   /  !"    /. 
 
 
 
               "!"   "   $ "   )"!/    &/%  !    7   
 
 7 2 .   "    /"     #"  !  "#/&       - 
 
 +    (     !.'    %/)%!/      "!"+%  !""%    
 
 #- &$ +%  " %) ,   ,",    "    !"/",
 
   "!"   +        .    !"      /    !"/    ,(
 
 #!"  '"/. 
 
 
 
               &/%  7 3 - 8 0     .  !"     +  $ "   "
 
 )",!/   /+     !"          #/    "$&- 
 
 
 
 
 
 
 
 
 
                                                 -   1 0   - 
 
 
 
                                         0 0 0 1 4 . 0 1 . 3 5 . 0 2 
 
 
 
            #.).  $ &/.   "!"  #"    ",!/     #- 
 
  .)  !)/,     !      !"      "     "!/
 
 ,(  7 2 . 
 
 
 
 
 
 
 
                   2 . 2 . 2 .     !,   "   "!"
 
 
 
 
 
             !    !%/      "!/  !  "   !  ),.
 
  "   "!",   ,",    "    '"",      !"       
 
  &#    " !          &." ,         !,",    !
 
 "#/&  /    '/  /  $ "  !" . 
 
 
 
               !    !    "#/&    //"!/     +    !"   
 
 !""    !  "   "     !  " D "               !#.)
 
 !  //"!/  &$ ,   "  /"      !!" "      &$ #
 
       /,     !#.)  !    '  "!"
 
  " .     !      !,     !#.)      ',+    !
 
 "#/&,     //"!/  &$ ,     "  /"        !!" "
 
      +  !  "!"   " .     !            - 
 
 /  "!#"!"#",   "  /    !"       //"!/    ',
 
 !" . 
 
 
 
               !     "  !,",!/       "     $ "- 
 
 "     /  #!"    '"/  !" .   " !/"     #"    !
 
  +             "         !.'       #" 
 
 "!"+%  !""    #"     #-   &$ +%    " . 
 
 !  " ""              "     ! "!/  /" 
 
 "    ,          .         !"    " !/&,   +/
 
 /" ,   !  " ""     ++"  '",    !,   !#.- 
 
 )      ,     &    !#.)    "#/&    !"
 
 ( ". .       &/%  9 ,   1 7 ,   2 5 ,   3 3       ". ) . 
 
 
 
 
 
                                                           -   1 1 - 
 
 
 
                                                   0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
                       3 .   -"+  +%  $ " - I V 
 
 
 
 
 
 
 
             !+  -"   "   $ " 0 - I V   //."!/: 
 
 
 
 
 
     !""
 
                   -    !"/"  $! #.    '#,     " /    
 
                       /"!/    %  +/    +; 
 
 
 
 
 
      /
 
                   -   !'!  /  ( "$" ) ,      !"/.)
 
                       " #.  '#,   % /)#.!/    /"; 
 
 
 
     !!
 
                   -    #  "+%  ',    !+%      /"
 
                       !",   #     #;   ",+    '- 
 
                       +,     !!"/.)    !!,     +."!/    -"
 
                       !!;      )",!/    ",    !#    !- 
 
                       !#,         .#    -"#;   /   )/    
 
                       !!#  !,#"!/  "$" ; 
 
 
 
     + 
 
                   -   "  +",   !"  !"",    ,   -- 
 
                       "    !!         )    $#&;   + 
 
                       "    "    +",  &      +( '!+%
 
                       -"    -",   ++%   &/;   - 
 
                        &   /."        +'!,     " +      
 
                       +",    -"  /  ",   '"+    #'",
 
                       '  + /; 
 
 
 
      )    $#&
 
                   -   "$"     $#&,       " +  !#"  !!
 
                        #"  (  " ) ;     /            
 
                        )/    $#&  ++"  +  +'!
 
                          "   !!   .  $#&. 
 
 
 
 
 
                 3 . 1 .   "$" +
 
 
 
 
 
                 "$"   -   -"  !",!",    #      &$ , 
 
     '.)/!/  /",  !  #+.   "$"   "  ",
 
     .#.  #,     !+  !  (!"    #."!/. 
 
 
 
                   +   ,+%     ,+%  "$" : 
 
 
 
              ,/  !,             ,/  !,
 
 
 
                     N U M E R                             5 Q     ( '"!/  !  &$ +) 
 
                     K 9                                   B . 4   ( ! "  !&,+
 
                                                                     !) 
 
 
 
                   ". 1    '!+  !  ' "+,   " +  '."- 
 
     !/  "$" .      %      &+        
 
     ""        "$"         "    +",     !  ,   '
 
 
 
 
 
                                                           -   1 2   - 
 
 
 
                                                     0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
     #  ' "#,     !.'  !&,+%  !#'. 
 
 
 
           #"       +    "$" +    #"    !,",- 
 
     !/  "    '!"  $ ,+%   " .     $ ,+     - 
 
     "   "   !"/",   #.,   !!,     -"  !!, 
 
     !""#,   +       #. 
 
 
 
                                                                                                   "&  1 
 
 
 
                                         !!$&/  "$" 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
           ' "                                "                      !"+  
 
                                                           "                          
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 
 
        /                                                                "
 
       !!                                                                        "
 
        $"'!
 
        " - $#&/                                                    "
 
       "'/  $#&/                                            
 
         - $#&/                                            
 
                                     "                              
 
       )                                  "                              
 
       !/                    "                              
 
         +%                              "                              
 
 
 
 
 
 
 
                       3 . 2 .   "+  +%
 
 
 
 
 
               +    !    -"   !"/"  +    
 
     !,%   '+%  ".   "  +%  -"  "     - 
 
     /",!/  !  !" #&    -",   "    ",!/    
 
     #'.,     "  +",    /+   . 
 
 
 
               "+  +%,   #!"+    $ " ,   !#.): 
 
 
 
     &+
 
               -   &  '!; 
 
 
 
     )!"+
 
               -   '!    !    !/"'      "';   -"    "    +",  &
 
                   '!,   !/"'/   ,    &/  -"%  '; 
 
 
 
     !    "'!",.
 
               -   '  )!"+,       !    +(    "'!",.
 
                    !"/  '!; 
 
 
 
     !+
 
               -        )!"+%    ',     " /         !"/"
 
                   !  '!.    /    -"%    '     !"- 
 
                   /"    !"",#.      '!",    !      '!,   
 
                   " /- #.  '!",. 
 
 
 
     '!
 
 
 
               -   ,      .)    '!      '      " !"" 
 
                     " ," . 
 
 
 
 
 
 
 
                                                     -   1 3   - 
 
 
 
                                               0 0 0 1 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
                 % " !"        "    +%    //"!/
 
     '   /",   " #.)!/  /  % /  '+  -"    ". 
 
      '/  #"   !+%    "    + ."!/        "'!"
 
      !"/  '+,       #!"        '- 
 
     . 
 
 
 
             "!"+  !""+          #- &$ +    " +    
 
     ."  "  +%.      ."  "  +%          !!"
 
     "  "  "!",     "     !" '."!/. 
 
 
 
             &      /"    -     -"    '     /",   %+  /
 
      !"/  )!",   &      '!    '+. 
 
     '+  !    "'!",.    !+  '+  ."
 
         &+    /".       /+      $ " - I V     &    /"
 
     !""!"#"  '"+   "  ( #  !)   /". 
 
 
 
             /    ",  !,/  /"      +(/
 
      ",!"      /"     #!"!/    !,
 
     ",+%  "  +%.    !   /"        "
 
     +%  !#.): 
 
 
 
     I N T E G E R   ( I N T E G E R * 2 ) 
 
 
 
             -   "  2     4   "  /";     !!"  "    #!"- 
 
                   .'    /"     " / I 4 "     ""!/        , 
 
                   '"+   ";     #'.  ""!/    "; 
 
 
 
     I N T E G E R * 4 
 
             -   ""!/    4     ",         /    !    &    '+
 
                 !,#."!/  ",     +    ;         +%
 
                 '  "  ,   '"      #   +%  "  I N T E G E R * 2 ; 
 
                 '"+ %"   !"    #" /"!/         !- 
 
                 ,    ,     "+%     #%  !!"%
 
                 $ " ; 
 
 
 
     R E A L   ( R E A L * 4 ) 
 
             -   ""!/  4   "; 
 
 
 
     D O U B L E   P R E C I S I O N   ( R E A L * 8 ) 
 
             -   "  8   "; 
 
 
 
     C O M P L E X   ( C O M P L E X * 8 ) 
 
             -   ""!/  8   "; 
 
 
 
     L O G I C A L   ( L O G I C A L * 4 ) 
 
             -   ""!/  4   "
 
 
 
     L O G I C A L * 1 
 
             -   ""!/  1 - "/  !",,   " /  "    ! ",
 
                 '!  '+  " !""     " ," ,       #- 
 
                 - &$   !    &+  '+  "  - 1 2 8     + 1 2 7 ; 
 
 
 
     B Y T E 
 
             -   "  1   ". 
 
 
 
 
 
                                                         -   1 4   - 
 
 
 
                                                 0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
 
 
             3 . 3 .   !""+
 
 
 
 
 
             !""   !"/"  /#.    '#:     '!- 
 
     #.,   '!  '    !",!",  !. 
 
 
 
 
 
             3 . 3 . 1 .   &+  !""+
 
 
 
 
 
             &/  !""  -   -"  '!,   "     "  !/"'
 
     "'.   !""    "     (!"",          '!.   &/
 
     !""  "  " #"!/        !/"'    '!        "
 
     !#.)  : 
 
 
 
                     S N N 
 
 
 
     
 
 
 
     S 
 
               -     '!; 
 
 
 
     N N       -   !",!",  !/"'+%  &$ . 
 
 
 
             +  ')  #  ( !    !",)     #."!/. 
 
 
 
             " &",      &      !""         (!"",
 
       " #!" ;     " .!"   //"!/    /",+    !. 
 
     !  !""    "  ,     !'""!/  ",. 
 
 
 
                 &#.    !""#        +    %",    !+, 
 
        &$   "  0     9   (   '!  !""!/     !"") . 
 
 
 
             !."/  '  &  !""+     +("  3 2 7 6 7 . 
 
 
 
              ,+  !  &  !""+: 
 
 
 
                                     0 
 
                               - 1 2 7 
 
                           + 3 2 1 2 3 
 
 
 
                ,+  !  &  !""+: 
 
 
 
                               9 9 9 9 9 9 9 9 9 9 9       ( !(  ) 
 
                               3 . 1 4                     (   #!"!/  !,
 
                               3 2 , 7 6 7                 !/"'  "'    /") 
 
 
 
 
 
                                                     -   1 5   - 
 
 
 
                                             0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
               3 . 3 . 2 .   )!"+  !""+
 
 
 
 
 
               )!"/  !""  -   -"  !",!",    !/"'- 
 
       +%  &$ ,   .'/  #    !/"'#.  "'#.   #!"+  !#.)
 
       !  )!"  !""+: 
 
 
 
               S . N N         S N N . N N         S N N . 
 
 
 
       
 
 
 
       S 
 
               -     '!; 
 
 
 
       N N     -   !",!",  &$ +%  !. 
 
 
 
               !/"'/    "'    "    %",!/    .  !"  !- 
 
       ",!".   '!  &$      '"!/,             '!"
 
       ')%   !!" ."!/  ",  !,  !" (%  &$ . 
 
 
 
               )!"/    !""    "    +",              &/
 
       !""    -!&,  $ : 
 
 
 
                               E S N N 
 
 
 
       
 
 
 
       
 
               -   "$"   -!&,  $ +; 
 
 
 
       S       -     !"; 
 
 
 
       N N     -   '/    #'/  &/  !"". 
 
 
 
               !  !",  ",,     " .!"   "  +",  #). 
 
          " &",  !",.  /",      !"/",    
 
       " #!" . 
 
 
 
               -"  !,   "  !",  !/",       " #.    
 
       +",  #   (!"#.)/    &/    )!"/    !- 
 
       ""  (   , 1 6    !"/"  '#  1 . 0 * 1 0 * * 6 ) . 
 
 
 
               )!"/  !""    "        !  ( ". .   '"+ 
 
       "  /"  - 1 1 )     "  " #"!/    )!"  '!, 
 
       .)  !",  "'!"    ,(,   '  !,    !/"'+%
 
       &$ . 
 
 
 
                 !.'   '!%  ,   !/"'  "'    
 
       #+  " "   ( !    !,#"!/)   !,  )!"  !"- 
 
       "+      ! ",  %  !,      &$   "  0     9 . 
 
 
 
               !    !  )!"  !""+     !#"!"#"    #
 
       " " ,   "      /",    !",    '/    
 
       #'/    &/    !"".         !"        "    +",
 
 
 
 
 
                                                         -   1 6   - 
 
 
 
                                                 0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
        #),       "    +",    #+.     !."/          '
 
       )!"  !""+      "    +",    ,(    0 . 2 9 * 1 0 * * ( - 3 8 ) 
 
           "  +",  ,(  1 . 7 * 1 0 * * 3 8 . 
 
 
 
             +: 
 
 
 
              ,/  !,                               ,/  !,
 
             )!"+%  !""                      )!"+%  !""
 
 
 
               3 . 1 4 1 5 9                                                 1 , 2 3 4 , 5 6 7   ( /"+   )+) 
 
               6 2 1 7 1 2 .                                                 3 2 5 - 7 5       ( !(  ) 
 
               - . 0 0 1 2 7                                                 - 4 7 . 4 7       ( !(  ) 
 
               + 5 . 0 3                                                   1 0 0               ( "!#"!"#"  !/- 
 
                                                                                                   "'/  "') 
 
               2 - 3                                                        2 5 . 0 0         (  )+  !&- 
 
                                                                                                   ,+  !+) 
 
 
 
 
 
             3 . 3 . 3 .   !""+  !    "'!",.
 
 
 
 
 
             !""    !          "'!",.      "    '"+       !
 
       /"    "  " #"!/    )!"  '!,   .)    1 7 
 
       ')%  &$ . 
 
 
 
             !""  !    "'!",.  "  +",   !"  ", 
 
           )!"/  !"",     -!&,  $   !  #
 
       " D "   !"  " " : 
 
 
 
                                 D S N N 
 
 
 
       
 
 
 
       N N 
 
             -     -     #'/  &/  !""; 
 
 
 
       S     -     !". 
 
 
 
             '!  &$ ,   " +  #"   (!"",  #.  !",   
 
       " ,     ",  1 7   !" (%  &$   //."!/  '). 
 
 
 
             " &",  !""  !    "'!",.  /",    - 
 
          (!"",    " #!" .   '    " .!"      - 
 
       ",  !""    //"!/  /",+. 
 
 
 
               !",   !#.)    #  " D " ,     "  +",  #), 
 
         "  +",  #+. 
 
 
 
             !."/  '  !""+  !  #  "'!",.    "
 
       +",  ,(,   '  0 . 2 9 %1 0 * * ( - 3 8 )           "    +",    ,(,   '
 
       1 . 7 %1 0 * * 3 8 . 
 
 
 
               +: 
 
 
 
                                                             -   1 7   - 
 
 
 
                                                     0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
                           1 2 3 4 5 6 7 8 9 0 4+ 5 
 
                           + 2 . 7 1 8 2 8 1 8 2 8 4 6 1 8 2 40 0 
 
                           - 7 2 . 5 4- 1 5 
 
                           1 40 
 
 
 
 
 
 
 
                 3 . 3 . 4 .   !+  !""+
 
 
 
 
 
                 !/  !""  !+"!/      #%  )!"- 
 
     +%  !"",    +%  /"    .'+%        !- 
 
     .    /  )!"/  !""   !"/"    !"",- 
 
     #.  '!",  !  '!,     " /      !""  -     #.
 
     '!",. 
 
 
 
                 !/  !""  "  !#.)  : 
 
 
 
                                 ( R C , R C ) 
 
 
 
     
 
 
 
     R C 
 
                 -   )!"/  !"". 
 
 
 
             !    /"/  //."!/  '!",.  !  !""+        %
 
     '  /",. 
 
 
 
             !/  !""  "    '"+     !",+%
 
     !  /"    "  " #"!/    !  '!. 
 
 
 
               +  !  !  !""+: 
 
 
 
                               ( 1 . 7 0 3 9 1 , - 1 . 7 0 3 9 1 ) 
 
                               ( + 1 2 7 3 9 3 , 0 ) 
 
 
 
 
 
 
 
 
 
             3 . 3 . 5 .   !, '+  !""+
 
 
 
 
 
 
 
             !, '/      !""    -     -"    ," "+    !!
 
        !"/  &  !""+,         "    !,",!/
 
       '+  !!. 
 
 
 
 
 
             !,  !, '  !""+  "  !#.)  : 
 
 
 
                                 " N N 
 
 
 
       
 
 
 
       N N 
 
               -   !",!",  !, '+%  &$ . 
 
 
 
                 !.'       (!"#.)%    !""    +'    
 
         ! ",  ",  &$ +  "  0     7 .   !, '/    !- 
 
       ""    "  +",  ,(  #/    ,(  1 7 7 7 7 7 . 
 
 
 
 
 
                                                         -   1 8   - 
 
 
 
                                               0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
 
 
         +. 
 
 
 
          ,+                                               ,+
 
         !, '+  !""+                      !, '+  !""+
 
 
 
         " 7 2 1 3                                                         3 2 7 6 7   ( "!#"!"#."  +') 
 
               " 1                                                           " 1 8 4   (  )+  !) 
 
         " 1 7 7 7 6 
 
 
 
 
 
 
 
 
 
               3 . 3 . 6 .   '!  !""+
 
 
 
 
 
 
 
               '!/    !""     "    '!      '
 
       " !""     " ," .   !",  #"  +",    ",      
 
       '!  !""+,     ."  !#.)  : 
 
 
 
                 . T R U E .         . F A L S E . 
 
 
 
                '.)    "'    //."!/    /",  !!"
 
       '!",.    '!  !""+. 
 
 
 
 
 
             3 . 3 . 7 .   "!"+  !""+
 
 
 
 
 
               "!"/  !""  -   -"  !",!",    #- 
 
       &$ +%  !,   "    (!"#"      #",      '!
 
       !    #  " " . 
 
 
 
               "!"/  !""  "  !#.)  : 
 
 
 
 
 
                   N C 1 C 2 . . . C N 
 
 
 
       
 
 
 
       N 
 
               -   !"",   #+.)/  '!  !    !",- 
 
                   !"  (     .'/     +                    "#/&    ) ; 
 
                   "  ",  '  "    1         2 5 5 .   /    #  C 1 , 
 
                   C 2 . . . C N   '"    " +      !            - 7 . 
 
                   !,  '!  !     2 5 5 . 
 
 
 
 
 
               "!"/  !""  "!/      !",!",
 
       "        #    !#    ".     "!"+        !""+
 
           ."     "  +%.      ."    "  - 
 
       +%,   #+%     "   F O R M A T ,       #!"."!/      
 
        ,   !+    #"  3 . 3 . 7 . 2 . 
 
 
 
                 +   ,  !  "!"+%  !"": 
 
 
 
                         1 4 H   !/  ": 
 
                         1 H F 
 
 
 
 
 
                 +   ,  !  "!"+%  !"": 
 
 
 
 
 
                                                       -   1 9   - 
 
 
 
                                             0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
 
 
                   3 H A B S D   (    '!
 
                   2 H B   : 1     !) 
 
 
 
 
 
               3 . 3 . 7 . 1 .   #- &$ +  " +
 
 
 
 
 
               #- &$     "     -     -"    ," "/  $ 
 
       "!  !""+.   #- &$   "     "    !#- 
 
       .)  : 
 
 
 
                         ' C 1 C 2 C 3 C 4 . . . C N ' 
 
 
 
       
 
 
 
       C 1 ,   C 2 ,   C 3 , . . . C N 
 
 
 
                     -   '"+  !+    - 7 . 
 
 
 
                    !#"!"  %   '.)%    !" $      //"!/
 
       /",+.   !,  '!  !    #- &$ 
 
       "      2 5 5 . 
 
 
 
                   #"   #- &$   "     !  "     !" $" 
 
       '"!/  #/  !",+  !" $. 
 
 
 
 
 
         +: 
 
 
 
 
 
                     ' ',"  #!" !"    +%' 
 
                     '     ' ' "&' '    (' 
 
 
 
 
 
               3 . 3 . 7 . 2 .    ,      /.)    "    +%, 
 
                                  !"+%                "!"+%
 
                                 !""
 
 
 
 
 
                 !    +     !,#"!/    #- &$     "- 
 
            "!"/  !"",   "    "    ,   " +     - 
 
       "!/  /  -"  !""+,    # #"!/    !#.)     - 
 
       : 
 
 
 
 
 
                   -      "      !/,   "    "!"      !""+
 
                        /"!/  "  +%   ,   " #     !- 
 
                       "!/  -"  !"". 
 
 
 
 
 
         : 
 
 
 
              "                             "  +%                      !""+
 
 
 
             R E L   =   ' A B C D '                     R E A L * 4                                     4 
 
             I F ( I . E Q . ' X Y ' )   G O   T O   3   I N T E G E R * 2                               2 
 
             M   =   N   -   ' A B C '                   I N T E G E R * 2                               2 
 
             X   =   ' Z '                               R E A L * 4                                     4 
 
 
 
                       -     "!"%,       !,#"!/     +    "
 
 
 
 
 
                                                         -   2 0   - 
 
 
 
                                                 0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
                       +%  ( +'    &    '!) ,   "  -"%  +%   - 
 
                       "!/  /  !""+.     ,          !&
 
                       -"  !!: 
 
 
 
             Y ( I X ) = Y ( ' A B C ' ) + 3               I N T E G E R * 2                             2 
 
 
 
                     -   !  !""  !,#"!/    '!"  $"'!
 
                          #",   "  "  !""+     /"!/. 
 
                           : 
 
 
 
             C A L L   A R A C   ( ' A B S D E F G H I ' )                                               9 
 
 
 
                     -       !%     #%    "!"%       "!/      "
 
                         I N T E G E R * 2 ;     : 
 
 
 
             I F   ( ' A B ' )   1 , 2 , 3           I N T E G E R * 2                                   2 
 
             I =   ' C ' - ' A '                     I N T E G E R * 2                                   2 
 
             J =   . N O T .   ' B '                 I N T E G E R * 2                                   2 
 
 
 
                     !        !""+    ,(    +,    #
 
             "  +%,   "  !""    !     /"!/   . 
 
             !    !""+  ,(    +,    #    "
 
             +%,   "  !""  #!"!/  ! . 
 
 
 
 
 
                     3 . 3 . 8 .   !,  !""+      R A D I X - 5 0 
 
 
 
 
 
                     R A D I X - 5 0   -   -"    !&,     !"      "!"+%
 
             +%,      "     !  /"  "  +",  !    
 
             " %  !         !    R A D I X - 5 0       ( //.)!/
 
             !"     !    - 7 ) . !""+    
 
             R A D I X - 5 0   #"  !,",!/  ",     " %    " D A T A " . 
 
 
 
                     !,  !""+      R A D I X - 5 0   "  !#.)  : 
 
 
 
                                             N R C 1 C 2 C 3 . . . C N 
 
 
 
             
 
 
 
             N 
 
                     -   /,   #/    &/      !"",       " /
 
                         #+"  '!  !    !""; 
 
 
 
             R       -        !""+          R A D I X - 5 0 ;     C 1 , C 2 , . . . C N   - 
 
                         !+       !  R A D I X - 5 0 . 
 
 
 
                   !,  '!  !   -   &".       &
 
           !"",   #+.)    '!  !,   #'"+."!/    !
 
            +,   " +  !" '."!/    !",!"    !
 
           ( !     %"       !  R A D I X - 5 0 ) .     !+
 
             R A D I X - 5 0    +       1 . 
 
 
 
             +: 
 
 
 
                     4 R A B C D 
 
 
 
                                                       -   2 1   - 
 
 
 
                                           0 0 0 1 4   -   0 1 . 3 5 . 0 2 
 
 
 
 
 
                 4 R N I C :   (  /  !,;   "'    //"!/
 
                               #!"+  !  R A D I X - 5 0 ) 
 
 
 
 
 
           3 . 4 .    +
 
 
 
 
 
            /  -   -"  ',    )        "     !#- 
 
 )!"/"!/    !    ),.        "$" .     "$" 
 
    "   +(",      #  (!",  .     
 
 !,#."!/  ",   +    (!",    ,     " +    +
 
 +",  #,+  !      +%          
 
 #/.   '     "  +",       !- 
 
         '/.      +    !!$& #."!/    
 
 "#  +%  "'  "  ,       !""+.     "     
 
  /",     "  +%     !"/".     !     - 
 
    !."!/  +   #  ",   "          - 
 
 #."!/    "#   .   "     "    +",    #!"- 
 
    "   !/  ",      "     " I M P L I C I T " , 
 
   /+    ". 
 
 
 
           !         +%  !,#."  #    "#    
 
 !",  /",   "  -"   +  -"+   #     ##. 
 
 -"!",  "  +",    '!"',     '!",  !"
 
 /"  (     !/  !",) ,   !""!"#.)/       - 
 
 ,   //"!/    "     /  '!",.    !  !",.    /- 
 
 ",     !""!"#.)     #     .       -"!",
 
 #!""!/   "   " C O M M O N " ,   " E Q U I V A L E N C E "          
 
 !,  $"'!%    $ ,+%   "      )- 
 
 /%      .         "!/,   '"     - 
 
 ,   !  !""!"#.)/        !",    /"    ! "
 
 #.  '#  "    ",   '"    "$" .      - 
 
 /  "  +",     )        +/      +
 
 ! !"   "   " D A T A "        /  +/     - 
 
  +     )     "      !/         " 
 
 . 
 
 
 
           !      "    !"  /"  !""!"#."    ( 
 
 '!"'  !""!"#.")    +  "'.)%!/    ",     "
 
    '/       (   ,    !- 
 
 )    "        "#,     '"    '/     #%     +%
 
  !"."  +",   +. 
 
 
 
 
 
           3 . 4 . 1 .   !&$&/  "  +%
 
 
 
 
 
            " +  /  !/  "   /.",     '"     - 
 
 +  ##"   !"/",  #+  "+  +%. 
 
 
 
     , 
 
                             C O M P L E X   V A R 1 
 
                             D O U B L E   P R E C I S I O N   V A R 2 
 
 
 
           -"   " +  #+.",   '"     " V A R 1 "     
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                   -   2 2   - 
 
 
 
                                       0 0 0 1 4   -   0 1 . 3 5 . 0 2 
 
 
 
 
 
 !""!"",  !",  /"        4     !,     " /
 
 #"  ! ",  !+  +,     '"     " V A R 2 " 
 
   !""!"",  !",  /"    4   !  /     - 
 
 )/  +%  !    "'!",.. 
 
 
 
            "   /  !/    "    " I M P L I C I T "     "
 
 (   !",.  !"/:      /",   '"    ./     - 
 
 /  !  "$" ,   '.)!/  !  #+    " - 
 
    ,      !"/",   +  "  +%     
 
 "!#"!"   "   /  !/  "  -"   . 
 
 
 
           "       "    +",         /+     
 
 ",     .   //  !&$&/    "    "      ""
 
   !  ",   +   "   " I M P L I C I T " . 
 
 
 
           !        "   "   " I M P L I C I T " ,   !     - 
 
 +,       "$" +      " +%      '."!/      !        #
 
 I , J , K , L , M , N ,    !"/."   +  &  ".      - 
 
 +,   "$" +  " +%  '."!/  !  .   #    #- 
 
 +,    !"/."  )!"+   +.     : 
 
 
 
   )!"+   +            &+   +
 
 
 
             A L P H A                                             K O U N T 
 
             B E T A                                               I T E M 
 
             T O T A N                                             N T O T A L 
 
 
 
 
 
           3 . 5 .   !!+
 
 
 
 
 
           !!  -   -"  !"    !",     !+%
 
 /'  /",   .)%  )    -   "$"     ( /) 
 
 !!.    )      ",+    !"/    /",     " +
 
 +."!/  -"  !!,   !#)!"/"!/      "$- 
 
 " #  !!,     " #  /"!/  !!  !. 
 
 
 
           !!  "    !",    !!"    "    '!"
 
 !.   !  "  +",  "        !.       
 
 !!,   .)      !",    &,     //"!/    !"&
 
 '!.   !,  !"&  '!   !"/"  !    # - 
 
 +  !!.   /   )/       '      -"
 
 !!  +  #+",!/     !"        !"&,     
 
 " +%  %"!/  -"  '.   /   )/    '  
 
 " %   !!  +  +",  +     !" ,      
 
 !"&       !" &+. 
 
 
 
           !!+  !+."!/       )    !#.)%     " 
 
 $ " : 
 
 
 
                 -    " +  !/  "   ; 
 
                 -   D I M E N S I O N ; 
 
                 -   C O M M O N ; 
 
                 -   V I R T U A L . 
 
 
 
           +    -"%   "   ! "  !",  !!  
 
 #+"  "$"   !!,         !",        '!
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                   -   2 3   - 
 
 
 
                                       0 0 0 1 4   -   0 1 . 3 5 . 0 2 
 
 
 
 
 
 -"       . 
 
 
 
 
 
           3 . 5 . 1 .   !"  !!
 
 
 
 
 
           !",    !!     /"    "$"     !!
 
 #"       #/    '!  &       - 
 
 . 
 
 
 
           !",  !!  "  !#.)  $ ": 
 
 
 
                     A ( D [ , D . . . ] ) 
 
 
 
   
 
 
 
 A 
 
               -   "$"   !!; 
 
 
 
 D 
 
               -   '  !. 
 
 
 
           '!  !   /"    !",    !!.     - 
 
 ,/    !",  !!     &,     !,/  - 
 
 !. 
 
 
 
           '  !   /"    '!    &        
 
  .     ,   !  '  !,          5 0 ,     "
 
      ! "  5 0   &.     !+    #"    +",
 
 !""     +.    +  !+  !,#."- 
 
 !/  /   /  !!  !   +   &.     '!
 
 -"    !!        .    '!    &    
 
 !%   /%. 
 
 
 
           "$"   !!  "  !" '",!/  ",    
 
 !"  !!  #"       &+. 
 
 
 
 
 
           3 . 5 . 2 .   !!  !
 
 
 
 
 
           "$"   !!  "  /",!/  !!  - 
 
 !.   !!  !   !"/"  !   ',    !+%
 
 + ,   .'+%     #+    !,     " +     - 
 
 /",     #    -"#  !!  +/"!/     )- 
 
 . 
 
 
 
           !!  !  "  !#.)  : 
 
 
 
                             ( S [ , S ] . . . ) 
 
 
 
   
 
 
 
 S 
 
               -   +   !. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                         -   2 4   - 
 
 
 
                                             0 0 0 1 4   -   0 1 . 3 5 . 0 2 
 
 
 
 
 
 
 
 
 
             .   )      ! #    !!#    
 
  !#"!"",    #  !#  + .    /    
 
  /.     ,   '"+     "",!/        -"#     
 
 !"     " ",    !"&    "     !" &+    !!    " C O S " 
 
 !,#"!/  !#.)/  !,: 
 
 
 
 
 
                             C O S ( 1 , 2 , 3 ) 
 
 
 
 
 
             !  +   "  +",  .+  #!"+
 
  $"'!  + .   !  '  !  + - 
 
 /     "    "#  " &+" ,   "       !,- 
 
     #"!/    -"#  "#. 
 
 
 
 
 
 
 
           3 . 5 . 3 .    !  !!  /"
 
 
 
 
 
 
 
              /%  !!   /"   ",          " !" - 
 
 %" ,   " !"&%" ,   " !" &%"       ". . .         !/.)/
 
 !!"  $ "   !  "  !!      /"        
 
   +  !",!"  '.    +  !!
 
 % "!/    /"  "   ,   '"  '    !,     "
 
 +!"     /"!/  "  /'    /'. 
 
 
 
                  !/    -"           !!
 
 A R C ( 6 )     /'%  /"  !  #!  # &: 
 
 
 
 
 
 
 
 
 
                /'                  -"  !!
 
 
 
                       1                                     A R C ( 1 ) 
 
                       2                                     A R C ( 2 ) 
 
                       3                                     A R C ( 3 ) 
 
                       4                                     A R C ( 4 ) 
 
                       5                                     A R C ( 5 ) 
 
                       6                                     A R C ( 6 ) 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                             -   2 5   - 
 
 
 
                                                 0 0 0 1 4   -   0 1 . 3 5 . 0 2 
 
 
 
 
 
 
 
                  !/    -"      #       !!
 
 T A N ( 3 , 4 )     /'%  /"  !  #!  # &: 
 
 
 
                /'          -"  !!
 
 
 
                       1                               T A N ( 1 , 1 ) 
 
                       2                               T A N ( 2 , 1 ) 
 
                       3                               T A N ( 3 , 1 ) 
 
                       4                               T A N ( 1 , 2 ) 
 
                       5                               T A N ( 2 , 2 ) 
 
                       6                               T A N ( 3 , 2 ) 
 
                       7                               T A N ( 1 , 3 ) 
 
                       8                               T A N ( 2 , 3 ) 
 
                       9                               T A N ( 3 , 3 ) 
 
                     1 0                               T A N ( 1 , 4 ) 
 
                     1 1                               T A N ( 2 , 4 ) 
 
                     1 2                               T A N ( 3 , 4 ) 
 
 
 
                  !/    -"    " %       !!
 
 C O S ( 3 , 3 , 3 )     /'%  /"  !  #!  # &: 
 
 
 
                /'          -"  !!
 
 
 
                       1                               C O S ( 1 , 1 , 1 ) 
 
                       2                               C O S ( 2 , 1 , 1 ) 
 
                       3                               C O S ( 3 , 1 , 1 ) 
 
                       4                               C O S ( 1 , 2 , 1 ) 
 
                       5                               C O S ( 2 , 2 , 1 ) 
 
                       6                               C O S ( 3 , 2 , 1 ) 
 
                       7                               C O S ( 1 , 3 , 1 ) 
 
                       8                               C O S ( 2 , 3 , 1 ) 
 
                       9                               C O S ( 3 , 3 , 1 ) 
 
                     1 0                               C O S ( 1 , 1 , 2 ) 
 
                     1 1                               C O S ( 2 , 1 , 2 ) 
 
                     1 2                               C O S ( 3 , 1 , 2 ) 
 
                     1 3                               C O S ( 1 , 2 , 2 ) 
 
                     1 4                               C O S ( 2 , 2 , 2 ) 
 
                     1 5                               C O S ( 3 , 2 , 2 ) 
 
                     1 6                               C O S ( 1 , 3 , 2 ) 
 
                     1 7                               C O S ( 2 , 3 , 2 ) 
 
                     1 8                               C O S ( 3 , 3 , 2 ) 
 
                     1 9                               C O S ( 1 , 1 , 3 ) 
 
                     2 0                               C O S ( 2 , 1 , 3 ) 
 
                     2 1                               C O S ( 3 , 1 , 3 ) 
 
                     2 2                               C O S ( 1 , 2 , 3 ) 
 
                     2 3                               C O S ( 2 , 2 , 3 ) 
 
                     2 4                               C O S ( 3 , 2 , 3 ) 
 
                     2 5                               C O S ( 1 , 3 , 3 ) 
 
                     2 6                               C O S ( 2 , 3 , 3 ) 
 
                     2 7                               C O S ( 3 , 3 , 3 ) 
 
 
 
 
 
                                                             -   2 6   - 
 
 
 
                                                 0 0 0 1 4   -   0 1 . 3 5 . 0 2 
 
 
 
 
 
           3 . 5 . 4 .   "  +%  !!
 
 
 
 
 
           "  +%  !!   /"!/  "     ,     
 
   "  +%   ,   ". .     /  -        #
 
 "$" ,     /+     -     !    ),.     " 
 
 !/  ". 
 
 
 
           !  '+    !!  ."        ""        "
 
 +%.     .    ',      !    -"#      !!, 
 
   #"!/    "#  +%  !!.   !,     ,   !!
 
 !   "   D O U B L E   P R E C I S I O N ,   /"        #"
 
 /    -"  !!  4   !    /".   !    .#
 
   -"  -"  !!   !"!/    '    - 
 
 #,   #  ",       #"!/      "#    " !    
 
 "'!",." . 
 
 
 
           $ "   "  -"+  !!  "  " L O G I C A L * 1 "   
 
 !+%  "%. 
 
 
 
 
 
           3 . 5 . 5 .    )    !!      !,/
 
                         !!  !
 
 
 
 
 
              '!+  "+   " ,     " +%    "$- 
 
 "   !!  "  //",!/    !!  !  /  #- 
 
 /  ",   '"    +",  !,         !,
 
 !!: 
 
 
 
               -    " +  !/  "; 
 
               -   C O M M O N ; 
 
               -   D A T A ; 
 
               -   E Q U I V A L E N C E ; 
 
               -   F U N C T I O N ; 
 
               -   S U B R O U T I N E ; 
 
               -    " +  / +. 
 
 
 
           "$" +  !!    !!  !  #"  "
 
 !,",!/    '!"  $"'!%   " .   !,- 
 
   ! +%  "$"     !!        !%
 
 !",+%  "%   "   #!". 
 
 
 
 
 
           3 . 5 . 6 .     !!+  !   +   &
 
 
 
 
 
              !!"          - $#&    /
 
  "  $ ,+%  !!,   #  " +%     %    '
 
 !  +  /",!/  "         )/         ##, 
 
 #  ,",!/  "  ++  !!  !   +
 
  &.    "+  '/  !+%   &  -"%  !!- 
 
   #!"."!/        )        
 
   - $#&.   /  -"     "     !/     - 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                       -   2 7   - 
 
 
 
                                           0 0 0 1 4   -   0 1 . 3 5 . 0 2 
 
 
 
 
 
 
 
  !"   %   &+  !  ."!/  &+   - 
 
 +  (     &+  !"") .   -"  &+   +  +
 
 +",  $ ,+   " .   !""!"#.(      $"'!- 
 
    " +  +  ",   +  '/        "
 
  )/              - $#&.     "
 
      $ ,+%   "     $"'!     " 
 
 (    &!!  +)    /."!/  $"'!   &+  !!- 
 
 . 
 
 
 
           '/  $ ,+%   " ,   !,#+%      !- 
 
 "/%  !!  !   +   &,     +  /",- 
 
 !/  #"       +. 
 
 
 
           /  !!  !   +   &        !#)!"- 
 
 ",  !  -"  !!                $"- 
 
 '!      !!,     !,#          ,     
 
    +(",    ,           . 
 
 
 
           $#&/    !#.)      +'!/"  !##    -"
 
 #   !!.   !#"   "",      #" - 
 
    "   " "     " 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 ) 
 
                 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 
 
 
 
    +    +   )/    " S U M " : 
 
 
 
                 D I M E N S I O N   A 1 ( 1 0 , 3 5 ) ,   A 2 ( 3 , 5 6 ) 
 
                 S U M 1   =   S U M ( A 1 , 1 0 , 3 5 ) 
 
                 S U M 2   =   S U M ( A 2 , 3 , 5 6 ) 
 
                 S U M 3   =   S U M ( A 1 , 1 0 , 1 0 ) 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                 -   2 8   - 
 
 
 
                                     0 0 0 1 4   -   0 1 . 3 5 . 0 2 
 
 
 
 
 
                                     4 .   + /
 
 
 
 
 
           +   "  +",  !""       ,     
 
 &    -"%  "                  
 
  &. 
 
 
 
                &    +.",           +'!/      
 
 !+  "    +    +",    ++    /    ", 
 
 '"+  #'",  '  + /. 
 
 
 
             $ "    '."!/  "   !!  + : 
 
 
 
               -    $"'!  + /; 
 
               -   + /  "(/; 
 
               -   '!  + /. 
 
 
 
            #,""      +'!/       $"'!      + /
 
 //"!/  '!.   + /  "(    '!    + /
 
 #"  +",    !"+        +    ( ". .     %     #,""
 
 //."!/  '!  '+) . 
 
 
 
 
 
           4 . 1 .    $"'!  + /
 
 
 
 
 
            $"'!  + /  $  #."!/     $"'!%
 
 -"             $"'!%     &.       '
 
 "  + /  //"!/  '!. 
 
 
 
              $"'!  -"  "!/"!/  !#.): 
 
 
 
               -   '!/  !""; 
 
               -   '!/   /; 
 
               -   -"  '!  !!; 
 
               -    $"'!  +     !%; 
 
               -    )     $"'!  $#&. 
 
 
 
                $"'!%       &       /.",       
 
 +'!/      +",        '/     $"'!%
 
 -";      #,""  +/  -"%   &  #'"!/
 
 '!    '.           $ "       !,#."!/      !#.)
 
  $"'!   &: 
 
 
 
             * *           (     !",) 
 
             *             ( #) 
 
             /             ( ) 
 
             +             ( !    # +  .!) 
 
             -             ( +'"    # +  #!) 
 
 
 
           +( '!+       &      +."!/         +
 
  &/,   "    /    %  !,#"!/      !'"
 
 !  #/  -".   !+  " + "         " - "     #"         "
 
 !,",!/            # +%     &,           
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                               -   2 9   - 
 
 
 
                                   0 0 0 1 4   -   0 1 . 3 5 . 0 2 
 
 
 
 
 
 )."!/  ! !"      $"'!  -". 
 
 
 
           ./   $"'!/   &/  "  +",    !,
 
   !'"  !  .+  #!"+   $"'!  -",   
 
 !.'  " +%   ',   #+%  . 
 
 
 
                -"#  !!    +",     !
 
 '     ",     %    !,",         $"'!
 
 + . 
 
 
 
           ".   2   .!"  #"  #!"+  !'"/  "  +%
 
 !/    "/  !"    ( -!"+)     /     &
 
 /    !",. 
 
 
 
                                                                                             "&  2 
 
   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
                                 !             ",  !"
 
   !            ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
                                 ! &+! (!". !     . "'. ! !+
 
   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
   &                    !       !     "      !       "        !         "
 
   )!"      !       !             !                 !         "
 
   !  . "'!",.  !       !             !                 !         "
 
   !        !       !     "      !       "        !         "
 
 
 
           " &",+  -"    ",  ",        &#.
 
 !",;     -",       .)      #      ',       ,/
 
 ",    ##.  !",. 
 
 
 
             .  #!"  !"  +    #,""  "
 
 !  "    "  +%,   '"    !,     !.'
 
 !#'/   &  !    )!"+    !        "
 
 !",   .)  #.  "'!",.     -"  !#'     #,""
 
 "  #.  "'!",. 
 
 
 
            $"'!  + /  +'!/."!/     /    #+- 
 
 /    ""!"   &:   " * * "   "     +      "", 
 
 " * "     " / "   -   "     "",   " + "     " - "   -   " "    "". 
 
 
 
             "%  !#'/%,     "!/         &    !
 
 +    ""  ( ",     ,       " + "         " - " ) , 
 
     #"    +/",!/            .       /,       + 
 
 /"   ( /    !'/    ",!"    +'!/) . 
 
 -!&,+    + /,     ,       +'!/."!/      !
 
  .     ,   "   * *     * *   !"   +'!/"!/,     " (   * *     ) 
 
 * *   !" . 
 
 
 
 
 
           4 . 1 . 1 .      !
 
 
 
 
 
           /    /    +'     /      +'!      #"
 
 !,",!/  !.     + ,     .'        !, 
 
  !!" "!/    ",+   $"'!    -".     -"
 
 '",   '"  '  +'!/"!/    ',     "  -"
 
 '    !,#"!/            +'!      + /.       
 
  +    +  !,/  !.     &$ +        
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                   -   3 0   - 
 
 
 
                                       0 0 0 1 4   -   0 1 . 3 5 . 0 2 
 
 
 
  &      #+."       /,             "       +/."!/
 
 +'!/. 
 
 
 
                             4   +   3   *   2   -   6   /   2   =   7 
 
                                 3       1       4       2 
 
 
 
                             ( 4   +   3 )   *   2   -   6   /   2   =   1 1 
 
                                   1         2       4       3 
 
 
 
                             ( 4   +   3   *   2   -   6 )   /   2   =   2 
 
                                   2       1       3         4 
 
 
 
                             ( ( 4   +   3 )   *   2   -   6 )   /   2   =   4 
 
                                     1         2       3         4 
 
 
 
           +'!      + ,       %/)%!/                !%, 
 
 '/"!/  +'#   /#    "". 
 
 
 
           !#)!"+  !,   "      +   " 4   +   ( 3   * 
 
 2 )   -   ( 6 / 2 ) "     +."        //        +'!
 
 + /. 
 
 
 
           !,      !      /         /         /
 
 +'!  '!"  +"!/  +      %     "
 
 '!    !    +!    !",.    "'!".       !",!"
 
 +'!,    '!  -"+   #     ##,     #"
 
 +",    -"+        !"      "'!"      +'!
 
 ( !!"   !    " ,  (%    /) . 
 
 
 
 
 
           4 . 1 . 2 .   "  '/   $"'!  + /
 
 
 
 
 
           !  !  -"+   $"'!  + /  ."  
 
   ""    ",   "   #,""  + /  #"    ",    -""    
 
 ".   !    +   ."!/  -"+   '+%  ",     "
 
 +'!  -"  + /      "     #," #.)    '+
 
 !/"  "   ,   !""!"#.)  "#  +%.      "
 
 +%  !#.): 
 
 
 
                     '!  = 1   ( ) ; 
 
                               &+  = 2 ; 
 
                 )!"+  = 3 ; 
 
   !    "'!",.  = 4 ; 
 
                   !+  = 5   ( +!) . 
 
 
 
           "     #,""     &        #/     $"'!
 
 -"   '  "  "  ,           #    -"    !
 
   +!   .   "  '/  + /    "    , 
 
         "     #,""    !     &        +'!
 
     + /.     !!       /      "      '/
 
 + /  .'"!/    !#.): 
 
 
 
   &+   &
 
 
 
               -   &+     &    +/."!/    ",          &+
 
                   -";                $"'!      "!"
 
                                                               -   3 1   - 
 
 
 
                                                       0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
                                 !" '."!/      !, '+      !""+    '!
 
                                 ' "+  ,              !!" ."!/            &+;     
 
                                  $"      &+%      '!      ./       /  '!",, 
 
                                 " /        "        +",         #,""          /
 
                                 " !+"!/,                  #/"!/;             , 
 
                                 '  + /
 
 
 
                                                 1 / 3     +     1 / 3     +     1 / 3 
 
 
 
                                      #.,       &; 
 
 
 
 )!"+   &
 
 
 
                             -   )!"+       &      +/."!/      ",    
 
                                 )!"+  -"          &    
 
                                 )!"+%    &+%  -";     !   !#"!"#.)
 
                                 &+  -"+    #."!/        )!"#    "#
 
                                     #    %       '!",    
 
                                 #.;     %  "",,     '"         " 
 
                                 " Y   =   ( I / J ) * %"     '  " I "       " J "   +/"!/
 
                                  &/  &  /,        #,""    /
 
                                              " %"         +/"!/        )!"
 
                                 #; 
 
 
 
  &  !    "'!",.
 
 
 
                             -   .  )!"+    &+  -"       &    !
 
                                   "'!",.    #"!/      "#    !    
 
                                 "'!",.,    '    .)!/      -"      !""!/
 
                                 !" (      ')        '!",.      +%      !      
 
                                 "'!",.,         (/    ')/    '!",  /"!/
 
                                 #/;       !    -"      +/"!/    +'!    !
 
                                   "'!",.. 
 
 
 
                  '.           )!"        -"        
 
 "#        "'!"      !        #'"    !",    "'!"
 
 +'!/      -"      -".           ,       )!"        '!
 
 0 . 3 3 3 3 3 3 3                   !              /            !""            '!
 
 0 . 3 3 3 3 3 3 3 0 0 0 0 0 0 0 0 0 ,                 '!        0 . 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 .       #
 
 "  """,,         '"      )!"+      -"+          !            
 
 "'!",.      //."!/      ",       ",+         !"/
 
 $"'!%    '!.            #," #.)        '/          )!"+%
 
 +                     +         !                  "'!",.          
 
 !"",!"  "'+    (,      !",,         !,        /"
 
 !",  "'!"  -"  "  +%; 
 
 
 
   !+   &
 
 
 
                             -      &/%,   ! )%    .  !+  -", 
 
                                 &+  -"+      #."!/    )!"#  "#, 
 
                                       #      +(;     -"+  !    "'!",.
 
                                   #."!/            )!"#    "#   #
 
                                 (  ')  '!";           !    -"  #'+
 
                                 )!"+      -"                   !!" "!/    
 
                                 !"",/      '!",      !  '!;   /
 
                                 '!",      -"      '!             #.;       !  -"
 
                                 +   +'!/"!/  !  !,       $"
 
                                 !+%  '!     #," #.)    '    #"
 
 
 
 
 
 
 
 
 
                                                             -   3 2   - 
 
 
 
                                                     0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
                                 "  !  ". 
 
 
 
 
 
 
 
                 4 . 2 .   + /  "(
 
 
 
 
 
                 +       "(/    !!""            #%       $"'!%
 
 + ,          +%         &        "(/.               '
 
         + /      !",              " !""   ,       " ,"           
 
 !!"      "    ",     +/"!/        "    #  "(. 
 
 
 
                  &  "(/  !#.): 
 
 
 
                          &                "(
 
 
 
                           . L T .                         ,(
 
                           . L E .                         ,(     
 
                           . E Q .                          
 
                           . N E .                            
 
                           . G T .                         ,(
 
                           . G E .                         ,(     
 
 
 
                  '.)    "'    -     -"    '!",         &  "- 
 
 (/    %  '    "!"  /",. 
 
 
 
                     !+    + /         +    ",      "(/
 
 . E Q .       . N E .   .       !       !#"!"#"          !  + , 
 
 "      "       +             #"!/            !#    "#. 
 
 !+      ' "+       +,         !      !""!"       +    %
 
 !"",+    +  '!". 
 
 
 
                       +       "(/                 !        +'!/"!/
 
 '         $"'!%        + .           "      -"      '+
 
 ! ."!/        /                ",       +/"/      "(, 
 
    &.         ,   + 
 
 
 
                                 A P P     +     P E A   . G T .   P A R     +     O R A 
 
 
 
 #!""            "(            !#.)          :               " !#
 
 )!"+%         +%      " A P P "             " P E A "           ,(          !#+
 
 )!"+%       +%    " P A R "             " O R A "   .     !    -"  !"(- 
 
     +/"!/,       '    + /           " !"" ,         !
 
 "  -   "  " ," . 
 
 
 
                 !     &      "(/      ."      +        "". 
 
 !",,       !            +       !" '."!/          
 
 +       "(/,        &      "(/      +/."!/      !
 
  .          $"'!         &        ."                +!
 
   "",     '     &    "(/. 
 
 
 
                 /        /         /        +'!         $"'!%
 
 +             +       "(/    !      !,#"!/    "'
 
 ",                         .       #       $"'!      + . 
 
         !,#       $"'!       &      +/."!/        
 
  &    "(/,     "      .'",              !       $"'!
 
 +       &        /",. 
 
 
 
 
 
                                                             -   3 3   - 
 
 
 
                                                     0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
                 !        +     "(/      ! ."/        + /
 
  +%      "      +%,              +      ! /  '/
 
 + /,     .)  "                       #"!/    
 
 "#        +!     . 
 
 
 
 
 
                 4 . 3 .   '!  + /
 
 
 
                 '!    +     "    +",      ",+      '!
 
 -"        &      '!%      -"        '!%
 
  &.     '!    +       "      '    " !""       
 
 " ," . 
 
 
 
                 '!    -"    "    +",              !#.)%: 
 
 
 
                       -   &/    '!/  !""; 
 
                       -   &/    '!/   /; 
 
                       -   -"  &    '!  !!; 
 
                       -   +   "(/; 
 
                       -   '!  + ,   .'    !; 
 
                       -    )    &    '!  $#&. 
 
 
 
                 '!   &  !#.): 
 
 
 
 . A N D . 
 
             -   '!/        ' .&/        ( '!        " " ) ;     + 
 
                 !"        "              ",      ",         " " ,     " " 
 
                 !"+; 
 
 
 
 . O R . 
 
             -   '!/                ' .&/              ( '!            " " ) ; 
 
                   ,             " A . O R . B " ;         +       !"      "      
 
                 ",      ",         !"            " A " ,             " B " , 
 
                   ; 
 
 
 
 . %O R . 
 
             -   !.'.)      ;             :         " A . %O R . B " ;             + 
 
                 !",       !      " A "       !",         " B "     ,   ,   !
 
                 " B "       !",             " A "       ;       +     ,     !
 
                   -"  ."    '; 
 
 
 
 . E Q V . 
 
             -   '!/      -"!",;             ,             " A . E Q V . B " ; 
 
                 +       !"      "            ",  ",         " A " 
 
                         " B "         ."          +        '!        '/, 
 
                  ',   !"            ,; 
 
 
 
 . N O T . 
 
             -   '!      " &          ( '!  " " ) ;               
 
                 " . N O T . A " ;         +       !"      "        ",    ", 
 
                     " A " . 
 
 
 
       !      +/"!/      '!/             &/          '!
 
 -",        #," #.)/      '      #"    '!    ". 
 
 !    '!/       &/    +/"!/          &+    -", 
 
 
 
 
 
 
 
                                                             -   3 4   - 
 
 
 
                                                     0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
 "            +       !%"      /      !""!"#.)
 
   /            #"       ( ')          !"/          &+%
 
 -".            #," #.)/        '          "!"!/              "#
 
 " &+" .               !            '!   &  !",           +  
 
 &,       "            '!      ",           "    '    '!/
 
 '        #"!/            &      ',     "       &/
 
 +/"!/    "    ,                     !#'      #%    &+%  -". 
 
  #,""  "  &+  ". 
 
 
 
                 +'!        '!        + /     !%"  !!
 
 !" (!"#                 &.         " +      '!  + /
 
 #"        +",          +'!+        +'!/  !%  + . 
 
   ,         !          " "                    " . F A L S E . " ,         "          + 
 
 " A . A N D . ( F ( %, Y ) . G T . 2 . 0 ) . A N D . W "                      " . F A L S E . " .           '
 
 -"          + /          "  +",       ",      " A " 
 
           +'!/      F ( %, Y ) .            "    "      +'!      
 
 " #"!/        +        +      $#&    " F " ,         ##"  ",
 
 !"  !"/,   !/+  !  +. 
 
 
 
                               ',      !%       &,   " +  #"
 
 !" '",!/            '!      + ,          /,           " 
 
   +/."!/. 
 
 
 
                  &/                            +/"!/
 
 
 
                     * *                                          
 
                     * , /                                       " 
 
                     + , -                                       " ",
 
        &/  "(/                      '" "
 
                     . N O T .                                   /"
 
                     . A N D .                                   (!"
 
                     . O R .                                     !,
 
               . X O R . , . E Q V .                             !,
 
 
 
 
 
                  &      !      +        ""    +/."!/    !
 
  .                                          '!  + /, 
 
 ! )  + /  "(. 
 
 
 
                 A * B   +   C * A B C . E Q . X * Y   +   D M * Z Z . A N D .   . N O T . K * B . G T . T T 
 
 
 
                 -"  +   +'!/"!/    !#.)   /: 
 
 
 
 ( ( ( A * B ) + ( C * A B C ) ) . E Q . ( ( X * Y ) + ( D M * Z Z ) ) ) . A N D . ( . N O T . ( ( K * B ) 
 
 . G T . T T ) ) 
 
 
 
                                      $"'!%        + /%    /    /
 
 +'         /        +/         &    #"  !,",!/
 
 !. 
 
 
 
                             '!%       &      #"   !",!/
 
  /,             !.'      "      !#'/,         " /   &/
 
 !",  " . N O T . "   . 
 
 
 
 
 
                                                               -   3 5   - 
 
 
 
                                                     0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
                                     5 .    " +  /+  $ " - 86
 
 
 
 
 
 
 
                 5 . 1 .    " +   !/
 
 
 
 
 
                  " +   !/   /."  '   
 
   -"    !!    #"    +'!/    "   + /
 
    !/     #," #.)    '/         -- 
 
 "#  !!. 
 
 
 
                 !#)!"#"  "   "   "    !/: 
 
 
 
                       -    $"'!; 
 
 
 
                       -   '!; 
 
 
 
                       -    "   " 0AA83=" . 
 
 
 
 
 
 
 
                 5 . 1 . 1 .    $"'!   "    !/
 
 
 
                  $"'!   "    !"    '    + - 
 
 /,    !      !       "       !",    
 
   -"#  !!,       %/)#!/      !  "     !"- 
 
 .   !  #               -"  +  - "  ',   
 
 " /"!/. 
 
 
 
                  $"'!       "    !/  "  !#.)
 
 : 
 
 
 
                                                     2  =   0
 
 
 
 
 
 
 
 2
 
               -   "$"       '!           "$- 
 
                   "   !!; 
 
 
 
 0
 
               -   + . 
 
 
 
                    !"  !,    '"  "  " ,     +'  
 
 "".     '"  " /"!/" .   "   ,          - 
 
 "       8= 8+ 1       '":       " "#)    '    &   
 
 " 8"     /"!/    !#    -"  "#)  '/    &  !- 
 
 ""+  " 1 " . 
 
 
 
                 %"/    "$"     !  "     !"  "  
 
 +",      ",     ,       !  "$"   ! 
 
 "             !",       " +  ."!/   )/    + - 
 
 
 
 
 
 
 
                                                             -   3 6   - 
 
 
 
                                                     0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
 ,     ",  +  +",   !+  '/. 
 
 
 
                  #,""  + /    +",  ',   #"- 
 
  /.)    " /    "             -"    !!, 
 
 " +     !"!/.           ,       )!"  + - 
 
 ,        #,""      "       //"!/  ',    +(.)/
 
 3 2 7 6 7 ,       #!",       !  ' "  !  "     !"
 
 //"!/   /  "  " 8=B535@* 2 " . 
 
 
 
                 !  "       -"  !!,   %/)!/
 
 !    "           !",     "'  "  ,     #  + /
 
 ! ,    "   ! !"    +/"   !. 
 
 !      "+       '."!/,         "        !  '
 
 + /        #."!/        "#  ' ",   %/)!/  !
 
 "     !". 
 
 
 
                          /      /   "    !/
 
 !#.): 
 
 
 
    /    -"  !!  " 2"   -   &/: 
 
 
 
                 -   !         #,""      + /    " 0"   //"!/  &/, 
 
                     '!/        !, '/      !"",     "      " 2" 
 
                      !"!/  '  " 0" ; 
 
 
 
                 -   !   #,""  + /    " 0"   //"!/    )!"- 
 
                     /  !"",   "  '  " 0"   #!"!/        &
 
                        !"!/  " 2" ; 
 
 
 
                 -   !     #,""    + /    " 0"   //"!/  !""
 
                     !    "'!",.,     "    '    " 0"   #!"!/  
 
                     &     !"!/  " 2" ; 
 
 
 
                 -   !     #,""    + /    " 0"   //"!/  !- 
 
                       '!,   "  !"",/    '!",    " 0"       #!"!/
 
                       &         !"!/  " 2" .   /  '!",  " 0"   
 
                     !,#"!/; 
 
 
 
    /    -"  !!  " 2"   -   )!"/: 
 
 
 
                 -   !       #,""      + /    " 0"     //"!/  &/, 
 
                     '!/          ! '/  !"",   "    '- 
 
                     .      " 0"       /"!/     /    '!",    ( . 0 ) ,     
 
                      !"!/  " 2" ; 
 
 
 
                 -   !     #,""  + /    " 0"   //"!/  )!"- 
 
                     /    !"",     "    " 2"    !"!/  '  " 0" ; 
 
 
 
                 -   !     #,""    + /    " 0"     //"!/    '!  !
 
                         "'!",.,     "    " 2"      !"!/    !" (/
 
                     ')/  '!",  " 0" ;     (/  '!",    " 0"    #/"!/; 
 
 
 
                 -   !     #,""    + /    " 0"   //"!/  !- 
 
                           '!,     "    !"",/    '!",  " 0"    !- 
 
                     "!/  " 2" ;   /  '!",  " 0"     !,#"!/; 
 
 
 
    /    -"  !!  " 2"   -   !    "'!",.: 
 
 
 
                 -   !     #,""      + /    " 0"     //"!/    &/, 
 
 
 
 
 
                                                             -   3 7   - 
 
 
 
                                                     0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
                     '!/    !, '/  !"",     "    '- 
 
                     .  " 0"   /"!/       /  '!",      ( . 0 ) ,         
 
                      !"!/  !" (  ')  '!"  " 2"   ;     (/
 
                     ')/  '!",  " 2"      #.; 
 
 
 
                 -   !   #,""  + /  " 0"   //"!/    )!"- 
 
                     /  !"",   "  " 0"    !"!/  !" (    '- 
 
                     )  '!"  " 2" .   (/  ')/  '!",     #.; 
 
 
 
                 -   !       #,""      + /  " 0"   //"!/  '!  !
 
                         "'!",.,       "  " 2"    !"!/  '
 
                     " 0" ; 
 
 
 
                 -   !     #,""    + /  " 0"   //"!/  !- 
 
                         '!,       "    !"",/  '!",  " 0"    !- 
 
                     "!/  !" (  '!"  " 2" .       (/    ')/  '!",
 
                     " 2"      #.;   /  '!",  " 0"     !,#"!/; 
 
 
 
    /    -"  !!  " 2"   -   !/: 
 
 
 
                 -   !     #,""      + /    " 0"     //"!/  &/, 
 
                     '!/            !, '/      !"",   "  " 0" 
 
                     !"!/             '!",.  ( . 0 )        !"!/
 
                     !"",      '!"    " 2" ;   /  '!",  " 2"    
 
                     0 . 0 ; 
 
 
 
                 -   !     #,""  + /  " 0"   //"!/  )!"- 
 
                     /    !"",   "     !"!/  !"",
 
                     '!"  " 2"   ;   /  '!",  " 2"      0 . 0 ; 
 
 
 
                 -   !       #,""      + /  " 0"   //"!/  '!  !
 
                       "'!",.,       "    !" (/  ')/  '!",  " 0" 
 
                      !"!/      !"",      '!"  " 2" ;   (/
 
                     ')/    '!",    " 0"      #/"!/.   /  '!",  " 2" 
 
                        0 . 0 ; 
 
 
 
                 -   !     #,""    + /  " 0"   //"!/  !- 
 
                       '!,       "  " 2"    !"!/  '  " 0" . 
 
 
 
                   +  !  #!"+%   " : 
 
 
 
     15B0  =   - 1 . / ( 2 . * L)   +   0* 0/ ( 4 . * ( L* L) ) 
 
     ?1   =   3 . 1 4 1 5 9 
 
     AC<  =   AC<  +   1 
 
 
 
                   +  !  #!"+%   " : 
 
 
 
     3 . 1 4   =   0  -   1      ( ' "              '!"      +",   - 
 
                                         -"  !!) ; 
 
     - 9  = 1 * * 4               ( ' "                '!"          ",
 
                                     ) ; 
 
     0;?E0    =   ( ( L+ 6 ) * 1* 1/ ( L- K)   ( '!        " +.)%!/        !
 
                                          '!#   +.)%!/  !) . 
 
 
 
 
 
 
 
                                                             -   3 8   - 
 
 
 
                                                     0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
                 5 . 1 . 2 .   '!   " +   !/
 
 
 
                 '!   "    !/     $"'!- 
 
 #     " #       !/,         #"  !  '!
 
 +.       '!   "    !/  +'!/"  + - 
 
 ,   %/)!/      !       "     !",      !"
 
  #," #.)#.  '!#.        '#       -"#
 
 !!,    !#  !  "     !". 
 
 
 
                 '!   "   "  !#.)  : 
 
 
 
                                             2  =   0
 
 
 
   
 
 
 
   2
 
             -    /    -"  !!  '!  "; 
 
 
 
   0
 
             -   '!  + . 
 
 
 
                  /    -"  !!,   !"/)  !  "  
 
  !",       /+   ",    "#  " ;>38F0;" ,   %  '- 
 
   "  +",            . 
 
 
 
                 !      "$" ,        !#"!"#.)      + , 
 
 +  +",    ",   !+  '!+            '!- 
 
   '/.    #,""      +'!/          +",  '!
 
 '. 
 
 
 
     +: 
 
 
 
                 ?035=4  = . D0;A5. 
 
                 ?C;;  =   ;8=5. ;5. 1 3 2 . 0=4. . =>B. @>18=
 
                 18;;  =   0. 3B. 1. 0=4.     0. 3B.   F  . 0=4.   0
 
 
 
 
 
 
 
                 5 . 1 . 3 .    "   " 0AA83=" 
 
 
 
 
 
 
 
                  "       " 0AA83="   !,#"!/  /   !/    &
 
        "     " .   "  -"   /  "  +",
 
 !,      /      #/  !"   '  # /    !- 
 
 #.)   "    %     !.  " 3>B>"   . 
 
 
 
                  "   " 0AA83="   "  !#.)  : 
 
 
 
                                 0AA83=    A  B>  2
 
 
 
   
 
 
 
 A
 
             -   "        +/       "     "        - 
 
                   #/,   '"     "   " 0AA83="         (     "
 
                 +",  "   "   " D>@<0B" ) ; 
 
 
 
 
 
 
 
                                                             -   3 9   - 
 
 
 
                                                     0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
   2
 
                 -   &/   /. 
 
 
 
                  "   " 0AA83="    !"   +        - 
 
 "       "         ,         -"  "!/     $"'!
 
  "        !/.          /,     #'(/    '
 
 "    "      +",      !,         /,   .)/
 
 '!  ',         "%   ,                   #'"  
 
  $"'!       "        !/       "   - 
 
 . 
 
 
 
                  " 
 
 
 
                       0AA83=  1 0 0   B>  =C<15@
 
 
 
 !""          !""!"         " =C<15@"   "#   " 
 
 1 0 0 .   !  -"   $"'!       &        -"   - 
 
   ",        " 
 
 
 
                       =C<15@  =   =C<15@  +   1 
 
 
 
 ##"      #!"+,       "    "   "     "  +",
 
 .    " 
 
 
 
                       =C<15@  =   1 0 
 
 
 
  !"             " =C<15@"       '  1 0      )"
 
 -"#   #.                  !%    !!"/    '!"  &
 
  .         " ,  -"   /    "  +",  !,- 
 
      "    %     !.. 
 
 
 
                   +  !,/   "   " 0AA83=" : 
 
 
 
                       0AA83=  1 0   B>  =AB0@B
 
                       0AA83=  9 9 9 9   B>  =AB>?
 
                       0AA83=  3 5 0   B>  5@0A        ( 5@0A    +",   
 
                                                                       &/   /) 
 
 
 
 
 
                 5 . 2 .    " +  # /
 
 
 
 
 
                  " +,          ,   +/."!/    "   /,   
 
     !+.             %    ",  +'- 
 
 +   /  +/        +       '        # /  
 
  ##.  !&.    +            #.    '  # - 
 
 /          "'      +  "  +",  +  !/
 
  ,         -"    "'  !" ""!/     &!!  +/   - 
 
  +.           "     ",          '  # /
 
 #"      +         !#)!"/",!/    #    "#    "'#   - 
 
  +. 
 
 
 
                  '      # /,       #"       
 
 #/,     "             #    +  #,,   +/"!/   
 
 )   "       # /.            ",       -"   " +
 
 # /."      " &     ",    !"  +/
 
   +            )  +/    +.   ."!/  !- 
 
 
 
 
 
                                                             -   4 1   - 
 
 
 
                                                       0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
               5 . 2 . 1 . 2 .   +'!/+   "    %  " G O   T O " 
 
 
 
 
 
               +'!/+   "    %   "  #     - 
 
        " #,    /#        '.    + /,   %/)  
 
        "   " G O   T O " . 
 
 
 
               +'!/+   "    %    " G O   T O "     "  !#.)
 
       : 
 
 
 
               G O   T O   ( K 1 , K 2 , . . . K N ) [ , ]   M 
 
 
 
       
 
 
 
       K 1 , K 2 , . . . , K N 
 
               -   "  +/+%   " ;   !!  "    +"!/
 
                   !!   %; 
 
 
 
       M       -    $"'!  + ,   '  "     //"!/
 
                   &  '!,   )  #"   "   "  1     N   ( N   - -"
 
                   '!  "   "     !!   %) . 
 
 
 
               +'!/+   "    %    +'!/"    +     " " . 
 
       !  -"   "   " G O   T O "    "  #     "    - 
 
        " ,    /+     "         !!     %     
 
       #'#  '.  + /.     ,   !    !!    "
 
         ( 3 0 , 2 0 , 5 0 , 4 0 ) ,       '    + /    " "        " 2 " ,   "
 
        "   " G O   T O "    !"  #      "   !  "  " 2 0 " . 
 
 
 
               !  '    + /    ,(    &+    ,(,   '
 
       '!  "    !!   %,     #      "!/     - 
 
       #  +/#   " #,   !#.)#    +'!/+   - 
 
       "    %  " G O   T O " . 
 
 
 
         +: 
 
 
 
               G O   T O   ( 1 7 , 2 5 , 3 6 ) ,   K E N D 
 
               G O   T O   ( 3 4 0 , 3 6 0 , 5 0 0 , 7 0 0 )   S I T U ( J , K ) + 1 
 
 
 
 
 
                   5 . 2 . 1 . 3 .    "    %     !.  " G O   T O " 
 
 
 
                    "    %     !.  "  !#.)  : 
 
 
 
                     G O   T O   V [ [ , ] ( K 1 , K 2 , . . . , K N ) ] 
 
 
 
       
 
 
 
       V 
 
               -   &/   /; 
 
 
 
 
 
 
 
 
 
                                                       -   4 2   - 
 
 
 
                                             0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
       K 1 , K 2 , . . . , K N 
 
                       -   "  +/+%   " . 
 
 
 
                      "      %     !.   "    # 
 
        " #,   "  "   +  !     !     - 
 
         " V "    "   " A S S I G N " . 
 
 
 
                      /  " V "     +",     &  "    
 
         +",   !  '  "  "      "     !
 
       ),.   "   " A S S I G N "   (          $"'!     " 
 
        !/)     +/   "   " G O   T O " . 
 
 
 
                      "    %     !.    !""!"#.)  - 
 
        "     (      " +)     " A S S I G N "     +    +",       !+
 
       #"           "              #/.      " +, 
 
       " +   "!/  # ,   "  +  +",   !+
 
         "        #. 
 
 
 
             +: 
 
 
 
                         G O   T O   I G O 
 
                         G O   T O   I N D E X ,   ( 3 0 0 , 4 0 0 , 1 0 0 0 , 7 0 0 ) 
 
 
 
 
 
                     5 . 2 . 2 .    " +  " I F " 
 
 
 
 
 
                      "   " I F "   ++"  #!#.   '#  # /  
 
       #!  +  "      " .   "!/          "
 
        "   " I F " : 
 
 
 
                     -    $"'!   "   #!   %  " I F " ; 
 
 
 
                     -   '!  #!+   "   " I F " . 
 
 
 
                   %  !#'/%   (     '  # /      +- 
 
          "   !+"!/     #,""  +'!/  + /, 
 
       %/)    !!"   "   " I F " . 
 
 
 
 
 
                     5 . 2 . 2 . 1 .    $"'!     "     #!
 
                                        %  " I F " 
 
 
 
                  $"'!   "     #!     %    " I F "     "
 
       !#.)  : 
 
 
 
                     I F   ( M )   1 , 2 , 3 
 
 
 
       
 
 
 
       
 
                   -    $"'!  + , 
 
 
 
 
 
 
 
                                                         -   4 3   - 
 
 
 
                                               0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
       K 1 , K 2 , K 3 
 
                   -   "  +/+%   " ,    !!+%      "  
 
                       !      &. 
 
 
 
                   !   "   +   !#"!"",  !    "     ". 
 
       -"  "  /",  +  "!",!/    "    +   - 
 
       " .   !  %,         "  #"  "!",!/    
 
       #   " #. 
 
 
 
                    +   $"'!   "   #!     - 
 
       %     !  +'!/"!/    +         !%,       "
 
       #    "!/   " #  !  "  " K 1 " ,   " K 2 "       " 3 " , 
 
       !  '  + /  " M "   !""!"  ,(,          
 
       ,(  #/. 
 
 
 
           +: 
 
 
 
                       I F ( G A M M A - C H I )   5 0 , 5 0 , 1 0 0 
 
 
 
       -""   "    "  #    " #  5 0 ,   !  )!"- 
 
       /   /  " G A M M A "   ,(       )!"   
 
       " C H I " .   #    "!/   " #  1 0 0   ",    "    !#- 
 
       ',     " G A M M A "   ,(,   '  " C H I " . 
 
 
 
                       I F ( N U M B E R / 2 * 2 - N U M B E R ) 2 0 , 4 0 , 2 0 
 
 
 
       -""   "    "  #    " #  4 0 ,   !  '
 
       &     " N U M B E R "   '",      " #  2 0 ,   !    - 
 
       '".     -"  !#'  " ",/  "   "   /   !#"!"- 
 
       ",,   %"/        !,#"!/;   '    + /
 
       #"    #,     " &",+  '!. 
 
 
 
 
 
 
 
                     5 . 2 . 2 . 2 .   '!  #!+   "   " I F " 
 
 
 
 
 
                 '!  #!+   "   " I F "   "  !#.)  : 
 
 
 
                     I F   ( E )   S 
 
 
 
       
 
 
 
       
 
                     -   '!  + ; 
 
 
 
       S             -    "   $ " ,     !.'   "   " D O "   
 
                          #  '!  #!   "   " I F " . 
 
 
 
                    +  '!  #!   "      !- 
 
         +'!/"!/  '  '!  + /.   !  -"    '- 
 
            " . T R U E . " ,   "   !%"    +       "     " S " . 
 
       !  '  + /     " . F A L S E . " ,   #    "!/
 
        #  +/#   " #,   !#.)         "     " I F " 
 
       (    -"   "   " S "     +/"!/) . 
 
 
 
 
 
                                                         -   4 4   - 
 
 
 
                                               0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
         +: 
 
 
 
                 I F   ( J . G T . 4 . O R . J . L T . 1 )   G O   T O   2 0 0 
 
                 I F   ( R E C ( J , K ) . N E . H O L D )   R E C ( J , K ) = R E C ( J , K ) * 2 
 
                 I F   ( E N D R U N )   C A L L   E X I T 
 
 
 
 
 
                 5 . 2 . 3 .    "   " D O " 
 
 
 
 
 
                  "     " D O "     !,#"!/    /    /      " &
 
        ".    "     " D O "     /"      " ",     
 
       '!     +   " ,   %/)%!/        !"      
 
       !"/. 
 
 
 
                  "   " D O "   "  !#.)  : 
 
 
 
                       D O   S   [ , ]   I = E 1 , E 2 [ , E 3 ] 
 
 
 
       
 
 
 
       S 
 
                 -   "  !  +/   " .   -""     " 
 
                       $'!   !",!/  !   "     " D O "     
 
                     "    !      &; 
 
 
 
       I 
 
                 -   &/   /; 
 
 
 
       E 1 , E 2 , E 3 
 
                 -   &+  + /. 
 
 
 
                  /  " I "   +"!/  !'"'  &,     " E 1 " ,     " E 2 " , 
 
       " E 3 "   +."!/  !""!"  ',+   " ,   '+
 
        "     (  " &.   !  (  #),        "!/
 
        +  " 1 " . 
 
 
 
                 !     " ,     .'+        &,   #+"!/  !
 
       ),.  "    !   "   &  " D O " .   -"     " 
 
           +",     "   " G O   T O " ,    $"'!   " 
 
       #!   %  " I F " ,      "     " R E T U R N "              #
 
        "   " D O " .     '!"    !       "       #!"
 
       !,  '!  #!   "   " I F " . 
 
 
 
                 !   " +,   " +  !##."     "   " D O "   ",
 
         !   "   ( .'/  ) ,    #."  !",    - 
 
       !"/   "   " D O "   ( !",  &) . 
 
 
 
                    +   "   " D O "      !      +'!/."!/
 
       + /  " E 1 " ,   " E 2 "     " E 3 "   /   /  '    ',- 
 
           '   "     (.   !    -"    # /.)
 
           !"!/  '  ',   " .   "
 
        !%"   "  +  !%  +/+%     "- 
 
        ,   )%    !"  !"/   "   " D O " . 
 
 
 
 
 
 
 
                                                       -   4 5   - 
 
 
 
                                             0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
               !    (    ",     '    '   "   
 
         +",  ,(  '/  ',   " .      ", 
 
       !  (  " &",   '  '   "       
 
       +",  ,(,   '  ',.   '    (            +",
 
       #. 
 
 
 
               '!  +   "     !"  !"/   " 
 
       &,   +  '!  " &,    /"!/    $ #: 
 
 
 
               [ ( E 2   -   E 1 ) / E 3 ] +   1 
 
 
 
       '     "+%  !%   !"/"    ,(    !- 
 
       ."  &  '  + /. 
 
 
 
               !  '!  " &     #.    " &",,   &  +- 
 
       /"!/  ",     . 
 
 
 
 
 
               5 . 2 . 3 . 1 .   #   " &
 
 
 
 
 
               /    " &  !    +  !   - 
 
       "   "  &  +/."!/  !#.)  # /.)  !"/: 
 
 
 
               -     '.  # /.)      '!     - 
 
                   /"!/  '  (; 
 
 
 
               -   #,(/"!/  !'"'  " &; 
 
 
 
               -   !  !'"'  " &  ,(  #/,   #    "- 
 
                   !/   #  +/#     " #,      !#      
 
                    "   " D O " ,   /  '   " /   "     
 
                   !"  !"/  &; 
 
 
 
               -   !  !'"'  " &     #.,   +  &   - 
 
                    )"!/. 
 
 
 
               +  &  "  +",    "      )    !    ),.
 
        " ,   %/)!/    !"  !"/  &,   " +    - 
 
        "  #      +  &.        -"    #      # /.)
 
          !""!/  ',        "#)#  '.. 
 
 
 
               !  !   "   &  %"           #      &+, 
 
       "    '.  #"   &  #        "!/    
 
       !+  #"     !"(%!/  (%  &.   !  -""  !- 
 
          "     %"         #  &+,       !
 
       +  &  +  !+  (,   #    "!/     #
 
       +/#   " #,   !#.)#        !     " 
 
       &. 
 
 
 
               '/  # /.)   ,   '       "     
 
       (    #"  ",!/  #"   !"  !"/   "   " D O " . 
 
       #"   -"  !"  #!"!/   )    # /.)   - 
 
             +'   . 
 
 
 
                                                             -   4 6   - 
 
 
 
                                                   0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
                   !"  !"/     "       " D O "     #"    %",!/
 
            #   " +  " D O "      #!,   '"        #" /."
 
            +  " /. 
 
 
 
                    '  # /    "  &        ,   
 
           ,/   ",  #     "  &    -    #- 
 
             !"    +,   !  -""  &  )    '",       
 
           #  '. 
 
 
 
 
 
                   +. 
 
 
 
           D O   1 0 0   K = 1 , 5 0 , 2       ( 2 5   " &;   K = 4 9      /  !
 
                                               " &) 
 
           D O   3 5 0   J = 5 0 , - 2 , - 2   ( 2 7   " &;   J = - 2      /  !
 
                                               " &) 
 
           D O   2 5   I V A R = 1 , 5         ( 5   " &;   I V A R = 5      /  !
 
                                               " &) 
 
 
 
 
 
                 5 . 2 . 3 . 2 .   !",   "   " D O " 
 
 
 
 
 
                 !",   "     " D O "     "  ! ",      
 
            #%   "   " D O " .   !",  !"/  #"     - 
 
             &    !",.  ",  #"   !"  !"- 
 
           /  %"+.)    &  (     !      #"     
 
           %"+.)%) .   "/  !#!",     "     " D O "         %
 
           !"  +"!/    !",.    .   &+        &
 
           #"  ",      ""    !   " . 
 
 
 
               #!"  !"   "   " D O " : 
 
 
 
               ! -                       D O   9 0   K = 1 , 1 0 
 
               !                                   . . . 
 
               !                                   . . . 
 
               ! 
 
               ! ! -                     D O   3 5   L = 2 , 5 0 , 2 
 
               ! !                                 . . . 
 
               ! !                                 . . . 
 
               ! ! -                           3 5   C O N T I N U E 
 
               ! 
 
               !                                   . . . 
 
               !                                   . . . 
 
               ! 
 
               ! ! -                     D O   9 0   M = 1 , 2 0 
 
               ! ! 
 
               ! !                                 . . . 
 
               ! !                                 . . . 
 
               ! ! -                           9 0   C O N T I N U E 
 
               ! - 
 
 
 
 
 
                                                             -   4 7   - 
 
 
 
                                                   0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
 
 
                 #!"  !"   "   " D O " : 
 
 
 
               ! -             D O   8 0   K = 1 , 1 0 
 
               !                       . . . 
 
               !                       . . . 
 
               ! 
 
           ! - !               D O   2 5   I = 1 , 2 0 
 
           !   !                       . . . 
 
           !   !                       . . . 
 
           !   ! -     8 0     C O N T I N U E 
 
           ! 
 
           !                           . . . 
 
           !                           . . . 
 
           ! 
 
           !   ! -             D O   3 0   M = 1 , 1 5 
 
           !   !                       . . . 
 
           !   !                       . . . 
 
           ! - !       2 5     C O N T I N U E 
 
               ! 
 
               !                       . . . 
 
               !                       . . . 
 
               ! -     3 0     C O N T I N U E 
 
 
 
 
 
               5 . 2 . 3 . 3 .    '  # /    +%  " D O " 
 
 
 
 
 
               #"     !" #"# +  " D O "   #     "     - 
 
         ",!/    #"   &      (.    '    # /
 
           (  &    #"    )+. 
 
 
 
               !        +%  &  ."          ""    
 
         !   " ,   #   -"#   " #  "  +",  - 
 
            ",    !"  !"/  !    #"     &. 
 
         ./   #/   '  # /  -"#   " #    #"     !- 
 
         !" ",!/     '  # /      (    &      
 
         #" ,   "    -""  )   "   //"!/  '!",.  !- 
 
         "  !"/  !  #"   &. 
 
 
 
 
 
               5 . 2 . 3 . 4 .    !( /  !",  !"/
 
 
 
                  "   &  " D O "    /",   '"    "     !( #.
 
         !",  !"/,   !  !",  &  ! "   "   # - 
 
         /,   " +   "  #      +  !"    &, 
 
         ,   !  !  +/          !,%     " , 
 
          #   "   # /   )"  #       &. 
 
         "     !",  &  #"   !(     !'"  .'/
 
         !%  +/+%   " ,    !+%  #     " , 
 
         " +  #'  #     &,            " ,   " +
 
          #  #     &. 
 
 
 
 
 
 
 
                                                         -   4 8   - 
 
 
 
                                               0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
                 #!"+%   '  # /  !   !(   !",.
 
             !"/: 
 
 
 
             ! -           D O   3 5   K = 1 , 1 0 
 
             !                   .   .   . 
 
             ! 
 
             ! ! -         D O   1 5   L = 2 , 2 0 
 
             ! !                 .   .   . 
 
             ! !           G O   T O   2 0             - I 
 
             ! !                 .   .   .               I 
 
             ! ! -       1 5   C O N T I N U E           I 
 
             !                                           I 
 
             !                   .   .   .               I 
 
             !           2 0   A = B + C       < - - -   I 
 
             !                   .   .   . 
 
             ! 
 
             ! ! -         D O   3 5   M = 1 , 1 5 
 
             ! !                 .   .   . 
 
             ! !           G O   T O   5 0             - I 
 
             ! !                 .   .   .               I 
 
             ! !         3 0   X = A * D                 I < - - I 
 
             ! ! -       3 5   C O N T I N U E           I       I 
 
             ! -                                         I       I 
 
                                                         I       I 
 
                                 .   .   .               I       I 
 
                                 .   .   .               I       I 
 
                                                         I       I 
 
                         5 0   D = E / F         < - - - I       I 
 
          !(-             .   .   .                       I 
 
          /            .   .   .                       I 
 
         !",          .   .   .                       I 
 
                           G O   T O   3 0       - - - - - - - - I 
 
 
 
 
 
 
 
                                                         -   4 9   - 
 
 
 
                                               0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
                         #!"+%   '  # /: 
 
 
 
 
 
                                                 G 0   T O   7 0                   - - I 
 
                                                       .   .   .                       I 
 
                                                                                       I 
 
                         ! -                     D O   5 0   K = 1 , 1 0               I 
 
                         !                             .   .   .                       I 
 
                         !                 7 0   A = B + C                     < - - - I 
 
                         !                             .   .   . 
 
                         ! 
 
                         ! ! -                   D O   3 5   L = 2 , 2 0 
 
                         ! !                           .   .   . 
 
                         ! !               3 0   D = E / F                     < - - - I 
 
                         ! !                           .   .   .                       I 
 
                         ! ! -             3 5   C O N T I N U E                       I 
 
                         !                                                             I 
 
                         !                             .   .   .                       I 
 
                         !                       G O   T O   4 0               - - - I I 
 
                         !                             .   .   .                     I I 
 
                         ! ! -                   D O   4 5   M = 1 , 1 5             I I 
 
                         ! !                           .   .   .                     I I 
 
                         ! !               4 0   X = A * D                     < - - I I 
 
                         ! !                           .   .   .                       I 
 
                         ! ! -             4 5   C O N T I N U E                       I 
 
                         !                                                             I 
 
                         !                             .   .   .                       I 
 
                         ! -               5 0   C O N T I N U E                       I 
 
                         ! -                                                           I 
 
                                                       .   .   .                       I 
 
                                                 G O   T O   3 0               - - - - I 
 
 
 
 
 
 
 
               !,     !(     !"    !"/   " 
 
       " D O "   '/"!/  !#.)   : 
 
 
 
                 -    '  # /        !"    !"/     " 
 
                     " D O "     ("!/  ",  ",         -"     '
 
                     # /     "!/           !(       !"
 
                     !"/  -"   "   " D O " ; 
 
 
 
                 -      !(   !"  !"/   "     " D O "     - 
 
                      )"!/      # /.)     ,   (,   
 
                     "  ',    '   " . 
 
 
 
 
 
                 5 . 2 . 4 .    "   " C O N T I N U E " 
 
 
 
 
 
                  "     " C O N T I N U E "      "    #     !#.)#
 
       +/#   " #.     +     !,#"!/  
 
       !   "     !"  !"/   "   " D O "       "%
 
       !#'/%,     !     "         "    ",    "
 
        (/  &  ( //"!/     "     " G O   T O " ,       
 
        $"'!   "     #!     %    " I F " ,     
 
        #   )+   "   # /) . 
 
 
 
                  "   " C O N T I N U E "   "  !#.)  : 
 
 
 
 
 
 
 
                                                         -   5 0   - 
 
 
 
                                               0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
                 C O N T I N U E 
 
 
 
 
 
             5 . 2 . 5 .    "   " C A L L " 
 
 
 
 
 
              "   " C A L L "   ++"  +    +     /"
 
       !!  $"'!%   " ,    +%      #. 
 
 
 
              "   " C A L L "   "  !#.)  : 
 
 
 
             C A L L   S [ ( [ P ]     [ , [ P ] ] . . . ) ] 
 
 
 
       
 
 
 
       S 
 
             -   /    +,   !    /+    $ "         
 
                 /+   !! ,           !!"+%   - 
 
                  ; 
 
 
 
       P 
 
             -   $"'!   " ,   !""!"#.)  #    $ ,- 
 
                 +%   "     +( '!+%    %. 
 
 
 
              "   " C A L L "   #!""  !""!"  #  '/- 
 
           !!     "     ( !  !!   !#"!"#")     $ ,- 
 
       +     "               "   "    # - 
 
          #  +/#   " #    +. 
 
 
 
 
 
              " +,     #+         "     " C A L L " ,     +      
 
       !#  '!"#,    /#  !/      "#    +%    !"- 
 
       "!"",  $ ,+   "          +. 
 
         '!"  $"'!%   "   #!"!/    !,
 
        +%,   !!,   -"  !!,   !"", + , 
 
       #- &$ +%  "     "$"     , 
 
       !  -"  "$" +  +  !+     "   " E X T E R N A L " . 
 
       "$"   !!    !!  !,      !+    
 
       !!   " ,   "!"!/    !#  !!#    &. 
 
 
 
               +. 
 
 
 
                           C A L L   P R O C E N T ( B P L , 3 . 1 4 1 5 9 + X , Y , L I M I T , R ( L T + 2 ) ) 
 
                           C A L L   C A L V E ( A , B ) 
 
                           C A L L   E X I T 
 
 
 
 
 
             5 . 2 . 6 .    "   " R E T U R N " 
 
 
 
 
 
              "   " R E T U R N "   !,#"!/  /   "  # /  
 
         +    ++.)    +  #,. 
 
 
 
                                                             -   5 1   - 
 
 
 
                                                   0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
 
 
              "   " R E T U R N "   "  !#.)  : 
 
 
 
                   R E T U R N 
 
 
 
                  +     "       " R E T U R N "             - 
 
         $#&     "  #    " #, ! )#   - 
 
         )    $#&.      +             " 
 
         " R E T U R N "   #    "!/   #  +/#   - 
 
         " #,   !#.)#    ! !"         "     " C A L L " , 
 
         " +  +  +    +. 
 
 
 
              "   " R E T U R N "          !#"!"",        !
 
             #. 
 
 
 
               . 
 
 
 
                 S U B R O U T I N E   C A R T ( N , A , D A T A , P , K ) 
 
                 D I M E N S I O N   D A T A ( N ) ,   P ( N ) 
 
                 I F ( N . L T . 1 0 )   G O   T O   2 0 0 
 
                 D A T A ( K + 2 ) = N - ( N / 1 0 ) * N 
 
                 N = N / 1 0 
 
                 D A T A ( K + 1 ) = N 
 
                 P ( K + 2 ) = A ( D A T A ( K + 2 ) + 1 ) 
 
                 P ( K + 1 ) = A ( D A T A ( K + 1 ) + 1 ) 
 
                 R E T U R N 
 
       2 0 0     P ( K + 2 ) = A ( N + 1 ) 
 
                 R E T U R N 
 
                 E N D 
 
 
 
 
 
             5 . 2 . 7 .    "   " P A U S E " 
 
 
 
 
 
              "     " P A U S E "           !""  +
 
         +,   //   " #    #,"    +",    - 
 
         %+  !"/. 
 
 
 
              "   " P A U S E "   "  !#.)  : 
 
 
 
                   P A U S E   [ N ] 
 
 
 
 
 
       
 
 
 
       N 
 
           -   !",!",    !/"'+%      &$ ,     ! )/    "
 
                   /"    &$ ,       #- &$     " , 
 
                 !, '/  !"". 
 
 
 
            "   " P A U S E "   +"  !)      "     ,- 
 
       "/  ( !  -"   ) ,    !""    +
 
         +    "   &  ,"/.   !  ",     
 
       ,",  "    !""!"#.)#.    #    # /, 
 
       +    +   "!/  !         +/
 
        " ,   !#.)     "   " P A U S E " . 
 
 
 
 
 
 
 
 
 
                                                         -   5 2   - 
 
 
 
                                               0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
             +. 
 
 
 
                 P A U S E   " 1 2 3 4 5 
 
                 P A U S E   ' #!"",  !!"#' 
 
 
 
 
 
           5 . 2 . 8 .    "   " S T O P " 
 
 
 
 
 
 
 
            "   " S T O P "   !,#"!/  /    )/    +/
 
         +. 
 
 
 
            "   " S T O P "   "  !#.)  : 
 
 
 
                 S T O P   [ N ] 
 
 
 
       
 
 
 
       N 
 
                 -   !",!",    !/"'+%    &$ ,   ! )/    "
 
                         /"    &$ ,   #- &$     "     
 
                     !, '/  !"". 
 
 
 
            "   " S T O P "   +"  !)    "   ,"- 
 
       /  ( !  -"   ) ,     )"  +    +  
 
        )"  #    &  !!". 
 
 
 
           +. 
 
                       S T O P   7 3 
 
                       S T O P   " 7 7 7 7 
 
           1 9 9 9     S T O P 
 
                       S T O P   ' &    +' 
 
 
 
 
 
               5 . 2 . 9 .    "   " E N D " 
 
 
 
                "     " E N D "     "'"    &            &+. 
 
          "   " E N D "     +",  !  %  !"   .
 
             #/. 
 
 
 
                "   " E N D "   "  : 
 
 
 
                       E N D 
 
 
 
                 !       '  # /   " #  " E N D " 
 
         ++"    )  +/    +,         - 
 
           -   +   "   " R E T U R N " . 
 
 
 
 
 
 
 
                                                         -   5 3   - 
 
 
 
                                               0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
 
 
               5 . 3 .   / +  +%
 
 
 
 
 
               +  +%      $ "   +/"!/    !    ),.
 
          "   " R E A D "         " A C C E P T " .   +    +%    +/"!/
 
          "   " W R I T E " ,   " T Y P E "     " P R I N T " .   " +        -"%
 
          "   !,#."!/    !'"  !  !&$&/  $ - 
 
         ",   " +  # /."   "         
 
         +%    #"    !"/    !,#.    $ #    
 
          ". 
 
 
 
               +   "   " R E A D "       " W R I T E "     ! "    #
 
         '!  #!" !",   !  "         "     
 
         +",  !#)!"   '    +%.   '!    #!" !"
 
         "  !""!"",    (#  #!" !"#,     $#. 
 
            " %  " T Y P E "     " A C C E P T "   "%  #        "!/, 
 
         !,#        ++."   '#  +%  !      " . 
 
         ',    "   " P R I N T "   !#"  /  +    +%    
 
         #!" !"  '". 
 
 
 
                " +  " R E A D "     " W R I T E "   #"   ",        
 
           !#.)%  " : 
 
 
 
         $ "+  !",+  / +
 
               -      +   "   $ "  !",- 
 
                     / +  !#)!"/"!/     '    '+%
 
                   +%      /; 
 
 
 
         $ "+  !",+  / +
 
               -      +   "   $ "  !",- 
 
                     / +  !#)!"/"!/   '    !,- 
 
                   +%  +%,    '  /    /  +%    !- 
 
                   +     +        #" ..    $ #         
 
                   !,#"!/  !&$&  $ "; 
 
 
 
         $ "+  / +  !   /+  !"#
 
               -    " +  $ "  / +  !   /+  !"#- 
 
                     !#"  /   '  +%          /
 
                     #!" !"%   /  !"#; 
 
 
 
         !",+  / +    #   !!
 
               -    " +  !",  / +    # - 
 
                     !!   ."  !,+    +.     - 
 
                     +%    #" ..  $ #               
 
                   !+     +  !#)!"/"!/        "#    +%
 
                   !""!"#.)  -"  !!  / +. 
 
 
 
            "   " R E A D "     " W R I T E "   .    "     ",
 
       #    ##   " #,   !       +  #- 
 
       "   #  &  $    ('  !!"/. 
 
 
 
           !",+   " +  / +  " R E W I N D " ,   " F I N D " 
 
         " B A C K S P A C E "     +/."   '  +%,     !#"  /
 
       # /    #"  $.    "   " E N D F I L E " 
 
       !+"  !&,#.  !,,     " /    #"    //",!/
 
          &  $  (    '  # /  " E N D = " ) . 
 
        "   " D E F I N E   F I L E "   !+"    '!    #!" !"
 
           $        #!" !"     /    !"#     /"
 
 
 
 
 
 
 
                                                       -   5 4   - 
 
 
 
                                             0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
 
 
       % " !"  -"  $.    " +  " E N C O D E "     " D E C O D E " 
 
       +/."      +%     "  /". 
 
 
 
           ."!/  )    !",+%   "   / +: 
 
       " O P E N "     " C L O S E " .    "   " O P E N "   #!""  !""- 
 
       !"  #  '!  #!" !"    $    $'!- 
 
         #!" !"    !+"  % " !",     " #.)!/
 
       /  +/      " R E A D "             " W R I T E " .    "     " C L O S E " 
 
       "/"  !""!"  #  $    $'!  #!" - 
 
       !"    '!  #!" !". 
 
 
 
 
 
 
 
                               5 . 3 . 1 .      '!%  #!" !"
 
                                             / +
 
 
 
 
 
 
 
           $ "     !    - 1 1     "    ,",!/    !    (
 
       #!" !",    +   &  !!".    - 
 
       " +  / +   )."!/    #!" !"    / +  !
 
       ),.     '!%    #!" !".          '!
 
       #!" !"   !"/"  !  &#.  !""#     - 
 
       #.  !  ",+  '. 
 
 
 
             " +%  %   "   / +    #+"!/
 
          '!      #!" !".   -"     " +    !,#."
 
       /+     '!  #!" !",   " +   /"- 
 
       !/  !  !!". 
 
 
 
 
 
                                 5 . 3 . 2 .   #"  $ "
 
 
 
 
 
           #"  $ "  !,#."!/       " %    $ "
 
       / +.   #",  $ "  -   -"    "   " 
 
       " F O R M A T " ,     /  !!,   ! )  "!"+    +, 
 
       "  " #+    !  $ ". 
 
 
 
           #",  $ "  "  +",  "  '    ( * ) ,     '"
 
       #+"      /    #   !!. 
 
 
 
 
 
                                 5 . 3 . 3 .   &+  / +
 
 
 
 
 
               $ &    !    ),.     "     / +
 
       "!/   +   &/,   " +  +."!/  !/- 
 
       .   '!"    $ &,   "     "    ! ",!/    
 
         !,     "  !!+   /  -"%  !  - 
 
       !/"  "  !,#  !"/  $ &. 
 
 
 
           /  $ "  / +  '!"  +%,   " 
 
               +",         ,        /"!/             " 
 
 
 
 
 
                                                       -   5 5   - 
 
 
 
                                             0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
       / +.     !#'    $ "  / +  '!"- 
 
            $ &   /"!/  !!"   " 
 
       / +    !&$&/        !""!"#.)    !
 
       $ ". 
 
 
 
           '      +/       "     / +    & #"
 
        '#    !.   !   "     "   ",- 
 
         '!",  !,   !",/  '!",  !  " /"!/.       !#'
 
       $ "  !",  / +  ",+     - 
 
       "   / +  "  +",     !,  !. 
 
 
 
 
 
 
 
                                 5 . 3 . 4 .   !!  / +
 
 
 
           !!  / +   /"  -"+  +%,   !  " +
 
       #"  # ",   " ,   ! )  !!.   -""  !- 
 
       !  ! "     +%,   !!    -"  !!, 
 
       '/  " +%  +    +",     +.        "    !!
 
        "   +  "  ! ",  !""+    + /. 
 
 
 
           !!  / +  "  !#.)  : 
 
 
 
               S [ , S ] . . . 
 
 
 
       
 
 
 
       S 
 
             -    !"  !!    !!  !  /+  &. 
 
 
 
              "   / +   !"  +  '/  -- 
 
       "  !!    +"  '/  -"  !!    "  !- 
 
       ",!",         !" '."!/    !!  ( !   ) . 
 
 
 
 
 
                             5 . 3 . 4 . 1 .    !"+  !!
 
 
 
              !"  -"  !!  / +  !!""        ",
 
        ,    )/    !!#,   -"  !!,     !""+
 
         + /.    !"  !!  / +  ! "     !- 
 
       "  -"  !!  / +     #+    #%    
 
       "%  -",    +%  /"+. 
 
 
 
             !    !!  / +  !" '"!/  "$"     !- 
 
       !    !!  !,   "   " +  " R E A D "           " A C C E P T " 
 
       #"  !",  +%,   !,  #,   '"+  ",  +
 
       -"  !!;    " +  " W R I T E " ,   " T Y P E "     " P R I N T "   +- 
 
       #"  '/  !%  -"  !!.    '  +%  '"- 
 
       !/  !  ',  -"  !!        +/"!/           /
 
       !    !!;      -",   '      %"!/    !, 
 
       "  +!"     /"!/.     ,   !  "$"   !- 
 
       !,              
 
 
 
 
 
 
 
                                                             -   5 6   - 
 
 
 
                                                   0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
                 A R R A Y   ( 3 , 3 ) 
 
 
 
         !" ""!/    !!  !     "   " R E A D " ,   "  -""
 
          "    !"  '/      &+  (   - 
 
         &)   !  -"  A R R A Y ( 1 , 1 ) ,   A R R A Y ( 2 , 1 ) ,     A R R A Y ( 3 , 1 ) , 
 
         A R R A Y ( 1 , 2 )     "  ,   ",    A R R A Y ( 3 , 3 ) . 
 
 
 
                " %  " R E A D "       " A C C E T "      +,     %/)!/
 
           !!,   #"  +",  !,+    !+  !!,   /
 
         "   ! "!/        -"    !!.     ,     !
 
         +/"!/   " 
 
 
 
                   R E A D   ( 1 , 2 5 0 )   J , K , A R R A Y ( J , K ) 
 
 
 
         2 5 0   F O R M A T   ( I 1 , X , I 1 , F 6 . 2 ) 
 
 
 
           %/  &  !  ! "  !#.)  '+: 
 
 
 
                   1 ,   3 ,   9 2 1 . 3 3 
 
 
 
         "    '    " 9 2 1 . 3 3 "     #"     !    -"#  !!
 
         A R R A Y ( 1 , 3 ) .    /  /  '   !"!/     - 
 
           " J " ,   " /  -      " K "   ,   "   ,   #!"- 
 
         ."!/  $"'!    '/    !    /    -"
 
         A R R A Y ( J , K ) .    +,   " +   '."!/  /  !,- 
 
         /  %    '!"    !  +(!+  !!, /- 
 
         +  %",!/      !!    / +    !    "    !!
 
         !  !!,     "     !,#."!/. 
 
 
 
               !!   "   +  "  +",  .'  .  #- 
 
         !"  + .   ,   -"  +         ++",
 
         +"  +",  ,(   &  / +.   
 
         "   ,  !,/  + /  //"!/   - 
 
         )    +     !!   "   +      - 
 
         - $#&,   " /  !  +/"  / +. 
 
 
 
              )"!/  .'  +     !!   "   , 
 
           !.'  + /  !     )    !!#. 
 
 
 
 
 
                         5 . 3 . 4 . 2 .   !!  !  &
 
 
 
 
 
             !!  !  &  !,#.!/  /   /  "   
 
         !!  / +,   /   '  ",    '!"    " 
 
         !!    /   '  -"  !!    !",- 
 
         !",   "'  "  !    !!.   -""  "    -"
 
         !!   ""    ",       #"    !/    '!",       " 
 
         / +,   )/    !",  !"/   "   " D O " , 
 
           # /.)/   /  -"     #     " 
 
         !,#"!/  /   /  '/  (   ') , "- 
 
          +  +  +",   +     /  " &  &. 
 
 
 
             !!  !  &  "  !#.)  : 
 
 
 
                         ( K ,   I = E 1 , E 2 [ , E 3 ] ) 
 
 
 
 
 
                                                       -   5 7   - 
 
 
 
                                             0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
 
 
           
 
 
 
           K 
 
                   -   !!  / +; 
 
 
 
           I 
 
                   -      # /.)   . 
 
 
 
                 '+  I ,   E 1 ,   E 2 ,   E 3   ."  "    !+    ,       
 
            "   " D O " .      /  ',    '   "- 
 
            ,     "  /  (    # /.)     !!  !  &- 
 
             !"."!/  "  ,           !#'     "     " D O " .   
 
           "    !",       /."     ,/   - 
 
           "   " D O " , !"  '  ',    '   " , 
 
               "    !"    (,   #"      !,",!/        + /. 
 
           !!  "  ! ",   )/        # /.)     
 
              #!,   '"    '    /"!/.   !",.    !"- 
 
           /  /  &  //"!/  !!. 
 
 
 
                       : 
 
 
 
                                 W R I T E   ( 4 , 5 0 0 )   ( A , B , C ,   F = 1 , 3 ) 
 
                                 W R I T E   ( 6 , 7 0 )   L   M , ( I , ( J , P ( I ) , Q ( I , J ) , J = 1 , L ) , I = 1 , M ) 
 
                                 R E A D   ( 1 , 1 0 0 ) ( ( ( A R A Y ( M , N , I ) , I = 2 , 9 ) , N = 2 , 9 ) , M = 2 , 9 ) 
 
 
 
                         # /.)         -"
 
           !#  #" #   " #    " D O "         !"    +%
 
           &,     ,   !",,   -"   /    #"    /",!/
 
           ').     ,    " +: 
 
 
 
                                 W R I T E   ( 5 , 1 5 0 )   ( ( F A S T ( K , L ) , L = 1 , 1 0 ) K = 1 , 1 0 , 2 ) 
 
                         1 5 0   F O R M A T   ( F 1 0 . 2 ) 
 
 
 
           '+  !#.)   " 
 
 
 
                                 D O   5 0   K = 1 , 1 0 , 2 
 
                                 D O   5 0   L = 1 , 1 0 
 
                                 W R I T E   ( 5 , 1 5 0 )   F A S T ( K , L ) 
 
                         1 5 0   F O R M A T   ( F 1 0 . 2 ) 
 
                           5 0   C O N T I N U E 
 
 
 
           "    #"   &  +/"!/  !/",       /    
 
           " &  (  &,   "   !  " L "    "  '/
 
           "      !/"  /        '/         !. 
 
           -"  //"!/   "+   /    "(.    !   - 
 
            !!.      ",   ". .   " "   #'"!/        " 2 " ,     ##"
 
           ++    ",    '"+     &+    !!.        ' +
 
           #'  # /.)     +/"!/   '  !
 
           !!  !  /+  &.     : 
 
 
 
                                   R E A D   ( 5 , 1 0 0 0 )   ( P ( I ) , ( Q ( I , J ) , J = 1 , 1 0 ) , I = 1 , 5 ) 
 
 
 
            !"  +  '/  -"  !!  " P "     " Q " 
 
             !#.)  !",!": 
 
 
 
                                   P ( 1 ) ,   Q ( 1 , 1 ) ,   Q ( 1 , 2 ) , . . . , Q ( 1 , 1 0 ) 
 
                                   P ( 2 ) ,   Q ( 2 , 1 ) ,   Q ( 2 , 2 ) , . . . , Q ( 2 , 1 0 ) 
 
 
 
                                     .               .             .           .           . 
 
                                     .               .             .           .           . 
 
 
 
 
 
 
 
                                                         -   5 8   - 
 
 
 
                                               0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
                             P ( 5 ) ,   Q ( 5 , 1 ) ,   Q ( 5 , 2 ) , . . . , Q ( 5 , 1 0 ) 
 
 
 
                         "   +%  !!  #!"!/  !,- 
 
             &    $! +%  !        !, 
 
           /.)%!/    /#  &#.     ,    " 
 
 
 
                             R E A D ( 3 , 2 2 2 2 )   ( B O X ( 1 , J ) ,   J = 1 , 1 0 ) 
 
 
 
            !"    +    '/    -"      !!      "
 
           B O X ( 1 , 1 )     B O X ( 1 , 1 0 ) ,     "    )"  ,     " - 
 
           /   #%  -"    !!. 
 
 
 
                       "  +!"  ! !"  '/  # /- 
 
           .)   ,   ,     ,      " 
 
 
 
                             W R I T E   ( 6 , 3 3 0 0 )   ( I , I = 1 , 2 0 ) 
 
 
 
           " +  +"    '",  &+  '!  "      &- 
 
           ". 
 
 
 
                             5 . 3 . 5 .   $ "+  !",+  / +
 
 
 
                     $ "+  / +     !"/"    !     '#
 
           +%    #"   ( ')   $ "        /
 
              " /.   $ "+  / +  +'    !,- 
 
           #"!/,     ++      +        "       +
 
           !!"  +  +",  +    -"#      #  (   
 
           #.) .      $ "    / +    -"!/     /
 
           +/    !'"  "  "   &!!    /  +%, 
 
           !'"!/  ,(/    "'!",    ++%    +%  ,   
 
            ,   -"!/  !",   " #.)!/  /    % /    $
 
           +%. 
 
 
 
                             5 . 3 . 5 . 1 .    "   $ "  !",
 
                                                 " R E A D " 
 
 
 
 
 
                      "   $ "  !",      " R E A D " 
 
           "  #  $ "#.  !,  !     '!
 
           #!" !"     !"  '/  -"  !  -- 
 
           "  !!  / +      /    "  !- 
 
           ",!",     "      !+,   !   .   - 
 
           '!"  +%,    !+%  #  -"#,    /"!/
 
             "  +%. 
 
 
 
                      "   $ "  !",    " R E A D " 
 
           "  !#.)  : 
 
 
 
                                   R E A D   ( U [ , E N D = S ] [ , E R R = S ] 9 )   [ K ] 
 
 
 
           
 
 
 
                                                         -   5 9   - 
 
 
 
                                               0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
           U 
 
                 -      '!  #!" !"; 
 
 
 
           S 
 
                 -   "  +/   " ; 
 
 
 
           
 
                 -   !!  . 
 
 
 
                  "     $ "      !",        " R E A D " 
 
           !'"+"     #  !,.   !  !!      !,#"
 
           !%  '    -"  !,   !",/  '!",    !  " - 
 
           !+"!/.   !  !  !   !  #"  !,    )
 
             ",     '"!/  !!,   #"  $!   (. 
 
 
 
                 !   "   $ "  !",    " R E A D " 
 
             ! "  !!  ,     ++"   #!    !. 
 
 
 
                  "   $ "    !",          " R E A D " 
 
           "  +",  !,  /  '"/  ",  "%  !,   "- 
 
            +  +  ++  !  ),.   "   $ "    !- 
 
           ",  +. 
 
 
 
                   +: 
 
 
 
                 R E A D   ( 1 )   F O R M 1 1 1 , F O R M 1 2   ( !'"+"  #  !,
 
                                                                 !  '!  #!" !"
 
                                                                 " 1 " ,    !"  '/
 
                                                                  +  " F O R M 1 1 1 "   
 
                                                                 " F O R M 1 2 " ) 
 
                 R E A D   ( 9 )                                 (  "  '!  #!"- 
 
                                                                  !"  9     #  !,) 
 
 
 
 
 
 
 
                             5 . 3 . 5 . 2 .    "   $ "  !",
 
                                               +  " W R I T E " 
 
 
 
 
 
                      "   $ "  !",  +  " W R I T E " 
 
             +"  '/  !!  +       '!
 
             #!" !"        $ "  !; 
 
               /  +%     -"     !%". 
 
 
 
                      "   $ "  !",  +  " W R I T E " 
 
             "  !#.)  : 
 
 
 
                           W R I T E   ( U [ , E R R = S ] )   [ K ] 
 
 
 
             
 
 
 
             U 
 
                     -      '!  #!" !"; 
 
 
 
             S 
 
                     -   "  +/   " ; 
 
 
 
 
 
                                                         -   6 0   - 
 
 
 
                                               0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
 
 
             K 
 
                     -   !!  +
 
 
 
                 !   "   $ "  +  " W R I T E "     ! "
 
             !!  +,     #  #!" !"    +"!/    
 
             #!"/  !,. 
 
 
 
               +. 
 
 
 
             W R I T E   ( 3 )   ( L I S T ( I ) , I = 1 , 5 )     (   '!  #!" !"  3 
 
                                                                   +/"!/  !       /"+
 
                                                                   -"+  !!  " L I S T " ) 
 
                                                                   ( !,  #!"  !
 
                                                                     '!  #!" !"  4 ) . 
 
 
 
 
 
                 5 . 3 . 6 .   $ "+  !",+  / +
 
 
 
 
 
                  " +  $ "  / +  !#."!/    !'- 
 
             "  !   "   " F O R M A T "   (   !  !&$&/  $ - 
 
             ",   % /)!/    !!%)   /    /     - 
 
             " /  ++%  +%,          /    - 
 
             /  +%    (  $ "    #" . 
 
 
 
 
 
 
 
 
 
                 5 . 3 . 6 . 1 .    "   $ "  !",
 
                                     " R E A D " 
 
 
 
 
 
 
 
                  "   $ "  !",    " R E A D "   !'- 
 
             "+"  +  !  #  '!  #!" !",    - 
 
              #/  %    #"   $ "  !!  !&$&  $ - 
 
             ".   #'+  '/     !."!/    -"    !!
 
             . 
 
                  "       $ "    !",        " R E A D " 
 
             "  
 
 
 
                         R E A D   F   [ , K ] 
 
 
 
             
 
 
 
                         R E A D   ( U , F [ , E N D = S ]   [ , E R R = S ] ) [ K ] 
 
 
 
             
 
 
 
             U 
 
                       -      '!  #!" !"; 
 
 
 
             F 
 
                       -   #",  $ "; 
 
 
 
             S 
 
                       -   "  +/   " ; 
 
                                                             -   6 1   - 
 
 
 
                                                   0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
             K 
 
                       -   !!  . 
 
 
 
                   !   "     " F O R M A T " ,   !""!"#.)     " #  $ - 
 
             "  ,   ! "  "!"#.  !""#        #- 
 
             &$   " ,   +  +  ##"  !'"+",!/    - 
 
             !",!/    ! !"        !!    !&$&.     , 
 
              " +
 
 
 
                           R E A D   ( 5 , 1 0 0 ) 
 
                   1 0 0   F O R M A T   ( 6 ) 
 
 
 
             ++."  !'"+  (!"  !      %    !- 
 
             &$&  $ "  "  " " . 
 
 
 
                      "   
 
 
 
                           R E A D   1 5 0 ,   A L P H A ,   B E T A ,   C A M M A 
 
 
 
             ++"  !'"+  +%  !  !!"  #!" !". 
 
 
 
                      " +    $ "    / +    '"."        (#"
 
             !     +    !""!"  !  $ ".   !,
 
             !!""     /  !  - 7 ,    +%        # - 
 
               $ "  !&$&,     " +  !#"         - 
 
             /  !. 
 
 
 
                     !  '!  -"    !!  ,(,   '    '!    
 
                 !,   !"(/!/  '!",  !    " !+"!/. 
 
             !  '!  -"    !!     +("    '!    
 
                 !!,   "  #"  $!     ('    !!- 
 
             "/,   !  ",    !&$&  $ "      #,   '"
 
             +  +",  !'"+        ",+%  !. 
 
 
 
                     !    !!        "!#"!"#",   +/"!/     '
 
             +%  #  !,.    !&$&  $ ". 
 
 
 
                       +. 
 
 
 
                                     R E A D   ( 1 , 7 0 0 )   A R R A Y   ( !'"+"!/  &  !
 
                           7 0 0   F O R M A T   ( 2 0 F 8 . 2 )           !  '!  #!" !"  1 ; 
 
                                                                           '/     !."!/
 
                                                                           -"  !!  " A R R A Y " ) 
 
 
 
                                     R E A D   ( 5 , 5 0 ) 
 
                             5 0   F O R M A T   ( 1 9     !" &+) 
 
 
 
               -"   "   !'"+"!/  1 9     !    !    '!
 
             #!" !"  5     )."!/     "   " F O R M A T " . 
 
 
 
 
 
                           5 . 3 . 6 . 2 .    "   $ "  !",
 
                                             +  " W R I T E " 
 
 
 
                        "   $ "  !",    +    " W R I T E " 
 
              "  +    #  '!    #!" !".   !!
 
             +   /"  '/,   " +    #."!/    !+
 
 
 
 
 
                                                     -   6 2   - 
 
 
 
                                           0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
             +/"!/  !!  !&$&  $ ". 
 
 
 
                        "   $ "  !",    +    " W R I T E " 
 
           "  !#.)  : 
 
 
 
                       W R I T E   ( U , F [ E R R = S ] [ E N D = S ] )   [ K ] 
 
 
 
           
 
 
 
           U 
 
                     -      '!  #!" !"; 
 
 
 
           F 
 
                     -   #",  $ "; 
 
 
 
           S 
 
                     -   "  +/   " ; 
 
 
 
           
 
                     -   !!  +. 
 
 
 
                       !  !!  +  "!#"!"#",     +  !",.
 
            !%"  #  !,.    !&$&  $ ". 
 
 
 
                       +,    +   "     $ "    !- 
 
           ",  +  " W R I T E " ,   +'  !!"/."  #  $ "#.  - 
 
           !,.       !&$&  $ "  "    +",    #,   '"
 
              +  "    !   "   " W R I T E "     +    +",
 
           ++  ",+  !. 
 
 
 
                          +      #!" !"      "":         L P :      "
 
           !  $ "  $  //"!/    !    "  "     "" . 
 
            "   "  "  +",  #  !  ),.  !  $ "- 
 
              "/  "  "      "   " F O R M A T " . 
 
 
 
                       !,   ++   "   $ "  +  " W R I T E " , 
 
           +  ",  #,        +(.)#.         '/, 
 
           % "     /          (      #!" !".     , 
 
           #!" !"  '"    "  '"",    !,,       " 
 
            +("  1 3 2   !. 
 
 
 
               +. 
 
 
 
                     W R I T E   ( 6 , 6 5 0 )                           ( +  !    " 
 
             6 5 0   F O R M A T   ( ' P R O G R A M ' )                 " F O R M A T "     '!- 
 
                                                                         #!" !"  6 ) 
 
                     W R I T E   ( 1 , 9 5 )   A V , B E , C E           ( +    !, 
 
               9 5   F O R M A T ( F 8 . 5 , F 8 . 5 , F 8 . 5 )         !!"/)    " %  ,   
 
                                                                         '!  #!" !"  1 ) 
 
                     W R I T E   ( 1 , 9 5 0 )   A V , B E , C E         ( +  " %  ",+%
 
             9 5 0   F O R M A T   ( F 8 . 5 )                           !    #  .  - 
 
                                                                         /    '!  #!" !"  1 ) 
 
 
 
 
 
                                                         -   6 3   - 
 
 
 
                                               0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
 
 
                       5 . 3 . 6 . 3 .    "   $ "    " A C C E P T " 
 
 
 
                        "   "     " A C C E P T "     "'     "     " 
 
             $ "    " R E A D "     !.'    ",   '"        !#- 
 
             )!"/"!/  ",  !  " . 
 
 
 
                        "   " A C C E P T "   "  !#.)  : 
 
 
 
                               A C C E P T   F   [ , K ] 
 
 
 
             
 
 
 
             F 
 
                         -   #",  $ "; 
 
 
 
             
 
                         -   !!  . 
 
 
 
                         /   "   " A C C E P T "   !"",+  "       - 
 
              )/    $ "#    !" /  !!,   '"    /     " 
 
             $ "    " R E A D " . 
 
 
 
                 +. 
 
 
 
                     A C C E P T     1 0 0 ,   N U M                 (      &  '+
 
             1 0 0   F O R M A T   ( 1 4 )                           !  "# +  " ) 
 
 
 
                     A C C E P T   2 0 0 
 
             2 0 0   F O R M A T   ( '   +%' )     ( '"  1 1   !  !  - 
 
                                                                       "# +,    )  %    - 
 
                                                                        "   " F O R M A T " ) 
 
 
 
 
 
 
 
                         5 . 3 . 6 . 4 .    "   $ "  +  " T Y P E " 
 
 
 
 
 
                     $#&   "     " T Y P E "     "'+    $#&/     " 
 
             $ "  +  " W R I T E " ,     !.'  ", '"  +   - 
 
             !%"    " . 
 
 
 
                      "   " T Y P E "   "  !#.)  : 
 
 
 
                             T Y P E   F [ , K ] 
 
 
 
             
 
 
 
             F 
 
                     -   #",  $ "; 
 
 
 
             
 
                     -   !!  +. 
 
 
 
                     /   "   " T Y P E "   !"",+  "        )/
 
               $ "#    !" /  !!,   '"    /   "     $ "
 
             +  " W R I T E " . 
 
 
 
 
 
                                                           -   6 4   - 
 
 
 
                                                 0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
               +. 
 
 
 
                       T Y P E   F M T , H O L D                     ( !   " H O L D "   +"!/  
 
                                                                     "     $ ",  
 
                                                                     ! +  !!  " F M T " ) 
 
 
 
                       T Y P E   3 0 0 
 
               3 0 0   F O R M A T   ( ' '",  (' ) ( '",    "   !)/
 
                                                                         ! !"     " 
 
                                                                         " F O R M A T " ) 
 
 
 
 
 
                       5 . 3 . 6 . 5 .    "   $ "  +  " P R I N T " 
 
 
 
 
 
                        "   "   " P R I N T "    "'!    "'"!/  "
 
                "+   "   $ "  +  " W R I T E "       " T Y P E "     
 
               !.'  ",   '"  +     "!/        #!" !"
 
               '". 
 
 
 
                        "   " P R I N T "   "  !#.)  : 
 
 
 
                           P R I N T   F   [ , K ] 
 
 
 
               
 
 
 
               F 
 
                       -   #",  $ "; 
 
 
 
                     -   !!  +. 
 
 
 
                       !!  +     )    $ "#     "   " P R I N T " 
 
               '/"!/  "     ,   '"      !#'   "   $ - 
 
               "  !",  +  " W R I T E " 
 
 
 
                     +. 
 
 
 
                       P R I N T   9 9 9 ,   N C T R 
 
               9 9 9   F O R M A T ( 9 0 X ,   ' !" &    ' , 1 3 ) 
 
 
 
                       -"   " +  ++."  '",     !" &+     
 
                %  ##    !" &+   " +: 
 
 
 
                       P R I N T   2 2 2 
 
               2 2 2   F O R M A T   ( ' &  !!' ) 
 
 
 
               '"."  !    "   " F O R M A T "     #!" !"  '". 
 
 
 
 
 
                                                         -   6 5   - 
 
 
 
                                                   0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
 
 
 
 
                       5 . 3 . 7 .   $ "+  / +  !   /+  !"#
 
 
 
 
 
 
 
                       / +  !   /+  !"#    !#)!"/"    / +
 
               '+%  !  $!   +.    " +  $ "- 
 
                 / +  !   /+  !"#  " R E A D "     " W R I T E "   !,- 
 
               #."!/  /  +/      +      "  !    $, 
 
               %/)!/    (  .)    #!" !"    !     /+
 
               !"#.    "   " D E F I N E   F I L E "   !,#"!/  /  #/
 
               '!  !          !    $  !   /+  !- 
 
               "#. 
 
               +   "   / +  !   /+  !"#  " R E A D "     
 
               " W R I T E "   ! "  &  + ,    /.)     - 
 
               !,     "   !#)!"/"!/     ).        !    
 
                 +",  ,(  &+          +",      ,(,   '
 
               '!  !,      /      $.     !" #"# 
 
               !  !   /+  !"#    !"  "      $'!
 
                 !  #!" !"  / +.   ,     -$$- 
 
               "+   #,""+  #'."!/,   !      !    //"!/
 
               "     "+  2 5 6   !. 
 
 
 
 
 
 
 
                     5 . 3 . 7 . 1 .    "   $ "    !   /+
 
                                       !"#  " R E A D " 
 
 
 
 
 
 
 
                      "   $ "      !   /+    !"#    " R E A D " 
 
               +/"   '#    -"  !    -"+  !!  - 
 
               .   -"   '  !#)!"/"!/      /  +%. 
 
 
 
                      "   $ "    !   /+    !"#    " R E A D " 
 
               "  !#.)  : 
 
 
 
                     R E A D   ( U ' N [ , E R R = S ] )   [ K ] 
 
 
 
               
 
 
 
               U 
 
                   -      '!  #!" !"; 
 
 
 
               N 
 
                   -      &+  !; 
 
 
 
               S 
 
                   -   "  +/   " ; 
 
 
 
               K 
 
                   -   !!  
 
 
 
                   !  /  !,  ! "  ,(  ,   '  "!/
 
               -"    !!,   "  !",/  '!",  !  " !+- 
 
               "!/.   !    !  ! "!/    !""'    +%, 
 
               '"+    #" ",    " /    !!,     $! #"!/
 
               ('  !!"/. 
 
 
 
                      #!" !"     "   $ "    !   /- 
 
 
 
                                                             -   6 6   - 
 
 
 
                                                   0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
         +  !"#  " R E A D "     "!"!/    #!" !"#,   " 
 
         +    ",  ' /  '!    #!" !"    /
 
          &  !   /+  !"#. 
 
 
 
                  '.      !  $  !   /+  !"#     - 
 
         +   "     +",   "   " W R I T E " .   !   " +
 
         " R E A D "     " F I N D "   !" '."!/   +,   !/.)/    !!"
 
         +"  !)    (. 
 
 
 
                   +. 
 
                          " : 
 
                                 R A E D   ( 1 ' 1 0 )   L I S T ( 1 ) , L I S T ( 8 ) 
 
 
 
         +/"  '"  !  1 0     $,   %/)!/    - 
 
         '!  #!" !"  1 ,      !  #%  &+%  '  -- 
 
         "  !!  " L I S T " . 
 
 
 
                 !#.)   " : 
 
 
 
                                 R E A D ( 4 ' 5 8 ) ( R H O ( N ) , N = 1 , 5 ) 
 
 
 
         +/"  '"  !  5 8     $,   %/)!/    - 
 
         '!  #!" !"  4 ,      !  /"  )!"+%  '- 
 
           !!#  " R H O " . 
 
 
 
 
 
                 5 . 3 . . 2 .    "   $ "  +  !   /+
 
                                 !"#  " W R I T E " 
 
 
 
                  "   $ "  +  !   /+  !"#  " W R I T E " 
 
          "  '/  -"  !!  +    ",#.    - 
 
         !,  $  !   /+  !"#.   !,  +%  !#)!"/"!/
 
           #"   $ "      /. 
 
 
 
                  "   $ "  +  !   /+    !"#    "
 
         !#.)  : 
 
 
 
                     W R I T E   ( U ' N [ , E R R = S ] )   [ K ] 
 
 
 
         
 
 
 
         U 
 
                 -      '!  #!" !"; 
 
 
 
         R 
 
                 -      &+  !; 
 
 
 
         S 
 
                 -   "  +/   " ; 
 
 
 
         K 
 
                 -   !!  +. 
 
 
 
             !  '!"    +%,   " +    +    +",     +, 
 
          +("      &+  !,   $! #"!/  ('  !!- 
 
 
 
 
 
                                                         -   6 7   - 
 
 
 
                                               0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
         "/. 
 
 
 
             !   "   " W R I T E "     &  /"  &#  !, 
 
         "  !,/  '!",  &+  !  /"!/  #/. 
 
 
 
             +. 
 
 
 
           W R I T E   ( 2 ' 3 5 ) ( N U M ( K ) , K = 1 , 1 0 )     ( +  !/"  &+%  '
 
                                                                       &#  !  3 5   $, 
 
                                                                      !    '!
 
                                                                     #!" !"  2 ) ; 
 
           W R I T E   ( 3 ' J )   A R R A Y                         ( +  !  ! 
 
                                                                     " A R R A Y "     !,,   ##.
 
                                                                     '  " J " ,   $    - 
 
                                                                     '!  #!" !"  3 ) 
 
 
 
 
 
 
 
 
 
                     5 . 3 . 8 .   / +    #   !!
 
 
 
 
 
 
 
                      " +  / +      #   !!   !- 
 
           "/."  !",  +/",  !"/    !",#
 
           #    +#    !,/   "   " F O R M A T " . 
 
 
 
                            '/  !'"+."!/  !  #!" !",     - 
 
           #."!/    #"   $ "     !."!/  -"  !!- 
 
             . 
 
 
 
                        +  '/    !!  +      #."!/    
 
           !+    !+."!/    $!     $ ",   !""!"- 
 
           #.)  "#  +%  -"%  '.   '    !!    //"!/
 
           /",+.   !,   !" +     "     +    
 
           #   !!,   #"  +",  !'"+     "       
 
             #   !!     #!,   '"              ! "
 
           #- &$ +%  "     "!"+%  !"". 
 
 
 
                        " +  $ "  / +,   "     " +
 
           / +    #   !!  #"   )",!/    - 
 
           #    "#    #!" !"#.   !   &,   #!"+  /  $ - 
 
           "  !",  / +,   #!."!/        /
 
            "   / +    #   !!.   , !- 
 
             +/   &   "          #    !,    &/
 
           #"  $  !""!/       .        !'"+
 
           $,   ! )%    $ "+  !,   "    !, !"- 
 
            +        #     !!,           ,"/
 
             !'",  '"      !     "     , 
 
           !""!"#.)    #. 
 
 
 
 
 
                                                         -   6 8   - 
 
 
 
                                               0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
                   5 . 3 . 8 . 1 .    "   " R E A D "     #   !!
 
 
 
 
 
                    "   " R E A D "     #   !!     "    +
 
           !  #  #!" !",     #"  %      (  $ "
 
             #"      !"  +  '/  -"  !!- 
 
                  /  %   !/  ( !   ) . 
 
 
 
                    "   " R E A D "     #   !!  "  !#.)
 
           : 
 
 
 
                       R E A D   * , K 
 
               : 
 
                       R E A D   ( U , * [ , E N D = S ] [ , E R R = S ] )   K 
 
 
 
               
 
 
 
           U 
 
                     -      '!  #!" !"; 
 
 
 
           * 
 
                     -        $ "    #   !!; 
 
 
 
           S 
 
                     -   "  +/   " ; 
 
 
 
           
 
                     -   !!  . 
 
 
 
                 !,  !!""    !",!"  '     - 
 
           ",+%  . 
 
 
 
                 '  "  +",: 
 
 
 
           1 )   !""
 
                       -   /  /  !""    ",  ,   !"- 
 
                           "!"#.)  !""  $ " ;   !/    !- 
 
                           ""  "     +  )!"+%    &+%  !- 
 
                           "",    +%  /"    .'+%    !; 
 
                           #!"!/  '         #    " +.)
 
                           !     +  !, #  "   !""
 
                              +.)  !,     "   #  /"; 
 
                           '!/  !""  -   -"    " ""   /  " . T R U E . " , 
 
                             " F "     /    " . F A L S E . " ;   !,  "!"+%, 
 
                           !, '+%      #- &$ +%  !""      - 
 
                           #!"!/; 
 
 
 
           2 )   " #!"/"   !""
 
 
 
                       -   "!#"!"  '/  #+"!/  #/  !- 
 
                           ",+  /"+,   #    " +      "!#"!"#"
 
                           /-     !"";   #    /"+    
 
                           '   ;   " #!"/"     !""    #+"
 
                             ",   '"  !""!"#.)  -"  !!  
 
                           !"",!/    /;     " #!"/"     !""    
 
                           "  +",  !,    '!"  -   
 
                           '!"  !  !""+,     "   !"- 
 
                           /",  !.  !#.  !""#; 
 
 
 
 
 
                                                       -   6 9   - 
 
 
 
                                             0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
           3 )   !"   !""      " R * C " 
 
                       -   $   " R * C "   '"    " R "     "     !""+
 
                           " C "   ( " R "   -   -"  #/  &/  !""      - 
 
                           ,     " C "   -   " /  !"") ;     -"  !  
 
                           #!"!/  .'/   ,     !.'   - 
 
                             #"   " C " ,     #  +(; 
 
 
 
           4 )   "   " #!"+%"   !""      " R * " 
 
                       -   $   " R * "     '"      " R "     "     " #!"+%" 
 
                           !""  ( " R " - -"  &/  !""    ) . 
 
 
 
                  ",+    "  +",: 
 
 
 
                       -                "#/&; 
 
 
 
                       -   /"/  !   #.)           %, 
 
                           !    "#/&; 
 
 
 
                       -   /  ' "  !   #.)         
 
                           %,     !    "#/&.    ",    
 
                             ' "+  ++"      )      +/
 
                            "   ;   !  !",+  -"+  !!  - 
 
                               /."!/. 
 
 
 
                 &    !      -"    !#   .    +  
 
             '  !    #."!/. 
 
 
 
                      #!"!/  !,  !#.)%  "  - 
 
             !"":   &+,   )!"+,   !    "'!",.,   '!- 
 
                 !+.   "    !""+        - 
 
             /    (  $ "    #"    /"!/  - 
 
               !""+.   !  "+  -"  !!    !""!"#.)
 
             !""+    !.",   "  +/"!/      !- 
 
             ""+  !!      $"'!   !/,   - 
 
             !+  +(. 
 
 
 
                 +   "     #"  !'"+",  #      - 
 
             !  /  ",   '"+  !",.  #" ",    " /
 
             !!  .   !    !  #"  !,  ",  '!",
 
             '  (   -   //   ",  ,   
 
             -   /  !!) ,   !",+  '+  !  " /."- 
 
             !/. 
 
 
 
                   . 
 
 
 
                 !    +  #,  !!""    !#.)%   " : 
 
 
 
                           D O U B L E   P R E C I S I O N   T 
 
                           C O M P L E X   C , D 
 
                           L O G I C A L   L , M 
 
                           R E A D   ( U , * )   I , R , C , D , L , M , J , K , S , T , A , B 
 
                             . 
 
                             . 
 
                             . 
 
                   !'"+/  !,  ! ": 
 
 
 
                       4   6 . 3   ( 3 . 4 , 4 . 2 ) ,   ( 3 , 2 ) ,   T , F , , 3 * 1 4 . 6 / 
 
 
 
             "  -"  !!  ##"   !+  !#.)  '/: 
 
 
 
 
 
                                                         -   7 0   - 
 
 
 
                                                   0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
 
 
                     I   =   4 
 
                     R   =   6 . 3 
 
                     C   =   ( 3 . 4 , 4 . 2 ) 
 
                     D   =   ( 3 . 0 , 2 . 0 ) 
 
                     L   =   . T R U E . 
 
                     M   =   . F A L S E . 
 
                     K   =   1 4 . 6 
 
                     S   =   1 4 . 6 
 
                     T   =   1 4 . 6   D 0 
 
 
 
           " A " , " B "     " J "     /."!/. 
 
 
 
 
 
                 5 . 3 . 8 . 2 .    "   " W R I T E "     #   !!
 
 
 
 
 
                  "   " W R I T E "     #   !!   "  -"+
 
             !!  +    #  #!" !",   !#)!"//   - 
 
                 "     '+    !""!"    !
 
           "  +%  -"  '+. 
 
 
 
                  "   " W R I T E "     #   !!  "  !#.)
 
           : 
 
 
 
                     W R I T E   ( U * [ , E R R = S ] [ , E N D = S ] )   K 
 
 
 
           
 
 
 
           U 
 
                   -      '!  #!" !"; 
 
 
 
           * 
 
                   -      /  $ "    #   !!; 
 
 
 
           S 
 
                   -   "  +/   " ; 
 
 
 
           
 
                   -   !!  +. 
 
 
 
                   ++  '+  ##"  ",  "'  "    $ ",   
 
           -"  " #"!/  /      !#'   "   " R E A D "     # - 
 
             !!.      ",     ("!/  +  #- &$ +%
 
           "     "!"+%  !"",    ',   -"  !""+   - 
 
           '."!/    !" $.         '   "!/    /
 
           $ "  !#.)   : 
 
 
 
                   "  +%                          $ "  +
 
 
 
                   L O G I C A L * 1                                   1 5 
 
                   L O G I C A L * 4                                   L 2 
 
                   I N T E G E R * 2                                   I 7 
 
                   I N T E G E R * 4                                   I 1 2 
 
                   R E A L * 4                                         1 P G 1 5 . 7 
 
                   R E A L * 8                                         1 P G 2 5 . 1 6 
 
                   C O M P L E X * 8                                   1 X , ' ( ' , 1 P G 1 4 . 7 , ' , ' , 1 P G 1 4 . 7 , ' ) ' 
 
                   $"- &$ -                     1 X , N A 1   ( N -   !" 
 
 
 
                                                           -   7 1   - 
 
 
 
                                                 0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
             "                 " ) 
 
 
 
                 !, '+  '/,   #+  '/,      "    
 
               ' "+    $ +  " /    ! /"!/. 
 
           /  +/  &  !  '"!/    !         /
 
           # /   ".   +   "   +  !+"  #
 
               +%  !.   /  '  !",.     !- 
 
           "!/  #"       !.   !.'    "!/    ",
 
           /  #- &$ +%  " ,     " +%  "   +- 
 
           (",  #  !. 
 
 
 
               . 
 
 
 
               +  #,: 
 
 
 
                         D I M E N S I O N   C ( 5 ) 
 
                         D A T A   C / 5 * 3 . 4 / 
 
                         W R I T E ( 1 , * )   ' '/  !!' 
 
                         W R I T E   ( 1 , * )   C , 5 
 
 
 
             +"  !#.)  !: 
 
 
 
                         '/  !!
 
 
 
                   3 . 4 0 0 0 0 0                   3 . 4 0 0 0 0 0               3 . 4 0 0 0 0 0         3 . 4 0 0 0 0 0 
 
                   3 . 4 0 0 0 0 0                         5 
 
 
 
 
 
                         5 . 3 . 8 . 3 .    "   " A C C E P T "     # 
 
                                           !!
 
 
 
                         $#&     "     " A C C E P T "       #   !!
 
             "'+  $#&/   "   " R E A D "     #   !!, 
 
               !.'  ",   '"    !#)!"/"!/    !    " . 
 
 
 
 
 
                          "   " A C C E P T "     #   !!  "  !#.- 
 
             )  : 
 
 
 
                     A C C E P T   * , K 
 
 
 
             
 
 
 
             * 
 
                 -      /  $ "    #   !!; 
 
 
 
             K 
 
                 -   !!  . 
 
 
 
                          ,   " +  +  #" /",  (  !, 
 
             !'"++     " #  " A C C E P T "       #     !!, 
 
             "'  "  ,         !#'   "   " R E A D "     # - 
 
               !!. 
 
 
 
                   +. 
 
 
 
                             A C C E P T   * , I , J , K , A ( I , J , K ) 
 
                             A C C E P T   * , I , L , ( Q ( L ) , L = 1 , I ) 
 
 
 
 
 
                                                         -   7 2   - 
 
 
 
                                               0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
                             5 . 3 . 8 . 4 .    "   " T Y P E "     #   !!
 
 
 
                             $#&   "   " T Y P E "     #   !!  - 
 
               "'+  $#&/   "   " W R I T E "     #   !!,     
 
               !.'  ",   '"  +  +/"!/    " . 
 
 
 
                              "   " T Y P E "     #   !!  "  !#.)
 
               : 
 
 
 
                                   T Y P E   * , K 
 
 
 
               
 
 
 
               * 
 
                     -      /  $ "    #   !!; 
 
 
 
               K 
 
                     -   !!  +. 
 
 
 
                     $ "  ++%  '    !#'   "     " T Y P E "     
 
               #   !!  "'  "  ,     $ "  ++%  - 
 
               '    !#'   "   " W R I T E "     #   !!. 
 
 
 
                       +. 
 
 
 
                                   T Y P E   * , ' &  !'"' , I 
 
                                   T Y P E   * , ( I , X X ( I ) , I = 1 , 1 0 ) 
 
 
 
 
 
 
 
                     5 . 3 . 8 . 5 .    "   " P R I N T "     #   !!
 
 
 
 
 
                     $#&   "   " P R I N T "     #   !!  "'- 
 
               +  $#&/   "     " W R I T E "         #     !!,   
 
               !.'  ",   '"  +  +/"!/    #!" !"  '". 
 
 
 
                      "   " P R I N T "     #   !!    "    !#.)
 
               : 
 
 
 
                                   P R I N T   * , K 
 
 
 
               
 
 
 
               * 
 
                     -      /  $ "    #   !!; 
 
 
 
               K 
 
                     -   !!  +. 
 
 
 
                     $ "  ++%  '    !#'   "   " P R I N T "     
 
               #   !!  "'  "  ,     $ "  ++%  - 
 
               '    !#'   "   " W R I T E "     #   !!. 
 
 
 
 
 
                                                         -   7 3   - 
 
 
 
                                               0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
                     +. 
 
 
 
                               P R I N T   * , ( ( Q N ( M , N ) , M = 1 , 1 0 0 ) , N = 1 , 1 0 0 ) 
 
                               P R I N T   * , ' '",  !!' , S 
 
 
 
 
 
                     5 . 3 . 9 .    '  # /    &#  $      (
 
 
 
                       .   "   " R E A D "     " W R I T E "     "    ! ",!/
 
                " ,   " +  ++"   '#  # /   ##  - 
 
                " #,   !     +     "     / +    #"
 
                #  &  $    ('  !!"/.   -"   "- 
 
                +  ."  !#.)  : 
 
 
 
                                   E N D = S     E R R = S 
 
               
 
 
 
               S 
 
                           -   "  +/   " ,   " #    +",
 
                                  # . 
 
 
 
                    "   " R E A D "     " W R I T E "   "  ! ",  .    +(- 
 
                +%   " ,       ! #  ,    ',     .  - 
 
                /.   .  "     "         !",         
 
               #!" !",      &+  !  /   #"  $ ". 
 
 
 
                   !     +   &    #"     #    &
 
               $,    "   " R E A D "    !"  #    " #,     "
 
               "   #     "     " E N D = S " .   !    "      "
 
               "!#"!"#", #"  $!   ('  !!"/.   #!
 
               &  $  "    "  !#',       !",
 
               $  ,(    "!/  &  !,     !'"+"!/
 
                  &  $,   !+   "   " E N D F I L E " . 
 
 
 
                   !     +  / +    #      "- 
 
                  " R E A D "     " W R I T E "    #"!/    ('    !!"/, 
 
               #    "!/   " #,   "    "     #    
 
                "   " E R R = S " .   !   "   " E R R = S "   "!#"!"#",   (
 
               / +  ++"    )  +/    +. 
 
 
 
                   "   "      " %  " E N D = S "     " E R R = S "       "- 
 
               !",!/    +/#   " #,   " +    %",!/
 
                 "        #,   '"     "   / +. 
 
 
 
                      +    +   "   / +,   ! )%
 
                " +  " E N D = S "     " E R R = S " .     !: 
 
 
 
                             R E A D ( , E N D = 5 5 0 ) ( A R R A Y ( K ) , K = 1 , 1 0 0 ) 
 
 
 
                   #  #!/  &  $    '!    #!" !"- 
 
 
 
 
 
                                                                 -   7 4   - 
 
 
 
                                                       0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
                 7   #    "!/   " #  5 5 0 .   !#.)/    !,
 
                " : 
 
 
 
                             W R I T E ( 7 , 5 0 , E R R = 7 7 7 ) 
 
 
 
                   #  (   "  #      " #    7 7 7 . 
 
                " : 
 
 
 
                             R E A D ( 1 ' I N D E X , E R R = 2 0 0 ) A R R A Y H 
 
 
 
                "  #    " #  2 0 0 ,   !   #"!/    (
 
               '"/. 
 
 
 
 
 
                          '.          +     "     / +
 
               " R E A D "     " W R I T E "   !   /+  !"#        "    #",
 
               #!  &  $.   +"   "",!/      &    !, 
 
               !,#/     !    ,(,     '    !,+     , 
 
                +  /    #!" !",   +"  ('  !!- 
 
               "/. 
 
 
 
 
 
 
 
                           5 . 3 . 1 0 .   !",+   " +  / +
 
 
 
 
 
 
 
                            " +,   "!/)!/        -"    " ,     +/."
 
                 $#&  # /  $. 
 
 
 
 
 
 
 
                           5 . 3 . 1 0 . 1 .    "   " R E W I N D " 
 
 
 
 
 
 
 
                            "   " R E W I N D "   !#"  /  #!"  #"/  "'
 
                 "#)   "  " +"  !",  $      
 
                 '. 
 
 
 
                            "   " R E W I N D "   "  !#.)  : 
 
 
 
                               R E W I N D   U 
 
 
 
                 
 
 
 
                 U 
 
                               -      '!  #!" !". 
 
 
 
                              #!" !"     "   " R E W I N G "     "!",- 
 
                 !/    (#  #!" !"#,   .)#  $#.  !" #"# #  ( - 
 
                   ,   B Y : ) . 
 
 
 
                     . 
 
 
 
                                 R E W I N D   3       ( #!"  #"/  &  "#)
 
                                                        "  '!  #!" !"  3   
 
                                                       '  $,   " +"    +  "
 
                                                            -"  #!" !") . 
 
 
 
 
 
                                                         -   7 5   - 
 
 
 
                                               0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
                     5 . 3 . 1 0 . 2 .    "   " B A C K S P A S E " 
 
 
 
                      "   " B A C K S P A S E "   ++"   "  #"/  " +"
 
               !",  $    #  !,        & - 
 
                  #"/  $    '  -"  !.        +- 
 
                 '    "   / +  /    -"    #!" !"
 
               #"   "+",!/  -"  !,. 
 
 
 
                      "   " B A C K S P A S E "   "  !#.)  : 
 
 
 
                         B A C K S P A S E   U 
 
 
 
               
 
 
 
               U 
 
                       -      '!  #!" !". 
 
 
 
                        #!" !"    "!",!/    #!" !"#  !  $
 
               !" #"#   (   ,   !) . 
 
 
 
                       . 
 
 
 
                                 B A C K S P A S E   4       (  "  #"  " +"  $  
 
                                                             '!  #!" !"  4     '#   - 
 
                                                             +#)  !) . 
 
 
 
 
 
                     5 . 3 . 1 0 . 3 .    "   " E N D F I L E " 
 
 
 
 
 
                      "   " E N D F I L E "   !+"     &  $    #- 
 
                 #!" !"  !  !",+  !"#. 
 
 
 
                      "   " E N D F I L E "   "  !#.)  : 
 
 
 
                           E N D F I L E   U 
 
 
 
               
 
 
 
               U 
 
                     -      '!  #!" !". 
 
 
 
                 . 
 
 
 
                           E N D F I L E   2               ( !,     &  $    - 
 
                                                           '!  #!" !"  2 ) . 
 
 
 
                                                             -   7 6   - 
 
 
 
                                                   0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
                 5 . 3 . 1 0 . 4 .    "   " 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 "   "  !#.)  : 
 
 
 
                         D E F I N E   F I L E   V ( M , N , U , C ) [ , V ( M , N , U , C ) ] . . . 
 
 
 
       
 
 
 
       V 
 
           -   &/  !""    &/   /,    /.)/
 
                  '!  #!" !"; 
 
 
 
       
 
           -   &/  !""    &/   /,    /.)/
 
               '!  !    $; 
 
 
 
       N 
 
           -   &/  !""    &/   /,    /.)/
 
               #  (   !%)     !; 
 
 
 
       U 
 
           -    /",   '"  +      $    //"!/    $ "+
 
               ( '+) ;   #  " U "   //"!/  !"  #!- 
 
               "  !,.  -"  &; 
 
 
 
       C 
 
           -   &/   /,   +/  !/     
 
               $;        #,""    +/         &
 
               / +  !   /+      !"#    -"     
 
                !"!/    ',         #    !#.)
 
               !    $. 
 
 
 
            "   " D E F I N E   F I L E "    /",   '"  $, !!"/)
 
     " "   !  $!   +    " N "   !  /, #
 
   %"!/    #"  %",!/      '!    #!" !"
 
   " V " .   !    $   # +  !",  "  1   
 
   " " . 
 
 
 
            "   " D E F I N E   F I L E "     +",  +      - 
 
   +   "   / +  !   /+  !"#,    ).)- 
 
   !/    ##  $#. 
 
 
 
            "   " D E F I N E   F I L E "   "   /"  &#.     - 
 
   #.    !/#.   #.  $.     &     &
 
   / +  !   /+  !"#  !!"  / +  $ " 
 
   )"    " C "      !,   " /  ! !"  !#- 
 
   "    !,.,   ",  '"  !'"    !.   "  
 
   !//   /  !  #+"    ' #.  !,  
 
   $  (   "%   ,         #"         - 
 
   "    !/,   / +        " F I N D " ) ,      " +
 
   / +  !   /+  !"#  #"   /",!/  /  +- 
 
   /    !",     "    $,     !        %    
 
   '!"    #"/     !  #"  !,",!/  !/- 
 
 
 
 
 
 
 
                                                       -   7 7   - 
 
 
 
                                             0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
     /   /  $. 
 
 
 
         !    $     '"!/    /     "+    !    !,
 
       +  #/    /   "+    #!/%    +"/, 
 
     !//   /    +",   !     "
 
     '!"      C O M M O N . 
 
 
 
         . 
 
 
 
                   D E F I N E   F I L E   3 ( 1 0 0 0 , 4 9 , U , I A S ) 
 
 
 
     -""   "    /",   '"  '!  #!" !"  3   "- 
 
     !"/"!/  !  $,   !!"/)    1 0 0 0   !  $! - 
 
       +,    '  /  !,  "  #    4 9     !.     -"
 
     !   # +  !",  "  1     1 0 0 0     //."- 
 
     !/      !$ "+      !/.       !               &
 
     / +  !   /+  !"#    -"  $  &/     - 
 
     /  " I A S "     ! ",     !,   " /    !- 
 
      !"  !#"    ",  '"  #'!"(         &
 
     !,.. 
 
 
 
 
 
 
 
                 5 . 3 . 1 0 . 5 .    "   " F I N D " 
 
 
 
 
 
 
 
                "   " F I N D "   +/"    #!"#    $    !     /+
 
     !"#,   %/)!/    #  #!" !",     #.
 
     !,     !"  !/     $       -"
 
     !.      '  +%     !%". 
 
 
 
                "   " F I N D "   "  !#.)  : 
 
 
 
                     F I N D   ( U ' R ) 
 
 
 
       
 
 
 
     U 
 
                   -      '!  #!" !"; 
 
 
 
     R 
 
                   -      &+  !. 
 
 
 
                  #!" !"    -"   "     "!",!/    
 
     '!#  #!" !"#,   "     +",      - 
 
       /   &  !   /+  !"#. 
 
 
 
                  !    "  +",  ,(  1       "     +- 
 
     (",  '!  !,      /  -"  $. 
 
 
 
         F I N D ( 1 ' 1 )           ( #!"  $    '!  #!" !"
 
                                       1       !/        #.
 
                                       !,) ; 
 
         F I N D ( 1 ' I A S )       ( #!"  $    !/   
 
                                         !,,    /#.  ! +  " I A S " ) . 
 
 
 
 
 
 
 
 
 
 
 
                                                             -   7 8   - 
 
 
 
                                                   0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
 
 
 
 
                   5 . 3 . 1 0 . 6 .    "   " O P E N " 
 
 
 
 
 
                "   " O P E N "   "  +",  !,  /    "!"- 
 
     /  .)!/  $  !  " +    '!    #!" !"
 
       /  !" /    $        "!"/        !
 
     '!  #!" !".      ",    "     " O P E N "     "
 
     ! ",   /  % " !"    $,     " +    ##"
 
     # /",  !"   /   !#.)   "  $. 
 
 
 
                "   " O P E N "   "  !#.)  : 
 
 
 
                     O P E N   ( P [ , P ] . . . ) 
 
 
 
       
 
 
 
      
 
                     -    " ,   " +  "  +",      !#.)%: 
 
 
 
           .'                            .'  -   -"  .'  !; 
 
           .'=                           -   '!  + ; 
 
           .'= S                         S   -   "  +/   " ; 
 
           .'= L L T                     L L T   -   #- &$   "   
 
                                                           !&,  '; 
 
           .'= V                         V   -   "$"   &   ; 
 
           .'= N                         N   -   "$"   !!,   "$" 
 
                                                        ,   "$"   -"
 
                                                       !!    #- &$   "- 
 
                                                        . 
 
 
 
               .'+  !,     " +      ("!/    !,",    
 
      +%  % " !",    +    ".   3         !+
 
     . 
 
 
 
                /  % " !"    #"    +",     !+    
 
     .  !",!".     ,(!"  !#'   /
 
     % " !"  //."!/  /",+  ,   !    "!#"!"- 
 
     #.",   #"   /"  '        #'..         '!+
 
     +    #"!/  .  +   &,     )!"- 
 
         !    "'!",.  ".   '  -"    + - 
 
     /  #"        &#  "#       !,- 
 
          "   " O P E N " . 
 
 
 
                                                           -   7 9   - 
 
 
 
                                                 0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
 
 
                                                                                       "&  3 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
   .'  !                  '                        '/
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 U N I T                                  '!  #!" -   E 
 
                                       !"
 
 N A M E                                  $                  N 
 
 T Y P E                               "  $                                  ' O L D ' 
 
                                                                                           ' N E W ' 
 
                                                                                           ' S C R A T C H ' 
 
                                                                                           ' U N K N O W N ' 
 
 A C C E S S                           "  !"#                          ' S E Q U E N T I A L ' 
 
                                                                                           ' D I R E C T ' 
 
                                                                                           ' A P P E N D ' 
 
 R E A D O N L Y                       !"#    $#  ",
 
                                       /  '"/
 
 F O R M                               $ "  $                            ' F O R M A T T E D ' 
 
                                                                                           ' U N F O R M A T T E D ' 
 
 R E C O R D S I Z E                     !  !   /+
 
                                       !"#                                    E 
 
 E R R                                 "   %    (    S 
 
 B U F F E R C O U N D                 '!  #$                           E 
 
 I N I T I A L S I Z E                     "  $#
 
                                       !"                                      E 
 
 E X T E N D S I Z E                        !( /  $      E 
 
 N O S P A N B L O C K S                '  !
 
 S H A R E D                           "+  !"#  
 
                                       $#
 
 D I S P O S E                          ! /  $            ' S A V E ' 
 
                                                                                         ' K E E P ' 
 
                                                                                         ' P R I N T ' 
 
                                                                                         ' D E L E T E ' 
 
 A S S O C I A T E V A R I A B L E     /  !/     V 
 
 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 ' 
 
 M A X R E C                           '!  !  !   /+
 
                                       !"#                                  E 
 
 B L O C K S I Z E                         $'!    E 
 
 
 
 1 )   .'  !  " U N I T " 
 
             -   !,  " U N I T   =   V "    /"  '!    #!" !"- 
 
                 ,   "     +",  !/  !  $;   " V " -   -"
 
                 '!  + ;     !!   "   /",- 
 
                     +",       #!" !";          /
 
                 +/   "   " O P E N "       +",   #
 
                 $,   !/  !  +  '!  #!" !". 
 
 
 
 2 )   .'  !  " N A M E " 
 
             -   !,  " N A M E   =   F L N "    /"  "$"     $- 
 
                 ,   !/+  !  '!    #!" !";     " F L N " 
 
                 "  +",  #- &$ +  " ,     "$- 
 
                 "    ,     "$"     !!    
 
                 "$"     -"    !!;     "$" 
 
                 "  +",  .+     $,   #!"+    
 
                 !!"  !  - 1 1 ;   !  "$"   $  % "- 
 
                 !/         !!,             '- 
 
                 ",!/  #+  !    - 7     ( #+    - 
 
                 ") ; 
 
 
 
 
 
 
 
                                                           -   8 0   - 
 
 
 
                                                 0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
 3 )   .'  !  " T Y P E " 
 
             -   !,  " T Y P E   =   T Y P "      /"    "    " +
 
                 $;   " T Y P "   -   -"      "   ' O L D ' ,   ' N E W ' , 
 
                 ' S C R E T C H '     ' U N K N O W N ' ;   !   /"!/    ' O L D ' , 
 
                 $    #    !#)!"",;     !     /"!/
 
                 ' N E W '   -     +",  !  +  $;   !     - 
 
                 /"!/  ' S C R A T C H ' ,   "  !"!/  +  $    !/- 
 
                 +"!/  !  #+  #!" !"  /    !,- 
 
                 /    ;   $  #'""!/     +
 
                  "   " C L O S E " ,    ).)!/    "#      !#
 
                 '!#  #!" !"#,         "          (
 
                 +/          +;         !           /"!/
 
                 ' U N K N O W N ' ,   !!"   #"     ",    "    
 
                 ' O L D ' ;   !  $    #"   #,   !!"   - 
 
                 "  "      ' N E W '     ,     "     ,     !!"
 
                 +  $;     #'.  !,#"!/     
 
                 ' N E W ' ; 
 
 
 
 4 )   .'  !  " A C C E S S " 
 
             -   !,  " A C C E S S   =   A C C "    /",   //"!/    !- 
 
                 "#    $#   /+    !",+;     " A C C "     - 
 
                 -"              !#.)%      " :       ' D I R E C T ' , 
 
                 ' S E Q U E N T I A L '         ' A P P E N D ' ;     ' D I R E C T '      /"
 
                 $  !   /+    !"#;     ' S E Q U E N T I A L '      /"
 
                 $  !  !",+  !"#;   ' A P P E N D '    - 
 
                 /"  $  !  !",+  !"#    &- 
 
                      !  !,.    $;     #'.
 
                 !,#"!/     ' S E Q U E N T I A L ' ; 
 
 
 
 5 )   .'  !  " R E A D O N L Y " 
 
             -   !,  " R E A D O N L Y "    /",   '"    .)!/    $
 
                  '  /  '"/     )"  !,      -""
 
                 $; 
 
 
 
 6 )   .'  !  " F O R M " 
 
             -   !,  " F O R M   =   F T "    /"        " +- 
 
                 +  $  !'"+",!/    !+",!/  !    !,- 
 
                    "   $ "  / +    " R E A D "     
 
                 " W R I T E "     !  !,   "     $ "- 
 
                   / +  " R E A D "       " W R I T E " ;     " F T "     -     -"
 
                     "   ' F O R M A T T E D '         ' U N F O R M A T T E D ' ; 
 
                    "!#"!"  -"   "   /    !",- 
 
                 +%  $  !" "   /"!/  ' F O R M A T T E D ' ,     
 
                 /  $  !   /+  !"#  -   ' U N F O R M A T T E D ' ; 
 
 
 
 7 )   .'  !  " R E C O R D S I Z E " 
 
             -   !,  " R E C O R D S I Z E   =   R L "    /"    #    !
 
                 $  !   /+  !"#;   " R L "   -   -"  '!  + - 
 
                 ;     !#'  $ "+%  !    -   -"  '!- 
 
                   !;     !#'  $ "+%  !      - 
 
                 -"  '!  ( +%  !) ;   !  $  #  "!/,   
 
                 " R L "     !"    !    $"'!        !, 
 
                 $! #"!/  ('  !!"/;   !    -""     - 
 
                 "   #)        !#'    #    !#)!"#.)    $, 
 
                 !,#"!/  '  +    !,      
 
                    !  $;      !        $    !
 
                  /+  !"#  -""   "     /     !#"!"- 
 
                 ",;     !#'  !",  $  -""     - 
 
                 "     #"!/; 
 
                                                               -   8 1   - 
 
 
 
                                                     0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
   8 )   .'  !  " E R R " 
 
             -   !,    " E R R   =   S "        /"     '#  # /
 
                    ('  !!"/;   " S "   -   -"  "    +/- 
 
                    " ;    /     " #        " E R R = " 
 
                  '  # /      !"",      ",         
 
                 +     "   " O P E N "         "!"!/
 
                   !#.)   "    #/ +#      !    -"  #!"- 
 
                  !";      #        ('      !!"//
 
                 $    !"!/      " +"!/; 
 
 
 
   9 )   .'  !  " B U F F E R C O U N T " 
 
             -   !,  " B U F F E R C O U N T   =   !"    /"      '!    #$- 
 
                  ,   !""!"#.)  #  #!" !"#       - 
 
                 #$   / +;       " !"   -   '!        + - 
 
                 ;     #'.  -   &; 
 
 
 
   1 0 )   .'  !  " I N I T I A L I Z E " 
 
             -   !,  " I N I T I A L I Z E   =   E S "    /"      '!    
 
                   !"    !  ",           ",
 
                 "  #  $#.       " E S "   -   -"  '!  + - 
 
                 ;   -"  .'  !      "        !,",!/
 
                 ",  /  +%  $    ",      /       )/
 
                 $    !;   !  -""   "   !#)!"/"  
 
                    #.,       ",       /
 
                     !"    +/"!/; 
 
 
 
   1 1 )   .'    !  " E X T E N D S I Z E " 
 
             -   !,  " E X T E N D S I Z E   =   E S "    /"      '!  , 
 
                   "   #'"!/  $,   !      $#    
 
                 +",  "  ",/  !",;     " E S "     -     -"
 
                 '!  + ;   !  -""   "     "!#"!"#"
 
                      #.,   "   "!/   +  /"; 
 
 
 
   1 2 )   .'  !  " N O S P A N B L O C K S " 
 
             -   !,  " N O S P A N B L O C K S "      /",       '"    !  
 
                 +   !",   &+      !;           !
 
                 /-   !,   +!"      $'!    - 
 
                 ,   #"  $!   ('  !!"/; 
 
 
 
   1 3 )   .'  !  " S H A R E D " 
 
             -   !,  " S H A R E D   =   D I S "    /",                 !#"
 
                  ! /",!/  $,   !/+  !  +    #!" !"- 
 
                 ,     !" !"   +"!/;           " D I S "   -       -"
 
                     !#.)%  " :   ' S A V E ' ,       ' P R I N T '     
 
                 ' D E L E T E ' ;   !" "   +      '         
 
                 "!#"!"     "   //"!/  ' S A V E ' ; 
 
                 ' K E E P '   -   -"  !  ' S A V E ' ;     -"       - 
 
                 '"    !  !%       $      !    ",     
 
                 '!  #!" !"   +"!/;   ' D E L E T E '       ++- 
 
                 "  #'"  $  !  ",         '!
 
                 #!" !"   +"!/;   ' P R I N T '   ++"          '",
 
                 $    #!" !"  '",             "  #'"
 
                 $;   $,   !"#+  ",    /  '"/,     "
 
                 +",  +    '",    #'";       $      "
 
 
 
 
 
 
 
                                                             -   8 2   - 
 
 
 
                                                     0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
                 ' S C R A T C H '         "      +",      !%       +  
 
                 '",; 
 
 
 
   1 5 )   .'  !  " A S S O C I A T E V A R I A B L E " 
 
             -   !,      " A S S O C I A T E V A R I A B L E   =   A S V "        /"    &#.
 
                  #.      " A S V " ,       " /    !  +/  
 
                  &      / +      !     /+  !"#   "
 
                 '             !,     ! !"  !#.)
 
                       !,.,       #'!"#.)     &;   -""  #",
 
                   #"!/            !#'      $    !  !",+
 
                 !"#; 
 
 
 
   1 6 )   .'  !  " C A R R I A G E C O N T R O L " 
 
             -   !,        " C A R R I A G E C O N T R O L   =   C C "            /"        
 
                 !,#      # /       "     +  $
 
                   '",;   " C C "       -       -"      !#.)%  " : 
 
                 ' F O R T R A N ' ,   ' L I S T ' ,   ' N O N E ' ;                     #'.        /
 
                 $ "+%                  $             "!/     
 
                 ' F O R T R A N ' ,           /    $ "+%    -     ' N O N E ' ;   ' F O R T R A N ' 
 
                  /"      +'#.      $ " !#.          "  "&.
 
                    !;       ' L I S T '       !"      '+   +
 
                 #  &  !;         ' N O N E '           #+",       '"
 
                   # /   "    +/"!/; 
 
 
 
   1 7 )   .'  !  " M A X R E C " 
 
             -   !,      " M A X R E C   =   M R "        /"  !,  '!
 
                 &  !,             #!    $  !   /+  !- 
 
                 "#;       " M R "   -     -"    '!  + ;      "!#"!"- 
 
                       -"       "     !,  '!  !  
 
                  /"!/;     !#'        $      !      !",+
 
                 !"#  -""  #",    #"!/; 
 
 
 
   1 8 )   .'  !  " B L O C K S I Z E " 
 
             -   !,  " B L O C K S I Z E   =   B K S "          /"            $- 
 
                 '!    /    #!" !";       " B K S "     -       -"
 
                 '!      + ;       -""    #",  "  '
 
                 ",      /      $            "  ";     !#'
 
                 $    !%              #"!/;          "!#"!"
 
                 -"       "       !,#"!/      !!"+    !" "
 
                 /  -"  #!" !"; 
 
 
 
           +   "   " O P E N " : 
 
 
 
 O P E N         ( U N I T = 5 , T Y P E = ' N E W ' ,           A C C E S S = ' D I R E C T ' , I N I T I A L I Z E = 6 0 , 
 
 R E C O R D S I Z E = 1 6 ) 
 
 
 
   -"#       " #    !" "!/  +  $  !   /+  !"#  
 
 #!" !"  5 ,   !!"/)    6 0   . 
 
 
 
 O P E N         ( U N I T = 2 , N A M E = ' B Y 1 : P R O B . D A T ' ,   T Y P E = ' N E W ' ,   E R R = 1 7 ) 
 
 
 
 !" "!/  $      "  !. 
 
 
 
 O P E N     ( U N I T = 2 , N A M E = ' B Y 1 : P R O B . D A T ' , R E A D O N L Y , T Y P E = ' O L D ' ) 
 
 
 
 /  +      +%    " +"!/  $,   !" +       +#- 
 
 )    . 
 
 
 
 
 
 
 
                                                             -   8 3   - 
 
 
 
                                                     0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
                 5 . 3 . 1 0 . 7 .    "   " C L O S E " 
 
 
 
 
 
                  "   " C L O S E "   "  !#.)  : 
 
 
 
                             C L O S E     ( U N I T = U [ , D I S P O S E = P ]   [ , E R R = S ] ) 
 
 
 
   
 
 
 
   U 
 
             -      '!  #!" !"; 
 
 
 
   P 
 
             -   " ,        /.),             !#"   ! /",!/
 
                 $;             "      ",    '/  ' S A V E ' ,   ' K E E P ' , 
 
                 ' D E L E T E '         ' P R I N T ' ;       ' S A V E '       ' K E E P '   -   -"  !- 
 
                 +;       !               %,   "  !  +- 
 
                 /        " C L O S E "         $      !% /"!/;     !   
 
                 ' D E L E T E ' ,       "      $      #/"!/      !      +/
 
                 " C L O S E " ;       ' P R I N T '       ++"      '",      $    #!"- 
 
                  !"  '",       !  '      $    #'""!/;   /
 
                 $      !      "  ' S C R A T C H '     #'.  !,#"!/
 
                 ' D E L E T E ' ,     /  !",+%  -   ' S A V E ' ; 
 
 
 
   S 
 
             -   "  +/   " . 
 
 
 
          "       " C L O S E "       #!" /"      !/,  #  $    #!"- 
 
  !".    "   ' D I S P O S E '          "       " C L O S E "     - 
 
 /"      !""!"#.)      #,           " 
 
 " O P E N " .         !.'    //"!/    $,   " +"+    $  "
 
 ' S C R A T C H ' ,       " +        "    +",    !% ,      !'- 
 
 ",         "  $,       " +"+    ",  /  '"/,   " +  
 
 "  +",     !'",     #'". 
 
 
 
             +. 
 
 
 
                 C L O S E   ( U N I T     = 2 , D I S P O S E = ' P R I N T ' ) 
 
 
 
         -"#     " #     +"!/  $    #!" !"  2     
 
 !   '""!/    L P : . 
 
 
 
                 C L O S E   ( U N I T = I , D I S P O S E = ' D E L E T E ' , E R R = 2 5 ) 
 
 
 
  +"!/  $    #!" !"  " I "     #'""!/. 
 
 
 
 
 
                 5 . 3 . 1 1 .    " +  " E N C O D E "       " D E C O D E " 
 
 
 
                 -"     "   +/."   '#  +%    # - 
 
         !&$&  $ ",       #/  +    #" - 
 
   $ "    !,+      !,    #" . 
 
 ,             "'      "      +'+%       "       $ "
 
 / +,       !,      +/."!/  ",  #"    '
 
 +%      #     +    !!          $ "- 
 
 
 
 
 
 
 
                                                             -   8 4   - 
 
 
 
                                                     0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
  . 
 
 
 
                  " +  " E N C O D E "     " D E C O D E "   !+."!/  !#.)
 
  : 
 
 
 
                       E N C O D E     ( C , F , B   [ , E R R = S ] )   [ K ] 
 
                       D E C O D E     ( C , F , B   [ , E R R = S ] )   [ K ] 
 
 
 
   
 
 
 
   C 
 
             -   &      + ,        !"/.)      '!  !
 
                 ( ") ,       " +    +  +",    +,   
 
                 '!  !,       " +  +      #'",!/    !
 
                   /      ( !,      "!/    /  !  
 
                 !) ; 
 
 
 
   F 
 
             -   #",      $ ";       !        $ "   /"!/
 
                 ,   '    &  !,         $! #"!/    (- 
 
                 '  !!"/; 
 
 
 
   B 
 
             -   "$"         !!,   -"  !!     - 
 
                 ;      "       " E N C O D E "     -""  ' "  !+- 
 
                 ."!/  !+;            "     " D E C O D E "     ! "
 
                 !+,         " +      +      +",    +  
 
                 #"       $ ";     " B "       +",  "$- 
 
                 "    "#,  !!      -"; 
 
 
 
   S 
 
             -   "  +/   " ; 
 
 
 
   K 
 
             -   !!      / +;        "   " E N C O D E "     !!
 
                 / +      ! "      -"+,       " +  +
 
                 +",    +    !+;          "   " D E C O D E " 
 
                 -"  !!   !."!/      '/        +%, 
 
                 " +    #."!/      !            #" 
 
                 $ "; 
 
 
 
            "       " E N C O D E "       ++"      -"
 
 !!  / +        #   !&$&  $ "  
 
   %    ' "    " B "       '      "#,         -"
 
  !%"      "   "   " W R I T E " . 
 
 
 
            "       " D E C O D E "     ++"      !,+%
 
 +%    ' "  " B "         #   !&$&  $ "
 
      !"      #'+      '/      -"        !!
 
 / +.       -"       "    '   "   " 
 
 " R E A D " . 
 
 
 
           !      ' "  " B "   //"!/  !!,     -"+   - 
 
 "+."!/     /  !    !!. 
 
 
 
           '!"      !,       "     "  +",   "
 
  "       " E N C O D E "           " D E C O D E " ,   !"  "  "  +%
 
 ' "  " B "     -"   " .         ,   !!  " I N T E G E R * 2 " 
 
 "  ! ",      !        -",     "  '"  !- 
 
 
 
 
 
                                                               -   8 5   - 
 
 
 
                                                     0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
 ,      '!    !    ,(  '!  -"    -"
 
 !!.       !/,    #    #   $ "    !!
 
 / +    !""!/      "  ,         /   "   $ - 
 
 "  / +. 
 
 
 
                   : 
 
 
 
                       48<5=A8>=  0( 3 ) , :( 3 ) 
 
                       40B0  0  / ' 1 5 6 7 ' , ' 1 1 3 2 1 ' , ' 9 1 0 5 ' / 
 
                       45F>45  ( 1 2 , 1 0 0 , )   
 
               1 0 0   D>@<0B  ( 3 1 4 ) 
 
 
 
 +      -"   "   " 45F>45"   ++"    
 
 !    !!  " 0"             &#      $ "#  (  #
 
  "   1 0 0 )             %        !!  " :"   !#.)
 
  : 
 
 
 
                       ( 1 ) = 1 5 6 7 
 
                       ( 2 ) = 1 3 2 1 
 
                       ( 3 ) = 9 1 0 5 
 
 
 
 
 
                 5 . 4 .    " +  " D>@<0B" 
 
 
 
 
 
                  " +  " D>@<0B"   //."!/  +/+   " - 
 
 ,       !,#+      !!"      !       "     $ "
 
 / +    !   "   " 5=F>45"     " 45F>45" . 
 
 
 
                  "       " D>@<0B"   !+"  $ ",     "    - 
 
 ."!/  /  +%,             "         " - 
 
 ,         " +  +  +",  ++  /   /  +%  
 
 -"#  $ "#. 
 
 
 
                  "   " D>@<0B"   "  !#.)  : 
 
 
 
                       D>@<0B  ( O1 D1 A1 D2 A2 . . . D=O=) 
 
 
 
   
 
 
 
 O
 
             -    #      +%      ' ",       )    '!  "  #/    
 
                 ,       /      " +%  //"!/     '
 
                   &+  !; 
 
 
 
 D
 
             -   !&$&/        /         #  !&$- 
 
                 &,   .'/    !; 
 
 
 
 A
 
             -    ",+  . 
 
 
 
         !      + ,     .'/  !,   +"!/  !!  !- 
 
 &$&.   '      (%      !    //"!/  /",+. 
 
 
 
         !&$&/    /  "  !#.)  : 
 
 
 
 
 
 
 
                                                             -   8 6   - 
 
 
 
                                                     0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
                 H@I  F2H. :I
 
 
 
   
 
 
 
 @
 
             -   -$$&"      " /,       " +      #+",     '"
 
                 /      !&$&/          +",         " @" 
 
                 !",+      /;       !  -$$&"  " - 
 
                 /  #),     "!/   +  &; 
 
 
 
 F
 
             -   "  !&$&; 
 
 
 
 2
 
             -    /"  #  /; 
 
 
 
 :
 
             -    /"      '!      !      !   "    !/"'
 
                 "'. 
 
 
 
 '+      " @" ,   " 2" ,   " :"       +  +",  &+  !""  
 
 ,      +(.)  2 5 5 . 
 
 
 
                    ",+    "!/"!/  /"/    /
 
 ' ".       /      ' "     "  !#"     '
 
   !. 
 
 
 
                   !!  !&$&  !,#."!/  !#.)  !&$- 
 
 &    /: 
 
 
 
                 -   !&$&  &+%  '!:   82,   >2; 
 
 
 
                 -   '!/  !&$&/:   ;2; 
 
 
 
                 -   !&$&/      )!"+%,     !    "'!",.  
 
                     !+%  '!:   D2. :    52. :,   42. :,   32. :; 
 
 
 
                 -   " ,+         " #.)  !&$&:   02,   =E, 
 
                     ' . . . ' ,   =L,   B=,   O,   A. 
 
 
 
     #- &$ +%       " #.)%  !&$&/%  " ="    - 
 
 /"  '!  !    !,+%  &. 
 
 
 
                           !&$&  "    " D" ,   " 5" ,   " 4"     " 3" 
 
 "   (!"",  !("+  -$$&"    : 
 
 
 
                 =?
 
 
 
   
 
 
 
 =
 
             -   -"      &/  !""  !  /",+  ,     "- 
 
                  /      "      ",      '/    "   "  - 1 2 7   
 
                 + 1 2 7 ;       -"      !""  #+",     !,  &
 
                                !"!/      !/"'
 
                 "'; 
 
 
 
 ?
 
             -   "$"   !("  -$$&". 
 
 
 
 
 
 
 
 
 
                                                             -   8 7   - 
 
 
 
                                                     0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
                      /     '    +%    +/"!/  ! 
 
 !!      !&$&      !       .       '+      !!
 
 / +        #."!/        #   !""!"#.)%
 
 !&$&    /. 
 
 
 
                     !#'  !&$&  "  " "     " ,+%  !&$- 
 
 &  !,          +     !%"  #  !!  !&$- 
 
 &    (  !,.. 
 
 
 
 
 
 
 
                 5 . 4 . 1 .   !&$&    /
 
 
 
 
 
 
 
                 !&$&    /    #."   +,      - 
 
 (!"#.)      ')    '!"  (  /,      (.)   - 
 
 +     +  #"   /   !!" ."!/    #. 
 
 
 
 
 
                  '.           -"       '!"     
 
 #" /"!/  !  " G" . 
 
 
 
 
 
                 5 . 4 . 1 . 1 .   !&$&/  " 8" 
 
 
 
 
 
                 !&$&/        " 8"       # /"      +%
 
 &  ".     "  !#.)  : 
 
 
 
                                 82
 
 
 
                 !&$&/    " 8"   ++"  !'"+   "   
 
 " 2"       !          (  !     !  &  '- 
 
 /    !""!"#.)#      &#  -"#    !!  .   (- 
 
       +      +      +",    &+  ';       +
 
 ! ",        !/"'      "',     /  #"/  !". 
 
 !      '      (    /   +("  #!"  '
 
 !""!"#.)      &      -"        !!,         $! #"!/
 
 (. 
 
 
 
                 !   +,   "'+  "   ,   !  (  /
 
 //"!/      " #!" ,       "          !&$&  " 8"   -"  
 
 "!/            " &",/      '.     ,   " #
 
  (!"#"          " .!" ,            !!" "- 
 
 !/    ",/  '.     : 
 
 
 
       $ "      (            #"      !"
 
 
 
           1 4             2 7 8 8                             2 7 8 8 
 
           1 3             - 3 5                               - 3 5 
 
           1 9             GGGGGG4 1 5                   4 1 5 
 
           1 9             3 . 1 2                               #!"!/;   (
 
 
 
                 !&$&/    " 8"     ++"   '#   "   +
 
 '      !""!"#.)      !!      +    (  /, 
 
 .)    #    " 2"       !        +     ! ,    '
 
 
 
 
 
 
 
 
 
                                                             -   8 8   - 
 
 
 
                                                     0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
 
 
 ')      +    #    /."!/   .   !  -""  -- 
 
 "    !!      "  " &",#.  '#    '!"   
 
   !,       "'    "   ,     (    #"
 
     " #!" .         -"#    " 2"     #'"+",!/    #!, 
 
 !  '  ,(  #/.       !       #  !" +    " .!"   
 
 +"!/                  #'"+",        " 2" .   !  '!"
 
 !      " 2"     !(  ,   '"+    !"  !,  +- 
 
   '+,       !  (    /"!/  '. 
 
   +  !,/      !&$&      " 8"   /   "   +- 
 
 : 
 
 
 
   $ "        #" //  '      (     !"
 
 
 
       1 3                     2 8 4                                     2 8 4 
 
       1 4                     - 2 8 4                                   - 2 8 4 
 
       1 5                     1 7 4                                     GG1 7 4 
 
       1 2                     3 2 4 4                                   * * 
 
       1 3                     - 4 7 3                                   * * * 
 
       1 7                     2 9 . 9 0 5                                 #!"!/;   (
 
 
 
 
 
 
 
                 5 . 4 . 1 . 2 .   !&$&/  " " 
 
 
 
 
 
                 !&$&/  " "   # /"   '  !, '+%  - 
 
 '.     "  !#.)  : 
 
 
 
                                 >2
 
 
 
                 !&$&/  " "   ++"  !'"+   "     
 
 " 2"   !    !     !  %,             !, '
 
 '+,   !""!"#.)#  -"#        !!  .       -"
 
 !!    ",  &+            '!  "  +%.   (- 
 
     "  ! ",  ",  &$ +  "  0     7   ;                 
 
 "  ! ",    '!,   !/"'#.      "'#          -!- 
 
 "+.     +  !,/        !&$&    " "   /   - 
 
 "   : 
 
 
 
                 $ "      (    #"   !, '
 
                                                              !"
 
                     0 5             3 2 7 6 7               3 2 7 6 7 
 
                     0 4             1 5 2 3 2               1 5 2 3 
 
                     0 6             1 4 GGGG            1 4 0 0 0 0 
 
                     0 3             9 5 G                    #!"!/;   (
 
 
 
                 !&$&/  " "   ++"   '#   "     +
 
 '/  !""!"#.)  -"  !!  +,       + - 
 
   ! ,           " 2"   !.   !    +        
 
 /."            &,       "    !"(/!/  /  '!",  /
 
 /"!/   .       !  +    )."!/    "- 
 
   /  %  ,   $! #"!/      ('      !!"/.       
 
 '!        +"!/;       " &",/      '   "!/  
 
 !      !, '      $   (   ",  ) .   -"
 
 !!  +    ",  &+    '!  "  +%. 
 
   : 
 
 
 
 
 
 
 
 
 
                                                             -   8 9   - 
 
 
 
                                                     0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
 
 
           $ "      #"   ( !/"')     (   !"
 
                                         '
 
               0 6                   3 2 7 6 7                               G7 7 7 7 7 
 
               0 6                 - 3 2 7 6 7                               1 0 0 0 0 1 
 
               0 2                   1 5 6 5 6                                 * * 
 
               0 4                         2 8                                 GG3 4 
 
               0 5                         1 7 . 4 6                           #!"!/;   (
 
 
 
 
 
 
 
                 5 . 4 . 1 . 3 .   !&$&/  " D" 
 
 
 
 
 
                 !&$&/  " D"    /"           "- 
 
    )!"+%  ',           '  !    "'!",., 
 
   "  !"",+%        +%      '!"  !+%  - 
 
 '.     "  !#.)  : 
 
 
 
                                       D2. :
 
 
 
                      !&$&/  " D"         ++"    !'"+  " 2" 
 
 !    !     !  %                )!"
 
 '/      !""!"#.)#      -"#  !!  .   !   - 
 
 +,   "'+  "         !        (    //"!/
 
   " #!" ,   ',   !    ,            !!" "!/
 
       " &",/      '.       !    .   (!"#"  
 
 " .!"           !            "  ,   "    !'"+"!/
 
 ",+.                 !%  !#'/%    !  !&$&  " D" 
 
 '  " 2"     +",  ,(       '  " :+ 1 " . 
 
 
 
                 !          ! "    !/"'  "',     -!- 
 
 "+,      !!" "!/          ! )  !,  )!"- 
 
       '!,       !!"/)        " 2"   &$ ,     "    +  " :" 
 
 &$     %/"!/      !       "      !/"'    "'.   !    
 
 ! "!/      !/"'/      "'      /  ,   "  '  " :" 
 
    "!/            .         !    ! "  #
 
 !",     "      -"  !",  !,#"!/    $    '- 
 
 +      !  -"#  !!. 
 
 
 
                   +    !,/  !&$&  " D"   /    - 
 
 /  )!"+%  ': 
 
 
 
       $ "      (        #"    !"
 
 
 
           D8 . 5         1 3 5 6 7 9 4 5 2                       1 3 5 . 6 7 9 4 5 
 
           D8 . 5         2 4 . 7 7 + 2                         2 4 7 7 . 0 
 
           D5 . 2         1 2 3 4 5 6 7 . 8 9                     1 2 3 . 4 5 
 
 
 
 
 
                    +  !&$&/  " D"   ++"   #  '- 
 
 /  !""!"#.)      -"    !!  +    " :"   !/"'- 
 
 +%         '!",        '#            (  , 
 
 .)      #    " 2"       !          +   ! .   !
 
   #+    +    !!"/"          '    " 2"   !,   
 
   !/"!/  +   +.     !    +    !!"/"    '
 
   " 2"   !,   !    /"!/  '. 
 
 
 
                 )  '!  !  " 2"       +",  !""'  - 
 
 ,   '"+  #'!",  !#.): 
 
 
 
 
 
                                                               -   9 0   - 
 
 
 
                                                     0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
 
 
             -   '            " #!" ,   !    "!/  (   .!
 
                   +"!/) ; 
 
             -       #        &$ +  !  "  !/"'  "'; 
 
             -   !      !/"'    "';   '  " K "   &$   !   "
 
                 "'. 
 
 
 
           -"#      '      " W "         !  +",  ,(  
 
    '  " K + 3 " . 
 
 
 
             +      !,/    !&$&  " F "   /   " - 
 
 /  )!"+%  ': 
 
 
 
         $ "    #"   '      (     !"
 
 
 
         F 8 . 5                         2 . 4 8 7 5 1 8 9           ^ 2 . 4 8 7 5 2 
 
         F 9 . 3                   8 8 3 7 . 4 7 6 1                 ^ 8 8 3 7 . 4 7 6 
 
         F 2 . 3                       4 8 . 5 1                         * * 
 
         F 1 0 . 4                   - 2 3 . 2 8 7 3 2               ^ ^ - 2 3 . 2 8 7 3 
 
         F 5 . 2                     7 6 5 . 0 1 4                   * * * * * 
 
         F 5 . 2                         - . 2                       - 0 . 2 0 
 
 
 
 
 
                 5 . 4 . 1 . 4 .   !&$&/  " " 
 
 
 
 
 
                 !&$&/      " "        /"   '#  )!"+%
 
 '          '  !    "'!",.    -!&,
 
 $ .     "  !#.)  . 
 
 
 
                                 E W . K 
 
 
 
                 !&$&/      " "   ++"     "     " W " 
 
 !    !.   -"    +      "  " #."!/     !- 
 
 ."!/      "'    "     ,         !#'  !&$&
 
 " F " . 
 
 
 
                   +  !,/  !&$&  " E "   /   " 
 
 : 
 
 
 
       $ "        (          #"    !"
 
         9 . 3               6 8 9 . 2 3 4 3                       6 8 9 2 3 4 . 0 
 
         1 2 . 4             ^ ^ 1 0 4 2 . 3 4 - 6                     1 0 4 2 . 3 4 - 6 
 
         1 5 . 1 2           5 2 . 3 7 5 9 6 6 3 ^ ^ ^ ^ ^                   5 2 . 3 7 5 9 6 6 3 
 
         1 2 . 5             2 1 0 . 3 2 7 1 D + 1 0                       2 1 0 . 3 2 7 1 1 0 
 
 
 
                 %  "",,   '"    !      !&$- 
 
 &/      " E "         #"      ",  '   
 
 /       /    " D " ,     #"/    "'!",        !!- 
 
 " "  ,        " E " . 
 
 
 
                 !&$&/    " E "     ++"   '#   "   +
 
 '/    !""!"#.)    -"  !!  +    (
 
       " W "   !,   +        &. 
 
 !    '!    !      +%  +%  ,(  " W " ,   "
 
       +  &  /  !/"!/   +.   !  '!  !
 
  +("    " W " ,   "  !    #"    '. 
 
 !""!"#.)      -"    !!    +    +",  )!"- 
 
 
 
 
 
 
 
                                                             -   9 1   - 
 
 
 
                                                       0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
 ,       !            "'!",.            !    ". 
 
 
 
                 +,       ++            #       !&$&
 
 " E " ,        ."!/            !" "    $ ,   !!"/)    
 
 " #!" ,       !      '  " &",/  (   " .!"     +- 
 
 "!/) ,     #/,       !/"'  "',   " "   &$   !   "  !/"'- 
 
   "'    '"+ %!,   /  '!    : 
 
 
 
                             E + N N               E - N N 
 
 
 
 
 
 
 
 N N 
 
             -   #'/  &/  !"". 
 
 
 
                 " K "   &$   !   "  !/"'  "'   !"/."  - 
 
 '#,   !#.     ,  !/"'   . 
 
 
 
                 "                        +",    !""'  ,(, 
 
 '"+      !"",          " #!"   ( !     !#"!"#") ,   #,, 
 
 !/"'#.      "'#,        /      " K "   &$ ,   '  " W "   
 
 +",  !  ,(       '  ( K + 7 ) . 
 
 
 
                   +  !,/    !&$&  " E "   /   " 
 
 +: 
 
 
 
         $ "        #"   '      (   !"
 
           9 . 2             4 7 5 8 6 7 . 2 3 3                             ^ 0 . 4 8 + 0 6 
 
           1 2 . 5           4 7 5 8 6 7 . 2 3 3                             ^ 0 . 4 7 5 8 7 + 0 6 
 
           1 2 . 3                     0 . 0 0 0 6 9                         ^ ^ ^ 0 . 6 9 0 - 3 
 
           1 0 . 3                   - 0 . 5 5 5 5                           - 0 . 5 5 6 + 0 0 
 
           5 . 3                     5 6 . 1 2                                 * * * * * 
 
 
 
 
 
 
 
                 5 . 4 . 1 . 5 .   !&$&/  " D " 
 
 
 
 
 
                 !&$&/      " D "        /"     '#  )!"+%
 
 '            '  !    "'!",..     "  !#.- 
 
 )  : 
 
 
 
                           D W . K 
 
 
 
                            !&$&/  " D "   +/"  "    $#&, 
 
 '"    -"/    !&$&/      " E " ,       !.'  ", 
 
 '"    +    +    #."!/     !."!/  ' "#  !
 
   "'!",.,         !#.)%    %: 
 
 
 
       $ "      (      #"    !"
 
 
 
         D 1 0 . 2         1 2 3 4 5 ^ ^ ^ ^ ^                     1 2 3 4 5 0 0 0 . 0 D 0 
 
         D 1 0 . 2         ^ ^ 1 2 3 . 4 5 ^ ^                       1 2 3 . 4 5 D 0 
 
         D 1 5 . 3         3 6 7 . 4 5 7 1 2 6 3 D + 0 4                 3 . 6 7 4 5 7 1 2 6 3 D + 0 6 
 
 
 
                    +    !&$&/  " D "    ""  "'  !&- 
 
 $&  " E "       !.'    ",     '"  !"      /- 
 
 
 
 
 
 
 
                                                             -   9 2   - 
 
 
 
                                                     0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
 
 
   " E "   !,#"!/      /  " D " .     : 
 
 
 
       $ "    #"   '      (   !"
 
 
 
           D 1 4 . 3                 0 . 0 4 6 3                       ^ ^ ^ ^ ^ 0 . 4 6 3 D - 0 1 
 
           D 2 3 . 1 2         5 5 7 3 . 8 6 7 8 9 2 5 1                 ^ ^ ^ ^ ^ 0 . 5 5 7 3 8 6 7 8 9 2 5 1 D + 0 4 
 
           D 9 . 6                   1 . 2                               * * * * * * * * * 
 
 
 
 
 
                 5 . 4 . 1 . 6 .   !&$&/  " G " 
 
 
 
 
 
 
 
                 !&$&/  " G "   # /"   '  +%    )!"- 
 
 ,       !          "'!",.    !  "    $ ", 
 
 //.)!/      &      " F "           " E " .   -"  !&$&/  "
 
 !#.)  : 
 
 
 
                                 G W . K 
 
 
 
                               "    !&$&  " G "   "'   "
 
 !&$&  " F " . 
 
 
 
                    +  !&$&/  " G "   ++"   '#  '/
 
 !""!"#.)      -"      !!      +        (  
 
             " W "     !,   +        &.   $ - 
 
 ",     "       +"!/      ',     //"!/  $#&  - 
 
 '+      -"      '/.       !!",    $"'!  $ "  "
 
 '+       /      '!       +    !&$&  " G "   !- 
 
 #.)/: 
 
 
 
         '  +%     #," #.)    
 
 
 
                         < 0 . 1                           F W . K 
 
               0 . 1 < = < 1 . 0                           F ( W - 4 ) . K , ' ^ ^ ^ ^ ' 
 
             1 . 0 < = < 1 0 . 0                           F ( W - 4 ) . ( K - 1 ) , ' ^ ^ ^ ^ ' 
 
                     .                                             . 
 
                     .                                             . 
 
                     .                                             . 
 
         1 0 * * ( - 2 ) < = < 1 0 * * ( - 1 )         F ( W - 4 ) . 1 , ' ^ ^ ^ ^ ' 
 
         1 0 * * ( - 1 ) < = < 1 0 * *                 F ( W - 4 ) . 0 , ' ^ ^ ^ ^ ' 
 
                         > = 1 0 * *                     E W . 
 
 
 
                 !&$&/      ' ^ ^ ^ ^ ' ,     " /  !"!/  (    #,"") 
 
 !&$&      " G "       #" ,      /    '+,   '",   '"  
 
  !"      '!+%      +%  +  !",  '"+    - 
 
 . 
 
 
 
                             /  " W "     +",  #'"  !"  /  
 
 " #!" ,   !    !",        (   " .!"       +"!/) ,     - 
 
 #      /            &$ +    !  "  !/"'  "',   /  !
 
 !/"'      "',       /  " K "   &$   !   "  !/"'  "'  
 
 ( /  ',   +%/)%             +     '    !- 
 
 &$&  " G " )       /  '"+ %!,  /  !". 
 
 "   ,       '      " W "       !    +",  ,(  
 
    '  ( + 7 ) . 
 
 
 
 
 
 
 
                                                             -   9 3   - 
 
 
 
                                                     0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
                   +    /  ++%  +%    !&$- 
 
 &  " G " : 
 
 
 
       $ "    #"   '    (   !"
 
 
 
         G 1 3 . 6                       0 . 0 1 2 3 4 5 6 7           ^ 0 . 1 2 3 4 5 7 - 0 1 
 
         G 1 3 . 6                     - 0 . 1 2 3 4 5 6 7 8           - 0 . 1 2 3 4 5 7 ^ ^ ^ ^ 
 
         G 1 3 . 6                       1 . 2 3 4 5 6 7 8 9           ^ ^ 1 . 2 3 4 5 7 ^ ^ ^ ^ 
 
         G 1 3 . 6                     1 2 . 3 4 5 6 7 8 9 0           ^ ^ 1 2 . 3 4 5 7 ^ ^ ^ ^ 
 
         G 1 3 . 6                   1 2 3 . 4 5 6 7 8 9 0 1           ^ ^ 1 2 3 . 4 5 7 ^ ^ ^ ^ 
 
         G 1 3 . 6               - 1 2 3 4 . 5 6 7 8 9 0 1 2           ^ ^ 1 2 3 4 . 5 7 ^ ^ ^ ^ 
 
         G 1 3 . 6               1 2 3 4 5 . 6 7 8 9 0 1 2 3           ^ ^ 1 2 3 4 5 . 7 ^ ^ ^ ^ 
 
         G 1 3 . 6             1 2 3 4 5 6 . 7 8 9 0 1 2 3 4           ^ ^ 1 2 3 4 5 7 . ^ ^ ^ ^ 
 
         G 1 3 . 6         - 1 2 3 4 5 6 7 . 8 9 0 1 2 3 4 5           - 0 1 2 3 4 5 7 + 0 7 
 
 
 
                    +    +  +  -"%    !+%    '
 
   #   -"  !&$&  " F " . 
 
 
 
           $ "      #"   '      (   !"
 
 
 
           F 1 3 . 6                       0 . 0 1 2 3 4 5 6 7               ^ ^ ^ ^ ^ 0 . 0 1 2 3 4 6 
 
           F 1 3 . 6                     - 0 . 1 2 3 4 5 6 7 8               ^ ^ ^ ^ - 0 . 1 2 3 4 5 7 
 
           F 1 3 . 6                       1 . 2 3 4 5 6 7 8 9               ^ ^ ^ ^ ^ 1 . 2 3 4 5 6 8 
 
           F 1 3 . 6                     1 2 . 3 4 5 6 7 8 9 0               ^ ^ ^ ^ 1 2 . 3 4 5 6 7 9 
 
           F 1 3 . 6                   1 2 3 . 4 5 6 7 8 9 0 1               ^ ^ ^ 1 2 3 . 4 5 6 7 8 9 
 
           F 1 3 . 6               - 1 2 3 4 . 5 6 7 8 9 0 1 2               ^ - 1 2 3 4 . 5 6 7 8 9 0 
 
           F 1 3 . 6               1 2 3 4 5 . 6 7 8 9 0 1 2 3               ^ 1 2 3 4 5 . 6 7 8 9 0 1 
 
           F 1 3 . 6             1 2 3 4 5 6 . 7 8 9 0 1 2 3 4               1 2 3 4 5 6 . 7 8 9 0 1 2 
 
           F 1 3 . 6         - 1 2 3 4 5 6 7 . 8 9 0 1 2 3 4 5               * * * * * * * * * * * * * 
 
 
 
 
 
 
 
                 5 . 4 . 1 . 7 .   !&$&/  " L " 
 
 
 
 
 
                 !&$&/  " L "    /"   '#  '!%    - 
 
 +%.     "  !#.)  : 
 
 
 
                                 L W 
 
 
 
                 !&$&/  " L "   ++"  !'"+   "   
 
 " W "         !      !.   !   +,   "'+  "   , 
 
 !    -"            #"  " T " ,   !""!"#.)#  -"#
 
 !!     !"!/      '  " . T R U E . "   ( !""!"#.- 
 
 )  -"  !!    ",      '!      ") .           !
 
  +,       "'+  "   ,   !      //"!/  #
 
 " F "   ,         !  !    !!""         ,     +/"!/
 
  !      '/      " . F A L S E . " .       .   #  ', 
 
 %/)!/    (  ,   ++"  (#. 
 
 
 
                 !&$&/  " L "     ++"       '#    (  
 
  "   +    #+  " T " ,       !    '  !""!"- 
 
 !"#.)      -"      !!     " . T R U E . " ,     #+  " F " , 
 
 !  -"  '         " . F A L S E " .       (    !!""  
 
 " W "   !,+%  &.   #+  " T "       " F "       !+."!/          
 
 !#.   #.  &.  -"  /,     !",+  &      - 
 
 /."!/   .     : 
 
 
 
 
 
                                                               -   9 4   - 
 
 
 
                                                     0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
 
 
       $ "    #"   '      (   !"
 
 
 
           L 5                       . T R U E .                               ^ ^ ^ ^ T 
 
           L 1                       . F A L S E .                             F 
 
 
 
 
 
                 5 . 4 . 1 . 8 .   !&$&/  " A " 
 
 
 
 
 
 
 
                 !&$&/  " A "    /"   '#  #- &$ +%
 
 +%.     "  : 
 
 
 
                                 A W 
 
 
 
                            !&$&/  " A "   ++"  !'"+    " W " 
 
 !        !          %    $ "    " - 7 " 
 
     !""!"#.)      -"    !!  ( !""!"#.)  -"
 
 !!            "      ",    .  ") .   !,  '!
 
 !,       "       "      +",           
 
 -"    !!,       !"    "  "  -"  -"     - 
 
 . 
 
 
 
       -"  !!                          !,
 
         / +                        '!    !
 
 
 
           L O G I C A L * 1                                           1 
 
           L O G I C A L * 4                                           4 
 
           I N T E G E R * 2                                           2 
 
           I N T E G E R * 4                                           4 
 
           R E A L                                                     4 
 
           D O U B L E   P R E C I S I O N                             8 
 
           C O M P L E X                                               8 
 
 
 
 
 
                 !      " W "       ,(,   '  !,  '!    !, 
 
 "       "      +",            !""!"#.)  -"
 
 !!,       "  -"#  ' "#    ##"   !+  ",  ,     , 
 
 '"+             !,    !+%   +%  !  (   !!"  "
 
 "      +%    -"       -"  !!) ;   +"'- 
 
 +      +      !+       -"  " /."!/.   !  " W "   ,(,   '
 
 '!      !,       " +      #"      +",    +    
 
 ' ",       "      -"#  !!  ##"   !+  !  " W "   !- 
 
 ,                   !"(!/      +   +  !,+
 
 &  !#"!/   +. 
 
 
 
                   +        /    #- &$ +%  +%   
 
     !&$&  " A " : 
 
 
 
       $ "      ((                #"    !"
 
 
 
           6               P A G E ^ *                           *                   ( L O G I C A L * 1 ) 
 
           6               P A G E ^ *                           ^ *                 ( I N T E G E R * 2 ) 
 
           6               P A G E ^ *                           G E ^ *             ( R E A L ) 
 
           6               P A G E ^ *                           P A G E ^ * ^ ^     ( D O U B L E   P R E C I S I O N ) 
 
 
 
        +        !&$&/    " A "   ++"   '#    ! - 
 
   !""!"#.)  -"  +    (  ,       !!- 
 
 "/)    " W "   !,+%  &.   !  -"  !!      +- 
 
 
 
 
 
                                                             -   9 5   - 
 
 
 
                                                     0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
 
 
       ! "        " W "   !,   +  !+."!/  + - 
 
 +             &,             !"(!/    +  &
 
 !/"!/     +.       !      -"  !!  ! "    " W " 
 
 !,   "  ##"   +  ",  !" (  " W "   !. 
 
 
 
                   +        /    #- &$ +%  +%   
 
 +    !&$&  " A " : 
 
 
 
         $ "            #"   '        (   !"
 
 
 
             A 5                           B E T A                                 ^ B E T A 
 
             A 5                           V O L T S ^ ^ ^ ^                       V O L T S 
 
             A 5                           A L P H A E S ^                         A L P H A 
 
 
 
 
 
                 5 . 4 . 1 . 9 .   !&$&/  " H " 
 
 
 
 
 
                 !&$&/  " H "   "    "!"  !""+: 
 
 
 
                                 N H C 1 C 3 . . . C N 
 
 
 
 
 
 
 
   N 
 
             -    /"  '!  !,   " +  +  +",
 
                  +; 
 
 
 
   C 
 
             -   !    " - 7 " . 
 
 
 
                 !&$&/  " H "   ++"  !'"+   "     
 
 " N "       !          !    )  %    !&$&.  " H " , 
 
  '       +      !    )"!/  ! !"    #
 
 " H " .         .+      !+,     %/"!/    +/      !- 
 
 &$&,   #"  +",  +  +  !. 
 
 
 
                    +   "   +  !&$&/  " H "   ++- 
 
 "       '#      " N "       !,   ! !"  !#.)%  
 
 #  " H "     !&$&,     (..  !,. 
 
 
 
                         !,/      !&$&    " H "   /    
 
 +: 
 
 
 
                 T Y P E   5 0 
 
           5 0   F O R M A T   ( 3 1 H ^ +^ % " !"^  +%) 
 
                 A C C E P T   1 0 0 
 
         1 0 0   F O R M A T   ( 1 2 ^ ^ +%) 
 
 
 
  "       " T Y P E "      "  !+    !&$&  " H "   $ - 
 
 "  5 0     "       ,"/.      "   " A C C E P T "    "
 
 ""    !      "# +,        !"  +  +    !&$- 
 
 &      " H "   $ "  1 0 0 .     !  "   +%"   /."!/  +- 
 
       !;       !    ,",  "    1 2   !, 
 
 !"(/!/     /      '!",    !&$&  " H "   "!/   - 
 
 . 
 
 
 
 
 
 
 
 
 
                                                             -   9 6   - 
 
 
 
                                                     0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
                 !"  !&$&  " H "   "  +",  !,  #- 
 
 - &$       " .         $#&  "'+  $#&/  !&- 
 
 $&  " H " . 
 
 
 
                 !      " !" $"   #"   #- &$   " 
 
 !+"!/      !" $.     : 
 
 
 
                 2 0   F O R M A T ( ' S Y S T E M ' ' S ^ D A T E ^ I S :   ' , 1 2 , ' / ' , 1 2 , ' / ' , 1 2 ) 
 
 
 
                      !" $      #"     #- &$   " 
 
 ! "!/      !. 
 
 
 
 
 
                 5 . 4 . 1 . 1 0 .   !&$&/  " H " 
 
 
 
 
 
 
 
                 !&$&/  " H "   "  !#.)  : 
 
 
 
                                 N X 
 
 
 
                   -"  !&$&   "   W R I T E   !+"  " N "      - 
 
     (..  !,.     : 
 
 
 
                 W R I T E ( 6 , 1 0 0 )   N P A G E 
 
         1 0 0   F O R M A T ( 1 6 H 1 !" &^  ^ , 1 2 , 1 6 X , 6 H  $) 
 
 
 
  "   " W R I T E "   '""  !,  !#.)  : 
 
 
 
                         !" &     N N                    $
 
 
 
 
 
 
 
   N N 
 
 
 
             -   "#)  '     " N P A G E " . 
 
 
 
                 &$   " 1 "        !&$&  " H "     '""!/,     
 
 !,#"!/      /    '  #    #!" !"  '"    '- 
 
 #    !".                  -"  !&$&  #"   - 
 
 #)    " N "           !,   '/  "  "#)  - 
 
 &. 
 
 
 
 
 
                 5 . 4 . 1 . 1 1 .   !&$&/  " T " 
 
 
 
 
 
 
 
                 !&$&/      " T "     //"!/  #"  "#/&.   
 
 "  !#.)  : 
 
 
 
                                 T N 
 
 
 
 
 
 
 
   N 
 
             -   #+"  &.  !    !. 
 
 
 
 
 
 
 
 
 
                                                             -   9 7   - 
 
 
 
                                                     0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
                 '  " N "     +",  ,(       &,     
 
   ,(  '!  !    !. 
 
 
 
                          !&$&/  " T "   ++"  #!"#  !
 
       &.        !  !     " N " .     ,   !   - 
 
 "   " R E A D "   "  !,,   !!"/)#.  : 
 
 
 
                                 A B C ^ ^ ^ X Y Z 
 
 
 
   #   !#.)   " : 
 
 
 
                 1 0   F O R M A T   ( "7 , 3 , "1 , 3 ) 
 
 
 
 "       "     " R E A D "       !'  !"  !+    " X Y Z " ,   
 
 "  !+  " A B C " . 
 
 
 
                      +        (    #!" !",   "'  "  #!"- 
 
  !"    '"        " ,   !&$&/  " T "   #!"", 
 
 '"    !#.)/     '    +%      '",!/  !  !,
 
 &      " N "     (  !.      +    #!" !"  '"
 
  '    +%    '"!/    !  !,  &  " N - 1 " .    - 
 
 /    &/    +      '",  !       /
 
 !  # /   ",   " +      '""!/. 
 
   ,    " +: 
 
 
 
                 P R I N T   4 0 
 
           4 0   F O R M A T   ( T 3 1 , ' C O L U M N ^ 2 ' , "1 1 , ' C O L U M N ^ 1 ' ) 
 
 
 
 +#"  '",  !#.)  !" : 
 
 
 
                 C O L U M N   1                       C O L U M N   2 
 
 
 
      !    '""!/    !  1 0 -   &,     "   -   !  - 
 
 &  3 0 . 
 
 
 
 
 
                 5 . 4 . 1 . 1 2 .   !&$&/  " Q " 
 
 
 
 
 
                 !&$&/  " Q "   !,#"!/  /  #'/  '!  !- 
 
         !,     " +    )  !"!,   - 
 
 +         +     "   " R E A D " .   -"  !!  , 
 
 !""!"#.)  !&$&  " Q " ,     ",  &+  ". 
 
 
 
   ,    " +
 
 
 
                 R E A D   ( 4 , 1 0 )   X A P L , K P , N R L C , ( I N C L ( I ) , I = 1 , N R L C ) 
 
           1 0   F O R M A T   ( E 1 5 . 6 , I 4 , Q , 8 0 A 1 ) 
 
 
 
 !'"+."        /       +  " X A P L "     " K P " .   '!  !- 
 
 ,     !"(%!/        !,     "!/        " N R L C "       "'
 
 "        '!"  !  #"  !'"    !!  " I N C L " . 
 
  )/    !&$&.  " Q "        !!  !&$&,   - 
 
    ",  $"'!#.  #    !. 
 
 
 
                 !    !&$&/  " Q "   !,#"!/  !!"  !   - 
 
 "     +,       !"+    !"  #"   #!  !"- 
 
 
 
 
 
 
 
 
 
                                                             -   9 8   - 
 
 
 
                                                     0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
 
 
 "!"#.)  -"  +. 
 
 
 
 
 
 
 
                 5 . 4 . 1 . 1 3 .   !&$&/  "  " 
 
 
 
 
 
 
 
                 !    "  "     (     &+) ,     //.)!/    
 
 !!      !&$&,       $& #"      #        ", 
 
  /       +      !        !.   !&$&/  "  "   
 
 !       '      /  / +         
 
 ++"      !"      # !       "     '"  &  
 
 &      +      "!"      (      "    #   .) . 
 
 ""       "     #"    '"",!/        "    !" ,   '"  
 
 +  !). 
 
 
 
 
 
 
 
                 5 . 4 . 1 . 1 4 .   !&$&/  " : " 
 
 
 
 
 
 
 
                 !  " : "   ( "') ,   //.)!/    !!  !&$- 
 
 &,       ++"       (      # /      $ ",   !  
 
 !!      +        !"!,  -".       #"!/,   !
 
   !!  )  ."!/  -"+.     ,    " +: 
 
 
 
 
 
                 P R I N T   4 ,   7 
 
                 P R I N T   2 ,   5 
 
             4   F O R M A T ( ' ^ I = ' , 1 2 , ' ^ J = ' , 1 2 ) 
 
             2   F O R M A T ( ' ^ K = ' , 1 2 : , ' ^ L = ' , 1 2 ) 
 
 
 
 '"."  !#.)    !" : 
 
 
 
                 ^ I = ^ 7 ^ J = 
 
                 ^ K = ^ 5 
 
 
 
 
 
                 5 . 4 . 2 .    "   !+%  +%
 
 
 
 
 
                 "    !/  '   !"/"  !     #
 
 )!"+%      ',               +  !  ' "
 
 # /"!/    #/      !&$&/      )!"    $ ", 
 
 !,#/      .#.    &.    !&$&  " F W . K " ,   " E W . K " , 
 
 " D W . K "     " G W . K " . 
 
 
 
                              !",+%    /  !'"+."!/  
 
  !."!/      !#  -"#  !!        !"- 
 
 "!"    !"",/    /  '!".     : 
 
 
 
 
 
       $ "              (  /            #"      !"
 
 
 
         F 8 . 5 , F 8 . 5       2 3 7 4 5 1 2 3 4 5 6 7 3 5 . 7 6         2 3 7 . 4 5 1 2 3 , 4 6 7 3 5 . 7 6 
 
         E 9 . 1 , F 9 . 3       5 6 3 . 4 7 2 7 2 7 1 3 4 8 6 9 0       5 6 3 . 4 7 2 7 , 2 7 1 3 4 . 8 6 9 
 
                                                               -   9 9   - 
 
 
 
                                                     0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
 
 
                    +  !!"+  '!"  !  '+     - 
 
 ."!/          #       " +%        !",+%
 
 !&$&.       #      -"  '!"/        .'."!/    
 
  ",   !            !!      !&$&      !,#"!/
 
 ",/  !&$&/.     : 
 
 
 
           $ "            #"   '      (   !"
 
 
 
                 2 D8 . 5           3 . 2 5 6 7 1 8 9 ,   4 . 3 5 2 6 3 2         G3 . 2 5 6 7 2 G4 . 3 5 2 6 3 
 
     9 . 2 , ' G, G' , 5 . 3   5 6 7 8 9 . 3 2 3   3 2 . 1 1 4       G0 . 5 7 5+ 0 5 G, G* * * * * 
 
 
 
 
 
 
 
                 5 . 4 . 3 .   !("+  -$$&"
 
 
 
 
 
                 !  ),.  !("  -$$&"     +  - 
 
         +    "  +",      !/"'  "'- 
 
           )!"+%  '%  !    "'!",.      !!"- 
 
 +%      '!"/%      !+%      '.       !(+    -$$&"
 
 "  !#.)  : 
 
 
 
                 =@
 
 
 
 
 
   =
 
             -   &/      !""      !        ,   )/    - 
 
                       "  - 1 2 7     + 1 2 7 ,      /.)/    '!      - 
 
                 &,           "           +",    !#"  !/"'/
 
                 "'       . 
 
 
 
                 !("+  -$$&"  "  !" '",!/    .  !"
 
 !!  !&$&,                (!"",  !&$- 
 
 &,     "     "!"!/.   #!."!/  !#.)  !: 
 
 
 
                 =?D2. :            =?52.           =?42. :          =?32. :
 
 
 
                 +,     +    #       +( - 
 
 +%  !&$&,            %   !  !""!"#.)- 
 
 #      -"#  !!  / +  #."!/    1 0 * * ( - =) . 
 
   ,       !("+      -$$&"      " 2  "   ++"  #
 
     '+    0 . 0 1 ,        )/      !/"'#.  "'#  
 
   &  ;         !("+      -$$&"  " - 2  "   ++"
 
 #            '+      1 0 0 ,    )/  !/"'#.
 
 "'#      &   .           !    (    ! "
 
 ",      !"        /      ,     !("+  -$$&"
 
 +'""!/.     : 
 
 
 
         $ "          (            #"    !"
 
 
 
           3  1 0 . 5           GGG4 7 . 5 1 8 G                        . 0 4 7 5 1 8 
 
           3  1 0 . 5           GG4 7 . 5 1 8 5                 4 7 5 1 . 8 
 
         - 3  1 0 . 5           GGGG4 7 . 5 1 8               4 7 5 1 8 . 0 
 
 
 
                 /  !("  -$$&"     +  !"  "
 
 "      !&$&,       "       !""!"#".   /  !&$- 
 
 &  " D"   '  -"  !!    / +      - 
 
 
 
 
 
 
 
 
 
 
 
                                                             -   1 0 0   - 
 
 
 
                                                     0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
 '          (..      !,    #"!/    1 0 * * =.   "   
 
 ",+      !("+      -$$&"   )"  !/"'#.
 
 "'#   ,     " &",+    !("+      -$$&"  -   - 
 
 . 
 
 
 
                 '+,   ++    #   !&$&  " 5"   
 
 " 4"     !      !("+  -$$&",     #."!/  #  
 
 1 0 * * =      )!"      !""+,       %/)        !!"  
 
 '+,     +'"  " ="        /. 
 
 
 
                 "           ",+    !("+  -$$&"
 
  )"  !/"'#.  "'#               #,("     /,   
 
 " &",+      !("+      -$$&"   )"  !/"'#.
 
 "'#      #'"   /. 
 
 
 
                 !"  !("  -$$&"   !""- 
 
 !/           #       !&$&  " 3" ,     '- 
 
 /      ++%  +%    "  #"    '    !&- 
 
 $&  " 3" ,       "        -"  !&$&/  !  +/"  !(- 
 
 " .   !        '      '+    "     
 
  '    !&$&  " 3" ,       "    /  !("
 
 -$$&"      #"      "'    "  ,          !&$&
 
 " 5"         ( "            -"  !#'  !  !&$&/  " 3"   -- 
 
 "  !&$&  " 5" ) . 
 
 
 
                 %  """,,   '"         +    # - 
 
   !&$&      " D"         !("+  -$$&"  $"'!
 
 /"  '#  +%,              +    #   !- 
 
 &$&      " 5" ,   " 4"     " 3"       !("+  -$$&"  !  (,
 
 /"  $ #,         "        ."!/      +.          
 
 ",+      !("+      -$$&"   )"  !/"'#.
 
 "'#  ,           " &",+  !("+  -$$&"  -    - 
 
 ,     "   /       +  -    ". 
 
 
 
                 !      !&$&    #  !("+  -$$&", 
 
 "    !'""!/       +      #..       !  !("+  -$$&"
 
 +                ,   "    /"    !#.)  !&- 
 
 $&      )!"+%        !    "'!",.    , 
 
 " +      %/"!/    -"    !!  !&$&      "%   , 
 
           !" ""!/       #  !("+  -$$&",   " +
 
 /"      # .       " /      $ "&/    /"  
 
 !("+      -$$&".               #  -$$&"  "  +",
 
 !!"  ",  /  !&$&  0  . 
 
 
 
               +  //  !("  -$$&"     : 
 
 
 
       $ "              #"   '          (   !"
 
 
 
         1  1 2 . 3                 - 4 8 0 . 1 4 8                               GG- 4 . 8 0 1 + 0 2 
 
         1  1 2 . 2                 - 4 8 0 . 1 4 8                               GGG- 4 . 8 0 + 0 2 
 
       - 1  1 2 . 2                 - 4 8 0 . 1 4 8                               GGG- 0 . 0 5 + 0 4 
 
 
 
 
 
 
 
 
 
                                                             -   1 0 1   - 
 
 
 
                                                     0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
 
 
                 5 . 4 . 4 .    #     " /+   #+
 
 
 
 
 
                  /  +%,    !+%   #     #    !&$- 
 
 &            $ "    ",    !&$&  !   - 
 
 (!"#.)        -$$&"        " /.   "  ' 
 
    ",      /    !&$&  " 8" ,   " >" ,   " D" ,   " 5" ,   " 3" , 
 
 " 4" ,   " ;"     " 0" .       -$$&"      " /  "  +",  ",
 
 &/  !""    .     ,    " +: 
 
 
 
                 3 0   D>@<0B  ( 51 0 . 3 , 51 0 . 3 , 51 0 . 3 , 1 4 , 1 4 , 1 4 , 1 4 ) 
 
 
 
 
 
 
 
                 3 0   D>@<0B  ( 3 51 0 . 3 , 4 1 4 ) 
 
 
 
 "'+. 
 
 
 
                 '  #!"!/  "    #+  !&$&, 
 
 !          .'",    !       " +.)  !  !- 
 
 "",      &#.      !""#,       '.)#.  '!"  " 
 
 -"   #+.     ,    " 
 
 
 
                 7 7   D>@<0B  ( 2 1 5 , 3 ( D4 . 3 , 51 2 . 5 ) ) 
 
 
 
 -"+   " #
 
 
 
                 7 7   D>@<0B  ( 1 5 , 1 5 , D4 . 3 , 51 2 . 5 , D4 . 3 , 51 2 . 5 , D4 . 3 , 51 2 . 5 ) 
 
 
 
                 !&$&  " E"     " B" ,   " +    +'+           
 
 #"  +",  " +,     .'",    !           !!" - 
 
 ",          " /#.     ##.     "       #"  +",
 
 " +  #  '!   . 
 
 
 
                 !    -$$&"   /   #+  #),      #- 
 
 "!/   +  &. 
 
 
 
 
 
 
 
                 5 . 4 . 5 .   !&$&  !  #)+  '/
 
 
 
 
 
 
 
                 !  !&$&    /  " 8" ,   " >" ,   " ;" ,     " D" , 
 
 " 5" ,   " 4" ,   " 3"           " 0"     ##"  !+    #/  - 
 
     '/      +    /,       "  !" "  '  " 2"   
 
 " :" ,      /      -"  !#',   #"  !",  "  "  - 
 
 +%    -"    !!    / +.   !" "+  '/  /
 
 '+  " 2"     " :"    +    ".   4 . 
 
 
 
 
 
 
 
 
 
                                                             -   1 0 2   - 
 
 
 
                                                     0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
 
 
                                                                                               "&  4 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 !&$&/      !       -"                            !                   ! 
 
   /  !       !!                              !         2        !           :
 
 - - - - - - - - - - - - - - - ! - - - - - - - - - - - - - - - - - - - - - - - - ! - - - - - - - - - ! - - - - - - - - - - - 
 
 8      >              !   8=B535@* 2                             !         7         ! 
 
 8      >              !   8=B535@* 4                             !       1 2         ! 
 
 ;                            !   ;>38F0;                                !         2         ! 
 
 D, 5, 3    4        !   @50;, F><?;5L                      !     1 5 5         !           7 
 
 D, 5, 3    4        !   4>C1;5  ?@5F8A8>=              !       2 5         !         1 6 
 
 0                            !   ;>38F0;* 1                             !         1         ! 
 
 0                            !   8=B535@* 2                             !         2         ! 
 
 0                            !   ;>38F0;* 4 , 8=B535@* 4         !         4         ! 
 
 0                            !   @50;, F><?;5L                      !         4         ! 
 
 0                            !   4>C1;5  ?@5F8A8>==            !         8         ! 
 
 
 
 
 
                  '.   /    /  " 0"   !,#"!/  $"- 
 
 '!/    !""!"#.)  -"  !!  / +. 
 
 
 
 
 
 
 
                 5 . 4 . 6 .   #    "
 
 
 
 
 
 
 
                  +    !    &+  !,        
 
 #!" !"      '",                 '""!/:       -""  !
 
 "  " #"!/          !      # /     ".   !!"
 
 / +    $ "        !"   +  !+,   +- 
 
 +  /  -"  &.   !"  -"%  !  !#.): 
 
 
 
 G  (  ) 
 
           -        #  !" #; 
 
 
 
 0   ( #,) 
 
           -          !" ; 
 
 
 
 1   ( &) 
 
           -           !"   !#.)  !" &+; 
 
 
 
 +   ( .!) 
 
           -   "!#"!"     /      ( /"    +",      - 
 
                 '") ; 
 
 
 
    (     &+) 
 
           -                 '",.        #  !" #    - 
 
                  "   "    &  !. 
 
 
 
                 .   #  !,       "'+  "   '!+%  +(, 
 
  !!" "!/             #/"!/        '"  !" - 
 
 . 
 
 
 
 
 
 
 
                                                             -   1 0 3   - 
 
 
 
                                                     0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
                 5 . 4 . 7 .    ",+                            !!
 
                               !&$&
 
 
 
 
 
 
 
                 !&$&    /    !!  !&$&,   
 
  ,     "/."!/       #  "   #    /"+.   /   /
 
 !&$&      "    "  !,",!/  /  ' "  " / " 
 
 -          '            !.     /  ' "  ++"
 
  (                  +  !    & 
 
   !.     ,   !,: 
 
 
 
                 2@8B5( 6 , 7 0 )   8, ;, =, <, >, ?
 
           7 0   D>@<0B  ( 3 0 6 / 1 5 , 2 D4 . 2 ) 
 
 
 
 -"  !#.): 
 
 
 
                 2@8B5  ( 6 , 7 0 )   8, ;, =
 
           7 0   D>@<0B  ( 3 0 6 ) 
 
                 2@8B5  ( 6 , 4 0 )   <, >, ?
 
           4 0   D>@<0B  ( 1 5 , 2 D4 . 2 ) 
 
 
 
                 !  ),.  !,%,   #)%   /       '
 
     !,         +",     #!  !,%  +%
 
 !        +    !,%    #!"+%    !.     !  #
 
 #/      !&$&/        /     !+  =  #)%
 
  /      +%  ' ",   "  -"  +"   #!  ( =- 1 )   !
 
              +'#    ( =- 1 )   #!"+%  ( !!"/)%     ) 
 
 !,     ". .   #!"+%  !"      +.    /  /  ' - 
 
 "  '"      "#)#.      !,,       " /      /  ' "
 
 '"       #.       #!#.        #!"#.  !,    "
 
 .           !    =     /   !+%  ' "  !" '."!/  
 
 '          &  !!  !&$&,     ++."  =   - 
 
 #)+%        #!"+%  !,   ". .   " +.)/     +.- 
 
 )/    !      !!      !&$&  //."!/     '
 
     !            (/  !.     ,   - 
 
  " +: 
 
 
 
 
 
                 2@8B5  ( 5 , 1 0 ) 
 
           1 0   D>@<0B  ( ' 1 ' ,   "4 1 , '  #"'+' / / "4 1 , '  #,""' / / ) 
 
 
 
               +/"  !#.)  +: 
 
 
 
                                 (   4 0 ,     '  !" &+) 
 
 
 
                                                  #"'+
 
                                 ( #!"/  !" ) 
 
                                              #,""
 
                                 ( #!"/  !" ) 
 
                                 ( #!"/  !" ) 
 
                                                             -   1 0 4   - 
 
 
 
                                                     0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
                 5 . 4 . 7 . 1 .    "  (%  
 
 
 
 
 
                 !&$&/    /   /",   '"       " 
 
             !'"",  " W "   !    (  !.     !
 
   +%           !!"       !#'    ! "      " W " 
 
 !,        "     !'""  !,  !      !- 
 
 #.)  /,         !  ",   "      #"     !( 
 
   !'"  +%    ')%    #     .   /  ",     '"- 
 
 +  ",  %!"      -"     !( /,       , 
 
 ! )      " W "   !,   "  +",   (    /", 
 
 " /    "/"      '      ( +      /        !&$&
 
   /.       "/      "      +"!/         (
 
  "  /.             #         +%    !  "# +
 
 " .       "             !&$&/    " I "   ,   " O " , 
 
 " F "   ,   " E " ,     " D " ,     " G " ,     " L "   .   : 
 
 
 
                 R E A D   ( 5 , 4 0 )   M , N , A , B 
 
           4 0   F O R M A T   ( 2 1 6 , 2 F 1 0 . 2 ) 
 
 
 
                 !  (//  &  !,   /    -"   "- 
 
  ,   "  !#.)  : 
 
 
 
                 1 , - 3 , 1 . 0 , 4 7 
 
 
 
 "  #"  +  !#.)   !  ': 
 
 
 
                 M   =   1 
 
                 N   =   - 3 
 
                 A   =   1 . 0 
 
                 B   =   0 . 4 7 
 
 
 
                 %  """,,   '"  $'!  &  !  "
 
 !#"   '"  /.   '!",  " K "   !&$&      " W . K "       
 
 "/"!/,     -"       !/  '/         
 
 " B " . 
 
                 /"  #"  +",   (+  ",  "  /,       " +
 
 ! "    " W "   !.   !    ,       !!"/)          
 
 " W "       !,   !#"  /"/,       "           !! - 
 
 "!/    '!",  !#.)  /. 
 
 
 
                     #)       /  /"+    /"/,   !#.)/  
 
 ,   ! )             " W "       !,        #"  #
 
 ( .)  ##.  #)     .     !!"      "      !""!"- 
 
 #.)      !&$&      #"   !      !#.)%  - 
 
 ': 
 
 
 
                 0 ,   0 . 0 ,     0 D 0         . F A L S E . 
 
 
 
                  )"!/      !,      /"      /   (/
 
 ,     " +    +  +",  !'"+    #   !&$- 
 
 &    " A "   ,   " H "             !&$&      #- &$ +%
 
 " .         !      $'!    &  !   #"!/
 
   ",           ##"      !'"+      " W "     !,   "  +"!/
 
  (       "      /      !+  ##"  +     !- 
 
 +      +'+      !!.     -"  !#'    +  !- 
 
   &      !""!"#.)        -"  !!    
 
 
 
 
 
 
 
 
 
                                                             -   1 0 5   - 
 
 
 
                                                     0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
 !&$&    /  ##"  !+   +. 
 
 
 
 
 
 
 
                 5 . 4 . 7 . 2 .    +  !!  !&$&
 
 
 
 
 
                 !!  !&$&  #"  % ",!/    !!%.   "
 
 !!      !&$&  ( ++   +  !!  !&$- 
 
 &)       "  +",  !"         ! !"   
 
 +      +.             !!    !&$&    !!
 
 "'       " #  " F O R M A T "     !.'  ",   '"    
 
 "!#"!"#."      !    " F O R M A T "     "   " .     - 
 
 '  " +.)         +.)  !  //"!/  /",+. 
 
  +  !!      !&$&          "  % ",!/     - 
 
 "#,+%  !!%. 
 
 
 
                        !!  !&$&: 
 
 
 
                 R E A L   F A C T ( 5 , 5 ) 
 
                 D O U B L E   P R E C I S I O N   F O R M ( 6 ) , R E C , F E S T , F E B , S M L 
 
                 D A T A   F O R M ( 1 ) , R E G , F E S T , F E B , S M L / ' ( ' , ' ) ' , ' F 8 . 2 ' , 
 
               1 ' F 9 . 4 , ' , ' F 9 . 6 ' / 
 
                 D O   3 0   J = 1 , 5 
 
                 D O   3 1   I = 1 , 5 
 
                 I F   ( F A C T ( I , J ) . L T . 1 0 0 . A N D . F A C T ( I , J ) . G T . 0 . 1 ) 
 
               1               F O R M ( I + 1 ) = F E B 
 
                 I F   ( F A C T ( I , J ) . G E . 1 0 0 . ) F O R M ( I + 1 ) = F E S T 
 
                 I F   ( F A C T ( I , J ) . L E . 0 . 1 )   F O R M ( I + 1 ) = S M L 
 
           3 1   C O N T I N U E 
 
                 F O R M ( I + 1 ) = R E G 
 
                 W R I T E ( 5 , F O R M )   ( F A C T ( K , J ) , K = 1 , 5 ) 
 
           3 0   C O N T I N U E 
 
                 E N D 
 
 
 
                   -"       "   " D A T A "    !"      
 
 !       #      -"#  !!  " F O R M "      !"  +
 
    !        "   !&$&   +  /  !#.)- 
 
   !,/.       "  + ."!/  !""!"#.)  !&$- 
 
 &  /  .'/      %          !!  !&$&,   !%/  
 
 '      ",+%      -"  !!  " F A S T " .   "  !!#
 
 !&$&               !,     "   " W R I T E " 
 
 /"!/       /  !.     "     !!  !&$- 
 
 &  /"!/  !  +  "   &   "   " D O " . 
 
 
 
 
 
 
 
                 5 . 4 . 8 .   !"  # /  $ "  
 
                               !!  / +
 
 
 
 
 
 
 
                 #   $ "      & #"!/  '  +/
 
  "     $ "      / +.             !"    
 
 # .    $ "      !"  "  $ &,    !"/
 
 !!"      ' +    -"  !!  / +  ( !  
 
 "!/)             '   !&$&   "   " F O R M A T "   
 
 !!,       ! )  !!  !&$&.     !!  !&- 
 
 
 
 
 
 
 
 
 
                                                             -   1 0 6   - 
 
 
 
                                                     0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
 $&,       "            !!  / +   !" "!/  !
 
    (   !.'  !#'  " ) . 
 
 
 
                 !       "             / +      ! "        !!
 
 / +,           "    !!  !&$&    ",!/  %"/
 
 +    !&$&/          /,   "'/  "  !&$- 
 
 &  "  " H " ,   " X " ,   " T "       " P " .             !  -"  #!    +- 
 
 /"!/,   "     +    +  $! #"!/  (. 
 
 
 
                    +   "     $ "    !'"+"!/
 
   !,  !  #  #!" !"          & #"!/  # - 
 
   $ ";   !  -"  #"    +",      !'"+  ",+
 
 !,     #    !!      !&$&.       #   $ - 
 
 "      " #"        !  !/   ,       !!
 
 !&$&      !" '"!/      /    ' "      !"- 
 
 "!/      !//    (//   +.)/  !  !!  !&$- 
 
 &,               !!    )  !"!,  +  -- 
 
 "+.      !'"+            !      " /."!/    !  !"(!/
 
 !+  "#)  !. 
 
 
 
                        +       "     $ "  +  !,
 
  "!/            #      #!" !"    ",     (
 
 # /      $ ".         "  +  !,%  - 
 
 !             +  # /  $ ",   !    !!  !- 
 
 &$&      !" ""!/      /    ' "    !  !""!/
 
 !//  (//   +.)/  !,             !!  +  )
 
 ."!/  -"+,   )  +#. 
 
 
 
                 /  !&$&/  "  " I " ,   " O " ,   " F " ,   " E " ,   " D " ,   " G " , 
 
 " L " ,   " A "         " Q "       !""!"#"      #      -"#        !!
 
 / +.       !&$&/    " H " ,   " X " ,   " P " ,   " T "     !&$- 
 
 &      #- &$       "         !""!/    !"- 
 
 "!"      -"  !!.     !#'      !&$&    "
 
 " H "                   !&$&      #- &$   " 
 
  '        +%          !#)!"/"!/        ! !"  #
 
 !,.    !!  !&$&. 
 
 
 
                 !  #         $ "     #"  !&$&.
 
 "  " I " ,   " O " ,   " F " ,   " E " ,   " D " ,   " G " ,   " L " ,   " A "               " Q " ,       "
 
  /"!/      '      !""!"#.)        -"    !!
 
 / +.   !  "  -"  "!/,             "      # 
 
 $ "        !#)!"/"             '#  !""!"#.)   
 
   ",+%    +%  #  !,.    -"  !!,   
 
 "   %"           "  !#.)  !&$&  ( !  
 
 " #"!/  " /      "#)        !&$&) .   !    !"- 
 
 "!"#.)  -"    !!           #,   "  # 
 
 $ "   ("!/. 
 
 
 
                    !"  !       +.)  !      !!
 
 !&$&  #   $ "   /",   ."!/          )
 
   !!  / +  -"+,           )   ".   !
 
 "+%    "!/,   #       $ "     ("!/.   !  
 
 !!      / +      !"!,       "+  -"+,   "
 
 "#)/      !,       ("!/,       #   $ "   - 
 
 )"!/          !     " /   #  !&$&  !- 
 
   +!      # /        ( " +.)/  !  "   !!"/"
 
  #  !   !       +.)      !  !!  !&$- 
 
 &) .   -""   &  !"    " /  $ "&/. 
 
 !    !!  !&$&      "!#"!"#."      " /+   #+, 
 
 
 
 
 
 
 
 
 
                                                             -   1 0 7   - 
 
 
 
                                                     0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
 #       $ "     "!/    ',  " +.)  !
 
 !!      !&$&.       !"/    # .  $ "  ##"
 
  +  !  -"  "'. 
 
 
 
 
 
 
 
                 5 . 4 . 9 .   !     /   "   " F O R M A T " 
 
 
 
 
 
                   -"      "!/   ',   ,     !/+%
 
 !  !" #"#     !,   "   " F O R M A T "       (   !- 
 
 !,   ! )  !!  !&$&)           !!"+%  '!- 
 
 ",     "   ,   !/+%  !  !" #"#       (%    
 
   !,   !  " +  !"#"  !!  !&$&. 
 
 
 
 
 
 
 
                 5 . 4 . 9 . 1 .   )   
 
 
 
 
 
                    1 .    "   " F O R M A T "   /",      ",
 
 "#. 
 
 
 
                    2 .     !&$&/%,   "%    " R I W "       " N X " , 
 
 '+      " R " ,   " W "       " N "         +    +",    &+  ",+
 
 !""    .   -$$&"    " /          !&$- 
 
 &/  ( +  /  #"  +",  #)+. 
 
 
 
                    3 .     !&$&/%,   "%    " F W . K " ,   '
 
 " K "     +",  &  !""    .                   /
 
  !#"!"",    !&$&/%  " F " ,   " E " ,   " D " ,   " G " ,                 
 
 !       #..            !#"!"  "'  "  //"!/  /- 
 
 ",+.   !&$&/      ( +      /  " W "     +",  ,(
 
      " K " .   '+  " W "     " K "         +       !#"!"- 
 
 ",,       +",  #)+. 
 
 
 
                    4 .     !&$&    /  " N H C 1 C 2 . . . C N " 
 
 !    !&$&  " H "            !#"!"",     " N " 
 
 !.                 -"  !&$&  "   !#"!"",  .
 
 !        - 7         ( !&$&/      #- &$ 
 
 "   '/"!/  "#     #) . 
 
 
 
                    5 .         !("    -$$&"    "  " ,   " " 
 
   +",  &  !""      !            ,   - 
 
 )      "  - 1 2 7     + 1 2 7       .'",.           !("+
 
 -$$&"       /"!/      ",        !&$&/  " F " ,   " E " , 
 
 " D "       " G " .             ##'        ,   !("+  -$$- 
 
 &"  !"#"            !    !#.)  !&$&    !!
 
 !&$&.   !"  -"      !("    -$$&"   - 
 
  )"!/,     !" '"!/   #  !("+  -$$&". 
 
 /  ",         '"+        !!"",    #  !("+  -$$- 
 
 &",      ",        " 0 P " .               " /      $ - 
 
 "&/    +"  //    !("+  -$$&". 
 
 
 
                    6 .       #!"!/  !,    -$$&"
 
 " /         !&$&/    " H " ,   " T "        !&$- 
 
 &      #- &$       "         !.'  "%
 
 
 
                                                               -   1 0 8   - 
 
 
 
                                                     0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
 !#',           -"  !&$&  .'+    !     !!- 
 
 " ."!/    " //   #  !&$&. 
 
 
 
                    7 .   !     "   / +  "!/  !- 
 
 !      / +,   "  !!  !&$&  ! "    - 
 
 #      #      !&$&.,   "'#.  "  !&$&  " H " ,   " X " , 
 
 " P " ,   " T "     #- &$ +%  " . 
 
 
 
                    8 .     !!  !&$&    !!    +",
 
 !"   ",               !!          !&$&     " 
 
 " F O R M A T " ,       .'/          " +.)#.     +.)#.  !.    
 
 !,      "$"     !!  !  !!  !&$- 
 
 &      !"     "   " F O R M A T "   -""  "$"     
 
 +",  ! . 
 
 
 
 
 
                 5 . 4 . 9 . 2 .      /  
 
 
 
                    1 .   (#  .  +%  +%,   ! )#
 
 " &",#.      '#,      (!"",    " #!" . 
 
 '          " .!"      !,.  ",  '/
 
   //"!/  /",+. 
 
 
 
                    2 .   (    ,       "    
 
   +/"!/    #         !&$&  " I " ,   
 
 ",  $ "  &  !""+.       (        ,     
 
 #   !&$&  " O " ,             ",  $ "  !,- 
 
  '  !""+     (!"#.)      '  !" $. 
 
 !""  "      ! ",      !/"'    "',   
 
 "/  !". 
 
 
 
                    3 .   (  ,         "    
 
   +/"!/    #   !&$&      " F " ,   " E "   
 
 " G " ,           ",  $ "  &    )!"  !""+, 
 
       !""+          !      "'!",..     "  ! ",
 
 !/"'#.  "'#  /         "/  !"  "  " E "   
 
 " D " . 
 
 
 
                    4 .   !  (    ! "  !/"'#.  "'- 
 
 #,   "  $"'!                 '!"  /,   #++
 
 -"  "',     /"      /  -"  /  !&$&.  " K " 
 
   !""!"#.)  !&$&        !"",    - 
 
 /. 
 
 
 
                    5 .   !  (    ! "  ",  !"- 
 
 ,   -"  ++"              !("  -$$&"
 
 ( !    "!/)      +    /  -"  /. 
 
 
 
                    6 .   !&$&/  +  /    +",  !"- 
 
 "'    /  ",   '"+  %"",           !",- 
 
 !"  &$ +%  !  (  /           #        !+, 
 
 " +  #"       !#"!"",        (  '!      , 
 
 !/"'/  "'  /      "/  !") . 
 
 
 
                    7 .   !"+  !,         " +        "
 
 !,",!/        (       ",    !,     //"!/
 
 
 
 
 
 
 
 
 
                                                             -   1 0 9   - 
 
 
 
                                                     0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
 
 
 /"/.             !,#"!/    /   (/    ,   "- 
 
  +       ',       '    -"  #+"!/    !&$&,     "  /
 
 $  /  #+%  ( .)%  ##.  #)   . 
 
 
 
 
 
 
 
 
 
                 5 . 4 . 9 . 3 .        1 .   !!  !&$&      - 
 
 ",  +  ,(      '!      !,       '  %  "  ! ",
 
 (//  !,  (   ,   &  !        #!" !"        '"
 
   "      ! ",      ,(      1 3 3   !,       .'/      !
 
 # /   ") . 
 
 
 
                    2 .     !&$&/          +    /  " W "     +",
 
 !""'  ,       '"+          %"",          !  !+,   " +
 
 #"  +",        !$  +           +,   .'/   '!
 
 ,   !/"'#.  "'#                "/  !".      - 
 
  ,       !&$&/      +      /    !&$&    /
 
 " E "     +",      !""'      ,     '"+    )  ( K + 7 ) 
 
 !. 
 
 
 
                    3 .    +  !    !,           ++      #!"- 
 
  !"      '"            " ,   !,#"!/  /  # /
 
  ".   -""  !            '""!/.          +  !
 
 "  !    +",   ,   #,       &,           
 
   &+      " .!" .             .       #    !, 
 
 %/)!/              -"  !",   !'""!/       !.'"!/
 
   !. 
 
 
 
 
 
                 5 . 5 .    " +  !/
 
 
 
 
 
                 -"   " +      //."!/  +/+   " .   
 
 !'."  " !/"       $ &,             %  /   - 
 
 ,         )/       +%              !!    /  %
 
 ',+%  ',         "   /."         #  % " !"- 
 
   !,+%  ,   !,#+%      . 
 
 
 
 
 
                 5 . 5 . 1 .    "   " I M P L I C I T " 
 
 
 
 
 
                  "       " I M P L I C I T "             /"  /  
 
 "  "$" ,       !!        " #  !  "$" +, 
 
 '.)!/  !  #  " I " ,   " J " ,   " K " ,   " L " ,   " M "                 " N "    - 
 
 '."!/  /   !"/  &+%  +%.                   "$" +, 
 
 '.)!/        !        .         #  #+,          '+  /
 
 )!"+%  +%. 
 
 
 
                  "   " I M P L I C I T "   "  !#.)  : 
 
 
 
 
 
 
 
 
 
                                                             -   1 1 0   - 
 
 
 
                                                     0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
 
 
                 I M P L I C I T   T Y P ( A [ , A ] . . . ) [ , T Y P ( A [ , A ] . . . ) ] . . . 
 
 
 
 
 
 
 
 T Y P 
 
             -       !#.)%  !"  "  +%: 
 
 
 
                     I N T E G E R 
 
                     I N T E G E R * 2 
 
                     I N T E G E R * 4 
 
                     R E A L 
 
                     R E A L * 4 
 
                     R E A L * 8 
 
                     D O U B L E   P R E C I S I O N 
 
                     C O M P L E X 
 
                     C O M P L E X * 8 
 
                     B Y T E 
 
                     L O G I C A L 
 
                     L O G I C A L * 1 
 
                     L O G I C A L * 4 
 
 
 
 A 
 
             -   #/  !&$&/  : 
 
 
 
                     !    !1 - !2 
 
 
 
 !
 
             -   #+  !. 
 
 
 
                 !//  $    /"  !",!",  #  "
 
 " !1 "         " !2 "   .'",,   " +  +  +",     !+
 
   $"   /.    "   " I M P L I C I T "        !"   - 
 
 +  "  +%  !  "$" ,       '.)!/        !
 
 #  #+    !  .            #    #  !- 
 
 ",!".      -"  "  +%   !"!/        ",        "
 
 "$" ,   #  " +%      +  !  /+   . 
 
   ,    " +: 
 
 
 
                 I M P L I C I T   I N T E G E R   ( I , J , K , L , M , N ) 
 
                 I M P L I C I T   R E A L         ( A - G , P - Z ) 
 
 
 
  !"/."  !" "+  !/      "       "!#"!"   #- 
 
 %  !"  "  +%. 
 
 
 
                  " +  " I M R L I C I T "     +  ",  ". 
 
 
 
                   +: 
 
 
 
                 I M P L I C I T   D O U B L E   P R E C I S I O N   Q 
 
                 I M P L I C I T   R E A L   ( S , Y ) ,   L O G I C A L * 1     ( B , A - C ) 
 
 
 
                                                                               -   1 1 1   - 
 
 
 
                                                     0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
 
 
                 5 . 5 . 2 .    " +  !/  "
 
 
 
 
 
                  " +  !/  "  /+      /."      "
 
 #+%  "$" . 
 
 
 
                  "   !/  "  "  !#.)  : 
 
 
 
                                 T Y P   V [ , V ] . . . 
 
 
 
 
 
 
 
 T Y P 
 
             -       !#.)%  !"  "  +%: 
 
 
 
                 B Y T E 
 
                 L O G I C A L 
 
                 L O G I C A L * 1 
 
                 L O G I C A L * 4 
 
                 I N T E G E R 
 
                 I N T E G E R * 2 
 
                 I N T E G E R * 4 
 
                 R E A L 
 
                 R E A L * 4 
 
                 R E A L * 8 
 
                 D O U B L E   P R E C I S I O N 
 
                 C O M P L E X 
 
                 C O M P L E X * 8 
 
 
 
 V 
 
             -   "$"          ,           !!,        " - 
 
                 $#&                    +- $#&,           !",
 
                 !!. 
 
 
 
                  "   !/  "  ++"   !  "$- 
 
 " #                 ".       /"  "  +%, 
 
 /   /+     #  "$" . 
 
 
 
                  "   !/    "  "   /",  !!+  .- 
 
 '      !!  !"        !!.         - 
 
   #  "$"   !!      "        //",!/    ",
 
        !"  !!. 
 
 
 
                 "$" #      "     !+",!/  !   #",
 
 +      "    +%,   .)    " * S "   ( " S "   -       #!"- 
 
 +%            /      ' /      "  +%) .       "/  !,
 
   /"      /    "  -",     " #    "!"!/, 
 
 % " !"#  +,   ##.   " .     : 
 
 
 
                 I N T E G E R * 2   L ,   I ,   J ,   M 1 2 * 4 ,   S ,   I V E N * 4 ( 1 0 ) 
 
                 R E A L * 8   Z X 1 ,   Z W X ,   W X 2 * 4 ,   W X 4 ,   W X 1 * 8 
 
 
 
                  " +      !/      "  +   (!"",  !
 
 +/+       "               !         "         !/
 
 " I M P L I C I T " .           /+  #+",!/       #" /
 
 .+%  "$" ,   " +     /.". 
 
 
 
                 "      +%      "$"   "  +",  !
 
 /+     ",     . 
 
 
 
 
 
 
 
 
 
                                                             -   1 1 2   - 
 
 
 
                                                     0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
                  " +  !/  "    +  ",  ".    - 
 
  : 
 
 
 
                 I N T E G E R   C A R T ,   M A S ( 4 , 4 ) ,     R E S 
 
                 R E A L   M E S ,     I T E M 
 
                 L O G I C A L   O P T I O N 
 
 
 
 
 
 
 
                 5 . 5 . 3 .    "   " D I M E N S I O N " 
 
 
 
 
 
 
 
                  "   " D I M E N S I O N "    /"    !",  !!  
 
 '!  -"       . 
 
 
 
                  "   " D I M E N S I O N "   "  !#.)  : 
 
 
 
                   D I M E N S I O N   A ( D ) [ , A ( D ) ] . . . 
 
 
 
 
 
 
 
 A 
 
             -   "$"   !!; 
 
 
 
 D 
 
             -   '  !. 
 
 
 
                   +   " A ( D ) "    !"/"  !    !",
 
 !!. 
 
                  "   " D I M E N S I O N "   ""  "   '!  !"
 
 /"      /    -"    !!,         #- 
 
      " .   /  !",  /"  !!""        - 
 
 ,   #%,   '"+ %    !,  "    !!"      "      "
 
 +%  !!.   )  '!  !"  /",         "+%  /
 
 !!,       .  !%  '    !        - 
 
 !/  -"  !!.     ,   !,
 
 
 
                 D I M E N S I O N   C O U N T ( 4 , 4 ) ,   M A S ( 5 , 5 , 5 ) 
 
 
 
  /"  !!  " C O U N T " ,     1 6   )!"+%        -  
 
   !  +,     !!  " M A S " ,             .)    1 2 5     &+%
 
 -"    #  !#  +. 
 
 
 
                 !"  !!  #"  "  !" '",!/     "- 
 
  %  !/  "     "   " C O M M O N " ,             #"     
 
     #/  "$"   !!    "    !" "",!/
 
 ",      !  !!. 
 
 
 
                  "   " D I M E N C I O N "       ",  ". 
 
 
 
                   : 
 
 
 
                 D I M E N C I O N   B A L ( 7 , 8 , 1 2 ) 
 
                 D I M E N C I O N   A ( 4 , 4 , 4 ) , B ( 2 , 1 9 ) , S ( 5 0 ) 
 
                 D I M E N C I O N   M A S ( 3 , 3 , 3 , 3 ) 
 
 
 
 
 
 
 
 
 
 
 
                                                             -   1 1 3   - 
 
 
 
                                                     0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
 
 
                 5 . 5 . 4 .    "   " 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   [ / [ A ] / K ]     [ [ , ] / [ A ] / K ] . . . 
 
 
 
 
 
 
 
 A 
 
             -   "$" ,   //.)!/        )      ,   
 
                  ;       !       +    "$"   #),   "   - 
 
                 /     +%  ' "      "  "  +",  #); 
 
 
 
 K 
 
             -   !!  "$"          +%,     "$" 
 
                 !!    !"  !!,        +%        /- 
 
                 "+. 
 
 
 
                 "$"     )            +/    
 
 "  +",  "  ,             "$"        !- 
 
 !,         !",      !      "$"   $#&  
 
   +    !  "$"       "'      %        $#&.
 
     #. 
 
 
 
                        +/    +  !  )  , 
 
 .)      "    /             +%        +%      #/%, 
 
 ##"   )+        "    !"  /". 
 
 
 
                 #    ",       '"      !    -"    )  
 
 +/"!/  !",           #,       "      -"+, 
 
 ' /+     "     " C O M M O N "               #
 
 +  !""!"",        "#    +%  -",   )+
 
   )           #          #.         ,   !
 
     +  #,  ! "   " 
 
 
 
                 C O M M O N   C O U N T 
 
 
 
    #    +  #,  ! "   " 
 
 
 
                 C O M M O N   M O R E S 
 
 
 
 "  "    #'",!/        "+     #,"",   "    !- 
 
 /   /  " M O R E S "   !"        !""!"    )!"- 
 
      " C O U N T " ,    !"    ,(      '!"- 
 
   !. 
 
 
 
 
 
 
 
 
 
                                                             -   1 1 4   - 
 
 
 
                                                     0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
                 !#"   )",      !  -"    "
 
 " L O G I C A L * 1 "     )  ,   '"+  !'",  +     
 
  &  !  +%  .+%   #%  ",        )+%    !
 
 +%  " L O G I C A L * 1 " .   !  )        '."!/        /"  !
 
  &+  !  ( !  '"   !) . 
 
 
 
                   +: 
 
 
 
           /                                
 
           C O M M O N   ", X / B L K / I T E M , Q                 S U B R O U T I N E   S C M 
 
                             .                                           C O M M O N / B L K / L E R O , R / / A , B 
 
                             .                                                           . 
 
                             .                                                           . 
 
           C A L L   S U M                                               R E T U R N 
 
                             .                                           E N D 
 
                             . 
 
 
 
  "   " C O M M O N "           )"    " ""       " X " 
 
   +  )      )"  " I T E M "         " Q "     - 
 
 +    " B L K " .    " +  " C O M M O N "               #!"- 
 
 ."  !""!"  #  " A "     " B "   !        !" +        
 
 " ""     " X "   !   #  !" +      ,         "
 
 #  " L E R O "     " R "   !    !" +    " I T E M "     " Q "       !     #
 
 !" +    )    " B L K " . 
 
 
 
 
 
 
 
                 5 . 5 . 4 . 1 .   +    +  )  
 
 
 
 
 
                   !  +/        "  +",  ",  
 
 +  )  .          " +      " C O M M O N "     #"  +",
 
 !,+  /  !" /      .    '!  +%  )%
 
 . 
 
 
 
                  +                
 
    !",  ',+  '/   "   " D A T A " . 
 
 
 
 
 
 
 
                 5 . 5 . 4 . 2 .    " +  " C O M M O N "   !  !"/
 
                                   !!
 
 
 
 
 
                    "   " C O M M O N "       #"    !,",!/  !/
 
 !!.       "$" +  !!    +  +",  ! - 
 
 +    (   #!"!/     !+    )#    #  ",+%
 
 -"  !!) .             #  "$"   !- 
 
 !  "  !" "",!/  ",      !  !!. 
 
                                                             -   1 1 5   - 
 
 
 
                                                     0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
                 5 . 5 . 5 .    "   " 5OC860;5=F5" 
 
 
 
 
 
                  "   " 5OC860;5=F5"   !+"          ' - 
 
 "     )+  ( !",.    '!"')                 "
 
   !"  /".      " +      " 5OC860;5=F5"      "."  !  -- 
 
 ",   %/)!/        "        #. 
 
 
 
                  "   " 5OC860;5=F5"   "  !#.)  : 
 
 
 
                                 5OC860;5=F5  ( :1 )   H, ( :2 ) I. . . 
 
 
 
 
 
 
 
 :8
 
             -   !!                                                   " 
 
                                                                     " 5OC860;5=F5  ( 0, 1, A) " ; 
 
                 5OC860;5=F5  ( 1( 1 ) , L) ,   ( 1( 2 ) , K) ,   ( 1( 3 ) , 7) 
 
 
 
 
 
 
 
 
 
                                                             -   1 1 6   - 
 
 
 
                                                     0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
                 5 . 5 . 5 . 1 .   #!"  -"!"  !!
 
 
 
 
 
                    #!"  -"!"  #  #/  -"
 
  +%  !!   "   " 5OC860;5=F5"       "        #!""
 
 -"!",  #  !",+  !""!"#.)        -"
 
 -"%  #%  !!.       !"    )!"
 
  .   !(  +              '+%        "
 
 +%  //"!/  #!"+.       !,    -"    "
 
 +%  #"   /",      /",      !        -",   .(
 
 "  +%    +!   .     : 
 
 
 
                 4>C1;5  ?@5F8A8>=  45=
 
                 8=B535@* 2   80A( 4 ) 
 
                 5OC860;5=F5  ( 45=, 80A( 1 ) ) 
 
 
 
  "       " 5OC860;5=A5"     ++"  "   !   /", 
 
        "       '"+       -"  !!  ."  "#    !#.
 
 !",  /",   '"     /  !    "'!",.  " 45=" . 
 
 
 
                  "     " 5OC860;5=F5"   "  "  !,",!/  /
 
 #/    -"!"      "$"    +%.    - 
 
  ,    " 
 
 
 
                 5OC860;5=F5  ( D1 , D2 , D3 ) 
 
 
 
 #!""      -"!",      "$"     " D1 " ,   " D2 " , 
 
 " D3 "      #!,   '"    ."  +  "  +%. 
 
 
 
                  "   " 5OC860;5=F5"             ! - 
 
 ",  $ ,+%   " . 
 
 
 
   +: 
 
 
 
                 5OC860;5=F5  ( 0, 1) , ( 1, A)       +/"!/  "  ,   
 
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       "   ,           !       +    -"+
 
 #%  !!          !"      -"+,   "    !!- 
 
   &   /."  #  !",    /".       !      " "  -- 
 
 "        5         -"      !!  !  -"+   #
 
 -"#   #  !!,       "      !  "   -"   
 
 !!  !."    /"      !       +    " /  -"  "- 
 
    !!. 
 
 
 
                  "   " 5OC860;5=F5"     "    +",    #    "#  
 
 !",  /"  #            !,    -"      "
 
   !!.        )."!/  "      .+     !/    !"
 
 /",      #(.)       ,      !",  
 
 -"      !!          /"  (   ,   #!"  -- 
 
 "!"      #      #/   +  -"   +%  !!,   
 
 "      +"      #!"/      -"!"      #  " +
 
 -"    !!    (!"+  -"   #) . 
 
 
 
                    "     " 5OC860;5=F5"   (   ",    )   #!"!/
 
 #      -"      !!      #  !#  ( ". .   !- 
 
 ",#       #      -") ,             !    -""  !!  +
 
       +. 
 
 
 
                   ,    " +
 
 
 
                   48<5=A8>=  B><( 2 , 2 ) , B5@( 2 , 2 , 2 ) 
 
                   5OC860;5=F5  ( B><( 4 ) , B5@( 7 ) ) 
 
 
 
 +#"             !    !!  " B><"   '!"  !"  /- 
 
 ",    '  /  !!      " B5@" ,             ". 
 
 5 . 
 
 
 
                                                                                           "&  5 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
                   !!  " B5@"             !                     !!  " B><" 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - ! - - - - - - - - - - - - - - - - ! - - - - - - - - - - - - - - - 
 
   -"                             !       -"            !  
 
   !!          -"            !       !!            ! -"
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - ! - - - - - - - - - - - - - - - - ! - - - - - - - - - - - - - - - 
 
   B5@( 1 , 1 , 1 )           1                     !                                 ! 
 
   B5@( 2 , 1 , 1 )           2                     !                                 ! 
 
   B5@( 1 , 2 , 1 )           3                     !                                 ! 
 
   B5@( 2 , 2 , 1 )           4                     !       B><( 1 , 1 )           !       1 
 
   B5@( 1 , 1 , 2 )           5                     !       B><( 2 , 1 )           !       2 
 
   B5@( 2 , 1 , 2 )           6                     !       B><( 1 , 2 )           !       3 
 
   B5@( 1 , 2 , 2 )           7                     !       B><( 2 , 2 )           !       4 
 
   B5@( 2 , 2 , 2 )           8                     !                                 ! 
 
 
 
 ".   5   +",   '"   " +
 
 
 
                 5OC860;5=F5  ( B><( 1 ) , B5@( 4 ) ) 
 
     
 
                 5OC860;5=F5  ( B5@( 1 , 2 , 2 ) , B><( 4 ) ) 
 
 
 
 
 
 
 
 
 
 
 
                                                             -   1 1 7   - 
 
 
 
                                                     0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
 
 
    #,""  ."      "     )  #%  !!. 
 
 
 
 
 
                 5 . 5 . 5 . 2 .   !"   "   " F><<>="   
 
                                   " 5OC860;5=F5" 
 
 
 
 
 
                    #!"  -"!"  #  " +  -- 
 
 "    ' ",   % /)!/    )  ,         )        
 
 "  +",   !(        ',+   &+.        " 
 
 " 5OC860;5=F5"   "   !( ",  )            ",        !'"
 
  !( /  !"    !      -"              ",
 
 !"   )    (       !'"      )/  - 
 
 ",  !"      +  -"  !#)!"#.)      )
 
 ) . 
 
 
 
                     #!"   !( /  )  : 
 
 
 
                   48<5=A8>=  F( 4 ) , 5( 6 ) 
 
                   F><<>=  F
 
                   5OC860;5=F5  ( F( 2 ) , 5( 1 ) ) 
 
 
 
       !#)!"#.)      )              !",     !( /
 
 
 
       F( 1 )     F( 2 )         F( 3 )       F( 4 ) 
 
                   5( 1 )         5( 2 )       5( 3 )               5( 4 )     5( 5 )     5( 6 ) 
 
 
 
                     #!"   !( /  )  : 
 
 
 
                   48<5=A8>=  F( 4 ) ,   5( 6 ) 
 
                   F><<>=
 
                   5OC860;5=F5  ( F( 2 ) , 5( 3 ) ) 
 
 
 
                 !",                  !#)!"#.)                    !",
 
              !( /                )                           !( /
 
                                         F( 1 )     F( 2 )       F( 3 )       F( 4 ) 
 
                   5( 1 )               5( 2 )     5( 3 )       5( 4 )       5( 5 )       5( 6 ) 
 
 
 
                 !    -"   !+  #    "#      )#
 
 #     +  )  ,   #    ,/    #!"- 
 
 ",  -"!",. 
 
 
 
 
 
                 5 . 5 . 5 . 3 .    "   " 5OC860;5=F5"     !!+  "
 
                                   " ;>38F0;* 1 " 
 
 
 
                 !  -"  !!  "  " ;>38F0;* 1 " ,       " +  
 
 +      &  !,       #!""!/    -"+
 
 !!#        #  "  +%,     -"  "  +- 
 
 ",  "   !   /",      "    /  
 
 !  -"+  !!  +%  ",             !.)          !
 
 ;>38F0;* 1   (   1KB5) ,     ##"  + +     &  !. 
 
 !  -"   ",   "  +"   "",!/    "   - 
 
     -"  "  !!  +"  (#       +- 
 
 
 
 
 
 
 
 
 
                                                             -   1 1 8   - 
 
 
 
                                                     0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
     +. 
 
 
 
 
 
                 5 . 5 . 6 .    "   " 5LB5@=0;" 
 
 
 
 
 
                  "   " 5LB5@=0;"   /"  !,",  "$- 
 
 " +  (%   &#   ( $#&,                 "'+%
 
 $#&  $ " )     '!"  $"'!%   "       /     #- 
 
 %    .    "   " 5LB5@=0;"   "  !#.)  : 
 
 
 
                 5LB5@=0;  6H, 6I. . . 
 
 
 
 
 
 
 
 6
 
             -   "$"     +            "$"     $ - 
 
                 ,   " ,   " +  !"            !""!"- 
 
                   "$" #    +. 
 
 
 
                  "   " 5LB5@=0;"   ' //"  +    "$"   
 
 !!    "$"   (   &# +.       "    "$- 
 
 "   "  "  !,",!/            $"'!     " 
 
 /    +.   !  -"          "      !,- 
 
 ",  "$"   !""!"#.)      $ ,         " 
 
 /   )/    $#&       "   " F0;;" . 
 
 
 
                 %  "",,   '"     )        $#&, 
 
 !,#    '!"   " ,     : 
 
 
 
                 F0;;  AC1@( 5, A>@B( 1) , F) 
 
 
 
  !"/"  ',       "$"     +; 
 
 "$"   $#&        #"!/        ' /   " 
 
 " 5LB5@=0;" . 
 
 
 
                   : 
 
 
 
                   /                          +
 
   5LB5@=0;  A8=, F>A, B0=                          AC1@>CB8=5  B@83( L, D, K) 
 
           .                                                         K= D( L) 
 
           .                                                         @5BC@=
 
   F0;;  B@83( 0@F, A8=, A5F)                       5=4
 
           . 
 
           . 
 
   F0;;  B@83( 0@F, F>A, F>@) 
 
           . 
 
           .                                                         DC=FB8>=  B0=( L) 
 
   F0;;  B@83( 0@F, B0=, B3=)                       B0== A8=( L) / F>A( L) 
 
           .                                                         @5BC@=
 
           .                                                         5=4
 
 
 
 +   "   " F0;;"    !+"      "$"     $#&    
 
   #  " B@83" .   $#&/  "  ++"!/   )        
 
 $#&  D( L)     "    "     +  " B@83" .       "
 
  ,    #,""   "+  "    "   #": 
 
 
 
 
 
 
 
 
 
                                                             -   1 1 9   - 
 
 
 
                                                     0 0 0 1 4 - 0 1 . 3 5 . 0 2 
 
 
 
 
 
                                 K= A8=( L) 
 
                                 K= F>A( L) 
 
             
 
                                 K= B0=( L) 
 
 
 
       !!"    "  ",        "   " F0;;"    )"- 
 
 !/        " B@83"       ( $#&/  " A8="     " F>A"   //."!/      " - 
 
 " '!%      $#&,       " +      //."!/    "'+
 
 $#&/  $ " ) . 
 
 
 
 
 
 
 
                 5 . 5 . 7 .    "   " 40B0" 
 
 
 
 
 
                  "    !/  ',+%  '  " 40B0"   - 
 
 /"      +",     !  ',+%  '   +  
 
 -"  !!  )    +/    +. 
 
 
 
 
 
                  "   " 40B0"   "  !#.)  : 
 
 
 
                 40B0  :/ F>=AB/ HH, I:/ F>=AB/ I. . . 
 
 
 
 
 
 
 
 :
 
             -   !!,       !!"/)                "$- 
 
                 "        +%,       "$"       !!      
 
                 "$"       -"      !!;     !  -"  - 
 
                 "$" +        "/."!/       #      "       #  /"+; 
 
                 !+  + /  +  +",  !""; 
 
 
 
 F>=AB
 
             -   !!  !"";       !""+    ."    #    !#.)%
 
                 $ : 
 
 
 
                               6    =* 6
 
 
 
 =
 
             -   #/      &/      !""        ,   " /  #- 
 
                 +",   !,     '      " 6"           +",   !- 
 
                       !",+      -"        !""!"#.- 
 
                 (  !!. 
 
 
 
                  "       " 40B0"   ++"   !  !"/+%  - 
 
 '        !!      " F>=AB"       -"         +#)
 
 !!  " :" .        !      '    +/"!/    "   /- 
 
 ,          !+. 
 
 
 
                 !         "   " 40B0"   !" '"!/  ! +
 
 "$"       !!,       "  +/"!/   !  '
 
 #  -"#  -"  !!.       "         !""!"#.- 
 
 )  !!    !""        ! ",    !""'  '!"
 
 ',     '"+  ",  !,    !!.           -"
 
 !!  +/"!/     /  !    !!. 
 
 
 
                 !  +/"!/     !  "!"+%  !""   - 
 
     -"#  !!,       '!    ",       "       "
 
 
 
                                                           -   1 2 1   - 
 
 
 
                                               0 0 0 1 4   -   0 1 . 3 5 . 0 2 
 
 
 
   +,   "'  %    )    -"    +. 
 
 
 
 
 
                                           6 .     +
 
 
 
 
 
           !    +  $ "   /"!/      )%    !!: 
 
   +,   !+  ,",     +,    - 
 
 !"/+  !!"  $ " .     +    "    /"!/
 
   !#.)  " :      $"'!     " +- $#&, 
 
   +- $#&      +. 
 
 
 
 
 
           6 . 1 .    " +    
 
 
 
 
 
            " +      !+."!/  +  -       $ - 
 
 ,+%   "         $"'!%   " . 
 
 
 
           $ ,+   " +  !,#."!/         - 
 
   +    /     !"/    !""!"#.)%      $"'!%
 
  " .   $ ,+   " +   !#"!"#."       " %
 
 " F U N C T I O N "     " S U B R O U T I N E "           $"'!
 
  " - $#&          ! +      "$" +
 
  +%.   $"'!   " +   !#"!"#."       )
 
   $#&       "   " C A L L "     !'."  $"'!
 
 '/,   " +  +    !,",!/         +'!/%. 
 
 $"'!   " +  #"  +",  !"",      +, 
 
 !!,   -"  !!,   + /    "$- 
 
 "     . 
 
 
 
           #  $"'!    $ ,+   "     #!"- 
 
 "!/  !""!"     /   '  # /      - 
 
   #.   $"'!    $ ,+   " +,   #  " +- 
 
   #!""!/  !""!",     +    ",    +
 
 "  +%.     $ ,+     " ,     !+        !!, 
 
 "  +",  !"    !""!"    !!#        -"#
 
 !!. 
 
 
 
           !  $"'!   "   //"!/  !"",     + - 
 
     "$"     +,         - 
 
   /",  '  !""!"#.)  $ ,     "- 
 
  . 
 
 
 
           $ ,+   " +    +  !" '",!/       "- 
 
  %  " C O M M O N " ,   " E Q U I V A L E N C E "     " D A T A " . 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                   -   1 2 2   - 
 
 
 
                                       0 0 0 1 4   -   0 1 . 3 5 . 0 2 
 
 
 
           6 . 2 .   ,",!    +
 
 
 
 
 
            '  # /  $#&  (   - $#&    
 
  " #- $#&)   !#)!"/"!/     ).    $#&,   
 
 "   /     '  # /      !#)!"/"- 
 
 !/     " #  " C A L L " .    )        $#&     !"/"
 
 !  "$"   $#&  !  !!   " ,     " +
 
 !" '"!/    + .   $#&/  !   "     #,""
 
   ++.)#.    #.       $#&,     "          +
 
 #"   ",    ++.)#.    #  " +    - 
 
 ",+  '/,    !/  %  !   " .      - 
 
    "   )",!/     #    ,             
 
 "   /    !   )",!/    !  !. 
 
 
 
 
 
           6 . 2 . 1 .    $"'!   " +- $#&
 
 
 
 
 
            $"'!     " - $#&/     !"/"      !
 
  &# #,    /#.  ",+   " ;   -""   " 
 
 %     $"'!     "      !/.     /
 
  )/    $#&    #"     "              #/
 
 ++"  +  +'!     '#  #'    - 
 
 '/    "  + ,       "     !" "!,     )    
 
  " #- $#&. 
 
 
 
            $"'!   " - $#&/   /"!/  !#.)
 
 !" #&: 
 
 
 
             F ( P [ , P ] . . . )   =   E 
 
 
 
   
 
 
 
 F 
 
               -   "$"   $#&; 
 
 
 
 P 
 
               -   $ ,+   " ; 
 
 
 
 E 
 
               -   + . 
 
 
 
 +      !"/"    !     $"'!      + , 
 
  /.)  +'!/,     " +    +/."!/     " - 
 
 $#&. 
 
 
 
            )     " #- $#&  "  !#.)  : 
 
 
 
             F ( [ P [ , P ] . . . ] ) 
 
 
 
   
 
 
 
 F 
 
               -   "$"   $#&; 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                         -   1 2 3   - 
 
 
 
                                             0 0 0 1 4   -   0 1 . 3 5 . 0 2 
 
 
 
 P 
 
               -   $"'!   " . 
 
 
 
              /    +    " - $#&  +/"- 
 
 !/  !"  $"'!%   "       !"    !""!"- 
 
 #.)%    $ ,+%   "               " - 
 
 $#&.   !  -"    +/"!/    +'!    + /    
 
 #'  '  !,#"!/  /  +'!/    + /, 
 
 ! )   )    $#&. 
 
 
 
           "     #,""     " - $#&     /"!/    
 
 /+          #    "$"      " - 
 
 $#&,     /+        "   !/  "  -"
 
 . 
 
 
 
           $ ,+     " +              $"'!
 
  " - $#&  !#"  ",    /    #/    '!", 
 
  /   !/    "  $"'!%   " .     "    
 
 !+    #"  !,",!/    /     !"/    .+%
 
  #%  ' "    .  !"          #/. 
 
 %  "",,   '"    !.'  "  +%    !+- 
 
 .)/  $ &/  ( "/     !    )    
 
 !  !!) ,   "!/)/!/    "#  ' "#,         
 
 "!"!/    $ ,+   "    " - $#&.     - 
 
 "$"      $"'!       " - $#&            "
 
 !,",!/  /   !"/     #  ' "  
 
 "        #. 
 
 
 
           +         " - $#&  "  ! - 
 
 ",   )/    $#&/.   !    -"  +   !" '"- 
 
 !/   )     ##     " #- $#&,     "    %, 
 
 '"+  +++  +      . 
 
 
 
           !     )/         $"'!#       " #- $#&
 
 +  +",   !+    "        #,   '"    
 
    -"  $#&. 
 
 
 
            )     " #- $#&  "  +",        '!",.
 
 + /,     !  + .             !,- 
 
 ",!/    '!"      '!"         "      !/. 
 
 $"'!   " +    !#  '!"#,    /#     !- 
 
 /    "#  +  !""!"",    $ ,+     "- 
 
  .      .+   )         $"'!#     " #- 
 
 $#&  $"'!   "   +  +",   !+  '- 
 
 /. 
 
 
 
             +   /   $"'!%   " - $#&: 
 
 
 
                     V A L U E ( R A D I U S ) = 4 . 1 8 9 * R A D I U S * * 3 
 
                     S E R ( X ) = ( E X P ( X ) - E X P ( - X ) ) * 2 . 5 
 
                     W E G ( A , B , C , 5 . 0 ) = ( A + B + C ) / 5 . 0 
 
 
 
 !//    !,    #!";      )"!/      !,",
 
 !""#    '!"    $ ,     " .      )/    
 
  $"'!   " - $#&/: 
 
 
 
                     A R C ( A , B , C ) = ( A + B + C ) / 5 . 0   !    
 
                     V E R O C = A R C ( T E C O 1 , T E C O 2 , X L E B ) 
 
                     I F   ( A R C ( P , Q , D ) . L T . A R C ( X , Y , Z ) )   G O T O   6 0 0 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                         -   1 2 4   - 
 
 
 
                                             0 0 0 1 4   -   0 1 . 3 5 . 0 2 
 
 
 
 
 
                     F I N I S   =     A R C ( T E C O 3 , T E C O 4 , M E T 2 ) 
 
 
 
 !//  !,   ;   "  +%  " ",    $"'!
 
  "     !"  !  "  +%  $ ,     "- 
 
  . 
 
 
 
 
 
 
 
           6 . 2 . 2 .     - $#&/
 
 
 
 
 
 
 
             - $#&/     !"/"    !      +
 
 #,,   '.)!/  !     "     " F U N C T I O N " ,         " +
 
 "  !",!",   " ,      /.)%    +'!- 
 
 ",#.     &# #.      '    # /          #- 
 
 $#&.  !#)!"/"!/     ).      $#&,          "
 
 # /    ++.)    +    #,    !#)!"/"!/
 
    " #  " R E T U R N " . 
 
 
 
             - $#&/   "    ++.)    +
 
 #,  !"  ',    !/  -"  '  
 
 $#&.   "    +%         '/     /"!/
 
 "  "$"   $#&. 
 
 
 
            "   " F U N C T I O N "   "  !#.)  : 
 
 
 
             [ T Y P ] F U N C T I O N   N A M [ * N ] [ ( [ P [ P ] . . . ] ) ] 
 
 
 
   
 
 
 
 T Y P 
 
             -   #",  "  +%    $#&; 
 
 
 
 N A M 
 
             -   "$"   $#&; 
 
 
 
 * N 
 
             -   #",  +  "  +%; 
 
 
 
 P 
 
             -   $ ,+   " +. 
 
 
 
          )    $#&,    .)  #     - 
 
 - $#&,   "  !#.)  : 
 
 
 
             N A M   ( [ P [ , P ] . . . ] ) 
 
 
 
   
 
 
 
 N A M 
 
             -   /  $#&; 
 
 
 
  
 
             -   $"'!   " . 
 
 
 
             #    "!/      #- $#&.,     
 
  "   " F U N C T I O N "    !%"    $ ,+%     "- 
 
    '/  !""!"#.)%  $"'!%   " .   !- 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                             -   1 2 5   - 
 
 
 
                                 0 0 0 1 4   -   0 1 . 3 5 . 0 2 
 
 
 
 
 
   -"  +/."!/   " +    +.      +- 
 
    "   " R E T U R N "       - $#&    "$- 
 
 " #  $#&    +",   !    '.     !    ", 
 
   #    "!/      ++.)      +    #,, 
 
 ',    !  "$" #  $#&,   #"  !"#- 
 
 +  /  + /,   ! )   )/    $#&,     #"
 
 !,  /  +'!/  '/  -"  + /. 
 
 
 
           "  +%  "$"   "    +",         
 
 /,     /     "   " F U N C T I O N " ,     /      - 
 
  "   !/  ".   "  "$"     $#&,      - 
 
 /+      - $#&,     +",  "  ,       
 
 "  "$" - $#&    ++.)      #. 
 
 
 
            "   " 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 "      #   "     " F U N C T I O N " , 
 
 "'+  "        " . 
 
 
 
             : 
 
 
 
             F U N C T I O N   R O O T ( B ) 
 
             X = 1 . 0 
 
       3     E X = E X P ( X ) 
 
             E P I C = 1 . / E X 
 
             R O O T = ( ( E X + E P I C ) * . 5 + C O S ( X ) - B ) / ( ( E X - E P I C ) * . 5 - S I N ( X ) ) 
 
             I F ( A B S ( X - R O O T ) . L T . 1 E - 6 )   R E T U R N 
 
             X = R O O T 
 
             G O   T O   3 
 
             E N D 
 
 
 
             -"        - $#&/  !,#"    " - 
 
 &+  "  ,."-  $!  /  +'!/   /    # - 
 
 /: 
 
 
 
             F ( X ) =   C O S H ( X ) + C O S ( X ) - B = 0 
 
 
 
 '      " "        !+"!/              '!"         " . 
 
 " &/  $ #  /  -"   /  "  !#.)  : 
 
 
 
         X ( I + 1 ) = X ( I )   -   [ C O S H ( X I ) + C O S ( X I ) - B ] / [ S I N H ( X I ) - S I N ( X I ) ] 
 
 
 
 -"  +'!  " /"!/    "%   ,      !",    #
 
 " X ( I ) "     " X ( I + 1 ) "     !""  ,(,   '    1 * 1 0 * * ( - 6 ) .     - 
 
   - $#&/  !,#"    "'+    $#&    $ " 
 
 " E X P " ,   " S I N " ,   " C O S "     " A B S " . 
 
 
 
 
 
 
 
           6 . 2 . 3 .     
 
 
 
 
 
 
 
               //"!/    +  #,   '.)- 
 
 !/  !   "   " S U B R O U T I N E " ,     " +  "  !",- 
 
 !",   " ,      /.)%    +'!",#.     &# #. 
 
  '  # /      !#)!"/"!/     "- 
 
 
 
                                                       -   1 2 6   - 
 
 
 
                                           0 0 0 1 4   -   0 1 . 3 5 . 0 2 
 
 
 
 
 
  #  " C A L L " ,      "    ++.)    +  #,    -     
 
  " #  " R E T U R N " . 
 
 
 
            "   " S U B R O U T I N E "   "  !#.)  : 
 
 
 
                     S U B R O U T I N E   N A M [ ( [ P [ , P ] . . . ] ) ] 
 
 
 
   
 
 
 
 N A M 
 
               -   "$"     +; 
 
 
 
  
 
               -   $ ,+   " . 
 
 
 
                 '    # /          #    $ ,+
 
  " +     "     " S U B R O U T I N E "     /."!/    '/, 
 
 !,#+    $"'!   " +     "   " C A L L " . 
 
 !  -"  +/."!/   " +    +. 
 
 
 
            "   " S U B R O U T I N E "   /    +",     +     " 
 
   +;   #        +",  ". 
 
 
 
                 "  ! ",   "   " F U N C T I O N " , 
 
 " B L O C K   D A T A "     " S U B R O U T I N E "   (   !.'       - 
 
  "     +) . 
 
 
 
             : 
 
 
 
                                 /    
 
 
 
             C O M M O N   N F A C E S , E R C E , V O L U M E 
 
             A C C E P T   7 0 , N F A C E S , E R C E 
 
       7 0   F O R M A T   ( I 2 , F 8 . 5 ) 
 
             C A L L   O B M N G 
 
             T Y P E   7 2 , V O L U M E 
 
       7 2   F O R M A T   ( '   O B ' ' E M = ' , F 8 . 5 ) 
 
             S T O P 
 
             E N D 
 
 
 
                       
 
 
 
             S U B R O U T I N E   O B M N G 
 
             C O M M O N   N F A C E S ,   E R C E ,   V O L U M E 
 
             C U B E D   = E R C E * * 3 
 
             G O   T O   ( 6 , 6 , 6 , 1 , 6 , 2 , 6 , 3 , 6 , 6 , 6 , 4 , 6 , 6 , 6 , 6 , 6 , 6 , 6 , 5 , 6 ) 
 
           1 N F A C E S 
 
       1     V O L U M E   =   C U B E D * 0 . 1 1 7 8 5 
 
             R E T U R N 
 
       2     V O L U M E   =   C U B E D 
 
             R E T U R N 
 
       3     V O L U M E   =   C U B E D * 0 . 4 7 1 4 0 
 
             R E T U R N 
 
       4     V O L U M E   =   C U B E D * 7 . 6 6 3 1 2 
 
             R E T U R N 
 
       5     V O L U M E   =   C U B E D * 2 . 1 8 1 7 0 
 
             R E T U R N 
 
       6     T Y P E   2 5 , N F A C E S 
 
       2 5   F O R M A T ( '    ,+     "' , I 3 , 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                         -   1 2 7   - 
 
 
 
                                             0 0 0 1 4   -   0 1 . 3 5 . 0 2 
 
 
 
 
 
           1 '  . ' ) 
 
             R E T U R N 
 
             E N D 
 
 
 
   -"              +'!/"    '      ,
 
  ,     '!           .     
 
 !,#"  +'!/+   "    %  " G O   T O "   /     - 
 
 /  ",   //"!/    +         "" - , 
 
 !- ,   -         !- ,         /     '
 
 # /  !""!"#.)   &#   /  +'!/  ' . 
 
 !  '!     "  "'  "  4 ,   6 ,   8 ,   1 2     2 0 ,   - 
 
     +"  !)    (    "    " . 
 
 
 
 
 
 
 
 
 
           6 . 2 . 4 .       +%  " B L O C K   D A T A " 
 
 
 
 
 
 
 
                 +%    !,#"!/    /       !/
 
 ',+%    '    ' ",     %/)!/        +%
 
 )%  %,      !     -"%  .     
 
 '"!/  !     "   " B L O C K   D A T A " ,     " +    !#"
 
  /   "   !/. 
 
 
 
            "   " B L O C K   D A T A "   "  !#.)  : 
 
 
 
             B L O C K   D A T A   [ N A M ] 
 
 
 
   
 
 
 
 N A M 
 
               -   "$" . 
 
 
 
                 +%    (  !,",  !#.)
 
  " +:    " +  !/  ",      " +    " I M P L I C I T " , 
 
 " D I M E N T I O N " ,   " C O M M O N " ,   " E Q U I V A L E N C E "     " D A T A " . 
 
 
 
            " +  !/            +%     /."
 
 )  ,    )."   +    !!+    -"%  %  
 
  !."  ',+  '/  -"  -". 
 
 
 
            "   " B L O C K   D A T A "   /    +",     +     " 
 
   +  +%.         ",  "#. 
 
 
 
               +%          ! ",    +/+%
 
  " . 
 
 
 
           !        +%  ."!/  ',+  '/
 
 "   -"    )  ,   "        - 
 
        !#"!"",  +      "   - 
 
 !/,   .)%  !,  ,     !  " +    -"
 
 -"      //."!/     "   " D A T A " .           "
 
         #"    +",     +    !,    )%
 
 . 
 
 
 
             : 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                               -   1 2 8   - 
 
 
 
                                   0 0 0 1 4   -   0 1 . 3 5 . 0 2 
 
 
 
 
 
               B L O C K   D A T A 
 
               I N T E G E R   X , Y 
 
               L O G I C A L   Q , W 
 
               D O U B L E   P R E C I S I O N   D 
 
               D I M E N S I O N   R ( 4 ) 
 
               C O M M O N / B L K 1 / R , X , Q , D , B L K 2 , W , Y , Z 
 
               D A T A   R / 2 . 0 , 3 * 4 . 0 / , Q / . F A L S E . / , D / 0 . 3 1 7 6 3 8 D - 7 / , W 
 
             1 / . T R U E . / Z / 3 . 5 / 
 
               E N D 
 
 
 
 
 
 
 
           6 . 2 . 5 .   "'+  $#&  $ " 
 
 
 
 
 
 
 
            ',  "'+%  $#&  $ "         - 
 
   2 .    )/    "'+  $#&/  $ "     - 
 
 !+."!/    "    ,        )/      ,",!- 
 
   $#&/.     : 
 
 
 
             R =   A B S ( X - 1 ) 
 
 
 
 +/"  +'!  !."  '/  " %- 1 "        !- 
 
 "  #'  '     " R " . 
 
 
 
                2   "  #+"!/  "   #,""  
 
 "'  $#&    "  $"'!%   " .    "- 
 
  +,    +    -"  $#&,     +  +",    "$- 
 
 "   !!    "$"     . 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                 -   1 2 9   - 
 
 
 
                                     0 0 0 1 4   -   0 1 . 3 5 . 0 2 
 
 
 
 
 
 
 
                                   7 .   s r e d s t w a   o t l a d k i 
 
 
 
 
 
 
 
           o t l a d o ~ n y m i   s r e d s t w a m i   q z y k a   f o r t r a n - I V   //."!/  !,- 
 
    "+  !!"+  !"    -"    " !/&     - 
 
  +      -"    +/. 
 
 
 
           ",+  "'+  ! !"  #"  +",     - 
 
 " +  /+  $ " ,   .)  !  " D "        &. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                       -   1 3 0   - 
 
 
 
                                           0 0 0 1 4   -   0 1 . 3 5 . 0 2 
 
 
 
 
 
 
 
                                                                                                  1 
 
 
 
 
 
 
 
                                                +  !
 
 
 
 
 
 
 
 
 
 
 
 
 
                                   1 .      !  $ "   I V 
 
 
 
 
 
 
 
                !  $ "   I V   %/": 
 
 
 
               -   #+  "  " A "     " Z "   ( "!)     #+     &+
 
                   "  " "     " /" ; 
 
 
 
               -   &$ +  "  0     9 ; 
 
 
 
               -   !&,+  !+,    +  : 
 
 
 
                       !                    
 
 
 
                                                ,    #!    "#/&/
 
                           =                    
 
                           +                   .!
 
                           -                   #!
 
                           *                   '
 
                           /                   /  ' "
 
                           (                   " +.)/  !
 
                           )                    +.)/  !
 
                           ,                   /"/
 
                           .                   !/"'/  "'
 
                           '                   !" $
 
                           "                   +'
 
                                                  &+
 
                           :                   "'. 
 
 
 
           #+     &+    #"    !,",!/         " %
 
 $ "   ",    !!"  % "!  !""+    #- 
 
 - &$   " .       " /%    #"    !,- 
 
 ",!/  .+  !+  - 7 . 
 
 
 
                                                         -   1 3 1   - 
 
 
 
                                             0 0 0 1 4   -   0 1 . 3 5 . 0 2 
 
 
 
 
 
                                           2 .   !,+  
 
 
 
 
 
 
 
 
 
             ".   1    +  !, '+  '/      !- 
 
 ,    ( - 7 ) ,   #     ',      #!!
 
 '    !!     !  "# +. 
 
 
 
                                                                                             "&  1 
 
 
 
                                        !,  
 
 
 
   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
   !, '+!   # !    #!!      !!
 
                     !     '  !           !    "# +
 
   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
           0 0 0           !           N U L             !   #!"
 
                           !                             ! 
 
           0 0 1           !           S O H             !   '  ;   C T R L / A * 
 
                           !                             ! 
 
           0 0 2           !           S T X             !   '  "!";   C T R L / B 
 
                           !                             ! 
 
           0 0 3           !           E T X             !   &  "!";   C T R L / C 
 
                           !                             ! 
 
           0 0 4           !           E O T             !   &   ';   C T R L / D 
 
                           !                             ! 
 
           0 0 5           !           E N Q             !   "  "? ;   C T R L / E 
 
                           !                             ! 
 
           0 0 6           !           A C K             !   " ;   C T R L / F 
 
                           !                             ! 
 
           0 0 7           !           B E L             !   ;   C T R L / G 
 
                           !                             ! 
 
           0 1 0           !           B S               !    "    (;   C T R L / H 
 
                           !                             ! 
 
           0 1 1           !           H T               !    ",/  "#/&/; 
 
                           !                             !   C T R L / I 
 
           0 1 2           !           L F               !      !" ;   C T R L / J 
 
                           !                             ! 
 
           0 1 3           !           V T               !    ",/  "#/&/; 
 
                           !                             !   C T R L / K 
 
           0 1 4           !           F F               !      $ ";   C T R L / L 
 
                           !                             ! 
 
           0 1 5           !           C R               !    "   ";   C T R L / M 
 
                           !                             ! 
 
           0 1 6           !           S O               !   +%;   C T R L / N 
 
                           !                             ! 
 
           0 1 7           !           S I               !   %;   C T R L / O 
 
                           !                             ! 
 
           0 2 0           !           D L E             !   " !"   1 ;   C T R L / P 
 
                           !                             ! 
 
           0 2 1           !           D C 1             !   !  # /  #!" - 
 
                           !                             !   !"  1 ;   C T R L / Q 
 
           0 2 2           !           D C 2             !   !  # /  #!" - 
 
                           !                             !   !"  2 ;   C T R L / R 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                     -   1 3 2   - 
 
 
 
                                         0 0 0 1 4   -   0 1 . 3 5 . 0 2 
 
 
 
 
 
 
 
 
 
                                                                              ".   1 
 
   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
   !, '+!   # !    #!!      !!
 
                     !     '  !           !    "# +
 
   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
           0 2 3           !           D C 3             !   !    # /  #!" - 
 
                           !                             !   !"  3 ;   C T R L / S 
 
           0 2 4           !           D C 4             !   !";   C T R L / T 
 
                           !                             ! 
 
           0 2 5           !           N A K             !   " &;   C T R L / U 
 
                           !                             ! 
 
           0 2 6           !           S Y N             !   !% &/;   C T R L / V 
 
                           !                             ! 
 
           0 2 7           !           E T B             !   &  ;   C T R L / W 
 
                           !                             ! 
 
           0 3 0           !           C A N             !   # ;   C T R L / X 
 
                           !                             ! 
 
           0 3 1           !           E M               !   &  !"/;   C T R L / Y 
 
                           !                             ! 
 
           0 3 2           !           S U B             !   ;   C T R L / Z 
 
                           !                             ! 
 
           0 3 3           !           E S C             !   " !"   2 ; 
 
                           !                             ! 
 
           0 3 4           !           F S               !    ",  $; 
 
                           !                             ! 
 
                           !                             ! 
 
           0 3 5           !           G S               !    ",   #; 
 
                           !                             ! 
 
                           !                             ! 
 
           0 3 6           !           R S               !    ",  !; 
 
                           !                             ! 
 
                           !                             ! 
 
           0 3 7           !           U S               !    ",  -"; 
 
                           !                             ! 
 
                           !                             ! 
 
           0 4 0           !                             !    
 
                           !                             ! 
 
           0 4 1           !           !                 !   !&",+  
 
                           !                             ! 
 
           0 4 2           !           "                 !   +'
 
                           !                             ! 
 
           0 4 3           !           #                 !    
 
                           !                             ! 
 
           0 4 4           !                            !       &+
 
                           !                             ! 
 
           0 4 5           !           %                 !    &"
 
                           !                             ! 
 
           0 4 6           !           &                 !    '!  " " 
 
                           !                             ! 
 
           0 4 7           !           '                 !   !" $
 
                           !                             ! 
 
           0 5 0           !           (                 !    #/  !  /
 
                           !                             ! 
 
           0 5 1           !           )                 !    #/  !   /
 
                           !                             ! 
 
           0 5 2           !           *                 !   '
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                   -   1 3 3   - 
 
 
 
                                       0 0 0 1 4   -   0 1 . 3 5 . 0 2 
 
 
 
 
 
 
 
 
 
                                                                              ".   1 
 
   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
   !, '+!   # !    #!!      !!
 
                     !     '  !           !    "# +
 
   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
           0 5 3           !           +                 !   .!
 
                           !                             ! 
 
           0 5 4           !           '                 !   /"/
 
                           !                             ! 
 
           0 5 5           !           -                 !   #!
 
                           !                             ! 
 
           0 5 6           !           .                 !   "'
 
                           !                             ! 
 
           0 5 7           !           /                 !    /  ' "
 
                           !                             ! 
 
           0 6 0           !           0                 !   &$ +  0   -   9 
 
                           !                             ! 
 
           0 6 1           !           1                 ! 
 
                           !                             ! 
 
           0 6 2           !           2                 ! 
 
                           !                             ! 
 
           0 6 3           !           3                 ! 
 
                           !                             ! 
 
           0 6 4           !           4                 ! 
 
                           !                             ! 
 
           0 6 5           !           5                 ! 
 
                           !                             ! 
 
           0 6 6           !           6                 ! 
 
                           !                             ! 
 
           0 6 7           !           7                 ! 
 
                           !                             ! 
 
           0 7 0           !           8                 ! 
 
                           !                             ! 
 
           0 7 1           !           9                 ! 
 
                           !                             ! 
 
           0 7 2           !           :                 !   "'
 
                           !                             ! 
 
           0 7 3           !           ;                 !   "'  !  /"
 
                           !                             ! 
 
           0 7 4           !           <                 !   ,(
 
                           !                             ! 
 
           0 7 5           !           =                 !    
 
                           !                             ! 
 
           0 7 6           !           >                 !   ,(
 
                           !                             ! 
 
           0 7 7           !           ?                 !    !",+  
 
                           !                             ! 
 
           1 0 0           !           @                 !    '!  " -"" 
 
                           !                             ! 
 
           1 0 1           !           A                 !   !  -"      Z   -   "- 
 
                           !                             !   !   !+  #+
 
           1 0 2           !           B                 ! 
 
                           !                             ! 
 
           1 0 3           !           C                 ! 
 
                           !                             ! 
 
           1 0 4           !           D                 ! 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                   -   1 3 4   - 
 
 
 
                                       0 0 0 1 4   -   0 1 . 3 5 . 0 2 
 
 
 
 
 
 
 
 
 
                                                                              ".   1 
 
   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
   !, '+!   # !    #!!      !!
 
                     !     '  !           !    "# +
 
   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
           1 0 5           !           E                 ! 
 
                           !                             ! 
 
           1 0 6           !           F                 ! 
 
                           !                             ! 
 
           1 0 7           !           G                 ! 
 
                           !                             ! 
 
           1 1 0           !           H                 ! 
 
                           !                             ! 
 
           1 1 1           !           I                 ! 
 
                           !                             ! 
 
           1 1 2           !           J                 ! 
 
                           !                             ! 
 
           1 1 3           !           K                 ! 
 
                           !                             ! 
 
           1 1 4           !           L                 ! 
 
                           !                             ! 
 
           1 1 5           !           M                 ! 
 
                           !                             ! 
 
           1 1 6           !           N                 ! 
 
                           !                             ! 
 
           1 1 7           !           O                 ! 
 
                           !                             ! 
 
           1 2 0           !           P                 ! 
 
                           !                             ! 
 
           1 2 1           !           Q                 ! 
 
                           !                             ! 
 
           1 2 2           !           R                 ! 
 
                           !                             ! 
 
           1 2 3           !           S                 ! 
 
                           !                             ! 
 
           1 2 4           !           T                 ! 
 
                           !                             ! 
 
           1 2 5           !           U                 ! 
 
                           !                             ! 
 
           1 2 6           !           V                 ! 
 
                           !                             ! 
 
           1 2 7           !           W                 ! 
 
                           !                             ! 
 
           1 3 0           !           X                 ! 
 
                           !                             ! 
 
           1 3 1           !           Y                 ! 
 
                           !                             ! 
 
           1 3 2           !           Z                 ! 
 
                           !                             ! 
 
           1 3 3           !           [                 !    "/  !  /
 
                           !                             ! 
 
           1 3 4           !           \                 !    "/   /  ' "
 
                           !                             ! 
 
           1 3 5           !           ]                 !    "/  !   /
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                   -   1 3 5   - 
 
 
 
                                       0 0 0 1 4   -   0 1 . 3 5 . 0 2 
 
 
 
 
 
 
 
 
 
                                                                              ".   1 
 
   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
   !, '+!   # !    #!!      !!
 
                     !     '  !           !    "# +
 
   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
           1 3 6           !           ^                 !   !"    %
 
                           !                             ! 
 
           1 3 7           !           _                 !   ' 
 
                           !                             ! 
 
           1 4 0           !           .                !   !  -"      " '"   - 
 
                           !                             !   #+   &+
 
           1 4 1           !                           ! 
 
                           !                             ! 
 
           1 4 2           !                           ! 
 
                           !                             ! 
 
           1 4 3           !           &                ! 
 
                           !                             ! 
 
           1 4 4           !                           ! 
 
                           !                             ! 
 
           1 4 5           !                           ! 
 
                           !                             ! 
 
           1 4 6           !           $                ! 
 
                           !                             ! 
 
           1 4 7           !                           ! 
 
                           !                             ! 
 
           1 5 0           !           %                ! 
 
                           !                             ! 
 
           1 5 1           !                           ! 
 
                           !                             ! 
 
           1 5 2           !                           ! 
 
                           !                             ! 
 
           1 5 3           !                           ! 
 
                           !                             ! 
 
           1 5 4           !                           ! 
 
                           !                             ! 
 
           1 5 5           !                           ! 
 
                           !                             ! 
 
           1 5 6           !                           ! 
 
                           !                             ! 
 
           1 5 7           !                           ! 
 
                           !                             ! 
 
           1 6 0           !                           ! 
 
                           !                             ! 
 
           1 6 1           !           /                ! 
 
                           !                             ! 
 
           1 6 2           !                            ! 
 
                           !                             ! 
 
           1 6 3           !           !                ! 
 
                           !                             ! 
 
           1 6 4           !           "                ! 
 
                           !                             ! 
 
           1 6 5           !           #                ! 
 
                           !                             ! 
 
           1 6 6           !                           ! 
 
 
 
 
 
                                                       -   1 3 6   - 
 
 
 
                                           0 0 0 1 4   -   0 1 . 3 5 . 0 2 
 
 
 
 
 
                                                                            ".   1 
 
 
 
   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
   !, '+!   # !    #!!      !!
 
                     !     '  !           !    "# +
 
   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
           1 6 7           !                           ! 
 
                           !                             ! 
 
           1 7 0           !           ,                ! 
 
                           !                             ! 
 
           1 7 1           !           +                ! 
 
                           !                             ! 
 
           1 7 2           !                           ! 
 
                           !                             ! 
 
           1 7 3           !           (                ! 
 
                           !                             ! 
 
           1 7 4           !           -                ! 
 
                           !                             ! 
 
           1 7 5           !           )                ! 
 
                           !                             ! 
 
           1 7 6           !           '                ! 
 
                           !                             ! 
 
           1 7 7           !           D E L             !   
 
                           !                             ! 
 
 
 
 * )   !,  "  C T R L / A   '",   '"  /      !    - 
 
 "# +  "   " #"!/  "  (  " "      "
 
 (  " C T R L " . 
 
 
 
 
 
 
 
 
 
 
 
                                 3 .      !  R A D I X - 5 0 
 
 
 
 
 
 
 
 
 
           R A D I X - 5 0   -   -"    !&,     !"    !,+%
 
 +%,      "     !  /"  "  +",    )    
 
 " %  !             !    R A D I X - 5 0     ( //.)!/
 
 !"    !,  ) . 
 
 
 
             ".   2    +  !+  R A D I X - 5 0       !""!"#.)
 
   +. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                         -   1 3 7   - 
 
 
 
                                             0 0 0 1 4   -   0 1 . 3 5 . 0 2 
 
 
 
 
 
                                                                                 "&  2 
 
 
 
                                          !  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 
 
                                       !                             ! 
 
 
 
             '  R A D I X - 5 0   !#)!"/"!/    ! !"- 
 
   #  %  (   " %  !    !)     ",#.  '!- 
 
 #.  '#  !!  $ #: 
 
 
 
                                         ( ( I * 5 0   +   J ) * 5 0   + K ) 
 
 
 
 
 
 
 
 I ,   J     K 
 
 
 
               -    !"/."  +  !  R A D I X - 5 0 . 
 
 
 
           "   ,   !,  '  R A D I X - 5 0   #": 
 
 
 
                             4 7 * 5 0 * 5 0   +   4 7 * 5 0   +   4 7   =   1 7 4 7 7 7 
 
 
 
           ".   3   /"   !"",    R A D I X - 5 0    +    3 - %
 
 !.     ,   /     !  " %2 "       R A D I X - 5 0 
 
 #'"!/  !  !#.)%  !, '+%  '!: 
 
 
 
                             %  =   1 1 3 0 0 0 
 
                             2   =   0 0 2 4 0 0 
 
                               =   0 0 0 0 0 2 
 
                             - - - - - - - - - - 
 
                         %2   =   1 1 5 4 0 2 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                   -   1 3 8   - 
 
 
 
                                       0 0 0 1 4   -   0 1 . 3 5 . 0 2 
 
 
 
 
 
                                                                                   "&  3 
 
 
 
   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
      +  !      !     "   !      !     " "  !
 
   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
        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 3 9   - 
 
 
 
                                     0 0 0 1 4   -   0 1 . 3 5 . 0 2 
 
 
 
 
 
 
 
 
 
                                                                          ". 3 
 
   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
      +  !      !     "   !      !     " "  !
 
   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
                  1 2 4 3 0 0       !                  0 0 2 0 7 0       !     4             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 
 
                                     !                                     ! 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                                 -   1 4 0   - 
 
 
 
                                                     0 0 0 1 4   -   0 1 . 3 5 . 0 2 
 
 
 
 
 
                                                                                                  2 
 
 
 
 
 
                               !+  !/    /+  $ "   I V 
 
 
 
 
 
 
 
 
 
                                                           1 .    &
 
 
 
 
 
            &    "   +    ".     1          /
 
 #+/    "". 
 
 
 
                                                                                           "&  1 
 
 
 
                                        &  $ " 
 
   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
     "            !        &                    !            +
 
    &    !             !                        ! 
 
   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
      $-     !   * *       !",    !    $"'!  
 
   "'!    !   * , /   #,         ! '!  !"- 
 
                       !   + , -   !,   +'",   !   "+    + /
 
                       !   # +  .!    #!          ! 
 
   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
   "(/  !   . G T .     ,(                          !    $"'!  
 
                       !   . G E .     ,(           ! '!  !"- 
 
                       !   . L T .     ,(                          !   "+,    +  
 
                       !   . L E .     ,(           ! + /  ( !  - 
 
                       !   . E Q                                    !    &  "(
 
                       !   . N E .                              !   ."  +
 
                       !                                                     !     "") 
 
   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
   '!! . N O T .   . N O T .   !"  "!   '!  
 
                       !               ",  ",   - !   &+  !""+, 
 
                       !               " "                   !    +  
 
                       ! . A N D .   A . A N D .   !"  "- !   + /
 
                       !                 ",  ",     ! 
 
                       !                      ! 
 
                       !             " "     " "   !"+      ! 
 
                       ! . O R .     A . O R .   !"  "! 
 
                       !               ",  ",   - ! 
 
                       !                 " " ,         ! 
 
                       !             " " ,       " "         ! 
 
                       !             " "   !"+                  ! 
 
                       ! . E Q V     A . E Q V .   !"  "- ! (   ""  "
 
                       !             ,     " "     " "   ! ,       #  . X . ) 
 
                       !               !"+    " "   ! 
 
                       !               " "     +          ! 
 
                       ! . X O R .   A . X O R .   !"  "- ! (   ""  "
 
                       !                 ",  ",     ! ,       #  . E Q V . ) 
 
                       !               " "   !",   ! 
 
                       !                                                     ! 
 
 
 
                                                               -   1 4 1   - 
 
 
 
                                                   0 0 0 1 4   -   0 1 . 3 5 . 0 2 
 
 
 
 
 
                                                                                  ". 1 
 
   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
       "          !        &                    !            +
 
    &    !             !                        ! 
 
   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
                       !         " "             ! 
 
                       !         " "   !",       " "       ! 
 
                       !                                           ! 
 
 
 
 
 
 
 
                                           2 .    " +
 
 
 
 
 
 
 
                 ',   "   $ " ,     !- 
 
   $ "     "      "  /!/. 
 
 
 
 !! "
 
               -   !.   R E A D ,   $ "+  !",+  ; 
 
               -   !.   R E A D ,       #   !!. 
 
 
 
    $"'!/ '!   !  W = A 
 
 
 
       W   -   "$"        "$"   -"
 
               !!; 
 
       A   -   + . 
 
 
 
               -       !"!/  '     $"'!
 
                     '!  + /. 
 
 
 
    $"'!   " - $#&/  F ( [ P [ , P ] . . . ] ) = E 
 
 
 
       F   -   "$" ; 
 
       P   -   "$" ; 
 
       E   -   + . 
 
 
 
               -   !" "!/    $#&/    ,"/,         "       "  " 
 
                   //"!/  $ ,+   " .           )    
 
                     +/"!/  +'!  + /  !  !,- 
 
                     '  $"'!%   " . 
 
 
 
   A S S I G N   S   T O   W 
 
 
 
       S   -   "  +/   " ; 
 
       W   -   "$"   &   . 
 
 
 
               -   #!""!/  !""!"  #  "   "- 
 
                      " S "     &         " W "     /    !#.)
 
                   !,/     "    %       !.
 
                   G O   T O . 
 
 
 
   B A C K S P A C E   U 
 
 
 
       U   -   &/   /    &/  !"". 
 
 
 
               -    "     +#)  !    $,     " +"    
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                               -   1 4 2   - 
 
 
 
                                                   0 0 0 1 4   -   0 1 . 3 5 . 0 2 
 
 
 
 
 
 
 
                   "#)  "           '!    #!" !"
 
                   " U " . 
 
 
 
   B L O C K   D A T A   [ N A M ] 
 
 
 
       N A M   -   "$" . 
 
 
 
               -    /"  !#.)#.        #    - 
 
                     #  +%. 
 
 
 
   C A L L   S [ ( [ , P ] [ ,   [ P ] ] . . . ) ] 
 
 
 
       S   -   "$"     +; 
 
       P   -   + ,   "$"    &# +    "$" 
 
               !!. 
 
 
 
               -   ++"!/      !  "$"   " S " .    
 
                   -"     ."!/  $"'!   " +    " P "     /
 
                   +  $ ,+%   "            - 
 
                     +. 
 
 
 
   C L O S E   ( P [ , P ] . . . ) 
 
 
 
          -        !#.)%  !: 
 
                     U N I T = E 
 
                     D I S P O S E = ' S A V E '     ' K E E P ' 
 
               D I S P O S E = ' D E L E T E ' 
 
               D I S P O S E = ' P R I N T ' 
 
                     E R R = S 
 
       E   -   '!  + ; 
 
       S   -   "  +/   " . 
 
 
 
               -    +"  #+  '!   . 
 
 
 
   C O M M O N   [ / [ A ] / ]   K [ [ , ] / [ A ] / K ] . . . 
 
 
 
         -   "$"   )  ; 
 
         -   !!,     !!"/)                        !,%
 
               "$"      +%,     "$"     !- 
 
               !    !"  !!,    +%  /"+. 
 
 
 
               -      #"  #'!"   "  /",   '+
 
                   "$"     C O M M O N ,   /   )/   - 
 
                   +%,   !/+%  !  -"  . 
 
 
 
   C O N T I N U E 
 
 
 
               -    "  #     !#.)  +/+      - 
 
                    " . 
 
 
 
   D A T A   K / C / [ [ , ]   K / C / ] . . . 
 
 
 
         -   !!,   !!"/)          !,%  "- 
 
               $"    +%,   "$"   !!  
 
               "$"   -"  !!,    +%  - 
 
               /"+.   !+  + /  +  +",  !""- 
 
               ; 
 
       !  -   !!,   !!"/)        !,%  !"", 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                               -   1 4 3   - 
 
 
 
                                                   0 0 0 1 4   -   0 1 . 3 5 . 0 2 
 
 
 
 
 
                +%    /"+,      '            !""
 
               "     (!"",      /",/      $       J * 
 
               ( J   -   #/  &/  !""    ) . 
 
 
 
               -   ++"   !  ',+%  '    !!
 
                   !""  !""!"#.)  -"  !!    "- 
 
                   $"    +%. 
 
 
 
   D E C O D E ( C , F , B [ , E R R = S ] ) [ K ] 
 
 
 
       C   -   &  + ; 
 
       F   -   "   "   F O R M A T       "$"     !!; 
 
       B   -   "$"      ,     "$"     !!
 
                 "$"   -"  !!; 
 
       S   -   "  +/   " ; 
 
       K   -   !!   +%. 
 
 
 
               -     #"  -"+  !!    !,     !- 
 
                   "/    #"   $ ";   '  " !"   #+- 
 
                   "  '!  !,   " F "    /"  $ ",       " " 
 
                   -   "$"   !!  (          -"
 
                   !!) ,   ! )    #+  !+. 
 
 
 
   D E F I N E   F I L E   V ( M , N , U , C ) [ , V ( M , N , U , C ) ] . . . 
 
 
 
       V   -   "$"   &       &/  !""; 
 
       M   -   "$"   &       &/  !""; 
 
       N   -   "$"   &       &/  !""; 
 
       C   -   "$"   &   . 
 
 
 
               -    /"  !" #"# #  !    $   /    !- 
 
                   "#  ( " V "   -      '!    #!" !",     " "     - 
 
                   '!  !  $!   +    $,     " N "     - 
 
                     !    !%,   " U "   -   $! +       - 
 
                   "     " !"   -   !//   /  $) . 
 
 
 
   D I M E N S I O N   A ( D ) [ , A ( D ) ] . . . 
 
 
 
       A ( D )   -   !",  !!. 
 
 
 
               -    /"  '   /",   " #.)!/  /  !!. 
 
 
 
   D O   S [ , ]   I = E 1 , E 2 [ , E 3 ] 
 
 
 
       S                     -   "  !  +/   " 
 
                                   &; 
 
       I                     -   "$"      &; 
 
       E 1 , E 2 [ , E 3 ]   -   &+  + /. 
 
 
 
               -   +/."!/  !#.)  !"/: 
 
                 1 )   #!"  I = E 1 ; 
 
                 2 )   +   "      "   !     " S " 
 
                       .'",; 
 
                 3 )   +'!  I = I + E 3 ; 
 
                 4 )   "   #"  2 )     3 )   " "    
 
                       [ M   =   M A X ( 1 , I N T ( ( E 2 - E 1 ) / E 3 ) + 1 ) ] 
 
 
 
   E N C O D E ( C , F , B [ ,   E R R = S ] ) [ K ] 
 
 
 
 
 
 
 
 
 
 
 
                                                               -   1 4 4   - 
 
 
 
                                                   0 0 0 1 4   -   0 1 . 3 5 . 0 2 
 
 
 
 
 
 
 
       C   -   &  + ; 
 
       F   -   "   "   F O R M A T       "$"     !!; 
 
         -   "$"      ,     "$"       !!
 
                 "$"   -"  !!; 
 
       S   -   "  +/   " ; 
 
         -   !!  / +. 
 
 
 
               -     #"  -"+    !!   +%        !- 
 
                   ,   !";   " !"    /"    '!    !- 
 
                       #$ ,   " F "    /"  !&$&.  $ - 
 
                   "  ( "   "     !!) ,     " "   -   "$- 
 
                   "   ' ",   !,#    #$ . 
 
 
 
   E N D 
 
               -    ("    +  #,. 
 
 
 
 E N D   F I L E   U 
 
 
 
     U   -   &/   /    !"". 
 
 
 
             -     '!  #!" !"  " U "   !+"!/     
 
                 &  $. 
 
 
 
   E N D = S ,   E R R = S 
 
 
 
       S   -   "  +/   " . 
 
 
 
               -    '  # /    &#  $      ('#
 
                   !!"/.,     //.)/!/    /",+      -"
 
                   .   "   / +.   -""  -"  - 
 
                   /"       "     " #  !         " S " 
 
                      #!  &  $  ( E N D = )            ('
 
                   !!"/  ( E R R = ) . 
 
 
 
   E Q U I V A L E N C E   ( K ) [ , ( K ) ] . . . 
 
 
 
       K   -   !!,   !!"/)    #%      "$" 
 
                +%,   "$"     !!    "$- 
 
               "   -"  !!,    +%  /"+. 
 
               !+  + /  +  +",  !"". 
 
 
 
               -   +    "$" ,      )%    !!#, 
 
                    )"!/        "    !"  /". 
 
 
 
   E X T E R N A L   V   [ , V ] . . . 
 
 
 
       V   -   "$"     +. 
 
 
 
               -   !+"  "$" +,     "$" +  (- 
 
                      &# +. 
 
 
 
   F I N D ( U ' R ) 
 
 
 
       U   -   "$"   &       &/  !""; 
 
       R   -   &  + . 
 
 
 
               -   & #"  $    '!  #!" !"  " U "     
 
                   !    !         " R " ,     #!""    !/#.
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                               -   1 4 5   - 
 
 
 
                                                   0 0 0 1 4   -   0 1 . 3 5 . 0 2 
 
 
 
 
 
 
 
                    #.       !,    +  " R " . 
 
 
 
   F O R M A T ( !&$&/    /) 
 
 
 
               -   !+"  $ ",     "       +",     
 
                       !,  !.    "       ",
 
                   "#. 
 
 
 
   [ T Y P ]   F U N C T I O N   N A M [ * N ] [ ( [ P [ , P ] . . . ] ) ] 
 
 
 
       T Y P   -   #",  "  +%; 
 
       N A M   -   "$" ; 
 
       * N     -   #",  +  +%; 
 
       P       -   "$" . 
 
 
 
               -   //"!/   +   "     +  -   $#&, 
 
                   #+/    "$"       $ ,+     " +
 
                   "  " .   "  .'",  /",+  #",  ". 
 
 
 
   G O   T O   S 
 
 
 
       S   -   "  +/   " . 
 
 
 
               -   #!+   %.    "  #    " #
 
                   !  "  " S " . 
 
 
 
   G O   T O   ( K 1 , K 2 , . . . , K N ) [ , ]   M 
 
 
 
       K 1 , K 2 , . . . , K N   -   !!, !!"/)        !,%
 
                                   "    +/+%     " ,      - 
 
                                   +%  /"+; 
 
                             -   &  + . 
 
 
 
               -   +'!/+   "    %;    "  # 
 
                    " #  !  ",    /  '  + - 
 
                   /  " " ;   !  " "      1 ,     #      "!/
 
                    " #  !     "    !!;   !  " "    - 
 
                     2 ,   #    "!/     " #    !    " 
 
                   "    ". ;   !  " "   ,(  &+      ,(, 
 
                   '  .)!/    '!    ",      '    # /
 
                    !%"    !#.)  +/+   " . 
 
 
 
   G O   T O   V   [ [ , ] ( K 1 , K 2 , . . . , K N ) ] 
 
 
 
       V                         -   "$"   &   ; 
 
       K 1 , K 2 , . . . , K 3   -   !!,   !!"/)        !,%
 
                                     "  +/+%   " ,    +%
 
                                     /"+. 
 
 
 
               -    %     !.;    "  #    - 
 
                   " #,   " +  +    !    #!"        !"- 
 
                   "!"     " V "    "   A S S I G N . 
 
 
 
   I F   ( M )   K 1 , K 2 , K 3 
 
 
 
       M                 -   + ; 
 
       K 1 , K 2 , K 3   -   "  +/+%   " . 
 
 
 
                                                         -   1 4 6   - 
 
 
 
                                             0 0 0 1 4   -   0 1 . 3 5 . 0 2 
 
 
 
 
 
               -    $"'!   "   #!   %;      - 
 
                   "  #    " #  !     1 ,   2     3 , 
 
                     !!"  "  '/  + /;   !  '
 
                   + /  ,(  #/,   "  +/"!/     %    
 
                   " 1 " ;   !  '/  + /     #.  -     +- 
 
                   /"!/   %    " 2 " ;     !    '    + /
 
                   ,(  #/  -   +/"!/   %    " 3 " . 
 
 
 
   I F   ( E )   S 
 
 
 
       E   -   + ; 
 
       S   -   .  +/+   "     !.'   " 
 
               D O     '!  #!/   "   I F . 
 
 
 
               -   '!  #!+   " .     +/"     " 
 
                   " S "      #!  !"!"  + /. 
 
 
 
   I M P L I C I T   T Y P   ( A [ , A ] . . . ) [ , T Y P ( A [ , A ] . . . ) ] . . . 
 
 
 
       T Y P   -   #",  "  +%; 
 
             -   ,       #+    $"   /,    - 
 
                   +    " - " ;   (   ,   X - Y ,   C - D ) . 
 
 
 
               -   -"+  " "      !"/."    ",+    #+    ( 
 
                    +  #) ,    !#"!"  " +%    '!"     - 
 
                     #+    "$"          "    "
 
                   -"   . 
 
 
 
   O P E N   ( P [ , P ] . . . ) 
 
 
 
       P   -        !#.)%  $ : 
 
                               U N I T = E 
 
                               N A M E = N 
 
                               T Y P E = ' O L D ' 
 
                         T Y P E   = ' N E W ' 
 
                         T Y P E = ' S C R A T C H ' 
 
                         T Y P E = ' U N K N O W N ' 
 
                               A C C E S S = ' S E Q U E N T I A L ' 
 
                         A C C E S S = ' D I R E C T ' 
 
                         A C C E S S = ' A P P E N D ' 
 
                               R E A D O N L Y 
 
                               F O R M = ' F O R M A T T E D ' 
 
                         F O R M = ' U N F O R M A T T E D ' 
 
                               R E C O R D S I Z E = E 
 
                               E R R = S 
 
                               B U F F E R C O U N T = E 
 
                               I N I T I A L S I Z E = E 
 
                               E X T E N D S I Z E = E 
 
                               N O S P A N B L O C K S 
 
                               S H A R E D 
 
                               D I S P O S E ( D I S P ) = ' S A V E ' 
 
                         D I S P O S E ( D I S P ) = ' K E E P ' 
 
                         D I S P O S E ( D I S P ) = ' P R I N T ' 
 
                         D I S P O S E ( D I S P ) = ' D E L E T E ' 
 
                               A S S O C I A T E V A R I A B L E = V 
 
                               C A R R I A G E C O N T R O L = ' F O R T R A N ' 
 
                         C A R R I A G E C O N T R O L = ' L I S T ' 
 
                         C A R R I A G E C O N T R O L = ' N O N E ' 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                         -   1 4 7   - 
 
 
 
                                             0 0 0 1 4   -   0 1 . 3 5 . 0 2 
 
 
 
 
 
                               M A X R E C = E 
 
                               B L O C K S I Z E = E 
 
   
 
 
 
 
 
               -   '!  + ; 
 
 
 
 S 
 
               -   "  +/   " ; 
 
 
 
 V 
 
               -   "$"   &   ; 
 
 
 
 N 
 
               -   "$"   !!,     "$"      , 
 
                   "$"     -"    !!            #- 
 
                   &$   " . 
 
 
 
               -   " +"  $    #  '!    #!" !"
 
                     !""!"  !   " ,    +  .'- 
 
                   +  !. 
 
 
 
   P A U S E [ N ] 
 
 
 
       N   -   !",!",  !/"'+%    &$ ,     ! )/  "
 
           /"  &$ ,     #- &$   " ,     
 
       !, '/  !"". 
 
 
 
               -    !""  +    +    +"  
 
                   "    "   " N " ,   !  " N "   . 
 
 
 
   P R I N T 
 
               -   !.   W R I T E ,   $ "+  !",+  / +. 
 
 
 
               -   !.   W R I T E ,   / +    #   !!. 
 
 
 
   P R O G R A M   N A M 
 
 
 
       N A M   -   "$" . 
 
 
 
               -    /"  "$"       +. 
 
 
 
   R E A D   ( U , F [ , E N D = S ] [ , E R R = S ] ) [ K ] 
 
   R E A D   F [ , K ] 
 
   A C C E P T   F [ , K ] 
 
 
 
       U   -   &/   /    &/  !""; 
 
       F   -   "   "   F O R M A T     "$"   !!; 
 
       S   -   "  +/   " ; 
 
       K   -   !!  . 
 
 
 
               -   $ "+  !",+    .     !'"+"    #
 
                       '!%  !  !    #!" !"    " U "     
 
                    !"    -"    !!            '/, 
 
                     +      !""!"    !    !&$&
 
                   $ "     "   " F " . 
 
 
 
   R E A D ( U [ , E N D = S ] [ , E R R = S ] ) [ K ] 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                         -   1 4 8   - 
 
 
 
                                             0 0 0 1 4   -   0 1 . 3 5 . 0 2 
 
 
 
 
 
       U   -   &/   /    &/  !""; 
 
       S   -   "  +/   " ; 
 
       K   -   !!    . 
 
 
 
               -   $ "+  !",+  .   !'"+"    #
 
                   $ "#.  !,  !  #!" !"  " U "        !"
 
                   '/  -"  !!. 
 
 
 
   R E A D   ( U ' R [ E R R = S ] ) [ K ] 
 
       U   -   &/   /    &/  !""; 
 
       R   -   &  + ; 
 
       C   -   "  +/   " ; 
 
       K   -   !!  . 
 
 
 
               -   $ "+        !     /+    !"#;     !'"+"
 
                   !,  " R "   !  #!" !"  " U "      !"  '/
 
                   -"  !!. 
 
 
 
   R E A D ( U , * [ , E N D = S ] [ , E R R = S ] ) K 
 
   R E A D   * , K 
 
   A C C E P T   * , K 
 
 
 
     U   -   &/   /    &/  !""; 
 
     *   -   #+"      $ "    #   !!; 
 
     S   -   "  +/   " ; 
 
     K   -   !!  . 
 
 
 
               -       #   !!;     !'"+"    #    
 
                   !,  !  !  #!" !"  " U "          !"
 
                   #  -"#  !!  ',       
 
                     !""!"  !  "  +%  -"  -"  !!- 
 
                   . 
 
 
 
   R E T U R N 
 
 
 
               -    )"  #       ++.)#.      #    
 
                   +/    +. 
 
 
 
   R E W I N D   U 
 
 
 
       U   -   &/   /    !"". 
 
 
 
               -   ++"   "    '#  $,   " +"      !- 
 
                   "/)  "    '!  #!" !"  " U " . 
 
 
 
   S T O P [ N ] 
 
 
 
       N   -   !",!",      !/"'+%      &$ ,       #- 
 
               &$   "     !, '/  !"". 
 
 
 
               -     )"  +    +    +"    " - 
 
                      "   " N " ,   !  " N "   . 
 
 
 
   S U B R O U T I N E   N A M   [ ( [ P [ , P ] . . . ] ) ] 
 
 
 
       N A M   -   "$" ; 
 
              -   "$" . 
 
 
 
               -   '"    #,   #+/    "$"   
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                         -   1 4 9   - 
 
 
 
                                             0 0 0 1 4   -   0 1 . 3 5 . 0 2 
 
 
 
 
 
                   "$" +  $ ,+%   "   "  " . 
 
 
 
   T Y P E 
 
 
 
               -   !.   W R I T E ,   $ "+  !",+  +; 
 
               -   !.   W R I T E ,   +    #   !!. 
 
 
 
   T Y P   V [ , V ] . . . 
 
 
 
       T Y P   -   #",  "  +%; 
 
       V   -   "$"      ,     "$"     !!, 
 
               "$"   $#&        "'    %    $#&., 
 
                 !",  !!.     "$"     "
 
               !",  /",+  #",  +  "
 
               +%  ( * N ) . 
 
 
 
               -   "$"   " V "               &
 
                    !"!/  #+  ".   "  "  +",    
 
                     !#.)%: 
 
 
 
                               D O U B L E   P R E C I S I O N 
 
                               C O M P L E X 
 
                               C O M P L E X * 8 
 
                               R E A L 
 
                               R E A L * 4 
 
                               R E A L * 8 
 
                               I N T E G E R 
 
                               I N T E G E R * 2 
 
                               I N T E G E R * 8 
 
                               B Y T E 
 
                               L O G I C A L 
 
                               L O G I C A L * 1 
 
                               L O G I C A L * 4 
 
 
 
   W R I T E ( U , F [ , E R R = S ] ) [ K ] 
 
   P R I N T   F [ , K ] 
 
   T Y P E   F [ , K ] 
 
 
 
       U   -   &/   /    &/  !""; 
 
       F   -   "   "   F O R M A T     "$"   !!; 
 
       S   -   "  +/   " ; 
 
       K   -   !!  +. 
 
 
 
               -   $ "+  !",+    +;     !+"    
 
                   #!" !"  " U "   #    !,  !,     ! - 
 
                   )%  '/  -"    !!,       +
 
                   !!  !&$&  $ "  " F " . 
 
 
 
   W R I T E   ( U [ , E R R = S ] ) [ K ] 
 
 
 
       U   -   &/   /    &/  !""; 
 
       S   -   "  +/   " ; 
 
       K   -   !!  +. 
 
 
 
               -   $ "+  !",+  +.   !+"    
 
                   #!" !"  " U "   #  $ "#.  !,,   ! )#.
 
                   '/  -"  !!. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                         -   1 5 0   - 
 
 
 
                                             0 0 0 1 4   -   0 1 . 3 5 . 0 2 
 
 
 
 
 
 
 
 
 
   W R I T E   ( U ' N   [ , E R R = S ] ) [ K ] 
 
 
 
       U   -   &/   /    &/  !""; 
 
       N   -   &  + ; 
 
       S   -   "  +/   " ; 
 
       K   -   !!  +. 
 
 
 
               -   $ "+  +  !   /+  !"#;   !+"  
 
                   #!" !"  " U "     !,    " N " ,     ! )#.    '/
 
                   -"  !!. 
 
 
 
   W R I T E   ( U , * [ , E R R = S ] ) K 
 
   P R I N T   * , K 
 
   T Y P E   * , K 
 
 
 
       U   -   &/   /    &/  !""; 
 
       *   -   #+"            $ "            # 
 
               !!; 
 
       S   -   "  +/   " ; 
 
       K   -   !!  +. 
 
 
 
               -   +    #   !!;   !+"        #!"- 
 
                    !"  " U "   #    !,  !,   ! )%
 
                   '/  -"  !!,     +%    !"- 
 
                   "!"  !  "  +%  -"  !!. 
 
 
 
                                                       -   1 5 1   - 
 
 
 
                                           0 0 0 1 4   -   0 1 . 3 5 . 0 2 
 
 
 
 
 
                       3 .   "'+  $#&  $ " 
 
 
 
 
 
 
 
           $#&    /
 
           - - - - - - - - - - - - - - - - - - - - - - 
 
 
 
 A B S ( X ) 
 
               -   )!"  !."  ';   "   "     - 
 
                   )!"+,   "  $#&  -   )!"+. 
 
 
 
 I A B S ( I ) 
 
               -   &  !."  ';   "   "   -     &+, 	 
 
                   "  $#&  -   &+. 
 
 
 
 D A B S ( X ) 
 
               -   !."  '  !    "'!",.;   "   - 
 
                   "   -   !    "'!",.,   "  $#&  -   !  - 
 
                     "'!",.. 
 
 
 
 C A B S ( Z ) 
 
               -   !."        '        !          '+
 
                   ( Z = ( X , Y ) ) ,   C A B S ( Z ) = ( X * * 2 + Y * * 2 ) * * 0 , 5 ;   "   " 
 
                   -   !+,   "  $#&  -   )!"+. 
 
 
 
 F L O A T ( I ) 
 
               -       &  '+    )!"#.;     "
 
                    "   -   &+,   "  $#&  -   )!"+. 
 
 
 
 I F I X ( X ) 
 
               -         )!"    '+          &#.; 
 
                   I F I X ( X )     -"    I N T ( X ) ;     "     "       - 
 
                   )!"+,   "  $#&  -   &+. 
 
 
 
 S N G L ( X ) 
 
               -         '+    !        "'!",.    
 
                   )!"#.  '#;   "   "   -     !    
 
                   "'!",.,   "  $#&  -   )!"+. 
 
 
 
 D B L E ( X ) 
 
               -       )!"  '+    '#    !
 
                     "'!",.;   "   "     -     )!"+, 
 
                   "  $#&  -   !    "'!",.. 
 
 
 
 R E A L ( Z ) 
 
               -   +  !"",  '!"    !  - 
 
                   ';   "   "   -   !+,   "    $#&    - 
 
                   )!"+. 
 
 
 
 A I M A G ( Z ) 
 
               -   +    '!"    !  ';   "
 
                    "   -   !+,   "  $#&  -     )!"- 
 
                   +. 
 
 
 
 C M P L X ( X , Y ) 
 
               -   '   #%  )!"+%  '      !- 
 
                   #.  '#    C M P L X ( X , Y ) = X + I + * Y ;     "     "     - 
 
                   )!"+,   "  $#&  -   !+. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                       -   1 5 2   - 
 
 
 
                                           0 0 0 1 4   -   0 1 . 3 5 . 0 2 
 
 
 
 
 
 
 
           $#&  +/  &  '!"
 
           - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 
 
            #,""  $#&    +/    &    '!"    //"!/
 
 ,(  &  '!,      +(.)    !."    - 
 
 '   #"  $#&.   $#&   !"!/       #- 
 
 ". 
 
 
 
 A I N T ( X ) 
 
               -   +  &  '!"  )!"    '+;     "
 
                    "   -   )!"+,   "  $#&  -   )!"- 
 
                   +. 
 
 
 
 I N T ( X ) 
 
               -   +  &  '!"  )!"    '+;     "
 
                    "   -   )!"+,   "  $#&  -   &+. 
 
 
 
 I D I N T ( X ) 
 
               -   +  &    '!"    '+    !        "'- 
 
                   !",.;   "     "     -         "'!",     "
 
                   $#&  -   &+. 
 
 
 
 
 
           $#&  !""
 
           - - - - - - - - - - - - - - - 
 
 
 
            #,""  $#&  !""  //"!/  !""  "    - 
 
 /      #"    " . 
 
 
 
 A M O D ( X , Y ) 
 
               -   !""  )!"+;   "   "   -     )!"- 
 
                   +,   "  $#&  -   )!"+. 
 
 
 
 M O D ( I , J ) 
 
               -   !""  &+;   "   "   -   &+,   "  $#&
 
                   -   &+. 
 
 
 
 D M O D ( X , Y ) 
 
               -   !""  !    "'!",.;   "   "   -   - 
 
                     "'!",   "  $#&  -     "'!". 
 
 
 
 
 
 
 
           $#&  +   !,  '/
 
           - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 
 
            #,""    $#&    +     !,      '/
 
 //"!/  ",(  '     #"  !!,     !!"/- 
 
 )    #%       #". 
 
 
 
 A M A X 0 ( I , J , . . . ) 
 
               -   !,  )!"  '    !!  &+%
 
                    #";   "   "   -   &+,   "  $#&    - 
 
                   )!"+. 
 
 
 
 A M A X 1 ( X , Y , . . . ) 
 
               -   !,    )!"    '            !!
 
                   )!"+%   #";   "   "   )!"- 
 
                   +,   "  $#&  -   )!"+. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                       -   1 5 3   - 
 
 
 
                                           0 0 0 1 4   -   0 1 . 3 5 . 0 2 
 
 
 
 
 
 M A X 0 ( I , J , . . . ) 
 
               -   !,  &  '    !!  &+%     #- 
 
                   ";   "     "     -     &+,     "    $#&    - 
 
                   &+. 
 
 
 
 M A X 1 ( X , Y , . . . ) 
 
               -   !,  &  '    !!  )!"+%
 
                    #";     "     "     -     )!"+,     "
 
                   $#&  -   &+. 
 
 
 
 D M A X 1 ( X , Y , . . . ) 
 
               -   !,  '    "'!"        !!
 
                    #"  !    "'!",.;   "   "   -     !
 
                     "'!",.,   "  $#&  -     !        "'- 
 
                   !",.. 
 
 
 
 
 
           $#&  +   ,  '/
 
           - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 
 
            #,""    $#&    +       ,      '/
 
 //"!/  ,(  '    !!   #",     !!"/- 
 
 )    #%       #". 
 
 
 
 A M I N 0 ( I , J , . . . ) 
 
               -   ,  )!"  '    !!    &+%
 
                    #";   "   "   -   &+,   "  $#&    - 
 
                   )!"+. 
 
 
 
 A M I N 1 ( X , Y , . . . ) 
 
               -   ,    )!"      '            !!
 
                   )!"+%   #";   "   "   -     )!"- 
 
                   +,   "  $#&  -   )!"+. 
 
 
 
 M I N 0 ( I , J , . . . ) 
 
               -   ,  &  '    !!    &+%     #- 
 
                   ";   "   "     -     &+,     "    $#&    - 
 
                   &+. 
 
 
 
 M I N 1 ( X , Y , . . . ) 
 
               -   ,  &  '    !!    )!"+%
 
                    #";   "     "     -     )!"+,     "
 
                   $#&  -   &+. 
 
 
 
 D M I N 1 ( X , Y , . . . ) 
 
               -   ,  '  !    "'!",.    !!
 
                    "   !    "'!",.;   "   "   -   !
 
                     "'!",.,   "  $#&  -     !        "'- 
 
                   !",.. 
 
 
 
 
 
           $#&   !/  
 
           - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 
 
            #,""  $#&   !/    //"!/    !- 
 
 ."  '      #"  !   !+  #    
 
 "    #". 
 
 
 
 S I G N ( X , Y ) 
 
               -    !        )!"    ';       "
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                       -   1 5 4   - 
 
 
 
                                           0 0 0 1 4   -   0 1 . 3 5 . 0 2 
 
 
 
 
 
                    "   -   )!"+,   "  $#&    -     )!"- 
 
                   +. 
 
 
 
 I S I G N ( I , J ) 
 
               -    !    &  ';   "     " 
 
                   -   &+,   "  $#&  - &+. 
 
 
 
 D S I G N ( X , Y ) 
 
               -    !    '  !        "'!",.; 
 
                   "   "   -   !    "'!",.,   "    $#&
 
                   -   !    "'!",.. 
 
 
 
 
 
 
 
           $#&  ",   !"
 
           - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 
 
            #,""  $#&    ",     !"    //"!/
 
  !",      #"    ,    #%     #- 
 
 ". 
 
 
 
 D I M ( X , Y ) 
 
               -   ",/   !",  )!"+%    ';     "
 
                    "   -   )!"+,   "  $#&    -     )!"- 
 
                   +. 
 
 
 
 I D I M ( I , J ) 
 
               -   ",/   !",  &+%  ';   "   "- 
 
                      -   &+,   "  $#&  -   &+. 
 
 
 
 
 
           -!&,+  $#&
 
           - - - - - - - - - - - - - - - - - - - - - - - - 
 
 
 
            #,""  -!&,+%  $#&  //"!/  '
 
 " " ,       !",,    #.   #"#. 
 
 
 
 E X P ( X ) 
 
               -   E * * X .   "   "   -   )!"+,   "  $#&    - 
 
                   )!"+; 
 
 
 
 D E X P ( X ) 
 
               -   E * * X .   "   "   -     !        "'!",.,     "
 
                   $#&  -   !    "'!",.. 
 
 
 
 C E X P ( Z ) 
 
               -   E * * Z .   "   "   -   !+,   "    $#&    - 
 
                   !+. 
 
 
 
 
 
            $'!  $#&
 
           - - - - - - - - - - - - - - - - - - - - - - - 
 
 
 
 A L O G ( X ) 
 
               -   "# ,+   $  )!"   #";     "
 
                    "   -   )!"+,   "  $#&  -   )!"- 
 
                   +. 
 
 
 
 A L O G 1 0 ( X ) 
 
               -   !/"'+   $  )!"   #". 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                       -   1 5 5   - 
 
 
 
                                           0 0 0 1 4   -   0 1 . 3 5 . 0 2 
 
 
 
 
 
 D L O G ( X ) 
 
               -   "# ,+     $     #"    !        "'- 
 
                   !",.;   "   "   -   !      "'!",.,     "
 
                   $#&  -   !    "'!",.. 
 
 
 
 C L O G ( Z ) 
 
               -   "# ,+   $  !     #";     "
 
                    "   -   !+,   "  $#&    -     !- 
 
                   +. 
 
 
 
 
 
            "+   ,
 
           - - - - - - - - - - - - - - - - - 
 
 
 
 S Q R T ( X ) 
 
               -    ,   "+    )!"   #";     "
 
                    "   -   )!"+,   "  $#&  -   )!"- 
 
                   +. 
 
 
 
 D S Q R T ( X ) 
 
               -    ,   "+     #"        "'!"; 
 
                   "   "   -   !    "'!",.,   "  $#&  !
 
                     "'!",.. 
 
 
 
 C S Q R T ( Z ) 
 
               -    ,   "+    !     #";     "
 
                    "   -   !+,   "  $#&    -     !- 
 
                   +. 
 
 
 
 
 
           " " '!  $#&
 
           - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 
 
 S I N ( X ) 
 
               -   !#!  )!"     #";     "     "     - 
 
                   )!"+,   "  $#&  -   )!"+. 
 
 
 
 D S I N ( X ) 
 
               -   !#!   #"  !    "'!",.;   "   " 
 
                   -   !    "'!",.,   "    $#&    -     !    
 
                   "'!",.. 
 
 
 
 C S I N ( Z ) 
 
               -   !#!    !     #";     "     "     - 
 
                   !+,   "  $#&  -   !+. 
 
 
 
 C O S ( X ) 
 
               -   !#!  )!"   #";   "     "     - 
 
                   )!"+,   "  $#&  -   )!"+. 
 
 
 
 D C O S ( X ) 
 
               -   !#!   #"  !    "'!",.;     "     - 
 
                   "   -   !    "'!",.,   "  $#&  -   !  - 
 
                     "'!",.. 
 
 
 
 C C O S ( Z ) 
 
               -   !#!  !   #";     "     "     - 
 
                   !+,   "  $#&  -   !+. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                       -   1 5 6   - 
 
 
 
                                           0 0 0 1 4   -   0 1 . 3 5 . 0 2 
 
 
 
 
 
 A T A N ( X ) 
 
               -    "!  )!"   #";   "     " 
 
                   -   )!"+,   "  $#&  -   )!"+. 
 
 
 
 D A T A N ( X ) 
 
               -    "!     #"    !        "'!",.;     "
 
                   $#&  -   !    "'!",.. 
 
 
 
 A T A N 2 ( X , Y ) 
 
               -    "!  )!"   #"  "    " X / Y " ;     "
 
                   $#&  -   )!"+. 
 
 
 
 D A T A N 2 ( X , Y ) 
 
               -    "!   #"  !    "'!",.  "  " X / Y " ; 
 
                   "  $#&  -   !    "'!",.. 
 
 
 
 
 
           ",+  ""'!  $#&
 
           - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 
 
 C O N J G ( Z ) 
 
               -   +  !- ! /    '+;     !
 
                   Z = X + I * Y ,   "  C O N J G ( Z ) = X - I * Y . 
 
 
 
 R A N ( I , J ) 
 
               -   +'!  !#'  '!,          ! - 
 
                       "   "  0     1 ;   " I "       " J "     +
 
                   +",  &+   +,    ',  #!"- 
 
                   +    0   ;   " /  #!"  " I "     " J "     0     - 
 
                   "       #"      !",!",      !#'+%
 
                   '!;     ',+%  '  /  " I "       " J " 
 
                   ++"   &.  +%  !",+%    !#'- 
 
                   +%  '!. 
 
 
 
 T A N H ( X ) 
 
               -   "!   '!;   "   "     -     )!"- 
 
                   +,   "  $#&  -   )!"+. 
 
 