Искусство древних

[spamsink]

Запуск программы

*LIBRARY:2
*CALL FLOWER
      program main
      integer prime
      dimension prime(100)
      do 1 n=2,100
   1  prime(n) = 1
      do 2 n=2,100 
      if (prime(n)) 2,2,22
  22  l = 100/n
      do 3 k=2,l 
   3  prime(n*k) = 0
   2  continue
      do 4 n=2,100
   4  if(prime(n).eq.1) print 5,n
   5  format (1xi6)
      stop
      end

(это решето Эратосфена, если что)

приводит к выдаче

                                                                              РRОGRАМ МАIN   РАGЕ NО    1
                                        INТЕGЕR РRIМЕ
                                        DIМЕNSIОN РRIМЕ(100)

                                        -----------------------------------------
  --------------------------------------*  DО  1      N=2,100                   *
  +                                     -----------------------------------------
  +                                                        I
  +                                     -----------------------------------------
  ++++++++++++++++++++++++++++    1  +++I   РRIМЕ(N)=1                          I
                                        -----------------------------------------
                                                           I
                                        -----------------------------------------
  --------------------------------------*  DО  2      N=2,100                   *
  +                                     -----------------------------------------
  +                                                        I
  +                                                        .
  +                                                    . ’   ’ .
  +                                                . ’    IF     ’ .
  +                                            . ’ (РRIМЕ(N))        ’ .
  +                                        --’ .                       . ’--
  +                                        I     ’ .               . ’     I
  +                                        I         ’ .       . ’         I
  +                                        I             ’ . ’             I
  +                                        I -             I 0             I +
  +                                     -------         -------            I
  +                                     *2    *         *2    *            I
  +                                      ’. .’           ’. .’             I
  +                                        ’               ’               I
  +                                                                        I
  +                                                        I----------------
  +                                                        I
  +                                     -----------------------------------------
  +                              22     I   L=100/N                             I
  +                                     -----------------------------------------
  +                                                        I
  +                                     -----------------------------------------
  +-------------------------------------*  DО  3      К=2,L                     *
  +I                                    -----------------------------------------
  +I                                                       I
  +I                                    -----------------------------------------
  ++++++++++++++++++++++++++++    3  +++I   РRIМЕ(N*К)=0                        I
  +                                     -----------------------------------------
  +                                                        I
  ++++++++++++++++++++++++++++    2  ++++++++++++++++++СОNТINUЕ
                                                           I
                                        -----------------------------------------
  --------------------------------------*  DО  4      N=2,100                   *
  +                                     -----------------------------------------
  +                                                        I
  +                                                        .
  +                                                    . ’   ’ .
  +                               4                . ’    IF     ’ .       FАLSЕ
  +                                            . ’ ((((((((((((((((( ’ .
  +++++++++++++++++++++++++++++++++++++++++  ’ . ((((((((((((((((((((( . ’------------------
                                                 ’ . ((((((((((((((. ’                     I
                                                     ’ .       . ’                         I
                                                         ’ . ’                             I
                                                           I ТRUЕ                          I
                                                           I                               I
                                          (РRIМЕ(N).ЕQ.1) РRINТ 5,N                        I
                                                           I                               I
                                                           ---------------------------------
                                                           I
                                  5     FОRМАТ (1ХI6)                                                     **
                                                           I
                                                                              РRОGRАМ МАIN   РАGЕ NО    2
                                                           I
                                                      ***********
                                                      *  SТОР   *
                                                      *         *
                                                      ***********

Увы, программа не очень умная, и после арифметического IF распознаётся проваливание на следующий оператор только для третьей метки, иначе рисуются три стрелочки. И логические IF какие-то не очень красивые. Но забавно.