MANDREL BEND.basú€Ðú€ÄëØú€<,4<;˜H<< TEXTSmBa`@lPd@lPHSMainËU¶) Tþ) TþÁXºÀÀU¶) U*xÀ*@' MANDREL BEND.bas PEN ON ? CAT(87); INPUT "INPUTDISTANCE OR DIAMETER",z ? "CALCULATE:" ? " DISTANCE DIAMETER" RECT 0,45,65,60 RECT 70,45,135,60 REPEAT y = (.1719*z)+.125 x = (z-.125)/.1719 UNTIL PEN(3)=1 IF PEN(1)<65 THEN AT 0,65: ? x ELIF PEN(1)>70 AND PEN(1)<135 AT 70,65: ? y AT 70,80:?"R= ";y/2 FI PEN OFF ENDNDD, 120: ? y;" R=";y/2 FI PEN OFF ENDD;y/2 FI PEN OFF ENDTHEN AT 0, 120: ? x ELIF PEN(1)>50 AND PEN(1)<105 ANDD PEN(2)>105 AT 55, 120: ? y FI PEN OFF END