X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=programs%2Ffirst-steps%2Fsrc%2Fhui1.f;h=431613f177ed97cc2c5b4b528133aedb1093548a;hb=e7ba200143fb8ce2faf4757262994c6af63e42e9;hp=966889ade3b4ec2d07511054945e89d4c217b72c;hpb=c08e22bbb226696a64764be9b466a02a3ab0d93f;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