| 1 | C -+-+-+-+-+ \ e H A E L O G . F T \ e -+-+-+-+-+\r |
| 2 | C\r |
| 3 | C LIEFERT NEGATIVE ZAHL FALLS NUM KEINE ZWEIER POTENZ IST\r |
| 4 | C ANDERNFALLS WIRD LOG2 VON NUM GELIEFERT.\r |
| 5 | C\r |
| 6 | INTEGER FUNCTION LOG2(NUM)\r |
| 7 | INTEGER NUM\r |
| 8 | C\r |
| 9 | REAL N\r |
| 10 | C\r |
| 11 | LOG2=0\r |
| 12 | IF (NUM.EQ.0) RETURN\r |
| 13 | N=NUM/2.\r |
| 14 | 10 LOG2=LOG2+1\r |
| 15 | IF (N.LT.1) GOTO 20 @ KEINE ZWEIER POTENZ\r |
| 16 | IF (N.EQ.1) RETURN\r |
| 17 | N=N/2.\r |
| 18 | GOTO 10\r |
| 19 | 20 LOG2=1-LOG2\r |
| 20 | RETURN\r |
| 21 | END\r |
| 22 | \1a\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0 |