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