[h316.git] / programs / punchomat / src / punchomat.f

CCCCCC PUNCHOMAT-HAUPTPROGRAMM, 31.05.2005
C
       DIMENSION PUFF(40)
       INTEGER PUFF
C
       WRITE(4,1000)
1000   FORMAT(45HPHILIPP HACHTMANN'S COOL VISIBLE PUNCH DEMO! )
       WRITE(1,1001)
1001   FORMAT (10H27.05.2005)
C
C
666    WRITE (4, 1002)
1002   FORMAT (2HPP)
C
       READ (1,1003) PUFF
       WRITE (4,1002)
1003   FORMAT (40A2)
1004   FORMAT (4H--->,40A2)      
       WRITE (4,1004) PUFF
       CALL REBOOT
       GO TO 666
       END
$0
Commit	Line	Data
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