Since you are just using numbers instead of names you can shorten that up a bit more with:
Code:
/run local p,t=print,{33201,33202,33198,33199,33200,33216,33217}p("Title Text")for i=1,#t do p(i,IsQuestFlaggedCompleted(t[i])and"\124cff00ff00Completed"or"\124cffff0000Not completed")end
With all the quest ids so close numerically you can shrink it even more:
Code:
/run local p,t=print,{3,4,0,1,2,18,19}p("Title Text")for i=1,#t do p(i,IsQuestFlaggedCompleted(33198+t[i])and"\124cff00ff00Completed"or"\124cffff0000Not completed")end