Const UpArrowHit%
= 18432 Const LeftArrowHit%
= 19200 Const RightArrowHit%
= 19712 Const DownArrowHit%
= 20480 ' for the highlighted option in the GetTimeAmount SUB
Sub WhatDateAfterElapsedTime
HaltAndDisplay% = 0: Highlight% = 0: yPos% = 0: UserCommand$ = "": A$ = ""
xPos% = 0: MaxOption% = 0: SelectedAnOption% = 0
HaltAndDisplay% = TRUE%: Highlight% = 1: yPos% = 13: MaxOption% = 8: SelectedAnOption% = FALSE%
If HaltAndDisplay%
= TRUE%
Then A$ = "Time Calculator Menu": xPos% = Center(A$)
Print "---- ---------- ----"
A$ = "": A$ = "1.) Find How Long From Now"
A$ = "": A$ = "Until A Selected Time"
A$ = "": A$ = "2.) Find How Long It Has Been Since"
A$ = "": A$ = "A Selected Time Has Passed"
A$ = "": A$ = "3.) Find The Date And Time It Will Be After"
A$ = "": A$ = "A Selected Amount Of Time Has Passed"
A$ = "": A$ = "4.) Add Two Elapsed Times"
A$ = "": A$ = "5.) Subtract One Elapsed Time From Another One"
A$ = "": A$ = "6.) Multiply An Elapsed Time By A Constant"
A$ = "": A$ = "7.) Divide An Elapsed Time By A Constant"
A$ = "": A$ = "8.) Exit"
HaltAndDisplay% = FALSE%
Case UpArrowKey$
, LeftArrowKey$
Highlight% = highlightedoption - 1
If Highlight%
= 0 Then Highlight%
= MaxOption%
HaltAndDisplay% = TRUE%
Case DownArrowKey$
, rightarrowkey$
Highlight% = Highlight% + 1
If highlightedoption
> maxoption
Then Highlight%
= 1 HaltAndDisplay% = TRUE%
SelectedAnOption% = TRUE%
Case "1", "2", "3", "4", "5", "6", "7" Highlight%
= Val(UserCommand$
) SelectedAnOption% = TRUE%
If SelectedAnOption%
= TRUE
Then Call FromNowUntil: SelectedAnOption%
= FALSE%
Call HowLongSince: SelectedAnOption%
= FALSE%
Call WhatDateAfterElapsedTime: SelectedAnOption%
= FALSE%
Call AddElapsedTimes: SelectedAnOption%
= FALSE%
Call SubtractElapsedTimes: SelectedAnOption%
= FALSE%
Call Multiply: SelectedAnOption%
= FALSE%
Call Divide: SelectedAnOption%
= FALSE%
_Display ' <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< added this and next