Atari 65XE, Owner'S Manual

Page: 90 / 135

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 B D U R = B D U R + 1
730 IF B D U R < > 1 THEN 800
740 B D U R = 0 : B A S S = 0
750 T H N O T = T H N O T + 1
760 IF T H N O T < > 5 THEN 800
765 THNOT=1
770 PTR=PTR+1
780 IF PTR=17 THEN PTR=1
790 CHORD=LINE(PTR)
8 0 0 R E T U R N
1000 D A T A 162,144,136,144,121,108,102,108,108,96,91,96
1010 D A T A 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 P R I N T #6;" B l u e s "
2030 R E T U R N
85