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

C        PHILIPP'S MUNZ-PROGRAMM, KEIN WEITERER ZWECK. EINE VERSION VOM 6.2.2005
C
C
CCCCCC DA SAG ICH NUR: LASS KRACHEN!
 33    WRITE(1,10)
       WRITE(2,20)
       WRITE(4,30)
   10  FORMAT(54HHALLO WELT! DAS SOLLTE AUF DEM ASR RAUSGEKOMMEN SEIN!  )
   20  FORMAT(54HHALLO WELT! DAS SOLLTE AUF DEM PTP RAUSGEKOMMEN SEIN!  )
   30  FORMAT(54HHALLO WELT! DAS SOLLTE AUF DEM LPT RAUSGEKOMMEN SEIN!  )
       PAUSE
       GOTO 33
$0
Commit	Line	Data
c08e22bb	1	C PHILIPP'S MUNZ-PROGRAMM, KEIN WEITERER ZWECK. EINE VERSION VOM 6.2.2005
	2	C
	3	C
	4	CCCCCC DA SAG ICH NUR: LASS KRACHEN!
	5	33 WRITE(1,10)
	6	WRITE(2,20)
	7	WRITE(4,30)
	8	10 FORMAT(54HHALLO WELT! DAS SOLLTE AUF DEM ASR RAUSGEKOMMEN SEIN! )
	9	20 FORMAT(54HHALLO WELT! DAS SOLLTE AUF DEM PTP RAUSGEKOMMEN SEIN! )
	10	30 FORMAT(54HHALLO WELT! DAS SOLLTE AUF DEM LPT RAUSGEKOMMEN SEIN! )
	11	PAUSE
	12	GOTO 33
	13	$0
	14