[h316.git] / programs / first-steps / src / print.f

CFORTRAN PROGRAM
C       SUBROUTINE MAIN()
       WRITE (4,33)
33     FORMAT(43HDIES IST DIE ERSTE ZEILE AUF DEM DRUCKER.         )
       PAUSE 3
       WRITE (4,34)       
34     FORMAT(43HDIES IST DIE ZWEITE ZEILE AUF DEM DRUCKER.         )
       END
$0
Commit	Line	Data
c08e22bb	1	CFORTRAN PROGRAM
	2	C SUBROUTINE MAIN()
	3	WRITE (4,33)
	4	33 FORMAT(43HDIES IST DIE ERSTE ZEILE AUF DEM DRUCKER. )
	5	PAUSE 3
	6	WRITE (4,34)
	7	34 FORMAT(43HDIES IST DIE ZWEITE ZEILE AUF DEM DRUCKER. )
	8	END
	9	$0