13 lines
358 B
Text
13 lines
358 B
Text
100 REM Department numbars
|
|
110 PRINT "POLICE SANITATION FIRE"
|
|
120 FOR P = 2 TO 7 STEP 2
|
|
130 FOR S = 1 TO 7
|
|
140 IF S <> P THEN
|
|
150 LET F = 12 - P - S
|
|
160 IF F <> S AND F <> P AND F >= 1 AND F <= 7 THEN
|
|
170 PRINT USING " # # #": P, S, F
|
|
180 END IF
|
|
190 END IF
|
|
200 NEXT S
|
|
210 NEXT P
|
|
220 END
|