c08e22bb |
1 | CHACHTI GOES FORTAN - AND BACK :-) |
2 | C |
3 | DIMENSION NAME(10) |
4 | 100 WRITE (1,10) |
5 | WRITE (1,20) |
6 | 300 READ (1,30) NAME |
7 | IF (NAME(1).EQ.(2H )) GO TO 1000 |
8 | IF (NAME(1).EQ.(2HXX)) GO TO 9999 |
9 | WRITE (1,40) NAME |
10 | WRITE (1,50) |
11 | DO 200 K=1,5 |
437b3ba8 |
12 | WRITE (1,60) K, NAME |
c08e22bb |
13 | 200 CONTINUE |
14 | C |
15 | 10 FORMAT (35HHACHTI'S "HELLO-WORLD", 28.NOV.2004 ) |
16 | 20 FORMAT (21HWIE HEISST DU? NAME: ) |
17 | 30 FORMAT (10A2) |
18 | 40 FORMAT (18HNICE TO MEET YOU, ,10A2, 1H!) |
19 | 50 FORMAT (44HNOW I WILL LET YOU ALONE. HAVE SOME FUN :-) ) |
20 | 60 FORMAT (I3,2H: ,10A2,17HIST EIN GUTER :-)) |
21 | 70 FORMAT (24HOH! DEN NAMEN BITTE! -->) |
22 | C |
23 | GOTO 100 |
24 | 1000 WRITE (1, 70) |
25 | GOTO 300 |
26 | 9999 WRITE(1,80) |
27 | 80 FORMAT (8HGOODBYE.) |
c08e22bb |
28 | STOP |
29 | END |
30 | $0 |