projects
/
h316.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
*** empty log message ***
[h316.git]
/
programs
/
punchomat
/
src
/
punchomat.f
diff --git
a/programs/punchomat/src/punchomat.f
b/programs/punchomat/src/punchomat.f
index 78b5474dba25347fab33f23c389279d04e17af59..0a75af0d0fff997a1001c12424b8c8ca18fd0940 100644
(file)
--- 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)
CCCCCC PUNCHOMAT-HAUPTPROGRAMM, 31.05.2005
C
DIMENSION PUFF(40)
+ INTEGER PUFF
C
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
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)
1002 FORMAT (2HPP)
+C
READ (1,1003) PUFF
READ (1,1003) PUFF
+ WRITE (4,1002)
1003 FORMAT (40A2)
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
GO TO 666
END
$0