PAPER ROLLS.basœz¶ |æg(œz=¹‡>o+>xq•TEXTSmBa`@°@¤@°@gHSMain[¤aô'hTt°¦TtP¢[š[šaô'hTˆd[šcä' Paper Rolls.bas ? CAT(87);"1 - Weight" ? "2 - Roll Diameter" ? "3 - Roll Width" ? "4 - Core Diameter" INPUT "Solve for: ";x IF x=1 INPUT "Enter Roll Dia, Roll Width & Core Dia: ";d,w,c z=(pi*POW(d/2,2)*w-pi*POW(c/2,2)*w)*.02896 y=ROUND(z,1)-5 FI IF x=2 INPUT "Enter Roll Width, Weight & Core Dia: ";w,p,c z=2*SQR((POW(c/2,2)*pi*w+(p/.02896))/(pi*w)) y=ROUND(z,1) FI IF x=3 INPUT "Enter Roll Dia, Weight & Core Dia: ";d,p,c z=(p/.02896)/(POW(d/2,2)*pi-POW(c/2,2)*pi) y=ROUND(z,1) FI IF x=4 INPUT "Enter Roll Dia, Roll Width & Weight: ";d,w,p z=2*SQR((POW(d/2,2)*pi*w-(p/.02896))/(pi*w)) y=ROUND(z,1) FI ? y FI ? y