| 1 | C -+-+-+-+-+ \ e H P E N U M . F T \ e -+-+-+-+-+\r |
| 2 | C\r |
| 3 | C E FORMAT NUMBER ROUTINE FOR REAL NUMBERS\r |
| 4 | C\r |
| 5 | SUBROUTINE ENUMBR (X,Y,H,N,A,C)\r |
| 6 | REAL X,Y, @ LOWER LEFT CORNER OF STARTING CHARACTER\r |
| 7 | * H, @ HEIGHT OF CHARACTERS\r |
| 8 | * N, @ NUMBER TO BE CONVERTED AND PLOTTED\r |
| 9 | * A @ ANGLE AT WHICH THE TEXT IS TO BE PRINTED\r |
| 10 | INTEGER C @ NUMBER THAT CONTROLS THE FORMAT OF THE MANTISSA\r |
| 11 | C\r |
| 12 | C\r |
| 13 | REAL MA @ MANTISSA OF THE NUMBER TO BE PLOTTED\r |
| 14 | INTEGER EX @ EXPONENT OF N\r |
| 15 | C\r |
| 16 | C\r |
| 17 | MA=ALOG10(N) @ TEMP EXPONENT\r |
| 18 | EX=INT(MA+SIGN(.009,MA)) @ ROUND TO INTEGER\r |
| 19 | MA=N/(10.**FLOAT(EX)) @ COMPUTE MANTISSA\r |
| 20 | CALL NUMBER (X,Y,H,MA,A,C)\r |
| 21 | CALL SYMBOL (999.,999.,H,1HE,A,1)\r |
| 22 | CALL NUMBER (999.,999.,H,EX,A,-1)\r |
| 23 | END\r |
| 24 | \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 |