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

INPUT "Введите N",N$

GR.OPEN 0, 0, 0, 0
GR.ORIENTATION 2

s=len(N$)

GR.SCREEN w,h



x=0
y=0
a=1
c=1
r=0
g=0
b=255
u=0
! Draw a Black text alignment line


! Set the text color to Red with fill = false





! Set the text size to 1/25th screen height

GR.TEXT.SIZE w/20

! Set the text align to Left = 1

GR.TEXT.ALIGN 1

x=1
y=2



skeip:
GR.CLS

GR.COLOR 255,255, 0, 0, 255

GR.RECT Paddle, w/2, h/2, w/2+40, h/2+40

m=RND()*3+1

GR.COLOR 255,r, g, b, 255

GR.TEXT.DRAW M, 30, 30,str$(s)

GR.TEXT.DRAW P, x, y, N$

x=x+a
y=y+c
IF x>w-s
a=-m
r=255
g=0
b=0
ENDIF
IF x<5
a=m
b=255
g=0
r=0
ENDIF
IF y>h-5
c=-m
g=255
b=0
r=0
ENDIF
IF y<12
c=m
r=255
b=255
g=0
ENDIF
GR.RENDER
GOTO skeip
DO
UNTIL 1
(Offline)
 
Ответить с цитированием