Department numbers: Difference between revisions

Content added Content deleted

Inline

@@ Line 941: / Line 941: @@
 ==={{header|Minimal BASIC}}===
 {{trans|Sinclair ZX81 BASIC}}
-<syntaxhighlight lang="gwbasic">
+<syntaxhighlight lang="basic">
 REM Department numbers
 PRINT "POLICE SANITATION FIRE"
 FOR P = 2 TO 7 STEP 2
 FOR S = 1 TO 7
-IF S = P THEN 90
+IF S = P THEN 120
 LET F = (12-P)-S
-IF F <= 0 OR F > 7 OR F = S OR F = P THEN 90
+IF F <= 0 THEN 120
+IF F > 7 THEN 120
-PRINT TAB(3); P; TAB(11); S; TAB(19); F
-NEXT S
+IF F = S THEN 120
-NEXT P
+IF F = P THEN 120
+PRINT TAB(3); P; TAB(11); S; TAB(19); F
-END
+NEXT S
+NEXT P
+END
 </syntaxhighlight>