PRINT "Police Sanitation Fire"
   PRINT "------|----------|----"
10 LET P = P + 2
   LET S = 0
20 LET S = S + 1
   LET F = 0
   IF S = P THEN GOTO 20
30 LET F = F + 1
   IF S = F THEN GOTO 30
   IF F = P THEN GOTO 30
   IF P + S + F = 12 THEN PRINT "  ",P,"        ", S,"       ", F
   IF F < 7 THEN GOTO 30
   IF S < 7 THEN GOTO 20
   IF P < 6 THEN GOTO 10