Atari 400

COMPUTER
BLUES
H-16 Appendix
This program generates random musical notes to "write" some very interesting
melodies for the programmed bass.
1 GRAPHICS 0:? :? II
sn :"?
2 PTR=l
3 THt·KIT= 1
5 CHORO=l
COt·1F'UTE~: BLUE
6 PF.: IHT II BASS TEt-1PO ( 1 =F A::;T > II ;
7 H~PUT TEt-1PO
8 GRAPH I C3 2+ 16 : GOSUB 2~1(1(1
10 DH-1 8A:3E( 3..4 >
20 DH1 LlJl.K 3)
25 Dit1 LHlE( 16)
26 DIM JA~K 3 .. 7)
30 FOR ::<= 1 TO 3
40 FOR 'l=1 TO 4
5(1 ~:EAD A: BA::;E( i·~ 1 rr' >=A
60 HE:=<T '"!'
70 ~ · ~E>::T ::·::
:30 FOP ;:. : :=1 TO 3: READ A: LOl.J.:: : ~ ::)=A
90 t·~E:-n ::-=:
95 FO~: :=<= 1 TO 16 = F.:EAD A : L I t·~E( >=: > =A : r·~E:=·=:T ;:.::
96 FOR :=<= 1 TO 3
97 FOR '1"'=1 TO 7
98 ~:EAD A : JAt·1( ;:. :: ; ,'{ )::A : t · ~E =- ~T I"(: t·~E: : ·;T ::-~
100 GOSUE: 500
110 T=T+1
115 GOSUB 20(1
120 GOTO 100
200 REt1 PROCE : :::; HIGH STUFF
205 IF F.:t·~O( (t )< 0. 25 THEt-i RETURN
210 IF F ~ t·~D< 0 ><0. 5 THH~ 250
220 t·iT =t-iT+ 1
230 IF r-H>7 THEt·l HT=?
240 GOTO 260
250 NT =t-H -1
255 IF NT <1 THEt·J t-n=1
260 SOUr·~O 2 .. JAtK CHOF.:D .. t·H ) } 10, ~·H::;;2
280 F.:ETURH
500 REt1 PROCESS BASE STUFF
510 IF 8AS8=1 THH~ 700
520 E:DU~:=80UP+ 1
530 IF E:OUr.:< >TEt·1PO THH~ 535
531 BAS~3=1 = E:DL~F-~~~3
535 SOVf·~[l (1, LC!~,J( C:HOR[l ) ) 1 €1, 4
54£1 S OU f· i:: ! 1 ) BASE ( CHO ~~D .
1
THi· · ~C ; T ) .~ 1 ~ ) _; 4
550 ~:ETfJ~~i· i
700 ~30U~·4D 0, 0 .. 0 .. 0
710 :::our·~D 1 .. €1 .. 0 .. 0
720 BDUF~=SDU?+ 1