Czy waszym zdaniem Piotr R. jest seksowny?

Bo moim zdaniem wygląda jak panienka :-/

ze niby Rubik? :O

procedure Init13h;assembler; asm mov ax,13h {do rejestru AX przypisujemy wartość 13h (litera h przy wartości oznacza...} {...że liczba podana jest w systemie szesnastkowym} int 10h {i na ekran to (10h to przerywanie ekranu/video} end; Aby powrócić do trybu tekstowego wywołaj poniższa procedurę: procedure Close13h;assembler; asm mov ax,03h {do AX wartość 03h} int 10h {... i na ekran} end; OK, wiemy już jak zainicjować tryb 13h, więc przyszła pora na narysowanie pierwszego piksela, a do tego posłuży ta procedura: procedure putpixel(x,y:word; color:byte); begin mem:=color; { $0A000 to adres pamięci ekrany. Następnie obliczamy ...} {... przesunięci (offset) punktu ekranu, któremu ... {... przypisujemy wartość koloru.} end; To było jedno rozwiązanie. Wygląda nieźle, ale szybciej będzie tak: procedure putpixel(x,y:word; color:byte); begin mem[$0a000:(x+(y shl 6)+(y shl 8))]:=color; end;

hy???????? ; - /