10 graphic 5,1
20 for i=0 to 15
30 color 5,i:print "rosetta code!"
40 next i
50 graphic 0,1
60 for i=0 to 15
70 color 5,i:print "rosetta code!"
80 next i
90 end