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