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
Source: geocities.com/renwand
