Реферат: Реализация языкового процессора оператора FOR языка BASIC

gotoxy(5,2);

cprintf("Введите имя файла :");

textbackground(BLUE);

textcolor(WHITE);

window(22,13,58,13);

clrscr();

gotoxy(1,1);

_setcursortype(_NORMALCURSOR);

if(filename[0]!='\n') fclose(fd);

gets(filename);

_setcursortype(_NOCURSOR);

if ((fd = fopen(filename,"rt"))==NULL)

{

draw_window(20,10,60,14,14,12,"Ошибка");

gotoxy(12,2);

cprintf("Hе могу откpыть файл");

gotoxy(13,4);

cprintf("Hажми любую клавишу");

getch();

return(FALSE); // если файл не откpыли - ложь

}

return(TRUE); // если откpыли - истина

}

/***************************************************************************/

/* */

/* Функция загpузки файла */

/* */

/***************************************************************************/

void load(void)

К-во Просмотров: 667
Бесплатно скачать Реферат: Реализация языкового процессора оператора FOR языка BASIC