10 REM---------------------------------
20 REM ZUFALLSTONFOLGE
30 REM MIT BLUES-SCHEMA
40 REM
50 REM AUSNUETZUNG ALLER DREI STIMMEN
60 REM ZUR KLANGVERBESSERUNG
70 REM
80 REM T. KRAETZIG           MAERZ 86
90 REM---------------------------------
100 DIM FL(25) :REM ARRAY F. FREQUENZEN
101 DIM FH(25)
102 DIM A(8,20):REM AUSWAHLMENGEN
104 DIM S(30)  :REM SCHEMA
110 S  =54272  :REM BASISADRESSE
130 :
140 REM TONLEITER-FREQUENZEN BERECHNEN
150 FAUS=110:H=2^(1/12)
160 FOR I=0 TO 25
170 :  F=INT(FAUS*17.0284+0.5)
172 :  FH(I)=INT(F/256)
174 :  FL(I)=F-256*FH(I)
180 :  FAUS=FAUS*H
190 NEXT I
200 :
210 REM PARAMETER FESTLEGEN
220 PW=2048       :REM PULSWEITE
230 C =32         :REM KURVENFORM
240 A=0:D=10:SU=0:R=9
250 FOR I=0 TO 14 STEP 7
255 : POKE S+I+2,PW AND 255
260 : POKE S+I+3,PW/256
265 : POKE S+I+5,16*A+D
270 : POKE S+I+6,16*SU+R
275 NEXT I
280 :
290 REM FILTER AUS UND LAUTSTAERKE MAX.
300 POKE S+23,0:POKE S+24,15
310 :
320 REM AUSW.MENGEN UND SCHEMA EINLESEN
325 READ I:A(0,0)=I
330 FOR K=1 TO I
335 :  READ J:A(K,0)=J
340 :  FOR L=1 TO J:READ A(K,L):NEXT L
350 NEXT K
355 READ I:S(0)=I
360 FOR K=1 TO I
365 :  READ S(K)
370 NEXT K
375 :
380 REM ZUFALLSTONFOLGE
385 L=0:O=0
390 FOR I=1 TO S(0)
395 :  J=S(I)
400 :  N=A(J,0)
405 :  FOR K=1 TO 8
410 :     ZZ=A(J,INT(RND(1)*N+1))
412 :     POKE S+L  ,FL(ZZ+O)
414 :     POKE S+L+1,FH(ZZ+O)
416 :     POKE S+L+4,C OR 1
420 :     FOR P=1 TO 40:NEXT
425 :     POKE S+L+4,C
430 :     FOR P=1 TO 40:NEXT
435 :     L=L+7:IF L=21 THEN L=0
440 :  NEXT K
445 NEXT I
450 O=O+1:IF O=4 THEN O=0
455 FOR P=1 TO 1150:NEXT
460 GOTO 390
500 REM--------------------------------
510 REM AUSWAHLMENGEN UND SCHEMA
520 REM--------------------------------
530 DATA  7
540 DATA  8,  0,4,7,10,12,16,19,22
550 DATA  8,  0,3,5,9, 12,15,17,21
560 DATA  7,  2,5,7,11,14,17,19
570 DATA  6,  0,0,4, 7, 7,10
580 DATA  4,  0,3,5,9
590 DATA  5,  2,5,7,7,11
610 DATA  2,  0,7
620 :
630 DATA 24,  7,1,2,1,3,2,1,3
640 DATA      4,4,5,4,6,5,4,6
650 DATA      7,1,2,1,3,2,1,3