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

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