10 lines
259 B
Text
10 lines
259 B
Text
10 REM Department numbers
|
|
20 PRINT "POLICE SANITATION FIRE"
|
|
30 FOR P = 2 TO 7 STEP 2
|
|
40 FOR S = 1 TO 7
|
|
50 IF S = P THEN 80
|
|
60 LET F = (12-P)-S
|
|
70 IF F > 0 AND F <= 7 AND F <> S AND F <> P THEN PRINT " ";P;" ";S;" ";F
|
|
80 NEXT S
|
|
90 NEXT P
|
|
100 END
|