Лабы+курсовик(1) / Посохов / Lab004M

Unit Lab004M;

Interface
Procedure DeleteCursor; {“¤ «Ґ­ЁҐ Єгаб®а }
Procedure ZeigeCursor; {‚®ббв ­®ў«Ґ­ЁҐ Єгаб®а }
Procedure PressAnyKey; {Ћ¦Ё¤ ­ЁҐ ­ ¦ вЁп «оЎ®© Є« ўЁиЁ}
Procedure Windows(X1,Y1,X2,Y2:Byte); {ђЁб®ў ­ЁҐ ®Є­ }
Procedure Cursor(H:Char;Var P:Byte;Predel:Byte); {ЏҐаҐ¬ҐйҐ­ЁҐ Єгаб®а  ¬Ґ­о}
Procedure Intro;{‡ бв ўЄ }

Implementation
Uses Crt;
{“¤ «Ґ­ЁҐ Єгаб®а .***********************************************************}
Procedure DeleteCursor;
Begin
Asm
mov AH,$01
mov CH,$20
mov CL,$20
int $10
End;
End;
{‚®ббв ­®ў«Ґ­ЁҐ Єгаб®а .*****************************************************}
Procedure ZeigeCursor;
Begin
Asm
mov AH,$01
mov CH,$03
mov CL,$04
int $10
End;
End;
{Ћ¦Ё¤ ­ЁҐ ­ ¦ вЁп «оЎ®© Є« ўЁиЁ.*********************************************}
Procedure PressAnyKey;
Var Key:Char;
BEGIN
TextColor(Yellow);
Write(Chr(16),' Ќ ¦¬ЁвҐ «оЎго Є« ўЁиг ',Chr(17));
TextColor(LightGray);
Key:=ReadKey;
If Key in [#59,#60,#61,#62,#63,#64,#65,#66,#67,#68,#72,#77,#75,#80] Then ReadKey;
END;
{ђЁб®ў ­ЁҐ ®Є­ .*************************************************************}
Procedure Windows(X1,Y1,X2,Y2:Byte);
BEGIN
TextBackGround(Black);
ClrScr;
Window(X1,Y1,X2,Y2);
TextBackGround(Blue);
ClrScr;
END;
{ЏҐаҐ¬ҐйҐ­ЁҐ гЄ § вҐ«п ¬Ґ­о.*************************************************}
Procedure Cursor(H:Char;Var P:Byte;Predel:Byte);
BEGIN
If (H=#72) and (P>1) then dec(P);
If (H=#80) and (P<Predel) then inc(P);
END;
{‡ бв ўЄ .******************************************************************}
Procedure Intro;
Const N=1;
Var I:Byte;
BEGIN
TextBackGround(Blue);
ClrScr;
{ ђҐ«мҐд! }
TextColor(White);
For I:=N to N+15 do Begin
TextBackGround(DarkGray);
GotoXY(21,6+I);
Write(' ');
TextBackGround(LightGray);
GotoXY(19,5+I);
Write(' ');
End;
GotoXY(19,N+4);Write ('ЙНННННННННННННННННННННННННННННННННННННННН»');
GotoXY(19,N+5);Write ('є ‘ЏЃѓќ’“ є');
GotoXY(19,N+6);Write ('є є');
GotoXY(19,N+7);Write ('є ‹ЂЃЋђЂ’ЋђЌЂџ ђЂЃЋ’Ђ ЌЂ ’…Њ“ є');
GotoXY(19,N+8);Write ('є є');
GotoXY(19,N+9);Write ('є "‘®бв ў«Ґ­ЁҐ Ў §л ¤ ­­ле" є');
GotoXY(19,N+10);Write ('є є');
GotoXY(19,N+11);Write ('є Џа®Ја ¬¬  "Student Ver 0.01" є');
GotoXY(19,N+12);Write ('є є');
GotoXY(19,N+13);Write ('є ‚лЇ®«­Ё«: бв㤥­в ЈагЇЇл 2211 (”ќ‹) є');
GotoXY(19,N+14);Write ('є Џ®б®е®ў Љ®­бв ­вЁ­ є');
GotoXY(19,N+15);Write ('є ‚« ¤Ё¬Ёа®ўЁз є');
GotoXY(19,N+16);Write ('є є');
GotoXY(19,N+17);Write ('є ЏаҐЇ®¤ ў вҐ«м: Ђ«ҐЄб ­¤а Ѓ®аЁб®ўЁз є');
GotoXY(19,N+18);Write ('є  и­Ґў є');
GotoXY(19,N+19);Write ('є 01.12.2002 є');
GotoXY(19,N+20);Write ('ИННННННННННННННННННННННННННННННННННННННННј');
TextBackGround(Red);
TextColor(White+16);
GotoXY(21,N+19);
Write(Chr(16),' Ќ ¦¬ЁвҐ «оЎго Є« ўЁиг ',Chr(17));
ReadKey;
TextColor(LightGray);
END;
{Ћб­®ў­®© Ў«®Є ¬®¤г«п.*******************************************************}
BEGIN
DeleteCursor; {г¤ «Ґ­ЁҐ Єгаб®а }
Intro; {‚맮ў § бв ўЄЁ}
END.