8321626c |
1 | CCCCCC PUNCHOMAT-HAUPTPROGRAMM, 31.05.2005 |
2 | C |
3 | DIMENSION PUFF(40) |
1f281d48 |
4 | INTEGER PUFF |
8321626c |
5 | C |
1f281d48 |
6 | WRITE(4,1000) |
8321626c |
7 | 1000 FORMAT(45HPHILIPP HACHTMANN'S COOL VISIBLE PUNCH DEMO! ) |
8 | WRITE(1,1001) |
9 | 1001 FORMAT (10H27.05.2005) |
10 | C |
11 | C |
1f281d48 |
12 | 666 WRITE (4, 1002) |
8321626c |
13 | 1002 FORMAT (2HPP) |
1f281d48 |
14 | C |
8321626c |
15 | READ (1,1003) PUFF |
1f281d48 |
16 | WRITE (4,1002) |
8321626c |
17 | 1003 FORMAT (40A2) |
1f281d48 |
18 | 1004 FORMAT (4H--->,40A2) |
19 | WRITE (4,1004) PUFF |
20 | CALL REBOOT |
8321626c |
21 | GO TO 666 |
22 | END |
23 | $0 |