C PLOTTER TEST PROGRAMM C ZUM EINSTELLEN VON ZERO UND DANN DER X UND Y EMPFINDLICHKEIT C C X UND Y BEREICH AUF 0.25 V/CM C C 10 WRITE (4,1) 1 FORMAT (' ES GEHT LOS ') WRITE (4,2) 2 FORMAT (' MIT ZERO ADJUST WAGEN AUF (0,0) EINSTELLEN!') CALL PLOTS (0.0095,0) WRITE (4,91) READ (4,92) CALL XYPLOT (20.,20.,2) WRITE (4,3) 3 FORMAT (' MIT DEN POTIS WAGEN AUF (20,20) EINSTELLEN') WRITE (4,91) CALL FACTOR (10.) READ (4,92) CALL XYPLOT (3.8,2.5,3) WRITE (4,4) 4 FORMAT (' EINSTELLUNG FUER (38,25) PRUEFEN') WRITE (4,91) READ (4,92) GOTO 10 91 FORMAT (' WEITERMACHEN? ',$) 92 FORMAT () END