Тема: RFO BASIC
Показать сообщение отдельно
Старый 08.09.2015, 15:52   #50
1961uvg
Нуждающийся
 
Регистрация: 28.07.2015
Сообщений: 55
Написано одно полезное сообщение
Ответ: 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
(Offline)
 
Ответить с цитированием