1 C PLOTTER TEST PROGRAMM
3 C ZUM EINSTELLEN VON ZERO UND DANN DER X UND Y EMPFINDLICHKEIT
5 C X UND Y BEREICH AUF 0.25 V/CM
9 1 FORMAT (' PLOTTER NUMMER 1 ODER 2 ? '$)
12 2 FORMAT (' MIT ZERO ADJUST WAGEN AUF (0,0) EINSTELLEN!')
16 IF (ANS.EQ.1HN) GOTO 20
17 CALL XYPLOT (20.,20.,2)
19 3 FORMAT (' MIT DEN POTIS WAGEN AUF (20,20) EINSTELLEN')
21 CXCX CALL FACTOR (10.)
23 IF (ANS.EQ.1HN) GOTO 20
25 CALL XYPLOT (3.8,2.5,3)
27 4 FORMAT (' EINSTELLUNG FUER (38,25) PRUEFEN')
30 IF (ANS.EQ.1HN) GOTO 20
38 91 FORMAT (' WEITERMACHEN? ',$)