Department numbers: Difference between revisions
Content added Content deleted
Basicgames (talk | contribs) |
|||
Line 892: | Line 892: | ||
{{out}} |
{{out}} |
||
<pre>Same as FreeBASIC entry.</pre> |
<pre>Same as FreeBASIC entry.</pre> |
||
==={{header|Craft Basic}}=== |
|||
<syntaxhighlight lang="basic">print "P S F" |
|||
for p = 2 to 7 step 2 |
|||
for s = 1 to 7 |
|||
if s <> p then |
|||
let f = (12 - p) - s |
|||
if f > 0 and f <= 7 and f <> s and f <> p then |
|||
print p, " ", s, " ", f |
|||
endif |
|||
endif |
|||
next s |
|||
next p |
|||
end</syntaxhighlight> |
|||
==={{header|Run BASIC}}=== |
==={{header|Run BASIC}}=== |