FRACTION CALC.bas d h=f/d i = g/d FI p=h/2 q=i/2 r=h/3 s=i/3 j=(f/g)-(INT (f/g)) k=i*j ? "Raw = ";f;" / ";g ? "Reduced = ";h;" / ";i ? "/ 2 =";p;" / ";q ? "/ 3 =";r;" / ";s ? "Whole = ";INT (f/g); " : "; k ;" / "; i ? "Decimal in UserFile 'Fraction'= ";h/i OPEN "Fraction" FOR OUTPUT AS #1 ? #1; h/i END