X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=programs%2Fpunchomat%2Fsrc%2Fpunchomat.f;h=0a75af0d0fff997a1001c12424b8c8ca18fd0940;hb=1f281d4826c416ec3cf4952d9c1f9409c77a9fa1;hp=78b5474dba25347fab33f23c389279d04e17af59;hpb=ea78fc91fca804d41e7caf94025a4616e4f2daad;p=h316.git

diff --git a/programs/punchomat/src/punchomat.f b/programs/punchomat/src/punchomat.f
index 78b5474..0a75af0 100644
--- a/programs/punchomat/src/punchomat.f
+++ b/programs/punchomat/src/punchomat.f
@@ -1,19 +1,23 @@
 CCCCCC PUNCHOMAT-HAUPTPROGRAMM, 31.05.2005
 C
        DIMENSION PUFF(40)
+       INTEGER PUFF
 C
-       WRITE(1,1000)
+       WRITE(4,1000)
 1000   FORMAT(45HPHILIPP HACHTMANN'S COOL VISIBLE PUNCH DEMO! )
        WRITE(1,1001)
 1001   FORMAT (10H27.05.2005)
 C
 C
-666    WRITE (1, 1002)
+666    WRITE (4, 1002)
 1002   FORMAT (2HPP)
+C
        READ (1,1003) PUFF
+       WRITE (4,1002)
 1003   FORMAT (40A2)
-1004   FORMAT (40A2)      
-       WRITE (4,1004)PUFF
+1004   FORMAT (4H--->,40A2)      
+       WRITE (4,1004) PUFF
+       CALL REBOOT
        GO TO 666
        END
 $0