Clock

'CLOCK
'V:1.0 BETA
'(C)JAYDEN TECH.2014


CLS : CLEAR
OPEN "C:\JAYDEN\PROGRAMS\CLOCK\CLOCK.CFG" FOR INPUT AS #1
INPUT #1, CCOL1
INPUT #1, CCOL2
INPUT #1, CBCOL1
INPUT #1, CBCOL2
INPUT #1, MBCOL1
INPUT #1, MBCOL2
INPUT #1, MPCOL1
INPUT #1, MPCOL2
INPUT #1, BGCOL1
INPUT #1, BGCOL2
INPUT #1, VERIFY$
CLOSE #1
IF VERIFY$ = "JT.PRG.MSC|CLOCK|PRG\001-Bþ" THEN GOTO START ELSE GOTO INVALID

INVALID:
CLS
PRINT "The program ID code is invalid."
PRINT "==============================="
SYSTEM
START:
CCOL2 = 0
CBCOL2 = 0


CLS
COLOR BGCOL1, BGCOL2


'NUMBER DATA
'ÍÍÍÍÍÍÍÍÍÍÍ

'ZERO
N1R1$ = " ÜÜÜÜÜÜ"
N1R2$ = " Û    Û"
N1R3$ = " Û    Û"
N1R4$ = " Û    Û"
N1R5$ = " Û    Û"
N1R6$ = " Û    Û"
N1R7$ = " ßßßßßß"

'ONE
N2R1$ = "   Ü"
N2R2$ = "   Û"
N2R3$ = "   Û"
N2R4$ = "   Û"
N2R5$ = "   Û"
N2R6$ = "   Û"
N2R7$ = "   ß"

'TWO
N3R1$ = "ÜÜÜÜÜÜÜ"
N3R2$ = "      Û"
N3R3$ = "      Û"
N3R4$ = "Ûßßßßßß"
N3R5$ = "Û"
N3R6$ = "Û"
N3R7$ = "ßßßßßßß"

'THREE
N4R1$ = "ÜÜÜÜÜÜÜ"
N4R2$ = "      Û"
N4R3$ = "      Û"
N4R4$ = "ßßßßßßÛ"
N4R5$ = "      Û"
N4R6$ = "      Û"
N4R7$ = "ßßßßßßß"

'FOUR
N5R1$ = "Ü     Ü"
N5R2$ = "Û     Û"
N5R3$ = "Û     Û"
N5R4$ = "ßßßßßßÛ"
N5R5$ = "      Û"
N5R6$ = "      Û"
N5R7$ = "      ß"

'FIVE
N6R1$ = "ÜÜÜÜÜÜÜ"
N6R2$ = "Û"
N6R3$ = "Û"
N6R4$ = "ßßßßßßÛ"
N6R5$ = "      Û"
N6R6$ = "      Û"
N6R7$ = "ßßßßßßß"

'SIX
N7R1$ = "ÜÜÜÜÜÜÜ"
N7R2$ = "Û"
N7R3$ = "Û"
N7R4$ = "ÛßßßßßÛ"
N7R5$ = "Û     Û"
N7R6$ = "Û     Û"
N7R7$ = "ßßßßßßß"

'SEVEN
N8R1$ = "ÜÜÜÜÜÜÜ"
N8R2$ = "      Û"
N8R3$ = "      Û"
N8R4$ = "      Û"
N8R5$ = "      Û"
N8R6$ = "      Û"
N8R7$ = "      ß"

'EIGHT
N9R1$ = "ÜÜÜÜÜÜÜ"
N9R2$ = "Û     Û"
N9R3$ = "Û     Û"
N9R4$ = "ÛßßßßßÛ"
N9R5$ = "Û     Û"
N9R6$ = "Û     Û"
N9R7$ = "ßßßßßßß"

'NINE
N10R1$ = "ÜÜÜÜÜÜÜ"
N10R2$ = "Û     Û"
N10R3$ = "Û     Û"
N10R4$ = "ßßßßßßÛ"
N10R5$ = "      Û"
N10R6$ = "      Û"
N10R7$ = "      ß"

MAIN:
COLOR BGCOL1, BGCOL2
CLS
COLOR CCOL1, CCOL2
SELECT CASE VAL(MID$(TIME$, 1, 1))
CASE 0
LOCATE 1, 1: PRINT N1R1$
LOCATE 2, 1: PRINT N1R2$
LOCATE 3, 1: PRINT N1R3$
LOCATE 4, 1: PRINT N1R4$
LOCATE 5, 1: PRINT N1R5$
LOCATE 6, 1: PRINT N1R6$
LOCATE 7, 1: PRINT N1R7$
CASE 1
LOCATE 1, 1: PRINT N2R1$
LOCATE 2, 1: PRINT N2R2$
LOCATE 3, 1: PRINT N2R3$
LOCATE 4, 1: PRINT N2R4$
LOCATE 5, 1: PRINT N2R5$
LOCATE 6, 1: PRINT N2R6$
LOCATE 7, 1: PRINT N2R7$
CASE 2
LOCATE 1, 1: PRINT N3R1$
LOCATE 2, 1: PRINT N3R2$
LOCATE 3, 1: PRINT N3R3$
LOCATE 4, 1: PRINT N3R4$
LOCATE 5, 1: PRINT N3R5$
LOCATE 6, 1: PRINT N3R6$
LOCATE 7, 1: PRINT N3R7$
CASE 3
LOCATE 1, 1: PRINT N4R1$
LOCATE 2, 1: PRINT N4R2$
LOCATE 3, 1: PRINT N4R3$
LOCATE 4, 1: PRINT N4R4$
LOCATE 5, 1: PRINT N4R5$
LOCATE 6, 1: PRINT N4R6$
LOCATE 7, 1: PRINT N4R7$
CASE 4
LOCATE 1, 1: PRINT N5R1$
LOCATE 2, 1: PRINT N5R2$
LOCATE 3, 1: PRINT N5R3$
LOCATE 4, 1: PRINT N5R4$
LOCATE 5, 1: PRINT N5R5$
LOCATE 6, 1: PRINT N5R6$
LOCATE 7, 1: PRINT N5R7$
CASE 5
LOCATE 1, 1: PRINT N6R1$
LOCATE 2, 1: PRINT N6R2$
LOCATE 3, 1: PRINT N6R3$
LOCATE 4, 1: PRINT N6R4$
LOCATE 5, 1: PRINT N6R5$
LOCATE 6, 1: PRINT N6R6$
LOCATE 7, 1: PRINT N6R7$
CASE 6
LOCATE 1, 1: PRINT N7R1$
LOCATE 2, 1: PRINT N7R2$
LOCATE 3, 1: PRINT N7R3$
LOCATE 4, 1: PRINT N7R4$
LOCATE 5, 1: PRINT N7R5$
LOCATE 6, 1: PRINT N7R6$
LOCATE 7, 1: PRINT N7R7$
CASE 7
LOCATE 1, 1: PRINT N8R1$
LOCATE 2, 1: PRINT N8R2$
LOCATE 3, 1: PRINT N8R3$
LOCATE 4, 1: PRINT N8R4$
LOCATE 5, 1: PRINT N8R5$
LOCATE 6, 1: PRINT N8R6$
LOCATE 7, 1: PRINT N8R7$
CASE 8
LOCATE 1, 1: PRINT N9R1$
LOCATE 2, 1: PRINT N9R2$
LOCATE 3, 1: PRINT N9R3$
LOCATE 4, 1: PRINT N9R4$
LOCATE 5, 1: PRINT N9R5$
LOCATE 6, 1: PRINT N9R6$
LOCATE 7, 1: PRINT N9R7$
CASE 9
LOCATE 1, 1: PRINT N10R1$
LOCATE 2, 1: PRINT N10R2$
LOCATE 3, 1: PRINT N10R3$
LOCATE 4, 1: PRINT N10R4$
LOCATE 5, 1: PRINT N10R5$
LOCATE 6, 1: PRINT N10R6$
LOCATE 7, 1: PRINT N10R7$
END SELECT
SELECT CASE VAL(MID$(TIME$, 2, 1))
CASE 0
LOCATE 1, 10: PRINT N1R1$
LOCATE 2, 10: PRINT N1R2$
LOCATE 3, 10: PRINT N1R3$
LOCATE 4, 10: PRINT N1R4$
LOCATE 5, 10: PRINT N1R5$
LOCATE 6, 10: PRINT N1R6$
LOCATE 7, 10: PRINT N1R7$
CASE 1
LOCATE 1, 10: PRINT N2R1$
LOCATE 2, 10: PRINT N2R2$
LOCATE 3, 10: PRINT N2R3$
LOCATE 4, 10: PRINT N2R4$
LOCATE 5, 10: PRINT N2R5$
LOCATE 6, 10: PRINT N2R6$
LOCATE 7, 10: PRINT N2R7$
CASE 2
LOCATE 1, 10: PRINT N3R1$
LOCATE 2, 10: PRINT N3R2$
LOCATE 3, 10: PRINT N3R3$
LOCATE 4, 10: PRINT N3R4$
LOCATE 5, 10: PRINT N3R5$
LOCATE 6, 10: PRINT N3R6$
LOCATE 7, 10: PRINT N3R7$
CASE 3
LOCATE 1, 10: PRINT N4R1$
LOCATE 2, 10: PRINT N4R2$
LOCATE 3, 10: PRINT N4R3$
LOCATE 4, 10: PRINT N4R4$
LOCATE 5, 10: PRINT N4R5$
LOCATE 6, 10: PRINT N4R6$
LOCATE 7, 10: PRINT N4R7$
CASE 4
LOCATE 1, 10: PRINT N5R1$
LOCATE 2, 10: PRINT N5R2$
LOCATE 3, 10: PRINT N5R3$
LOCATE 4, 10: PRINT N5R4$
LOCATE 5, 10: PRINT N5R5$
LOCATE 6, 10: PRINT N5R6$
LOCATE 7, 10: PRINT N5R7$
CASE 5
LOCATE 1, 10: PRINT N6R1$
LOCATE 2, 10: PRINT N6R2$
LOCATE 3, 10: PRINT N6R3$
LOCATE 4, 10: PRINT N6R4$
LOCATE 5, 10: PRINT N6R5$
LOCATE 6, 10: PRINT N6R6$
LOCATE 7, 10: PRINT N6R7$
CASE 6
LOCATE 1, 10: PRINT N7R1$
LOCATE 2, 10: PRINT N7R2$
LOCATE 3, 10: PRINT N7R3$
LOCATE 4, 10: PRINT N7R4$
LOCATE 5, 10: PRINT N7R5$
LOCATE 6, 10: PRINT N7R6$
LOCATE 7, 10: PRINT N7R7$
CASE 7
LOCATE 1, 10: PRINT N8R1$
LOCATE 2, 10: PRINT N8R2$
LOCATE 3, 10: PRINT N8R3$
LOCATE 4, 10: PRINT N8R4$
LOCATE 5, 10: PRINT N8R5$
LOCATE 6, 10: PRINT N8R6$
LOCATE 7, 10: PRINT N8R7$
CASE 8
LOCATE 1, 10: PRINT N9R1$
LOCATE 2, 10: PRINT N9R2$
LOCATE 3, 10: PRINT N9R3$
LOCATE 4, 10: PRINT N9R4$
LOCATE 5, 10: PRINT N9R5$
LOCATE 6, 10: PRINT N9R6$
LOCATE 7, 10: PRINT N9R7$
CASE 9
LOCATE 1, 10: PRINT N10R1$
LOCATE 2, 10: PRINT N10R2$
LOCATE 3, 10: PRINT N10R3$
LOCATE 4, 10: PRINT N10R4$
LOCATE 5, 10: PRINT N10R5$
LOCATE 6, 10: PRINT N10R6$
LOCATE 7, 10: PRINT N10R7$
END SELECT
COLOR 15, CCOL2
LOCATE 3, 19: PRINT "þ"
LOCATE 5, 19: PRINT "þ"
COLOR CCOL1, CCOL2
SELECT CASE VAL(MID$(TIME$, 4, 1))
CASE 0
LOCATE 1, 22: PRINT N1R1$
LOCATE 2, 22: PRINT N1R2$
LOCATE 3, 22: PRINT N1R3$
LOCATE 4, 22: PRINT N1R4$
LOCATE 5, 22: PRINT N1R5$
LOCATE 6, 22: PRINT N1R6$
LOCATE 7, 22: PRINT N1R7$
CASE 1
LOCATE 1, 22: PRINT N2R1$
LOCATE 2, 22: PRINT N2R2$
LOCATE 3, 22: PRINT N2R3$
LOCATE 4, 22: PRINT N2R4$
LOCATE 5, 22: PRINT N2R5$
LOCATE 6, 22: PRINT N2R6$
LOCATE 7, 22: PRINT N2R7$
CASE 2
LOCATE 1, 22: PRINT N3R1$
LOCATE 2, 22: PRINT N3R2$
LOCATE 3, 22: PRINT N3R3$
LOCATE 4, 22: PRINT N3R4$
LOCATE 5, 22: PRINT N3R5$
LOCATE 6, 22: PRINT N3R6$
LOCATE 7, 22: PRINT N3R7$
CASE 3
LOCATE 1, 22: PRINT N4R1$
LOCATE 2, 22: PRINT N4R2$
LOCATE 3, 22: PRINT N4R3$
LOCATE 4, 22: PRINT N4R4$
LOCATE 5, 22: PRINT N4R5$
LOCATE 6, 22: PRINT N4R6$
LOCATE 7, 22: PRINT N4R7$
CASE 4
LOCATE 1, 22: PRINT N5R1$
LOCATE 2, 22: PRINT N5R2$
LOCATE 3, 22: PRINT N5R3$
LOCATE 4, 22: PRINT N5R4$
LOCATE 5, 22: PRINT N5R5$
LOCATE 6, 22: PRINT N5R6$
LOCATE 7, 22: PRINT N5R7$
CASE 5
LOCATE 1, 22: PRINT N6R1$
LOCATE 2, 22: PRINT N6R2$
LOCATE 3, 22: PRINT N6R3$
LOCATE 4, 22: PRINT N6R4$
LOCATE 5, 22: PRINT N6R5$
LOCATE 6, 22: PRINT N6R6$
LOCATE 7, 22: PRINT N6R7$
CASE 6
LOCATE 1, 22: PRINT N7R1$
LOCATE 2, 22: PRINT N7R2$
LOCATE 3, 22: PRINT N7R3$
LOCATE 4, 22: PRINT N7R4$
LOCATE 5, 22: PRINT N7R5$
LOCATE 6, 22: PRINT N7R6$
LOCATE 7, 22: PRINT N7R7$
CASE 7
LOCATE 1, 22: PRINT N8R1$
LOCATE 2, 22: PRINT N8R2$
LOCATE 3, 22: PRINT N8R3$
LOCATE 4, 22: PRINT N8R4$
LOCATE 5, 22: PRINT N8R5$
LOCATE 6, 22: PRINT N8R6$
LOCATE 7, 22: PRINT N8R7$
CASE 8
LOCATE 1, 22: PRINT N9R1$
LOCATE 2, 22: PRINT N9R2$
LOCATE 3, 22: PRINT N9R3$
LOCATE 4, 22: PRINT N9R4$
LOCATE 5, 22: PRINT N9R5$
LOCATE 6, 22: PRINT N9R6$
LOCATE 7, 22: PRINT N9R7$
CASE 9
LOCATE 1, 22: PRINT N10R1$
LOCATE 2, 22: PRINT N10R2$
LOCATE 3, 22: PRINT N10R3$
LOCATE 4, 22: PRINT N10R4$
LOCATE 5, 22: PRINT N10R5$
LOCATE 6, 22: PRINT N10R6$
LOCATE 7, 22: PRINT N10R7$
END SELECT
SELECT CASE VAL(MID$(TIME$, 5, 1))
CASE 0
LOCATE 1, 32: PRINT N1R1$
LOCATE 2, 32: PRINT N1R2$
LOCATE 3, 32: PRINT N1R3$
LOCATE 4, 32: PRINT N1R4$
LOCATE 5, 32: PRINT N1R5$
LOCATE 6, 32: PRINT N1R6$
LOCATE 7, 32: PRINT N1R7$
CASE 1
LOCATE 1, 32: PRINT N2R1$
LOCATE 2, 32: PRINT N2R2$
LOCATE 3, 32: PRINT N2R3$
LOCATE 4, 32: PRINT N2R4$
LOCATE 5, 32: PRINT N2R5$
LOCATE 6, 32: PRINT N2R6$
LOCATE 7, 32: PRINT N2R7$
CASE 2
LOCATE 1, 32: PRINT N3R1$
LOCATE 2, 32: PRINT N3R2$
LOCATE 3, 32: PRINT N3R3$
LOCATE 4, 32: PRINT N3R4$
LOCATE 5, 32: PRINT N3R5$
LOCATE 6, 32: PRINT N3R6$
LOCATE 7, 32: PRINT N3R7$
CASE 3
LOCATE 1, 32: PRINT N4R1$
LOCATE 2, 32: PRINT N4R2$
LOCATE 3, 32: PRINT N4R3$
LOCATE 4, 32: PRINT N4R4$
LOCATE 5, 32: PRINT N4R5$
LOCATE 6, 32: PRINT N4R6$
LOCATE 7, 32: PRINT N4R7$
CASE 4
LOCATE 1, 32: PRINT N5R1$
LOCATE 2, 32: PRINT N5R2$
LOCATE 3, 32: PRINT N5R3$
LOCATE 4, 32: PRINT N5R4$
LOCATE 5, 32: PRINT N5R5$
LOCATE 6, 32: PRINT N5R6$
LOCATE 7, 32: PRINT N5R7$
CASE 5
LOCATE 1, 32: PRINT N6R1$
LOCATE 2, 32: PRINT N6R2$
LOCATE 3, 32: PRINT N6R3$
LOCATE 4, 32: PRINT N6R4$
LOCATE 5, 32: PRINT N6R5$
LOCATE 6, 32: PRINT N6R6$
LOCATE 7, 32: PRINT N6R7$
CASE 6
LOCATE 1, 32: PRINT N7R1$
LOCATE 2, 32: PRINT N7R2$
LOCATE 3, 32: PRINT N7R3$
LOCATE 4, 32: PRINT N7R4$
LOCATE 5, 32: PRINT N7R5$
LOCATE 6, 32: PRINT N7R6$
LOCATE 7, 32: PRINT N7R7$
CASE 7
LOCATE 1, 32: PRINT N8R1$
LOCATE 2, 32: PRINT N8R2$
LOCATE 3, 32: PRINT N8R3$
LOCATE 4, 32: PRINT N8R4$
LOCATE 5, 32: PRINT N8R5$
LOCATE 6, 32: PRINT N8R6$
LOCATE 7, 32: PRINT N8R7$
CASE 8
LOCATE 1, 32: PRINT N9R1$
LOCATE 2, 32: PRINT N9R2$
LOCATE 3, 32: PRINT N9R3$
LOCATE 4, 32: PRINT N9R4$
LOCATE 5, 32: PRINT N9R5$
LOCATE 6, 32: PRINT N9R6$
LOCATE 7, 32: PRINT N9R7$
CASE 9
LOCATE 1, 32: PRINT N10R1$
LOCATE 2, 32: PRINT N10R2$
LOCATE 3, 32: PRINT N10R3$
LOCATE 4, 32: PRINT N10R4$
LOCATE 5, 32: PRINT N10R5$
LOCATE 6, 32: PRINT N10R6$
LOCATE 7, 32: PRINT N10R7$
END SELECT
COLOR 15, CCOL2
LOCATE 3, 42: PRINT "þ"
LOCATE 5, 42: PRINT "þ"
COLOR CCOL1, CCOL2
SELECT CASE VAL(MID$(TIME$, 7, 1))
CASE 0
LOCATE 1, 46: PRINT N1R1$
LOCATE 2, 46: PRINT N1R2$
LOCATE 3, 46: PRINT N1R3$
LOCATE 4, 46: PRINT N1R4$
LOCATE 5, 46: PRINT N1R5$
LOCATE 6, 46: PRINT N1R6$
LOCATE 7, 46: PRINT N1R7$
CASE 1
LOCATE 1, 46: PRINT N2R1$
LOCATE 2, 46: PRINT N2R2$
LOCATE 3, 46: PRINT N2R3$
LOCATE 4, 46: PRINT N2R4$
LOCATE 5, 46: PRINT N2R5$
LOCATE 6, 46: PRINT N2R6$
LOCATE 7, 46: PRINT N2R7$
CASE 2
LOCATE 1, 46: PRINT N3R1$
LOCATE 2, 46: PRINT N3R2$
LOCATE 3, 46: PRINT N3R3$
LOCATE 4, 46: PRINT N3R4$
LOCATE 5, 46: PRINT N3R5$
LOCATE 6, 46: PRINT N3R6$
LOCATE 7, 46: PRINT N3R7$
CASE 3
LOCATE 1, 46: PRINT N4R1$
LOCATE 2, 46: PRINT N4R2$
LOCATE 3, 46: PRINT N4R3$
LOCATE 4, 46: PRINT N4R4$
LOCATE 5, 46: PRINT N4R5$
LOCATE 6, 46: PRINT N4R6$
LOCATE 7, 46: PRINT N4R7$
CASE 4
LOCATE 1, 46: PRINT N5R1$
LOCATE 2, 46: PRINT N5R2$
LOCATE 3, 46: PRINT N5R3$
LOCATE 4, 46: PRINT N5R4$
LOCATE 5, 46: PRINT N5R5$
LOCATE 6, 46: PRINT N5R6$
LOCATE 7, 46: PRINT N5R7$
CASE 5
LOCATE 1, 46: PRINT N6R1$
LOCATE 2, 46: PRINT N6R2$
LOCATE 3, 46: PRINT N6R3$
LOCATE 4, 46: PRINT N6R4$
LOCATE 5, 46: PRINT N6R5$
LOCATE 6, 46: PRINT N6R6$
LOCATE 7, 46: PRINT N6R7$
CASE 6
LOCATE 1, 46: PRINT N7R1$
LOCATE 2, 46: PRINT N7R2$
LOCATE 3, 46: PRINT N7R3$
LOCATE 4, 46: PRINT N7R4$
LOCATE 5, 46: PRINT N7R5$
LOCATE 6, 46: PRINT N7R6$
LOCATE 7, 46: PRINT N7R7$
CASE 7
LOCATE 1, 46: PRINT N8R1$
LOCATE 2, 46: PRINT N8R2$
LOCATE 3, 46: PRINT N8R3$
LOCATE 4, 46: PRINT N8R4$
LOCATE 5, 46: PRINT N8R5$
LOCATE 6, 46: PRINT N8R6$
LOCATE 7, 46: PRINT N8R7$
CASE 8
LOCATE 1, 46: PRINT N9R1$
LOCATE 2, 46: PRINT N9R2$
LOCATE 3, 46: PRINT N9R3$
LOCATE 4, 46: PRINT N9R4$
LOCATE 5, 46: PRINT N9R5$
LOCATE 6, 46: PRINT N9R6$
LOCATE 7, 46: PRINT N9R7$
CASE 9
LOCATE 1, 46: PRINT N10R1$
LOCATE 2, 46: PRINT N10R2$
LOCATE 3, 46: PRINT N10R3$
LOCATE 4, 46: PRINT N10R4$
LOCATE 5, 46: PRINT N10R5$
LOCATE 6, 46: PRINT N10R6$
LOCATE 7, 46: PRINT N10R7$
END SELECT

SELECT CASE VAL(MID$(TIME$, 8, 1))
CASE 0
LOCATE 1, 58: PRINT N1R1$
LOCATE 2, 58: PRINT N1R2$
LOCATE 3, 58: PRINT N1R3$
LOCATE 4, 58: PRINT N1R4$
LOCATE 5, 58: PRINT N1R5$
LOCATE 6, 58: PRINT N1R6$
LOCATE 7, 58: PRINT N1R7$
CASE 1
LOCATE 1, 58: PRINT N2R1$
LOCATE 2, 58: PRINT N2R2$
LOCATE 3, 58: PRINT N2R3$
LOCATE 4, 58: PRINT N2R4$
LOCATE 5, 58: PRINT N2R5$
LOCATE 6, 58: PRINT N2R6$
LOCATE 7, 58: PRINT N2R7$
CASE 2
LOCATE 1, 58: PRINT N3R1$
LOCATE 2, 58: PRINT N3R2$
LOCATE 3, 58: PRINT N3R3$
LOCATE 4, 58: PRINT N3R4$
LOCATE 5, 58: PRINT N3R5$
LOCATE 6, 58: PRINT N3R6$
LOCATE 7, 58: PRINT N3R7$
CASE 3
LOCATE 1, 58: PRINT N4R1$
LOCATE 2, 58: PRINT N4R2$
LOCATE 3, 58: PRINT N4R3$
LOCATE 4, 58: PRINT N4R4$
LOCATE 5, 58: PRINT N4R5$
LOCATE 6, 58: PRINT N4R6$
LOCATE 7, 58: PRINT N4R7$
CASE 4
LOCATE 1, 58: PRINT N5R1$
LOCATE 2, 58: PRINT N5R2$
LOCATE 3, 58: PRINT N5R3$
LOCATE 4, 58: PRINT N5R4$
LOCATE 5, 58: PRINT N5R5$
LOCATE 6, 58: PRINT N5R6$
LOCATE 7, 58: PRINT N5R7$
CASE 5
LOCATE 1, 58: PRINT N6R1$
LOCATE 2, 58: PRINT N6R2$
LOCATE 3, 58: PRINT N6R3$
LOCATE 4, 58: PRINT N6R4$
LOCATE 5, 58: PRINT N6R5$
LOCATE 6, 58: PRINT N6R6$
LOCATE 7, 58: PRINT N6R7$
CASE 6
LOCATE 1, 58: PRINT N7R1$
LOCATE 2, 58: PRINT N7R2$
LOCATE 3, 58: PRINT N7R3$
LOCATE 4, 58: PRINT N7R4$
LOCATE 5, 58: PRINT N7R5$
LOCATE 6, 58: PRINT N7R6$
LOCATE 7, 58: PRINT N7R7$
CASE 7
LOCATE 1, 58: PRINT N8R1$
LOCATE 2, 58: PRINT N8R2$
LOCATE 3, 58: PRINT N8R3$
LOCATE 4, 58: PRINT N8R4$
LOCATE 5, 58: PRINT N8R5$
LOCATE 6, 58: PRINT N8R6$
LOCATE 7, 58: PRINT N8R7$
CASE 8
LOCATE 1, 58: PRINT N9R1$
LOCATE 2, 58: PRINT N9R2$
LOCATE 3, 58: PRINT N9R3$
LOCATE 4, 58: PRINT N9R4$
LOCATE 5, 58: PRINT N9R5$
LOCATE 6, 58: PRINT N9R6$
LOCATE 7, 58: PRINT N9R7$
CASE 9
LOCATE 1, 58: PRINT N10R1$
LOCATE 2, 58: PRINT N10R2$
LOCATE 3, 58: PRINT N10R3$
LOCATE 4, 58: PRINT N10R4$
LOCATE 5, 58: PRINT N10R5$
LOCATE 6, 58: PRINT N10R6$
LOCATE 7, 58: PRINT N10R7$
END SELECT
LOCATE 8, 30: PRINT "Alarm:"; ALARM$
COLOR CBCOL1, CBCOL2
LOCATE 1, 1: PRINT "º"
LOCATE 1, 67: PRINT "º"
FOR I = 2 TO 8
LOCATE I, 1: PRINT "º"
LOCATE I, 67: PRINT "º"
NEXT
LOCATE 9, 1: PRINT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
COLOR MBCOL1, MBCOL2
LOCATE 23, 1: PRINT "[CTRL]+[P]:Menu"
IF TIME$ = ALARM$ THEN GOTO ALARM
SLEEP 1
A$ = INKEY$
IF A$ = CHR$(16) THEN GOTO MENU
GOTO MAIN
ALARM:
DO
SOUND 2000, 1
LOOP UNTIL INKEY$ <> ""
GOTO MAIN
MENU:
COLOR BGCOL1, BGCOL2
CLS
COLOR MBCOL1, MBCOL2
LOCATE 1, 41: PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
LOCATE 2, 41: PRINT "º Menu                                º"
LOCATE 3, 41: PRINT "º                                      º"
LOCATE 4, 41: PRINT "º======================================º"
LOCATE 5, 41: PRINT "º                                      º"
LOCATE 6, 41: PRINT "º [1]:Change colors                    º"
LOCATE 7, 41: PRINT "º                                      º"
LOCATE 8, 41: PRINT "º [2]:Set alarm                        º"
LOCATE 9, 41: PRINT "º                                      º"
LOCATE 10, 41: PRINT "º [3]:About                            º"
LOCATE 11, 41: PRINT "º                                      º"
LOCATE 12, 41: PRINT "º [4]:Exit                             º"
LOCATE 13, 41: PRINT "º                                      º"
LOCATE 14, 41: PRINT "º [E]:Close menu                       º"
LOCATE 15, 41: PRINT "º                                      º"
LOCATE 16, 41: PRINT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
MENU.WAIT:
A$ = UCASE$(INKEY$)
IF A$ = "1" THEN GOTO MENU.COLORS
IF A$ = "2" THEN GOTO MENU.ALARM
IF A$ = "3" THEN GOTO MENU.ABOUT
IF A$ = "4" THEN GOTO MENU.END
IF A$ = UCASE$("E") THEN GOTO MAIN
GOTO MENU.WAIT
MENU.COLORS:
LOCATE 2, 41: PRINT "º MenuColors                         º"
COLOR MPCOL1, MPCOL2
LOCATE 12, 12: PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍColorsÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
LOCATE 13, 12: PRINT "º Clock text:                          º"
LOCATE 14, 12: PRINT "º Clock border:                        º"
LOCATE 15, 12: PRINT "º Menu text:                           º"
LOCATE 16, 12: PRINT "º Menu backround:                      º"
LOCATE 17, 12: PRINT "º Popup text:                          º"
LOCATE 18, 12: PRINT "º Popup backround:                     º"
LOCATE 19, 12: PRINT "º Window backround:                    º"
LOCATE 20, 12: PRINT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
LOCATE 13, 14: INPUT "Clock text:", A$
LOCATE 14, 14: INPUT "Clock border:", B$
LOCATE 15, 14: INPUT "Menu text:", C$
LOCATE 16, 14: INPUT "Menu backround:", D$
LOCATE 17, 14: INPUT "Popup text:", E$
LOCATE 18, 14: INPUT "Popup backround:", F$
LOCATE 19, 14: INPUT "Window backround:", G$
A = VAL(A$)
B = VAL(B$)
C = VAL(C$)
D = VAL(D$)
E = VAL(E$)
F = VAL(F$)
G = VAL(G$)
'IF A = 0 THEN GOTO MENU.COLORS
'IF B = 0 THEN GOTO MENU.COLORS
'IF C = 0 THEN GOTO MENU.COLORS
'IF D = 0 THEN GOTO MENU.COLORS
'IF E = 0 THEN GOTO MENU.COLORS
'IF F = 0 THEN GOTO MENU.COLORS
'IF G = 0 THEN GOTO MENU.COLORS
H$ = "JT.PRG.MSC|CLOCK|PRG\001-Bþ"
OPEN "C:\JAYDEN\PROGRAMS\CLOCK\CLOCK.CFG" FOR OUTPUT AS #1
PRINT #1, A
PRINT #1, 0
PRINT #1, B
PRINT #1, 0
PRINT #1, C
PRINT #1, D
PRINT #1, E
PRINT #1, F
PRINT #1, 0
PRINT #1, G
PRINT #1, H$
CLOSE #1
LOCATE 12, 12: PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍColorsÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
LOCATE 13, 12: PRINT "º                                      º"
LOCATE 14, 12: PRINT "º                                      º"
LOCATE 15, 12: PRINT "º       For the changes to take        º"
LOCATE 16, 12: PRINT "º       affect,please restart          º"
LOCATE 17, 12: PRINT "º       the program.                   º"
LOCATE 18, 12: PRINT "º                                      º"
LOCATE 19, 12: PRINT "º                                      º"
LOCATE 20, 12: PRINT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
SLEEP
GOTO MENU
MENU.ALARM:
LOCATE 2, 41: PRINT "º MenuSet alarm                      º"
COLOR MPCOL1, MPCOL2
LOCATE 12, 12: PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍAlarmÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
LOCATE 13, 12: PRINT "º Sequence|(HH:MM:SS)                  º"
LOCATE 14, 12: PRINT "º                                      º"
LOCATE 15, 12: PRINT "º                                      º"
LOCATE 16, 12: PRINT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
LOCATE 15, 13: INPUT "Time:", ALARM$
GOTO MENU
MENU.ABOUT:
LOCATE 2, 41: PRINT "º MenuAbout                          º"
COLOR MPCOL1, MPCOL2
LOCATE 12, 12: PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍAboutÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
LOCATE 13, 12: PRINT "º    Console clock was developed by    º"
LOCATE 14, 12: PRINT "º      Jayden.(C)Jayden Tech.2014      º"
LOCATE 15, 12: PRINT "º                                      º"
LOCATE 16, 12: PRINT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
SLEEP
GOTO MENU
MENU.END:
COLOR 15, 0
CLS
PRINT "Program ended."
PRINT ""
PRINT ""
PRINT ""
PRINT "Press any key to return to DOS."
COLOR 4
LOCATE 5, 28: PRINT "DOS"
COLOR 0
SLEEP
SYSTEM