10 CLS:PRINT "Offset Program:":CLS:SET N
20 PRINT "Ax=";Ax;:INPUT Ax:PRINT "Ay=";Ay;:INPUT Ay:CLS
30 PRINT "Bx=";Bx;:INPUT Bx:PRINT "By=";By;:INPUT By:CLS
40 PRINT "Cx=";Cx;:INPUT Cx:PRINT "Cy=";Cy;:INPUT Cy:CLS:PRINT "Wait...";
50 Z=POL((Bx-Ax),(By-Ay)):BEARAB=90-Y:DISTAB=X
60 Z=POL((Cx-Ax),(Cy-Ay)):BEARAC=90-Y:DISTAC=X
70 DIFFBEAR=BEARAC-BEARAB
80 OFFSET=SIN(DIFFBEAR)*DISTAC:CHAIN=COS(DIFFBEAR)*DISTAC
90 IPE=SIN(BEARAB)*CHAIN+Ax:IPN=COS(BEARAB)*CHAIN+Ay
100 CLS:BEEP 0:PRINT "Offset:";ROUND(OFFSET,-5);TAB(16);"Chain:";ROUND(CHAIN,-5);TAB(32);"IPx:";ROUND(IPE,-5);TAB(48);"IPy:";ROUND(IPN,-5)
110 CLS:GOTO 40