| 1 | C -+-+-+-+-+ \ e H A E S T P . F T \ e -+-+-+-+-+\r |
| 2 | C\r |
| 3 | C OPEN THE X-Y PLOTTER\r |
| 4 | C\r |
| 5 | SUBROUTINE STPLT\r |
| 6 | C\r |
| 7 | INCLUDE HABRK.FI\r |
| 8 | INCLUDE HAECSZ.FI\r |
| 9 | C\r |
| 10 | CALL PLOTS (PLOTNO,0) @ X-Y PLOTTER OUTPUT\r |
| 11 | RETURN\r |
| 12 | END\r |
| 13 | \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 |