//โปรแกรมพิมพ์ 10101....สลับกันไปทั้งหมด 60 อักษร
for ning = 1 to 60
?? ltrim(str(mod(ning,2)))
next