XProfan

Windowtitle "Eierformel"
'  Fun-Program (C)2009  by P. woodpecker, without Gewähr. Urheber see "Q:"!
declare t!,d!,t_wasser!,t_start!,t_innen!,sw%
T_Wasser!=99.8' for Seehöhe 130 m

while 1

    cls
    print ""
    print "        Empirische Formel, for a Frühstücks-egg perfect To kochen"
    print ""
    print "  Q: cook.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 = egg-Durchesser in mm, rather said: The Durchmesser"
    print "       of/ one Röhre, by the the egg straight yet durchginge."
    print ""
    print "   t_Wasser = kochend, on Meereshöhe 100°C, Hochgebirge 96,5°"
    print ""
    print "   t_Start  = egg-temperature at insert in kochendes waters:"
    print "              from fridge: 4°C, otherwise Raumtemperatur(~20°C)"
    print ""
    print "   t_Innen  = WEICHES EI: 62°C (Ovalbumin-Gerinnung guard yolk)"
    print "              HARTES  EI: 82°C (Eigelb stockt)"
    print "   Result:"
    print ""
    print "   t        = Kochdauer in mins. ex insert in plenty kochendes Wasser"
    print "   ----------------------------------------------------------------------"
    print
    Locate 24,4: print "Ei-Durchmesser in mm (mostly 40-50): ";:input d!
    Locate 25,4: print "Ei-temperature before: ";:input T_Start!
    Locate 26,4: print "Weich = 0,  hard = 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 "  One Straussen-egg???" : waitInput: break

        endif

    else

        print ""
        print "  so goes's not!" : waitInput : break

    endif

    print
    print "   +--------------------------------------------------------------------+"
    print "   !     your ";

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

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

            print "Ei needed very ";

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

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

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

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

                    endwhile

                    end

Windowstyle 24:Window Title "E I E R u H R":cls:font 2
Var alarmmin&=2:var alarmsec&=40'default 02:43
print "\n (end with ESC-Button)\n\n Please minutes and sec until Alarm prompt:"
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$=st$(ms&)+":"

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

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

Endproc