2 ' Svjatoslav Agejenko
\r
3 ' E-mail: svjatoslav@svjatoslav.eu
\r
4 ' Homepage: www.hot.ee/n0/
\r
7 DECLARE SUB displukk ()
\r
8 DECLARE SUB kola (a%)
\r
10 DECLARE SUB start ()
\r
11 DECLARE SUB getnad (g%, n%, d%, k%)
\r
12 DECLARE SUB initp (b$)
\r
13 DECLARE SUB getmd (a$, m%, d%)
\r
14 DECLARE SUB son (a$)
\r
15 DECLARE SUB inita ()
\r
18 DECLARE SUB kell (a%)
\r
19 DECLARE SUB sync2 ()
\r
21 DECLARE SUB mnmain ()
\r
22 DECLARE SUB heli (a%)
\r
26 DIM SHARED ap$(1 TO 500)
\r
28 DIM SHARED pp$(1 TO 500)
\r
30 DIM SHARED prt, prt2
\r
33 DIM SHARED sona$(1 TO 50)
\r
37 DIM SHARED pn$(1 TO 7)
\r
41 DIM SHARED timero AS LONG
\r
43 DIM SHARED tunnidara
\r
53 IF apl = 0 THEN inita
\r
56 n1 = VAL(RIGHT$(a$, 4))
\r
57 n2 = VAL(LEFT$(a$, 2))
\r
59 n3 = VAL(RIGHT$(a$, 2))
\r
60 getnad n1, n2, n3, ndlp
\r
63 SELECT CASE sona$(1)
\r
65 getmd sona$(2), m1, d1
\r
66 getmd sona$(3), m2, d2
\r
68 IF m3 < m1 THEN GOTO 9
\r
69 IF m3 > m2 THEN GOTO 9
\r
70 IF m3 = m1 THEN IF d3 < d1 THEN GOTO 9
\r
71 IF m3 = m2 THEN IF d3 > d2 THEN GOTO 9
\r
74 getmd sona$(2), m1, d1
\r
75 getmd sona$(3), m2, d2
\r
77 IF m3 < m1 THEN GOTO 9
\r
78 IF m3 > m2 THEN GOTO 9
\r
79 IF m3 = m1 THEN IF d3 < d1 THEN GOTO 9
\r
80 IF m3 = m2 THEN IF d3 > d2 THEN GOTO 9
\r
81 IF ndlp <> VAL(sona$(4)) THEN GOTO 9
\r
84 getmd sona$(2), m1, d1
\r
86 IF (m1 = m2) AND (d1 = d2) THEN b$ = sona$(3)
\r
91 IF b$ <> lp$ THEN initp b$
\r
100 IF a$ <> dato$ THEN chd
\r
105 SELECT CASE sona$(1)
\r
107 getmd sona$(2), h1, m1
\r
108 getmd TIME$, h2, m2
\r
109 ' PRINT h1, m1, h2, m2
\r
110 IF (h2 = h1) AND (m2 = m1) THEN
\r
111 IF sona$(3) = "sis" THEN b = 1
\r
112 IF sona$(3) = "val" THEN b = 2
\r
117 IF (tunnidara = 0) AND (b > 0) THEN kell b
\r
123 PRINT "Kooli Kell (mini) v 1.1 2003.3"
\r
124 PRINT "Programmi autor Svjatoslav Agejenko E-mail: n0@hot.ee"
\r
126 PRINT "s - kell tundi sisse v - kell tunnist v�lja"
\r
127 PRINT "a - sisesta uus aeg d - sisesta uus daatum"
\r
128 PRINT "u - �mardab aja t�istunnini l - laeb aja failist SYNC.TXT"
\r
129 PRINT "7 - 1 minut tagasi 8 - 1 minut edasi"
\r
130 PRINT "4 - 1 tund tagasi 5 - 1 tund edasi"
\r
131 PRINT "r - programmi restart q - programmist v�lja"
\r
132 PRINT " j - j�tab k�ik tunnid t�na �ra"
\r
137 PRINT "Kuu-P�ev-Aasta (USA standard)"
\r
143 IF pp$(a) <> SPACE$(LEN(pp$(a))) THEN
\r
145 PRINT SPACE$(15 - LEN(pp$(a)));
\r
157 PRINT "Klaviatuur lukus! Vajuta CTRL+L"
\r
165 IF ndlp = 0 THEN GOTO 14
\r
167 PRINT "n�dalap�ev:", pn$(ndlp)
\r
169 PRINT "p�evaplaan:", lp$
\r
176 IF tunnidara = 1 THEN
\r
177 PRINT "T�na on k�ik tunnid �ra j�etud"
\r
184 SUB getmd (a$, m, d)
\r
186 m = VAL(LEFT$(b$, 2))
\r
187 d = VAL(RIGHT$(b$, 2))
\r
191 SUB getnad (g, n, d, k)
\r
197 p = p - 1: m = m + 12
\r
201 w = d + INT((13 * m - 1) / 5) + y + INT(y / 4) + INT(c / 4) - 2 * c
\r
202 k = w - 7 * INT(w / 7)
\r
203 IF k = 0 THEN k = 7
\r
232 FOR a = 800 TO 1000 STEP 10
\r
246 OPEN "aasta.ap" FOR INPUT AS #1
\r
248 IF EOF(1) <> 0 THEN GOTO 3
\r
259 OPEN b$ + ".pp" FOR INPUT AS #1
\r
261 IF EOF(1) <> 0 THEN GOTO 7
\r
272 IF b$ <> lk$ THEN lk$ = b$ ELSE GOTO 2
\r
296 IF ABS(timero - TIMER) < a THEN GOTO 11
\r
301 b$ = LEFT$(TIME$, 5)
\r
302 IF b$ <> timo$ THEN chm
\r
308 IF ssave > ssavel THEN disp
\r
312 IF a$ = CHR$(12) THEN
\r
313 IF kblukk = 1 THEN kblukk = 0 ELSE kblukk = 1
\r
316 IF kblukk = 1 THEN a$ = ""
\r
318 IF a$ = "s" THEN kell 1
\r
319 IF a$ = "v" THEN kell 2
\r
323 PRINT " vana aeg: " + TIME$
\r
324 INPUT "sisesta uus aeg (TT:MM:SS): ", b$
\r
325 IF LEN(b$) <> 8 THEN GOTO 12
\r
334 PRINT " vana daatum: " + DATE$
\r
335 INPUT "sisesta uus daatum (KK-PP-AAAA): ", b$
\r
336 IF LEN(b$) <> 10 THEN GOTO 13
\r
343 IF a$ = "7" OR a$ = "8" THEN
\r
344 b = VAL(RIGHT$(LEFT$(TIME$, 5), 2))
\r
345 IF a$ = "7" THEN b = b - 1
\r
346 IF a$ = "8" THEN b = b + 1
\r
347 IF b < 0 THEN b = 0
\r
348 IF b > 59 THEN b = 59
\r
350 IF LEFT$(d$, 1) = " " THEN d$ = RIGHT$(d$, LEN(d$) - 1)
\r
351 IF LEN(d$) < 2 THEN d$ = "0" + d$
\r
352 e$ = LEFT$(TIME$, 3) + d$ + RIGHT$(TIME$, 3)
\r
356 IF a$ = "4" OR a$ = "5" THEN
\r
357 b = VAL(LEFT$(TIME$, 2))
\r
358 IF a$ = "4" THEN b = b - 1
\r
359 IF a$ = "5" THEN b = b + 1
\r
360 IF b < 0 THEN b = 0
\r
361 IF b > 23 THEN b = 23
\r
363 IF LEFT$(d$, 1) = " " THEN d$ = RIGHT$(d$, LEN(d$) - 1)
\r
364 IF LEN(d$) < 2 THEN d$ = "0" + d$
\r
365 e$ = d$ + RIGHT$(TIME$, 6)
\r
369 IF a$ = "u" THEN sync2
\r
370 IF a$ = "l" THEN sync
\r
372 IF a$ = "r" THEN rese
\r
373 IF a$ = "q" THEN SYSTEM
\r
376 IF tunnidara = 0 THEN tunnidara = 1 ELSE tunnidara = 0
\r
380 IF ssave <= ssavel THEN
\r
386 IF ABS(TIMER - timero) > 10 THEN
\r
390 LOCATE RND * 22 + 1, RND * 79 + 1
\r
391 IF RND * 100 < 50 THEN PRINT "*" ELSE PRINT "."
\r
393 LOCATE RND * 22 + 1, RND * 50 + 1
\r
395 PRINT "< " + LEFT$(TIME$, 2);
\r
399 PRINT RIGHT$(LEFT$(TIME$, 5), 2) + " >"
\r
424 FOR c = 1 TO LEN(a$)
\r
425 d$ = RIGHT$(LEFT$(a$, c), 1)
\r
426 IF d$ = " " OR d$ = CHR$(9) THEN
\r
429 IF b = 1 THEN b = 0: mitus = mitus + 1
\r
430 sona$(mitus) = sona$(mitus) + d$
\r
438 pn$(1) = "esmasp�ev"
\r
439 pn$(2) = "teisip�ev"
\r
440 pn$(3) = "kolmap�ev"
\r
441 pn$(4) = "neljap�ev"
\r
444 pn$(7) = "p�hap�ev"
\r
454 OPEN "sync.txt" FOR INPUT AS #1
\r
467 b = VAL(RIGHT$(a$, 2))
\r
468 c = VAL(LEFT$(a$, 2))
\r
469 IF b >= 30 THEN c = c + 1
\r
471 IF c > 23 THEN c = c - 24
\r
472 a$ = RIGHT$(STR$(c), LEN(STR$(c)) - 1)
\r
473 b$ = RIGHT$(STR$(b), LEN(STR$(b)) - 1)
\r
474 IF LEN(a$) < 2 THEN a$ = "0" + a$
\r
475 IF LEN(b$) < 2 THEN b$ = "0" + b$
\r