projects / pdp8.git / blame
| Commit | Line | Data |
|---|---|---|
| 81e70d48 PH |
1 | C -+-+-+-+-+ \ e H A E S I Z . F T \ e -+-+-+-+-+\r |
| 2 | C\r | |
| 3 | C SWITCHES THE SIZE OF THE PLOTS FROM A4 TO A3 AND V.V.\r | |
| 4 | C CHANGES THE PLOTTER UNIT NUMBER PLOTNO\r | |
| 5 | C\r | |
| 6 | SUBROUTINE SIZEP\r | |
| 7 | INCLUDE HAECSZ.FI\r | |
| 8 | INCLUDE HAETTY.FI\r | |
| 9 | INCLUDE HAEPTI.FI\r | |
| 10 | C\r | |
| 11 | \f REAL COND\r | |
| 12 | EXTERNAL COND\r | |
| 13 | C\r | |
| 14 | REAL F\r | |
| 15 | INTEGER I\r | |
| 16 | C\r | |
| 17 | C\r | |
| 18 | IF (OPTION.EQ.1) GOTO 10 @ SUPER 8 FORMAT\r | |
| 19 | IF (OPTION.EQ.4) GOTO 30 @ A3 FORMAT\r | |
| 20 | IF (OPTION.EQ.5) GOTO 40 @ A4 FORMAT\r | |
| 21 | WRITE (TTO,1) XLEN\r | |
| 22 | READ (TTI,2) F\r | |
| 23 | XLEN=COND(F,F,XLEN)\r | |
| 24 | WRITE (TTO,3) YLEN\r | |
| 25 | READ (TTI,2) F\r | |
| 26 | YLEN=COND(F,F,YLEN)\r | |
| 27 | WRITE(TTO,4) PLOTNO @ LESE PLOTTER NUMMER EIN\r | |
| 28 | READ (TTI,5) I\r | |
| 29 | PLOTNO=NCOND(I,I,PLOTNO) @ ERLAUBE ERST MAL ALLE PLOTTER NUMMERN\r | |
| 30 | RETURN\r | |
| 31 | C\r | |
| 32 | C SUPER 8 FORMAT\r | |
| 33 | C\r | |
| 34 | 10 CONTINUE\r | |
| 35 | XLEN=34.\r | |
| 36 | YLEN=34.\r | |
| 37 | RETURN\r | |
| 38 | C\r | |
| 39 | C STANDART A3 FORMAT\r | |
| 40 | C\r | |
| 41 | 30 CONTINUE\r | |
| 42 | XLEN=34.\r | |
| 43 | YLEN=21.5\r | |
| 44 | RETURN\r | |
| 45 | C\r | |
| 46 | C STANDART A4 FORMAT\r | |
| 47 | C\r | |
| 48 | 40 XLEN=24.\r | |
| 49 | YLEN=15.\r | |
| 50 | RETURN\r | |
| 51 | C\r | |
| 52 | C\r | |
| 53 | 1 FORMAT (' LAENGE DER ABZISSE [CM] (',F5.1,') ? ',$)\r | |
| 54 | 2 FORMAT (F5.0)\r | |
| 55 | 3 FORMAT (' LAENGE DER ORDINATE [CM](',F5.1,') ? ',$)\r | |
| 56 | 4 FORMAT (' PLOTTER NUMMER? (',I2,') ? ',$)\r | |
| 57 | 5 FORMAT (I2)\r | |
| 58 | END\r | |
| 59 | \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 |