#include "crt.bi"

dim as string TestA = !"Hello World\r"
dim as integer iNum=33

sleep 2000,1
locate 1,1,0

var TMR = timer
for CNT as integer = 0 to 2^12
  print iNum;TestA;
next CNT
TMR = timer-TMR

var TMR2 = timer
for CNT as integer = 0 to 2^12
  print iNum;!"Hello World\r";
next CNT
TMR2 = timer-TMR2

var TMR3 = timer
for CNT as integer = 0 to 2^12
  printf !"%i Hello World\r",iNum
next CNT
TMR3 = timer-TMR3


print TMR*1000, "from string"
print TMR2*1000, "from zstring"
print TMR3*1000, "printf"

sleep