XProfan

Déclarer t$,n&,s$:Titre de la fenêtre "  E I N G A B E":Fenêtre Style 24
Fenêtre 200,100 - 300,100:Font 2:nochmal:
Cls:t$=Time $(0):Imprimer "\n  Aktuelle Zeit     = ";t$;" +";Left $(Time $(1),2);"s"
Imprimer "\n  Alarmzeit [hh:mm] = ";:Contribution s$:Casenote InStr(»,s$):Goto "nochmal"
Titre de la fenêtre "  A L A R M M O D U S  = E I N":Rept:
cls:Imprimer "\n      Alarmzeit: ";s$:t$=Time $(0)
Imprimer "\n  Aktuelle Zeit: ";t$;" +";Left $(Time $(1),2);"s"

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

    Inc n&:Cas n&>7:FIN': ou bien statt FIN zB. ExitWindows 0
    EndIf:WaitInput 1000:Cas %clé>0:Fin:Goto "Rept"