Atari 130XE User Manual

COMPUTER BLUES
Th is program generates random musical notes to "write " some very
interesting
melodies for the programmed ba ss .
1. GRAPHICS 0:? :? II COMPUTER BLUES II : ?
2
PTR=1.
3 THNOT=1.
5 CHORD=1.
6 PRINT II BASS TEMPO C 1.=FAS T) II ,:
7 INPUT TEMPO
6 GRAPHICS 2+1.6: GOSUB 2000
1.0 DIM BASEC3 .. 4)
20 DIM LOW(3)
25 DIM LINE C 1.6)
26 DIM JAMC3 .. 7)
30 FOR X=1. TO 3
40 FOR V=1. TO 4
50 READ A: BASECX .. V)=A
60 NEXT V
70 NEXT X
60 FOR X=1. TO 3: READ A: LOWC X) =A
'J0 NEXT X
'J5 FOR X=1. TO 1.6:READ A:LINECX)=A:NEXT X
'J6 FOR X=1. TO 3
'J7 FOR V=1. TO 7
'J6 READ A: JAM C X .. V) =A : NEXT V: NEXT X
1.00 GOSUB 500
1.1.0 T=T + 1.
1.1.5 GOSUB 200
1.20 GOTO 1.00
200 REM PROCESS HIGH STUFF
205 IF RND C 0) (0,25 THEN RETURN
21.0 IF RND C 0) (0 , 5 THEN 250
220
NT=NT+1.
230 IF NT)7 THEN NT=7
240 GOTO 260
250 NT=NT-1.
255 IF NT(1. THEN NT=1.
260 SOUND 2 .. JAMCCHORD .. NT) .. 1.0 .. NT*2
260 RETURN
500 REM PROCESS BASE STUFF
51.0 IF BASS=1. THEN 700
520 BDUR=BDUR+1.
530 IF BDUR()TEMPO THEN 535
531. BASS=1. : BDUR=0
535 SOUND 0 .. LOWCCHORD) .. 1.0 .. 4
540 SOUND 1. .. BASECCHORD .. THNOT) .. 1.0 .. 4
84

Atari 130XE Specifications

General

Brand	Atari
Model	130XE
Category	Desktop
Language	English