DECLARE SUB jooks ()
DECLARE SUB suva ()
DEFINT A-Z
DECLARE SUB cle ()
DECLARE SUB disp ()
DIM SHARED bit(0 TO 16)

suva
jooks

cle
bit(10) = 0
bit(14) = 0
bit(6) = 0
bit(2) = 0
4
disp
GOTO 4

SUB cle
FOR a = 1 TO 16
bit(a) = 1
NEXT a
END SUB

SUB disp
prt = &H378
d = 0
FOR a = 0 TO 3
c = 2 ^ a
FOR b = 4 TO 7
d = d + 1
c = c + (bit(d) * 2 ^ b)
NEXT b

OUT prt, c
NEXT a
END SUB

SUB jooks
2
cle
FOR a = 1 TO 16
bit(16) = 1
bit(a - 1) = 1
bit(a) = 0
PRINT a
FOR b = 1 TO 1000
disp
NEXT b
NEXT a
GOTO 2

END SUB

SUB suva
3
cle
FOR b = 1 TO 16
IF RND * 100 > 50 THEN bit(b) = 0
NEXT b
FOR b = 1 TO 100
disp
NEXT b
GOTO 3
END SUB