11 lines
349 B
Text
11 lines
349 B
Text
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
|