ПОМОГИТЕ в pure basic нужен код который открывал бы консоль и там писал каждую секунду с новой строки число!

OpenConsole()
b = ElapsedMilliseconds()
c = 0
Repeat
e = ElapsedMilliseconds()
If e - b >= 1000
c = c + 1
PrintN(Str(c))
b = b + 1000
EndIf
Delay(1)
Until Inkey() <> ""