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