programs/punchomat/src/c.f

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