Anonymous user
Department numbers: Difference between revisions
→{{header|Minimal BASIC}}: Added
Thundergnat (talk | contribs) m (→{{header|C sharp}}: Regularize header markup to recommended on category page) |
(→{{header|Minimal BASIC}}: Added) |
||
Line 840:
150 NEXT
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}}===
| |||