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