programs/first-steps/src/hui2.f

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