Infinity-Profan

proc Schlafe
  los_gehts = time(-1) + 5000
  while time(-1) < los_gehts
    dev.thread.sleep(0)
  wend
endproc

dev.thread.settimer(2000,@meineTimerProc)

proc meineTimerProc

    print "test"

endproc

// Timer
cls
print "Das Prrogramm beginnt."
print "Nun warten wir fünf Sekunden ..."
dev.thread.settimer(5000,@meineTimerProc)
print "Programmende ..."

proc meineTimerProc

    print "Die 5000ms sind nun um."

endproc

print "Das Prrogramm beginnt."
print "Nun warten wir fünf Sekunden ..."
dev.thread.settimer(5000,@meineTimerProc)
print "Programmende ..."