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 real*8 plotter,tttype integer colour common /ttid/tttype,color common/plotid/plotter common/zzhv/hv,plonsw,flh,flv,flsh,flsv byte hv,plonsw,flh,flv,flsh,flsv INTEGER HP,TT COMMON/HPTTNO/HP,TT DATA HP/20/ DATA TT/12/ integer q common/TEMP/q data q/0/ C ASSIGN 'TT' TO TT: (INTERACTIVE DEVICE). CALL ASSIGN (TT,'TT:',3) write(tt,10) 10 format(x,'This will only work on the plotter') call init() !Basic set-up IF (HV)GOTO 999 if (q.ne.0) goto 999 call PLON(1) if (plonsw.eq..FALSE.) goto 999 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 hp pause 'Load the fiber optic sight in the pen holder' write(tt,20) 20 format(x,'When the bell sounds, move the pen with the plotter cursor', 1 /,X,'keys till the fiber optic sight is over the point,' 2 /,X,'then press the plotter ENTER key.' 3 /,X,'To end the logging, enter the same point twice.') 100 call digitz(x,y,done) write(tt,110)x,y 110 format(/,x,'X=',f13.7,' Y=',f13.7,/) if(.not.done)goto 100 pause 'Unload the fiber optic sight' c call home call ploff 999 call exit end