--- /dev/null
+v 01-01 12-31 tava\r
+n 01-01 12-31 5 reede\r
+e 10-04 opetajap\r
+e 10-31 rebased\r
+n 01-01 12-31 6 tuhi\r
+n 01-01 12-31 7 tuhi\r
+\r
--- /dev/null
+coff\r
+qb /run kk.bas
\ No newline at end of file
--- /dev/null
+mov dx, 37Ah\r
+mov al, 0\r
+out dx, al\r
+ret
\ No newline at end of file
--- /dev/null
+DECLARE SUB jooks ()\r
+DECLARE SUB suva ()\r
+DEFINT A-Z\r
+DECLARE SUB cle ()\r
+DECLARE SUB disp ()\r
+DIM SHARED bit(0 TO 16)\r
+\r
+suva\r
+jooks\r
+\r
+cle\r
+bit(10) = 0\r
+bit(14) = 0\r
+bit(6) = 0\r
+bit(2) = 0\r
+4\r
+disp\r
+GOTO 4\r
+\r
+SUB cle\r
+FOR a = 1 TO 16\r
+bit(a) = 1\r
+NEXT a\r
+END SUB\r
+\r
+SUB disp\r
+prt = &H378\r
+d = 0\r
+FOR a = 0 TO 3\r
+c = 2 ^ a\r
+FOR b = 4 TO 7\r
+d = d + 1\r
+c = c + (bit(d) * 2 ^ b)\r
+NEXT b\r
+\r
+OUT prt, c\r
+NEXT a\r
+END SUB\r
+\r
+SUB jooks\r
+2\r
+cle\r
+FOR a = 1 TO 16\r
+bit(16) = 1\r
+bit(a - 1) = 1\r
+bit(a) = 0\r
+PRINT a\r
+FOR b = 1 TO 1000\r
+disp\r
+NEXT b\r
+NEXT a\r
+GOTO 2\r
+\r
+END SUB\r
+\r
+SUB suva\r
+3\r
+cle\r
+FOR b = 1 TO 16\r
+IF RND * 100 > 50 THEN bit(b) = 0\r
+NEXT b\r
+FOR b = 1 TO 100\r
+disp\r
+NEXT b\r
+GOTO 3\r
+END SUB\r
+\r
--- /dev/null
+<!doctype html>
+<html lang="en">
+<head>
+<title>juhend</title>
+<!-- 2018-04-20 Fri 11:08 -->
+<meta charset="utf-8">
+<meta name="viewport" content="width=device-width, initial-scale=1">
+<meta name="generator" content="Org-mode">
+<meta name="author" content="Svjatoslav Agejenko">
+
+<link href="https://cdnjs.cloudflare.com/ajax/libs/twitter-bootstrap/3.3.5/css/bootstrap.min.css" rel="stylesheet">
+<script src="https://cdnjs.cloudflare.com/ajax/libs/jquery/1.11.3/jquery.min.js"></script>
+<script src="https://cdnjs.cloudflare.com/ajax/libs/twitter-bootstrap/3.3.5/js/bootstrap.min.js"></script>
+<style type="text/css">
+/* org mode styles on top of twbs */
+
+html {
+ position: relative;
+ min-height: 100%;
+}
+
+body {
+ font-size: 18px;
+ margin-bottom: 105px;
+}
+
+footer {
+ position: absolute;
+ bottom: 0;
+ width: 100%;
+ height: 101px;
+ background-color: #f5f5f5;
+}
+
+footer > div {
+ padding: 10px;
+}
+
+footer p {
+ margin: 0 0 5px;
+ text-align: center;
+ font-size: 16px;
+}
+
+#table-of-contents {
+ margin-top: 20px;
+ margin-bottom: 20px;
+}
+
+blockquote p {
+ font-size: 18px;
+}
+
+pre {
+ font-size: 16px;
+}
+
+.footpara {
+ display: inline-block;
+}
+
+figcaption {
+ font-size: 16px;
+ color: #666;
+ font-style: italic;
+ padding-bottom: 15px;
+}
+
+/* from twbs docs */
+
+.bs-docs-sidebar.affix {
+ position: static;
+}
+@media (min-width: 768px) {
+ .bs-docs-sidebar {
+ padding-left: 20px;
+ }
+}
+
+/* All levels of nav */
+.bs-docs-sidebar .nav > li > a {
+ display: block;
+ padding: 4px 20px;
+ font-size: 14px;
+ font-weight: 500;
+ color: #999;
+}
+.bs-docs-sidebar .nav > li > a:hover,
+.bs-docs-sidebar .nav > li > a:focus {
+ padding-left: 19px;
+ color: #A1283B;
+ text-decoration: none;
+ background-color: transparent;
+ border-left: 1px solid #A1283B;
+}
+.bs-docs-sidebar .nav > .active > a,
+.bs-docs-sidebar .nav > .active:hover > a,
+.bs-docs-sidebar .nav > .active:focus > a {
+ padding-left: 18px;
+ font-weight: bold;
+ color: #A1283B;
+ background-color: transparent;
+ border-left: 2px solid #A1283B;
+}
+
+/* Nav: second level (shown on .active) */
+.bs-docs-sidebar .nav .nav {
+ display: none; /* Hide by default, but at >768px, show it */
+ padding-bottom: 10px;
+}
+.bs-docs-sidebar .nav .nav > li > a {
+ padding-top: 1px;
+ padding-bottom: 1px;
+ padding-left: 30px;
+ font-size: 12px;
+ font-weight: normal;
+}
+.bs-docs-sidebar .nav .nav > li > a:hover,
+.bs-docs-sidebar .nav .nav > li > a:focus {
+ padding-left: 29px;
+}
+.bs-docs-sidebar .nav .nav > .active > a,
+.bs-docs-sidebar .nav .nav > .active:hover > a,
+.bs-docs-sidebar .nav .nav > .active:focus > a {
+ padding-left: 28px;
+ font-weight: 500;
+}
+
+/* Nav: third level (shown on .active) */
+.bs-docs-sidebar .nav .nav .nav {
+ padding-bottom: 10px;
+}
+.bs-docs-sidebar .nav .nav .nav > li > a {
+ padding-top: 1px;
+ padding-bottom: 1px;
+ padding-left: 40px;
+ font-size: 12px;
+ font-weight: normal;
+}
+.bs-docs-sidebar .nav .nav .nav > li > a:hover,
+.bs-docs-sidebar .nav .nav .nav > li > a:focus {
+ padding-left: 39px;
+}
+.bs-docs-sidebar .nav .nav .nav > .active > a,
+.bs-docs-sidebar .nav .nav .nav > .active:hover > a,
+.bs-docs-sidebar .nav .nav .nav > .active:focus > a {
+ padding-left: 38px;
+ font-weight: 500;
+}
+
+/* Show and affix the side nav when space allows it */
+@media (min-width: 992px) {
+ .bs-docs-sidebar .nav > .active > ul {
+ display: block;
+ }
+ /* Widen the fixed sidebar */
+ .bs-docs-sidebar.affix,
+ .bs-docs-sidebar.affix-bottom {
+ width: 213px;
+ }
+ .bs-docs-sidebar.affix {
+ position: fixed; /* Undo the static from mobile first approach */
+ top: 20px;
+ }
+ .bs-docs-sidebar.affix-bottom {
+ position: absolute; /* Undo the static from mobile first approach */
+ }
+ .bs-docs-sidebar.affix .bs-docs-sidenav,.bs-docs-sidebar.affix-bottom .bs-docs-sidenav {
+ margin-top: 0;
+ margin-bottom: 0
+ }
+}
+@media (min-width: 1200px) {
+ /* Widen the fixed sidebar again */
+ .bs-docs-sidebar.affix-bottom,
+ .bs-docs-sidebar.affix {
+ width: 263px;
+ }
+}
+</style>
+<script type="text/javascript">
+$(function() {
+ 'use strict';
+
+ $('.bs-docs-sidebar li').first().addClass('active');
+
+ $(document.body).scrollspy({target: '.bs-docs-sidebar'});
+
+ $('.bs-docs-sidebar').affix();
+});
+</script>
+</head>
+<body>
+<div id="content" class="container">
+<div class="row"><div class="col-md-9"><h1 class="title">juhend</h1>
+<p>
+Kooli Kell programmi kasutusjuhend
+</p>
+
+<ul class="org-ul">
+<li>2002.10
+</li>
+<li>Svjatoslav Agejenko
+</li>
+</ul>
+
+
+<div id="outline-container-sec-1" class="outline-2">
+<h2 id="sec-1"><span class="section-number-2">1</span> Kasutajaliides</h2>
+<div class="outline-text-2" id="text-1">
+<p>
+Programm Kooli Kell on mõldud kella laskmiseks koolis, tundi sisse ja
+välja. Samuti juhib programm arvuti küljes olevat liidest,
+kahekohaliste numbrite näitamiseks (minutid / tunnid), 3 klahvilist
+klaviatuuri ja releed. Tundi sisse minev kell on 1 pikk ning 1 l”em
+helin. Väljaminev kell on 1 tavaline pikk helin. Programm loeb aega
+arvuti süsteemsest kellast. Kella laskmis ajad on organiseeritud
+failidesse *.PP . Aasta või päevaplaani muutmiseks tuleb redakteerida
+vastavaid faile. Programm valib sobiva päevaplaani lähtudes
+aastaplaanist, mis asub failis "aasta.ap" . Programmi saab kasutada
+arvutil millele on printeri pesasse (LPT1) ”endatud spetsiaalne
+liides, liidese skeem on failis "skeem.bmp". Liides omab kolme
+nummerdatud nuppu paigutusega:
+</p>
+
+<p class="verse">
+<1> <2><br >
+   <3><br >
+</p>
+
+<p>
+Programm on ettenähtud iseseisvalt töötama, kuid on ka võimalus
+erandkorras kгitsi kella lasta, aega muuta jne.. Programm eristab
+tavalisi nupuvajutusi ja topeltklõpse. Eesmärgiga suurendada
+funktsionaalsust väheste nuppudega.
+</p>
+</div>
+
+<div id="outline-container-sec-1-1" class="outline-3">
+<h3 id="sec-1-1"><span class="section-number-3">1.1</span> Nuppude funktsioonid peamenüüs:</h3>
+<div class="outline-text-3" id="text-1-1">
+<dl class="org-dl">
+<dt> <1> klõps </dt><dd>laseb kella tundi sisse
+</dd>
+<dt> <1> topeltklõps </dt><dd>laseb kella tunnist välja
+</dd>
+
+<dt> <2> klõps </dt><dd>läheb aja muutmis menüüsse
+</dd>
+<dt> <3> topeltklõps </dt><dd>hakkab tööle uuendatud graafikuga, vajalik pвast
+sisendfailide redigeerimist.
+</dd>
+
+<dt> <3> klõps </dt><dd>ümardab süsteemse aja täistunnini, vajalik aja
+sünkroniseerimiseks.
+</dd>
+<dt> <3> topeltklõps </dt><dd>laeb süsteemse: aasta, kuu, päeva, tunnid,
+minutid failist "sync.txt"
+</dd>
+</dl>
+</div>
+</div>
+
+<div id="outline-container-sec-1-2" class="outline-3">
+<h3 id="sec-1-2"><span class="section-number-3">1.2</span> Nuppude funktsioonid aja muutmis menüüs:</h3>
+<div class="outline-text-3" id="text-1-2">
+<dl class="org-dl">
+<dt> <1> klõps </dt><dd>vähendab süsteemsed tunnid/minutid 1. võrra
+</dd>
+
+<dt> <2> klõps </dt><dd>suurendab süsteemsed tunnid/minutid 1. võrra
+</dd>
+
+<dt> <3> klõps </dt><dd>valib näitamiseks ja redigeerimiseks tunnid või minutid.
+</dd>
+<dt> <3> topeltklõps </dt><dd>läheb tagasi peamenüüsse.
+</dd>
+</dl>
+
+<p>
+Aja muutmis menüüd tunneb ära selle järgi et indikaator tunnid või
+minutid vilgub, mitte ei põle nagu peamenüüs.
+</p>
+</div>
+</div>
+</div>
+
+
+<div id="outline-container-sec-2" class="outline-2">
+<h2 id="sec-2"><span class="section-number-2">2</span> Faili AASTA.AP formaat: (aastaplaan)</h2>
+<div class="outline-text-2" id="text-2">
+<pre class="example">
+v <kuu>-<päev> <kuu>-<päev> <päevaplaan>
+</pre>
+
+<p>
+Sõnast aja vahemik. Paneb paika päevaplaani antud
+ajavahemikus. Esimene daatum peab kindlasti olema väiksem kui
+teine. St. kui on tõesti vaja:
+</p>
+
+<pre class="example">
+v 10-4 2-1 eri
+</pre>
+
+<p>
+tuleb kirjutada:
+</p>
+
+<pre class="example">
+v 10-4 12-31 eri
+v 1-1 2-1 eri
+</pre>
+
+<p>
+Päevaplaan kehtib vahemiku esimesest päevast kuni vahemiku viimase
+päevani.
+</p>
+
+
+<pre class="example">
+n <kuu>-<päev> <kuu>-<päev> <nädalapäev> <päevaplaan>
+</pre>
+
+<p>
+Sõnast nädalapäv. sama mis "v" kuid: paneb paika päevaplaani antud
+ajavahemikus, antud nädalapäeval. Nädalapäeva kirjeldatakse numbriga.
+nädala esimene päev on esmaspäev, talle vastab number 1.
+</p>
+
+
+<pre class="example">
+e <kuu>-<päev> <päevaplaan>
+</pre>
+
+<p>
+Sõnast eriline. Paneb paika antud kuupävale antud pävaplaani. Sobib
+hästi erakorraliste lüendatud või muul moel muudetud päevaplaanide
+kehtestamiseks. Näiteks riigipühad, spordipäev jne.
+</p>
+
+<p>
+Kui teatud päeva kohta ei käinud ühtegi kirjet siis toimib vaikimisi
+"tuhi" päevaplaan. Kui teatud päeva kohta käis mitu kirjet siis jääb
+peale viimane.
+</p>
+</div>
+</div>
+
+
+
+<div id="outline-container-sec-3" class="outline-2">
+<h2 id="sec-3"><span class="section-number-2">3</span> Failide *.PP formaat: (päevaplaanid)</h2>
+<div class="outline-text-2" id="text-3">
+<pre class="example">
+# <tund>:<minut> <kell>
+</pre>
+
+<p>
+Laseb antud ajal antud kella. Võimalikud kella helinad on:
+</p>
+
+<table class="table table-striped table-bordered table-hover table-condensed">
+
+
+<colgroup>
+<col class="left">
+
+<col class="left">
+</colgroup>
+<thead>
+<tr>
+<th scope="col" class="text-left">kella kood</th>
+<th scope="col" class="text-left">vastav helin</th>
+</tr>
+</thead>
+<tbody>
+<tr>
+<td class="text-left">sis</td>
+<td class="text-left">kell tundi sisse</td>
+</tr>
+
+<tr>
+<td class="text-left">val</td>
+<td class="text-left">kell tunnist välja</td>
+</tr>
+</tbody>
+</table>
+</div>
+</div>
+
+<div id="outline-container-sec-4" class="outline-2">
+<h2 id="sec-4"><span class="section-number-2">4</span> Faili SYNC.TXT formaat:</h2>
+<div class="outline-text-2" id="text-4">
+<p>
+faili esimesel kahel real peab olema järgnev:
+</p>
+
+<pre class="example">
+KK-PP-AAAA
+TT:MM
+</pre>
+
+<p>
+kus:
+</p>
+<table class="table table-striped table-bordered table-hover table-condensed">
+
+
+<colgroup>
+<col class="left">
+
+<col class="left">
+</colgroup>
+<thead>
+<tr>
+<th scope="col" class="text-left">kood</th>
+<th scope="col" class="text-left">tähendus</th>
+</tr>
+</thead>
+<tbody>
+<tr>
+<td class="text-left">KK</td>
+<td class="text-left">kuu</td>
+</tr>
+
+<tr>
+<td class="text-left">PP</td>
+<td class="text-left">päev</td>
+</tr>
+
+<tr>
+<td class="text-left">AAAA</td>
+<td class="text-left">aasta</td>
+</tr>
+
+<tr>
+<td class="text-left">TT</td>
+<td class="text-left">tunnid</td>
+</tr>
+
+<tr>
+<td class="text-left">MM</td>
+<td class="text-left">minutid</td>
+</tr>
+</tbody>
+</table>
+</div>
+</div>
+</div><div class="col-md-3"><nav id="table-of-contents">
+<div id="text-table-of-contents" class="bs-docs-sidebar">
+<ul class="nav">
+<li><a href="#sec-1">1. Kasutajaliides</a>
+<ul class="nav">
+<li><a href="#sec-1-1">1.1. Nuppude funktsioonid peamenüüs:</a></li>
+<li><a href="#sec-1-2">1.2. Nuppude funktsioonid aja muutmis menüüs:</a></li>
+</ul>
+</li>
+<li><a href="#sec-2">2. Faili AASTA.AP formaat: (aastaplaan)</a></li>
+<li><a href="#sec-3">3. Failide *.PP formaat: (päevaplaanid)</a></li>
+<li><a href="#sec-4">4. Faili SYNC.TXT formaat:</a></li>
+</ul>
+</div>
+</nav>
+</div></div></div>
+<footer id="postamble" class="">
+<div><p class="author">Author: Svjatoslav Agejenko</p>
+<p class="date">Created: 2018-04-20 Fri 11:08</p>
+<p class="creator"><a href="http://www.gnu.org/software/emacs/">Emacs</a> 25.1.1 (<a href="http://orgmode.org">Org-mode</a> 8.2.10)</p>
+</div>
+</footer>
+</body>
+</html>
--- /dev/null
+
+Kooli Kell programmi kasutusjuhend
+
+- 2002.10
+- Svjatoslav Agejenko
+
+
+* Kasutajaliides
+Programm Kooli Kell on mõldud kella laskmiseks koolis, tundi sisse ja
+välja. Samuti juhib programm arvuti küljes olevat liidest,
+kahekohaliste numbrite näitamiseks (minutid / tunnid), 3 klahvilist
+klaviatuuri ja releed. Tundi sisse minev kell on 1 pikk ning 1 l”em
+helin. Väljaminev kell on 1 tavaline pikk helin. Programm loeb aega
+arvuti süsteemsest kellast. Kella laskmis ajad on organiseeritud
+failidesse *.PP . Aasta või päevaplaani muutmiseks tuleb redakteerida
+vastavaid faile. Programm valib sobiva päevaplaani lähtudes
+aastaplaanist, mis asub failis "aasta.ap" . Programmi saab kasutada
+arvutil millele on printeri pesasse (LPT1) ”endatud spetsiaalne
+liides, liidese skeem on failis "skeem.bmp". Liides omab kolme
+nummerdatud nuppu paigutusega:
+
+#+BEGIN_VERSE
+ <1> <2>
+ <3>
+#+END_VERSE
+
+Programm on ettenähtud iseseisvalt töötama, kuid on ka võimalus
+erandkorras kгitsi kella lasta, aega muuta jne.. Programm eristab
+tavalisi nupuvajutusi ja topeltklõpse. Eesmärgiga suurendada
+funktsionaalsust väheste nuppudega.
+
+** Nuppude funktsioonid peamenüüs:
+
++ <1> klõps :: laseb kella tundi sisse
++ <1> topeltklõps :: laseb kella tunnist välja
+
++ <2> klõps :: läheb aja muutmis menüüsse
++ <3> topeltklõps :: hakkab tööle uuendatud graafikuga, vajalik pвast
+ sisendfailide redigeerimist.
+
++ <3> klõps :: ümardab süsteemse aja täistunnini, vajalik aja
+ sünkroniseerimiseks.
++ <3> topeltklõps :: laeb süsteemse: aasta, kuu, päeva, tunnid,
+ minutid failist "sync.txt"
+
+** Nuppude funktsioonid aja muutmis menüüs:
+
++ <1> klõps :: vähendab süsteemsed tunnid/minutid 1. võrra
+
++ <2> klõps :: suurendab süsteemsed tunnid/minutid 1. võrra
+
++ <3> klõps :: valib näitamiseks ja redigeerimiseks tunnid või minutid.
++ <3> topeltklõps :: läheb tagasi peamenüüsse.
+
+Aja muutmis menüüd tunneb ära selle järgi et indikaator tunnid või
+minutid vilgub, mitte ei põle nagu peamenüüs.
+
+
+* Faili AASTA.AP formaat: (aastaplaan)
+: v <kuu>-<päev> <kuu>-<päev> <päevaplaan>
+
+Sõnast aja vahemik. Paneb paika päevaplaani antud
+ajavahemikus. Esimene daatum peab kindlasti olema väiksem kui
+teine. St. kui on tõesti vaja:
+
+: v 10-4 2-1 eri
+
+tuleb kirjutada:
+
+: v 10-4 12-31 eri
+: v 1-1 2-1 eri
+
+Päevaplaan kehtib vahemiku esimesest päevast kuni vahemiku viimase
+päevani.
+
+
+: n <kuu>-<päev> <kuu>-<päev> <nädalapäev> <päevaplaan>
+
+Sõnast nädalapäv. sama mis "v" kuid: paneb paika päevaplaani antud
+ajavahemikus, antud nädalapäeval. Nädalapäeva kirjeldatakse numbriga.
+nädala esimene päev on esmaspäev, talle vastab number 1.
+
+
+: e <kuu>-<päev> <päevaplaan>
+
+Sõnast eriline. Paneb paika antud kuupävale antud pävaplaani. Sobib
+hästi erakorraliste lüendatud või muul moel muudetud päevaplaanide
+kehtestamiseks. Näiteks riigipühad, spordipäev jne.
+
+Kui teatud päeva kohta ei käinud ühtegi kirjet siis toimib vaikimisi
+"tuhi" päevaplaan. Kui teatud päeva kohta käis mitu kirjet siis jääb
+peale viimane.
+
+
+
+* Failide *.PP formaat: (päevaplaanid)
+: # <tund>:<minut> <kell>
+
+Laseb antud ajal antud kella. Võimalikud kella helinad on:
+
+| kella kood | vastav helin |
+|------------+--------------------|
+| sis | kell tundi sisse |
+| val | kell tunnist välja |
+
+* Faili SYNC.TXT formaat:
+faili esimesel kahel real peab olema järgnev:
+
+: KK-PP-AAAA
+: TT:MM
+
+kus:
+| kood | tähendus |
+|------+----------|
+| KK | kuu |
+| PP | päev |
+| AAAA | aasta |
+| TT | tunnid |
+| MM | minutid |
--- /dev/null
+DECLARE SUB num (a%)\r
+DECLARE SUB mntime ()\r
+DECLARE SUB showit ()\r
+DECLARE SUB ekrf (a%)\r
+DECLARE SUB ekr ()\r
+DECLARE SUB rese ()\r
+DECLARE SUB start ()\r
+DECLARE SUB boot ()\r
+DECLARE SUB getnad (g%, n%, d%, k%)\r
+DECLARE SUB initp (b$)\r
+DECLARE SUB getmd (a$, m%, d%)\r
+DECLARE SUB son (a$)\r
+DEFINT A-Z\r
+\r
+DECLARE SUB inita ()\r
+DECLARE SUB chm ()\r
+DECLARE SUB chd ()\r
+DECLARE SUB kell (a%)\r
+DECLARE SUB sync2 ()\r
+DECLARE SUB sync ()\r
+DECLARE SUB mnmain ()\r
+DECLARE SUB main ()\r
+DECLARE SUB getkey (kla%)\r
+DECLARE SUB klnait (k%)\r
+DECLARE SUB heli (a%)\r
+DECLARE SUB keys ()\r
+DECLARE SUB disp ()\r
+DIM SHARED bit(0 TO 7)\r
+DIM SHARED kl\r
+DIM SHARED hist(1 TO 3)\r
+DIM SHARED ap$(1 TO 500)\r
+DIM SHARED apl\r
+DIM SHARED pp$(1 TO 500)\r
+DIM SHARED ppl\r
+DIM SHARED prt, prt2\r
+DIM SHARED timo$\r
+DIM SHARED dato$\r
+DIM SHARED sona$(1 TO 50)\r
+DIM SHARED mitus\r
+DIM SHARED lp$\r
+DIM SHARED ndlp\r
+DIM SHARED pn$(1 TO 7)\r
+DIM SHARED bitt(1 TO 16)\r
+DIM SHARED modee, vilgu\r
+DIM SHARED tul(1 TO 2)\r
+\r
+start\r
+heli 4\r
+\r
+\r
+disp\r
+mnmain\r
+\r
+SUB chd\r
+b$ = "tuhi"\r
+IF apl = 0 THEN inita\r
+\r
+a$ = DATE$\r
+n1 = VAL(RIGHT$(a$, 4))\r
+n2 = VAL(LEFT$(a$, 2))\r
+a$ = LEFT$(a$, 5)\r
+n3 = VAL(RIGHT$(a$, 2))\r
+getnad n1, n2, n3, ndlp\r
+LOCATE 10, 1\r
+PRINT "n\84dalap\84ev:", pn$(ndlp)\r
+FOR a = 1 TO apl\r
+son ap$(a)\r
+SELECT CASE sona$(1)\r
+CASE "v"\r
+getmd sona$(2), m1, d1\r
+getmd sona$(3), m2, d2\r
+getmd DATE$, m3, d3\r
+IF m3 < m1 THEN GOTO 9\r
+IF m3 > m2 THEN GOTO 9\r
+IF m3 = m1 THEN IF d3 < d1 THEN GOTO 9\r
+IF m3 = m2 THEN IF d3 > d2 THEN GOTO 9\r
+b$ = sona$(4)\r
+CASE "n"\r
+getmd sona$(2), m1, d1\r
+getmd sona$(3), m2, d2\r
+getmd DATE$, m3, d3\r
+IF m3 < m1 THEN GOTO 9\r
+IF m3 > m2 THEN GOTO 9\r
+IF m3 = m1 THEN IF d3 < d1 THEN GOTO 9\r
+IF m3 = m2 THEN IF d3 > d2 THEN GOTO 9\r
+IF ndlp <> VAL(sona$(4)) THEN GOTO 9\r
+b$ = sona$(5)\r
+CASE "e"\r
+getmd sona$(2), m1, d1\r
+getmd DATE$, m2, d2\r
+IF (m1 = m2) AND (d1 = d2) THEN b$ = sona$(3)\r
+END SELECT\r
+9\r
+NEXT a\r
+\r
+IF b$ <> lp$ THEN initp b$\r
+lp$ = b$\r
+LOCATE 9, 1\r
+PRINT "p\84evaplaan:", lp$\r
+END SUB\r
+\r
+SUB chm\r
+showit\r
+a$ = DATE$\r
+IF a$ <> dato$ THEN chd\r
+dato$ = a$\r
+b = 0\r
+FOR a = 1 TO ppl\r
+son pp$(a)\r
+SELECT CASE sona$(1)\r
+CASE "#"\r
+getmd sona$(2), h1, m1\r
+getmd TIME$, h2, m2\r
+' PRINT h1, m1, h2, m2\r
+IF (h2 = h1) AND (m2 = m1) THEN\r
+IF sona$(3) = "sis" THEN b = 1\r
+IF sona$(3) = "val" THEN b = 2\r
+END IF\r
+END SELECT\r
+NEXT a\r
+\r
+IF b > 0 THEN kell b\r
+\r
+END SUB\r
+\r
+SUB disp\r
+CLS\r
+PRINT "Kooli Kell v 1.2 2002.10.10"\r
+PRINT "Programmi autor Svjatoslav Agejenko"\r
+\r
+END SUB\r
+\r
+SUB ekr\r
+FOR e = 1 TO 10\r
+c = 1\r
+c = c + 16 * bitt(1)\r
+c = c + 32 * bitt(2)\r
+c = c + 64 * bitt(3)\r
+c = c + 128 * bitt(4)\r
+OUT prt2, c\r
+\r
+c = 2\r
+c = c + 16 * bitt(5)\r
+c = c + 32 * bitt(6)\r
+c = c + 64 * bitt(7)\r
+c = c + 128 * bitt(8)\r
+OUT prt2, c\r
+\r
+c = 4\r
+c = c + 16 * bitt(9)\r
+c = c + 32 * bitt(10)\r
+c = c + 64 * bitt(11)\r
+c = c + 128 * bitt(12)\r
+OUT prt2, c\r
+\r
+c = 8\r
+c = c + 16 * bitt(13)\r
+c = c + 32 * bitt(14)\r
+c = c + 64 * bitt(15)\r
+c = c + 128 * bitt(16)\r
+OUT prt2, c\r
+\r
+\r
+NEXT e\r
+END SUB\r
+\r
+SUB ekrf (a)\r
+SELECT CASE (a)\r
+CASE 0\r
+bitt(1) = 0\r
+bitt(2) = 0\r
+bitt(3) = 0\r
+bitt(7) = 0\r
+bitt(5) = 0\r
+bitt(6) = 0\r
+bitt(8) = 1\r
+CASE 1\r
+bitt(2) = 0\r
+bitt(7) = 0\r
+CASE 2\r
+bitt(1) = 0\r
+bitt(3) = 0\r
+bitt(5) = 0\r
+bitt(7) = 0\r
+bitt(8) = 0\r
+CASE 3\r
+bitt(1) = 0\r
+bitt(2) = 0\r
+bitt(5) = 0\r
+bitt(8) = 0\r
+bitt(7) = 0\r
+CASE 4\r
+bitt(2) = 0\r
+bitt(6) = 0\r
+bitt(7) = 0\r
+bitt(8) = 0\r
+CASE 5\r
+bitt(1) = 0\r
+bitt(2) = 0\r
+bitt(5) = 0\r
+bitt(6) = 0\r
+bitt(8) = 0\r
+CASE 6\r
+bitt(1) = 0\r
+bitt(2) = 0\r
+bitt(3) = 0\r
+bitt(5) = 0\r
+bitt(6) = 0\r
+bitt(8) = 0\r
+CASE 7\r
+bitt(2) = 0\r
+bitt(7) = 0\r
+bitt(5) = 0\r
+CASE 8\r
+bitt(1) = 0\r
+bitt(2) = 0\r
+bitt(3) = 0\r
+bitt(7) = 0\r
+bitt(5) = 0\r
+bitt(6) = 0\r
+bitt(8) = 0\r
+CASE 9\r
+bitt(1) = 0\r
+bitt(2) = 0\r
+bitt(7) = 0\r
+bitt(5) = 0\r
+bitt(6) = 0\r
+bitt(8) = 0\r
+CASE 10\r
+bitt(15) = 0\r
+bitt(16) = 0\r
+bitt(12) = 0\r
+bitt(10) = 0\r
+bitt(9) = 0\r
+bitt(4) = 0\r
+CASE 11\r
+bitt(15) = 0\r
+bitt(4) = 0\r
+CASE 12\r
+bitt(15) = 0\r
+bitt(16) = 0\r
+bitt(9) = 0\r
+bitt(10) = 0\r
+bitt(11) = 0\r
+CASE 13\r
+bitt(15) = 0\r
+bitt(4) = 0\r
+bitt(16) = 0\r
+bitt(11) = 0\r
+bitt(9) = 0\r
+CASE 14\r
+bitt(15) = 0\r
+bitt(4) = 0\r
+bitt(12) = 0\r
+bitt(11) = 0\r
+CASE 15\r
+bitt(9) = 0\r
+bitt(4) = 0\r
+bitt(11) = 0\r
+bitt(12) = 0\r
+bitt(16) = 0\r
+CASE 16\r
+bitt(9) = 0\r
+bitt(4) = 0\r
+bitt(11) = 0\r
+bitt(12) = 0\r
+bitt(16) = 0\r
+bitt(10) = 0\r
+CASE 17\r
+bitt(4) = 0\r
+bitt(15) = 0\r
+bitt(16) = 0\r
+CASE 18\r
+bitt(4) = 0\r
+bitt(15) = 0\r
+bitt(16) = 0\r
+bitt(12) = 0\r
+bitt(11) = 0\r
+bitt(10) = 0\r
+bitt(9) = 0\r
+CASE 19\r
+bitt(4) = 0\r
+bitt(15) = 0\r
+bitt(16) = 0\r
+bitt(12) = 0\r
+bitt(11) = 0\r
+bitt(9) = 0\r
+END SELECT\r
+\r
+END SUB\r
+\r
+SUB getkey (kla)\r
+\r
+1\r
+IF vilgu = 1 THEN\r
+tmr = tmr + 1\r
+IF tmr > 5 THEN bitt(13) = tul(1): bitt(14) = tul(2) ELSE bitt(13) = 1: bitt(14) = 1\r
+IF tmr > 10 THEN\r
+tmr = 0\r
+END IF\r
+ELSE\r
+bitt(13) = tul(1)\r
+bitt(14) = tul(2)\r
+END IF\r
+\r
+b$ = LEFT$(TIME$, 5)\r
+IF b$ <> timo$ THEN chm\r
+timo$ = b$\r
+hist(1) = hist(1) + 1\r
+IF hist(1) > 20000 THEN hist(1) = 15000\r
+hist(2) = hist(2) + 1\r
+IF hist(2) > 20000 THEN hist(2) = 15000\r
+hist(3) = hist(3) + 1\r
+IF hist(3) > 20000 THEN hist(3) = 15000\r
+\r
+keys\r
+IF kl > 0 THEN\r
+ IF hist(kl) > 1 AND hist(kl) < 9 THEN\r
+ klnait kl + 3\r
+ kla = kl + 3\r
+ GOTO 4\r
+ ELSE\r
+ hist(kl) = 0\r
+ END IF\r
+END IF\r
+IF hist(1) = 10 THEN klnait 1: kla = 1: GOTO 4\r
+IF hist(2) = 10 THEN klnait 2: kla = 2: GOTO 4\r
+IF hist(3) = 10 THEN klnait 3: kla = 3: GOTO 4\r
+\r
+IF hist(1) > 11 AND hist(2) > 11 AND hist(3) > 11 THEN klnait 0\r
+LOCATE 7, 1\r
+PRINT TIME$\r
+LOCATE 8, 1\r
+PRINT DATE$\r
+GOTO 1\r
+4\r
+\r
+\r
+hist(1) = 10000\r
+hist(2) = 10000\r
+hist(3) = 10000\r
+\r
+FOR b = 1 TO 100\r
+SOUND 0, .1\r
+NEXT b\r
+IF kla > 3 THEN SOUND 4000, .1 ELSE SOUND 3000, .1\r
+\r
+\r
+\r
+END SUB\r
+\r
+SUB getmd (a$, m, d)\r
+b$ = LEFT$(a$, 5)\r
+m = VAL(LEFT$(b$, 2))\r
+d = VAL(RIGHT$(b$, 2))\r
+\r
+END SUB\r
+\r
+SUB getnad (g, n, d, k)\r
+LOCATE 11, 1\r
+PRINT g, n, d\r
+p = g\r
+m = n - 2\r
+IF n > 2 GOTO 120\r
+p = p - 1: m = m + 12\r
+120\r
+c = INT(p / 100)\r
+y = p - c * 100\r
+w = d + INT((13 * m - 1) / 5) + y + INT(y / 4) + INT(c / 4) - 2 * c\r
+k = w - 7 * INT(w / 7)\r
+IF k = 0 THEN k = 7\r
+END SUB\r
+\r
+SUB heli (a)\r
+'GOTO 10\r
+SELECT CASE a\r
+CASE 1\r
+FOR c = 1 TO 5\r
+SOUND 3000, 1\r
+SOUND 0, 1\r
+NEXT c\r
+\r
+CASE 2\r
+FOR c = 1 TO 5\r
+SOUND 2500, 1\r
+SOUND 0, 2\r
+NEXT c\r
+SOUND 2500, 10\r
+\r
+CASE 3\r
+FOR a = 1 TO 10\r
+SOUND 500, .5\r
+SOUND 1500, .5\r
+SOUND 2000, .5\r
+SOUND 1520, .5\r
+NEXT a\r
+\r
+\r
+CASE 4\r
+FOR a = 800 TO 1000 STEP 10\r
+SOUND a, .1\r
+SOUND a * 3, .1\r
+SOUND 0, 1\r
+NEXT a\r
+10\r
+\r
+END SELECT\r
+\r
+\r
+END SUB\r
+\r
+SUB inita\r
+apl = 0\r
+OPEN "aasta.ap" FOR INPUT AS #1\r
+5\r
+IF EOF(1) <> 0 THEN GOTO 3\r
+LINE INPUT #1, a$\r
+apl = apl + 1\r
+ap$(apl) = a$\r
+GOTO 5\r
+3\r
+CLOSE #1\r
+END SUB\r
+\r
+SUB initp (b$)\r
+ppl = 0\r
+OPEN b$ + ".pp" FOR INPUT AS #1\r
+6\r
+IF EOF(1) <> 0 THEN GOTO 7\r
+LINE INPUT #1, a$\r
+ppl = ppl + 1\r
+pp$(ppl) = a$\r
+GOTO 6\r
+7\r
+CLOSE #1\r
+END SUB\r
+\r
+SUB kell (a)\r
+heli 3\r
+\r
+SELECT CASE a\r
+CASE 1\r
+OUT prt, 255\r
+FOR b = 1 TO 80\r
+SOUND 0, 1\r
+NEXT b\r
+OUT prt, 0\r
+FOR b = 1 TO 15\r
+SOUND 0, 1\r
+NEXT b\r
+OUT prt, 255\r
+FOR b = 1 TO 15\r
+SOUND 0, 1\r
+NEXT b\r
+OUT prt, 0\r
+\r
+CASE 2\r
+OUT prt, 255\r
+FOR b = 1 TO 80\r
+SOUND 0, 1\r
+NEXT b\r
+OUT prt, 0\r
+\r
+END SELECT\r
+END SUB\r
+\r
+SUB keys\r
+kl = 0\r
+OUT prt, 0\r
+8\r
+a = INP(prt)\r
+b = INP(prt)\r
+IF a <> b THEN GOTO 8\r
+\r
+b = 128\r
+FOR c = 0 TO 7\r
+d = INT(a / b)\r
+bit(c) = d\r
+a = a - (b * d)\r
+b = b / 2\r
+NEXT c\r
+\r
+IF bit(4) = 1 AND bit(6) = 1 THEN bit(4) = 0: bit(6) = 0: kl = 3\r
+IF bit(6) = 1 THEN kl = 2\r
+IF bit(4) = 1 THEN kl = 1\r
+\r
+a$ = INKEY$\r
+IF a$ = CHR$(0) + "K" THEN kl = 1\r
+IF a$ = CHR$(0) + "M" THEN kl = 2\r
+IF a$ = CHR$(0) + "P" THEN kl = 3\r
+ekr\r
+END SUB\r
+\r
+SUB klnait (k)\r
+\r
+IF k = 3 THEN c = 3 ELSE c = 1\r
+IF k = 6 THEN c = 14\r
+LOCATE 5, 6\r
+COLOR 7, c\r
+PRINT "<kesk>"\r
+COLOR 7, 0\r
+\r
+IF k = 1 THEN c = 3 ELSE c = 1\r
+IF k = 4 THEN c = 14\r
+LOCATE 4, 1\r
+COLOR 7, c\r
+PRINT "<vasak>"\r
+COLOR 7, 0\r
+\r
+IF k = 2 THEN c = 3 ELSE c = 1\r
+IF k = 5 THEN c = 14\r
+LOCATE 4, 10\r
+COLOR 7, c\r
+PRINT "<parem>"\r
+COLOR 7, 0\r
+\r
+END SUB\r
+\r
+SUB mnmain\r
+2\r
+getkey a\r
+IF a = 6 THEN sync\r
+IF a = 3 THEN sync2\r
+\r
+IF a = 1 THEN kell 1\r
+IF a = 4 THEN kell 2\r
+\r
+IF a = 2 THEN mntime\r
+IF a = 5 THEN rese\r
+GOTO 2\r
+\r
+END SUB\r
+\r
+SUB mntime\r
+vilgu = 1\r
+11\r
+showit\r
+getkey a\r
+\r
+IF modee = 1 THEN\r
+ b = VAL(LEFT$(TIME$, 2))\r
+ c = 0\r
+ IF a = 1 THEN c = 1: b = b - 1\r
+ IF a = 2 THEN c = 1: b = b + 1\r
+ IF b < 0 THEN b = 0\r
+ IF b > 23 THEN b = 23\r
+ d$ = STR$(b)\r
+ IF LEFT$(d$, 1) = " " THEN d$ = RIGHT$(d$, LEN(d$) - 1)\r
+ IF LEN(d$) < 2 THEN d$ = "0" + d$\r
+ e$ = d$ + RIGHT$(TIME$, 6)\r
+ IF c = 1 THEN TIME$ = e$\r
+ELSE\r
+ b = VAL(RIGHT$(LEFT$(TIME$, 5), 2))\r
+ c = 0\r
+ IF a = 1 THEN c = 1: b = b - 1\r
+ IF a = 2 THEN c = 1: b = b + 1\r
+ IF b < 0 THEN b = 0\r
+ IF b > 59 THEN b = 59\r
+ d$ = STR$(b)\r
+ IF LEFT$(d$, 1) = " " THEN d$ = RIGHT$(d$, LEN(d$) - 1)\r
+ IF LEN(d$) < 2 THEN d$ = "0" + d$\r
+ e$ = LEFT$(TIME$, 3) + d$ + RIGHT$(TIME$, 3)\r
+ IF c = 1 THEN TIME$ = e$\r
+END IF\r
+\r
+IF a = 3 THEN\r
+IF modee = 1 THEN modee = 2 ELSE modee = 1\r
+END IF\r
+\r
+IF a = 6 THEN GOTO 12\r
+GOTO 11\r
+12\r
+vilgu = 0\r
+modee = 2\r
+END SUB\r
+\r
+SUB num (a)\r
+\r
+FOR b = 1 TO 12\r
+bitt(b) = 1\r
+NEXT b\r
+bitt(15) = 1\r
+bitt(16) = 1\r
+\r
+b = INT(a / 10)\r
+c = a - (10 * b)\r
+ekrf b\r
+ekrf c + 10\r
+END SUB\r
+\r
+SUB rese\r
+heli 4\r
+timo$ = ""\r
+dato$ = ""\r
+apl = 0\r
+END SUB\r
+\r
+SUB showit\r
+a$ = LEFT$(TIME$, 5)\r
+IF modee = 1 THEN\r
+b = VAL(LEFT$(a$, 2))\r
+tul(1) = 1\r
+tul(2) = 0\r
+ELSE\r
+b = VAL(RIGHT$(a$, 2))\r
+tul(1) = 0\r
+tul(2) = 1\r
+END IF\r
+LOCATE 15, 1\r
+PRINT b\r
+num b\r
+\r
+\r
+END SUB\r
+\r
+SUB son (a$)\r
+\r
+FOR b = 1 TO 50\r
+sona$(b) = ""\r
+NEXT b\r
+mitus = 0\r
+\r
+b = 1\r
+FOR c = 1 TO LEN(a$)\r
+d$ = RIGHT$(LEFT$(a$, c), 1)\r
+IF d$ = " " OR d$ = CHR$(9) THEN\r
+b = 1\r
+ELSE\r
+IF b = 1 THEN b = 0: mitus = mitus + 1\r
+sona$(mitus) = sona$(mitus) + d$\r
+END IF\r
+NEXT c\r
+\r
+\r
+END SUB\r
+\r
+SUB start\r
+pn$(1) = "esmasp\84ev"\r
+pn$(2) = "teisip\84ev"\r
+pn$(3) = "kolmap\84ev"\r
+pn$(4) = "neljap\84ev"\r
+pn$(5) = "reede"\r
+pn$(6) = "laup\84ev"\r
+pn$(7) = "p\81hap\84ev"\r
+\r
+prt = &H37A\r
+prt2 = &H378\r
+hist(1) = 10000\r
+hist(2) = 10000\r
+hist(3) = 10000\r
+\r
+FOR a = 1 TO 16\r
+bitt(a) = 1\r
+NEXT a\r
+modee = 2\r
+vilgu = 0\r
+tul(1) = 1\r
+tul(2) = 1\r
+END SUB\r
+\r
+SUB sync\r
+OPEN "sync.txt" FOR INPUT AS #1\r
+LINE INPUT #1, a$\r
+DATE$ = a$\r
+LINE INPUT #1, a$\r
+TIME$ = a$\r
+CLOSE #1\r
+\r
+heli 2\r
+END SUB\r
+\r
+SUB sync2\r
+a$ = TIME$\r
+a$ = LEFT$(a$, 5)\r
+b = VAL(RIGHT$(a$, 2))\r
+c = VAL(LEFT$(a$, 2))\r
+IF b >= 30 THEN c = c + 1\r
+b = 0\r
+IF c > 23 THEN c = c - 24\r
+a$ = RIGHT$(STR$(c), LEN(STR$(c)) - 1)\r
+b$ = RIGHT$(STR$(b), LEN(STR$(b)) - 1)\r
+IF LEN(a$) < 2 THEN a$ = "0" + a$\r
+IF LEN(b$) < 2 THEN b$ = "0" + b$\r
+a$ = a$ + ":" + b$\r
+\r
+'LOCATE 10, 1\r
+'PRINT a$\r
+\r
+TIME$ = a$\r
+\r
+heli 1\r
+END SUB\r
+\r
--- /dev/null
+# 08:30 sis\r
+# 09:15 val\r
+\r
+# 09:25 sis\r
+# 10:10 val\r
+\r
+# 10:20 sis\r
+# 10:45 val\r
+\r
+# 10:55 sis\r
+# 11:20 val\r
+\r
+# 11:40 sis\r
+# 12:05 val\r
+\r
+# 12:15 sis\r
+# 12:40 val\r
+\r
+\r
--- /dev/null
+# 08:30 sis\r
+# 09:10 val\r
+\r
+# 09:20 sis\r
+# 10:00 val\r
+\r
+# 10:10 sis\r
+# 10:50 val\r
+\r
+# 11:30 sis\r
+# 12:10 val\r
+\r
+# 12:20 sis\r
+# 13:00 val\r
+\r
+# 13:10 sis\r
+# 13:50 val\r
+\r
+# 14:00 sis\r
+# 14:40 val\r
+\r
+# 14:45 sis\r
+# 15:30 val\r
--- /dev/null
+# 08:30 sis\r
+# 09:15 val\r
+\r
+# 09:25 sis\r
+# 10:10 val\r
+\r
+# 10:20 sis\r
+# 11:05 val\r
+\r
+# 11:35 sis\r
+# 12:20 val\r
+\r
+# 12:30 sis\r
+# 13:15 val\r
+\r
+# 13:20 sis\r
+# 14:05 val\r
+\r
+# 14:10 sis\r
+# 14:55 val\r
+\r
+# 15:00 sis\r
+# 15:45 val\r
--- /dev/null
+09-06-2002\r
+15:38\r
+\r
+kuu-paev-aasta\r
+tunnid-minutid
\ No newline at end of file
--- /dev/null
+# 08:30 sis\r
+# 09:15 val\r
+\r
+# 09:25 sis\r
+# 10:10 val\r
+\r
+# 10:20 sis\r
+# 11:05 val\r
+\r
+# 11:35 sis\r
+# 12:20 val\r
+\r
+# 12:30 sis\r
+# 13:15 val\r
+\r
+# 13:25 sis\r
+# 14:10 val\r
+\r
+# 14:20 sis\r
+# 15:05 val\r
+\r
+# 15:10 sis\r
+# 15:55 val\r
+\r
+# 16:00 sis\r
+# 16:45 val\r
+\r
+# 16:50 sis\r
+# 17:45 val\r
+\r
+# 17:50 sis\r
+# 18:25 val\r
+\r
+# 18:30 sis\r
+# 19:15 val\r
+\r
--- /dev/null
+v 01-01 12-31 tava\r
+n 01-01 12-31 5 reede\r
+e 10-04 opetajap\r
+e 10-31 rebased\r
+e 04-17 luhend\r
+e 04-18 tuhi\r
+e 04-30 luhend\r
+e 05-01 tuhi\r
+e 06-23 tuhi\r
+e 06-24 tuhi\r
+n 01-01 12-31 6 tuhi\r
+n 01-01 12-31 7 tuhi\r
+v 07-01 08-31 tuhi\r
+\r
--- /dev/null
+DECLARE SUB dispt ()\r
+' Svjatoslav Agejenko\r
+' E-mail: svjatoslav@svjatoslav.eu\r
+' Homepage: www.hot.ee/n0/\r
+\r
+DECLARE SUB dispp ()\r
+DECLARE SUB displukk ()\r
+DECLARE SUB kola (a%)\r
+DECLARE SUB rese ()\r
+DECLARE SUB start ()\r
+DECLARE SUB getnad (g%, n%, d%, k%)\r
+DECLARE SUB initp (b$)\r
+DECLARE SUB getmd (a$, m%, d%)\r
+DECLARE SUB son (a$)\r
+DECLARE SUB inita ()\r
+DECLARE SUB chm ()\r
+DECLARE SUB chd ()\r
+DECLARE SUB kell (a%)\r
+DECLARE SUB sync2 ()\r
+DECLARE SUB sync ()\r
+DECLARE SUB mnmain ()\r
+DECLARE SUB heli (a%)\r
+DECLARE SUB disp ()\r
+DEFINT A-Z\r
+\r
+DIM SHARED ap$(1 TO 500)\r
+DIM SHARED apl\r
+DIM SHARED pp$(1 TO 500)\r
+DIM SHARED ppl\r
+DIM SHARED prt, prt2\r
+DIM SHARED timo$\r
+DIM SHARED dato$\r
+DIM SHARED sona$(1 TO 50)\r
+DIM SHARED mitus\r
+DIM SHARED lp$\r
+DIM SHARED ndlp\r
+DIM SHARED pn$(1 TO 7)\r
+DIM SHARED lk$\r
+DIM SHARED ssave\r
+DIM SHARED ssavel\r
+DIM SHARED timero AS LONG\r
+DIM SHARED kblukk\r
+DIM SHARED tunnidara\r
+\r
+start\r
+\r
+\r
+disp\r
+mnmain\r
+\r
+SUB chd\r
+b$ = "tuhi"\r
+IF apl = 0 THEN inita\r
+\r
+a$ = DATE$\r
+n1 = VAL(RIGHT$(a$, 4))\r
+n2 = VAL(LEFT$(a$, 2))\r
+a$ = LEFT$(a$, 5)\r
+n3 = VAL(RIGHT$(a$, 2))\r
+getnad n1, n2, n3, ndlp\r
+FOR a = 1 TO apl\r
+son ap$(a)\r
+SELECT CASE sona$(1)\r
+CASE "v"\r
+getmd sona$(2), m1, d1\r
+getmd sona$(3), m2, d2\r
+getmd DATE$, m3, d3\r
+IF m3 < m1 THEN GOTO 9\r
+IF m3 > m2 THEN GOTO 9\r
+IF m3 = m1 THEN IF d3 < d1 THEN GOTO 9\r
+IF m3 = m2 THEN IF d3 > d2 THEN GOTO 9\r
+b$ = sona$(4)\r
+CASE "n"\r
+getmd sona$(2), m1, d1\r
+getmd sona$(3), m2, d2\r
+getmd DATE$, m3, d3\r
+IF m3 < m1 THEN GOTO 9\r
+IF m3 > m2 THEN GOTO 9\r
+IF m3 = m1 THEN IF d3 < d1 THEN GOTO 9\r
+IF m3 = m2 THEN IF d3 > d2 THEN GOTO 9\r
+IF ndlp <> VAL(sona$(4)) THEN GOTO 9\r
+b$ = sona$(5)\r
+CASE "e"\r
+getmd sona$(2), m1, d1\r
+getmd DATE$, m2, d2\r
+IF (m1 = m2) AND (d1 = d2) THEN b$ = sona$(3)\r
+END SELECT\r
+9\r
+NEXT a\r
+\r
+IF b$ <> lp$ THEN initp b$\r
+lp$ = b$\r
+tunnidara = 0\r
+dispp\r
+disp\r
+END SUB\r
+\r
+SUB chm\r
+a$ = DATE$\r
+IF a$ <> dato$ THEN chd\r
+dato$ = a$\r
+b = 0\r
+FOR a = 1 TO ppl\r
+son pp$(a)\r
+SELECT CASE sona$(1)\r
+CASE "#"\r
+getmd sona$(2), h1, m1\r
+getmd TIME$, h2, m2\r
+' PRINT h1, m1, h2, m2\r
+IF (h2 = h1) AND (m2 = m1) THEN\r
+IF sona$(3) = "sis" THEN b = 1\r
+IF sona$(3) = "val" THEN b = 2\r
+END IF\r
+END SELECT\r
+NEXT a\r
+\r
+IF (tunnidara = 0) AND (b > 0) THEN kell b\r
+ssave = ssave + 1\r
+END SUB\r
+\r
+SUB disp\r
+CLS\r
+PRINT "Kooli Kell (mini) v 1.1 2003.3"\r
+PRINT "Programmi autor Svjatoslav Agejenko E-mail: n0@hot.ee"\r
+PRINT ""\r
+PRINT "s - kell tundi sisse v - kell tunnist v�lja"\r
+PRINT "a - sisesta uus aeg d - sisesta uus daatum"\r
+PRINT "u - �mardab aja t�istunnini l - laeb aja failist SYNC.TXT"\r
+PRINT "7 - 1 minut tagasi 8 - 1 minut edasi"\r
+PRINT "4 - 1 tund tagasi 5 - 1 tund edasi"\r
+PRINT "r - programmi restart q - programmist v�lja"\r
+PRINT " j - j�tab k�ik tunnid t�na �ra"\r
+\r
+dispp\r
+\r
+LOCATE 12, 15\r
+PRINT "Kuu-P�ev-Aasta (USA standard)"\r
+\r
+\r
+LOCATE 17\r
+\r
+FOR a = 1 TO ppl\r
+IF pp$(a) <> SPACE$(LEN(pp$(a))) THEN\r
+ PRINT pp$(a);\r
+ PRINT SPACE$(15 - LEN(pp$(a)));\r
+END IF\r
+NEXT a\r
+\r
+displukk\r
+dispt\r
+END SUB\r
+\r
+SUB displukk\r
+LOCATE 1, 40\r
+IF kblukk = 1 THEN\r
+ COLOR 0, 7\r
+ PRINT "Klaviatuur lukus! Vajuta CTRL+L"\r
+ COLOR 7, 0\r
+ELSE\r
+ PRINT " "\r
+END IF\r
+END SUB\r
+\r
+SUB dispp\r
+IF ndlp = 0 THEN GOTO 14\r
+LOCATE 14, 1\r
+PRINT "n�dalap�ev:", pn$(ndlp)\r
+LOCATE 15, 1\r
+PRINT "p�evaplaan:", lp$\r
+14\r
+END SUB\r
+\r
+SUB dispt\r
+LOCATE 16, 20\r
+COLOR 12 + 15, 0\r
+IF tunnidara = 1 THEN\r
+ PRINT "T�na on k�ik tunnid �ra j�etud"\r
+ELSE\r
+ PRINT " "\r
+END IF\r
+COLOR 7, 0\r
+END SUB\r
+\r
+SUB getmd (a$, m, d)\r
+b$ = LEFT$(a$, 5)\r
+m = VAL(LEFT$(b$, 2))\r
+d = VAL(RIGHT$(b$, 2))\r
+\r
+END SUB\r
+\r
+SUB getnad (g, n, d, k)\r
+'LOCATE 11, 1\r
+'PRINT g, n, d\r
+p = g\r
+m = n - 2\r
+IF n > 2 GOTO 120\r
+p = p - 1: m = m + 12\r
+120\r
+c = INT(p / 100)\r
+y = p - c * 100\r
+w = d + INT((13 * m - 1) / 5) + y + INT(y / 4) + INT(c / 4) - 2 * c\r
+k = w - 7 * INT(w / 7)\r
+IF k = 0 THEN k = 7\r
+END SUB\r
+\r
+SUB heli (a)\r
+'GOTO 10\r
+SELECT CASE a\r
+CASE 1\r
+FOR c = 1 TO 5\r
+SOUND 3000, 1\r
+SOUND 0, 1\r
+NEXT c\r
+\r
+CASE 2\r
+FOR c = 1 TO 5\r
+SOUND 2500, 1\r
+SOUND 0, 2\r
+NEXT c\r
+SOUND 2500, 10\r
+\r
+CASE 3\r
+FOR a = 1 TO 10\r
+SOUND 500, .5\r
+SOUND 1500, .5\r
+SOUND 2000, .5\r
+SOUND 1520, .5\r
+NEXT a\r
+\r
+\r
+CASE 4\r
+FOR a = 800 TO 1000 STEP 10\r
+SOUND a, .1\r
+SOUND a * 3, .1\r
+SOUND 0, 1\r
+NEXT a\r
+10\r
+\r
+END SELECT\r
+\r
+\r
+END SUB\r
+\r
+SUB inita\r
+apl = 0\r
+OPEN "aasta.ap" FOR INPUT AS #1\r
+5\r
+IF EOF(1) <> 0 THEN GOTO 3\r
+LINE INPUT #1, a$\r
+apl = apl + 1\r
+ap$(apl) = a$\r
+GOTO 5\r
+3\r
+CLOSE #1\r
+END SUB\r
+\r
+SUB initp (b$)\r
+ppl = 0\r
+OPEN b$ + ".pp" FOR INPUT AS #1\r
+6\r
+IF EOF(1) <> 0 THEN GOTO 7\r
+LINE INPUT #1, a$\r
+ppl = ppl + 1\r
+pp$(ppl) = a$\r
+GOTO 6\r
+7\r
+CLOSE #1\r
+END SUB\r
+\r
+SUB kell (a)\r
+b$ = TIME$ + DATE$\r
+IF b$ <> lk$ THEN lk$ = b$ ELSE GOTO 2\r
+\r
+heli 3\r
+\r
+SELECT CASE a\r
+CASE 1\r
+kola 4\r
+FOR b = 1 TO 15\r
+SOUND 0, 1\r
+NEXT b\r
+kola 1\r
+CASE 2\r
+kola 5\r
+END SELECT\r
+2\r
+END SUB\r
+\r
+SUB kola (a)\r
+timero = TIMER\r
+11\r
+FOR b = 1 TO 100\r
+OUT prt, 0\r
+OUT prt, 255\r
+NEXT b\r
+IF ABS(timero - TIMER) < a THEN GOTO 11\r
+END SUB\r
+\r
+SUB mnmain\r
+1\r
+b$ = LEFT$(TIME$, 5)\r
+IF b$ <> timo$ THEN chm\r
+timo$ = b$\r
+\r
+a$ = INKEY$\r
+\r
+IF a$ <> "" THEN\r
+IF ssave > ssavel THEN disp\r
+ssave = 0\r
+END IF\r
+\r
+IF a$ = CHR$(12) THEN\r
+ IF kblukk = 1 THEN kblukk = 0 ELSE kblukk = 1\r
+ displukk\r
+END IF\r
+IF kblukk = 1 THEN a$ = ""\r
+\r
+IF a$ = "s" THEN kell 1\r
+IF a$ = "v" THEN kell 2\r
+\r
+IF a$ = "a" THEN\r
+CLS\r
+PRINT " vana aeg: " + TIME$\r
+INPUT "sisesta uus aeg (TT:MM:SS): ", b$\r
+IF LEN(b$) <> 8 THEN GOTO 12\r
+TIME$ = b$\r
+timo$ = ""\r
+12\r
+disp\r
+END IF\r
+\r
+IF a$ = "d" THEN\r
+CLS\r
+PRINT " vana daatum: " + DATE$\r
+INPUT "sisesta uus daatum (KK-PP-AAAA): ", b$\r
+IF LEN(b$) <> 10 THEN GOTO 13\r
+DATE$ = b$\r
+timo$ = ""\r
+13\r
+disp\r
+END IF\r
+\r
+IF a$ = "7" OR a$ = "8" THEN\r
+ b = VAL(RIGHT$(LEFT$(TIME$, 5), 2))\r
+ IF a$ = "7" THEN b = b - 1\r
+ IF a$ = "8" THEN b = b + 1\r
+ IF b < 0 THEN b = 0\r
+ IF b > 59 THEN b = 59\r
+ d$ = STR$(b)\r
+ IF LEFT$(d$, 1) = " " THEN d$ = RIGHT$(d$, LEN(d$) - 1)\r
+ IF LEN(d$) < 2 THEN d$ = "0" + d$\r
+ e$ = LEFT$(TIME$, 3) + d$ + RIGHT$(TIME$, 3)\r
+ TIME$ = e$\r
+END IF\r
+\r
+IF a$ = "4" OR a$ = "5" THEN\r
+ b = VAL(LEFT$(TIME$, 2))\r
+ IF a$ = "4" THEN b = b - 1\r
+ IF a$ = "5" THEN b = b + 1\r
+ IF b < 0 THEN b = 0\r
+ IF b > 23 THEN b = 23\r
+ d$ = STR$(b)\r
+ IF LEFT$(d$, 1) = " " THEN d$ = RIGHT$(d$, LEN(d$) - 1)\r
+ IF LEN(d$) < 2 THEN d$ = "0" + d$\r
+ e$ = d$ + RIGHT$(TIME$, 6)\r
+ TIME$ = e$\r
+END IF\r
+\r
+IF a$ = "u" THEN sync2\r
+IF a$ = "l" THEN sync\r
+\r
+IF a$ = "r" THEN rese\r
+IF a$ = "q" THEN SYSTEM\r
+\r
+IF a$ = "j" THEN\r
+IF tunnidara = 0 THEN tunnidara = 1 ELSE tunnidara = 0\r
+dispt\r
+END IF\r
+\r
+IF ssave <= ssavel THEN\r
+ LOCATE 11, 1\r
+ PRINT TIME$\r
+ LOCATE 12, 1\r
+ PRINT DATE$\r
+ELSE\r
+ IF ABS(TIMER - timero) > 10 THEN\r
+ CLS\r
+ kblukk = 1\r
+ FOR b = 1 TO 20\r
+ LOCATE RND * 22 + 1, RND * 79 + 1\r
+ IF RND * 100 < 50 THEN PRINT "*" ELSE PRINT "."\r
+ NEXT b\r
+ LOCATE RND * 22 + 1, RND * 50 + 1\r
+ COLOR 0, 7\r
+ PRINT "< " + LEFT$(TIME$, 2);\r
+ COLOR 16, 7\r
+ PRINT ":";\r
+ COLOR 0, 7\r
+ PRINT RIGHT$(LEFT$(TIME$, 5), 2) + " >"\r
+ COLOR 7, 0\r
+ timero = TIMER\r
+ END IF\r
+END IF\r
+GOTO 1\r
+\r
+\r
+END SUB\r
+\r
+SUB rese\r
+heli 4\r
+timo$ = ""\r
+dato$ = ""\r
+apl = 0\r
+END SUB\r
+\r
+SUB son (a$)\r
+\r
+FOR b = 1 TO 50\r
+sona$(b) = ""\r
+NEXT b\r
+mitus = 0\r
+\r
+b = 1\r
+FOR c = 1 TO LEN(a$)\r
+d$ = RIGHT$(LEFT$(a$, c), 1)\r
+IF d$ = " " OR d$ = CHR$(9) THEN\r
+b = 1\r
+ELSE\r
+IF b = 1 THEN b = 0: mitus = mitus + 1\r
+sona$(mitus) = sona$(mitus) + d$\r
+END IF\r
+NEXT c\r
+\r
+\r
+END SUB\r
+\r
+SUB start\r
+pn$(1) = "esmasp�ev"\r
+pn$(2) = "teisip�ev"\r
+pn$(3) = "kolmap�ev"\r
+pn$(4) = "neljap�ev"\r
+pn$(5) = "reede"\r
+pn$(6) = "laup�ev"\r
+pn$(7) = "p�hap�ev"\r
+\r
+prt = &H378\r
+\r
+ssavel = 2\r
+kblukk = 1\r
+tunnidara = 0\r
+END SUB\r
+\r
+SUB sync\r
+OPEN "sync.txt" FOR INPUT AS #1\r
+LINE INPUT #1, a$\r
+DATE$ = a$\r
+LINE INPUT #1, a$\r
+TIME$ = a$\r
+CLOSE #1\r
+\r
+heli 2\r
+END SUB\r
+\r
+SUB sync2\r
+a$ = TIME$\r
+a$ = LEFT$(a$, 5)\r
+b = VAL(RIGHT$(a$, 2))\r
+c = VAL(LEFT$(a$, 2))\r
+IF b >= 30 THEN c = c + 1\r
+b = 0\r
+IF c > 23 THEN c = c - 24\r
+a$ = RIGHT$(STR$(c), LEN(STR$(c)) - 1)\r
+b$ = RIGHT$(STR$(b), LEN(STR$(b)) - 1)\r
+IF LEN(a$) < 2 THEN a$ = "0" + a$\r
+IF LEN(b$) < 2 THEN b$ = "0" + b$\r
+a$ = a$ + ":" + b$\r
+\r
+'LOCATE 10, 1\r
+'PRINT a$\r
+\r
+TIME$ = a$\r
+\r
+heli 1\r
+END SUB\r
+\r
--- /dev/null
+# 08:30 sis\r
+# 09:00 val\r
+\r
+# 09:10 sis\r
+# 09:40 val\r
+\r
+# 09:50 sis\r
+# 10:20 val\r
+\r
+# 10:30 sis\r
+# 11:00 val\r
+\r
+# 11:30 sis\r
+# 12:00 val\r
+\r
+# 12:10 sis\r
+# 12:40 val\r
+\r
+# 12:50 sis\r
+# 13:20 val\r
+\r
+# 13:30 sis\r
+# 14:00 val\r
+\r
+# 14:05 sis\r
+# 14:35 val\r
+\r
--- /dev/null
+# 08:30 sis\r
+# 09:15 val\r
+\r
+# 09:25 sis\r
+# 10:10 val\r
+\r
+# 10:20 sis\r
+# 10:45 val\r
+\r
+# 10:55 sis\r
+# 11:20 val\r
+\r
+# 11:40 sis\r
+# 12:05 val\r
+\r
+# 12:15 sis\r
+# 12:40 val\r
+\r
+\r
--- /dev/null
+# 08:30 sis\r
+# 09:10 val\r
+\r
+# 09:20 sis\r
+# 10:00 val\r
+\r
+# 10:10 sis\r
+# 10:50 val\r
+\r
+# 11:30 sis\r
+# 12:10 val\r
+\r
+# 12:20 sis\r
+# 13:00 val\r
+\r
+# 13:10 sis\r
+# 13:50 val\r
+\r
+# 14:00 sis\r
+# 14:40 val\r
+\r
+# 14:45 sis\r
+# 15:30 val\r
--- /dev/null
+# 08:30 sis\r
+# 09:15 val\r
+\r
+# 09:25 sis\r
+# 10:10 val\r
+\r
+# 10:20 sis\r
+# 11:05 val\r
+\r
+# 11:35 sis\r
+# 12:20 val\r
+\r
+# 12:30 sis\r
+# 13:15 val\r
+\r
+# 13:20 sis\r
+# 14:05 val\r
+\r
+# 14:10 sis\r
+# 14:55 val\r
+\r
+# 15:00 sis\r
+# 15:45 val\r
--- /dev/null
+02-03-2003\r
+11:32\r
+\r
+kuu-paev-aasta\r
+tunnid-minutid
\ No newline at end of file
--- /dev/null
+# 08:30 sis\r
+# 09:15 val\r
+\r
+# 09:25 sis\r
+# 10:10 val\r
+\r
+# 10:20 sis\r
+# 11:05 val\r
+\r
+# 11:35 sis\r
+# 12:20 val\r
+\r
+# 12:30 sis\r
+# 13:15 val\r
+\r
+# 13:25 sis\r
+# 14:10 val\r
+\r
+# 14:20 sis\r
+# 15:05 val\r
+\r
+# 15:10 sis\r
+# 15:55 val\r
+\r
+# 16:00 sis\r
+# 16:45 val\r
+\r
+# 16:50 sis\r
+# 17:35 val
\ No newline at end of file
--- /dev/null
+v 01-01 12-31 tava\r
+n 01-01 12-31 5 reede\r
+e 04-17 luhend\r
+e 04-18 tuhi\r
+e 04-30 luhend\r
+e 05-01 tuhi\r
+e 06-23 tuhi\r
+e 06-24 tuhi\r
+n 01-01 12-31 6 tuhi\r
+n 01-01 12-31 7 tuhi\r
+v 07-01 08-31 tuhi\r
+\r
--- /dev/null
+ Kooli Kell 3 programmi kasutusjuhend\r
+ ------------------------------------\r
+\r
+2003.09\r
+\r
+Programmi, juhendi ja skeemi autor: Svjatoslav Agejenko\r
+E-post: svjatoslav@svjatoslav.eu\r
+kodulehekylg: www.hot.ee/n0/\r
+\r
+Ettevaatust: Siin tekstis olev info v6ib olla vananenud, vigane v6i\r
+ebat2ielik. Autor ei v6ta endale vastutust antud systeemi kasutamisest\r
+tekkinud otsese v6i kaudse kahju puhul!\r
+ \r
+\r
+\r
+ 0 Teemad\r
+ --------\r
+\r
+0 Teemad\r
+1 Yldinfo\r
+2 faili AASTA.AP formaat\r
+3 failide *.PP formaat\r
+4 Raudvara n6uded\r
+5 Tarkvara n6uded\r
+6 N6uded inimesele\r
+\r
+\r
+\r
+ 1 Yldinfo\r
+ ---------\r
+\r
+Programm Kooli Kell on m6eldud kella laskmiseks koolis, tundi sisse ja v2lja.\r
+Tundi sisse minev kell on 1 pikk ning 1 lyhem helin. V2ljaminev kell on 1\r
+tavaline pikk helin. Programm loeb aega arvuti systeemsest kellast.\r
+Fail 'AASTA.AP' hoiab aasta graafikut, kus saab m22rata teatud p2eva kohta\r
+k2iva p2evaplaani. P2evaplaanid asuvad failides '*.PP'.\r
+Aasta v6i p2evaplaani muutmiseks tuleb redigeerida vastavaid faile.\r
+Failides on info esitatud programmile 'Kooli Kell' arusaadavate k2skudena.\r
+Kus yhel real on yks k2sk, v6i tyhi rida.\r
+Rea esimene s6na peab olema k2sk, ning j2rgnevad s6nad on selle k2su\r
+parameetrid. S6nad v6ivad olla eraldatud suvalise 0 suuremate\r
+tabulaatorite ja/v6i tyhikute arvuga.\r
+Programmi saab kasutada arvutil millele on yhendatud spetsiaalne liides,\r
+v6i millel on see liides sisse monteeritud. Liideses olev relee toimib\r
+lylitina, mis kella laskmise ajaks sulgub. Liides vooluahelasse ise\r
+voolu ei anna. Seega on liides m6eldud kella ja toiteallikaga vooluahelasse\r
+jadamisi yhendamiseks. V6i siis olemasoleva mehaanilise\r
+kella laskmis nupuga paralleelselt, siis saab kella lasta nii endisest\r
+nupust kui ka arvutiga.\r
+\r
+Programm on etten2htud iseseisvalt t88tama, kuid on\r
+ka v6imalus erandkorras k2sitsi kella lasta, aega muuta jne.\r
+Selleks tuleb vajutada erinevaid klahve klaviatuuril.\r
+K2ivitudes kuvab programm klahvide kirjeldused ekraanile.\r
+\r
+\r
+\r
+ 2 faili AASTA.AP formaat\r
+ ------------------------\r
+\r
+L6pp 'AP' tuleneb s6nadest Aasta plaan.\r
+\r
+v <kuu>-<p2ev> <kuu>-<p2ev> <p2evaplaan>\r
+\r
+S6nast vahemik. Paneb paika p2evaplaani antud ajavahemikus. Esimene\r
+daatum peab kindlasti olema v2iksem kui teine. St. kui on t6esti vaja:\r
+\r
+v 10-4 2-1 eri\r
+\r
+tuleb kirjutada:\r
+\r
+v 10-4 12-31 eri\r
+v 1-1 2-1 eri\r
+\r
+P2evaplaan kehtib vahemiku esimesest p2evast kuni vahemiku viimase p2evani.\r
+\r
+n <kuu>-<p2ev> <kuu>-<p2ev> <n2dalap2ev> <p2evaplaan>\r
+\r
+S6nast n2dalap2ev. sama mis "v" kuid: paneb paika p2evaplaani antud\r
+ajavahemikus, antud n2dalap2eval. N2dalap2eva kirjeldatakse numbriga.\r
+n2dala esimene p2ev on esmasp2ev, talle vastab number 1.\r
+\r
+e <kuu>-<p�ev> <p�evaplaan>\r
+\r
+S6nast erip2evaplaan. Paneb paika antud kuup2evale antud p2evaplaani.\r
+Sobib h2sti erakorraliste, lyhendatud v6i uhekordselt kehtivate\r
+p2evaplaanide kehtestamiseks. N2iteks riigipyhad, spordip2ev jne.\r
+\r
+Kui teatud p2eva kohta ei k2inud yhtegi kirjet siis toimib vaikimisi "tuhi"\r
+p2evaplaan. Kui teatud p2eva kohta k2is mitu kirjet siis j22b peale viimane.\r
+\r
+\r
+\r
+ 3 failide *.PP formaat\r
+ ----------------------\r
+\r
+L6pp 'PP' tuleneb s6nadest P2eva Plaan.\r
+\r
+# <tund>:<minut> <kell>\r
+\r
+Laseb antud ajal antud kella. V6imalikud kella helinad on:\r
+\r
+ sis -kell tundi sisse\r
+ val -kell tunnist v2lja\r
+\r
+\r
+\r
+ 4 Raudvara n6uded\r
+ -----------------\r
+\r
+286 protsessoriga PC tyypi arvuti.\r
+ Peaks t88tama ka 8086 protsessoril aga pole testinud.\r
+\r
+640 KB p6him2lu.\r
+ V2hemaga pole testinud.\r
+\r
+500 KB vaba kettaruumi.\r
+ K6vakettalt t88 kiirendab oluliselt programmi k2ivitumist,\r
+ ja konfiguratsiooni redigeerimist.\r
+\r
+LPT port.\r
+\r
+Monitor.\r
+ v6ib ka mustvalge.\r
+\r
+Klaviatuur.\r
+\r
+\r
+\r
+ 5 Tarkvara n6uded\r
+ -----------------\r
+\r
+DOS 6.22\r
+ V6ib ka varasem, kuid pole testinud.\r
+QB 4.5\r
+ Piisab 'QB.EXE' failist. Peaks t88tama ka MS QBasic-us.\r
+EDIT.EXE\r
+ DOSi k2surealt k2ivituv teksti redaktor.\r
+\r
+\r
+\r
+ 6 N6uded inimesele\r
+ ------------------\r
+\r
+Systeemi kasutamiseks h2davajalik antud juhendist aru saamine. \r
+Systeemi paigaldamine n6uab elektriku oskusi.\r
+Programmi kasutamiseks on vajalik v2hemalt\r
+algaja tasemel arvutikasutaja oskus.\r
+\r
+\r
--- /dev/null
+DECLARE FUNCTION getnam$ (a%)\r
+DECLARE FUNCTION getsym$ (a$, b%)\r
+DECLARE SUB editor ()\r
+DECLARE SUB leiaconf ()\r
+DECLARE SUB clrerr ()\r
+DECLARE SUB dispt ()\r
+\r
+' Kooli Kell 3\r
+\r
+' (c) Svjatoslav Agejenko\r
+' All rights reserved.\r
+\r
+' E-mail: svjatoslav@svjatoslav.eu\r
+' Homepage: svjatoslav.eu\r
+\r
+DECLARE SUB dispp ()\r
+DECLARE SUB displukk ()\r
+DECLARE SUB kola (a%)\r
+DECLARE SUB rese ()\r
+DECLARE SUB start ()\r
+DECLARE SUB getnad (g%, n%, d%, k%)\r
+DECLARE SUB initp (b$)\r
+DECLARE SUB getmd (a$, m%, d%)\r
+DECLARE SUB son (a$)\r
+DECLARE SUB inita ()\r
+DECLARE SUB chm ()\r
+DECLARE SUB chd ()\r
+DECLARE SUB kell (a%)\r
+DECLARE SUB sync2 ()\r
+DECLARE SUB sync ()\r
+DECLARE SUB mnmain ()\r
+DECLARE SUB heli (a%)\r
+DECLARE SUB disp ()\r
+DEFINT A-Z\r
+\r
+DIM SHARED ap$(1 TO 500)\r
+DIM SHARED apl\r
+DIM SHARED pp$(1 TO 500)\r
+DIM SHARED ppl\r
+DIM SHARED prt, prt2\r
+DIM SHARED timo$\r
+DIM SHARED dato$\r
+DIM SHARED sona$(1 TO 50)\r
+DIM SHARED mitus\r
+DIM SHARED lp$\r
+DIM SHARED ndlp\r
+DIM SHARED pn$(1 TO 7)\r
+DIM SHARED lk$\r
+DIM SHARED ssave\r
+DIM SHARED ssavel\r
+DIM SHARED timero AS LONG\r
+DIM SHARED kblukk\r
+DIM SHARED tunnidara\r
+DIM SHARED errmsg$\r
+DIM SHARED cnflist$(1 TO 200)\r
+\r
+'ON ERROR GOTO 20\r
+\r
+start\r
+disp\r
+mnmain\r
+\r
+20\r
+LOCATE 20, 1\r
+COLOR 0, 15\r
+PRINT "Programmi t88s ilmus j2rgnev t6rge:"\r
+PRINT errmsg$\r
+PRINT "Programmi t2itmine katkestatud! Abi saamiseks lugege juhendit."\r
+SYSTEM\r
+\r
+SUB chd\r
+b$ = "tuhi"\r
+IF apl = 0 THEN inita\r
+\r
+a$ = DATE$\r
+n1 = VAL(RIGHT$(a$, 4))\r
+n2 = VAL(LEFT$(a$, 2))\r
+a$ = LEFT$(a$, 5)\r
+n3 = VAL(RIGHT$(a$, 2))\r
+getnad n1, n2, n3, ndlp\r
+FOR a = 1 TO apl\r
+son ap$(a)\r
+SELECT CASE sona$(1)\r
+CASE "v"\r
+getmd sona$(2), m1, d1\r
+getmd sona$(3), m2, d2\r
+getmd DATE$, m3, d3\r
+IF m3 < m1 THEN GOTO 9\r
+IF m3 > m2 THEN GOTO 9\r
+IF m3 = m1 THEN IF d3 < d1 THEN GOTO 9\r
+IF m3 = m2 THEN IF d3 > d2 THEN GOTO 9\r
+b$ = sona$(4)\r
+CASE "n"\r
+getmd sona$(2), m1, d1\r
+getmd sona$(3), m2, d2\r
+getmd DATE$, m3, d3\r
+IF m3 < m1 THEN GOTO 9\r
+IF m3 > m2 THEN GOTO 9\r
+IF m3 = m1 THEN IF d3 < d1 THEN GOTO 9\r
+IF m3 = m2 THEN IF d3 > d2 THEN GOTO 9\r
+IF ndlp <> VAL(sona$(4)) THEN GOTO 9\r
+b$ = sona$(5)\r
+CASE "e"\r
+getmd sona$(2), m1, d1\r
+getmd DATE$, m2, d2\r
+IF (m1 = m2) AND (d1 = d2) THEN b$ = sona$(3)\r
+END SELECT\r
+9\r
+NEXT a\r
+\r
+IF b$ <> lp$ THEN initp b$\r
+lp$ = b$\r
+tunnidara = 0\r
+dispp\r
+disp\r
+END SUB\r
+\r
+SUB chm\r
+a$ = DATE$\r
+IF a$ <> dato$ THEN chd\r
+dato$ = a$\r
+b = 0\r
+FOR a = 1 TO ppl\r
+son pp$(a)\r
+SELECT CASE sona$(1)\r
+CASE "#"\r
+getmd sona$(2), h1, m1\r
+getmd TIME$, h2, m2\r
+' PRINT h1, m1, h2, m2\r
+IF (h2 = h1) AND (m2 = m1) THEN\r
+IF sona$(3) = "sis" THEN b = 1\r
+IF sona$(3) = "val" THEN b = 2\r
+END IF\r
+END SELECT\r
+NEXT a\r
+\r
+IF (tunnidara = 0) AND (b > 0) THEN kell b\r
+ssave = ssave + 1\r
+END SUB\r
+\r
+SUB clrerr\r
+errmsg$ = "tundmatu viga. V6ibolla on v2he RAM m2lu?"\r
+END SUB\r
+\r
+SUB disp\r
+CLS\r
+PRINT "Kooli Kell 3 2003.09"\r
+PRINT "autor: Svjatoslav Agejenko "\r
+PRINT ""\r
+PRINT "s - kell tundi sisse v - kell tunnist v�lja"\r
+PRINT "a - sisesta uus aeg d - sisesta uus daatum"\r
+PRINT "p - n2itab dokumentatsiooni j - j�tab k�ik tunnid t�na �ra"\r
+PRINT "7 - 1 minut tagasi 8 - 1 minut edasi"\r
+PRINT "4 - 1 tund tagasi 5 - 1 tund edasi"\r
+PRINT "r - programmi restart q - programmist v�lja"\r
+PRINT "k - konfiguratsiooni redaktor CTRL+L - klaviatuuri lukk (sees/v2ljas)"\r
+\r
+dispp\r
+\r
+LOCATE 12, 15\r
+PRINT "Kuu-P�ev-Aasta (USA standard)"\r
+\r
+\r
+LOCATE 17\r
+\r
+FOR a = 1 TO ppl\r
+IF pp$(a) <> SPACE$(LEN(pp$(a))) THEN\r
+ PRINT pp$(a);\r
+ PRINT SPACE$(15 - LEN(pp$(a)));\r
+END IF\r
+NEXT a\r
+\r
+displukk\r
+dispt\r
+END SUB\r
+\r
+SUB displukk\r
+LOCATE 1, 40\r
+IF kblukk = 1 THEN\r
+ COLOR 0, 7\r
+ PRINT "Klaviatuur lukus! Vajuta CTRL+L"\r
+ COLOR 15, 0\r
+ELSE\r
+ PRINT " "\r
+END IF\r
+END SUB\r
+\r
+SUB dispp\r
+IF ndlp = 0 THEN GOTO 14\r
+LOCATE 14, 1\r
+PRINT "n�dalap�ev:", pn$(ndlp)\r
+LOCATE 15, 1\r
+PRINT "p�evaplaan:", lp$\r
+14\r
+END SUB\r
+\r
+SUB dispt\r
+LOCATE 16, 20\r
+COLOR 12 + 15, 0\r
+IF tunnidara = 1 THEN\r
+ PRINT "T2na on k6ik tunnid 2ra j2etud"\r
+ELSE\r
+ PRINT " "\r
+END IF\r
+COLOR 15, 0\r
+END SUB\r
+\r
+SUB editor\r
+23\r
+leiaconf\r
+CLS\r
+COLOR 0, 15\r
+LOCATE 1, 1\r
+PRINT SPACE$(80);\r
+LOCATE 1, 1\r
+PRINT "Konfiguratsiooni redaktor. Valige v2lja p2eva v6i aasta plaani."\r
+LOCATE 2, 1\r
+PRINT SPACE$(80);\r
+LOCATE 2, 1\r
+PRINT " nr nimi laiend suurus loomisdaatum"\r
+\r
+LOCATE 22, 1\r
+PRINT SPACE$(80);\r
+LOCATE 22, 1\r
+PRINT "K - valitud faili kustutamine U - uus fail ESC - redaktorist v2lja"\r
+p = 0\r
+v = 1\r
+17\r
+FOR a = 3 TO 21\r
+ IF a - 2 + p = v THEN\r
+ COLOR 0, 7\r
+ LOCATE a, 1\r
+ PRINT cnflist$(a - 2 + p) + SPACE$(55 - LEN(cnflist$(a - 2 + p)))\r
+ LOCATE a, 56\r
+ COLOR 31, 0\r
+ PRINT "<==";\r
+ IF cnflist$(a - 2 + p) <> SPACE$(LEN(cnflist$(a - 2 + p))) THEN\r
+ COLOR 15, 0\r
+ PRINT " valitud: " + getnam$(v)\r
+ END IF\r
+ COLOR 15, 0\r
+ ELSE\r
+ COLOR 15, 0\r
+ LOCATE a, 1\r
+ PRINT cnflist$(a - 2 + p) + SPACE$(80 - LEN(cnflist$(a - 2 + p)))\r
+ END IF\r
+NEXT a\r
+ \r
+\r
+a$ = INKEY$\r
+LOCATE 1, 1\r
+'IF a$ <> "" THEN PRINT ASC(RIGHT$(a$, 1)); ASC(LEFT$(a$, 1))\r
+IF a$ = CHR$(27) THEN GOTO 18\r
+IF a$ = "u" OR a$ = "U" THEN SHELL "EDIT": GOTO 23\r
+IF a$ = CHR$(0) + "P" THEN v = v + 1\r
+IF a$ = CHR$(0) + "H" THEN v = v - 1\r
+IF a$ = CHR$(0) + CHR$(73) THEN v = v - 17\r
+IF a$ = CHR$(0) + CHR$(81) THEN v = v + 17\r
+IF a$ = "K" OR a$ = "k" THEN\r
+ IF LEN(getnam$(v)) > 2 THEN\r
+ IF getnam$(v) = "AASTA.AP" THEN\r
+ SOUND 3000, .1\r
+ ELSE\r
+ KILL getnam$(v)\r
+ GOTO 23\r
+ END IF\r
+ ELSE\r
+ SOUND 3000, .1\r
+ END IF\r
+END IF\r
+IF a$ = CHR$(13) THEN\r
+ IF getnam$(v) = "." THEN\r
+ SOUND 3000, .1\r
+ ELSE\r
+ SHELL "EDIT " + getnam$(v)\r
+ GOTO 23\r
+ END IF\r
+END IF\r
+\r
+IF v < 1 THEN v = 1: SOUND 3000, .2\r
+IF v > 200 THEN v = 200: : SOUND 3000, .2\r
+\r
+21 IF v - p > 19 THEN p = p + 1: GOTO 21\r
+22 IF v - p < 1 THEN p = p - 1: GOTO 22\r
+\r
+GOTO 17\r
+18\r
+COLOR 15, 0\r
+disp\r
+END SUB\r
+\r
+SUB getmd (a$, m, d)\r
+b$ = LEFT$(a$, 5)\r
+m = VAL(LEFT$(b$, 2))\r
+d = VAL(RIGHT$(b$, 2))\r
+\r
+END SUB\r
+\r
+SUB getnad (g, n, d, k)\r
+'LOCATE 11, 1\r
+'PRINT g, n, d\r
+p = g\r
+m = n - 2\r
+IF n > 2 GOTO 120\r
+p = p - 1: m = m + 12\r
+120\r
+c = INT(p / 100)\r
+y = p - c * 100\r
+w = d + INT((13 * m - 1) / 5) + y + INT(y / 4) + INT(c / 4) - 2 * c\r
+k = w - 7 * INT(w / 7)\r
+IF k = 0 THEN k = 7\r
+END SUB\r
+\r
+FUNCTION getnam$ (a)\r
+c$ = ""\r
+FOR b = 8 TO 40\r
+ d$ = getsym(cnflist$(a), b)\r
+ IF d$ = " " THEN GOTO 19\r
+ c$ = c$ + d$\r
+NEXT b\r
+19\r
+getnam$ = c$ + "." + getsym(cnflist$(a), 17) + getsym(cnflist$(a), 18)\r
+END FUNCTION\r
+\r
+FUNCTION getsym$ (a$, b)\r
+getsym$ = RIGHT$(LEFT$(a$, b), 1)\r
+END FUNCTION\r
+\r
+SUB heli (a)\r
+'GOTO 10\r
+SELECT CASE a\r
+CASE 1\r
+FOR c = 1 TO 5\r
+SOUND 3000, 1\r
+SOUND 0, 1\r
+NEXT c\r
+\r
+CASE 2\r
+FOR c = 1 TO 5\r
+SOUND 2500, 1\r
+SOUND 0, 2\r
+NEXT c\r
+SOUND 2500, 10\r
+\r
+CASE 3\r
+FOR a = 1 TO 10\r
+SOUND 500, .5\r
+SOUND 1500, .5\r
+SOUND 2000, .5\r
+SOUND 1520, .5\r
+NEXT a\r
+\r
+\r
+CASE 4\r
+FOR a = 800 TO 1000 STEP 10\r
+SOUND a, .1\r
+SOUND a * 3, .1\r
+SOUND 0, 1\r
+NEXT a\r
+10\r
+\r
+END SELECT\r
+\r
+\r
+END SUB\r
+\r
+SUB inita\r
+apl = 0\r
+errmsg$ = "Ei leia aastaplaani faili! 'aasta.ap'"\r
+OPEN "aasta.ap" FOR INPUT AS #1\r
+clrerr\r
+5\r
+IF EOF(1) <> 0 THEN GOTO 3\r
+LINE INPUT #1, a$\r
+apl = apl + 1\r
+ap$(apl) = a$\r
+GOTO 5\r
+3\r
+CLOSE #1\r
+END SUB\r
+\r
+SUB initp (b$)\r
+ppl = 0\r
+errmsg$ = "Ei leia aastaplaanis mainitud '" + b$ + ".pp' p2evaplaani!"\r
+OPEN b$ + ".pp" FOR INPUT AS #1\r
+clrerr\r
+6\r
+IF EOF(1) <> 0 THEN GOTO 7\r
+LINE INPUT #1, a$\r
+ppl = ppl + 1\r
+pp$(ppl) = a$\r
+GOTO 6\r
+7\r
+CLOSE #1\r
+END SUB\r
+\r
+SUB kell (a)\r
+b$ = TIME$ + DATE$\r
+IF b$ <> lk$ THEN lk$ = b$ ELSE GOTO 2\r
+\r
+heli 3\r
+\r
+SELECT CASE a\r
+CASE 1\r
+kola 4\r
+FOR b = 1 TO 15\r
+SOUND 0, 1\r
+NEXT b\r
+kola 1\r
+CASE 2\r
+kola 5\r
+END SELECT\r
+2\r
+END SUB\r
+\r
+SUB kola (a)\r
+COLOR 15, 7\r
+s$ = ""\r
+FOR b = 1 TO 80\r
+ s$ = s$ + CHR$(219)\r
+NEXT b\r
+FOR b = 1 TO 30\r
+PRINT s$;\r
+NEXT b\r
+\r
+timero = TIMER\r
+11\r
+OUT prt, 255\r
+IF ABS(timero - TIMER) < a THEN GOTO 11\r
+OUT prt, 0\r
+COLOR 15, 0\r
+disp\r
+END SUB\r
+\r
+SUB leiaconf\r
+FOR a = 1 TO 200\r
+ cnflist$(a) = ""\r
+NEXT a\r
+c = 1\r
+\r
+SHELL "dir >dir.tmp"\r
+OPEN "dir.tmp" FOR INPUT AS #1\r
+15\r
+IF EOF(1) <> 0 THEN GOTO 16\r
+LINE INPUT #1, a$\r
+IF LEN(a$) < 30 THEN GOTO 15\r
+IF LEFT$(a$, 1) = " " THEN GOTO 15\r
+IF LEFT$(a$, 1) = "." THEN GOTO 15\r
+b$ = RIGHT$(LEFT$(a$, 12), 3)\r
+IF b$ = "PP " OR b$ = "AP " THEN ELSE GOTO 15\r
+d$ = " " + STR$(c)\r
+a$ = RIGHT$(d$, 4) + " " + a$\r
+IF LEN(a$) > 50 THEN a$ = LEFT$(a$, 50)\r
+cnflist$(c) = a$\r
+c = c + 1\r
+GOTO 15\r
+16\r
+CLOSE #1\r
+KILL "dir.tmp"\r
+END SUB\r
+\r
+SUB mnmain\r
+1\r
+b$ = LEFT$(TIME$, 5)\r
+IF b$ <> timo$ THEN chm\r
+timo$ = b$\r
+\r
+a$ = INKEY$\r
+\r
+IF a$ <> "" THEN\r
+IF ssave > ssavel THEN disp\r
+ssave = 0\r
+END IF\r
+\r
+IF a$ = CHR$(12) THEN\r
+ IF kblukk = 1 THEN kblukk = 0 ELSE kblukk = 1\r
+ displukk\r
+END IF\r
+IF kblukk = 1 THEN\r
+ IF a$ <> "" THEN SOUND 3000, 1\r
+ a$ = ""\r
+END IF\r
+IF a$ = "k" OR a$ = "K" THEN editor\r
+\r
+IF a$ = "s" OR a$ = "S" THEN kell 1\r
+IF a$ = "v" OR a$ = "V" THEN kell 2\r
+\r
+IF a$ = "a" THEN\r
+CLS\r
+PRINT " vana aeg: " + TIME$\r
+INPUT "sisesta uus aeg (TT:MM:SS): ", b$\r
+IF LEN(b$) <> 8 THEN GOTO 12\r
+TIME$ = b$\r
+timo$ = ""\r
+12\r
+disp\r
+END IF\r
+\r
+IF a$ = "d" OR a$ = "D" THEN\r
+CLS\r
+PRINT " vana daatum: " + DATE$\r
+INPUT "sisesta uus daatum (KK-PP-AAAA): ", b$\r
+IF LEN(b$) <> 10 THEN GOTO 13\r
+DATE$ = b$\r
+timo$ = ""\r
+13\r
+disp\r
+END IF\r
+\r
+IF a$ = "7" OR a$ = "8" THEN\r
+ b = VAL(RIGHT$(LEFT$(TIME$, 5), 2))\r
+ IF a$ = "7" THEN b = b - 1\r
+ IF a$ = "8" THEN b = b + 1\r
+ IF b < 0 THEN b = 0\r
+ IF b > 59 THEN b = 59\r
+ d$ = STR$(b)\r
+ IF LEFT$(d$, 1) = " " THEN d$ = RIGHT$(d$, LEN(d$) - 1)\r
+ IF LEN(d$) < 2 THEN d$ = "0" + d$\r
+ e$ = LEFT$(TIME$, 3) + d$ + RIGHT$(TIME$, 3)\r
+ TIME$ = e$\r
+END IF\r
+\r
+IF a$ = "4" OR a$ = "5" THEN\r
+ b = VAL(LEFT$(TIME$, 2))\r
+ IF a$ = "4" THEN b = b - 1\r
+ IF a$ = "5" THEN b = b + 1\r
+ IF b < 0 THEN b = 0\r
+ IF b > 23 THEN b = 23\r
+ d$ = STR$(b)\r
+ IF LEFT$(d$, 1) = " " THEN d$ = RIGHT$(d$, LEN(d$) - 1)\r
+ IF LEN(d$) < 2 THEN d$ = "0" + d$\r
+ e$ = d$ + RIGHT$(TIME$, 6)\r
+ TIME$ = e$\r
+END IF\r
+\r
+IF a$ = "p" OR a$ = "P" THEN SHELL "EDIT juhend.txt": disp\r
+\r
+IF a$ = "r" OR a$ = "R" THEN rese\r
+IF a$ = "q" OR a$ = "Q" THEN SYSTEM\r
+\r
+IF a$ = "j" OR a$ = "J" THEN\r
+IF tunnidara = 0 THEN tunnidara = 1 ELSE tunnidara = 0\r
+dispt\r
+END IF\r
+\r
+IF ssave <= ssavel THEN\r
+ LOCATE 11, 1\r
+ PRINT TIME$\r
+ LOCATE 12, 1\r
+ PRINT DATE$\r
+ELSE\r
+ IF ABS(TIMER - timero) > 10 THEN\r
+ CLS\r
+ kblukk = 1\r
+ FOR b = 1 TO 20\r
+ LOCATE RND * 22 + 1, RND * 79 + 1\r
+ IF RND * 100 < 50 THEN PRINT "*" ELSE PRINT "."\r
+ NEXT b\r
+ LOCATE RND * 22 + 1, RND * 50 + 1\r
+ COLOR 0, 7\r
+ PRINT "< " + LEFT$(TIME$, 2);\r
+ COLOR 16, 7\r
+ PRINT ":";\r
+ COLOR 0, 7\r
+ PRINT RIGHT$(LEFT$(TIME$, 5), 2) + " >"\r
+ COLOR 15, 0\r
+ timero = TIMER\r
+ END IF\r
+END IF\r
+GOTO 1\r
+\r
+\r
+END SUB\r
+\r
+SUB rese\r
+heli 4\r
+timo$ = ""\r
+dato$ = ""\r
+apl = 0\r
+END SUB\r
+\r
+SUB son (a$)\r
+\r
+FOR b = 1 TO 50\r
+ sona$(b) = ""\r
+NEXT b\r
+mitus = 0\r
+\r
+b = 1\r
+FOR c = 1 TO LEN(a$)\r
+d$ = RIGHT$(LEFT$(a$, c), 1)\r
+IF d$ = " " OR d$ = CHR$(9) THEN\r
+b = 1\r
+ELSE\r
+IF b = 1 THEN b = 0: mitus = mitus + 1\r
+sona$(mitus) = sona$(mitus) + d$\r
+END IF\r
+NEXT c\r
+\r
+\r
+END SUB\r
+\r
+SUB start\r
+CLS\r
+COLOR 15\r
+pn$(1) = "esmasp�ev"\r
+pn$(2) = "teisip�ev"\r
+pn$(3) = "kolmap�ev"\r
+pn$(4) = "neljap�ev"\r
+pn$(5) = "reede"\r
+pn$(6) = "laup�ev"\r
+pn$(7) = "p�hap�ev"\r
+\r
+prt = &H378\r
+\r
+ssavel = 2\r
+kblukk = 1\r
+tunnidara = 0\r
+\r
+OUT prt, 0\r
+END SUB\r
+\r
--- /dev/null
+# 08:30 sis\r
+# 09:00 val\r
+\r
+# 09:10 sis\r
+# 09:40 val\r
+\r
+# 09:50 sis\r
+# 10:20 val\r
+\r
+# 10:30 sis\r
+# 11:00 val\r
+\r
+# 11:30 sis\r
+# 12:00 val\r
+\r
+# 12:10 sis\r
+# 12:40 val\r
+\r
+# 12:50 sis\r
+# 13:20 val\r
+\r
+# 13:30 sis\r
+# 14:00 val\r
+\r
+# 14:05 sis\r
+# 14:35 val\r
+\r
--- /dev/null
+# 08:30 sis\r
+# 09:15 val\r
+\r
+# 09:25 sis\r
+# 10:10 val\r
+\r
+# 10:20 sis\r
+# 11:05 val\r
+\r
+# 11:35 sis\r
+# 12:20 val\r
+\r
+# 12:30 sis\r
+# 13:15 val\r
+\r
+# 13:20 sis\r
+# 14:05 val\r
+\r
+# 14:10 sis\r
+# 14:55 val\r
+\r
+# 15:00 sis\r
+# 15:45 val\r
--- /dev/null
+# 08:30 sis\r
+# 09:15 val\r
+\r
+# 09:25 sis\r
+# 10:10 val\r
+\r
+# 10:20 sis\r
+# 11:05 val\r
+\r
+# 11:35 sis\r
+# 12:20 val\r
+\r
+# 12:30 sis\r
+# 13:15 val\r
+\r
+# 13:25 sis\r
+# 14:10 val\r
+\r
+# 14:20 sis\r
+# 15:05 val\r
+\r
+# 15:10 sis\r
+# 15:55 val\r
+\r
+# 16:00 sis\r
+# 16:45 val\r
+\r
+# 16:50 sis\r
+# 17:35 val
\ No newline at end of file
+++ /dev/null
-v 01-01 12-31 tava\r
-n 01-01 12-31 5 reede\r
-e 10-04 opetajap\r
-e 10-31 rebased\r
-n 01-01 12-31 6 tuhi\r
-n 01-01 12-31 7 tuhi\r
-\r
+++ /dev/null
-coff\r
-qb /run kk.bas
\ No newline at end of file
+++ /dev/null
-mov dx, 37Ah\r
-mov al, 0\r
-out dx, al\r
-ret
\ No newline at end of file
+++ /dev/null
-DECLARE SUB jooks ()\r
-DECLARE SUB suva ()\r
-DEFINT A-Z\r
-DECLARE SUB cle ()\r
-DECLARE SUB disp ()\r
-DIM SHARED bit(0 TO 16)\r
-\r
-suva\r
-jooks\r
-\r
-cle\r
-bit(10) = 0\r
-bit(14) = 0\r
-bit(6) = 0\r
-bit(2) = 0\r
-4\r
-disp\r
-GOTO 4\r
-\r
-SUB cle\r
-FOR a = 1 TO 16\r
-bit(a) = 1\r
-NEXT a\r
-END SUB\r
-\r
-SUB disp\r
-prt = &H378\r
-d = 0\r
-FOR a = 0 TO 3\r
-c = 2 ^ a\r
-FOR b = 4 TO 7\r
-d = d + 1\r
-c = c + (bit(d) * 2 ^ b)\r
-NEXT b\r
-\r
-OUT prt, c\r
-NEXT a\r
-END SUB\r
-\r
-SUB jooks\r
-2\r
-cle\r
-FOR a = 1 TO 16\r
-bit(16) = 1\r
-bit(a - 1) = 1\r
-bit(a) = 0\r
-PRINT a\r
-FOR b = 1 TO 1000\r
-disp\r
-NEXT b\r
-NEXT a\r
-GOTO 2\r
-\r
-END SUB\r
-\r
-SUB suva\r
-3\r
-cle\r
-FOR b = 1 TO 16\r
-IF RND * 100 > 50 THEN bit(b) = 0\r
-NEXT b\r
-FOR b = 1 TO 100\r
-disp\r
-NEXT b\r
-GOTO 3\r
-END SUB\r
-\r
+++ /dev/null
-<!doctype html>
-<html lang="en">
-<head>
-<title>juhend</title>
-<!-- 2018-04-20 Fri 11:08 -->
-<meta charset="utf-8">
-<meta name="viewport" content="width=device-width, initial-scale=1">
-<meta name="generator" content="Org-mode">
-<meta name="author" content="Svjatoslav Agejenko">
-
-<link href="https://cdnjs.cloudflare.com/ajax/libs/twitter-bootstrap/3.3.5/css/bootstrap.min.css" rel="stylesheet">
-<script src="https://cdnjs.cloudflare.com/ajax/libs/jquery/1.11.3/jquery.min.js"></script>
-<script src="https://cdnjs.cloudflare.com/ajax/libs/twitter-bootstrap/3.3.5/js/bootstrap.min.js"></script>
-<style type="text/css">
-/* org mode styles on top of twbs */
-
-html {
- position: relative;
- min-height: 100%;
-}
-
-body {
- font-size: 18px;
- margin-bottom: 105px;
-}
-
-footer {
- position: absolute;
- bottom: 0;
- width: 100%;
- height: 101px;
- background-color: #f5f5f5;
-}
-
-footer > div {
- padding: 10px;
-}
-
-footer p {
- margin: 0 0 5px;
- text-align: center;
- font-size: 16px;
-}
-
-#table-of-contents {
- margin-top: 20px;
- margin-bottom: 20px;
-}
-
-blockquote p {
- font-size: 18px;
-}
-
-pre {
- font-size: 16px;
-}
-
-.footpara {
- display: inline-block;
-}
-
-figcaption {
- font-size: 16px;
- color: #666;
- font-style: italic;
- padding-bottom: 15px;
-}
-
-/* from twbs docs */
-
-.bs-docs-sidebar.affix {
- position: static;
-}
-@media (min-width: 768px) {
- .bs-docs-sidebar {
- padding-left: 20px;
- }
-}
-
-/* All levels of nav */
-.bs-docs-sidebar .nav > li > a {
- display: block;
- padding: 4px 20px;
- font-size: 14px;
- font-weight: 500;
- color: #999;
-}
-.bs-docs-sidebar .nav > li > a:hover,
-.bs-docs-sidebar .nav > li > a:focus {
- padding-left: 19px;
- color: #A1283B;
- text-decoration: none;
- background-color: transparent;
- border-left: 1px solid #A1283B;
-}
-.bs-docs-sidebar .nav > .active > a,
-.bs-docs-sidebar .nav > .active:hover > a,
-.bs-docs-sidebar .nav > .active:focus > a {
- padding-left: 18px;
- font-weight: bold;
- color: #A1283B;
- background-color: transparent;
- border-left: 2px solid #A1283B;
-}
-
-/* Nav: second level (shown on .active) */
-.bs-docs-sidebar .nav .nav {
- display: none; /* Hide by default, but at >768px, show it */
- padding-bottom: 10px;
-}
-.bs-docs-sidebar .nav .nav > li > a {
- padding-top: 1px;
- padding-bottom: 1px;
- padding-left: 30px;
- font-size: 12px;
- font-weight: normal;
-}
-.bs-docs-sidebar .nav .nav > li > a:hover,
-.bs-docs-sidebar .nav .nav > li > a:focus {
- padding-left: 29px;
-}
-.bs-docs-sidebar .nav .nav > .active > a,
-.bs-docs-sidebar .nav .nav > .active:hover > a,
-.bs-docs-sidebar .nav .nav > .active:focus > a {
- padding-left: 28px;
- font-weight: 500;
-}
-
-/* Nav: third level (shown on .active) */
-.bs-docs-sidebar .nav .nav .nav {
- padding-bottom: 10px;
-}
-.bs-docs-sidebar .nav .nav .nav > li > a {
- padding-top: 1px;
- padding-bottom: 1px;
- padding-left: 40px;
- font-size: 12px;
- font-weight: normal;
-}
-.bs-docs-sidebar .nav .nav .nav > li > a:hover,
-.bs-docs-sidebar .nav .nav .nav > li > a:focus {
- padding-left: 39px;
-}
-.bs-docs-sidebar .nav .nav .nav > .active > a,
-.bs-docs-sidebar .nav .nav .nav > .active:hover > a,
-.bs-docs-sidebar .nav .nav .nav > .active:focus > a {
- padding-left: 38px;
- font-weight: 500;
-}
-
-/* Show and affix the side nav when space allows it */
-@media (min-width: 992px) {
- .bs-docs-sidebar .nav > .active > ul {
- display: block;
- }
- /* Widen the fixed sidebar */
- .bs-docs-sidebar.affix,
- .bs-docs-sidebar.affix-bottom {
- width: 213px;
- }
- .bs-docs-sidebar.affix {
- position: fixed; /* Undo the static from mobile first approach */
- top: 20px;
- }
- .bs-docs-sidebar.affix-bottom {
- position: absolute; /* Undo the static from mobile first approach */
- }
- .bs-docs-sidebar.affix .bs-docs-sidenav,.bs-docs-sidebar.affix-bottom .bs-docs-sidenav {
- margin-top: 0;
- margin-bottom: 0
- }
-}
-@media (min-width: 1200px) {
- /* Widen the fixed sidebar again */
- .bs-docs-sidebar.affix-bottom,
- .bs-docs-sidebar.affix {
- width: 263px;
- }
-}
-</style>
-<script type="text/javascript">
-$(function() {
- 'use strict';
-
- $('.bs-docs-sidebar li').first().addClass('active');
-
- $(document.body).scrollspy({target: '.bs-docs-sidebar'});
-
- $('.bs-docs-sidebar').affix();
-});
-</script>
-</head>
-<body>
-<div id="content" class="container">
-<div class="row"><div class="col-md-9"><h1 class="title">juhend</h1>
-<p>
-Kooli Kell programmi kasutusjuhend
-</p>
-
-<ul class="org-ul">
-<li>2002.10
-</li>
-<li>Svjatoslav Agejenko
-</li>
-</ul>
-
-
-<div id="outline-container-sec-1" class="outline-2">
-<h2 id="sec-1"><span class="section-number-2">1</span> Kasutajaliides</h2>
-<div class="outline-text-2" id="text-1">
-<p>
-Programm Kooli Kell on mõldud kella laskmiseks koolis, tundi sisse ja
-välja. Samuti juhib programm arvuti küljes olevat liidest,
-kahekohaliste numbrite näitamiseks (minutid / tunnid), 3 klahvilist
-klaviatuuri ja releed. Tundi sisse minev kell on 1 pikk ning 1 l”em
-helin. Väljaminev kell on 1 tavaline pikk helin. Programm loeb aega
-arvuti süsteemsest kellast. Kella laskmis ajad on organiseeritud
-failidesse *.PP . Aasta või päevaplaani muutmiseks tuleb redakteerida
-vastavaid faile. Programm valib sobiva päevaplaani lähtudes
-aastaplaanist, mis asub failis "aasta.ap" . Programmi saab kasutada
-arvutil millele on printeri pesasse (LPT1) ”endatud spetsiaalne
-liides, liidese skeem on failis "skeem.bmp". Liides omab kolme
-nummerdatud nuppu paigutusega:
-</p>
-
-<p class="verse">
-<1> <2><br >
-   <3><br >
-</p>
-
-<p>
-Programm on ettenähtud iseseisvalt töötama, kuid on ka võimalus
-erandkorras kгitsi kella lasta, aega muuta jne.. Programm eristab
-tavalisi nupuvajutusi ja topeltklõpse. Eesmärgiga suurendada
-funktsionaalsust väheste nuppudega.
-</p>
-</div>
-
-<div id="outline-container-sec-1-1" class="outline-3">
-<h3 id="sec-1-1"><span class="section-number-3">1.1</span> Nuppude funktsioonid peamenüüs:</h3>
-<div class="outline-text-3" id="text-1-1">
-<dl class="org-dl">
-<dt> <1> klõps </dt><dd>laseb kella tundi sisse
-</dd>
-<dt> <1> topeltklõps </dt><dd>laseb kella tunnist välja
-</dd>
-
-<dt> <2> klõps </dt><dd>läheb aja muutmis menüüsse
-</dd>
-<dt> <3> topeltklõps </dt><dd>hakkab tööle uuendatud graafikuga, vajalik pвast
-sisendfailide redigeerimist.
-</dd>
-
-<dt> <3> klõps </dt><dd>ümardab süsteemse aja täistunnini, vajalik aja
-sünkroniseerimiseks.
-</dd>
-<dt> <3> topeltklõps </dt><dd>laeb süsteemse: aasta, kuu, päeva, tunnid,
-minutid failist "sync.txt"
-</dd>
-</dl>
-</div>
-</div>
-
-<div id="outline-container-sec-1-2" class="outline-3">
-<h3 id="sec-1-2"><span class="section-number-3">1.2</span> Nuppude funktsioonid aja muutmis menüüs:</h3>
-<div class="outline-text-3" id="text-1-2">
-<dl class="org-dl">
-<dt> <1> klõps </dt><dd>vähendab süsteemsed tunnid/minutid 1. võrra
-</dd>
-
-<dt> <2> klõps </dt><dd>suurendab süsteemsed tunnid/minutid 1. võrra
-</dd>
-
-<dt> <3> klõps </dt><dd>valib näitamiseks ja redigeerimiseks tunnid või minutid.
-</dd>
-<dt> <3> topeltklõps </dt><dd>läheb tagasi peamenüüsse.
-</dd>
-</dl>
-
-<p>
-Aja muutmis menüüd tunneb ära selle järgi et indikaator tunnid või
-minutid vilgub, mitte ei põle nagu peamenüüs.
-</p>
-</div>
-</div>
-</div>
-
-
-<div id="outline-container-sec-2" class="outline-2">
-<h2 id="sec-2"><span class="section-number-2">2</span> Faili AASTA.AP formaat: (aastaplaan)</h2>
-<div class="outline-text-2" id="text-2">
-<pre class="example">
-v <kuu>-<päev> <kuu>-<päev> <päevaplaan>
-</pre>
-
-<p>
-Sõnast aja vahemik. Paneb paika päevaplaani antud
-ajavahemikus. Esimene daatum peab kindlasti olema väiksem kui
-teine. St. kui on tõesti vaja:
-</p>
-
-<pre class="example">
-v 10-4 2-1 eri
-</pre>
-
-<p>
-tuleb kirjutada:
-</p>
-
-<pre class="example">
-v 10-4 12-31 eri
-v 1-1 2-1 eri
-</pre>
-
-<p>
-Päevaplaan kehtib vahemiku esimesest päevast kuni vahemiku viimase
-päevani.
-</p>
-
-
-<pre class="example">
-n <kuu>-<päev> <kuu>-<päev> <nädalapäev> <päevaplaan>
-</pre>
-
-<p>
-Sõnast nädalapäv. sama mis "v" kuid: paneb paika päevaplaani antud
-ajavahemikus, antud nädalapäeval. Nädalapäeva kirjeldatakse numbriga.
-nädala esimene päev on esmaspäev, talle vastab number 1.
-</p>
-
-
-<pre class="example">
-e <kuu>-<päev> <päevaplaan>
-</pre>
-
-<p>
-Sõnast eriline. Paneb paika antud kuupävale antud pävaplaani. Sobib
-hästi erakorraliste lüendatud või muul moel muudetud päevaplaanide
-kehtestamiseks. Näiteks riigipühad, spordipäev jne.
-</p>
-
-<p>
-Kui teatud päeva kohta ei käinud ühtegi kirjet siis toimib vaikimisi
-"tuhi" päevaplaan. Kui teatud päeva kohta käis mitu kirjet siis jääb
-peale viimane.
-</p>
-</div>
-</div>
-
-
-
-<div id="outline-container-sec-3" class="outline-2">
-<h2 id="sec-3"><span class="section-number-2">3</span> Failide *.PP formaat: (päevaplaanid)</h2>
-<div class="outline-text-2" id="text-3">
-<pre class="example">
-# <tund>:<minut> <kell>
-</pre>
-
-<p>
-Laseb antud ajal antud kella. Võimalikud kella helinad on:
-</p>
-
-<table class="table table-striped table-bordered table-hover table-condensed">
-
-
-<colgroup>
-<col class="left">
-
-<col class="left">
-</colgroup>
-<thead>
-<tr>
-<th scope="col" class="text-left">kella kood</th>
-<th scope="col" class="text-left">vastav helin</th>
-</tr>
-</thead>
-<tbody>
-<tr>
-<td class="text-left">sis</td>
-<td class="text-left">kell tundi sisse</td>
-</tr>
-
-<tr>
-<td class="text-left">val</td>
-<td class="text-left">kell tunnist välja</td>
-</tr>
-</tbody>
-</table>
-</div>
-</div>
-
-<div id="outline-container-sec-4" class="outline-2">
-<h2 id="sec-4"><span class="section-number-2">4</span> Faili SYNC.TXT formaat:</h2>
-<div class="outline-text-2" id="text-4">
-<p>
-faili esimesel kahel real peab olema järgnev:
-</p>
-
-<pre class="example">
-KK-PP-AAAA
-TT:MM
-</pre>
-
-<p>
-kus:
-</p>
-<table class="table table-striped table-bordered table-hover table-condensed">
-
-
-<colgroup>
-<col class="left">
-
-<col class="left">
-</colgroup>
-<thead>
-<tr>
-<th scope="col" class="text-left">kood</th>
-<th scope="col" class="text-left">tähendus</th>
-</tr>
-</thead>
-<tbody>
-<tr>
-<td class="text-left">KK</td>
-<td class="text-left">kuu</td>
-</tr>
-
-<tr>
-<td class="text-left">PP</td>
-<td class="text-left">päev</td>
-</tr>
-
-<tr>
-<td class="text-left">AAAA</td>
-<td class="text-left">aasta</td>
-</tr>
-
-<tr>
-<td class="text-left">TT</td>
-<td class="text-left">tunnid</td>
-</tr>
-
-<tr>
-<td class="text-left">MM</td>
-<td class="text-left">minutid</td>
-</tr>
-</tbody>
-</table>
-</div>
-</div>
-</div><div class="col-md-3"><nav id="table-of-contents">
-<div id="text-table-of-contents" class="bs-docs-sidebar">
-<ul class="nav">
-<li><a href="#sec-1">1. Kasutajaliides</a>
-<ul class="nav">
-<li><a href="#sec-1-1">1.1. Nuppude funktsioonid peamenüüs:</a></li>
-<li><a href="#sec-1-2">1.2. Nuppude funktsioonid aja muutmis menüüs:</a></li>
-</ul>
-</li>
-<li><a href="#sec-2">2. Faili AASTA.AP formaat: (aastaplaan)</a></li>
-<li><a href="#sec-3">3. Failide *.PP formaat: (päevaplaanid)</a></li>
-<li><a href="#sec-4">4. Faili SYNC.TXT formaat:</a></li>
-</ul>
-</div>
-</nav>
-</div></div></div>
-<footer id="postamble" class="">
-<div><p class="author">Author: Svjatoslav Agejenko</p>
-<p class="date">Created: 2018-04-20 Fri 11:08</p>
-<p class="creator"><a href="http://www.gnu.org/software/emacs/">Emacs</a> 25.1.1 (<a href="http://orgmode.org">Org-mode</a> 8.2.10)</p>
-</div>
-</footer>
-</body>
-</html>
+++ /dev/null
-
-Kooli Kell programmi kasutusjuhend
-
-- 2002.10
-- Svjatoslav Agejenko
-
-
-* Kasutajaliides
-Programm Kooli Kell on mõldud kella laskmiseks koolis, tundi sisse ja
-välja. Samuti juhib programm arvuti küljes olevat liidest,
-kahekohaliste numbrite näitamiseks (minutid / tunnid), 3 klahvilist
-klaviatuuri ja releed. Tundi sisse minev kell on 1 pikk ning 1 l”em
-helin. Väljaminev kell on 1 tavaline pikk helin. Programm loeb aega
-arvuti süsteemsest kellast. Kella laskmis ajad on organiseeritud
-failidesse *.PP . Aasta või päevaplaani muutmiseks tuleb redakteerida
-vastavaid faile. Programm valib sobiva päevaplaani lähtudes
-aastaplaanist, mis asub failis "aasta.ap" . Programmi saab kasutada
-arvutil millele on printeri pesasse (LPT1) ”endatud spetsiaalne
-liides, liidese skeem on failis "skeem.bmp". Liides omab kolme
-nummerdatud nuppu paigutusega:
-
-#+BEGIN_VERSE
- <1> <2>
- <3>
-#+END_VERSE
-
-Programm on ettenähtud iseseisvalt töötama, kuid on ka võimalus
-erandkorras kгitsi kella lasta, aega muuta jne.. Programm eristab
-tavalisi nupuvajutusi ja topeltklõpse. Eesmärgiga suurendada
-funktsionaalsust väheste nuppudega.
-
-** Nuppude funktsioonid peamenüüs:
-
-+ <1> klõps :: laseb kella tundi sisse
-+ <1> topeltklõps :: laseb kella tunnist välja
-
-+ <2> klõps :: läheb aja muutmis menüüsse
-+ <3> topeltklõps :: hakkab tööle uuendatud graafikuga, vajalik pвast
- sisendfailide redigeerimist.
-
-+ <3> klõps :: ümardab süsteemse aja täistunnini, vajalik aja
- sünkroniseerimiseks.
-+ <3> topeltklõps :: laeb süsteemse: aasta, kuu, päeva, tunnid,
- minutid failist "sync.txt"
-
-** Nuppude funktsioonid aja muutmis menüüs:
-
-+ <1> klõps :: vähendab süsteemsed tunnid/minutid 1. võrra
-
-+ <2> klõps :: suurendab süsteemsed tunnid/minutid 1. võrra
-
-+ <3> klõps :: valib näitamiseks ja redigeerimiseks tunnid või minutid.
-+ <3> topeltklõps :: läheb tagasi peamenüüsse.
-
-Aja muutmis menüüd tunneb ära selle järgi et indikaator tunnid või
-minutid vilgub, mitte ei põle nagu peamenüüs.
-
-
-* Faili AASTA.AP formaat: (aastaplaan)
-: v <kuu>-<päev> <kuu>-<päev> <päevaplaan>
-
-Sõnast aja vahemik. Paneb paika päevaplaani antud
-ajavahemikus. Esimene daatum peab kindlasti olema väiksem kui
-teine. St. kui on tõesti vaja:
-
-: v 10-4 2-1 eri
-
-tuleb kirjutada:
-
-: v 10-4 12-31 eri
-: v 1-1 2-1 eri
-
-Päevaplaan kehtib vahemiku esimesest päevast kuni vahemiku viimase
-päevani.
-
-
-: n <kuu>-<päev> <kuu>-<päev> <nädalapäev> <päevaplaan>
-
-Sõnast nädalapäv. sama mis "v" kuid: paneb paika päevaplaani antud
-ajavahemikus, antud nädalapäeval. Nädalapäeva kirjeldatakse numbriga.
-nädala esimene päev on esmaspäev, talle vastab number 1.
-
-
-: e <kuu>-<päev> <päevaplaan>
-
-Sõnast eriline. Paneb paika antud kuupävale antud pävaplaani. Sobib
-hästi erakorraliste lüendatud või muul moel muudetud päevaplaanide
-kehtestamiseks. Näiteks riigipühad, spordipäev jne.
-
-Kui teatud päeva kohta ei käinud ühtegi kirjet siis toimib vaikimisi
-"tuhi" päevaplaan. Kui teatud päeva kohta käis mitu kirjet siis jääb
-peale viimane.
-
-
-
-* Failide *.PP formaat: (päevaplaanid)
-: # <tund>:<minut> <kell>
-
-Laseb antud ajal antud kella. Võimalikud kella helinad on:
-
-| kella kood | vastav helin |
-|------------+--------------------|
-| sis | kell tundi sisse |
-| val | kell tunnist välja |
-
-* Faili SYNC.TXT formaat:
-faili esimesel kahel real peab olema järgnev:
-
-: KK-PP-AAAA
-: TT:MM
-
-kus:
-| kood | tähendus |
-|------+----------|
-| KK | kuu |
-| PP | päev |
-| AAAA | aasta |
-| TT | tunnid |
-| MM | minutid |
+++ /dev/null
-DECLARE SUB num (a%)\r
-DECLARE SUB mntime ()\r
-DECLARE SUB showit ()\r
-DECLARE SUB ekrf (a%)\r
-DECLARE SUB ekr ()\r
-DECLARE SUB rese ()\r
-DECLARE SUB start ()\r
-DECLARE SUB boot ()\r
-DECLARE SUB getnad (g%, n%, d%, k%)\r
-DECLARE SUB initp (b$)\r
-DECLARE SUB getmd (a$, m%, d%)\r
-DECLARE SUB son (a$)\r
-DEFINT A-Z\r
-\r
-DECLARE SUB inita ()\r
-DECLARE SUB chm ()\r
-DECLARE SUB chd ()\r
-DECLARE SUB kell (a%)\r
-DECLARE SUB sync2 ()\r
-DECLARE SUB sync ()\r
-DECLARE SUB mnmain ()\r
-DECLARE SUB main ()\r
-DECLARE SUB getkey (kla%)\r
-DECLARE SUB klnait (k%)\r
-DECLARE SUB heli (a%)\r
-DECLARE SUB keys ()\r
-DECLARE SUB disp ()\r
-DIM SHARED bit(0 TO 7)\r
-DIM SHARED kl\r
-DIM SHARED hist(1 TO 3)\r
-DIM SHARED ap$(1 TO 500)\r
-DIM SHARED apl\r
-DIM SHARED pp$(1 TO 500)\r
-DIM SHARED ppl\r
-DIM SHARED prt, prt2\r
-DIM SHARED timo$\r
-DIM SHARED dato$\r
-DIM SHARED sona$(1 TO 50)\r
-DIM SHARED mitus\r
-DIM SHARED lp$\r
-DIM SHARED ndlp\r
-DIM SHARED pn$(1 TO 7)\r
-DIM SHARED bitt(1 TO 16)\r
-DIM SHARED modee, vilgu\r
-DIM SHARED tul(1 TO 2)\r
-\r
-start\r
-heli 4\r
-\r
-\r
-disp\r
-mnmain\r
-\r
-SUB chd\r
-b$ = "tuhi"\r
-IF apl = 0 THEN inita\r
-\r
-a$ = DATE$\r
-n1 = VAL(RIGHT$(a$, 4))\r
-n2 = VAL(LEFT$(a$, 2))\r
-a$ = LEFT$(a$, 5)\r
-n3 = VAL(RIGHT$(a$, 2))\r
-getnad n1, n2, n3, ndlp\r
-LOCATE 10, 1\r
-PRINT "n\84dalap\84ev:", pn$(ndlp)\r
-FOR a = 1 TO apl\r
-son ap$(a)\r
-SELECT CASE sona$(1)\r
-CASE "v"\r
-getmd sona$(2), m1, d1\r
-getmd sona$(3), m2, d2\r
-getmd DATE$, m3, d3\r
-IF m3 < m1 THEN GOTO 9\r
-IF m3 > m2 THEN GOTO 9\r
-IF m3 = m1 THEN IF d3 < d1 THEN GOTO 9\r
-IF m3 = m2 THEN IF d3 > d2 THEN GOTO 9\r
-b$ = sona$(4)\r
-CASE "n"\r
-getmd sona$(2), m1, d1\r
-getmd sona$(3), m2, d2\r
-getmd DATE$, m3, d3\r
-IF m3 < m1 THEN GOTO 9\r
-IF m3 > m2 THEN GOTO 9\r
-IF m3 = m1 THEN IF d3 < d1 THEN GOTO 9\r
-IF m3 = m2 THEN IF d3 > d2 THEN GOTO 9\r
-IF ndlp <> VAL(sona$(4)) THEN GOTO 9\r
-b$ = sona$(5)\r
-CASE "e"\r
-getmd sona$(2), m1, d1\r
-getmd DATE$, m2, d2\r
-IF (m1 = m2) AND (d1 = d2) THEN b$ = sona$(3)\r
-END SELECT\r
-9\r
-NEXT a\r
-\r
-IF b$ <> lp$ THEN initp b$\r
-lp$ = b$\r
-LOCATE 9, 1\r
-PRINT "p\84evaplaan:", lp$\r
-END SUB\r
-\r
-SUB chm\r
-showit\r
-a$ = DATE$\r
-IF a$ <> dato$ THEN chd\r
-dato$ = a$\r
-b = 0\r
-FOR a = 1 TO ppl\r
-son pp$(a)\r
-SELECT CASE sona$(1)\r
-CASE "#"\r
-getmd sona$(2), h1, m1\r
-getmd TIME$, h2, m2\r
-' PRINT h1, m1, h2, m2\r
-IF (h2 = h1) AND (m2 = m1) THEN\r
-IF sona$(3) = "sis" THEN b = 1\r
-IF sona$(3) = "val" THEN b = 2\r
-END IF\r
-END SELECT\r
-NEXT a\r
-\r
-IF b > 0 THEN kell b\r
-\r
-END SUB\r
-\r
-SUB disp\r
-CLS\r
-PRINT "Kooli Kell v 1.2 2002.10.10"\r
-PRINT "Programmi autor Svjatoslav Agejenko"\r
-\r
-END SUB\r
-\r
-SUB ekr\r
-FOR e = 1 TO 10\r
-c = 1\r
-c = c + 16 * bitt(1)\r
-c = c + 32 * bitt(2)\r
-c = c + 64 * bitt(3)\r
-c = c + 128 * bitt(4)\r
-OUT prt2, c\r
-\r
-c = 2\r
-c = c + 16 * bitt(5)\r
-c = c + 32 * bitt(6)\r
-c = c + 64 * bitt(7)\r
-c = c + 128 * bitt(8)\r
-OUT prt2, c\r
-\r
-c = 4\r
-c = c + 16 * bitt(9)\r
-c = c + 32 * bitt(10)\r
-c = c + 64 * bitt(11)\r
-c = c + 128 * bitt(12)\r
-OUT prt2, c\r
-\r
-c = 8\r
-c = c + 16 * bitt(13)\r
-c = c + 32 * bitt(14)\r
-c = c + 64 * bitt(15)\r
-c = c + 128 * bitt(16)\r
-OUT prt2, c\r
-\r
-\r
-NEXT e\r
-END SUB\r
-\r
-SUB ekrf (a)\r
-SELECT CASE (a)\r
-CASE 0\r
-bitt(1) = 0\r
-bitt(2) = 0\r
-bitt(3) = 0\r
-bitt(7) = 0\r
-bitt(5) = 0\r
-bitt(6) = 0\r
-bitt(8) = 1\r
-CASE 1\r
-bitt(2) = 0\r
-bitt(7) = 0\r
-CASE 2\r
-bitt(1) = 0\r
-bitt(3) = 0\r
-bitt(5) = 0\r
-bitt(7) = 0\r
-bitt(8) = 0\r
-CASE 3\r
-bitt(1) = 0\r
-bitt(2) = 0\r
-bitt(5) = 0\r
-bitt(8) = 0\r
-bitt(7) = 0\r
-CASE 4\r
-bitt(2) = 0\r
-bitt(6) = 0\r
-bitt(7) = 0\r
-bitt(8) = 0\r
-CASE 5\r
-bitt(1) = 0\r
-bitt(2) = 0\r
-bitt(5) = 0\r
-bitt(6) = 0\r
-bitt(8) = 0\r
-CASE 6\r
-bitt(1) = 0\r
-bitt(2) = 0\r
-bitt(3) = 0\r
-bitt(5) = 0\r
-bitt(6) = 0\r
-bitt(8) = 0\r
-CASE 7\r
-bitt(2) = 0\r
-bitt(7) = 0\r
-bitt(5) = 0\r
-CASE 8\r
-bitt(1) = 0\r
-bitt(2) = 0\r
-bitt(3) = 0\r
-bitt(7) = 0\r
-bitt(5) = 0\r
-bitt(6) = 0\r
-bitt(8) = 0\r
-CASE 9\r
-bitt(1) = 0\r
-bitt(2) = 0\r
-bitt(7) = 0\r
-bitt(5) = 0\r
-bitt(6) = 0\r
-bitt(8) = 0\r
-CASE 10\r
-bitt(15) = 0\r
-bitt(16) = 0\r
-bitt(12) = 0\r
-bitt(10) = 0\r
-bitt(9) = 0\r
-bitt(4) = 0\r
-CASE 11\r
-bitt(15) = 0\r
-bitt(4) = 0\r
-CASE 12\r
-bitt(15) = 0\r
-bitt(16) = 0\r
-bitt(9) = 0\r
-bitt(10) = 0\r
-bitt(11) = 0\r
-CASE 13\r
-bitt(15) = 0\r
-bitt(4) = 0\r
-bitt(16) = 0\r
-bitt(11) = 0\r
-bitt(9) = 0\r
-CASE 14\r
-bitt(15) = 0\r
-bitt(4) = 0\r
-bitt(12) = 0\r
-bitt(11) = 0\r
-CASE 15\r
-bitt(9) = 0\r
-bitt(4) = 0\r
-bitt(11) = 0\r
-bitt(12) = 0\r
-bitt(16) = 0\r
-CASE 16\r
-bitt(9) = 0\r
-bitt(4) = 0\r
-bitt(11) = 0\r
-bitt(12) = 0\r
-bitt(16) = 0\r
-bitt(10) = 0\r
-CASE 17\r
-bitt(4) = 0\r
-bitt(15) = 0\r
-bitt(16) = 0\r
-CASE 18\r
-bitt(4) = 0\r
-bitt(15) = 0\r
-bitt(16) = 0\r
-bitt(12) = 0\r
-bitt(11) = 0\r
-bitt(10) = 0\r
-bitt(9) = 0\r
-CASE 19\r
-bitt(4) = 0\r
-bitt(15) = 0\r
-bitt(16) = 0\r
-bitt(12) = 0\r
-bitt(11) = 0\r
-bitt(9) = 0\r
-END SELECT\r
-\r
-END SUB\r
-\r
-SUB getkey (kla)\r
-\r
-1\r
-IF vilgu = 1 THEN\r
-tmr = tmr + 1\r
-IF tmr > 5 THEN bitt(13) = tul(1): bitt(14) = tul(2) ELSE bitt(13) = 1: bitt(14) = 1\r
-IF tmr > 10 THEN\r
-tmr = 0\r
-END IF\r
-ELSE\r
-bitt(13) = tul(1)\r
-bitt(14) = tul(2)\r
-END IF\r
-\r
-b$ = LEFT$(TIME$, 5)\r
-IF b$ <> timo$ THEN chm\r
-timo$ = b$\r
-hist(1) = hist(1) + 1\r
-IF hist(1) > 20000 THEN hist(1) = 15000\r
-hist(2) = hist(2) + 1\r
-IF hist(2) > 20000 THEN hist(2) = 15000\r
-hist(3) = hist(3) + 1\r
-IF hist(3) > 20000 THEN hist(3) = 15000\r
-\r
-keys\r
-IF kl > 0 THEN\r
- IF hist(kl) > 1 AND hist(kl) < 9 THEN\r
- klnait kl + 3\r
- kla = kl + 3\r
- GOTO 4\r
- ELSE\r
- hist(kl) = 0\r
- END IF\r
-END IF\r
-IF hist(1) = 10 THEN klnait 1: kla = 1: GOTO 4\r
-IF hist(2) = 10 THEN klnait 2: kla = 2: GOTO 4\r
-IF hist(3) = 10 THEN klnait 3: kla = 3: GOTO 4\r
-\r
-IF hist(1) > 11 AND hist(2) > 11 AND hist(3) > 11 THEN klnait 0\r
-LOCATE 7, 1\r
-PRINT TIME$\r
-LOCATE 8, 1\r
-PRINT DATE$\r
-GOTO 1\r
-4\r
-\r
-\r
-hist(1) = 10000\r
-hist(2) = 10000\r
-hist(3) = 10000\r
-\r
-FOR b = 1 TO 100\r
-SOUND 0, .1\r
-NEXT b\r
-IF kla > 3 THEN SOUND 4000, .1 ELSE SOUND 3000, .1\r
-\r
-\r
-\r
-END SUB\r
-\r
-SUB getmd (a$, m, d)\r
-b$ = LEFT$(a$, 5)\r
-m = VAL(LEFT$(b$, 2))\r
-d = VAL(RIGHT$(b$, 2))\r
-\r
-END SUB\r
-\r
-SUB getnad (g, n, d, k)\r
-LOCATE 11, 1\r
-PRINT g, n, d\r
-p = g\r
-m = n - 2\r
-IF n > 2 GOTO 120\r
-p = p - 1: m = m + 12\r
-120\r
-c = INT(p / 100)\r
-y = p - c * 100\r
-w = d + INT((13 * m - 1) / 5) + y + INT(y / 4) + INT(c / 4) - 2 * c\r
-k = w - 7 * INT(w / 7)\r
-IF k = 0 THEN k = 7\r
-END SUB\r
-\r
-SUB heli (a)\r
-'GOTO 10\r
-SELECT CASE a\r
-CASE 1\r
-FOR c = 1 TO 5\r
-SOUND 3000, 1\r
-SOUND 0, 1\r
-NEXT c\r
-\r
-CASE 2\r
-FOR c = 1 TO 5\r
-SOUND 2500, 1\r
-SOUND 0, 2\r
-NEXT c\r
-SOUND 2500, 10\r
-\r
-CASE 3\r
-FOR a = 1 TO 10\r
-SOUND 500, .5\r
-SOUND 1500, .5\r
-SOUND 2000, .5\r
-SOUND 1520, .5\r
-NEXT a\r
-\r
-\r
-CASE 4\r
-FOR a = 800 TO 1000 STEP 10\r
-SOUND a, .1\r
-SOUND a * 3, .1\r
-SOUND 0, 1\r
-NEXT a\r
-10\r
-\r
-END SELECT\r
-\r
-\r
-END SUB\r
-\r
-SUB inita\r
-apl = 0\r
-OPEN "aasta.ap" FOR INPUT AS #1\r
-5\r
-IF EOF(1) <> 0 THEN GOTO 3\r
-LINE INPUT #1, a$\r
-apl = apl + 1\r
-ap$(apl) = a$\r
-GOTO 5\r
-3\r
-CLOSE #1\r
-END SUB\r
-\r
-SUB initp (b$)\r
-ppl = 0\r
-OPEN b$ + ".pp" FOR INPUT AS #1\r
-6\r
-IF EOF(1) <> 0 THEN GOTO 7\r
-LINE INPUT #1, a$\r
-ppl = ppl + 1\r
-pp$(ppl) = a$\r
-GOTO 6\r
-7\r
-CLOSE #1\r
-END SUB\r
-\r
-SUB kell (a)\r
-heli 3\r
-\r
-SELECT CASE a\r
-CASE 1\r
-OUT prt, 255\r
-FOR b = 1 TO 80\r
-SOUND 0, 1\r
-NEXT b\r
-OUT prt, 0\r
-FOR b = 1 TO 15\r
-SOUND 0, 1\r
-NEXT b\r
-OUT prt, 255\r
-FOR b = 1 TO 15\r
-SOUND 0, 1\r
-NEXT b\r
-OUT prt, 0\r
-\r
-CASE 2\r
-OUT prt, 255\r
-FOR b = 1 TO 80\r
-SOUND 0, 1\r
-NEXT b\r
-OUT prt, 0\r
-\r
-END SELECT\r
-END SUB\r
-\r
-SUB keys\r
-kl = 0\r
-OUT prt, 0\r
-8\r
-a = INP(prt)\r
-b = INP(prt)\r
-IF a <> b THEN GOTO 8\r
-\r
-b = 128\r
-FOR c = 0 TO 7\r
-d = INT(a / b)\r
-bit(c) = d\r
-a = a - (b * d)\r
-b = b / 2\r
-NEXT c\r
-\r
-IF bit(4) = 1 AND bit(6) = 1 THEN bit(4) = 0: bit(6) = 0: kl = 3\r
-IF bit(6) = 1 THEN kl = 2\r
-IF bit(4) = 1 THEN kl = 1\r
-\r
-a$ = INKEY$\r
-IF a$ = CHR$(0) + "K" THEN kl = 1\r
-IF a$ = CHR$(0) + "M" THEN kl = 2\r
-IF a$ = CHR$(0) + "P" THEN kl = 3\r
-ekr\r
-END SUB\r
-\r
-SUB klnait (k)\r
-\r
-IF k = 3 THEN c = 3 ELSE c = 1\r
-IF k = 6 THEN c = 14\r
-LOCATE 5, 6\r
-COLOR 7, c\r
-PRINT "<kesk>"\r
-COLOR 7, 0\r
-\r
-IF k = 1 THEN c = 3 ELSE c = 1\r
-IF k = 4 THEN c = 14\r
-LOCATE 4, 1\r
-COLOR 7, c\r
-PRINT "<vasak>"\r
-COLOR 7, 0\r
-\r
-IF k = 2 THEN c = 3 ELSE c = 1\r
-IF k = 5 THEN c = 14\r
-LOCATE 4, 10\r
-COLOR 7, c\r
-PRINT "<parem>"\r
-COLOR 7, 0\r
-\r
-END SUB\r
-\r
-SUB mnmain\r
-2\r
-getkey a\r
-IF a = 6 THEN sync\r
-IF a = 3 THEN sync2\r
-\r
-IF a = 1 THEN kell 1\r
-IF a = 4 THEN kell 2\r
-\r
-IF a = 2 THEN mntime\r
-IF a = 5 THEN rese\r
-GOTO 2\r
-\r
-END SUB\r
-\r
-SUB mntime\r
-vilgu = 1\r
-11\r
-showit\r
-getkey a\r
-\r
-IF modee = 1 THEN\r
- b = VAL(LEFT$(TIME$, 2))\r
- c = 0\r
- IF a = 1 THEN c = 1: b = b - 1\r
- IF a = 2 THEN c = 1: b = b + 1\r
- IF b < 0 THEN b = 0\r
- IF b > 23 THEN b = 23\r
- d$ = STR$(b)\r
- IF LEFT$(d$, 1) = " " THEN d$ = RIGHT$(d$, LEN(d$) - 1)\r
- IF LEN(d$) < 2 THEN d$ = "0" + d$\r
- e$ = d$ + RIGHT$(TIME$, 6)\r
- IF c = 1 THEN TIME$ = e$\r
-ELSE\r
- b = VAL(RIGHT$(LEFT$(TIME$, 5), 2))\r
- c = 0\r
- IF a = 1 THEN c = 1: b = b - 1\r
- IF a = 2 THEN c = 1: b = b + 1\r
- IF b < 0 THEN b = 0\r
- IF b > 59 THEN b = 59\r
- d$ = STR$(b)\r
- IF LEFT$(d$, 1) = " " THEN d$ = RIGHT$(d$, LEN(d$) - 1)\r
- IF LEN(d$) < 2 THEN d$ = "0" + d$\r
- e$ = LEFT$(TIME$, 3) + d$ + RIGHT$(TIME$, 3)\r
- IF c = 1 THEN TIME$ = e$\r
-END IF\r
-\r
-IF a = 3 THEN\r
-IF modee = 1 THEN modee = 2 ELSE modee = 1\r
-END IF\r
-\r
-IF a = 6 THEN GOTO 12\r
-GOTO 11\r
-12\r
-vilgu = 0\r
-modee = 2\r
-END SUB\r
-\r
-SUB num (a)\r
-\r
-FOR b = 1 TO 12\r
-bitt(b) = 1\r
-NEXT b\r
-bitt(15) = 1\r
-bitt(16) = 1\r
-\r
-b = INT(a / 10)\r
-c = a - (10 * b)\r
-ekrf b\r
-ekrf c + 10\r
-END SUB\r
-\r
-SUB rese\r
-heli 4\r
-timo$ = ""\r
-dato$ = ""\r
-apl = 0\r
-END SUB\r
-\r
-SUB showit\r
-a$ = LEFT$(TIME$, 5)\r
-IF modee = 1 THEN\r
-b = VAL(LEFT$(a$, 2))\r
-tul(1) = 1\r
-tul(2) = 0\r
-ELSE\r
-b = VAL(RIGHT$(a$, 2))\r
-tul(1) = 0\r
-tul(2) = 1\r
-END IF\r
-LOCATE 15, 1\r
-PRINT b\r
-num b\r
-\r
-\r
-END SUB\r
-\r
-SUB son (a$)\r
-\r
-FOR b = 1 TO 50\r
-sona$(b) = ""\r
-NEXT b\r
-mitus = 0\r
-\r
-b = 1\r
-FOR c = 1 TO LEN(a$)\r
-d$ = RIGHT$(LEFT$(a$, c), 1)\r
-IF d$ = " " OR d$ = CHR$(9) THEN\r
-b = 1\r
-ELSE\r
-IF b = 1 THEN b = 0: mitus = mitus + 1\r
-sona$(mitus) = sona$(mitus) + d$\r
-END IF\r
-NEXT c\r
-\r
-\r
-END SUB\r
-\r
-SUB start\r
-pn$(1) = "esmasp\84ev"\r
-pn$(2) = "teisip\84ev"\r
-pn$(3) = "kolmap\84ev"\r
-pn$(4) = "neljap\84ev"\r
-pn$(5) = "reede"\r
-pn$(6) = "laup\84ev"\r
-pn$(7) = "p\81hap\84ev"\r
-\r
-prt = &H37A\r
-prt2 = &H378\r
-hist(1) = 10000\r
-hist(2) = 10000\r
-hist(3) = 10000\r
-\r
-FOR a = 1 TO 16\r
-bitt(a) = 1\r
-NEXT a\r
-modee = 2\r
-vilgu = 0\r
-tul(1) = 1\r
-tul(2) = 1\r
-END SUB\r
-\r
-SUB sync\r
-OPEN "sync.txt" FOR INPUT AS #1\r
-LINE INPUT #1, a$\r
-DATE$ = a$\r
-LINE INPUT #1, a$\r
-TIME$ = a$\r
-CLOSE #1\r
-\r
-heli 2\r
-END SUB\r
-\r
-SUB sync2\r
-a$ = TIME$\r
-a$ = LEFT$(a$, 5)\r
-b = VAL(RIGHT$(a$, 2))\r
-c = VAL(LEFT$(a$, 2))\r
-IF b >= 30 THEN c = c + 1\r
-b = 0\r
-IF c > 23 THEN c = c - 24\r
-a$ = RIGHT$(STR$(c), LEN(STR$(c)) - 1)\r
-b$ = RIGHT$(STR$(b), LEN(STR$(b)) - 1)\r
-IF LEN(a$) < 2 THEN a$ = "0" + a$\r
-IF LEN(b$) < 2 THEN b$ = "0" + b$\r
-a$ = a$ + ":" + b$\r
-\r
-'LOCATE 10, 1\r
-'PRINT a$\r
-\r
-TIME$ = a$\r
-\r
-heli 1\r
-END SUB\r
-\r
+++ /dev/null
-# 08:30 sis\r
-# 09:15 val\r
-\r
-# 09:25 sis\r
-# 10:10 val\r
-\r
-# 10:20 sis\r
-# 10:45 val\r
-\r
-# 10:55 sis\r
-# 11:20 val\r
-\r
-# 11:40 sis\r
-# 12:05 val\r
-\r
-# 12:15 sis\r
-# 12:40 val\r
-\r
-\r
+++ /dev/null
-# 08:30 sis\r
-# 09:10 val\r
-\r
-# 09:20 sis\r
-# 10:00 val\r
-\r
-# 10:10 sis\r
-# 10:50 val\r
-\r
-# 11:30 sis\r
-# 12:10 val\r
-\r
-# 12:20 sis\r
-# 13:00 val\r
-\r
-# 13:10 sis\r
-# 13:50 val\r
-\r
-# 14:00 sis\r
-# 14:40 val\r
-\r
-# 14:45 sis\r
-# 15:30 val\r
+++ /dev/null
-# 08:30 sis\r
-# 09:15 val\r
-\r
-# 09:25 sis\r
-# 10:10 val\r
-\r
-# 10:20 sis\r
-# 11:05 val\r
-\r
-# 11:35 sis\r
-# 12:20 val\r
-\r
-# 12:30 sis\r
-# 13:15 val\r
-\r
-# 13:20 sis\r
-# 14:05 val\r
-\r
-# 14:10 sis\r
-# 14:55 val\r
-\r
-# 15:00 sis\r
-# 15:45 val\r
+++ /dev/null
-09-06-2002\r
-15:38\r
-\r
-kuu-paev-aasta\r
-tunnid-minutid
\ No newline at end of file
+++ /dev/null
-# 08:30 sis\r
-# 09:15 val\r
-\r
-# 09:25 sis\r
-# 10:10 val\r
-\r
-# 10:20 sis\r
-# 11:05 val\r
-\r
-# 11:35 sis\r
-# 12:20 val\r
-\r
-# 12:30 sis\r
-# 13:15 val\r
-\r
-# 13:25 sis\r
-# 14:10 val\r
-\r
-# 14:20 sis\r
-# 15:05 val\r
-\r
-# 15:10 sis\r
-# 15:55 val\r
-\r
-# 16:00 sis\r
-# 16:45 val\r
-\r
-# 16:50 sis\r
-# 17:45 val\r
-\r
-# 17:50 sis\r
-# 18:25 val\r
-\r
-# 18:30 sis\r
-# 19:15 val\r
-\r
+++ /dev/null
-v 01-01 12-31 tava\r
-n 01-01 12-31 5 reede\r
-e 10-04 opetajap\r
-e 10-31 rebased\r
-e 04-17 luhend\r
-e 04-18 tuhi\r
-e 04-30 luhend\r
-e 05-01 tuhi\r
-e 06-23 tuhi\r
-e 06-24 tuhi\r
-n 01-01 12-31 6 tuhi\r
-n 01-01 12-31 7 tuhi\r
-v 07-01 08-31 tuhi\r
-\r
+++ /dev/null
-DECLARE SUB dispt ()\r
-' Svjatoslav Agejenko\r
-' E-mail: svjatoslav@svjatoslav.eu\r
-' Homepage: www.hot.ee/n0/\r
-\r
-DECLARE SUB dispp ()\r
-DECLARE SUB displukk ()\r
-DECLARE SUB kola (a%)\r
-DECLARE SUB rese ()\r
-DECLARE SUB start ()\r
-DECLARE SUB getnad (g%, n%, d%, k%)\r
-DECLARE SUB initp (b$)\r
-DECLARE SUB getmd (a$, m%, d%)\r
-DECLARE SUB son (a$)\r
-DECLARE SUB inita ()\r
-DECLARE SUB chm ()\r
-DECLARE SUB chd ()\r
-DECLARE SUB kell (a%)\r
-DECLARE SUB sync2 ()\r
-DECLARE SUB sync ()\r
-DECLARE SUB mnmain ()\r
-DECLARE SUB heli (a%)\r
-DECLARE SUB disp ()\r
-DEFINT A-Z\r
-\r
-DIM SHARED ap$(1 TO 500)\r
-DIM SHARED apl\r
-DIM SHARED pp$(1 TO 500)\r
-DIM SHARED ppl\r
-DIM SHARED prt, prt2\r
-DIM SHARED timo$\r
-DIM SHARED dato$\r
-DIM SHARED sona$(1 TO 50)\r
-DIM SHARED mitus\r
-DIM SHARED lp$\r
-DIM SHARED ndlp\r
-DIM SHARED pn$(1 TO 7)\r
-DIM SHARED lk$\r
-DIM SHARED ssave\r
-DIM SHARED ssavel\r
-DIM SHARED timero AS LONG\r
-DIM SHARED kblukk\r
-DIM SHARED tunnidara\r
-\r
-start\r
-\r
-\r
-disp\r
-mnmain\r
-\r
-SUB chd\r
-b$ = "tuhi"\r
-IF apl = 0 THEN inita\r
-\r
-a$ = DATE$\r
-n1 = VAL(RIGHT$(a$, 4))\r
-n2 = VAL(LEFT$(a$, 2))\r
-a$ = LEFT$(a$, 5)\r
-n3 = VAL(RIGHT$(a$, 2))\r
-getnad n1, n2, n3, ndlp\r
-FOR a = 1 TO apl\r
-son ap$(a)\r
-SELECT CASE sona$(1)\r
-CASE "v"\r
-getmd sona$(2), m1, d1\r
-getmd sona$(3), m2, d2\r
-getmd DATE$, m3, d3\r
-IF m3 < m1 THEN GOTO 9\r
-IF m3 > m2 THEN GOTO 9\r
-IF m3 = m1 THEN IF d3 < d1 THEN GOTO 9\r
-IF m3 = m2 THEN IF d3 > d2 THEN GOTO 9\r
-b$ = sona$(4)\r
-CASE "n"\r
-getmd sona$(2), m1, d1\r
-getmd sona$(3), m2, d2\r
-getmd DATE$, m3, d3\r
-IF m3 < m1 THEN GOTO 9\r
-IF m3 > m2 THEN GOTO 9\r
-IF m3 = m1 THEN IF d3 < d1 THEN GOTO 9\r
-IF m3 = m2 THEN IF d3 > d2 THEN GOTO 9\r
-IF ndlp <> VAL(sona$(4)) THEN GOTO 9\r
-b$ = sona$(5)\r
-CASE "e"\r
-getmd sona$(2), m1, d1\r
-getmd DATE$, m2, d2\r
-IF (m1 = m2) AND (d1 = d2) THEN b$ = sona$(3)\r
-END SELECT\r
-9\r
-NEXT a\r
-\r
-IF b$ <> lp$ THEN initp b$\r
-lp$ = b$\r
-tunnidara = 0\r
-dispp\r
-disp\r
-END SUB\r
-\r
-SUB chm\r
-a$ = DATE$\r
-IF a$ <> dato$ THEN chd\r
-dato$ = a$\r
-b = 0\r
-FOR a = 1 TO ppl\r
-son pp$(a)\r
-SELECT CASE sona$(1)\r
-CASE "#"\r
-getmd sona$(2), h1, m1\r
-getmd TIME$, h2, m2\r
-' PRINT h1, m1, h2, m2\r
-IF (h2 = h1) AND (m2 = m1) THEN\r
-IF sona$(3) = "sis" THEN b = 1\r
-IF sona$(3) = "val" THEN b = 2\r
-END IF\r
-END SELECT\r
-NEXT a\r
-\r
-IF (tunnidara = 0) AND (b > 0) THEN kell b\r
-ssave = ssave + 1\r
-END SUB\r
-\r
-SUB disp\r
-CLS\r
-PRINT "Kooli Kell (mini) v 1.1 2003.3"\r
-PRINT "Programmi autor Svjatoslav Agejenko E-mail: n0@hot.ee"\r
-PRINT ""\r
-PRINT "s - kell tundi sisse v - kell tunnist v�lja"\r
-PRINT "a - sisesta uus aeg d - sisesta uus daatum"\r
-PRINT "u - �mardab aja t�istunnini l - laeb aja failist SYNC.TXT"\r
-PRINT "7 - 1 minut tagasi 8 - 1 minut edasi"\r
-PRINT "4 - 1 tund tagasi 5 - 1 tund edasi"\r
-PRINT "r - programmi restart q - programmist v�lja"\r
-PRINT " j - j�tab k�ik tunnid t�na �ra"\r
-\r
-dispp\r
-\r
-LOCATE 12, 15\r
-PRINT "Kuu-P�ev-Aasta (USA standard)"\r
-\r
-\r
-LOCATE 17\r
-\r
-FOR a = 1 TO ppl\r
-IF pp$(a) <> SPACE$(LEN(pp$(a))) THEN\r
- PRINT pp$(a);\r
- PRINT SPACE$(15 - LEN(pp$(a)));\r
-END IF\r
-NEXT a\r
-\r
-displukk\r
-dispt\r
-END SUB\r
-\r
-SUB displukk\r
-LOCATE 1, 40\r
-IF kblukk = 1 THEN\r
- COLOR 0, 7\r
- PRINT "Klaviatuur lukus! Vajuta CTRL+L"\r
- COLOR 7, 0\r
-ELSE\r
- PRINT " "\r
-END IF\r
-END SUB\r
-\r
-SUB dispp\r
-IF ndlp = 0 THEN GOTO 14\r
-LOCATE 14, 1\r
-PRINT "n�dalap�ev:", pn$(ndlp)\r
-LOCATE 15, 1\r
-PRINT "p�evaplaan:", lp$\r
-14\r
-END SUB\r
-\r
-SUB dispt\r
-LOCATE 16, 20\r
-COLOR 12 + 15, 0\r
-IF tunnidara = 1 THEN\r
- PRINT "T�na on k�ik tunnid �ra j�etud"\r
-ELSE\r
- PRINT " "\r
-END IF\r
-COLOR 7, 0\r
-END SUB\r
-\r
-SUB getmd (a$, m, d)\r
-b$ = LEFT$(a$, 5)\r
-m = VAL(LEFT$(b$, 2))\r
-d = VAL(RIGHT$(b$, 2))\r
-\r
-END SUB\r
-\r
-SUB getnad (g, n, d, k)\r
-'LOCATE 11, 1\r
-'PRINT g, n, d\r
-p = g\r
-m = n - 2\r
-IF n > 2 GOTO 120\r
-p = p - 1: m = m + 12\r
-120\r
-c = INT(p / 100)\r
-y = p - c * 100\r
-w = d + INT((13 * m - 1) / 5) + y + INT(y / 4) + INT(c / 4) - 2 * c\r
-k = w - 7 * INT(w / 7)\r
-IF k = 0 THEN k = 7\r
-END SUB\r
-\r
-SUB heli (a)\r
-'GOTO 10\r
-SELECT CASE a\r
-CASE 1\r
-FOR c = 1 TO 5\r
-SOUND 3000, 1\r
-SOUND 0, 1\r
-NEXT c\r
-\r
-CASE 2\r
-FOR c = 1 TO 5\r
-SOUND 2500, 1\r
-SOUND 0, 2\r
-NEXT c\r
-SOUND 2500, 10\r
-\r
-CASE 3\r
-FOR a = 1 TO 10\r
-SOUND 500, .5\r
-SOUND 1500, .5\r
-SOUND 2000, .5\r
-SOUND 1520, .5\r
-NEXT a\r
-\r
-\r
-CASE 4\r
-FOR a = 800 TO 1000 STEP 10\r
-SOUND a, .1\r
-SOUND a * 3, .1\r
-SOUND 0, 1\r
-NEXT a\r
-10\r
-\r
-END SELECT\r
-\r
-\r
-END SUB\r
-\r
-SUB inita\r
-apl = 0\r
-OPEN "aasta.ap" FOR INPUT AS #1\r
-5\r
-IF EOF(1) <> 0 THEN GOTO 3\r
-LINE INPUT #1, a$\r
-apl = apl + 1\r
-ap$(apl) = a$\r
-GOTO 5\r
-3\r
-CLOSE #1\r
-END SUB\r
-\r
-SUB initp (b$)\r
-ppl = 0\r
-OPEN b$ + ".pp" FOR INPUT AS #1\r
-6\r
-IF EOF(1) <> 0 THEN GOTO 7\r
-LINE INPUT #1, a$\r
-ppl = ppl + 1\r
-pp$(ppl) = a$\r
-GOTO 6\r
-7\r
-CLOSE #1\r
-END SUB\r
-\r
-SUB kell (a)\r
-b$ = TIME$ + DATE$\r
-IF b$ <> lk$ THEN lk$ = b$ ELSE GOTO 2\r
-\r
-heli 3\r
-\r
-SELECT CASE a\r
-CASE 1\r
-kola 4\r
-FOR b = 1 TO 15\r
-SOUND 0, 1\r
-NEXT b\r
-kola 1\r
-CASE 2\r
-kola 5\r
-END SELECT\r
-2\r
-END SUB\r
-\r
-SUB kola (a)\r
-timero = TIMER\r
-11\r
-FOR b = 1 TO 100\r
-OUT prt, 0\r
-OUT prt, 255\r
-NEXT b\r
-IF ABS(timero - TIMER) < a THEN GOTO 11\r
-END SUB\r
-\r
-SUB mnmain\r
-1\r
-b$ = LEFT$(TIME$, 5)\r
-IF b$ <> timo$ THEN chm\r
-timo$ = b$\r
-\r
-a$ = INKEY$\r
-\r
-IF a$ <> "" THEN\r
-IF ssave > ssavel THEN disp\r
-ssave = 0\r
-END IF\r
-\r
-IF a$ = CHR$(12) THEN\r
- IF kblukk = 1 THEN kblukk = 0 ELSE kblukk = 1\r
- displukk\r
-END IF\r
-IF kblukk = 1 THEN a$ = ""\r
-\r
-IF a$ = "s" THEN kell 1\r
-IF a$ = "v" THEN kell 2\r
-\r
-IF a$ = "a" THEN\r
-CLS\r
-PRINT " vana aeg: " + TIME$\r
-INPUT "sisesta uus aeg (TT:MM:SS): ", b$\r
-IF LEN(b$) <> 8 THEN GOTO 12\r
-TIME$ = b$\r
-timo$ = ""\r
-12\r
-disp\r
-END IF\r
-\r
-IF a$ = "d" THEN\r
-CLS\r
-PRINT " vana daatum: " + DATE$\r
-INPUT "sisesta uus daatum (KK-PP-AAAA): ", b$\r
-IF LEN(b$) <> 10 THEN GOTO 13\r
-DATE$ = b$\r
-timo$ = ""\r
-13\r
-disp\r
-END IF\r
-\r
-IF a$ = "7" OR a$ = "8" THEN\r
- b = VAL(RIGHT$(LEFT$(TIME$, 5), 2))\r
- IF a$ = "7" THEN b = b - 1\r
- IF a$ = "8" THEN b = b + 1\r
- IF b < 0 THEN b = 0\r
- IF b > 59 THEN b = 59\r
- d$ = STR$(b)\r
- IF LEFT$(d$, 1) = " " THEN d$ = RIGHT$(d$, LEN(d$) - 1)\r
- IF LEN(d$) < 2 THEN d$ = "0" + d$\r
- e$ = LEFT$(TIME$, 3) + d$ + RIGHT$(TIME$, 3)\r
- TIME$ = e$\r
-END IF\r
-\r
-IF a$ = "4" OR a$ = "5" THEN\r
- b = VAL(LEFT$(TIME$, 2))\r
- IF a$ = "4" THEN b = b - 1\r
- IF a$ = "5" THEN b = b + 1\r
- IF b < 0 THEN b = 0\r
- IF b > 23 THEN b = 23\r
- d$ = STR$(b)\r
- IF LEFT$(d$, 1) = " " THEN d$ = RIGHT$(d$, LEN(d$) - 1)\r
- IF LEN(d$) < 2 THEN d$ = "0" + d$\r
- e$ = d$ + RIGHT$(TIME$, 6)\r
- TIME$ = e$\r
-END IF\r
-\r
-IF a$ = "u" THEN sync2\r
-IF a$ = "l" THEN sync\r
-\r
-IF a$ = "r" THEN rese\r
-IF a$ = "q" THEN SYSTEM\r
-\r
-IF a$ = "j" THEN\r
-IF tunnidara = 0 THEN tunnidara = 1 ELSE tunnidara = 0\r
-dispt\r
-END IF\r
-\r
-IF ssave <= ssavel THEN\r
- LOCATE 11, 1\r
- PRINT TIME$\r
- LOCATE 12, 1\r
- PRINT DATE$\r
-ELSE\r
- IF ABS(TIMER - timero) > 10 THEN\r
- CLS\r
- kblukk = 1\r
- FOR b = 1 TO 20\r
- LOCATE RND * 22 + 1, RND * 79 + 1\r
- IF RND * 100 < 50 THEN PRINT "*" ELSE PRINT "."\r
- NEXT b\r
- LOCATE RND * 22 + 1, RND * 50 + 1\r
- COLOR 0, 7\r
- PRINT "< " + LEFT$(TIME$, 2);\r
- COLOR 16, 7\r
- PRINT ":";\r
- COLOR 0, 7\r
- PRINT RIGHT$(LEFT$(TIME$, 5), 2) + " >"\r
- COLOR 7, 0\r
- timero = TIMER\r
- END IF\r
-END IF\r
-GOTO 1\r
-\r
-\r
-END SUB\r
-\r
-SUB rese\r
-heli 4\r
-timo$ = ""\r
-dato$ = ""\r
-apl = 0\r
-END SUB\r
-\r
-SUB son (a$)\r
-\r
-FOR b = 1 TO 50\r
-sona$(b) = ""\r
-NEXT b\r
-mitus = 0\r
-\r
-b = 1\r
-FOR c = 1 TO LEN(a$)\r
-d$ = RIGHT$(LEFT$(a$, c), 1)\r
-IF d$ = " " OR d$ = CHR$(9) THEN\r
-b = 1\r
-ELSE\r
-IF b = 1 THEN b = 0: mitus = mitus + 1\r
-sona$(mitus) = sona$(mitus) + d$\r
-END IF\r
-NEXT c\r
-\r
-\r
-END SUB\r
-\r
-SUB start\r
-pn$(1) = "esmasp�ev"\r
-pn$(2) = "teisip�ev"\r
-pn$(3) = "kolmap�ev"\r
-pn$(4) = "neljap�ev"\r
-pn$(5) = "reede"\r
-pn$(6) = "laup�ev"\r
-pn$(7) = "p�hap�ev"\r
-\r
-prt = &H378\r
-\r
-ssavel = 2\r
-kblukk = 1\r
-tunnidara = 0\r
-END SUB\r
-\r
-SUB sync\r
-OPEN "sync.txt" FOR INPUT AS #1\r
-LINE INPUT #1, a$\r
-DATE$ = a$\r
-LINE INPUT #1, a$\r
-TIME$ = a$\r
-CLOSE #1\r
-\r
-heli 2\r
-END SUB\r
-\r
-SUB sync2\r
-a$ = TIME$\r
-a$ = LEFT$(a$, 5)\r
-b = VAL(RIGHT$(a$, 2))\r
-c = VAL(LEFT$(a$, 2))\r
-IF b >= 30 THEN c = c + 1\r
-b = 0\r
-IF c > 23 THEN c = c - 24\r
-a$ = RIGHT$(STR$(c), LEN(STR$(c)) - 1)\r
-b$ = RIGHT$(STR$(b), LEN(STR$(b)) - 1)\r
-IF LEN(a$) < 2 THEN a$ = "0" + a$\r
-IF LEN(b$) < 2 THEN b$ = "0" + b$\r
-a$ = a$ + ":" + b$\r
-\r
-'LOCATE 10, 1\r
-'PRINT a$\r
-\r
-TIME$ = a$\r
-\r
-heli 1\r
-END SUB\r
-\r
+++ /dev/null
-# 08:30 sis\r
-# 09:00 val\r
-\r
-# 09:10 sis\r
-# 09:40 val\r
-\r
-# 09:50 sis\r
-# 10:20 val\r
-\r
-# 10:30 sis\r
-# 11:00 val\r
-\r
-# 11:30 sis\r
-# 12:00 val\r
-\r
-# 12:10 sis\r
-# 12:40 val\r
-\r
-# 12:50 sis\r
-# 13:20 val\r
-\r
-# 13:30 sis\r
-# 14:00 val\r
-\r
-# 14:05 sis\r
-# 14:35 val\r
-\r
+++ /dev/null
-# 08:30 sis\r
-# 09:15 val\r
-\r
-# 09:25 sis\r
-# 10:10 val\r
-\r
-# 10:20 sis\r
-# 10:45 val\r
-\r
-# 10:55 sis\r
-# 11:20 val\r
-\r
-# 11:40 sis\r
-# 12:05 val\r
-\r
-# 12:15 sis\r
-# 12:40 val\r
-\r
-\r
+++ /dev/null
-# 08:30 sis\r
-# 09:10 val\r
-\r
-# 09:20 sis\r
-# 10:00 val\r
-\r
-# 10:10 sis\r
-# 10:50 val\r
-\r
-# 11:30 sis\r
-# 12:10 val\r
-\r
-# 12:20 sis\r
-# 13:00 val\r
-\r
-# 13:10 sis\r
-# 13:50 val\r
-\r
-# 14:00 sis\r
-# 14:40 val\r
-\r
-# 14:45 sis\r
-# 15:30 val\r
+++ /dev/null
-# 08:30 sis\r
-# 09:15 val\r
-\r
-# 09:25 sis\r
-# 10:10 val\r
-\r
-# 10:20 sis\r
-# 11:05 val\r
-\r
-# 11:35 sis\r
-# 12:20 val\r
-\r
-# 12:30 sis\r
-# 13:15 val\r
-\r
-# 13:20 sis\r
-# 14:05 val\r
-\r
-# 14:10 sis\r
-# 14:55 val\r
-\r
-# 15:00 sis\r
-# 15:45 val\r
+++ /dev/null
-02-03-2003\r
-11:32\r
-\r
-kuu-paev-aasta\r
-tunnid-minutid
\ No newline at end of file
+++ /dev/null
-# 08:30 sis\r
-# 09:15 val\r
-\r
-# 09:25 sis\r
-# 10:10 val\r
-\r
-# 10:20 sis\r
-# 11:05 val\r
-\r
-# 11:35 sis\r
-# 12:20 val\r
-\r
-# 12:30 sis\r
-# 13:15 val\r
-\r
-# 13:25 sis\r
-# 14:10 val\r
-\r
-# 14:20 sis\r
-# 15:05 val\r
-\r
-# 15:10 sis\r
-# 15:55 val\r
-\r
-# 16:00 sis\r
-# 16:45 val\r
-\r
-# 16:50 sis\r
-# 17:35 val
\ No newline at end of file
+++ /dev/null
-v 01-01 12-31 tava\r
-n 01-01 12-31 5 reede\r
-e 04-17 luhend\r
-e 04-18 tuhi\r
-e 04-30 luhend\r
-e 05-01 tuhi\r
-e 06-23 tuhi\r
-e 06-24 tuhi\r
-n 01-01 12-31 6 tuhi\r
-n 01-01 12-31 7 tuhi\r
-v 07-01 08-31 tuhi\r
-\r
+++ /dev/null
- Kooli Kell 3 programmi kasutusjuhend\r
- ------------------------------------\r
-\r
-2003.09\r
-\r
-Programmi, juhendi ja skeemi autor: Svjatoslav Agejenko\r
-E-post: svjatoslav@svjatoslav.eu\r
-kodulehekylg: www.hot.ee/n0/\r
-\r
-Ettevaatust: Siin tekstis olev info v6ib olla vananenud, vigane v6i\r
-ebat2ielik. Autor ei v6ta endale vastutust antud systeemi kasutamisest\r
-tekkinud otsese v6i kaudse kahju puhul!\r
- \r
-\r
-\r
- 0 Teemad\r
- --------\r
-\r
-0 Teemad\r
-1 Yldinfo\r
-2 faili AASTA.AP formaat\r
-3 failide *.PP formaat\r
-4 Raudvara n6uded\r
-5 Tarkvara n6uded\r
-6 N6uded inimesele\r
-\r
-\r
-\r
- 1 Yldinfo\r
- ---------\r
-\r
-Programm Kooli Kell on m6eldud kella laskmiseks koolis, tundi sisse ja v2lja.\r
-Tundi sisse minev kell on 1 pikk ning 1 lyhem helin. V2ljaminev kell on 1\r
-tavaline pikk helin. Programm loeb aega arvuti systeemsest kellast.\r
-Fail 'AASTA.AP' hoiab aasta graafikut, kus saab m22rata teatud p2eva kohta\r
-k2iva p2evaplaani. P2evaplaanid asuvad failides '*.PP'.\r
-Aasta v6i p2evaplaani muutmiseks tuleb redigeerida vastavaid faile.\r
-Failides on info esitatud programmile 'Kooli Kell' arusaadavate k2skudena.\r
-Kus yhel real on yks k2sk, v6i tyhi rida.\r
-Rea esimene s6na peab olema k2sk, ning j2rgnevad s6nad on selle k2su\r
-parameetrid. S6nad v6ivad olla eraldatud suvalise 0 suuremate\r
-tabulaatorite ja/v6i tyhikute arvuga.\r
-Programmi saab kasutada arvutil millele on yhendatud spetsiaalne liides,\r
-v6i millel on see liides sisse monteeritud. Liideses olev relee toimib\r
-lylitina, mis kella laskmise ajaks sulgub. Liides vooluahelasse ise\r
-voolu ei anna. Seega on liides m6eldud kella ja toiteallikaga vooluahelasse\r
-jadamisi yhendamiseks. V6i siis olemasoleva mehaanilise\r
-kella laskmis nupuga paralleelselt, siis saab kella lasta nii endisest\r
-nupust kui ka arvutiga.\r
-\r
-Programm on etten2htud iseseisvalt t88tama, kuid on\r
-ka v6imalus erandkorras k2sitsi kella lasta, aega muuta jne.\r
-Selleks tuleb vajutada erinevaid klahve klaviatuuril.\r
-K2ivitudes kuvab programm klahvide kirjeldused ekraanile.\r
-\r
-\r
-\r
- 2 faili AASTA.AP formaat\r
- ------------------------\r
-\r
-L6pp 'AP' tuleneb s6nadest Aasta plaan.\r
-\r
-v <kuu>-<p2ev> <kuu>-<p2ev> <p2evaplaan>\r
-\r
-S6nast vahemik. Paneb paika p2evaplaani antud ajavahemikus. Esimene\r
-daatum peab kindlasti olema v2iksem kui teine. St. kui on t6esti vaja:\r
-\r
-v 10-4 2-1 eri\r
-\r
-tuleb kirjutada:\r
-\r
-v 10-4 12-31 eri\r
-v 1-1 2-1 eri\r
-\r
-P2evaplaan kehtib vahemiku esimesest p2evast kuni vahemiku viimase p2evani.\r
-\r
-n <kuu>-<p2ev> <kuu>-<p2ev> <n2dalap2ev> <p2evaplaan>\r
-\r
-S6nast n2dalap2ev. sama mis "v" kuid: paneb paika p2evaplaani antud\r
-ajavahemikus, antud n2dalap2eval. N2dalap2eva kirjeldatakse numbriga.\r
-n2dala esimene p2ev on esmasp2ev, talle vastab number 1.\r
-\r
-e <kuu>-<p�ev> <p�evaplaan>\r
-\r
-S6nast erip2evaplaan. Paneb paika antud kuup2evale antud p2evaplaani.\r
-Sobib h2sti erakorraliste, lyhendatud v6i uhekordselt kehtivate\r
-p2evaplaanide kehtestamiseks. N2iteks riigipyhad, spordip2ev jne.\r
-\r
-Kui teatud p2eva kohta ei k2inud yhtegi kirjet siis toimib vaikimisi "tuhi"\r
-p2evaplaan. Kui teatud p2eva kohta k2is mitu kirjet siis j22b peale viimane.\r
-\r
-\r
-\r
- 3 failide *.PP formaat\r
- ----------------------\r
-\r
-L6pp 'PP' tuleneb s6nadest P2eva Plaan.\r
-\r
-# <tund>:<minut> <kell>\r
-\r
-Laseb antud ajal antud kella. V6imalikud kella helinad on:\r
-\r
- sis -kell tundi sisse\r
- val -kell tunnist v2lja\r
-\r
-\r
-\r
- 4 Raudvara n6uded\r
- -----------------\r
-\r
-286 protsessoriga PC tyypi arvuti.\r
- Peaks t88tama ka 8086 protsessoril aga pole testinud.\r
-\r
-640 KB p6him2lu.\r
- V2hemaga pole testinud.\r
-\r
-500 KB vaba kettaruumi.\r
- K6vakettalt t88 kiirendab oluliselt programmi k2ivitumist,\r
- ja konfiguratsiooni redigeerimist.\r
-\r
-LPT port.\r
-\r
-Monitor.\r
- v6ib ka mustvalge.\r
-\r
-Klaviatuur.\r
-\r
-\r
-\r
- 5 Tarkvara n6uded\r
- -----------------\r
-\r
-DOS 6.22\r
- V6ib ka varasem, kuid pole testinud.\r
-QB 4.5\r
- Piisab 'QB.EXE' failist. Peaks t88tama ka MS QBasic-us.\r
-EDIT.EXE\r
- DOSi k2surealt k2ivituv teksti redaktor.\r
-\r
-\r
-\r
- 6 N6uded inimesele\r
- ------------------\r
-\r
-Systeemi kasutamiseks h2davajalik antud juhendist aru saamine. \r
-Systeemi paigaldamine n6uab elektriku oskusi.\r
-Programmi kasutamiseks on vajalik v2hemalt\r
-algaja tasemel arvutikasutaja oskus.\r
-\r
-\r
+++ /dev/null
-DECLARE FUNCTION getnam$ (a%)\r
-DECLARE FUNCTION getsym$ (a$, b%)\r
-DECLARE SUB editor ()\r
-DECLARE SUB leiaconf ()\r
-DECLARE SUB clrerr ()\r
-DECLARE SUB dispt ()\r
-\r
-' Kooli Kell 3\r
-\r
-' (c) Svjatoslav Agejenko\r
-' All rights reserved.\r
-\r
-' E-mail: svjatoslav@svjatoslav.eu\r
-' Homepage: svjatoslav.eu\r
-\r
-DECLARE SUB dispp ()\r
-DECLARE SUB displukk ()\r
-DECLARE SUB kola (a%)\r
-DECLARE SUB rese ()\r
-DECLARE SUB start ()\r
-DECLARE SUB getnad (g%, n%, d%, k%)\r
-DECLARE SUB initp (b$)\r
-DECLARE SUB getmd (a$, m%, d%)\r
-DECLARE SUB son (a$)\r
-DECLARE SUB inita ()\r
-DECLARE SUB chm ()\r
-DECLARE SUB chd ()\r
-DECLARE SUB kell (a%)\r
-DECLARE SUB sync2 ()\r
-DECLARE SUB sync ()\r
-DECLARE SUB mnmain ()\r
-DECLARE SUB heli (a%)\r
-DECLARE SUB disp ()\r
-DEFINT A-Z\r
-\r
-DIM SHARED ap$(1 TO 500)\r
-DIM SHARED apl\r
-DIM SHARED pp$(1 TO 500)\r
-DIM SHARED ppl\r
-DIM SHARED prt, prt2\r
-DIM SHARED timo$\r
-DIM SHARED dato$\r
-DIM SHARED sona$(1 TO 50)\r
-DIM SHARED mitus\r
-DIM SHARED lp$\r
-DIM SHARED ndlp\r
-DIM SHARED pn$(1 TO 7)\r
-DIM SHARED lk$\r
-DIM SHARED ssave\r
-DIM SHARED ssavel\r
-DIM SHARED timero AS LONG\r
-DIM SHARED kblukk\r
-DIM SHARED tunnidara\r
-DIM SHARED errmsg$\r
-DIM SHARED cnflist$(1 TO 200)\r
-\r
-'ON ERROR GOTO 20\r
-\r
-start\r
-disp\r
-mnmain\r
-\r
-20\r
-LOCATE 20, 1\r
-COLOR 0, 15\r
-PRINT "Programmi t88s ilmus j2rgnev t6rge:"\r
-PRINT errmsg$\r
-PRINT "Programmi t2itmine katkestatud! Abi saamiseks lugege juhendit."\r
-SYSTEM\r
-\r
-SUB chd\r
-b$ = "tuhi"\r
-IF apl = 0 THEN inita\r
-\r
-a$ = DATE$\r
-n1 = VAL(RIGHT$(a$, 4))\r
-n2 = VAL(LEFT$(a$, 2))\r
-a$ = LEFT$(a$, 5)\r
-n3 = VAL(RIGHT$(a$, 2))\r
-getnad n1, n2, n3, ndlp\r
-FOR a = 1 TO apl\r
-son ap$(a)\r
-SELECT CASE sona$(1)\r
-CASE "v"\r
-getmd sona$(2), m1, d1\r
-getmd sona$(3), m2, d2\r
-getmd DATE$, m3, d3\r
-IF m3 < m1 THEN GOTO 9\r
-IF m3 > m2 THEN GOTO 9\r
-IF m3 = m1 THEN IF d3 < d1 THEN GOTO 9\r
-IF m3 = m2 THEN IF d3 > d2 THEN GOTO 9\r
-b$ = sona$(4)\r
-CASE "n"\r
-getmd sona$(2), m1, d1\r
-getmd sona$(3), m2, d2\r
-getmd DATE$, m3, d3\r
-IF m3 < m1 THEN GOTO 9\r
-IF m3 > m2 THEN GOTO 9\r
-IF m3 = m1 THEN IF d3 < d1 THEN GOTO 9\r
-IF m3 = m2 THEN IF d3 > d2 THEN GOTO 9\r
-IF ndlp <> VAL(sona$(4)) THEN GOTO 9\r
-b$ = sona$(5)\r
-CASE "e"\r
-getmd sona$(2), m1, d1\r
-getmd DATE$, m2, d2\r
-IF (m1 = m2) AND (d1 = d2) THEN b$ = sona$(3)\r
-END SELECT\r
-9\r
-NEXT a\r
-\r
-IF b$ <> lp$ THEN initp b$\r
-lp$ = b$\r
-tunnidara = 0\r
-dispp\r
-disp\r
-END SUB\r
-\r
-SUB chm\r
-a$ = DATE$\r
-IF a$ <> dato$ THEN chd\r
-dato$ = a$\r
-b = 0\r
-FOR a = 1 TO ppl\r
-son pp$(a)\r
-SELECT CASE sona$(1)\r
-CASE "#"\r
-getmd sona$(2), h1, m1\r
-getmd TIME$, h2, m2\r
-' PRINT h1, m1, h2, m2\r
-IF (h2 = h1) AND (m2 = m1) THEN\r
-IF sona$(3) = "sis" THEN b = 1\r
-IF sona$(3) = "val" THEN b = 2\r
-END IF\r
-END SELECT\r
-NEXT a\r
-\r
-IF (tunnidara = 0) AND (b > 0) THEN kell b\r
-ssave = ssave + 1\r
-END SUB\r
-\r
-SUB clrerr\r
-errmsg$ = "tundmatu viga. V6ibolla on v2he RAM m2lu?"\r
-END SUB\r
-\r
-SUB disp\r
-CLS\r
-PRINT "Kooli Kell 3 2003.09"\r
-PRINT "autor: Svjatoslav Agejenko "\r
-PRINT ""\r
-PRINT "s - kell tundi sisse v - kell tunnist v�lja"\r
-PRINT "a - sisesta uus aeg d - sisesta uus daatum"\r
-PRINT "p - n2itab dokumentatsiooni j - j�tab k�ik tunnid t�na �ra"\r
-PRINT "7 - 1 minut tagasi 8 - 1 minut edasi"\r
-PRINT "4 - 1 tund tagasi 5 - 1 tund edasi"\r
-PRINT "r - programmi restart q - programmist v�lja"\r
-PRINT "k - konfiguratsiooni redaktor CTRL+L - klaviatuuri lukk (sees/v2ljas)"\r
-\r
-dispp\r
-\r
-LOCATE 12, 15\r
-PRINT "Kuu-P�ev-Aasta (USA standard)"\r
-\r
-\r
-LOCATE 17\r
-\r
-FOR a = 1 TO ppl\r
-IF pp$(a) <> SPACE$(LEN(pp$(a))) THEN\r
- PRINT pp$(a);\r
- PRINT SPACE$(15 - LEN(pp$(a)));\r
-END IF\r
-NEXT a\r
-\r
-displukk\r
-dispt\r
-END SUB\r
-\r
-SUB displukk\r
-LOCATE 1, 40\r
-IF kblukk = 1 THEN\r
- COLOR 0, 7\r
- PRINT "Klaviatuur lukus! Vajuta CTRL+L"\r
- COLOR 15, 0\r
-ELSE\r
- PRINT " "\r
-END IF\r
-END SUB\r
-\r
-SUB dispp\r
-IF ndlp = 0 THEN GOTO 14\r
-LOCATE 14, 1\r
-PRINT "n�dalap�ev:", pn$(ndlp)\r
-LOCATE 15, 1\r
-PRINT "p�evaplaan:", lp$\r
-14\r
-END SUB\r
-\r
-SUB dispt\r
-LOCATE 16, 20\r
-COLOR 12 + 15, 0\r
-IF tunnidara = 1 THEN\r
- PRINT "T2na on k6ik tunnid 2ra j2etud"\r
-ELSE\r
- PRINT " "\r
-END IF\r
-COLOR 15, 0\r
-END SUB\r
-\r
-SUB editor\r
-23\r
-leiaconf\r
-CLS\r
-COLOR 0, 15\r
-LOCATE 1, 1\r
-PRINT SPACE$(80);\r
-LOCATE 1, 1\r
-PRINT "Konfiguratsiooni redaktor. Valige v2lja p2eva v6i aasta plaani."\r
-LOCATE 2, 1\r
-PRINT SPACE$(80);\r
-LOCATE 2, 1\r
-PRINT " nr nimi laiend suurus loomisdaatum"\r
-\r
-LOCATE 22, 1\r
-PRINT SPACE$(80);\r
-LOCATE 22, 1\r
-PRINT "K - valitud faili kustutamine U - uus fail ESC - redaktorist v2lja"\r
-p = 0\r
-v = 1\r
-17\r
-FOR a = 3 TO 21\r
- IF a - 2 + p = v THEN\r
- COLOR 0, 7\r
- LOCATE a, 1\r
- PRINT cnflist$(a - 2 + p) + SPACE$(55 - LEN(cnflist$(a - 2 + p)))\r
- LOCATE a, 56\r
- COLOR 31, 0\r
- PRINT "<==";\r
- IF cnflist$(a - 2 + p) <> SPACE$(LEN(cnflist$(a - 2 + p))) THEN\r
- COLOR 15, 0\r
- PRINT " valitud: " + getnam$(v)\r
- END IF\r
- COLOR 15, 0\r
- ELSE\r
- COLOR 15, 0\r
- LOCATE a, 1\r
- PRINT cnflist$(a - 2 + p) + SPACE$(80 - LEN(cnflist$(a - 2 + p)))\r
- END IF\r
-NEXT a\r
- \r
-\r
-a$ = INKEY$\r
-LOCATE 1, 1\r
-'IF a$ <> "" THEN PRINT ASC(RIGHT$(a$, 1)); ASC(LEFT$(a$, 1))\r
-IF a$ = CHR$(27) THEN GOTO 18\r
-IF a$ = "u" OR a$ = "U" THEN SHELL "EDIT": GOTO 23\r
-IF a$ = CHR$(0) + "P" THEN v = v + 1\r
-IF a$ = CHR$(0) + "H" THEN v = v - 1\r
-IF a$ = CHR$(0) + CHR$(73) THEN v = v - 17\r
-IF a$ = CHR$(0) + CHR$(81) THEN v = v + 17\r
-IF a$ = "K" OR a$ = "k" THEN\r
- IF LEN(getnam$(v)) > 2 THEN\r
- IF getnam$(v) = "AASTA.AP" THEN\r
- SOUND 3000, .1\r
- ELSE\r
- KILL getnam$(v)\r
- GOTO 23\r
- END IF\r
- ELSE\r
- SOUND 3000, .1\r
- END IF\r
-END IF\r
-IF a$ = CHR$(13) THEN\r
- IF getnam$(v) = "." THEN\r
- SOUND 3000, .1\r
- ELSE\r
- SHELL "EDIT " + getnam$(v)\r
- GOTO 23\r
- END IF\r
-END IF\r
-\r
-IF v < 1 THEN v = 1: SOUND 3000, .2\r
-IF v > 200 THEN v = 200: : SOUND 3000, .2\r
-\r
-21 IF v - p > 19 THEN p = p + 1: GOTO 21\r
-22 IF v - p < 1 THEN p = p - 1: GOTO 22\r
-\r
-GOTO 17\r
-18\r
-COLOR 15, 0\r
-disp\r
-END SUB\r
-\r
-SUB getmd (a$, m, d)\r
-b$ = LEFT$(a$, 5)\r
-m = VAL(LEFT$(b$, 2))\r
-d = VAL(RIGHT$(b$, 2))\r
-\r
-END SUB\r
-\r
-SUB getnad (g, n, d, k)\r
-'LOCATE 11, 1\r
-'PRINT g, n, d\r
-p = g\r
-m = n - 2\r
-IF n > 2 GOTO 120\r
-p = p - 1: m = m + 12\r
-120\r
-c = INT(p / 100)\r
-y = p - c * 100\r
-w = d + INT((13 * m - 1) / 5) + y + INT(y / 4) + INT(c / 4) - 2 * c\r
-k = w - 7 * INT(w / 7)\r
-IF k = 0 THEN k = 7\r
-END SUB\r
-\r
-FUNCTION getnam$ (a)\r
-c$ = ""\r
-FOR b = 8 TO 40\r
- d$ = getsym(cnflist$(a), b)\r
- IF d$ = " " THEN GOTO 19\r
- c$ = c$ + d$\r
-NEXT b\r
-19\r
-getnam$ = c$ + "." + getsym(cnflist$(a), 17) + getsym(cnflist$(a), 18)\r
-END FUNCTION\r
-\r
-FUNCTION getsym$ (a$, b)\r
-getsym$ = RIGHT$(LEFT$(a$, b), 1)\r
-END FUNCTION\r
-\r
-SUB heli (a)\r
-'GOTO 10\r
-SELECT CASE a\r
-CASE 1\r
-FOR c = 1 TO 5\r
-SOUND 3000, 1\r
-SOUND 0, 1\r
-NEXT c\r
-\r
-CASE 2\r
-FOR c = 1 TO 5\r
-SOUND 2500, 1\r
-SOUND 0, 2\r
-NEXT c\r
-SOUND 2500, 10\r
-\r
-CASE 3\r
-FOR a = 1 TO 10\r
-SOUND 500, .5\r
-SOUND 1500, .5\r
-SOUND 2000, .5\r
-SOUND 1520, .5\r
-NEXT a\r
-\r
-\r
-CASE 4\r
-FOR a = 800 TO 1000 STEP 10\r
-SOUND a, .1\r
-SOUND a * 3, .1\r
-SOUND 0, 1\r
-NEXT a\r
-10\r
-\r
-END SELECT\r
-\r
-\r
-END SUB\r
-\r
-SUB inita\r
-apl = 0\r
-errmsg$ = "Ei leia aastaplaani faili! 'aasta.ap'"\r
-OPEN "aasta.ap" FOR INPUT AS #1\r
-clrerr\r
-5\r
-IF EOF(1) <> 0 THEN GOTO 3\r
-LINE INPUT #1, a$\r
-apl = apl + 1\r
-ap$(apl) = a$\r
-GOTO 5\r
-3\r
-CLOSE #1\r
-END SUB\r
-\r
-SUB initp (b$)\r
-ppl = 0\r
-errmsg$ = "Ei leia aastaplaanis mainitud '" + b$ + ".pp' p2evaplaani!"\r
-OPEN b$ + ".pp" FOR INPUT AS #1\r
-clrerr\r
-6\r
-IF EOF(1) <> 0 THEN GOTO 7\r
-LINE INPUT #1, a$\r
-ppl = ppl + 1\r
-pp$(ppl) = a$\r
-GOTO 6\r
-7\r
-CLOSE #1\r
-END SUB\r
-\r
-SUB kell (a)\r
-b$ = TIME$ + DATE$\r
-IF b$ <> lk$ THEN lk$ = b$ ELSE GOTO 2\r
-\r
-heli 3\r
-\r
-SELECT CASE a\r
-CASE 1\r
-kola 4\r
-FOR b = 1 TO 15\r
-SOUND 0, 1\r
-NEXT b\r
-kola 1\r
-CASE 2\r
-kola 5\r
-END SELECT\r
-2\r
-END SUB\r
-\r
-SUB kola (a)\r
-COLOR 15, 7\r
-s$ = ""\r
-FOR b = 1 TO 80\r
- s$ = s$ + CHR$(219)\r
-NEXT b\r
-FOR b = 1 TO 30\r
-PRINT s$;\r
-NEXT b\r
-\r
-timero = TIMER\r
-11\r
-OUT prt, 255\r
-IF ABS(timero - TIMER) < a THEN GOTO 11\r
-OUT prt, 0\r
-COLOR 15, 0\r
-disp\r
-END SUB\r
-\r
-SUB leiaconf\r
-FOR a = 1 TO 200\r
- cnflist$(a) = ""\r
-NEXT a\r
-c = 1\r
-\r
-SHELL "dir >dir.tmp"\r
-OPEN "dir.tmp" FOR INPUT AS #1\r
-15\r
-IF EOF(1) <> 0 THEN GOTO 16\r
-LINE INPUT #1, a$\r
-IF LEN(a$) < 30 THEN GOTO 15\r
-IF LEFT$(a$, 1) = " " THEN GOTO 15\r
-IF LEFT$(a$, 1) = "." THEN GOTO 15\r
-b$ = RIGHT$(LEFT$(a$, 12), 3)\r
-IF b$ = "PP " OR b$ = "AP " THEN ELSE GOTO 15\r
-d$ = " " + STR$(c)\r
-a$ = RIGHT$(d$, 4) + " " + a$\r
-IF LEN(a$) > 50 THEN a$ = LEFT$(a$, 50)\r
-cnflist$(c) = a$\r
-c = c + 1\r
-GOTO 15\r
-16\r
-CLOSE #1\r
-KILL "dir.tmp"\r
-END SUB\r
-\r
-SUB mnmain\r
-1\r
-b$ = LEFT$(TIME$, 5)\r
-IF b$ <> timo$ THEN chm\r
-timo$ = b$\r
-\r
-a$ = INKEY$\r
-\r
-IF a$ <> "" THEN\r
-IF ssave > ssavel THEN disp\r
-ssave = 0\r
-END IF\r
-\r
-IF a$ = CHR$(12) THEN\r
- IF kblukk = 1 THEN kblukk = 0 ELSE kblukk = 1\r
- displukk\r
-END IF\r
-IF kblukk = 1 THEN\r
- IF a$ <> "" THEN SOUND 3000, 1\r
- a$ = ""\r
-END IF\r
-IF a$ = "k" OR a$ = "K" THEN editor\r
-\r
-IF a$ = "s" OR a$ = "S" THEN kell 1\r
-IF a$ = "v" OR a$ = "V" THEN kell 2\r
-\r
-IF a$ = "a" THEN\r
-CLS\r
-PRINT " vana aeg: " + TIME$\r
-INPUT "sisesta uus aeg (TT:MM:SS): ", b$\r
-IF LEN(b$) <> 8 THEN GOTO 12\r
-TIME$ = b$\r
-timo$ = ""\r
-12\r
-disp\r
-END IF\r
-\r
-IF a$ = "d" OR a$ = "D" THEN\r
-CLS\r
-PRINT " vana daatum: " + DATE$\r
-INPUT "sisesta uus daatum (KK-PP-AAAA): ", b$\r
-IF LEN(b$) <> 10 THEN GOTO 13\r
-DATE$ = b$\r
-timo$ = ""\r
-13\r
-disp\r
-END IF\r
-\r
-IF a$ = "7" OR a$ = "8" THEN\r
- b = VAL(RIGHT$(LEFT$(TIME$, 5), 2))\r
- IF a$ = "7" THEN b = b - 1\r
- IF a$ = "8" THEN b = b + 1\r
- IF b < 0 THEN b = 0\r
- IF b > 59 THEN b = 59\r
- d$ = STR$(b)\r
- IF LEFT$(d$, 1) = " " THEN d$ = RIGHT$(d$, LEN(d$) - 1)\r
- IF LEN(d$) < 2 THEN d$ = "0" + d$\r
- e$ = LEFT$(TIME$, 3) + d$ + RIGHT$(TIME$, 3)\r
- TIME$ = e$\r
-END IF\r
-\r
-IF a$ = "4" OR a$ = "5" THEN\r
- b = VAL(LEFT$(TIME$, 2))\r
- IF a$ = "4" THEN b = b - 1\r
- IF a$ = "5" THEN b = b + 1\r
- IF b < 0 THEN b = 0\r
- IF b > 23 THEN b = 23\r
- d$ = STR$(b)\r
- IF LEFT$(d$, 1) = " " THEN d$ = RIGHT$(d$, LEN(d$) - 1)\r
- IF LEN(d$) < 2 THEN d$ = "0" + d$\r
- e$ = d$ + RIGHT$(TIME$, 6)\r
- TIME$ = e$\r
-END IF\r
-\r
-IF a$ = "p" OR a$ = "P" THEN SHELL "EDIT juhend.txt": disp\r
-\r
-IF a$ = "r" OR a$ = "R" THEN rese\r
-IF a$ = "q" OR a$ = "Q" THEN SYSTEM\r
-\r
-IF a$ = "j" OR a$ = "J" THEN\r
-IF tunnidara = 0 THEN tunnidara = 1 ELSE tunnidara = 0\r
-dispt\r
-END IF\r
-\r
-IF ssave <= ssavel THEN\r
- LOCATE 11, 1\r
- PRINT TIME$\r
- LOCATE 12, 1\r
- PRINT DATE$\r
-ELSE\r
- IF ABS(TIMER - timero) > 10 THEN\r
- CLS\r
- kblukk = 1\r
- FOR b = 1 TO 20\r
- LOCATE RND * 22 + 1, RND * 79 + 1\r
- IF RND * 100 < 50 THEN PRINT "*" ELSE PRINT "."\r
- NEXT b\r
- LOCATE RND * 22 + 1, RND * 50 + 1\r
- COLOR 0, 7\r
- PRINT "< " + LEFT$(TIME$, 2);\r
- COLOR 16, 7\r
- PRINT ":";\r
- COLOR 0, 7\r
- PRINT RIGHT$(LEFT$(TIME$, 5), 2) + " >"\r
- COLOR 15, 0\r
- timero = TIMER\r
- END IF\r
-END IF\r
-GOTO 1\r
-\r
-\r
-END SUB\r
-\r
-SUB rese\r
-heli 4\r
-timo$ = ""\r
-dato$ = ""\r
-apl = 0\r
-END SUB\r
-\r
-SUB son (a$)\r
-\r
-FOR b = 1 TO 50\r
- sona$(b) = ""\r
-NEXT b\r
-mitus = 0\r
-\r
-b = 1\r
-FOR c = 1 TO LEN(a$)\r
-d$ = RIGHT$(LEFT$(a$, c), 1)\r
-IF d$ = " " OR d$ = CHR$(9) THEN\r
-b = 1\r
-ELSE\r
-IF b = 1 THEN b = 0: mitus = mitus + 1\r
-sona$(mitus) = sona$(mitus) + d$\r
-END IF\r
-NEXT c\r
-\r
-\r
-END SUB\r
-\r
-SUB start\r
-CLS\r
-COLOR 15\r
-pn$(1) = "esmasp�ev"\r
-pn$(2) = "teisip�ev"\r
-pn$(3) = "kolmap�ev"\r
-pn$(4) = "neljap�ev"\r
-pn$(5) = "reede"\r
-pn$(6) = "laup�ev"\r
-pn$(7) = "p�hap�ev"\r
-\r
-prt = &H378\r
-\r
-ssavel = 2\r
-kblukk = 1\r
-tunnidara = 0\r
-\r
-OUT prt, 0\r
-END SUB\r
-\r
+++ /dev/null
-# 08:30 sis\r
-# 09:00 val\r
-\r
-# 09:10 sis\r
-# 09:40 val\r
-\r
-# 09:50 sis\r
-# 10:20 val\r
-\r
-# 10:30 sis\r
-# 11:00 val\r
-\r
-# 11:30 sis\r
-# 12:00 val\r
-\r
-# 12:10 sis\r
-# 12:40 val\r
-\r
-# 12:50 sis\r
-# 13:20 val\r
-\r
-# 13:30 sis\r
-# 14:00 val\r
-\r
-# 14:05 sis\r
-# 14:35 val\r
-\r
+++ /dev/null
-# 08:30 sis\r
-# 09:15 val\r
-\r
-# 09:25 sis\r
-# 10:10 val\r
-\r
-# 10:20 sis\r
-# 11:05 val\r
-\r
-# 11:35 sis\r
-# 12:20 val\r
-\r
-# 12:30 sis\r
-# 13:15 val\r
-\r
-# 13:20 sis\r
-# 14:05 val\r
-\r
-# 14:10 sis\r
-# 14:55 val\r
-\r
-# 15:00 sis\r
-# 15:45 val\r
+++ /dev/null
-# 08:30 sis\r
-# 09:15 val\r
-\r
-# 09:25 sis\r
-# 10:10 val\r
-\r
-# 10:20 sis\r
-# 11:05 val\r
-\r
-# 11:35 sis\r
-# 12:20 val\r
-\r
-# 12:30 sis\r
-# 13:15 val\r
-\r
-# 13:25 sis\r
-# 14:10 val\r
-\r
-# 14:20 sis\r
-# 15:05 val\r
-\r
-# 15:10 sis\r
-# 15:55 val\r
-\r
-# 16:00 sis\r
-# 16:45 val\r
-\r
-# 16:50 sis\r
-# 17:35 val
\ No newline at end of file