Реферат: Реализация языкового процессора оператора FOR языка BASIC
if(open_file()==FALSE) // если файл не удалось откpыть
{
window(1,1,80,24);
textbackground(BLACK);
clrscr();
return;
}
fseek(fd,0,0);
num_err=0; //
cur_str=0; // обнуляем значения
next=0; //
display(); // отобpажаем файл
fseek(fd,0,0);
while(next!=EOF) // пока не дойдем до конца файла
{
cur_str++;
instr();
}
getch();
window(1,1,80,24);
textbackground(BLACK);
clrscr();
}
/***************************************************************/
/* */
/* Функция считывания слова */
/* */
/***************************************************************/
char* reading()