start tok64 d64-MxyNcx 1 REM blues, by nick sullivan 2 REM this composition uses a 3 REM repetitive 2-voice accomp- 4 REM animent under a rhythmically 5 REM complex melody line. the 6 REM lyrics to this composition are 7 REM in a foreign language that has 8 REM not yet evolved. 9 REM programmed in november, 1984 10 : 11 SYS 592 12 t=96: .t 4 13 .m t 14 [0]: .GOSUB 83 15 .GO 16 c2q:z:g1:z 17 c2q:z:g1:z 18 c2q:z:g1:z 19 c2:z:g1:c2q3:d:e 20 f2q:z:f1:z 21 f2:z:f1:f2q3:e:d 22 c2q:z:g1:z 23 c2:z:g1:c3q3:f2:f# 24 g2q:z:g1:z 25 f2q:z:f1:fq3:f#:g 26 c2q:e:f:f# 27 g:ab:z:gq3:g1:bb 28 .END 2 29 c3h.:zh 30 ; 31 [1]:.t4:.mt*1.5:.GOSUB 83:.wt 32 .GO 33 g3q:ge:aq:ae:bbq:bbe:a:bb:a 34 g3q:ge:aq:ae:bbq:bbe:a:bb:a 35 g3q:ge:aq:ae:bbq:bbe:a:bb:a 36 g3q:ge:aq:ae:bbq:bbe:a:bb:a 37 c4q:ce:dq:de:ebq:ebe:d:eb:d 38 c4q:ce:dq:de:ebq:ebe:d:eb:d 39 g3q:ge:aq:ae:bbq:bbe:a:bb:a 40 g3q:ge:aq:ae:bbq:bbe:a:bb:a 41 d4q:de:eq:ee:fq:fe:e:f:e 42 c4q:ce:dq:de:ebq:ebe:d:eb:d 43 g3q:ge:aq:ae:bbq:bbe:a:bb:a 44 c4q:ce:bb3q:bbe:aq:ae:abq:ge 45 .END 2 46 .mt: e4h.:zh 47 ; 48 [2]:.t4:.mt 49 .wp:.p1000:.s10:.d4 50 bb5q3/4:f#q3:g:ebe:eq6/11 51 f#4q3:g:e5h:zq 52 zq3/2:bb5q9:a:ab:g:c:g:f#:c:f#:f:c:f:eh3:eb:d 53 .GO 54 ct2:e:g:bb 55 .END 16 56 f3q3/4:eq3:ebq3/5 57 h=f:.o5 58 .GO 59 hq51/2:h=h/2^(1/12) 60 .END 15 61 e4q3/2:eq3:fq3/2:fq3:gq3/2:gq3:bb6q7:g:e:c:bb5:a:ab 62 g5e:a:bbq. 63 .GO 64 f#t:g:a:bb 65 .END 3 66 g5e:a:bbq. 67 .GO 68 f#t:g:a:bb 69 .END 3 70 g6s:g7e:g6s:g7:g6:f#:fs3:d:bb5s6:b 71 g5s:g6e:g5s:g6:g5:f#:fs3:d:bb4s6:b 72 c6s:d:ebq:de3:eb:d:c5s:d:ebq:de3:eb:d 73 ch.:c4q3:d:eb 74 eq9:eb:e:f:f#:f:e:f:f# 75 .GO 76 gt2:ab 77 .END 24 78 ;.j2 79 .IF y=0 THEN c6w12/13.4 80 y=y+1: .IF y<2 GOTO 51 81 bb4h.:zh 82 END 83 .ws:.a4:.d4:.s4:.r4 84 RETURN stop tok64 (bastext 1.0)