XProfan

settimer 300						Tastzeit
clear warten%

whilenot warten%

    wmnotifyhandler
    waitinput

    if BN_CLICKED(buttonstop&)

        betrieb%=1
        steuerwort%=$9B
        settext tf&[3],in
        settext tf&[4],in
        settext tf&[5],in
        drawtext 300,650,Status = außer Betrieb
        warten%=1

    elseif BN_CLICKED(buttonunterbrechen&)

        drawtext 300,650,Status = unterbrochen
        steuerwort%=$9B
        settext tf&[3],in
        settext tf&[4],in
        settext tf&[5],in
        declare ubr%

        whilenot ubr%

            if BN_CLICKED(buttonfortführen&)

                drawtext 300,650,Status = in Betrieb
                ubr%=1

            endif

        wend

    ElseIf getfocus(vBox&)

        beep
        snum%=@GetCurSel(vbox&)
        hilfe$=@GetString$(vbox&,snum%)
        settext edit&[1],mid$(hilfe$,3,3)
        vtaste%[10]=val(mid$(hilfe$,3,3))
        settext edit&[2],mid$(hilfe$,9,2)
        vbahnhof%[10]=val(mid$(hilfe$,9,2))
        aktualisieren
        setfocus(buttonschalten&)

    elseif BN_CLICKED(buttonschalten&)

        snum%=1

        whilenot snum% > 4000

            settext buttonschalten&,übernommen
            inc snum%

        wend

        aktualisieren
        settext buttonschalten&,schalten
        warten%=1

    elseif %wmTimer

        warten% = 1

    endif

wend