programs/punchomat/src/punchomat.f

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