print "police fire sanitation"

for police = 2 to 7 step 2
    for fire = 1 to 7
        if fire = police then [cont]
        sanitation = (12-police)-fire
        if sanitation <= 0 or sanitation > 7 or sanitation = fire or sanitation = police then [cont]
    print "  "; police; chr$(9); fire; chr$(9); sanitation
[cont]
    next fire
next police