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