Ответ: RFO BASIC
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
|