Time Calculator

[Jaze]

Code: QB64: [Select]

1. _TITLE "Time Calculator" ' I do wonder if I should start planning before I begin to code...
2. 'Author: Jaze James McAskill (mcaskilljaze@gmail.com)
3. 'License: Freeware if anyone can remember what that is.
4. '            All I ask is that if you copy part or all
5. '           of this code you keep my name on it
6.  
7. CONST TRUE% = 1
8. CONST FALSE% = -1
9. CONST AM% = -1
10. CONST PM% = 1
11.  
12.  
13. WIDTH 80, 50
14. _FULLSCREEN
15.  
16.  
17. DIM SHARED LeftArrowKey$: LeftArrowKey$ = CHR$(0) + "K"
18. DIM SHARED RightArrowKey$: RightArrowKey$ = CHR$(0) + "M"
19. DIM SHARED UpArrowKey$: UpArrowKey$ = CHR$(0) + "H"
20. DIM SHARED DownArrowKey$: DownArrowKey$ = CHR$(0) + "P"
21. CONST UpKeyHit% = 18432
22. CONST DownKeyHit% = 20480
23. CONST LeftKeyHit% = 19200
24. CONST RightKeyHit% = 19712
25.  
26.  
27. CLS
28. LOCATE 20, 1
29.  
30.  
31. CALL Menu
32.  
33. FUNCTION GetDateAndTime$ (Header$)
34.   HaltAndDisplay% = 0: UserCommand$ = "": HeaderCopy$ = "": Instructions$ = "": HighlightedOption% = 0
35.   yPos% = 0: xPos% = 0: GDTMonth% = 0: GDTDay% = 0: GDTYear% = 0: O% = 0: OP$ = "": MaxOption% = 0
36.   GDTHours% = 0: GDTMinutes% = 0: GDTSeconds% = 0: GDTRtn$ = ""
37.   MW$ = "": SomeKey% = 0: TimerStarted% = 0: FirstTime% = 0: Increment% = 0: TimeElapsed% = 0
38.  
39.   HaltAndDisplay% = TRUE: yPos% = 15: xPos% = 17: HighlightedOption% = 1: MaxOption% = 6
40.   GDTMonth% = VAL(LEFT$(DATE$, 2)): GDTDay% = VAL(MID$(DATE$, 4, 2)): GDTYear% = VAL(RIGHT$(DATE$, 4))
41.   GDTHours% = VAL(LEFT$(TIME$, 2)): GDTMinutes% = VAL(MID$(TIME$, 4, 2)): GDTSeconds% = VAL(RIGHT$(TIME$, 2))
42.   TimerStarted% = FALSE%: Increment% = 1
43.   DO
44.     UserCommand$ = INKEY$
45.     IF HaltAndDisplay% = TRUE% THEN
46.       xPos% = 17: yPos% = 15
47.       HeaderCopy$ = Header$
48.       COLOR 14, 1: CLS
49.       COLOR 15
50.       IF LEN(Header$) >= 50 THEN
51.         LOCATE 3, 1: PRINT LongCenter(HeaderCopy$, 50, FALSE%)
52.       ELSE LOCATE 3, Center(HeaderCopy$): PRINT HeaderCopy$: END IF
53.       COLOR 12, 1: Instructions$ = "Use the arrow keys to select the date and time - Push "
54.       Instructions$ = Instructions$ + CHR$(34) + "X" + CHR$(34) + " to exit to the system - Push [ESC] to reset - Push [ENTER] to confirm"
55.       LOCATE 46, 1: PRINT LongCenter$(Instructions$, 50, FALSE)
56.  
57.       LOCATE yPos% - 5, xPos%: IF HighlightedOption% = 1 THEN
58.       COLOR 10, 0: ELSE COLOR 14, 1: END IF: PRINT "Month"
59.       MW$ = "": MW$ = MonthWord$(GDTMonth% - 1): COLOR 14, 1
60.       LOCATE yPos% - 2, CenterBetween(MW$, xPos% - 3, xPos% + 8): PRINT MW$
61.       MW$ = "": MW$ = MonthWord$(GDTMonth%): COLOR 10, 0
62.       LOCATE yPos%, CenterBetween(MW$, xPos% - 3, xPos% + 8): PRINT MW$
63.       MW$ = "": MW$ = MonthWord$(GDTMonth% + 1): COLOR 14, 1
64.       LOCATE yPos% + 2, CenterBetween(MW$, xPos% - 3, xPos% + 8): PRINT MW$
65.  
66.       LOCATE yPos% - 5, xPos% + 20: IF HighlightedOption% = 2 THEN
67.       COLOR 10, 0: ELSE COLOR 14, 1: END IF: PRINT "Day"
68.       COLOR 14, 1: O% = 0: O% = CorrectDay(GDTMonth%, GDTDay% - 1, GDTYear%)
69.       OP$ = "": OP$ = S$(O%) + Suffix$(O%)
70.       LOCATE yPos% - 2, CenterBetween(OP$, xPos% + 19, xPos% + 22): PRINT OP$
71.       COLOR 10, 0: OP$ = "": O% = 0: OP$ = S$(GDTDay%) + Suffix$(GDTDay%)
72.       LOCATE yPos%, CenterBetween(OP$, xPos% + 19, xPos% + 22): PRINT OP$
73.       COLOR 14, 1: O% = 0: O% = CorrectDay(GDTMonth%, GDTDay% + 1, GDTYear%)
74.       OP$ = "": OP$ = S$(O%) + Suffix$(O%)
75.       LOCATE yPos% + 2, CenterBetween(OP$, xPos% + 19, xPos% + 22): PRINT OP$
76.  
77.       LOCATE yPos% - 5, xPos% + 40: IF HighlightedOption% = 3 THEN
78.       COLOR 10, 0: ELSE COLOR 14, 1: END IF: PRINT "Year"
79.       COLOR 14, 1: O% = 0: O% = GDTYear% - 1: IF O% = -1 THEN O% = 9999
80.       LOCATE yPos% - 2, CenterBetween(S$(O%), xPos% + 40, xPos% + 44): PRINT S$(O%)
81.       COLOR 10, 0: LOCATE yPos%, CenterBetween(S$(GDTYear%), xPos% + 40, xPos% + 44): PRINT S$(GDTYear%)
82.       COLOR 14, 1: O% = 0: O% = GDTYear% + 1: IF O% > 9999 THEN O% = 0
83.       LOCATE yPos% + 2, CenterBetween(S$(O%), xPos% + 40, xPos% + 44): PRINT S$(O%)
84.  
85.       COLOR 10, 1: a$ = "": a$ = WrittenOutDate$(GDTMonth%, GDTDay%, GDTYear%) + " at " + ClockString$(GDTHours%, GDTMinutes%, GDTSeconds%)
86.       LOCATE yPos% + 9, Center(a$): PRINT a$
87.  
88.       yPos% = yPos% + 21
89.  
90.       IF HighlightedOption% = 4 THEN
91.       COLOR 10, 0: ELSE COLOR 14, 1: END IF
92.       LOCATE yPos% - 5, xPos%: PRINT "Hours"
93.       LOCATE yPos% - 2, xPos% + 2
94.       COLOR 14, 1:
95.       IF GDTHours% - 1 = -1 THEN
96.         PRINT "11"
97.       ELSEIF GDTHours% - 1 = 0 THEN PRINT "12"
98.       ELSEIF GDTHours% - 1 > 0 AND GDTHours% - 1 <= 12 THEN PRINT S$(GDTHours% - 1)
99.       ELSEIF GDTHours% - 1 >= 13 AND GDTHours% - 1 <= 23 THEN PRINT S$(GDTHours% - 1 - 12): END IF
100.       LOCATE yPos%, xPos% + 2: COLOR 10, 0
101.       IF GDTHours% = 0 THEN
102.         PRINT "12"
103.       ELSEIF GDTHours% > 0 AND GDTHours% <= 12 THEN PRINT S$(GDTHours%)
104.       ELSEIF GDTHours% > 12 AND GDTHours% < 24 THEN PRINT S$(GDTHours% - 12): END IF
105.       LOCATE yPos% + 2, xPos% + 2: COLOR 14, 1
106.       IF GDTHours% + 1 >= 1 AND GDTHours% + 1 < 13 THEN
107.         PRINT S$(GDTHours% + 1)
108.       ELSEIF GDTHours% + 1 >= 13 AND GDTHours% + 1 <= 24 THEN PRINT S$(GDTHours% + 1 - 12): END IF
109.  
110.       IF HighlightedOption% = 5 THEN
111.       COLOR 10, 0: ELSE COLOR 14, 1: END IF
112.       LOCATE yPos% - 5, xPos% + 16: PRINT "Minutes"
113.       LOCATE yPos% - 2, xPos% + 18: COLOR 14, 1
114.       IF GDTMinutes% - 1 = -1 THEN
115.         PRINT "59"
116.       ELSEIF GDTMinutes% - 1 >= 0 AND GDTMinutes% - 1 <= 59 THEN
117.         IF GDTMinutes% - 1 < 10 THEN PRINT "0";:
118.         PRINT S$(GDTMinutes% - 1)
119.       END IF
120.       LOCATE yPos%, xPos% + 18: COLOR 10, 0: IF GDTMinutes% < 10 THEN PRINT "0";
121.       PRINT S$(GDTMinutes%)
122.       LOCATE yPos% + 2, xPos% + 18: COLOR 14, 1
123.       IF GDTMinutes% + 1 >= 0 AND GDTMinutes% + 1 <= 59 THEN
124.         IF GDTMinutes% + 1 < 10 THEN PRINT "0";
125.         PRINT S$(GDTMinutes% + 1)
126.       ELSEIF GDTMinutes% + 1 = 60 THEN PRINT "00"
127.       END IF
128.  
129.       IF HighlightedOption% = 6 THEN
130.       COLOR 10, 0: ELSE COLOR 14, 1: END IF
131.       LOCATE yPos% - 5, xPos% + 32: PRINT "Seconds"
132.       LOCATE yPos% - 2, xPos% + 36: COLOR 14, 1
133.       IF GDTSeconds% - 1 = -1 THEN
134.         PRINT "59"
135.       ELSEIF GDTSeconds% - 1 >= 0 AND GDTSeconds% <= 59 THEN
136.         PRINT S$(GDTSeconds% - 1)
137.       END IF
138.       LOCATE yPos%, xPos% + 36: COLOR 10, 0
139.       PRINT S$(GDTSeconds%)
140.       LOCATE yPos% + 2, xPos% + 36: COLOR 14, 1
141.       IF gdtseonds% + 1 >= 0 AND GDTSeconds% + 1 <= 59 THEN
142.         PRINT S$(GDTSeconds% + 1)
143.       ELSEIF GDTSeconds% + 1 = 60 THEN PRINT "0": END IF
144.  
145.       LOCATE yPos% - 2, xPos% + 50: COLOR 14, 1
146.       IF GDTHours% - 1 >= 0 AND GDTHours% - 1 <= 11 THEN
147.       PRINT "AM": ELSE PRINT "PM": END IF
148.       LOCATE yPos%, xPos% + 50: COLOR 10, 0
149.       IF GDTHours% < 12 THEN
150.       PRINT "AM": ELSE PRINT "PM": END IF
151.       LOCATE yPos% + 2, xPos% + 50: COLOR 14, 1
152.       IF GDTHours% + 1 >= 0 AND GDTHours% + 1 <= 11 OR GDTHours% + 1 = 24 THEN
153.       PRINT "AM": ELSE: PRINT "PM": END IF
154.  
155.       HaltAndDisplay% = FALSE
156.     END IF
157.  
158.     SomeKey% = _KEYHIT
159.     IF SomeKey% = UpKeyHit% OR SomeKey% = DownKeyHit% THEN
160.       IF TimerStarted% = FALSE% THEN
161.         FirstTime% = TIMER
162.         TimerStarted% = TRUE%
163.       END IF
164.     END IF
165.     IF SomeKey% < 0 THEN
166.       FirstTime% = 0
167.       Increment% = 1
168.       TimeElapsed% = 0
169.       TimerStarted% = FALSE%
170.     END IF
171.     TimeElapsed% = ABS(TIMER - FirstTime%)
172.     IF TimeElapsed% = 2 THEN
173.       IF HighlightedOption% = 2 THEN Increment% = 2 'Day
174.       IF HighlightedOption% = 3 THEN Increment% = 10 'Year
175.       IF HighlightedOption% = 5 THEN Increment% = 2 'minutes
176.       IF HighlightedOption% = 6 THEN Increment% = 2 'seconds
177.     ELSEIF TimeElapsed% = 3 THEN
178.       IF HighlightedOption% = 3 THEN Increment% = 25
179.     ELSEIF TimeElapsed% = 4 THEN
180.       IF HighlightedOption% = 3 THEN Increment% = 50
181.     END IF
182.  
183.     SELECT CASE UserCommand$
184.       CASE LeftArrowKey$
185.         HighlightedOption% = HighlightedOption% - 1
186.         IF HighlightedOption% = 0 THEN HighlightedOption% = MaxOption%
187.         HaltAndDisplay% = TRUE%
188.       CASE RightArrowKey$
189.         HighlightedOption% = HighlightedOption% + 1
190.         IF HighlightedOption% > MaxOption% THEN HighlightedOption% = 1
191.         HaltAndDisplay% = TRUE%
192.       CASE UpArrowKey$
193.         IF HighlightedOption% = 1 THEN
194.           GDTMonth% = GDTMonth% - Increment%
195.           IF GDTMonth% <= 0 THEN GDTMonth% = 12
196.           IF GDTMonth% = 4 OR GDTMonth% = 6 OR GDTMonth% = 9 OR GDTMonth% = 11 THEN
197.             IF GDTDay% = 31 THEN GDTDay% = 30:
198.           ELSEIF GDTMonth% = 2 THEN
199.             IF GDTDay% > 29 AND GDTYear% MOD 4 = 0 THEN
200.               GDTDay% = 29
201.             ELSEIF GDTDay% >= 29 AND GDTYear% MOD 4 <> 0 THEN GDTDay% = 28
202.             END IF
203.           END IF
204.         ELSEIF HighlightedOption% = 2 THEN
205.           GDTDay% = GDTDay% - Increment%
206.           IF GDTDay% <= 0 THEN
207.             IF GDTMonth% = 4 OR GDTMonth% = 6 OR GDTMonth% = 9 OR GDTMonth% = 11 THEN
208.               GDTDay% = 30
209.             ELSEIF GDTMonth% = 2 AND GDTYear% MOD 4 = 0 THEN GDTDay% = 29
210.             ELSEIF GDTMonth% = 2 AND GDTYear% MOD 4 <> 0 THEN GDTDay% = 28
211.             ELSE GDTDay% = 31: END IF
212.           END IF
213.         ELSEIF HighlightedOption% = 3 THEN
214.           GDTYear% = GDTYear% - Increment%
215.           IF GDTYear% < 0 THEN GDTYear% = 9999
216.           GDTDay% = CorrectDay%(GDTMonth%, GDTDay%, GDTYear%)
217.         ELSEIF HighlightedOption% = 4 THEN
218.           GDTHours% = GDTHours% - 1
219.           IF GDTHours% < 0 THEN GDTHours% = 23
220.         ELSEIF HighlightedOption% = 5 THEN
221.           GDTMinutes% = GDTMinutes% - Increment%
222.           IF GDTMinutes% < 0 THEN GDTMinutes% = 59
223.         ELSEIF HighlightedOption% = 6 THEN
224.           GDTSeconds% = GDTSeconds% - Increment%
225.           IF GDTSeconds% < 0 THEN GDTSeconds% = 59
226.         END IF
227.         HaltAndDisplay% = TRUE%
228.       CASE DownArrowKey$
229.         IF HighlightedOption% = 1 THEN
230.           GDTMonth% = GDTMonth% + Increment%
231.           IF GDTMonth% > 12 THEN GDTMonth% = 1
232.           GDTDay% = CorrectDay%(GDTMonth%, GDTDay%, GDTYear%)
233.         ELSEIF HighlightedOption% = 2 THEN
234.           GDTDay% = GDTDay% + Increment%
235.           IF GDTDay% >= 29 THEN GDTDay% = CorrectDay(GDTMonth%, GDTDay%, GDTYear%)
236.         ELSEIF HighlightedOption% = 3 THEN
237.           GDTYear% = GDTYear% + Increment%
238.           IF GDTYear% > 9999 THEN GDTYear% = 0
239.           GDTDay% = CorrectDay%(GDTMonth%, GDTDay%, GDTYear%)
240.         ELSEIF HighlightedOption% = 4 THEN
241.           GDTHours% = GDTHours% + 1
242.           IF GDTHours% = 24 THEN GDTHours% = 0
243.         ELSEIF HighlightedOption% = 5 THEN
244.           GDTMinutes% = GDTMinutes% + Increment%
245.           IF GDTMinutes% >= 60 THEN GDTMinutes% = 0
246.         ELSEIF HighlightedOption% = 6 THEN
247.           GDTSeconds% = GDTSeconds% + Increment%
248.           IF GDTSeconds% >= 60 THEN GDTSeconds% = 0
249.         END IF
250.         HaltAndDisplay% = TRUE%
251.       CASE CHR$(27)
252.         GDTMonth% = VAL(LEFT$(DATE$, 2))
253.         GDTDay% = VAL(MID$(DATE$, 4, 2))
254.         GDTYear% = VAL(RIGHT$(DATE$, 4))
255.         GDTHours% = VAL(LEFT$(TIME$, 2))
256.         GDTMinutes% = VAL(MID$(TIME$, 4, 2))
257.         GDTSeconds% = VAL(RIGHT$(TIME$, 2))
258.         HaltAndDisplay% = TRUE%
259.       CASE "X", "x"
260.         SYSTEM
261.       CASE CHR$(13)
262.         GDTRtn$ = ""
263.         IF GDTYear% < 10 THEN
264.           GDTRtn$ = "000"
265.         ELSEIF GDTYear% >= 10 AND GDTYear% < 100 THEN GDTRtn$ = "00"
266.         ELSEIF GDTYear% >= 100 AND GDTYear% < 1000 THEN GDTRtn$ = "0": END IF
267.         GDTRtn$ = GDTRtn$ + S$(GDTYear%) + ":"
268.         tempDay% = 0: tempDay% = DaysPassedJanFromMonthDayYear(GDTMonth%, GDTDay%, GDTYear%)
269.         IF tempDay% < 10 THEN
270.           GDTRtn$ = GDTRtn$ + "00"
271.         ELSEIF tempDay% >= 10 AND tempDay% < 100 THEN GDTRtn$ = GDTRtn$ + "0": END IF
272.         GDTRtn$ = GDTRtn$ + S$(tempDay%) + ":"
273.         IF GDTHours% < 10 THEN GDTRtn$ = GDTRtn$ + "0"
274.         GDTRtn$ = GDTRtn$ + S$(GDTHours%) + ":"
275.         IF GDTMinutes% < 10 THEN GDTRtn$ = GDTRtn$ + "0"
276.         GDTRtn$ = GDTRtn$ + S$(GDTMinutes%) + ":"
277.         IF GDTSeconds% < 10 THEN GDTRtn$ = GDTRtn$ + "0"
278.         GDTRtn$ = GDTRtn$ + S$(GDTSeconds%)
279.     END SELECT
280.   LOOP UNTIL UserCommand$ = CHR$(13)
281.   GetDateAndTime$ = GDTRtn$
282. END FUNCTION
283.  
284. FUNCTION ClockString$ (CSHours%, CSMinutes%, CSSeconds%)
285.   DisplayHours$ = "": CSRtn$ = "": AmPm$ = ""
286.  
287.   IF CSHours% = 0 THEN
288.     DisplayHours$ = "12"
289.     AmPm$ = "AM"
290.   ELSEIF CSHours% >= 1 AND CSHours% <= 11 THEN
291.     DisplayHours$ = S$(CSHours%)
292.     AmPm$ = "AM"
293.   ELSEIF CSHours% = 12 THEN
294.     DisplayHours$ = "12"
295.     AmPm$ = "PM"
296.   ELSEIF CSHours% > 12 AND CSHours% <= 23 THEN
297.     DisplayHours$ = S$(CSHours% - 12)
298.     AmPm$ = "PM"
299.   END IF
300.  
301.   CSRtn$ = DisplayHours$ + ":"
302.   IF CSMinutes% < 10 THEN CSRtn$ = CSRtn$ + "0"
303.   CSRtn$ = CSRtn$ + S$(CSMinutes%) + " " + AmPm$ + " and " + S$(CSSeconds%) + " second"
304.   IF CSSeconds% <> 1 THEN CSRtn$ = CSRtn$ + "s"
305.  
306.   ClockString$ = CSRtn$
307.  
308. END FUNCTION
309.  
310. FUNCTION GetDate$ (Header$)
311.   xPos% = 0: yPos% = 0: MaxOption% = 0: HighlightedOption% = 0
312.   HaltAndDisplay% = 0: UserCommand$ = "": Instructions$ = "": TimerStarted% = 0: FirstTime% = 0: TimeElapsed% = 0
313.   GDMonth% = 0: GDDay% = 0: GDYear% = 0: MW$ = "": Increment% = 0: MinOption% = 0: HeaderCopy$ = "": GDRtn$ = ""
314.  
315.   HaltAndDisplay% = TRUE%: yPos% = 22: xPos% = 19: HighlightedOption% = 1: Increment% = 1
316.   MaxOption% = 3: MinOption% = 1: HeaderCopy$ = Header$
317.   GDMonth% = VAL(LEFT$(DATE$, 2)): GDDay% = VAL(MID$(DATE$, 4, 2)): GDYear% = VAL(RIGHT$(DATE$, 4))
318.   TimerStarted% = FALSE
319.  
320.   DO
321.     UserCommand$ = INKEY$
322.     IF HaltAndDisplay% = TRUE% THEN
323.       HeaderCopy$ = Header$
324.       COLOR 14, 1: CLS
325.       COLOR 15
326.       IF LEN(Header$) >= 50 THEN
327.         LOCATE 7, 1: PRINT LongCenter(HeaderCopy$, 50, FALSE%)
328.       ELSE LOCATE 7, Center(HeaderCopy$): PRINT HeaderCopy$: END IF
329.       COLOR 12, 1: Instructions$ = "Use the arrow keys to select the date - Push [ESC] to reset - Push "
330.       Instructions$ = Instructions$ + CHR$(34) + "X" + CHR$(34) + " to exit to the system - "
331.       Instructions$ = Instructions$ + "Push [ENTER] when you have selected the desired date"
332.       LOCATE yPos% + 20, 1: PRINT LongCenter$(Instructions$, 60, FALSE%)
333.  
334.       LOCATE yPos% - 5, xPos%: IF HighlightedOption% = 1 THEN
335.       COLOR 10, 0: ELSE COLOR 14, 1: END IF: PRINT "Month"
336.       MW$ = "": MW$ = MonthWord$(GDMonth% - 1): COLOR 14, 1
337.       LOCATE yPos% - 2, CenterBetween(MW$, xPos% - 3, xPos% + 8): PRINT MW$
338.       MW$ = "": MW$ = MonthWord$(GDMonth%): COLOR 10, 0
339.       LOCATE yPos%, CenterBetween(MW$, xPos% - 3, xPos% + 8): PRINT MW$
340.       MW$ = "": MW$ = MonthWord$(GDMonth% + 1): COLOR 14, 1
341.       LOCATE yPos% + 2, CenterBetween(MW$, xPos% - 3, xPos% + 8): PRINT MW$
342.  
343.       LOCATE yPos% - 5, xPos% + 20: IF HighlightedOption% = 2 THEN
344.       COLOR 10, 0: ELSE COLOR 14, 1: END IF: PRINT "Day"
345.       COLOR 14, 1: O% = 0: O% = CorrectDay(GDMonth%, GDDay% - 1, GDYear%)
346.       OP$ = "": OP$ = S$(O%) + Suffix$(O%)
347.       LOCATE yPos% - 2, CenterBetween(OP$, xPos% + 19, xPos% + 22): PRINT OP$
348.       COLOR 10, 0: OP$ = "": O% = 0: OP$ = S$(GDDay%) + Suffix$(GDDay%)
349.       LOCATE yPos%, CenterBetween(OP$, xPos% + 19, xPos% + 22): PRINT OP$
350.       COLOR 14, 1: O% = 0: O% = CorrectDay(GDMonth%, GDDay% + 1, GDYear%)
351.       OP$ = "": OP$ = S$(O%) + Suffix$(O%)
352.       LOCATE yPos% + 2, CenterBetween(OP$, xPos% + 19, xPos% + 22): PRINT OP$
353.  
354.       LOCATE yPos% - 5, xPos% + 40: IF HighlightedOption% = 3 THEN
355.       COLOR 10, 0: ELSE COLOR 14, 1: END IF: PRINT "Year"
356.       COLOR 14, 1: O% = 0: O% = GDYear% - 1: IF O% = -1 THEN O% = 9999
357.       LOCATE yPos% - 2, CenterBetween(S$(O%), xPos% + 40, xPos% + 44): PRINT S$(O%)
358.       COLOR 10, 0: LOCATE yPos%, CenterBetween(S$(GDYear%), xPos% + 40, xPos% + 44): PRINT S$(GDYear%)
359.       COLOR 14, 1: O% = 0: O% = GDYear% + 1: IF O% > 9999 THEN O% = 0
360.       LOCATE yPos% + 2, CenterBetween(S$(O%), xPos% + 40, xPos% + 44): PRINT S$(O%)
361.  
362.       COLOR 10, 0: a$ = "": a$ = WrittenOutDate$(GDMonth%, GDDay%, GDYear%)
363.       LOCATE yPos% + 10, Center(a$): PRINT a$
364.  
365.       HaltAndDisplay% = FALSE%
366.     END IF
367.  
368.     SomeKey% = _KEYHIT
369.     IF SomeKey% = UpKeyHit% OR SomeKey% = DownKeyHit% THEN
370.       IF TimerStarted% = FALSE% THEN
371.         FirstTime% = TIMER
372.         TimerStarted% = TRUE%
373.       END IF
374.     END IF
375.     IF SomeKey% < 0 THEN
376.       FirstTime% = 0
377.       Increment% = 1
378.       TimeElapsed% = 0
379.       TimerStarted% = FALSE%
380.     END IF
381.     TimeElapsed% = ABS(TIMER - FirstTime%)
382.     IF TimeElapsed% = 2 THEN
383.       IF HighlightedOption% = 3 THEN Increment% = 15
384.     ELSEIF TimeElapsed% = 3 THEN
385.       IF HighlightedOption% = 2 THEN Increment% = 2
386.       IF HighlightedOption% = 3 THEN Increment% = 25
387.     ELSEIF TimeElapsed% = 4 THEN
388.       IF HighlightedOption% = 3 THEN Increment% = 35
389.     ELSEIF TimeElapsed% = 6 THEN
390.       IF HighlightedOption% = 3 THEN Increment% = 65
391.     END IF
392.  
393.     SELECT CASE UserCommand$
394.       CASE UpArrowKey$
395.         IF HighlightedOption% = 1 THEN
396.           GDMonth% = GDMonth% - Increment%
397.           IF GDMonth% <= 0 THEN GDMonth% = 12
398.           IF GDMonth% = 4 OR GDMonth% = 6 OR GDMonth% = 9 OR GDMonth% = 11 THEN
399.             IF GDDay% = 31 THEN GDDay% = 30:
400.           ELSEIF GDMonth% = 2 THEN
401.             IF GDDay% > 29 AND GDYear% MOD 4 = 0 THEN
402.               GDDay% = 29
403.             ELSEIF GDDay% >= 29 AND GDYear% MOD 4 <> 0 THEN GDDay% = 28
404.             END IF
405.           END IF
406.         ELSEIF HighlightedOption% = 2 THEN
407.           GDDay% = GDDay% - Increment%
408.           IF GDDay% <= 0 THEN
409.             IF GDMonth% = 4 OR GDMonth% = 6 OR GDMonth% = 9 OR GDMonth% = 11 THEN
410.               GDDay% = 30
411.             ELSEIF GDMonth% = 2 AND GDYear% MOD 4 = 0 THEN GDDay% = 29
412.             ELSEIF GDMonth% = 2 AND GDYear% MOD 4 <> 0 THEN GDDay% = 28
413.             ELSE GDDay% = 31: END IF
414.           END IF
415.         ELSEIF HighlightedOption% = 3 THEN
416.           GDYear% = GDYear% - Increment%
417.           IF GDYear% < 0 THEN GDYear% = 9999
418.           GDDay% = CorrectDay%(GDMonth%, GDDay%, GDYear%)
419.         END IF
420.         HaltAndDisplay% = TRUE%
421.       CASE DownArrowKey$
422.         IF HighlightedOption% = 1 THEN
423.           GDMonth% = GDMonth% + Increment%
424.           IF GDMonth% > 12 THEN GDMonth% = 1
425.           GDDay% = CorrectDay%(GDMonth%, GDDay%, GDYear%)
426.         ELSEIF HighlightedOption% = 2 THEN
427.           GDDay% = GDDay% + Increment%
428.           IF GDDay% >= 29 THEN GDDay% = CorrectDay(GDMonth%, GDDay%, GDYear%)
429.         ELSEIF HighlightedOption% = 3 THEN
430.           GDYear% = GDYear% + Increment%
431.           IF GDYear% > 9999 THEN GDYear% = 0
432.           GDDay% = CorrectDay%(GDMonth%, GDDay%, GDYear%)
433.         END IF
434.         HaltAndDisplay% = TRUE%
435.       CASE RightArrowKey$
436.         HighlightedOption% = HighlightedOption% + 1
437.         IF HighlightedOption% > MaxOption% THEN HighlightedOption% = MinOption%
438.         HaltAndDisplay% = TRUE%
439.       CASE LeftArrowKey$
440.         HighlightedOption% = HighlightedOption% - 1
441.         IF HighlightedOption% < MinOption% THEN HighlightedOption% = MaxOption%
442.         HaltAndDisplay% = TRUE%
443.       CASE CHR$(27)
444.         GDMonth% = VAL(LEFT$(DATE$, 2))
445.         GDDay% = VAL(MID$(DATE$, 4, 2))
446.         GDYear% = VAL(RIGHT$(DATE$, 4))
447.       CASE "X", "x"
448.         SYSTEM
449.       CASE CHR$(13)
450.         GDRtn$ = ""
451.         GDRtn$ = MakeFormattedDATE$(GDMonth%, GDDay%, GDYear%)
452.     END SELECT
453.   LOOP UNTIL UserCommand$ = CHR$(13)
454.   GetDate$ = GDRtn$
455. END FUNCTION
456.  
457. FUNCTION MakeFormattedDATE$ (MFMonth%, MFDay%, MFYear%)
458.   MFDRtn$ = ""
459.  
460.   IF MFMonth% < 10 THEN MFDRtn$ = "0"
461.   MFDRtn$ = MFDRtn$ + S$(MFMonth%) + "/"
462.   IF MFDay% < 10 THEN MFDRtn$ = MFDRtn$ + "0"
463.   MFDRtn$ = MFDRtn$ + S$(MFDay%) + "/"
464.   IF MFYear% < 10 THEN
465.     MFDRtn$ = MFDRtn$ + "000"
466.   ELSEIF MFYear% >= 10 AND MFYear% < 100 THEN MFDRtn$ = MFDRtn$ + "00"
467.   ELSEIF MFYear% >= 100 AND MFYear% < 1000 THEN MFDRtn$ = MFDRtn$ + "0": END IF
468.   MFDRtn$ = MFDRtn$ + S$(MFYear%)
469.  
470.   MakeFormattedDATE$ = MFDRtn$
471.  
472. END FUNCTION
473.  
474. FUNCTION WrittenOutDate$ (WODMonth%, WODDay%, WODYear%)
475.   WODRtn$ = ""
476.   WODRtn$ = MonthWord$(WODMonth%)
477.   WODRtn$ = WODRtn$ + " "
478.   WODRtn$ = WODRtn$ + S$(WODDay%) + Suffix(WODDay%)
479.   WODRtn$ = WODRtn$ + ", "
480.   WODRtn$ = WODRtn$ + S$(WODYear%)
481.  
482.   WrittenOutDate$ = WODRtn$
483. END FUNCTION
484.  
485. FUNCTION CorrectDay% (CDMonth%, CDDay%, CDYear%)
486.   CDRtn% = 0
487.  
488.   SELECT CASE CDDay%
489.     CASE IS <= 0
490.       IF CDMonth% = 1 OR CDMonth% = 3 OR CDMonth% = 5 OR CDMonth% = 7 OR CDMonth% = 8 OR CDMonth% = 10 OR CDMonth% = 12 THEN
491.         CDRtn% = 31
492.       ELSEIF CDMonth% = 4 OR CDMonth% = 6 OR CDMonth% = 9 OR CDMonth% = 11 THEN
493.         CDRtn% = 30
494.       ELSEIF CDMonth% = 2 THEN
495.         IF CDYear% MOD 4 = 0 THEN
496.         CDRtn% = 29: ELSE CDRtn% = 28: END IF
497.       END IF
498.     CASE 29
499.       IF CDMonth% = 2 AND CDYear% MOD 4 <> 0 THEN
500.         CDRtn% = 1
501.       ELSE CDRtn% = CDDay%: END IF
502.     CASE 30
503.       IF CDMonth% = 2 AND CDYear% MOD 4 = 0 THEN
504.       CDRtn% = 1: ELSE CDRtn% = CDDay%: END IF
505.     CASE 31
506.       IF CDMonth% = 4 OR CDMonth% = 6 OR CDMonth% = 9 OR CDMonth% = 11 THEN
507.         CDRtn% = 1
508.       ELSE CDRtn% = CDDay%: END IF
509.     CASE IS >= 32
510.       CDRtn% = 1
511.     CASE ELSE
512.       CDRtn% = CDDay%
513.   END SELECT
514.   CorrectDay% = CDRtn%
515. END FUNCTION
516.  
517. FUNCTION CenterBetween% (text$, MinX%, MaxX%)
518.   CBRtn% = 0
519.   IF LEN(text$) + MinX% >= MaxX% THEN
520.     CBRtn% = MinX%
521.   ELSE
522.     CBRtn% = INT((MaxX% - MinX% - LEN(text$)) / 2) + MinX%
523.   END IF
524.   CenterBetween = CBRtn%
525. END FUNCTION
526.  
527. SUB FromNowUntil
528.   FNUMonth% = 0: FNUDay% = 0: FNUYear% = 0: FNUHour% = 0: FNUMinute% = 0: FNUSecond% = 0
529.   FNUHeader$ = "": FNUTargetFormatDATE$ = "": FNUTargetMonth% = 0: FNUTargetDay% = 0: FNUTargetYear% = 0
530.   FNUTargetFormatTIME$ = "": FNUTargetHour% = 0: FNUTargetMinute% = 0: FNUTargetSecond% = 0: FNUTargetDayCopy% = 0
531.   FNUFinalDay% = 0: FNUFinalMonth% = 0: FNUFinalYear% = 0: FNUFinalHour% = 0: FNUFinalMinute% = 0: FNUFinalSecond% = 0
532.   a$ = "": LeftChar$ = ""
533.  
534.   FNUMonth% = VAL(LEFT$(DATE$, 2))
535.   FNUDay% = VAL(MID$(DATE$, 4, 2))
536.   FNUYear% = VAL(RIGHT$(DATE$, 4))
537.   FNUDay% = DaysPassedJanFromMonthDayYear(FNUMonth%, FNUDay%, FNUYear%)
538.   FNUHour% = VAL(LEFT$(TIME$, 2))
539.   FNUMinute% = VAL(MID$(TIME$, 4, 2))
540.   FNUSecond% = VAL(RIGHT$(TIME$, 2))
541.  
542.   FNUHeader$ = "Select A Target Date$"
543.   FNUTargetFormatDATE$ = GetDate$(FNUHeader$)
544.   PRINT: PRINT: PRINT
545.   FNUTargetMonth% = VAL(LEFT$(FNUTargetFormatDATE$, 2))
546.   FNUTargetDay% = VAL(MID$(FNUTargetFormatDATE$, 4, 2))
547.   FNUTargetDayCopy% = FNUTargetDay%
548.   FNUTargetYear% = VAL(RIGHT$(FNUTargetFormatDATE$, 4))
549.   FNUTargetDay% = DaysPassedJanFromMonthDayYear(FNUTargetMonth%, FNUTargetDay%, FNUTargetYear%)
550.  
551.   FNUHeader$ = ""
552.   FNUHeader$ = "Select A Target Time On " + WrittenOutDate$(FNUTargetMonth%, FNUTargetDayCopy%, FNUTargetYear%)
553.   FNUTargetFormatTIME$ = GetTime$(FNUHeader$)
554.   FNUTargetHour% = VAL(LEFT$(FNUTargetFormatTIME$, 2))
555.   FNUTargetMinute% = VAL(MID$(FNUTargetFormatTIME$, 4, 4))
556.   FNUTargetSecond% = VAL(RIGHT$(FNUTargetFormatTIME$, 2))
557.  
558.   FNUFinalSecond% = FNUTargetSecond% - FNUSecond%
559.   IF FNUFinalSecond% < 0 THEN
560.     FNUTargetMinute% = FNUTargetMinute% - 1
561.     FNUFinalSecond% = FNUFinalSecond% + 60
562.   END IF
563.   FNUFinalMinute% = FNUTargetMinute% - FNUMinute%
564.   IF FinalMinute% < 0 THEN
565.     FNUTargetHour% = FNUTargetHour% - 1
566.     FNUFinalMinute% = FNUFinalMinute% + 60
567.   END IF
568.   FNUFinalHour% = FNUTargetHour% - FNUHour%
569.   IF FNUFinalHour% < 0 THEN
570.     FNUFinalHour% = FNUFinalHour% + 60
571.     FNUTargetDay% = FNUTargetDay% - 1
572.   END IF
573.   FNUFinalDay% = FNUTargetDay% - FNUDay%
574.   IF FNUFinalDay% < 0 THEN
575.     FNUFinalDay% = FNUFinalDay% + 366
576.     FNUTargetYear% = FNUTargetYear% - 1
577.   END IF
578.   FNUFinalYear% = FNUTargetYear% - FNUYear%
579.  
580.   COLOR 14, 1: CLS
581.   IF FNUFinalYear% < 0 THEN
582.     a$ = "": a$ = "The selected date and time is before now"
583.     LOCATE 25, Center(a$)
584.     PRINT a$
585.   ELSE
586.     a$ = "": a$ = MakeElapsedTimeShort$(FNUFinalYear%, FNUFinalDay%, FNUFinalHour%, FNUFinalMinute%, FNUFinalSecond%)
587.     a$ = ElapsedTimeWrittenOut$(a$)
588.     IF VAL(LEFT$(a$, 2)) = 1 THEN
589.       b$ = "There is"
590.     ELSE b$ = "There are": END IF
591.     LOCATE 15, Center(b$): PRINT b$
592.     LOCATE 20, Center(a$): PRINT a$
593.     LOCATE 25, Center("until"): PRINT "until"
594.     a$ = "": a$ = WrittenOutDate$(FNUTargetMonth%, FNUTargetDayCopy%, FNUTargetYear%)
595.     LOCATE 30, Center(a$): PRINT a$
596.     LOCATE 32, Center("at"): PRINT "at"
597.     a$ = "": a$ = ClockString$(FNUTargetHour%, FNUTargetMinute%, FNUTargetSecond%)
598.     LOCATE 34, Center(a$): PRINT a$
599.   END IF
600.  
601.   a$ = "": a$ = "Hit any key to continue"
602.   LOCATE 48, Center(a$): PRINT a$: ll$ = P$
603. END SUB
604.  
605. FUNCTION MakeElapsedTimeShort$ (MEYears%, MEDays%, MEHours%, MEMinutes%, MESeconds%)
606.   METSRtn$ = ""
607.  
608.   IF MEYears% < 10 THEN
609.     METSRtn$ = "000"
610.   ELSEIF MEYears% >= 10 AND MEYears% < 100 THEN METSRtn$ = "00"
611.   ELSEIF MEYears% >= 100 AND MEYears% < 1000 THEN METSRtn$ = "0": END IF
612.   METSRtn$ = METSRtn$ + S$(MEYears%) + ":"
613.  
614.   IF MEDays% < 10 THEN
615.     METSRtn$ = METSRtn$ + "00"
616.   ELSEIF MEDays% >= 10 AND MEDays% < 100 THEN
617.   METSRtn$ = METSRtn$ + "0": END IF
618.   METSRtn$ = METSRtn$ + S$(MEDays%) + ":"
619.  
620.   IF MEHours% < 10 THEN METSRtn$ = METSRtn$ + "0"
621.   METSRtn$ = METSRtn$ + S$(MEHours%) + ":"
622.  
623.   IF MEMinutes% < 10 THEN METSRtn$ = METSRtn$ + "0"
624.   METSRtn$ = METSRtn$ + S$(MEMinutes%) + ":"
625.  
626.   IF MESeconds% < 10 THEN METSRtn$ = METSRtn$ + "0"
627.   METSRtn$ = METSRtn$ + S$(MESeconds%)
628.  
629.   MakeElapsedTimeShort$ = METSRtn$
630. END FUNCTION
631.  
632. FUNCTION ElapsedTimeWrittenOut$ (TimeShortString$)
633.   ETWORtn$ = "": Years3% = 0: Days3% = 0: Hours3% = 0: Minutes3% = 0: Seconds3% = 0
634.  
635.   Years3% = VAL(LEFT$(TimeShortString$, 4))
636.   Days3% = VAL(MID$(TimeShortString$, 6, 3))
637.   Hours3% = VAL(MID$(TimeShortString$, 10, 2))
638.   Minutes3% = VAL(MID$(TimeShortString$, 13, 2))
639.   Seconds3% = VAL(RIGHT$(TimeShortString$, 2))
640.  
641.   IF Years3% <> 0 THEN
642.     IF Years3% >= 1000 AND Years3% <= 9999 THEN
643.       lftNum% = INT(Years3% / 1000)
644.       ETWORtn$ = S$(lftNum%) + ","
645.       rtNum% = Years3% - (lftNum% * 1000)
646.       IF rtNum% < 10 THEN
647.         ETWORtn$ = ETWORtn$ + "00"
648.       ELSEIF rtNum% >= 10 AND rtNum% < 100 THEN
649.         ETWORtn$ = ETWORtn$ + "0"
650.       END IF
651.       ETWORtn$ = ETWORtn$ + S$(rtNum%)
652.     ELSE
653.       ETWORtn$ = S$(Years3%)
654.     END IF
655.     ETWORtn$ = ETWORtn$ + " Year"
656.     IF Years3% <> 1 THEN ETWORtn$ = ETWORtn$ + "s"
657.     IF Days3% <> 0 AND (Hours3% <> 0 OR Minutes3% <> 0 OR Seconds3% <> 0) THEN
658.       ETWORtn$ = ETWORtn$ + ", "
659.     ELSEIF Days3% <> 0 AND (Hours3% = 0 AND Minutes3% = 0 AND Seconds3% = 0) THEN
660.       ETWORtn$ = ETWORtn$ + " and "
661.     ELSEIF Hours3% <> 0 AND (Minutes3% <> 0 OR Seconds3% <> 0) THEN
662.       ETWORtn$ = ETWORtn$ + ", "
663.     ELSEIF Hours3% <> 0 AND Minutes3% = 0 AND Seconds3% = 0 THEN
664.       ETWORtn$ = ETWORtn$ + " and "
665.     ELSEIF Minutes3% <> 0 AND Seconds3% <> 0 THEN
666.       ETWORtn$ = ETWORtn$ + ", "
667.     ELSEIF Minutes3% <> 0 XOR Seconds3% <> 0 THEN
668.       ETWORtn$ = ETWORtn$ + " and "
669.     END IF
670.   END IF
671.   IF Days3% <> 0 THEN
672.     ETWORtn$ = ETWORtn$ + S$(Days3%) + " Day"
673.     IF Days3% <> 1 THEN ETWORtn$ = ETWORtn$ + "s"
674.     IF Hours3% <> 0 AND (Minutes3% <> 0 OR Seconds3% <> 0) THEN
675.       ETWORtn$ = ETWORtn$ + ", "
676.     ELSEIF Hours3% <> 0 AND Minutes3% = 0 AND Seconds3% = 0 THEN
677.       ETWORtn$ = ETWORtn$ + " and "
678.     ELSEIF Minutes3% <> 0 AND Seconds3% <> 0 THEN
679.       ETWORtn$ = ETWORtn$ + ", "
680.     ELSEIF Minutes3% <> 0 XOR Seconds3% <> 0 THEN
681.       ETWORtn$ = ETWORtn$ + " and "
682.     END IF
683.   END IF
684.   IF Hours3% <> 0 THEN
685.     ETWORtn$ = ETWORtn$ + S$(Hours3%) + " hour"
686.     IF Hours3% <> 1 THEN ETWORtn$ = ETWORtn$ + "s"
687.     IF Minutes3% <> 0 AND Seconds3% <> 0 THEN
688.       ETWORtn$ = ETWORtn$ + ", "
689.     ELSEIF Minutes3% <> 0 XOR Seconds3% <> 0 THEN
690.       ETWORtn$ = ETWORtn$ + " and "
691.     END IF
692.   END IF
693.   IF Minutes3% <> 0 THEN
694.     ETWORtn$ = ETWORtn$ + S$(Minutes3%) + " minute"
695.     IF Minutes3% <> 1 THEN ETWORtn$ = ETWORtn$ + "s"
696.     IF Seconds3% <> 0 THEN ETWORtn$ = ETWORtn$ + " and "
697.   END IF
698.   IF Seconds3% <> 0 THEN
699.     ETWORtn$ = ETWORtn$ + S$(Seconds3%) + " second"
700.     IF Seconds3% <> 1 THEN ETWORtn$ = ETWORtn$ + "s"
701.   END IF
702.   IF Years3% = 0 AND Days3% = 0 AND Hours3% = 0 AND Minutes3% = 0 AND Seconds3% = 0 THEN ETWORtn$ = "Nothing"
703.   ElapsedTimeWrittenOut$ = ETWORtn$
704. END FUNCTION
705.  
706.  
707. FUNCTION GetTime$ (GTHeader$)
708.   HaltAndDisplay% = 0: GTHeaderCopy$ = "": Instructions$ = "": xPos% = 0: yPos% = 0: HighlightedOption% = 0
709.   GTHours% = 0: GTMinutes% = 0: GTSeconds% = 0: SomeKey% = 0: TimerStarted% = 0: GTClock$ = ""
710.   FirstTime% = 0: Increment% = 0: TimeElapsed% = 0: UserCommand$ = "": MaxOption% = 0: GTRtn$ = ""
711.  
712.   HaltAndDisplay% = TRUE%: xPos% = 13: yPos% = 25: HighlightedOption% = 1
713.   GTHours% = VAL(LEFT$(TIME$, 2)): GTMinutes% = VAL(MID$(TIME$, 4, 2)): GTSeconds% = VAL(RIGHT$(TIME$, 2))
714.   Increment% = 1: TimerStarted% = FALSE%: MaxOption% = 3
715.  
716.  
717.   DO
718.     UserCommand$ = INKEY$
719.  
720.     IF HaltAndDisplay% = TRUE% THEN
721.       GTHeaderCopy$ = GTHeader$
722.       COLOR 14, 1: CLS
723.       COLOR 15
724.       IF LEN(GTHeader$) >= 50 THEN
725.         LOCATE 6, 1: PRINT LongCenter(GTHeaderCopy$, 50, FALSE%)
726.       ELSE
727.         LOCATE 7, Center(GTHeaderCopy$)
728.         PRINT GTHeaderCopy$
729.       END IF
730.       COLOR 12, 1: Instructions$ = "Use the arrow keys to select the time. Push [ESC] to reset. Push "
731.       Instructions$ = Instructions$ + CHR$(34) + "X" + CHR$(34) + " to exit to the system. Push [ENTER] when you have selected the desired time"
732.       LOCATE 44, 1: PRINT LongCenter$(Instructions$, 60, FALSE%)
733.  
734.       IF HighlightedOption% = 1 THEN
735.       COLOR 10, 0: ELSE COLOR 14, 1: END IF
736.       LOCATE yPos% - 5, xPos%: PRINT "Hours"
737.       LOCATE yPos% - 2, xPos% + 2
738.       COLOR 14, 1:
739.       IF GTHours% - 1 = -1 THEN
740.         PRINT "11"
741.       ELSEIF GTHours% - 1 = 0 THEN PRINT "12"
742.       ELSEIF GTHours% - 1 > 0 AND GTHours% - 1 <= 12 THEN PRINT S$(GTHours% - 1)
743.       ELSEIF GTHours% - 1 >= 13 AND GTHours% - 1 <= 23 THEN PRINT S$(GTHours% - 1 - 12): END IF
744.       LOCATE yPos%, xPos% + 2: COLOR 10, 0
745.       IF GTHours% = 0 THEN
746.         PRINT "12"
747.       ELSEIF GTHours% > 0 AND GTHours% <= 12 THEN PRINT S$(GTHours%)
748.       ELSEIF GTHours% > 12 AND GTHours% < 24 THEN PRINT S$(GTHours% - 12): END IF
749.       LOCATE yPos% + 2, xPos% + 2: COLOR 14, 1
750.       IF GTHours% + 1 >= 1 AND GTHours% + 1 < 13 THEN
751.         PRINT S$(GTHours% + 1)
752.       ELSEIF GTHours% + 1 >= 13 AND GTHours% + 1 <= 24 THEN PRINT S$(GTHours% + 1 - 12): END IF
753.  
754.       IF HighlightedOption% = 2 THEN
755.       COLOR 10, 0: ELSE COLOR 14, 1: END IF
756.       LOCATE yPos% - 5, xPos% + 16: PRINT "Minutes"
757.       LOCATE yPos% - 2, xPos% + 18: COLOR 14, 1
758.       IF GTMinutes% - 1 = -1 THEN
759.         PRINT "59"
760.       ELSEIF GTMinutes% - 1 >= 0 AND GTMinutes% - 1 <= 59 THEN
761.         IF GTMinutes% - 1 < 10 THEN PRINT "0";:
762.         PRINT S$(GTMinutes% - 1)
763.       END IF
764.       LOCATE yPos%, xPos% + 18: COLOR 10, 0: IF GTMinutes% < 10 THEN PRINT "0";
765.       PRINT S$(GTMinutes%)
766.       LOCATE yPos% + 2, xPos% + 18: COLOR 14, 1
767.       IF GTMinutes% + 1 >= 0 AND GTMinutes% + 1 <= 59 THEN
768.         IF GTMinutes% + 1 < 10 THEN PRINT "0";
769.         PRINT S$(GTMinutes% + 1)
770.       ELSEIF GTMinutes% + 1 = 60 THEN PRINT "00"
771.       END IF
772.  
773.       IF HighlightedOption% = 3 THEN
774.       COLOR 10, 0: ELSE COLOR 14, 1: END IF
775.       LOCATE yPos% - 5, xPos% + 32: PRINT "Seconds"
776.       LOCATE yPos% - 2, xPos% + 36: COLOR 14, 1
777.       IF GTSeconds% - 1 = -1 THEN
778.         PRINT "59"
779.       ELSEIF GTSeconds% - 1 >= 0 AND GTSeconds% <= 59 THEN
780.         IF GTSeconds% - 1 < 10 THEN PRINT "0";
781.         PRINT S$(GTSeconds% - 1)
782.       END IF
783.       LOCATE yPos%, xPos% + 36: COLOR 10, 0: IF GTSeconds% < 10 THEN PRINT "0";
784.       PRINT S$(GTSeconds%)
785.       LOCATE yPos% + 2, xPos% + 36: COLOR 14, 1
786.       IF GTSeconds% + 1 >= 0 AND GTSeconds% + 1 <= 59 THEN
787.         IF GTSeconds% + 1 < 10 THEN PRINT "0";
788.         PRINT S$(GTSeconds% + 1)
789.       ELSEIF GTSeconds% + 1 = 60 THEN PRINT "00": END IF
790.  
791.       LOCATE yPos% - 2, xPos% + 50: COLOR 14, 1
792.       IF GTHours% - 1 >= 0 AND GTHours% - 1 <= 11 THEN
793.       PRINT "AM": ELSE PRINT "PM": END IF
794.       LOCATE yPos%, xPos% + 50: COLOR 10, 0
795.       IF GTHours% < 12 THEN
796.       PRINT "AM": ELSE PRINT "PM": END IF
797.       LOCATE yPos% + 2, xPos% + 50: COLOR 14, 1
798.       IF GTHours% + 1 >= 0 AND GTHours% + 1 <= 11 OR GTHours% + 1 = 24 THEN
799.       PRINT "AM": ELSE: PRINT "PM": END IF
800.  
801.       GTClock$ = ClockString$(GTHours%, GTMinutes%, GTSeconds%)
802.       COLOR 10, 0: LOCATE ypos + 34, Center(GTClock$): PRINT GTClock$
803.  
804.       HaltAndDisplay% = FALSE%
805.     END IF
806.  
807.     SomeKey% = _KEYHIT
808.     IF SomeKey% = UpKeyHit% OR SomeKey% = DownKeyHit% THEN
809.       IF TimerStarted% = FALSE% THEN
810.         FirstTime% = TIMER
811.         TimerStarted% = TRUE%
812.       END IF
813.     END IF
814.     IF SomeKey% < 0 THEN
815.       FirstTime% = 0
816.       Increment% = 1
817.       TimeElapsed% = 0
818.       TimerStarted% = FALSE%
819.     END IF
820.     TimeElapsed% = ABS(TIMER - FirstTime%)
821.     IF TimeElapsed% = 2 THEN
822.       IF HighlightedOption% = 2 OR HighlightedOption% = 3 THEN Increment% = 3
823.     END IF
824.  
825.     SELECT CASE UserCommand$
826.       CASE UpArrowKey$
827.         IF HighlightedOption% = 1 THEN
828.           GTHours% = GTHours% - Increment%
829.           IF GTHours% < 0 THEN GTHours% = 23
830.         ELSEIF HighlightedOption% = 2 THEN
831.           GTMinutes% = GTMinutes% - Increment%
832.           IF GTMinutes% < 0 THEN GTMinutes% = 59
833.         ELSEIF HighlightedOption% = 3 THEN
834.           GTSeconds% = GTSeconds% - Increment%
835.           IF GTSeconds% < 0 THEN GTSeconds% = 59
836.         END IF
837.         HaltAndDisplay% = TRUE
838.       CASE DownArrowKey$
839.         IF HighlightedOption% = 1 THEN
840.           GTHours% = GTHours% + Increment%
841.           IF GTHours% > 23 THEN GTHours% = 0
842.         ELSEIF HighlightedOption% = 2 THEN
843.           GTMinutes% = GTMinutes% + Increment%
844.           IF GTMinutes% > 59 THEN GTMinutes% = 0
845.         ELSEIF HighlightedOption% = 3 THEN
846.           GTSeconds% = GTSeconds% + Increment%
847.           IF GTSeconds% > 59 THEN GTSeconds% = 0
848.         END IF
849.         HaltAndDisplay% = TRUE
850.       CASE LeftArrowKey$
851.         HighlightedOption% = HighlightedOption% - 1
852.         IF HighlightedOption% = 0 THEN HighlightedOption% = MaxOption%
853.         HaltAndDisplay% = TRUE
854.       CASE RightArrowKey$
855.         HighlightedOption% = HighlightedOption% + 1
856.         IF HighlightedOption% > MaxOption% THEN HighlightedOption% = 1
857.         HaltAndDisplay% = TRUE
858.       CASE CHR$(13)
859.         GTRtn$ = MakeFormattedTIME$(GTHours%, GTMinutes%, GTSeconds%)
860.       CASE CHR$(27)
861.         GTHours% = VAL(LEFT$(TIME$, 2))
862.         GTMinutes% = VAL(MID$(TIME$, 4, 2))
863.         GTSeconds% = VAL(RIGHT$(TIME$, 2))
864.         HaltAndDisplay% = TRUE%
865.       CASE "X", "x"
866.         SYSTEM
867.     END SELECT
868.   LOOP UNTIL UserCommand$ = CHR$(13)
869.  
870.   GetTime$ = GTRtn$
871. END FUNCTION
872.  
873. FUNCTION MakeFormattedTIME$ (MFHours%, MFMinutes%, MFSeconds%)
874.   MFTRtn$ = ""
875.  
876.   IF MFHours% < 10 THEN MFTRtn$ = "0"
877.   MFTRtn$ = MFTRtn$ + S$(MFHours%) + ":"
878.   IF MFMinutes% < 10 THEN MFTRtn$ = MFTRtn$ + "0"
879.   MFTRtn$ = MFTRtn$ + S$(MFMinutes%) + ":"
880.   IF MFSeconds% < 10 THEN MFTRtn$ = MFTRtn$ + "0"
881.   MFTRtn$ = MFTRtn$ + S$(MFSeconds%)
882.  
883.   MakeFormattedTIME$ = MFTRtn$
884.  
885. END FUNCTION
886.  
887. FUNCTION LongCenter$ (Text$, CutHere%, BlankLineBetween%)
888.   PartString$ = "": Spaces$ = "": CutString$ = "": LCRtn$ = "": LastSpaces$ = ""
889.   NumLastSpaces% = 0
890.  
891.   CutHere% = CutHere% + 1
892.   DO
893.     DO
894.       CutHere% = CutHere% - 1
895.       Cutting$ = MID$(Text$, CutHere%, 1)
896.     LOOP UNTIL Cutting$ = " "
897.     PartString$ = MID$(Text$, 1, CutHere%)
898.     Text$ = MID$(Text$, CutHere% + 1, LEN(Text$))
899.     Spaces$ = STRING$(Center(PartString$), " ")
900.     CutString$ = Spaces$ + PartString$ + Spaces$
901.     LCRtn$ = LCRtn$ + CutString$
902.     IF BlankLineBetween% = TRUE% THEN LCRtn$ = LCRtn$ + STRING$(80, " ")
903.   LOOP UNTIL LEN(Text$) < CutHere%
904.   NumLastSpaces% = Center(Text$)
905.   LastSpaces$ = STRING$(NumLastSpaces%, " ")
906.   LCRtn$ = LCRtn$ + LastSpaces$ + Text$
907.   LongCenter$ = LCRtn$
908. END FUNCTION
909.  
910.  
911. FUNCTION DaysPassedJanFromMonthDayYear% (Month9%, Day9%, Years9%)
912.   DPJFMDYRtn% = 0: LeapYear% = 0
913.  
914.   IF Years9% MOD 4 = 0 THEN
915.   LeapYear% = 1: ELSE LeapYear% = 0: END IF
916.  
917.   SELECT CASE Month9%
918.     CASE 1
919.       DPJFMDYRtn% = Day9%
920.     CASE 2
921.       DPJFMDYRtn% = 31 + Day9%
922.     CASE 3
923.       DPJFMDYRtn% = 31 + 28 + LeapYear% + Day9%
924.     CASE 4
925.       DPJFMDYRtn% = 31 + 28 + LeapYear% + 31 + Day9%
926.     CASE 5
927.       DPJFMDYRtn% = 31 + 28 + LeapYear% + 31 + 30 + Day9%
928.     CASE 6
929.       DPJFMDYRtn% = 31 + 28 + LeapYear% + 31 + 30 + 31 + Day9%
930.     CASE 7
931.       DPJFMDYRtn% = 31 + 28 + LeapYear% + 31 + 30 + 31 + 30 + Day9%
932.     CASE 8
933.       DPJFMDYRtn% = 31 + 28 + LeapYear% + 31 + 30 + 31 + 30 + 31 + Day9%
934.     CASE 9
935.       DPJFMDYRtn% = 31 + 28 + LeapYear% + 31 + 30 + 31 + 30 + 31 + 31 + Day9%
936.     CASE 10
937.       DPJFMDYRtn% = 31 + 28 + LeapYear% + 31 + 30 + 31 + 30 + 31 + 31 + 30 + Day9%
938.     CASE 11
939.       DPJFMDYRtn% = 31 + 28 + LeapYear% + 31 + 30 + 31 + 30 + 31 + 31 + 30 + 31 + Day9%
940.     CASE 12
941.       DPJFMDYRtn% = 31 + 28 + LeapYear% + 31 + 30 + 31 + 30 + 31 + 31 + 30 + 31 + 30 + Day9%
942.   END SELECT
943.   DaysPassedJanFromMonthDayYear = DPJFMDYRtn%
944. END FUNCTION
945.  
946. SUB HowLongSince
947.   YearNow% = 0: DayNow% = 0: HourNow% = 0: MinuteNow% = 0: SecondNow% = 0: MonthNow% = 0
948.   HLSTargetDateAndTime$ = "": Instructions$ = "": DayNowCopy% = 0: HLSTargetYear% = 0: HLSTargetDay% = 0
949.   HLSTargetHour% = 0: HLSTargetMinute% = 0: HLSTargetSecond% = 0: HLSFinalYear% = 0: HLSFinalDay% = 0
950.   HLSFinalHour% = 0: HLSFinalMinute% = 0: HLSFinalSecond% = 0: SecondNowCopy% = 0: MinuteNowCopy% = 0: HourNowCopy% = 0
951.   DayNowCopy% = 0: YearNowCopy% = 0: HLSTargetMonth% = 0: HLSTargetDayCopy% = 0
952.  
953.   YearNow% = VAL(RIGHT$(DATE$, 4))
954.   DayNow% = VAL(MID$(DATE$, 4, 2))
955.   DayNowCopy% = DayNow%
956.   MonthNow% = VAL(LEFT$(DATE$, 2))
957.   DayNow% = DaysPassedJanFromMonthDayYear(MonthNow%, DayNow%, YearNow%)
958.   HourNow% = VAL(LEFT$(TIME$, 2))
959.   MinuteNow% = VAL(MID$(TIME$, 4, 2))
960.   SecondNow% = VAL(RIGHT$(TIME$, 2))
961.   YearNowCopy% = YearNow%
962.   HourNowCopy% = HourNow%
963.   MinuteNowCopy% = MinuteNow%
964.   SecondNowCopy% = SecondNow%
965.  
966.   Instructions$ = "Select A Target Date and Time Before " + WrittenOutDate$(MonthNow%, DayNowCopy%, YearNow%)
967.   Instructions$ = Instructions$ + " at " + ClockString$(HourNow%, MinuteNow%, SecondNow%)
968.   HLSTargetDateAndTime$ = GetDateAndTime$(Instructions$)
969.  
970.   whatTheHellString$ = MID$(HLSTargetDateAndTime$, 6, 3)
971.   whatTheHellInteger% = VAL(whatTheHellString$)
972.   HLSTargetYear% = VAL(LEFT$(HLSTargetDateAndTime$, 4))
973.   HLSTargetDay% = VAL(MID$(HLSTargetDateAndTime$, 6, 3))
974.   HLSTargetHour% = VAL(MID$(HLSTargetDateAndTime$, 10, 2))
975.   HLSTargetMinute% = VAL(MID$(HLSTargetDateAndTime$, 13, 2))
976.   HLSTargetSecond% = VAL(RIGHT$(HLSTargetDateAndTime$, 2))
977.   HLSTargetMonth% = MonthOrDayFromDaysPassedJan(HLSTargetDay%, 1, HLSTargetYear%)
978.   HLSTargetDayCopy% = MonthOrDayFromDaysPassedJan(HLSTargetDay%, 2, HLSTargetYear%)
979.  
980.   HLSFinalSecond% = SecondNow% - HLSTargetSecond%
981.   IF HLSFinalSecond% < 0 THEN
982.     HLSFinalSecond% = HLSFinalSecond% + 60
983.     MinuteNow% = MinuteNow% - 1
984.   END IF
985.   HLSFinalMinute% = MinuteNow% - HLSTargetMinute%
986.   IF HLSFinalMinute% < 0 THEN
987.     HLSFinalMinute% = HLSFinalMinute% + 60
988.     HourNow% = HourNow% - 1
989.   END IF
990.   HLSFinalHour% = HourNow% - HLSTargetHour%
991.   IF HLSFinalHour% < 0 THEN
992.     HLSFinalHour% = HLSFinalHour% + 24
993.     DayNow% = DayNow% - 1
994.   END IF
995.   HLSFinalDay% = DayNow% - whatTheHellInteger%
996.   IF HLSFinalDay% < 0 THEN
997.     HLSFinalDay% = HLSFinalDay% + 365
998.     YearNow% = YearNow% - 1
999.   END IF
1000.   HLSFinalYear% = YearNow% - HLSTargetYear%
1001.  
1002.   COLOR 14, 1: CLS
1003.   IF HLSFinalYear% < 0 THEN
1004.     a$ = "": a$ = "The selected date and time is after "
1005.     a$ = a$ + WrittenOutDate$(MonthNow%, DayNowCopy%, YearNowCopy%)
1006.     a$ = a$ + " at " + ClockString$(HourNowCopy%, MinuteNowCopy%, SecondNowCopy%)
1007.     LOCATE 24, 1
1008.     PRINT LongCenter$(a$, 50, TRUE%)
1009.   ELSE
1010.     a$ = "": a$ = WrittenOutDate$(HLSTargetMonth%, HLSTargetDayCopy%, HLSTargetYear%)
1011.     a$ = a$ + " at " + ClockString$(HLSTargetHour%, HLSTargetMinute%, HLSTargetSecond%)
1012.     a$ = a$ + " occurred "
1013.     a$ = a$ + ElapsedTimeWrittenOut$(MakeElapsedTimeShort$(HLSFinalYear%, HLSFinalDay%, HLSFinalHour%, HLSFinalMinute%, HLSFinalSecond%))
1014.     a$ = a$ + " ago"
1015.     LOCATE 24, 1
1016.     PRINT LongCenter(a$, 50, TRUE%)
1017.   END IF
1018.   a$ = "Hit any key": LOCATE 48, Center(a$): PRINT a$: ll$ = P$
1019. END SUB
1020.  
1021. SUB WhatDateAfterElapsedTime
1022.   TimePassed$ = "": YearsToday% = 0: MonthToday% = 0: DaysToday% = 0: DaysTodayAfterJan0% = 0: HoursToday% = 0: MinutesToday% = 0
1023.   SecondsToday% = 0: YearsPassed% = 0: DaysPassed% = 0: HoursPassed% = 0: MinutesPassed% = 0: SecondsPassed% = 0
1024.   ResultingYears% = 0: ResultingDaysPassedJan% = 0: ResultingDays% = 0: ResultingHours% = 0: ResultingMinutes% = 0
1025.   ResultingSeconds% = 0: ResultingDateMonth% = 0: ResultingDateDay% = 0: ResultingDateYear% = 0: ResultingTimeHour% = 0
1026.   ResultingTimeMinutes% = 0: ResultingTimeSeconds% = 0: AnswerString$ = ""
1027.  
1028.  
1029.   YearsToday% = VAL(RIGHT$(DATE$, 4))
1030.   DaysToday% = VAL(MID$(DATE$, 4, 2))
1031.   MonthToday% = VAL(LEFT$(DATE$, 2))
1032.   DaysTodayAfterJan0% = DaysPassedJanFromMonthDayYear(MonthToday%, DaysToday%, YearsToday%)
1033.   HoursToday% = VAL(LEFT$(TIME$, 2))
1034.   MinutesToday% = VAL(MID$(TIME$, 4, 2))
1035.   SecondsToday% = VAL(RIGHT$(TIME$, 2))
1036.  
1037.   TimePassed$ = GetElapsedTime$("Find the date after how much time has passed?")
1038.   YearsPassed% = VAL(LEFT$(TimePassed$, 4))
1039.   DaysPassed% = VAL(MID$(TimePassed$, 6, 3))
1040.   HoursPassed% = VAL(MID$(TimePassed$, 10, 2))
1041.   MinutesPassed% = VAL(MID$(TimePassed$, 13, 2))
1042.   SecondsPassed% = VAL(RIGHT$(TimePassed$, 2))
1043.  
1044.   ResultingSeconds% = SecondsToday% + SecondsPassed%
1045.   IF ResultingSeconds% >= 60 THEN
1046.     ResultingSeconds% = ResultingSeconds% - 60
1047.     MinutesPassed% = MinutesPassed% + 1
1048.   END IF
1049.   ResultingMinutes% = MinutesToday% + MinutesPassed%
1050.   IF ResultingMinutes% >= 60 THEN
1051.     ResultingMinutes% = ResultingMinutes% - 60
1052.     HoursPassed% = HoursPassed% + 1
1053.   END IF
1054.   ResultingHours% = HoursToday% + HoursPassed%
1055.   IF ResultingHours% >= 24 THEN
1056.     ResultingHours% = ResultingHours% - 24
1057.     DaysPassed% = DaysPassed% + 1
1058.   END IF
1059.   ResultingDays% = DaysTodayAfterJan0% + DaysPassed%
1060.   IF ResultingDays% >= 365 THEN
1061.     ResultingDays% = ResultingDays% - 365
1062.     YearsPassed% = YearsPassed% + 1
1063.   END IF
1064.   ResultingYears% = YearsToday% + YearsPassed%
1065.   ResultingDateYear% = ResultingYears%
1066.   ResultingDateMonth% = MonthOrDayFromDaysPassedJan(ResultingDays%, 1, ResultingDateYear%)
1067.   ResultingDateDay% = MonthOrDayFromDaysPassedJan(ResultingDays%, 2, ResultingDateYear%)
1068.   ResultingTimeHour% = ResultingHours%
1069.   ResultingTimeMinutes% = ResultingMinutes%
1070.   ResultingTimeSeconds% = ResultingSeconds%
1071.   AnswerString$ = ElapsedTimeWrittenOut$(MakeElapsedTimeShort$(YearsPassed%, DaysPassed%, HoursPassed%, MinutesPassed%, SecondsPassed%))
1072.   AnswerString$ = AnswerString$ + " after now is "
1073.   AnswerString$ = AnswerString$ + WrittenOutDate$(ResultingDateMonth%, ResultingDateDay%, ResultingDateYear%)
1074.   AnswerString$ = AnswerString$ + " at " + ClockString$(ResultingTimeHour%, ResultingTimeMinutes%, ResultingTimeSeconds%)
1075.   CLS
1076.   LOCATE 23, 1
1077.   PRINT LongCenter$(AnswerString$, 45, TRUE%)
1078.   a$ = "": a$ = "Hit any key": LOCATE 48, Center(a$): PRINT a$: ll$ = P$
1079. END SUB
1080.  
1081. SUB AddElapsedTimes
1082.   Years1% = 0: Years2% = 0: AddedYears% = 0: Days1% = 0: Days2% = 0: AddedDays% = 0: Hours1% = 0
1083.   Hours2% = 0: AddedHours% = 0: Minutes1% = 0: Minutes2% = 0: AddedMinutes% = 0: Seconds1% = 0
1084.   Seconds2% = 0: AddedSeconds% = 0: et1$ = "": et2$ = "": Prompt2$ = "": AnswerString$ = "": AT$ = ""
1085.  
1086.   et1$ = GetElapsedTime$("Select the fire time")
1087.   Years1% = VAL(LEFT$(et1$, 4))
1088.   Days1% = VAL(MID$(et1$, 6, 3))
1089.   Hours1% = VAL(MID$(et1$, 10, 2))
1090.   Minutes1% = VAL(MID$(et1$, 13, 2))
1091.   Seconds1% = VAL(RIGHT$(et1$, 2))
1092.  
1093.   Prompt2$ = "Select the amount of time to add to " + ElapsedTimeWrittenOut$(et1$)
1094.   et2$ = GetElapsedTime$(Prompt2$)
1095.   Years2% = VAL(LEFT$(et2$, 4))
1096.   Days2% = VAL(MID$(et2$, 6, 3))
1097.   Hours2% = VAL(MID$(et2$, 10, 2))
1098.   Minutes2% = VAL(MID$(et2$, 13, 2))
1099.   Seconds2% = VAL(RIGHT$(et2$, 2))
1100.  
1101.   AddedSeconds% = Seconds1% + Seconds2%
1102.   IF AddedSeconds% >= 60 THEN
1103.     AddedSeconds% = AddedSeconds% - 60
1104.     Minutes1% = Minutes1% + 1
1105.   END IF
1106.   AddedMinutes% = Minutes1% + Minutes2%
1107.   IF AddedMinutes% >= 60 THEN
1108.     AddedMinutes% = AddedMinutes% - 60
1109.     Hours1% = Hours1% + 1
1110.   END IF
1111.   AddedHours% = Hours1% + Hours2%
1112.   IF AddedHours% >= 24 THEN
1113.     AddedHours% = AddedHours% - 24
1114.     Days1% = Days1% + 1
1115.   END IF
1116.   AddedDays% = Days1% + Days2%
1117.   IF AddedDays% >= 365 THEN
1118.     AddedDays% = AddedDays% - 365
1119.     Years1% = Years1% + 1
1120.   END IF
1121.   AddedYears% = Years1% + Years2%
1122.  
1123.   COLOR 14, 1: CLS
1124.   AnswerString$ = ElapsedTimeWrittenOut$(et1$) + " added with " + ElapsedTimeWrittenOut$(et2$)
1125.   ATShort$ = MakeElapsedTimeShort$(AddedYears%, AddedDays%, AddedHours%, AddedMinutes%, AddedSeconds%)
1126.   AT$ = ElapsedTimeWrittenOut$(ATShort$)
1127.   AnswerString$ = AnswerString$ + " equals " + AT$
1128.   LOCATE 20, 1
1129.   PRINT LongCenter$(AnswerString$, 50, TRUE%)
1130.   ll$ = P$
1131. END SUB
1132.  
1133. SUB SubtractElapsedTimes
1134.   Et1$ = "": Et2$ = "": Prompt1$ = "": Prompt2$ = "": Years1% = 0: Years2% = 0: SubtractedYears% = 0: Days1% = 0: Days2% = 0
1135.   SubtractedDays% = 0: Hours1% = 0: Hours2% = 0: SubtractedHours% = 0: Minutes1% = 0: Minutes2% = 0: SubtractedMinutes% = 0
1136.   Seconds1% = 0: Seconds2% = 0: SubtractedSeconds% = 0: BT% = 0: FirstYears% = 0: SecondYears% = 0: FirstDays% = 0: SecondDays% = 0
1137.   FirstHours% = 0: SecondHours% = 0: FirstMinutes% = 0: SecondMinutes% = 0: FirstSeconds% = 0: SecondSeconds% = 0: Result$ = ""
1138.   FTWO$ = "": STWO$ = "": SubTWO$ = ""
1139.  
1140.   Prompt1$ = "Select one of the 2 times"
1141.   Et1$ = GetElapsedTime$(Prompt1$)
1142.   Years1% = VAL(LEFT$(Et1$, 4))
1143.   Days1% = VAL(MID$(Et1$, 6, 3))
1144.   Hours1% = VAL(MID$(Et1$, 10, 2))
1145.   Minutes1% = VAL(MID$(Et1$, 13, 2))
1146.   Seconds1% = VAL(RIGHT$(Et1$, 2))
1147.  
1148.   Prompt2$ = "Select the second time -- The smaller time will be subtracted from the larger"
1149.   Et2$ = GetElapsedTime$(Prompt2$)
1150.   Years2% = VAL(LEFT$(Et2$, 4))
1151.   Days2% = VAL(MID$(Et2$, 6, 3))
1152.   Hours2% = VAL(MID$(Et2$, 10, 2))
1153.   Minutes2% = VAL(MID$(Et2$, 13, 2))
1154.   Seconds2% = VAL(RIGHT$(Et2$, 2))
1155.  
1156.   BT% = 1
1157.   IF Years1% < Years2% THEN
1158.     BT% = 2
1159.   ELSEIF Years1% = Years2% AND Days1% < Days2% THEN BT% = 2
1160.   ELSEIF Years1% = Years2% AND Days1% = Days2% AND Hours1% < Hours2% THEN BT% = 2
1161.   ELSEIF Years1% = Years2% AND Days1% = Days2% AND Hours1% = Hours2% AND Minutes1% < Minutes2% THEN BT% = 2
1162.   ELSEIF Years1% = Years2% AND Days1% = Days2% AND Hours1% = Hours2% AND Minutes1% = Minutes1% AND Seconds1% < Seconds2% THEN BT% = 2
1163.   END IF
1164.  
1165.   ' first - second
1166.   IF BT% = 1 THEN
1167.     FirstYears% = Years1%: SecondYears% = Years2%
1168.     FirstDays% = Days1%: SecondDays% = Days2%
1169.     FirstHours% = Hours1%: SecondHours% = Hours2%
1170.     FirstMinutes% = Minutes1%: SecondMinutes% = Minutes2%
1171.     FirstSeconds% = Seconds1%: SecondSeconds% = Seconds2%
1172.   ELSE
1173.     FirstYears% = Years2%: SecondYears% = Years1%
1174.     FirstDays% = Days2%: SecondDays% = Days1%
1175.     FirstHours% = Hours2%: SecondHours% = Hours1%
1176.     FirstMinutes% = Minutes2%: SecondMinutes% = Minutes1%
1177.     FirstSeconds% = Seconds2%: SecondSeconds% = Seconds1%
1178.   END IF
1179.  
1180.  
1181.   SubtractedSeconds% = FirstSeconds% - SecondSeconds%
1182.   IF SubtractedSeconds% < 0 THEN
1183.     SubtractedSeconds% = SubtractedSeconds% + 60
1184.     FirstMinutes% = FirstMinutes% - 1
1185.   END IF
1186.   SubtractedMinutes% = FirstMinutes% - SecondMinutes%
1187.   IF SubtractedMinutes% < 0 THEN
1188.     SubtractedMinutes% = SubtractedMinutes% + 60
1189.     FirstHours% = FirstHours% - 1
1190.   END IF
1191.   SubtractedHours% = FirstHours% - SecondHours%
1192.   IF SubtractedHours% < 0 THEN
1193.     SubtractedHours% = SubtractedHours% + 24
1194.     FirstDays% = FirstDays% - 1
1195.   END IF
1196.   SubtractedDays% = FirstDays% - SecondDays%
1197.   IF SubtractedDays% < 0 THEN
1198.     SubtractedDays% = SubtractedDays% + 365
1199.     FirstYears% = FirstYears% - 1
1200.   END IF
1201.   SubtractedYears% = FirstYears% - SecondYears%
1202.  
1203.   CLS
1204.   PRINT "SubtractedYears%: " + S$(SubtractedYears%)
1205.   PRINT "SubtractedDays%: " + S$(SubtractedDays%)
1206.   PRINT "SubtractedHours%: " + S$(SubtractedHours%)
1207.   PRINT "SubtractedMinutes%: " + S$(SubtractedMinutes%)
1208.   PRINT "SubtractedSeconds%: " + S$(SubtractedSeconds%)
1209.   ll$ = P$
1210.  
1211.   FTWO$ = ElapsedTimeWrittenOut$(Et1$)
1212.   STWO$ = ElapsedTimeWrittenOut$(Et2$)
1213.   SubTWO$ = ElapsedTimeWrittenOut$(MakeElapsedTimeShort$(SubtractedYears%, SubtractedDays%, SubtractedHours%, SubtractedMinutes%, SubtractedSeconds%))
1214.  
1215.   Result$ = FTWO$ + " minus " + STWO$ + " equals " + SubTWO$
1216.   CLS: COLOR 14, 1: LOCATE 20, 1: PRINT LongCenter$(Result$, 50, TRUE%)
1217.   ll$ = P$
1218. END SUB
1219.  
1220. SUB Multiply
1221.   Prompt$ = "": Et$ = "": Years% = 0: Days% = 0: Hours% = 0: Minutes% = 0: Seconds% = 0: ETWO$ = "": x = 0
1222.   Constant! = 0.0: ProductYears% = 0: ProductDays% = 0: ProductHours% = 0: ProductMinutes% = 0: ProductSeconds% = 0
1223.   TMin% = 0: THr% = 0: Tsec% = 0: Tday% = 0: Tyr% = 0: Ans$ = ""
1224.  
1225.   Prompt$ = "Select a time to multiply"
1226.   Et$ = GetElapsedTime$(Prompt$)
1227.   Years% = VAL(LEFT$(Et$, 4))
1228.   Days% = VAL(MID$(Et$, 6, 3))
1229.   Hours% = VAL(MID$(Et$, 10, 2))
1230.   Minutes% = VAL(MID$(Et$, 13, 2))
1231.   Seconds% = VAL(MID$(Et$, 16, 2))
1232.  
1233.   COLOR 14, 1: CLS
1234.   LOCATE 20, Center("Multiply")
1235.   ETWO$ = ElapsedTimeWrittenOut$(Et$)
1236.   LOCATE 22, Center(ETWO$): PRINT ETWO$
1237.   x = Center("by what    ")
1238.   LOCATE 25, x: INPUT "by what"; Constant!
1239.  
1240.   ProductSeconds% = RoundOff(Seconds% * Constant! / 100) * 100
1241.   IF ProductSeconds% >= 60 THEN
1242.     DO
1243.       ProductSeconds% = ProductSeconds% - 60
1244.       TMin% = TMin% + 1
1245.     LOOP UNTIL ProductSeconds% < 60
1246.   END IF
1247.   ProductMinutes% = RoundOff(Minutes% * Constant! / 100) * 100 + TMin%
1248.   IF ProductMinutes% >= 60 THEN
1249.     DO
1250.       ProductMinutes% = ProductMinutes% - 60
1251.       THr% = THr% + 1
1252.     LOOP UNTIL ProductMinutes% < 60
1253.   END IF
1254.   ProductHours% = RoundOff(Hours% * Constant! / 100) * 100 + THr%
1255.   IF ProductHours% >= 24 THEN
1256.     DO
1257.       ProductHours% = ProductHours% - 24
1258.       Tday% = Tday% + 1
1259.     LOOP UNTIL ProductHours% < 24
1260.   END IF
1261.   ProductDays% = RoundOff(Days% * Constant! / 100) * 100 + Tday%
1262.   IF ProductDays% >= 365 THEN
1263.     ProductDays% = ProductDays% - 365
1264.     Tyr% = Tyr% + 1
1265.   END IF
1266.   ProductYears% = RoundOff(Years% * Constant! / 100) * 100 + Tyr%
1267.  
1268.   CLS
1269.   IF ProductYears% > 9999 THEN
1270.     LOCATE 10: a$ = "": a$ = "May not display correctly": LOCATE , Center(a$): PRINT a$
1271.   END IF
1272.   LOCATE 20, Center(ElapsedTimeWrittenOut$(Et$)): PRINT ElapsedTimeWrittenOut$(Et$)
1273.   Ans$ = "multiplied by " + S$(Constant!) + " equals": LOCATE 22, Center(Ans$): PRINT Ans$
1274.   LOCATE 24, 1
1275.   PRINT LongCenter(ElapsedTimeWrittenOut$(MakeElapsedTimeShort$(ProductYears%, ProductDays%, ProductHours%, ProductMinutes%, ProductSeconds%)), 40, TRUE)
1276.   ll$ = P$
1277. END SUB
1278.  
1279. FUNCTION RoundOff (Number!)
1280.   DIM Rtn!, DifferentNumber!, Decimal!: Rtn = 0.0: DifferentNumber = 0.0: Decimal = 0.0
1281.   Decimal = INT(Number * 1000) - (INT(Number * 100) * 10)
1282.   DifferentNumber! = INT(Number! * 100)
1283.   IF Decimal! >= 5 AND Decimal! <= 9 THEN
1284.     DifferentNumber! = DifferentNumber! + 1
1285.   ELSE
1286.     DifferentNumber! = DifferentNumber!
1287.   END IF
1288.   Rtn = DifferentNumber! / 100
1289.   RoundOff = Rtn!
1290. END FUNCTION
1291.  
1292. FUNCTION GetElapsedTime$ (title$)
1293.   DIM minOption, maxOption, haltAndDisplay, xPos, yPos, highlightedOption AS INTEGER
1294.   DIM Years1, Days1, Hours1, Minutes1, Seconds1 AS INTEGER
1295.   KeyThatWasHit% = 0: TimerStarted% = FALSE%: FirstTime% = 0: Increment% = 1: RecentTime% = 0: TimeDifference% = 0
1296.  
1297.   highlightedOption = 4: haltAndDisplay = TRUE
1298.   minOption = 4: maxOption = 8
1299.   DO
1300.     userCommand$ = INKEY$
1301.     IF haltAndDisplay = TRUE THEN
1302.       COLOR 14, 1: CLS: yPos = 22: xPos = 10
1303.       COLOR 15, 1
1304.       titleCopy$ = title$
1305.       IF LEN(titleCopy$) >= 60 THEN
1306.         a$ = LongCenter(titleCopy$, 60, FALSE%)
1307.         LOCATE 8, 1: PRINT a$
1308.       ELSE
1309.         LOCATE 8, Center(titleCopy$): PRINT title$
1310.       END IF
1311.       COLOR 12, 1
1312.       Instructions$ = ""
1313.       Instructions$ = "Use the arrow keys to select the desired elapsed time - Push [ENTER] to accept - Push "
1314.       Instructions$ = Instructions$ + "Push [ESC] to reset - Push " + CHR$(34) + "X" + CHR$(34) + " to exit to the system"
1315.       LOCATE yPos + 18, 1
1316.       PRINT LongCenter$(Instructions$, 50, FALSE%)
1317.  
1318.       xPos = xPos + 16
1319.  
1320.       'Years
1321.       LOCATE yPos - 5, xPos - 10
1322.       IF highlightedOption = 4 THEN
1323.       COLOR 10, 0: ELSE COLOR 14, 1: END IF: PRINT "Years"
1324.       LOCATE yPos - 2, xPos - 10: COLOR 14, 1:
1325.       IF Years1 - 1 >= 0 THEN
1326.       PRINT USING "#,###"; (Years1 - 1): ELSE PRINT "9,999": END IF
1327.       LOCATE yPos: COLOR 10, 0: IF Years1 >= 0 AND Years1 < 10 THEN
1328.         LOCATE , xPos - 6: PRINT S$(Years1)
1329.       ELSEIF Years1 >= 10 AND Years1 < 100 THEN LOCATE , xPos - 7: PRINT S$(Years1)
1330.       ELSEIF Years1 >= 100 AND Years1 < 1000 THEN LOCATE , xPos - 8: PRINT S$(Years1)
1331.       ELSEIF Years1 >= 1000 AND Years1 < 10000 THEN LOCATE , xPos - 10: PRINT USING "#,###"; Years1
1332.       ELSE PRINT "I hope I don't see this error": END IF
1333.       LOCATE yPos + 2, xPos - 10: COLOR 14, 1: IF Years1 + 1 < 10000 THEN
1334.       PRINT USING "#,###"; Years1 + 1: ELSE PRINT USING "#,###"; 0: END IF
1335.  
1336.       'Days
1337.       LOCATE yPos - 5, xPos
1338.       IF highlightedOption = 5 THEN
1339.       COLOR 10, 0: ELSE COLOR 14, 1: END IF: PRINT "Days"
1340.       COLOR 14, 1: LOCATE yPos - 2, xPos: IF Days1 - 1 = -1 THEN
1341.       PRINT "364": ELSE PRINT USING "###"; Days1 - 1: END IF
1342.       COLOR 10, 0: LOCATE yPos: IF Days1 < 10 THEN
1343.         LOCATE , xPos + 2: PRINT S$(Days1)
1344.       ELSEIF Days1 < 100 THEN LOCATE , xPos + 1: PRINT S$(Days1)
1345.       ELSE LOCATE , xPos: PRINT S$(Days1): END IF
1346.       COLOR 14, 1: LOCATE yPos + 2, xPos + 0: IF Days1 + 1 < 365 THEN
1347.       PRINT USING "###"; Days1 + 1: ELSE PRINT USING "###"; 0: END IF
1348.  
1349.       LOCATE yPos - 5, xPos + 9
1350.       IF highlightedOption = 6 THEN
1351.       COLOR 10, 0: ELSE COLOR 14, 1: END IF: PRINT "Hours"
1352.       COLOR 14, 1: LOCATE yPos - 2, xPos + 11: IF Hours1 - 1 >= 0 THEN
1353.       PRINT S$(Hours1 - 1): ELSE PRINT "23": END IF
1354.       LOCATE yPos, xPos + 11: COLOR 10, 0: PRINT S$(Hours1)
1355.       LOCATE yPos + 2, xPos + 11: COLOR 14, 1: IF Hours1 + 1 <= 23 THEN
1356.       PRINT S$(Hours1 + 1): ELSE PRINT "0": END IF
1357.  
1358.       LOCATE yPos - 5, xPos + 18
1359.       IF highlightedOption = 7 THEN
1360.       COLOR 10, 0: ELSE COLOR 14, 1: END IF: PRINT "Minutes"
1361.       COLOR 14, 1: LOCATE yPos - 2, xPos + 20: IF Minutes1 - 1 >= 0 THEN
1362.       PRINT S$(Minutes1 - 1): ELSE PRINT "59": END IF
1363.       LOCATE yPos, xPos + 20: COLOR 10, 0: PRINT S$(Minutes1)
1364.       LOCATE yPos + 2, xPos + 20: COLOR 14, 1: IF Minutes1 + 1 < 60 THEN
1365.       PRINT S$(Minutes1 + 1): ELSE PRINT "0": END IF
1366.  
1367.       LOCATE yPos - 5, xPos + 29
1368.       IF highlightedOption = 8 THEN
1369.       COLOR 10, 0: ELSE COLOR 14, 1: END IF: PRINT "Seconds"
1370.       COLOR 14, 1: LOCATE yPos - 2, xPos + 32: IF Seconds1 - 1 >= 0 THEN
1371.       PRINT S$(Seconds1 - 1): ELSE PRINT "59": END IF
1372.       LOCATE yPos, xPos + 32: COLOR 10, 0: PRINT S$(Seconds1)
1373.       LOCATE yPos + 2, xPos + 32: COLOR 14, 1: IF Seconds1 + 1 <= 59 THEN
1374.       PRINT S$(Seconds1 + 1): ELSE PRINT "0": END IF
1375.  
1376.       a$ = "": a$ = ElapsedTimeWrittenOut$(MakeElapsedTimeShort$(Years1, Days1, Hours1, Minutes1, Seconds1))
1377.       LOCATE yPos + 12, Center(a$): PRINT a$
1378.  
1379.       haltAndDisplay = FALSE
1380.     END IF
1381.  
1382.     SomeKey% = _KEYHIT
1383.     IF SomeKey% = UpKeyHit% OR SomeKey% = DownKeyHit% THEN
1384.       IF TimerStarted% = FALSE% THEN
1385.         FirstTime% = TIMER
1386.         TimerStarted% = TRUE%
1387.       END IF
1388.     END IF
1389.     IF SomeKey% < 0 THEN
1390.       FirstTime% = 0
1391.       Increment% = 1
1392.       TimeElapsed% = 0
1393.       TimerStarted% = FALSE%
1394.     END IF
1395.     TimeElapsed% = ABS(TIMER - FirstTime%)
1396.     IF TimeElapsed% = 2 THEN
1397.       IF highlightedOption = 4 THEN Increment% = 5
1398.       IF highlightedOption = 5 THEN Increment% = 3
1399.       IF highlightedOption = 7 THEN Increment% = 2
1400.       IF highlightedOption = 8 THEN incrment% = 2
1401.     ELSEIF TimeElapsed% = 3 THEN
1402.       IF highlightedOption = 4 THEN Increment% = 15
1403.       IF highlightedOption = 5 THEN Increment% = 10
1404.       IF highlightedOption = 7 THEN Increment% = 5
1405.       IF highlightedOption = 8 THEN Increment% = 5
1406.     ELSEIF TimeElapsed% = 4 THEN
1407.       IF highlightedOption = 4 THEN Increment% = 40
1408.       IF highlightedOption = 5 THEN Increment% = 15
1409.     ELSEIF TimeElapsed% = 5 THEN Increment% = 70
1410.     END IF
1411.  
1412.     SELECT CASE userCommand$
1413.       CASE UpArrowKey$
1414.         IF highlightedOption = 4 THEN
1415.           Years1 = Years1 - Increment%
1416.           IF Years1 <= -1 THEN Years1 = 9999
1417.         ELSEIF highlightedOption = 5 THEN
1418.           Days1 = Days1 - Increment%
1419.           IF Days1 <= -1 THEN Days1 = 364
1420.         ELSEIF highlightedOption = 6 THEN
1421.           Hours1 = Hours1 - 1
1422.           IF Hours1 = -1 THEN Hours1 = 23
1423.         ELSEIF highlightedOption = 7 THEN
1424.           Minutes1 = Minutes1 - Increment%
1425.           IF Minutes1 <= -1 THEN Minutes1 = 59
1426.         ELSEIF highlightedOption = 8 THEN
1427.           Seconds1 = Seconds1 - Increment%
1428.           IF Seconds1 <= -1 THEN Seconds1 = 59
1429.         END IF
1430.         haltAndDisplay = TRUE
1431.       CASE DownArrowKey$
1432.         IF highlightedOption = 4 THEN
1433.           Years1 = Years1 + Increment%
1434.           IF Years1 >= 10000 THEN Years1 = 0
1435.         ELSEIF highlightedOption = 5 THEN
1436.           Days1 = Days1 + Increment%
1437.           IF Days1 >= 365 THEN Days1 = 0
1438.         ELSEIF highlightedOption = 6 THEN
1439.           Hours1 = Hours1 + 1
1440.           IF Hours1 = 24 THEN Hours1 = 0
1441.         ELSEIF highlightedOption = 7 THEN
1442.           Minutes1 = Minutes1 + Increment%
1443.           IF Minutes1 >= 60 THEN Minutes1 = 0
1444.         ELSEIF highlightedOption = 8 THEN
1445.           Seconds1 = Seconds1 + Increment%
1446.           IF Seconds1 >= 60 THEN Seconds1 = 0
1447.         END IF
1448.         haltAndDisplay = TRUE
1449.       CASE RightArrowKey$
1450.         highlightedOption = highlightedOption + 1
1451.         IF highlightedOption > maxOption THEN highlightedOption = minOption
1452.         haltAndDisplay = TRUE
1453.       CASE LeftArrowKey$
1454.         highlightedOption = highlightedOption - 1
1455.         IF highlightedOption < minOption THEN highlightedOption = maxOption
1456.         haltAndDisplay = TRUE
1457.       CASE CHR$(13), CHR$(32)
1458.         Rtn$ = MakeElapsedTimeShort$(Years1, Days1, Hours1, Minutes1, Seconds1)
1459.       CASE CHR$(27)
1460.         montH = 1: daY = 1: year = 2022
1461.         Years1 = 0: Days1 = 0: Hours1 = 0: Minutes1 = 0: Seconds1 = 0
1462.         Years2 = 0: Days2 = 0: Hours2 = 0: Minutes2 = 0: Seconds2 = 0
1463.         haltAndDisplay = TRUE
1464.       CASE "X", "x"
1465.         SYSTEM
1466.     END SELECT
1467.   LOOP UNTIL userCommand$ = CHR$(13) OR userCommand$ = CHR$(32)
1468.  
1469.   GetElapsedTime$ = Rtn$
1470.  
1471. END FUNCTION
1472.  
1473.  
1474. FUNCTION MonthOrDayFromDaysPassedJan% (Days27%, Month1Day2%, Year27%)
1475.   MODFDPJRtn% = 0: Month27% = 0: Leap% = 0
1476.  
1477.   IF Year27% MOD 4 = 0 THEN
1478.   Leap% = 1: ELSE Leap% = 0: END IF
1479.   SELECT CASE Days27%
1480.     CASE 1 TO 31 'January
1481.       Month27% = 1
1482.       Days27% = Days27%
1483.     CASE 32 TO 59 + Leap% 'February
1484.       Month27% = 2
1485.       Days27% = Days27% - 31
1486.     CASE 60 + Leap% TO 90 + Leap% 'March
1487.       Month27% = 3
1488.       Days27% = Days27% - 59 - Leap%
1489.     CASE 91 + Leap% TO 120 + Leap% 'april
1490.       Month27% = 4
1491.       Days27% = Days27% - 90 - Leap%
1492.     CASE 121 + Leap% TO 151 + Leap% 'may
1493.       Month27% = 5
1494.       Days27% = Days27% - 120 - Leap%
1495.     CASE 152 + Leap% TO 181 + Leap%
1496.       Month27% = 6
1497.       Days27% = Days27% - 150 - Leap%
1498.     CASE 182 + Leap% TO 212 + Leap%
1499.       Month27% = 7
1500.       Days27% = Days27% - 180 - Leap%
1501.     CASE 213 + Leap% TO 243 + Leap%
1502.       Month27% = 8
1503.       Days27% = Days27% - 212 - Leap%
1504.     CASE 244 + Leap% TO 273 + Leap%
1505.       Month27% = 9
1506.       Days27% = Days27% - 243 - Leap%
1507.     CASE 274 + Leap% TO 304 + Leap%
1508.       Month27% = 10
1509.       Days27% = Days27% - 273 - Leap%
1510.     CASE 305 + Leap% TO 334 + Leap%
1511.       Month27% = 11
1512.       Days27% = Days27% - 304 - Leap%
1513.     CASE 335 + Leap% TO 365 + Leap%
1514.       Month27% = 12
1515.       Days27% = Days27% - 334 - Leap%
1516.   END SELECT
1517.   IF Month1Day2% = 1 THEN
1518.     MODFDPJRtn% = Month27%
1519.   ELSEIF Month1Day2% = 2 THEN
1520.     MODFDPJRtn% = Days27%
1521.   END IF
1522.   MonthOrDayFromDaysPassedJan = MODFDPJRtn%
1523. END FUNCTION
1524.  
1525. FUNCTION MonthWord$ (Month10%)
1526.   MWRtn$ = ""
1527.  
1528.   SELECT CASE Month10%
1529.     CASE 0 ' for the top value of the dial
1530.       MWRtn$ = "December"
1531.     CASE 1
1532.       MWRtn$ = "January"
1533.     CASE 2
1534.       MWRtn$ = "February"
1535.     CASE 3
1536.       MWRtn$ = "March"
1537.     CASE 4
1538.       MWRtn$ = "April"
1539.     CASE 5
1540.       MWRtn$ = "May"
1541.     CASE 6
1542.       MWRtn$ = "June"
1543.     CASE 7
1544.       MWRtn$ = "July"
1545.     CASE 8
1546.       MWRtn$ = "August"
1547.     CASE 9
1548.       MWRtn$ = "September"
1549.     CASE 10
1550.       MWRtn$ = "October"
1551.     CASE 11
1552.       MWRtn$ = "November"
1553.     CASE 12
1554.       MWRtn$ = "December"
1555.     CASE 13 'for the bottom value of the dial
1556.       MWRtn$ = "January"
1557.   END SELECT
1558.   MonthWord$ = MWRtn$
1559. END FUNCTION
1560.  
1561. FUNCTION Suffix$ (DaySuffix%)
1562.   SRtn$ = ""
1563.   IF DaySuffix% = 1 OR DaySuffix% = 21 OR DaySuffix% = 31 THEN
1564.     SRtn$ = "st"
1565.   ELSEIF DaySuffix% = 2 OR DaySuffix% = 22 THEN SRtn$ = "nd"
1566.   ELSEIF DaySuffix% = 3 OR DaySuffix% = 23 THEN SRtn$ = "rd"
1567.   ELSE SRtn$ = "th": END IF
1568.   Suffix$ = SRtn$
1569. END FUNCTION
1570.  
1571. FUNCTION WrittenDate1Clock2Time3$ (AllFive$, Which%)
1572.   WD1C2T3Rtn$ = "": Years8% = 0: Days8% = 0: Hours8% = 0: Minutes8% = 0: Seconds8% = 0: Month8% = 0
1573.   AmPm8$ = "": LftNum8% = 0: RtNum8% = 0: LpYr% = 0
1574.  
1575.   Years8% = VAL(MID$(AllFive$, 1, 4))
1576.   Days8% = VAL(MID$(AllFive$, 6, 3))
1577.   Hours8% = VAL(MID$(AllFive$, 10, 2))
1578.   Minutes8% = VAL(MID$(AllFive$, 13, 2))
1579.   Seconds8% = VAL(MID$(AllFive$, 16, 2))
1580.   SELECT CASE Which%
1581.     CASE 1
1582.       Month8% = MonthOrDayFromDaysPassedJan(Days8% - LpYr%, 1, Years8%)
1583.       Days8% = MonthOrDayFromDaysPassedJan(Days8% - LpYr%, 2, Years8%)
1584.       WD1C2T3Rtn$ = MonthWord$(Month8%)
1585.       WD1C2T3Rtn$ = WD1C2T3Rtn$ + " " + S$(Days8%)
1586.       WD1C2T3Rtn$ = WD1C2T3Rtn$ + Suffix$(Days8%) + ", " + S$(Years8%)
1587.     CASE 2
1588.       IF Hours8% = 0 THEN
1589.         WD1C2T3Rtn$ = "12"
1590.         AmPm8$ = "AM"
1591.       ELSEIF Hours8% > 0 AND Hours8% < 12 THEN
1592.         WD1C2T3Rtn$ = S$(Hours8%)
1593.         AmPm8$ = "AM"
1594.       ELSEIF Hours% = 12 THEN
1595.         WD1C2T3Rtn$ = "12"
1596.         AmPm8$ = "PM"
1597.       ELSEIF Hours8% > 12 AND Hours8% < 24 THEN
1598.         WD1C2T3Rtn$ = S$(Hours8% - 12)
1599.         AmPm8$ = "PM"
1600.       END IF
1601.       WD1C2T3Rtn$ = WD1C2T3Rtn$ + ":" + S$(Minutes8%) + " " + AmPm8$ + " and " + S$(Seconds8%)
1602.       IF Seconds8% <> 1 THEN WD1C2T3Rtn$ = WD1C2T3Rtn$ + "s"
1603.     CASE 3
1604.       IF Years8% <> 0 THEN
1605.         IF Years8% >= 1000 AND Years8% <= 9999 THEN
1606.           LftNum8% = INT(Years8% / 1000)
1607.           WD1C2T3Rtn$ = S$(LftNum8%) + ","
1608.           RtNum8% = Years8% - (LftNum8% * 1000)
1609.           IF RtNum8% < 10 THEN
1610.             WD1C2T3Rtn$ = WD1C2T3Rtn$ + "00"
1611.           ELSEIF RtNum8% >= 10 AND RtNum8% < 100 THEN
1612.             WD1C2T3Rtn$ = WD1C2T3Rtn$ + "0"
1613.           END IF
1614.           WD1C2T3Rtn$ = WD1C2T3Rtn$ + S$(RtNum8%)
1615.         ELSE
1616.           WD1C2T3Rtn$ = S$(Years8%)
1617.         END IF
1618.         WD1C2T3Rtn$ = WD1C2T3Rtn$ + " Year"
1619.         IF Years% <> 1 THEN WD1C2T3Rtn$ = WD1C2T3Rtn$ + "s"
1620.         IF Days8% <> 0 AND (Hours3% <> 0 OR Minutes8% <> 0 OR Seconds8% <> 0) THEN
1621.           WD1C2T3Rtn$ = WD1C2T3Rtn$ + ", "
1622.         ELSEIF Days8% <> 0 AND (Hours8% = 0 AND Minutes8% = 0 AND Seconds8% = 0) THEN
1623.           WD1C2T3Rtn$ = WD1C2T3Rtn$ + " and "
1624.         ELSEIF Hours8% <> 0 AND (Minutes8% <> 0 OR Seconds8% <> 0) THEN
1625.           WD1C2T3Rtn$ = WD1C2T3Rtn$ + ", "
1626.         ELSEIF Hours8% <> 0 AND Minutes8% = 0 AND Seconds8% = 0 THEN
1627.           WD1C2T3Rtn$ = WD1C2T3Rtn$ + " and "
1628.         ELSEIF Minutes8% <> 0 AND Seconds8% <> 0 THEN
1629.           WD1C2T3Rtn$ = WD1C2T3Rtn$ + ", "
1630.         ELSEIF Minutes8% <> 0 XOR Seconds8% <> 0 THEN
1631.           WD1C2T3Rtn$ = WD1C2T3Rtn$ + " and "
1632.         END IF
1633.       END IF
1634.       IF Days8% <> 0 THEN
1635.         WD1C2T3Rtn$ = WD1C2T3Rtn$ + S$(Days8%) + " Day"
1636.         IF Days8% <> 1 THEN WD1C2T3Rtn$ = WD1C2T3Rtn$ + "s"
1637.         IF Hours8% <> 0 AND (Minutes8% <> 0 OR Seconds8% <> 0) THEN
1638.           WD1C2T3Rtn$ = WD1C2T3Rtn$ + ", "
1639.         ELSEIF Hours8% <> 0 AND Minutes8% = 0 AND Seconds8% = 0 THEN
1640.           WD1C2T3Rtn$ = WD1C2T3Rtn$ + " and "
1641.         ELSEIF Minutes8% <> 0 AND Seconds8% <> 0 THEN
1642.           WD1C2T3Rtn$ = WD1C2T3Rtn$ + ", "
1643.         ELSEIF Minutes8% <> 0 XOR Seconds8% <> 0 THEN
1644.           WD1C2T3Rtn$ = WD1C2T3Rtn$ + " and "
1645.         END IF
1646.       END IF
1647.       IF Hours8% <> 0 THEN
1648.         WD1C2T3Rtn$ = WD1C2T3Rtn$ + S$(Hours8%) + " hour"
1649.         IF Hours8% <> 1 THEN WD1C2T3Rtn$ = WD1C2T3Rtn$ + "s"
1650.         IF Minutes8% <> 0 AND Seconds8% <> 0 THEN
1651.           WD1C2T3Rtn$ = WD1C2T3Rtn$ + ", "
1652.         ELSEIF Minutes8% <> 0 XOR Seconds8% <> 0 THEN
1653.           WD1C2T3Rtn$ = WD1C2T3Rtn$ + " and "
1654.         END IF
1655.       END IF
1656.       IF Minutes8% <> 0 THEN
1657.         WD1C2T3Rtn$ = WD1C2T3Rtn$ + S$(Minutes8%) + " minute"
1658.         IF Minutes8% <> 1 THEN WD1C2T3Rtn$ = WD1C2T3Rtn$ + "s"
1659.         IF Seconds8% <> 0 THEN WD1C2T3Rtn$ = WD1C2T3Rtn$ + " and "
1660.       END IF
1661.       IF Seconds8% <> 0 THEN
1662.         WD1C2T3Rtn$ = WD1C2T3Rtn$ + S$(Seconds8%) + " second"
1663.         IF Seconds8% <> 1 THEN WD1C2T3Rtn$ = WD1C2T3Rtn$ + "s"
1664.       END IF
1665.       IF Years8% = 0 AND Days8% = 0 AND Hours8% = 0 AND Minutes8% = 0 AND Seconds8% = 0 THEN WD1C2T3Rtn$ = "Nothing"
1666.   END SELECT
1667.   WrittenDate1Clock2Time3$ = WD1C2T3Rtn$
1668. END FUNCTION
1669.  
1670.  
1671. SUB Menu
1672.   HaltAndDisplay% = 0: HighlightedOption% = 0: yPos% = 0: UserCommand$ = "": A$ = ""
1673.   xPos% = 0: MaxOption% = 0: SelectedAnOption% = 0
1674.  
1675.   HaltAndDisplay% = TRUE%: HighlightedOption% = 1: yPos% = 13: MaxOption% = 7: SelectedAnOption% = FALSE%
1676.   HighlightedOption% = 1
1677.   HaltAndDisplay% = TRUE%
1678.   yPos = 14
1679.   DO
1680.     UserCommand$ = INKEY$
1681.     IF HaltAndDisplay% = TRUE% THEN
1682.       COLOR 14, 1: CLS
1683.       A$ = "Time Calculator Menu": xPos% = Center(A$)
1684.       LOCATE yPos%, Center(A$): PRINT A$: LOCATE yPos% + 1, Center(A$)
1685.       PRINT "---- ---------- ----"
1686.  
1687.       A$ = "": A$ = "1.) Find How Long From Now"
1688.       LOCATE yPos% + 3, Center(A$): IF HighlightedOption% = 1 THEN
1689.       COLOR 10, 0: ELSE COLOR 14, 1: END IF: PRINT A$
1690.       A$ = "": A$ = "Until A Selected Time"
1691.       LOCATE yPos% + 4, Center(A$): IF HighlightedOption% = 1 THEN
1692.       COLOR 10, 0: ELSE COLOR 14, 1: END IF: PRINT A$
1693.  
1694.       A$ = "": A$ = "2.) Find How Long It Has Been Since"
1695.       LOCATE yPos% + 6, Center(A$): IF HighlightedOption% = 2 THEN
1696.       COLOR 10, 0: ELSE COLOR 14, 1: END IF: PRINT A$
1697.       A$ = "": A$ = "A Selected Time Has Passed"
1698.       LOCATE yPos% + 7, Center(A$): IF HighlightedOption% = 2 THEN
1699.       COLOR 10, 0: ELSE COLOR 14, 1: END IF: PRINT A$
1700.  
1701.       A$ = "": A$ = "3.) Find The Date And Time It Will Be After"
1702.       LOCATE yPos% + 9, Center(A$): IF HighlightedOption% = 3 THEN
1703.       COLOR 10, 0: ELSE COLOR 14, 1: END IF: PRINT A$
1704.       A$ = "": A$ = "A Selected Amount Of Time Has Passed"
1705.       LOCATE yPos% + 10, Center(A$): IF HighlightedOption% = 3 THEN
1706.       COLOR 10, 0: ELSE COLOR 14, 1: END IF: PRINT A$
1707.  
1708.       A$ = "": A$ = "4.) Add Two Elapsed Times"
1709.       LOCATE yPos% + 12, Center(A$): IF HighlightedOption% = 4 THEN
1710.       COLOR 10, 0: ELSE COLOR 14, 1: END IF: PRINT A$
1711.  
1712.       A$ = "": A$ = "5.) Subtract One Elapsed Time From Another One"
1713.       LOCATE yPos% + 14, Center(A$): IF HighlightedOption% = 5 THEN
1714.       COLOR 10, 0: ELSE COLOR 14, 1: END IF: PRINT A$
1715.  
1716.       A$ = "": A$ = "6.) Multiply An Elapsed Time By A Constant"
1717.       LOCATE yPos% + 16, Center(A$): IF HighlightedOption% = 6 THEN
1718.       COLOR 10, 0: ELSE COLOR 14, 1: END IF: PRINT A$
1719.  
1720.       A$ = "": A$ = "7.) Exit"
1721.       LOCATE 45, Center(A$): IF HighlightedOption% = MaxOption% THEN
1722.       COLOR 10, 0: ELSE COLOR 14, 1: END IF: PRINT A$
1723.  
1724.       HaltAndDisplay% = FALSE%
1725.     END IF
1726.  
1727.     SELECT CASE UserCommand$
1728.       CASE UpArrowKey$, LeftArrowKey$
1729.         HighlightedOption% = HighlightedOption% - 1
1730.         IF HighlightedOption% = 0 THEN HighlightedOption% = MaxOption%
1731.         HaltAndDisplay% = TRUE%
1732.       CASE DownArrowKey$, RightArrowKey$
1733.         HighlightedOption% = HighlightedOption% + 1
1734.         IF HighlightedOption% > MaxOption% THEN HighlightedOption% = 1
1735.         HaltAndDisplay% = TRUE%
1736.       CASE CHR$(13)
1737.         SelectedAnOption% = TRUE%
1738.       CASE "1", "2", "3", "4", "5", "6"
1739.         HighlightedOption% = VAL(UserCommand$)
1740.         SelectedAnOption% = TRUE%
1741.     END SELECT
1742.     IF SelectedAnOption% = TRUE THEN
1743.       SELECT CASE HighlightedOption%
1744.         CASE 1
1745.           CALL FromNowUntil
1746.           SelectedAnOption% = FALSE%
1747.           HaltAndDisplay% = TRUE%
1748.         CASE 2
1749.           CALL HowLongSince
1750.           SelectedAnOption% = FALSE%
1751.           HaltAndDisplay% = TRUE%
1752.         CASE 3
1753.           CALL WhatDateAfterElapsedTime
1754.           SelectedAnOption% = FALSE%
1755.           HaltAndDisplay% = TRUE%
1756.         CASE 4
1757.           CALL AddElapsedTimes
1758.           SelectedAnOption% = FALSE%
1759.           HaltAndDisplay% = TRUE%
1760.         CASE 5
1761.           CALL SubtractElapsedTimes
1762.           SelectedAnOption% = FALSE%
1763.           HaltAndDisplay% = TRUE%
1764.         CASE 6
1765.           CALL Multiply
1766.           SelectedAnOption% = FALSE%
1767.           HaltAndDisplay% = TRUE%
1768.       END SELECT
1769.  
1770.     END IF
1771.   LOOP UNTIL UserCommand$ = CHR$(27) OR UserCommand$ = S$(MaxOption%)
1772. END SUB
1773.  
1774.  
1775. FUNCTION Center% (Text$): Center% = INT((80 - LEN(Text$)) / 2): END FUNCTION
1776. FUNCTION S$ (Number!): S$ = LTRIM$(STR$(Number!)): END FUNCTION
1777. FUNCTION P$
1778.   pause$ = INPUT$(1): IF pause$ = CHR$(27) THEN END
1779. P$ = pause$: END FUNCTION
1780.