X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=programs%2Ffirst-steps%2Fsrc%2Fhui1.f;h=431613f177ed97cc2c5b4b528133aedb1093548a;hb=437b3ba835f66625031f4711cd0a963be67ccf5a;hp=966889ade3b4ec2d07511054945e89d4c217b72c;hpb=008a15c07914ebf7f69e6243c4d2754c8f959a7f;p=h316.git

diff --git a/programs/first-steps/src/hui1.f b/programs/first-steps/src/hui1.f
index 966889a..431613f 100644
--- a/programs/first-steps/src/hui1.f
+++ b/programs/first-steps/src/hui1.f
@@ -9,7 +9,7 @@ C
        WRITE (1,40) NAME
        WRITE (1,50)
        DO 200 K=1,5
-       WRITE (1,60) K
+       WRITE (1,60) K, NAME
 200    CONTINUE     
 C
 10     FORMAT (35HHACHTI'S "HELLO-WORLD", 28.NOV.2004 )
@@ -25,7 +25,6 @@ C
        GOTO 300
 9999   WRITE(1,80)
 80     FORMAT (8HGOODBYE.)
-10000  GOTO 10000
        STOP
        END
 $0