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