automation/school clock/kell/ekr.bas

   1 DECLARE SUB jooks ()\r
   2 DECLARE SUB suva ()\r
   3 DEFINT A-Z\r
   4 DECLARE SUB cle ()\r
   5 DECLARE SUB disp ()\r
   6 DIM SHARED bit(0 TO 16)\r
   7 \r
   8 suva\r
   9 jooks\r
  10 \r
  11 cle\r
  12 bit(10) = 0\r
  13 bit(14) = 0\r
  14 bit(6) = 0\r
  15 bit(2) = 0\r
  16 4\r
  17 disp\r
  18 GOTO 4\r
  19 \r
  20 SUB cle\r
  21 FOR a = 1 TO 16\r
  22 bit(a) = 1\r
  23 NEXT a\r
  24 END SUB\r
  25 \r
  26 SUB disp\r
  27 prt = &H378\r
  28 d = 0\r
  29 FOR a = 0 TO 3\r
  30 c = 2 ^ a\r
  31 FOR b = 4 TO 7\r
  32 d = d + 1\r
  33 c = c + (bit(d) * 2 ^ b)\r
  34 NEXT b\r
  35 \r
  36 OUT prt, c\r
  37 NEXT a\r
  38 END SUB\r
  39 \r
  40 SUB jooks\r
  41 2\r
  42 cle\r
  43 FOR a = 1 TO 16\r
  44 bit(16) = 1\r
  45 bit(a - 1) = 1\r
  46 bit(a) = 0\r
  47 PRINT a\r
  48 FOR b = 1 TO 1000\r
  49 disp\r
  50 NEXT b\r
  51 NEXT a\r
  52 GOTO 2\r
  53 \r
  54 END SUB\r
  55 \r
  56 SUB suva\r
  57 3\r
  58 cle\r
  59 FOR b = 1 TO 16\r
  60 IF RND * 100 > 50 THEN bit(b) = 0\r
  61 NEXT b\r
  62 FOR b = 1 TO 100\r
  63 disp\r
  64 NEXT b\r
  65 GOTO 3\r
  66 END SUB\r
  67 \r