RosettaCodeData/Task/Terminal-control-Coloured-text/FreeBASIC/terminal-control-coloured-text.basic

for i as uinteger = 0 to 15
    color i, 15-i
    print "Colour "+str(i),
    if i mod 4 = 3 then color 0,0: print
next i