1 C PHILIPP'S FILE PLOTTER 2010!
5 C 565 0.01 INCH, DATA IN CM
8 C 563 0.1 MM, DATA IN CM
13 0300 FORMAT (' FILE TO PLOT:')
14 0400 READ (4,600) NAME
15 0500 CALL USR(5,NAME,2,ERR)
16 0501 IF (NAME(1) .EQ. ' ') GO TO 200
22 1300 READ (5,1000) PEN,X,Y
23 1000 FORMAT (A3,2F13.5)
24 1500 IF (EOF.NE.0) GO TO 7000
35 2000 IF (PEN.EQ.'PU,') P=3
36 2100 IF (PEN.EQ.'PD,') P=2
42 7000 CALL XYPLOT(XMAX+1,0,-3);