Oh dang! I need a DeskTop Minute Timer for my revamped laptop:
Code: (Select All)
_Title "Minutes Timer"
Screen _NewImage(300, 33, 32)
Color &HFFAAAADD
Input "Enter the minutes to alarm "; minutes##
start## = Timer
startT$ = Time$
Do
Cls
Locate 1, 1: Print startT$; " Minute Timer Set:";
Print Using "####.##"; minutes##;
Locate 2, 1: Print Time$; " Minutes so far:";
Print Using "####.##"; MinutesPassed##(start##);
If minutes## <= MinutesPassed##(start##) Then
Beep
_Title "Press any to stop beeping..."
If Len(InKey$) Then System
End If
_Limit 10
Loop Until theCowsComeHome
Function MinutesPassed## (started##)
If started## > Timer Then started## = started## - 86400 ' midnight problem fix
MinutesPassed## = Int(100 * (Timer - started##) / 60) / 100
End Function
b = b + ...