More all-intervals

24TET this time...and it's supposed to take a LONG TIME before the
first one appears, if you wonder.

DIM ton(24)
DIM valfinns(24)
DIM valsteg(24)
DIM tonfinns(24)
DIM ton$(24)

WIDTH 80, 50
COLOR 15, 4
CLS

ton$(2) = "C+ "
ton$(3) = "C# "
ton$(4) = "D- "
ton$(5) = "D "
ton$(6) = "D+ "
ton$(7) = "Eb "
ton$(8) = "E- "
ton$(9) = "E "
ton$(10) = "E+ "
ton$(11) = "F "
ton$(12) = "F+ "
ton$(13) = "F# "
ton$(14) = "G- "
ton$(15) = "G "
ton$(16) = "G+ "
ton$(17) = "Ab "
ton$(18) = "A- "
ton$(19) = "A "
ton$(20) = "A+ "
ton$(21) = "Bb "
ton$(22) = "B- "
ton$(23) = "B "
ton$(24) = "C- "

FOR a = 2 TO 24
valsteg(1) = a - 1
valfinns(valsteg(1)) = 1
tonfinns(a) = 1

FOR B = 2 TO 24
IF tonfinns(B) = 1 GOTO B
vall = (B + 24 - a) MOD 24
IF valfinns(vall) = 1 GOTO B
valfinns(vall) = 1
valsteg(2) = vall
tonfinns(B) = 1

FOR C = 2 TO 24
IF tonfinns(C) = 1 GOTO C
vall = (C + 24 - B) MOD 24
IF valfinns(vall) = 1 GOTO C
valfinns(vall) = 1
valsteg(3) = vall
tonfinns(C) = 1

FOR d = 2 TO 24
IF tonfinns(d) = 1 GOTO d
vall = (d + 24 - C) MOD 24
IF valfinns(vall) = 1 GOTO d
valfinns(vall) = 1
valsteg(4) = vall
tonfinns(d) = 1

FOR e = 2 TO 24
IF tonfinns(e) = 1 GOTO e
vall = (e + 24 - d) MOD 24
IF valfinns(vall) = 1 GOTO e
valfinns(vall) = 1
valsteg(5) = vall
tonfinns(e) = 1

FOR f = 2 TO 24
IF tonfinns(f) = 1 GOTO f
vall = (f + 24 - e) MOD 24
IF valfinns(vall) = 1 GOTO f
valfinns(vall) = 1
valsteg(6) = vall
tonfinns(f) = 1

FOR g = 2 TO 24
IF tonfinns(g) = 1 GOTO g
vall = (g + 24 - f) MOD 24
IF valfinns(vall) = 1 GOTO g
valfinns(vall) = 1
valsteg(7) = vall
tonfinns(g) = 1

FOR h = 2 TO 24
IF tonfinns(h) = 1 GOTO h
vall = (h + 24 - g) MOD 24
IF valfinns(vall) = 1 GOTO h
valfinns(vall) = 1
valsteg(8) = vall
tonfinns(h) = 1

FOR i = 2 TO 24
IF tonfinns(i) = 1 GOTO i
vall = (i + 24 - h) MOD 24
IF valfinns(vall) = 1 GOTO i
valfinns(vall) = 1
valsteg(9) = vall
tonfinns(i) = 1

FOR j = 2 TO 24
IF tonfinns(j) = 1 GOTO j
vall = (j + 24 - i) MOD 24
IF valfinns(vall) = 1 GOTO j
valfinns(vall) = 1
valsteg(10) = vall
tonfinns(j) = 1

FOR k = 2 TO 24
IF tonfinns(k) = 1 GOTO k
vall = (k + 24 - j) MOD 24
IF valfinns(vall) = 1 GOTO k
valfinns(vall) = 1
valsteg(11) = vall
tonfinns(k) = 1

FOR l = 2 TO 24
IF tonfinns(l) = 1 GOTO l
vall = (l + 24 - k) MOD 24
IF valfinns(vall) = 1 GOTO l
valfinns(vall) = 1
valsteg(12) = vall
tonfinns(l) = 1

FOR m = 2 TO 24
IF tonfinns(m) = 1 GOTO m
vall = (m + 24 - l) MOD 24
IF valfinns(vall) = 1 GOTO m
valfinns(vall) = 1
valsteg(13) = vall
tonfinns(m) = 1

FOR n = 2 TO 24
IF tonfinns(n) = 1 GOTO n
vall = (n + 24 - m) MOD 24
IF valfinns(vall) = 1 GOTO n
valfinns(vall) = 1
valsteg(14) = vall
tonfinns(n) = 1

FOR o = 2 TO 24
IF tonfinns(o) = 1 GOTO o
vall = (o + 24 - n) MOD 24
IF valfinns(vall) = 1 GOTO o
valfinns(vall) = 1
valsteg(15) = vall
tonfinns(o) = 1

FOR p = 2 TO 24
IF tonfinns(p) = 1 GOTO p
vall = (p + 24 - o) MOD 24
IF valfinns(vall) = 1 GOTO p
valfinns(vall) = 1
valsteg(16) = vall
tonfinns(p) = 1

FOR q = 2 TO 24
IF tonfinns(q) = 1 GOTO q
vall = (q + 24 - p) MOD 24
IF valfinns(vall) = 1 GOTO q
valfinns(vall) = 1
valsteg(17) = vall
tonfinns(q) = 1

FOR r = 2 TO 24
IF tonfinns(r) = 1 GOTO r
vall = (r + 24 - q) MOD 24
IF valfinns(vall) = 1 GOTO r
valfinns(vall) = 1
valsteg(18) = vall
tonfinns(r) = 1

FOR s = 2 TO 24
IF tonfinns(s) = 1 GOTO s
vall = (s + 24 - r) MOD 24
IF valfinns(vall) = 1 GOTO s
valfinns(vall) = 1
valsteg(19) = vall
tonfinns(s) = 1

FOR t = 2 TO 24
IF tonfinns(t) = 1 GOTO t
vall = (t + 24 - s) MOD 24
IF valfinns(vall) = 1 GOTO t
valfinns(vall) = 1
valsteg(20) = vall
tonfinns(t) = 1

FOR u = 2 TO 24
IF tonfinns(u) = 1 GOTO u
vall = (u + 24 - t) MOD 24
IF valfinns(vall) = 1 GOTO u
valfinns(vall) = 1
valsteg(21) = vall
tonfinns(u) = 1

FOR v = 2 TO 24
IF tonfinns(v) = 1 GOTO v
vall = (v + 24 - u) MOD 24
IF valfinns(vall) = 1 GOTO v
valfinns(vall) = 1
valsteg(22) = vall
tonfinns(v) = 1

FOR w = 2 TO 24
IF tonfinns(w) = 1 GOTO w
vall = (w + 24 - v) MOD 24
IF valfinns(vall) = 1 GOTO w
valfinns(vall) = 1
valsteg(23) = vall
tonfinns(w) = 1

PRINT "C "; ton$(a); ton$(B); ton$(C); ton$(d); ton$(e); ton$(f);
ton$(g); ton$(h); ton$(i); ton$(j); ton$(k); ton$(l); ton$(m);
ton$(n); ton$(o); ton$(p); ton$(q); ton$(r); ton$(s); ton$(t);
ton$(u); ton$(v); ton$(w);
PRINT
z = z + 1: IF z = 48 THEN INPUT a$: z = 0: CLS

valfinns(valsteg(23)) = 0
tonfinns(w) = 0
w:
NEXT w
valfinns(valsteg(22)) = 0
tonfinns(v) = 0
v:
NEXT v
valfinns(valsteg(21)) = 0
tonfinns(u) = 0
u:
NEXT u
valfinns(valsteg(20)) = 0
tonfinns(t) = 0
t:
NEXT t
valfinns(valsteg(19)) = 0
tonfinns(s) = 0
s:
NEXT s
valfinns(valsteg(18)) = 0
tonfinns(r) = 0
r:
NEXT r
valfinns(valsteg(17)) = 0
tonfinns(q) = 0
q:
NEXT q
valfinns(valsteg(16)) = 0
tonfinns(p) = 0
p:
NEXT p
valfinns(valsteg(15)) = 0
tonfinns(o) = 0
o:
NEXT o
valfinns(valsteg(14)) = 0
tonfinns(n) = 0
n:
NEXT n
valfinns(valsteg(13)) = 0
tonfinns(m) = 0
m:
NEXT m
valfinns(valsteg(12)) = 0
tonfinns(l) = 0
l:
NEXT l
valfinns(valsteg(11)) = 0
tonfinns(k) = 0
k:
NEXT k
valfinns(valsteg(10)) = 0
tonfinns(j) = 0
j:
NEXT j
valfinns(valsteg(9)) = 0
tonfinns(i) = 0
i:
NEXT i
valfinns(valsteg(8)) = 0
tonfinns(h) = 0
h:
NEXT h
valfinns(valsteg(7)) = 0
tonfinns(g) = 0
g:
NEXT g
valfinns(valsteg(6)) = 0
tonfinns(f) = 0
f:
NEXT f
valfinns(valsteg(5)) = 0
tonfinns(e) = 0
e:
NEXT e
valfinns(valsteg(4)) = 0
tonfinns(d) = 0
d:
NEXT d
valfinns(valsteg(3)) = 0
tonfinns(C) = 0
C:
NEXT C
valfinns(valsteg(2)) = 0
tonfinns(B) = 0
B:
NEXT B
valfinns(valsteg(1)) = 0
tonfinns(a) = 0
a:
NEXT a
PLAY "l17cegbgecegbgec"