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

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
Commit	Line	Data
c08e22bb	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
437b3ba8	12	WRITE (1,60) K, NAME
c08e22bb	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.)
c08e22bb	28	STOP
	29	END
	30	$0