XProfan

Declare t$,n&,s$:WindowTitle "  E I N G A B E":WindowStyle 24
Window 200,100 - 300,100:Font 2:nochmal:
Cls:t$=Time$(0):Print "\n  Aktuelle Zeit     = ";t$;" +";Left$(Time$(1),2);"s"
Print "\n  Alarmzeit [hh:mm] = ";:Input s$:CaseNot InStr(":",s$):Goto "nochmal"
WindowTitle "  A L A R M M O D U S  = E I N":Rept:
cls:Print "\n      Alarmzeit: ";s$:t$=Time$(0)
Print "\n  Aktuelle Zeit: ";t$;" +";Left$(Time$(1),2);"s"

If t$>=s$:Print "\n      A L A R M !   ";:Sound 1800,70

    Inc n&:Case n&>7:END': oder statt END zB. ExitWindows 0
    EndIf:WaitInput 1000:Case %key>0:End:Goto "Rept"