Реферат: Реализация языкового процессора оператора 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)