sw/rescue/lab8e_goettingen/disk2_11/rka/paroff/hapts0.ft

   1 C       PLOTTER TEST PROGRAMM
   2         INTEGER PLOTER
   3 C        ZUM EINSTELLEN VON ZERO UND DANN DER X UND Y EMPFINDLICHKEIT
   4 C
   5 C       X UND Y BEREICH AUF 0.25 V/CM
   6 C
   7 C
   8 10      WRITE (4,1)
   9 1       FORMAT (' PLOTTER NUMMER 1 ODER 2 ? '$)
  10         READ (4,89) PLOTER
  11         WRITE (4,2)
  12 2       FORMAT (' MIT ZERO ADJUST WAGEN AUF (0,0) EINSTELLEN!')
  13         CALL PLOTS (PLOTER,0)
  14         WRITE (4,91)
  15         READ (4,92) ANS
  16         IF (ANS.EQ.1HN) GOTO 20
  17         CALL XYPLOT (20.,20.,2)
  18         WRITE (4,3)
  19 3       FORMAT (' MIT DEN POTIS WAGEN AUF (20,20) EINSTELLEN')
  20         WRITE (4,91)
  21         CALL FACTOR (10.)
  22         READ (4,92) ANS
  23         IF (ANS.EQ.1HN) GOTO 20
  24
  25         CALL XYPLOT (3.8,2.5,3)
  26         WRITE (4,4)
  27 4       FORMAT (' EINSTELLUNG FUER (38,25) PRUEFEN')
  28         WRITE (4,91)
  29         READ (4,92) ANS
  30         IF (ANS.EQ.1HN) GOTO 20
  31
  32         CALL PLEXIT
  33         GOTO 10
  34 20      CONTINUE
  35         CALL PLEXIT
  36         STOP
  37 89      FORMAT (I1)
  38 91      FORMAT (' WEITERMACHEN? ',$)
  39 92      FORMAT (A1)
  40         END
  41 \1a