sw/rescue/lab8e_goettingen/disk2_11/rkb/paroff/haptst.ft

   1 C       PLOTTER TEST PROGRAMM
   2 C        ZUM EINSTELLEN VON ZERO UND DANN DER X UND Y EMPFINDLICHKEIT
   3 C
   4 C       X UND Y BEREICH AUF 0.25 V/CM
   5 C
   6 C
   7 10      WRITE (4,1)
   8 1       FORMAT (' ES GEHT LOS ')
   9         WRITE (4,2)
  10 2       FORMAT (' MIT ZERO ADJUST WAGEN AUF (0,0) EINSTELLEN!')
  11         CALL PLOTS (0.0095,0)
  12         WRITE (4,91)
  13         READ (4,92)
  14
  15         CALL XYPLOT (20.,20.,2)
  16         WRITE (4,3)
  17 3       FORMAT (' MIT DEN POTIS WAGEN AUF (20,20) EINSTELLEN')
  18         WRITE (4,91)
  19         CALL FACTOR (10.)
  20         READ (4,92)
  21         CALL XYPLOT (3.8,2.5,3)
  22         WRITE (4,4)
  23 4       FORMAT (' EINSTELLUNG FUER (38,25) PRUEFEN')
  24         WRITE (4,91)
  25         READ (4,92)
  26
  27         GOTO 10
  28 91      FORMAT (' WEITERMACHEN? ',$)
  29 92      FORMAT ()
  30         END
  31 \1a