Тема: RFO BASIC
Показать сообщение отдельно
Старый 13.08.2015, 11:13   #17
1961uvg
Нуждающийся
 
Регистрация: 28.07.2015
Сообщений: 55
Написано одно полезное сообщение
Ответ: RFO BASIC

Пример:
REM Start of BASIC! Program
gr.open 255,255,255,255
gr.color 255,250,0,255,0
gr.orientation 1
gr.text.draw txt1, 1, 60, "My current 'x' position is 1"
for i=1 to 100 step 1
gr.modify txt1, "x", i
gr.modify txt1, "text", "My current 'x' position is " + str$(i)
gr.render
pause 1
next
pause 1000
gr.close
END
(Offline)
 
Ответить с цитированием