RosettaCodeData/Task/Pointers-and-references/M2000-Interpreter/pointers-and-references-4.m2000

Module ShowModalFormWithCLock {
      Declare Form1 Form
      With Form1, "Title" as Title$
      Thread {
            Title$=str$(now,"hh:mm:ss")
      } as K interval 500
      Method Form1, "Show", 1
      Declare Form1 Nothing
}
ShowModalFormWithCLock