10
This commit is contained in:
parent
ba729d81c8
commit
3cfc270b03
@ -59,7 +59,7 @@ program pr;
|
|||||||
lectstatus := 'F1 - <20>®¬®éì T - ’¥áâ ESC - Œ¥î';
|
lectstatus := 'F1 - <20>®¬®éì T - ’¥áâ ESC - Œ¥î';
|
||||||
teststatus := 'F1 - <20>®¬®éì L - ‹¥ªæ¨¨ ESC - Œ¥î';
|
teststatus := 'F1 - <20>®¬®éì L - ‹¥ªæ¨¨ ESC - Œ¥î';
|
||||||
menustatus := 'ESC - ‚ë室 UP,DOWN,LEFT,RIGHT - <20>¥à¥¤¢¨¦¥¨¥ ªãàá®à ENTER - <20>¥à¥å®¤';
|
menustatus := 'ESC - ‚ë室 UP,DOWN,LEFT,RIGHT - <20>¥à¥¤¢¨¦¥¨¥ ªãàá®à ENTER - <20>¥à¥å®¤';
|
||||||
path := 'D:\TP\BIN\annimon\';
|
path := 'annimon\';
|
||||||
{Menu Lekcii}
|
{Menu Lekcii}
|
||||||
for i:= 1 to 10 do
|
for i:= 1 to 10 do
|
||||||
begin
|
begin
|
||||||
@ -117,7 +117,6 @@ program pr;
|
|||||||
outtextxy(99, 170,author);
|
outtextxy(99, 170,author);
|
||||||
outtextxy(239, 230, dtpa);
|
outtextxy(239, 230, dtpa);
|
||||||
repeat until keypressed;
|
repeat until keypressed;
|
||||||
menu;
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
{Vyvod pomoschi pri chtenii lekcii}
|
{Vyvod pomoschi pri chtenii lekcii}
|
||||||
|
Loading…
Reference in New Issue
Block a user