dim as string cm = ""
for i as ubyte = 1 to 10
    print cm;str(i);
    cm = ", "
next i