100 doors: Difference between revisions
→{{header|Pascal}}
Basicgames (talk | contribs) |
Basicgames (talk | contribs) |
||
Line 9,271:
WriteLn('Close doors: ' + ACloseDoors);
end. </syntaxhighlight>
=={{header|Pebble}}==
<syntaxhighlight lang="pebble">;100 doors example program for x86 DOS
;Compiles with Pebble to 95 bytes com executable
program examples\100doors
data
int i[0]
int d[0]
begin
label loop
+1 [i]
[d] = [i] * [i]
echo [d]
crlf
if [d] < 100 then loop
pause
kill
end</syntaxhighlight>
=={{header|Perl}}==
| |||