Anonymous user
Execute HQ9+: Difference between revisions
Added DWScript
(Add Seed7 example) |
(Added DWScript) |
||
Line 177:
}
</lang>
=={{header|DWScript}}==
{{Trans|D}}
procedure RunCode(code : String);
var
i : Integer;
accum, bottles : Integer;
begin
for i:=1 to Length(code) do begin
case code[i] of
'Q', 'q' : PrintLn(code);
'H', 'h' : PrintLn('Hello, world!');
'9' : begin
bottles:=99;
while bottles>1 do begin
Print(bottles); PrintLn(' bottles of beer on the wall,');
Print(bottles); PrintLn(' bottles of beer.');
PrintLn('Take one down, pass it around,');
Dec(bottles);
if bottles>1 then begin
Print(bottles); PrintLn(' bottles of beer on the wall.'#13#10);
end;
end;
PrintLn('1 bottle of beer on the wall.');
end;
'+' : Inc(accum);
else
PrintLn('Syntax Error');
end;
end;
end;
=={{header|E}}==
| |||