REM Start of BASIC! Program REM Цветные шарики со звуком и без GR.OPEN 255,200,200,200 GR.ORIENTATION 0 GR.SCREEN w,h start: gr.cls cx=20 cy=h/2 loop: r=255*((sgn(rnd()-0.5)+1)) g=255*((sgn(rnd()-0.5)+1)) b=255*((sgn(rnd()-0.5)+1)) GR.COLOR 255,r,g,b,1 dx=(rnd()-0.3)*30 dy=(rnd()-0.5)*40 cx=cx+dx cy=cy+dy ! tone 3300-cy*10,186 % если убрать "!" будет звук ! 186 минимум миллисекунд данного устройства GR.CIRCLE nc,cx,cy,8 if cy<0 then goto start if cy>h then goto start if cx>w then goto start GR.RENDER goto loop