XProfan

Windowtitle "Eierformel"
'  Fun-Programm (C)2009  by P. Specht, ohne Gewähr. Urheber siehe "Q:"!
declare t!,d!,t_wasser!,t_start!,t_innen!,sw%
T_Wasser!=99.8' per Seehöhe 130 m

while 1

    cls
    print ""
    print "        Empirische Formel, um ein Frühstücks-Ei perfekt zu kochen"
    print ""
    print "  Q: kochen.exp.univie.ac.at/ostern_Ei.html"
    print "  +--------------------------------------------------------------------+"
    print "  ! Formel: t = 0.0016*d^2*ln(2*(t_Wasser-t_Start)/(t_Wasser-t_Innen)) !"
    print "  +--------------------------------------------------------------------+"
    print ""
    print "   d = Ei-Durchesser in mm, besser gesagt: Der Durchmesser"
    print "       einer Röhre, durch die das Ei gerade noch durchginge."
    print ""
    print "   t_Wasser = kochend, auf Meereshöhe 100°C, Hochgebirge 96,5°"
    print ""
    print "   t_Start  = Ei-Temperatur beim Einlegen in kochendes Wasser:"
    print "              Aus Kühlschrank: 4°C, sonst Raumtemperatur(~20°C)"
    print ""
    print "   t_Innen  = WEICHES EI: 62°C (Ovalbumin-Gerinnung schützt Dotter)"
    print "              HARTES  EI: 82°C (Eigelb stockt)"
    print "   Ergebnis:"
    print ""
    print "   t        = Kochdauer in Min. ab Einlegen in viel kochendes Wasser"
    print "   ----------------------------------------------------------------------"
    print
    Locate 24,4: print "Ei-Durchmesser in mm (meist 40-50): ";:input d!
    Locate 25,4: print "Ei-Temperatur vorher: ";:input T_Start!
    Locate 26,4: print "Weich = 0,  Hart = 1: ";:input sw%
    T_Innen! = 62*(sw%=0) + 85*(sw%=1)

    if (T_Wasser!-T_Innen!)>0

        if (2*(T_Wasser!-T_Start!)/(T_Wasser!-T_Innen!))>0

            T! = 0.0016*d!*d!*ln(2*(T_Wasser!-T_Start!)/(T_Wasser!-T_Innen!))

        else

            Print ""
            Print "  Ein Straussen-Ei???" : waitInput: break

        endif

    else

        print ""
        print "  So geht's nicht!" : waitInput : break

    endif

    print
    print "   +--------------------------------------------------------------------+"
    print "   !     Ihr ";

    if sw%=0: print "weiches ";:endif

        if sw%=1: print "hartes ";:endif

            print "Ei necessario genau ";

            if int(t!)>0: print int(T!);" Minuten";:endif

                if (int(t!)>0) AND (int(t!)<t!):print " und ";:endif

                    if (int(t!)<t!):print int((t!-int(t!))*60+.5); " Sekunden!";:endif

                        print tab(73);"!"
                        print "   +--------------------------------------------------------------------+"
                        beep
                        WaitInput

                    endwhile

                    end

Windowstyle 24:WindowTitle "E I E R U H R":cls:font 2
Var alarmmin&=2:var alarmsec&=40'default 02:43
print "\n (Ende mit ESC-Taste)\n\n Bitte Minuten und Sekunden bis zum Alarm eingeben:"
print "\n Alarmminuten = ";:input alarmmin&
print "\n Alarmsekunden= ";:input alarmsec&
Window 150,20:cls rgb(220,200,255)
var az&=alarmmin&*60000+alarmsec&*1000
Declare ti&,tn&:var tm&=&gettickcount
Repeat :tn&=ti&:ti&=&gettickcount-tm&

if ti&>tn&:Windowtitle "Laufzeit: "+ms2minsec(az&-ti&)

    else :waitinput 900:case ti&>az&:beep

endif

until %key=27

End

Proc ms2minsec :parameters ms&:declare s&,w$,ms$,tmp$

w$="00:00":s&=ms&/1000:ms&=s&/60:tmp$=str$(ms&)+":"

If len(tmp$)=2 :w$="0"+tmp$ :else :w$=tmp$ :endif

    s&=s&-ms&*60:case s&<10:w$="0"
    Return @str$(s&)

Endproc