programs/first-steps/src/hui1.f

   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
  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 10000  GOTO 10000
  29        STOP
  30        END
  31 $0