X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=programs%2Ffirst-steps%2Fsrc%2Fmuz.f;h=339ebaceed6962d12a3ae30a0368a409628cd5d6;hb=e7ba200143fb8ce2faf4757262994c6af63e42e9;hp=3935cc3cf2a3053a6d5b9278c041e35ac359d6ed;hpb=c08e22bbb226696a64764be9b466a02a3ab0d93f;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