Program READIN logical*1 done data done/.false./ c c Author: R N Caffin c c Test routine for Plotter, Plot Library and PL Handler c This plots a simple grid and then allows you to read positions c from the plotter pen back to the program. c type *,'Reply H please' call init() !Basic set-up call select(1) call scale(-12.,+12.,-12.,+12.) !Scale call axis(0., 0., 0., 0.) c call select(0) !Unload the pen call jump(0.,0.) !Clear access to the holder rewind 9 pause 'Load the fiber optic sight in the pen holder' type *,'When the bell sounds, move the pen with the plotter cursor' type *,'keys till the fiber optic sight is over the point,' type *,'then press the plotter ENTER key.' type *,'To end the logging, enter the same point twice.' 100 call digitz(x,y,done) type * type *,'X=',x,' Y=',y if(.not.done)goto 100 pause 'Unload the fiber optic sight' c call home call ploff stop end