Commodore Plus 4 - Page 216

Computer Maniac
10VOL7
20FORL = lTO100
30SOUNDl,INT(RND(0)i500)+400,4
40 NEXT
Telephone
10VOL7
20FORL = lTO5
30FORM = lTO60
40 SOUNDl.466,1
50 SOUND1,1020,1
60 NEXT
70FORZ = lTO2000:NEXT
80 NEXT
Busy Signal
10VOL7
20FORL = lTO15
40SOUND1,466,20
50 SOUNDU020.15
80 NEXT
Bubbles
10VOL7
20 GRAPHIC1.1
30FORM = lTO50
40 GOSUB80
50SOUND1,900-R>:20, (YR/2) + 50
60 CmCLEl,X,Y,R,YR
70 NEXT:GRAPHICO:END
80X = INT(RND(0)*280) + 20
90Y-INT{RND(0)*160) + 20
100R = INT(RND{0)i:40} + 5
110YR = R/1.3 _.
120 RETURN
Zap Beam
10VOL7
20FORM = lTO20 _
30FORL = 900TO850STEP-10
40SOUND1,L,1
207