# TITLE:  Convert Top-Heavy Fraction to Mixed
# AUTHOR: Roy F.A. Maclean 
# EMAIL:  rfamgm at gmail
# WEB:    http://www.spiderpixel.co.uk/caspro        
# DATE:   03Jan2000
# MAKE:   CASIO
# MODEL:  7000G or other models without inbuilt fraction facilities
# SIZE:   74
# NOTES:  Example: to convert 21/5
#	then enter 21 and 5 at the prompts

# __________________________________________

Lbl 0
"NUM"?->N
"DEN"?->D
N<=D=>Goto 0
"ANS WHOLE"
Int (N/D)->W_
"ANS NUM"
N-WD_
"ANS DEN"
D

# __________________________________________