Cuicui Amstrad CPC

CUICUI

Qui Teûi cru, un piaf dans mon CPC ? Pas mal !
Fais pas l'œuf et tape ce truc, C'est poilanL

10 ' Cuicui

20 ENT 1,20,1,0.5

30 ENT 1,20 0.25,1.25

40 ENT 2,30,0.5, 1

50 ENT 3,20,1,1

60 LN= I NT < RND#5 ï + 1

70 FOR L*l TO LN

60 FOR N=l TO 3

90 DUR<N)=INTtRND#?ï4-9

100 E<N)=INTCRND*3>+1

110 EN(N)oINTCRND#2>+l

120 NOTE (N> =INT (RND#9>+4

130 NEXT

140 SOUND EN £ 1 ) , NOTE ( 1 ) , DUR 1 1 > , 6 , 1 , E ( 1 >
150 SOUND ENÏ2) ,NOTE(2) ,DURC2> f 6,l,EC2)
160 SOUND EN (3Î ,NDTE <3) . DUR (3) ,6 , 1 t E <3)
170 FOR P=l TO I NT < RND» i 30 > + 1 00 : NE XT
160 NEXT

190 FOR P=l TO I NT C RND* 1000) +500 a NEXT
200 GOTO 60