projects
/
h316.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
*** empty log message ***
[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