Dim Wert(26)
Do
  Do
    Input Dez
    S.gn%=Sgn(Dez)
    Vorkomma%=Int(Abs(Dez))
    Wert(0)=Frac(Abs(Dez))
    Exit If Wert(0)>0
    Print Vorkomma%*S.gn%;"/1"
  Loop
  T=Timer
  Genau=10^(-11)
  I%=0
  Do
    Zahl%=1
    Wert(I%+1)=Frac(1/Wert(I%))
    Inc I%
    Merk%=I%
    Repeat
      Dec I%
      Zahl%=Int(Zahl%/Wert(I%)+0.5)
    Until I%=0
    Nenner%=Zahl%
    Zaehler%=Int(Zahl%*Wert(I%)+0.5)
    Exit If Abs(Zaehler%/Nenner%-Wert(0))-Genau<=0
    I%=Merk%
  Loop
  If Vorkomma%=0
    If S.gn%<0
      Print "  = -";
    Else
      Print "  = ";
    Endif
    Print Zaehler%;"/";Nenner%
  Else
    Print "  = ";Vorkomma%*S.gn%'Zaehler%;"/";Nenner%,"= ";Vorkomma%*S.gn%*Nenner%+Zaehler%;"/";Nenner%
  Endif
  T=Timer-T
  Print T/200;" sec"
  Print
  Print " Abbruch: Undo"
  Print " Weiter:  sonst."
  E=Inp(2)
  Exit If E=225 !      UNDO Taste
  Cls
Loop
Edit