## …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`

72`END SUB`

73

74`SUB 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)`

82`END SUB`

83

84`SUB 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`

90`END SUB`

91

92`SUB 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)`

102`END SUB`

103

104`FUNCTION GetHours (Seconds#)`

105` GetHours = INT(Seconds# / SECONDSPERHOUR)`

106`END FUNCTION`

107

108`FUNCTION GetMinutes (Seconds#)`

109` GetMinutes = INT((Seconds# - (GetHours(Seconds#) * CDBL(SECONDSPERHOUR))) / SECONDSPERMINUTE)`

110`END FUNCTION`

111

112`FUNCTION 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$`

119`END FUNCTION`

120

121`FUNCTION IIF (Condition, Result1, Result2)`

122` IIF = Result2`

123` IF Condition THEN IIF = Result1`

124`END FUNCTION`

125

126`FUNCTION 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`

143`END FUNCTION`

144

145`FUNCTION Trim$ (Text$)`

146` Trim$ = LTRIM$(RTRIM$(Text$))`

147`END FUNCTION`