Модуль CRT

[DRAgon™]

Может кто-нибудь знает ,как зделать чтоб модуль CRT работал в модуле Graph?
Я пробывал создать свой модуль(MyCrt) ,но всеравно не появляется текст.Появляется только сам задний слой экрана и все.

[sergio11]

в модуль graph нужно специально шрифты скидывать с нета!

[DRAgon™]

куда именно,какие шрифты?

вот,наример, простейшая программа

Uses graph,
                      crt;
VAR device,mode:Integer;
BEGIN
device:=0;
initgraph(device,mode,'  ');
ClrScr;
setcolor(blue);
setTextStyle(3,0,8);
SetUserCharSize(2,2,2,2);
OuttextXY(240,200,'  New Game  ');
OuttextXY(240,230,'  Help  ');
OuttextXY(240,260,'  Level  ');
OuttextXY(240,290,'  Load Game  ');
OuttextXY(240,320,'  Exit ');
readln;
END.

Почему когда я убираю графический модуль у меня все идет нормально,а когда снова восстанавливаю его,то не запускается модуль CRT
из-за чего так?

[Stilet]

а когда снова восстанавливаю его

И где же тут восстановление прописано?

[DRAgon™]

Сообщение от Stilet

И где же тут восстановление прописано?

USES graph;
device:=0;
InitGraph(device,mode,'');
вот

[puporev]

не запускается модуль CRT

А что он вообще делает в этой программе?

[DRAgon™]

Uses graph,
                      crt;
VAR device,mode:Integer;
BEGIN
device:=0;
initgraph(device,mode,'  ');
ClrScr;
setcolor(blue);
setTextStyle(3,0,8);
SetUserCharSize(2,2,2,2);
OuttextXY(240,200,'  New Game  ');
OuttextXY(240,230,'  Help  ');
OuttextXY(240,260,'  Level  ');
OuttextXY(240,290,'  Load Game  ');
OuttextXY(240,320,'  Exit ');
readln;
END.

вот

[puporev]

Ну и где здесь хоть одна процедура из модуля CRT?

[puporev]

Если clrscr, то в графическом режиме экран очищает процедура
cleardevice

[DRAgon™]

ой ,извиняюсь, перепутал
вот

TextBackground(Black);
ClrScr;
TextColor(Yellow);
TextBackground(Blue);
GotoXY(32,17);
Writeln('W-up');
readln;