Department numbers: Difference between revisions

=={{header|BASIC}}==

==={{header|Sinclair ZX81 BASIC}}===

Works with 1k of RAM. This program ought not to need more than minimal changes to be compatible with any old-style BASIC dialect.

<lang basic>10 PRINT "POLICE SANITATION FIRE"

20 FOR P=2 TO 7 STEP 2

30 FOR S=1 TO 7

40 IF S=P THEN NEXT S

50 LET F=(12-P)-S

60 IF F>0 AND F<=7 AND F<>S AND F<>P THEN PRINT " ";P;" ";S;" ";F

70 NEXT S

80 NEXT P</lang>

{{out}}

<pre>POLICE SANITATION FIRE

2 3 7

2 4 6

2 6 4

2 7 3

4 1 7

4 2 6

4 3 5

4 5 3

4 6 2

4 7 1

6 1 5

6 2 4

6 4 2

6 5 1</pre>