Department numbers: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (→{{header|C sharp}}: Regularize header markup to recommended on category page) |
(→{{header|Minimal BASIC}}: Added) |
||
Line 840: | Line 840: | ||
150 NEXT |
150 NEXT |
||
160 NEXT</lang> |
160 NEXT</lang> |
||
==={{header|Minimal BASIC}}=== |
|||
{{trans|Sinclair ZX81 BASIC}} |
|||
<lang gwbasic> |
|||
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 90 |
|||
60 LET F = (12-P)-S |
|||
70 IF F <= 0 OR F > 7 OR F = S OR F = P THEN 90 |
|||
80 PRINT TAB(3); P; TAB(11); S; TAB(19); F |
|||
90 NEXT S |
|||
100 NEXT P |
|||
110 END |
|||
</lang> |
|||
==={{header|Sinclair ZX81 BASIC}}=== |
==={{header|Sinclair ZX81 BASIC}}=== |