;
; ------------------------------------------------------------
;
;   PureBasic - Thread example file
;
;    (c) Fantaisie Software
;
; ------------------------------------------------------------
;

Procedure AlertThread(Parameter)

  Repeat
    Debug "Тревога!"
    Delay(2000)
  ForEver

EndProcedure

CreateThread(@AlertThread(), 0)

MessageRequester("инфо", "Будет отображать предупреждение каждые 2 секунды."+#LF$+"Нажмите, чтобы завершить программу.", 0)