Perhaps we can continue with the compacting and reduce the character count a few more:
Code:
/run local p,t=print,{3,4,0,1,2,18,19}p("Title Text")for i=1,#t do p(i,"\124cff"..(IsQuestFlaggedCompleted(33198+t[i])and"00ff00"or"ff0000Not ").."Completed")end