Commit | Line | Data |
---|---|---|
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 |