Autor: Will Smith (prince_at_optimus.wroc.pl)
Data: Thu 18 Dec 1997 - 21:22:13 MET
Leszek Pawłusiów <Leszekpa_at_Bigfoot.com> napisał(a) w artykule
<01bd0a4d$b22e9a00$d486ccc2_at_ppp>...
> Pawel Tadejko <ptad_at_box.zetobi.com.pl> napisał(a) w artykule
> <3.0.32.19971216182602.008c33c0_at_box.zetobi.com.pl>...
> >
> > >Nie mogę sobie poradzić z włączaniem i wyłączaniem kursora w Turbo
> Pascalu.
> > >Jeszcze na studiach to zrobiłem, ale gdzieś mi się zapodziało
> >
> > To chyba byly studia rolnicze. ;-)
> Pedagogiczne
>
> > Chyba jasne Video - przerwanie 10h (TechHelp, jakas ksiazka - "dos od
> srodka")
> > Podaje sie gorna i dolna linie maski kursora.
> > Wystarczy, ze dolna bedzie wyzej gornej i kursora brak
>
> To wiem, tylko która funkcja tego przerwania i w których rejestrach
> parametry?
>
> Leszek
>
Juz odpowiadałem na to pytanie, ale procedureki powinny wyjaśnić:
procedure UkryjKursor;
begin
rejestry.AH:=3;
Intr ($10,rejestry);
with rejestry do
begin
kp:=CH;
kk:=CL;
AH:=1;
CH:=16;
CL:=0
end;
Intr ($10,rejestry);
end;
procedure PokazKursor;
begin
with rejestry do
begin
AH:=1;
CH:=kp;
CL:=kk
end;
Intr ($10,rejestry)
end;
kk, kp :Integer;
rejestry : Registers
Fresh Prince
prince_at_optimus.wroc.pl
To archiwum zostało wygenerowane przez hypermail 2.1.7 : Tue 18 May 2004 - 16:38:38 MET DST