perm filename PLOTCA.F4[1,VDS] blob sn#010351 filedate 1970-10-02 generic text, type T, neo UTF8
00100	C	CALIBRATES THE CALCOMP PLOTTER
00200	C	MAKES A SQUARE 5 INCHES ON A SIDE
00300		INTEGER Z
00400		CALL PLOTS(Z)
00500		IF (Z.EQ.0) GO TO 1
00600		PAUSE 'PLOTTER...OK '
00700	1	CALL PLOT(1000,0,2)
00800		CALL PLOT(1000,1000,2)
00900		CALL PLOT(0,1000,2)
01000		CALL PLOT(0,0,2)
01100		PAUSE 'AGAIN? '
01200		GO TO 1
01300		END