\newpage
%
\subsection*{IBM PunchCard}
%
\small
\begin{verbatim}
Non ASCII: a
Non Fortran: f
Card Punch: O

    f         a f            f   f          a ffff           ff  f
    &ABCDEFGHI .<(+-JKLMNOPQR!$*);0/STUVWXYZ ,%_>^ 123456789:#@'="
   -----------------------------------------------------------------
2 | OOOOOOOOOOOOOOO                                                 | 2
1 |                OOOOOOOOOOOOOOO                                  | 1
0 |                               OOOOOOOOOOOOOOOO                  | 0
1 |  O              O              O               O                | 1
2 |   O       O      O       O      O       O       O       O       | 2
3 |    O       O      O       O      O       O       O       O      | 3
4 |     O       O      O       O      O       O       O       O     | 4
5 |      O       O      O       O      O       O       O       O    | 5
6 |       O       O      O       O      O       O       O       O   | 6
7 |        O              O              O       O       O       O  | 7
8 |         O OOOOO        O OOOOO        O OOOOOO        O OOOOOO  | 8
9 |          O              O              O               O        | 9
   -----------------------------------------------------------------
    &ABCDEFGHI .<(+-JKLMNOPQR!$*);0/STUVWXYZ ,%_>^ 123456789:#@'=?

Sample content:

      SUBROUTINE GELB(R,A,M,N,MUD,MLD,EPS,IER)
      IF(MAX.GT.NN) STOP "DUAAL: TOO MANY NODES"
   10 IF(MAX.GT.NN) CALL DISPLA("ELEMENT =",NE)
      PROGRAM AFRIKA(INPUT,OUTPUT,TAPE5=INPUT,TAPE6=OUTPUT)
   30 WRITE(6,3) LAND,(DUAL(LAND,PUNT),PUNT=1,10)
      COMMON /TOPOL/ NDS,NO(1)  $  COMMON /DUAAL/ NN,DUAL(1)

\end{verbatim}
%