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

Procedure AlertThread(Parameter)

  Repeat
    MessageRequester("Info", "Alert ("+Str(Parameter)+")", 0)
    Delay(3000)
  ForEver

EndProcedure

CreateThread(@AlertThread(), 154)

MessageRequester("Info", "It will display an alert every 3 seconds."+Chr(10)+"Click To finish the program", 0)