Große Umstellung. Viel hinzugefügt.

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

diff --git a/programs/first-steps/src/hui1.f b/programs/first-steps/src/hui1.f
index 966889ade3b4ec2d07511054945e89d4c217b72c..431613f177ed97cc2c5b4b528133aedb1093548a 100644 (file)
--- 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