programs/punchomat/src/punchomat.f

   1 CCCCCC PUNCHOMAT-HAUPTPROGRAMM, 31.05.2005
   2 C
   3        DIMENSION PUFF(40)
   4 C
   5        WRITE(1,1000)
   6 1000   FORMAT(45HPHILIPP HACHTMANN'S COOL VISIBLE PUNCH DEMO! )
   7        WRITE(1,1001)
   8 1001   FORMAT (10H27.05.2005)
   9 C
  10 C
  11 666    WRITE (1, 1002)
  12 1002   FORMAT (2HPP)
  13        READ (1,1003) PUFF
  14 1003   FORMAT (40A2)
  15 1004   FORMAT (40A2)
  16        WRITE (4,1004)PUFF
  17        GO TO 666
  18        END
  19 $0