550 RETURN
700 SOUND 0,0,0,0
710 SOUND 1,0,0,0
720 BDUR=BDUR+1
730 IF BDUR<>1 THEN 800
740 BDUR=0:BASS=0
750 THNOT=THNOT+1
760 IF THNOT<>5 THEN 800
765 THNOT=1
770 PTR=PTR+1
780 IF PTR=17 THEN PTR=1
790 CHORD=LINE(PTR)
800 RETURN
1000
DATA
162,144,136,144,121,108,102,108,108,96,91,96
1010 DATA 243,182,162
1020
DATA
1,1,1,1,2,2,2,2,1,1,1,1,3,2,1,1
1030
DATA
60,50,47,42,40,33,29
1040
DATA
60,50,45,42,40,33,29
1050
DATA
81,68,64,57,53,45,40
2000 PRINT #6 : PRINT #6 : PRINT #6
2005 PRINT #6 ;" Computer"
2006 PRINT #6
2010 PRINT #6;" Blues"
2030
RETURN
85
To Next Page
Loading...
