Commit | Line | Data |
---|---|---|
8321626c | 1 | CCCCCC PUNCHOMAT-HAUPTPROGRAMM, 31.05.2005 |
2 | C | |
3 | C | |
4 | WRITE(1,1000) | |
5 | 1000 FORMAT(45HPHILIPP HACHTMANN'S COOL VISIBLE PUNCH DEMO! ) | |
6 | WRITE(1,1001) | |
7 | 1001 FORMAT (10H27.05.2005) | |
8 | C | |
9 | C | |
10 | 666 WRITE (1, 1002) | |
11 | 1002 FORMAT (2HPP) | |
12 | READ (1,1003) PUFF | |
13 | 1003 FORMAT (A2) | |
14 | 1004 FORMAT (A2) | |
15 | WRITE (1,1004)PUFF | |
16 | GO TO 666 | |
17 | END | |
18 | $0 |