| 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 |
| 12 | WRITE (1,60) K, NAME |
| 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.) |
| 28 | STOP |
| 29 | END |
| 30 | $0 |