INTERNET
 :
  |    

/

, . /

FOR BASIC.

 →  
1 2 3 4 

)==TRUE) return; // - p

error(7); // -

}

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

/* */

/* ࠠ */

/* */

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

int cbz(void)

{

if (dc()==FALSE) return(FALSE); // p

sc();

if(next=='E') // 'E'

{

sc();

if(isdigit(next))

{

while(isdigit(next)) sc(); // p

unsc();

return(TRUE); // p

}

return(FALSE); // p

}

unsc();

return(TRUE);

}

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

/* */

/*  */

/* */

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

int dc(void)

{

int i=0;

sc();

if(isdigit(next))

{

while(isdigit(next)) // p

{

sc(); //

if(next=='.'&&i!=1) // '.'

{

i=1;

sc(); //

}

}

unsc();

return(TRUE);

}

else

{

unsc();

return(FALSE);

}

}

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

/* */

/* p ꠠ */

/* */

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

void error(int i)

{

num_err++; //

gotoxy(1,num_err);

switch(i)

{

case 1: cprintf("%d . p",cur_str);

break;

case 2: cprintf("%d . TO",cur_str);

break;

case 3: cprintf("%d . FOR",cur_str);

break;

case 4: cprintf("%d . ",cur_str);

break;

case 5: cprintf("%d . ')'",cur_str);

break;

case 6: cprintf("%d . '='",cur_str);

break;

case 7: cprintf("%d . , - - ",cur_str);

break;

case 8: cprintf("%d . ",cur_str);

}

}

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

/* */

/* ࠠ */

/* */

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

void sc(void)

{

next=fgetc(fd);

}

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

/* */

/* p ꠠ */

/* */

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

void unsc(void)

{

ungetc(next,fd);

}

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

/* */

/* p ࠠ */

/* */

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

void next_lex(void)

{

sc();

while(next!=' ') sc(); // 1- p

unsc();

}

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

/* */

/* p⠠ */

/* */

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

void del_space(void)

{

char liter;

liter=fgetc(fd);

while((isspace(liter))) liter=fgetc(fd); // p

ungetc(liter,fd);

}

void main()

{

clrscr();

for (;;) //

{

switch (menu(27,8,"p ",ss)) //

{

case 0 : about();

break;

case 1 : grammatic();

break;

case 2 : language();

break;

case 3 : load();

break;

default : quit();

}

}

}

 →  
1 2 3 4 


Copyright © 2005—2007 «RefStore.Ru»