X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=programs%2Ffirst-steps%2Fsrc%2Fmuz.f;fp=programs%2Ffirst-steps%2Fsrc%2Fmuz.f;h=339ebaceed6962d12a3ae30a0368a409628cd5d6;hb=34bd95b6c92b130c18e1a7867a4caca1bca516ad;hp=3935cc3cf2a3053a6d5b9278c041e35ac359d6ed;hpb=047c458fe956cb5142870d3095ae22215c55a100;p=h316.git diff --git a/programs/first-steps/src/muz.f b/programs/first-steps/src/muz.f index 3935cc3..339ebac 100644 --- a/programs/first-steps/src/muz.f +++ b/programs/first-steps/src/muz.f @@ -5,9 +5,9 @@ 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! ) + 10 FORMAT(3HASR) + 20 FORMAT(3HPTP) + 30 FORMAT(3HLPR) PAUSE GOTO 33 $0