…Show last 88 lines
61 Digit$ = MID$(DisplayedTime$, Index, 1)
62 IF Digit$ = ":" THEN
63 IF Blink THEN DrawColon CurrentX, y, Size, ColorV, Angled
64 CurrentX = CurrentX + (Size * 2)
65 ELSE
66 DrawSegments CurrentX, y, TranslateDigit(Digit$), Size, ColorV, Angled
67 CurrentX = CurrentX + (Size * 3)
68 END IF
69 NEXT Index
70
71 Blink = NOT Blink
72END SUB
73
74SUB DrawColon (x, y, Size, ColorV, Angled)
75 Angle = IIF(Angled, -5, 0)
76 DRAW "C" + STR$(ColorV)
77 DRAW "BM" + STR$(x) + "," + STR$(y + Size)
78 DRAW "S" + STR$(Size) + "TA" + STR$(Angle)
79 DRAW "BU1 F1 G1 H1 E1 BD1 P" + STR$(ColorV) + "," + STR$(ColorV)
80 DRAW "BD" + STR$(CINT(Size / 2))
81 DRAW "BU1 F1 G1 H1 E1 BD1 P" + STR$(ColorV) + "," + STR$(ColorV)
82END SUB
83
84SUB DrawSegment (x, y, Size, Angle, ColorV)
85 DRAW "C" + STR$(ColorV)
86 DRAW "BM" + STR$(x) + "," + STR$(y)
87 DRAW "S" + STR$(Size) + "TA" + STR$(Angle)
88 DRAW "BL1 BM-1,-1 R4 F1 G1 L4 H1 E1"
89 PAINT (x, y), ColorV
90END SUB
91
92SUB DrawSegments (x, y, Segments, Size, ColorV, Angled)
93 Angle = IIF(Angled, -5, 0)
94
95 DrawSegment x, y, Size, 0, IIF((Segments AND H1) = H1, ColorV, 0)
96 DrawSegment x, y + (Size * 2), Size, 0, IIF((Segments AND H2) = H2, ColorV, 0)
97 DrawSegment x, y + (Size * 4), Size, 0, IIF((Segments AND H3) = H3, ColorV, 0)
98 DrawSegment x - Size, y + Size, Size, Angle + 90, IIF((Segments AND L1) = L1, ColorV, 0)
99 DrawSegment x - Size, y + (Size * 3), Size, Angle + 90, IIF((Segments AND L2) = L2, ColorV, 0)
100 DrawSegment x + Size, y + Size, Size, Angle + 90, IIF((Segments AND R1) = R1, ColorV, 0)
101 DrawSegment x + Size, y + (Size * 3), Size, Angle + 90, IIF((Segments AND R2) = R2, ColorV, 0)
102END SUB
103
104FUNCTION GetHours (Seconds#)
105 GetHours = INT(Seconds# / SECONDSPERHOUR)
106END FUNCTION
107
108FUNCTION GetMinutes (Seconds#)
109 GetMinutes = INT((Seconds# - (GetHours(Seconds#) * CDBL(SECONDSPERHOUR))) / SECONDSPERMINUTE)
110END FUNCTION
111
112FUNCTION GetTime$
113 Hours$ = Trim$(STR$(GetHours(TIMER)))
114 Minutes$ = Trim$(STR$(GetMinutes(TIMER)))
115 IF LEN(Hours$) = 1 THEN Hours$ = " " + Hours$
116 IF LEN(Minutes$) = 1 THEN Minutes$ = "0" + Minutes$
117
118 GetTime$ = Hours$ + ":" + Minutes$
119END FUNCTION
120
121FUNCTION IIF (Condition, Result1, Result2)
122 IIF = Result2
123 IF Condition THEN IIF = Result1
124END FUNCTION
125
126FUNCTION TranslateDigit (Digit$)
127 Translation = NONE
128
129 SELECT CASE Digit$
130 CASE "0": Translation = C0
131 CASE "1": Translation = C1
132 CASE "2": Translation = C2
133 CASE "3": Translation = C3
134 CASE "4": Translation = C4
135 CASE "5": Translation = C5
136 CASE "6": Translation = C6
137 CASE "7": Translation = C7
138 CASE "8": Translation = C8
139 CASE "9": Translation = C9
140 END SELECT
141
142 TranslateDigit = Translation
143END FUNCTION
144
145FUNCTION Trim$ (Text$)
146 Trim$ = LTRIM$(RTRIM$(Text$))
147END FUNCTION