10 LET @#A10=11
20 DELAY 60*60
30 LET A=16*@#A11+@#A12/16
40 U=200
41 V=1000
42 W=1800
43 
400 IF A>X GOTO 500
401 REM 180 TO 270
402 D=(A-W)*900/800+1800
403 GOTO 700
500 IF A>Y GOTO 600
501 REM 270 TO 360
502 D=(A-X)*900/800+2700
503 GOTO 700
600 REM > 360
601 D=(A-Y)*900/800+3600
700 REM NOW HAVE DEG X 10
705 D=D+1800
710 IF D<3600 GOTO 720
715 D=D-3600
720 E=D/10
725 F=MOD(D,10)
730 G=D+450
735 IF G<3600 GOTO 745
740 G=G-3600
745 H=G/10
750 I=MOD(G,10)
760 PRINT "GANTRY =",E,".",F
765 PRINT "DIAG.  =",H,".",I
770 GOTO 10