Do
 x=Int(Rnd*80)
 y=Int(Rnd*40)
 s=Int(Rnd*7)+128
 Colour Int(Rnd*&hFFFFFF)
 Print @(x*8,y*12) Chr$(s);
 Inc c
 If c>500 Then
   c=0
   Play tone Rnd*2000,Rnd*2000,200
 EndIf
Loop While Inkey$=""