Atari 65XE Owner's Manual page 90

550 R E T U R N
7 0 0 S O U N D 0 , 0 , 0 , 0
710 S O U N D 1,0,0,0
720 BDUR=BDUR+1
730 IF B D U R < > 1 THEN 800
740 B D U R = 0 : B A S S = 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 P R I N T #6 ;" Computer"
2006 PRINT #6
2010 PRINT
2030 RETURN
#6;" Blues"
85