home *** CD-ROM | disk | FTP | other *** search
/ Intermedia 1998 January / inter1_98.iso / www / rozi / BUJANIE.PAS < prev    next >
Pascal/Delphi Source File  |  1997-12-15  |  458b  |  25 lines
  1. program aaa;
  2. uses crt;
  3.  
  4. var
  5.   i:integer;
  6.  
  7. begin
  8.   for i:=0 to 63 do
  9.    write('wyswietlam bzury i bzdety na ekranie');
  10.   i:=0;
  11.   repeat
  12.     port[$3d4]:=8;
  13.     port[$3d5]:=8+round(7*sin(pi*i/32));
  14.   if port[$3da]=0 then;
  15.     port[$3c0]:=$33;
  16.     port[$3c0]:=round(4+3*cos(pi*i/32));
  17.    repeat until (port[$03da] and 8)=0;
  18.    repeat until (port[$03da] and 8)=8;
  19.    inc(i);
  20.   until keypressed;
  21.   asm
  22.     mov ax,03h
  23.     int 10h
  24.   end;
  25. end.