C PLOTTER TEST PROGRAMM INTEGER PLOTER 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 (' PLOTTER NUMMER 1 ODER 2 ? '$) READ (4,89) PLOTER WRITE (4,2) 2 FORMAT (' MIT ZERO ADJUST WAGEN AUF (0,0) EINSTELLEN!') CALL PLOTS (PLOTER,0) WRITE (4,91) READ (4,92) ANS IF (ANS.EQ.1HN) GOTO 20 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) ANS IF (ANS.EQ.1HN) GOTO 20 CALL XYPLOT (3.8,2.5,3) WRITE (4,4) 4 FORMAT (' EINSTELLUNG FUER (38,25) PRUEFEN') WRITE (4,91) READ (4,92) ANS IF (ANS.EQ.1HN) GOTO 20 CALL PLEXIT GOTO 10 20 CONTINUE CALL PLEXIT STOP 89 FORMAT (I1) 91 FORMAT (' WEITERMACHEN? ',$) 92 FORMAT (A1) END