X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=programs%2Fpunchomat%2Fsrc%2Fpunchomat.f;fp=programs%2Fpunchomat%2Fsrc%2Fpunchomat.f;h=78b5474dba25347fab33f23c389279d04e17af59;hb=8321626c163d98740beef3008b425a578d8cfde0;hp=0000000000000000000000000000000000000000;hpb=437b3ba835f66625031f4711cd0a963be67ccf5a;p=h316.git

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