var dir : string
var choice : int
put "Enter full path to macro you wish to run: " ..
get dir : *

proc SysTime
    loop
        loop
            var times := Time.Date
            var minutes : array 0 .. 4 of string
            for i : 14 .. 18
                minutes (i - 14) := times (i)
            end for
            exit when minutes (0) = "2" and minutes (1) = "0" and minutes (3) = "5" and minutes (4) = "5"
        end loop
        if not Sys.Exec (dir) then
            put "Macro call failed"
            put "Error: ", Error.LastMsg
        else
            put "Macro call complete"
        end if
    end loop
end SysTime

proc UserTime
    var timeInput : string
    var times : string
    var minutes : array 0 .. 4 of string
    put "Enter the time you wish to use, formatting is critical. If you want to execute a macro at x:01:55 then enter 0155. 01 being the minutes and 55 being the seconds, Enter the time now: " ..
    get timeInput
    loop
        loop
            times := Time.Date
            for i : 14 .. 18
                minutes (i - 14) := times (i)
            end for
            exit when minutes (0) = timeInput (1) and minutes (1) = timeInput (2) and minutes (3) = timeInput (3) and minutes (4) = timeInput (4)
        end loop
        if not Sys.Exec (dir) then
            put "Macro call failed"
            put "Error: ", Error.LastMsg
        else
            put "Macro call complete"
        end if
    end loop
end UserTime

put "Would you like to input your own time to run a macro, Or would you use the predefined x:21:55?"
put "(1) Use my own"
put "(2) Predefined"
get choice

if choice = 1 then
    UserTime
elsif choice = 2 then
    SysTime
end if