COMPUTER BLUES
This program generates random musical notes to "write" some very
interesting melodies for the programmed bass.
1 GRAPHICS 0:? :? " COMPUTER BLUES":?
2 PTR=1
3 THNOT=1
5 CHORD=1
6 PRINT "BASS TEMPO (1=FAST)";
7 INPUT TEMPO
8 GRAPHICS 2+16:GOSUB 2000
10 DIM BASE(3,4)
20 DIM LOW(3)
25 DIM LINE(16)
26 DIM JAM(3,7)
30 FOR X=1 TO 3
40 FOR Y=1 TO 4
50 R E A D A : B A S E ( X , Y ) = A
60 NEXT Y
70 NEXT X
80 FOR X=1 TO 3:READ A : L O W ( X ) = A
90 NEXT X
95 FOR X=1 TO 16:READ A:LINE(X)=A:NEXT X
96 FOR X=1 TO 3
97 FOR Y=1 TO 7
98 R E A D A : J A M ( X , Y ) = A : N E X T Y : N E X T X
100 GOSUB 500
110 T=T+1
115 GOSUB 200
120 GOTO 100
200 REM PROCESS HIGH STUFF
205 IF RND(0)<0.25 THEN R E T U R N
210 IF RND(0)<0.5 THEN 250
220 N T = N T + 1
230 IF NT>7 THEN NT=7
240 GOTO 260
250 NT=NT-1
255 IF N T < 1 THEN NT=1
260 SOUND 2 , J A M ( C H O R D , N T ) , 1 0 , N T * 2
280 R E T U R N
500 REM PROCESS BASE STUFF
510 IF BASS=1 THEN 700
520 B D U R = B D U R + 1
530 IF B D U R < > T E M P O THEN 535
531 BASS=1:BDUR=0
535 SOUND 0 , L O W ( C H O R D ) , 1 0 , 4
540 SOUND 1 , B A S E ( C H O R D , T H N O T ) , 1 0 , 4
84
Содержание 65XE
Страница 1: ...ATARI 65XE PERSONAL COMPUTER OWNER S MANUAL TM...
Страница 3: ...ATARI 65XE PERSONAL COMPUTER TM...
Страница 6: ...Part 1 GettingStarted 1...
Страница 9: ...4...
Страница 23: ...18...
Страница 25: ...20...
Страница 32: ...Part 2 Programming withATARI BASIC 27...
Страница 33: ...28...
Страница 59: ...54...
Страница 69: ...64...
Страница 82: ...Part3 Appendices 77...
Страница 83: ...78...
Страница 97: ...92...
Страница 105: ...100...
Страница 125: ...120...
Страница 126: ...121 Index...
Страница 127: ...122...
Страница 134: ...ATARI 1987 Atari Corp All Rights Reserved Printed in Taiwan C072018 001 REV B K l 2 1987...
Страница 135: ......