OpenWindow(0,100,100,400,300,"Программуля",#PB_Window_SystemMenu | #PB_Window_ScreenCentered)

Enumeration
  #text1
  #text2
  #button
EndEnumeration

TextGadget(#PB_Any,10,10,300,20, "Переносит текст между строками")
TextGadget(#PB_Any,10,40,300,20, "Строка 1")
StringGadget(#text1,10,60,300,20,"Текст из строки 1")
ButtonGadget(#button,10,100,300,20,"Перенести")
TextGadget(#PB_Any,10,130,300,20,"Строка 2")
StringGadget(#text2,10,150,300,20,"Тут должен появиться Текст из строки 1")

; в винде все построено на получении ивентов и их контролировании
; поэтому мы создаем цикл с построверкой условия
; (повторять, пока не выполнится условие)
Repeat
  ; вот тут мы получаем сам ивент и пишем его в переменную ev
  ; для дальнейшей обработки
  ; если мы этого делать не будем (или наше приложение повиснет при какой-то операции)
  ; то винда будет считать что оно зависло
  ; и предложит его завершить (уверен ты такое видел не раз)
  ; можешь закомментировать эту строку и посмотреть что будет
  ev = WaitWindowEvent()
  Text$ = GetGadgetText(#text1)
  ; стандартный во многих языках case
  ; как if-else, но для большого количества условий
  ; тут мы проверяем какой нам ивент пришел
  Select ev
    ; если это ивент от гаджета
    Case #PB_Event_Gadget
      ; смотрим что это за гаджет
      Select EventGadget()
        Case #button
          ; и что за тип ивента
          Select EventType()
            ; типы ивентов можно посмотреть в хэлпе по конкретному гаджету
            Case #PB_EventType_Change
              Debug "ты поменял текст"
            Default
              SetGadgetText(#text2, Text$)
          EndSelect
      EndSelect
  EndSelect
; если ивент вот такой, то значит юзер нажал на крестик
; и можно завершить цикл
Until ev = #PB_Event_CloseWindow