Fixed dependencies in Makefile

[h316.git] / programs / first-steps / src / hui2.f

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