|
|
|
{ zwei.stein@worldonline.cz, zweistein.kgb.cz }
{
(c) Petr "Zweistein" Prokop
Program b@f :
problik v nˇ stavověch diod kl vesnice
}
procedure d(s : integer);assembler;
asm
mov ax, 03e8h
mul s
mov cx, dx
mov dx, ax
mov ah, 0086h
int 0015h
end;
function E : boolean;assembler;
asm
mov ah, 000bh
int 0021h
and al, 00feh
end;
var k : byte absolute $0040:$0017;
l : byte;
begin
l := 1;
repeat k := ($0010 shl l);
l:=(l+1) mod 3;d(150);
until E;
end. |
 |
 |
 |
|