;Fraction
;© Bengt and Jefa
; "->" is the STO>-button
;
;	ex.	If you type in 102/153 the program will output 2/3
Prgm1:JEFA
:ClrHome
:Disp "FRACTION V0.81"
:Input T
:1->A
:1->B
:Lbl A
:If T=(A/B)
:Goto R
:B+1->B
:If B=100
:A+1->A
:If B=100
:1->B
:If A=100
:Disp "NO ANSWER"
:If A=100
:Stop
:Goto A
:Lbl R
:Disp A
:Disp "               -"
:Disp B

[end]