Umiestnenie súboru www.TrSek.com/cover/benkovic/cursorof.pas

{ CURSOROF.PAS                           Copyright (c) Jan Benkovic }
{ Program ktory demonstruje vypnutie kurzoru.                       }
{                                                                   }
{ Datum:03.10.1999                             http://www.trsek.com }

uses crt;

var c: char;

procedure Ano;
begin
Writeln(' Vybral si si Ano ');
readkey;
end;

Procedure Nie;
begin
Writeln(' Vybral si si Nie ');
readkey;
end;

Procedure KurzopVyp;
begin
asm
  mov ah,1
  mov cx,2000h
  int 10h
end;
end;

begin
clrscr;
KurzopVyp;
Writeln ('             (A)NO ');
Writeln ('             (N)IE ');

repeat
  c:=readkey
until (c='a') or (c='A') or (c='N') or (c='n');

case c of
   'A' : Ano;
   'a' : Ano;
   'N' : Nie;
   'n' : Nie;
end;
end.

Copyrigth by Zdeno Sekerak 2007, http://www.trsek.com