INPUT "Введите символы :",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

GR.TEXT.SIZE w/20

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