| 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 |