RosettaCodeData/Task/Department-numbers/Sinclair-ZX81-BASIC/department-numbers.basic
2023-07-01 13:44:08 -04:00

8 lines
213 B
Text

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