CCCCCC PUNCHOMAT-HAUPTPROGRAMM, 31.05.2005
C
       DIMENSION PUFF(40)
       INTEGER PUFF
C
       WRITE(4,1000)
1000   FORMAT(45HPHILIPP HACHTMANN'S COOL VISIBLE PUNCH DEMO! )
       WRITE(1,1001)
1001   FORMAT (10H27.05.2005)
C
C
666    WRITE (4, 1002)
1002   FORMAT (2HPP)
C
       READ (1,1003) PUFF
       WRITE (4,1002)
1003   FORMAT (40A2)
1004   FORMAT (4H--->,40A2)      
       WRITE (4,1004) PUFF
       CALL REBOOT
       GO TO 666
       END
$0