AmstracCPC Music

10 GOSUB 50
20 SOUND 1,758,0,0,11:SOUND 2,190,0,0,11:SOUND 4,755,0,0,11
30 EVERY 7 GOSUB 120
40 GOTO 40
50 '
60 ENV 1,1,14,1,1,0,4,5,-3,10
70 ENV 2,1,13,1,1,0,4,5,-3,10
80 ENV 3,1,13,1,4,-3,8
90 ENV 11,15,1,15,1,0,200,15,-1,5
100 ENT -3,1,1,2,2,-1,2,1,1,2
110 DATA 1,1.33,1,.75,.67,.75
120 DIM ttra(5):RESTORE 110:FOR i=0 TO 5:READ ttra(i):NEXT
130 DATA 2,2,2,1,1,1
140 DIM trep(5):RESTORE 130:FOR i=0 TO 5:READ trep(i):NEXT
150 rep=2
160 th=1:occ=1
170 ix=0
180 tra=ttra(ix)
190 debut=-1
200 RETURN
210 '
220 IF (SQ(1) AND 7)=0 OR (SQ(2) AND 7)=0 OR (SQ(4) AND 7)=0 THEN RETURN
230 IF NOT debut GOTO 280
240 IF th=1 THEN RESTORE 410:ev=1
250 IF th=2 THEN RESTORE 450:ev=2:occ=1
260 IF th=3 THEN RESTORE 490:ev=1:et=3 ELSE et=0
270 debut=0
280 READ pa,pc,pb
290 IF pa=-1 THEN 350
300 IF th=2 THEN pb=pb/2
310 SOUND 1,pa/occ/tra,16,0,3
320 SOUND 2,pb/occ/tra,16,0,ev
330 SOUND 4,pc/occ/tra,16,0,3,et
340 RETURN
350 DEBUT=-1:REP=REP-1
360 IF rep<>0 THEN RETURN
370 ix=ix+1
380 IF ix=6 THEN ix=0:occ=2:th=th+1:IF th>3 THEN th=1
390 tra=ttra(ix):rep=trep(ix)
400 RETURN
410 DATA 379,253,758,253,169,0,190,159,0,253,253,676
420 DATA 379,190,0,213,169,0,253,284,638,379,213,0
430 DATA 169,142,0,253,284,0,379,190,0,190,159,638
440 DATA 169,142,676,253,213,758,213,169,379,190,159,253,-1,0,0
450 DATA 379,253,379,253,169,338,190,159,318,253,253,284
460 DATA 379,190,253,213,169,239,253,284,284,379,213,253
470 DATA 169,142,0,253,284,190,379,190,159,190,159,319
480 DATA 169,142,0,253,213,190,213,169,338,190,159,190,-1,0,0
490 DATA 379,253,190,253,169,0,190,159,213,253,253,190
500 DATA 379,190,239,213,169,190,253,284,190,379,213,253
510 DATA 169,142,0,253,284,190,379,190,190,190,159,284
520 DATA 169,142,0,253,213,319,213,169,338,190,159,379,-1,0,0