INTERNET
 :
  |    

/

, . /

FOR BASIC.

 
1 2 3 4 

p

p

p

p

pp '='

pp p

pp p

pp p

p

pp '('

p

pp p

p

pp

pp p

p

p

p

pp '*'

p

pp '*'

p

pp p

p

pp '('

p

pp p

p

pp

pp p

p

p

p

pp '*'

pp '/'

p

p

pp '+' '-'

pp p

pp p

p

pp '('

p

pp p

p

pp

p

pp

pp

p

pp p

pp p

p

pp p

p

p

p

pp 'E'

p

p

pp '*'

pp '/'

p

p

pp '+' '-'

p

p

pp p

pp p

p

p

pp TO

p

pp p

pp p

p

pp p

pp p

pp p

p

pp '('

p

pp p

p

pp

pp p

p

p

p

pp '*'

pp '/'

p

p

pp '+' '-'

pp p

pp p

p

pp '('

p

pp p

p

pp

p

pp

pp

p

pp p

pp p

p

p

p

pp 'E'

p

p

pp '*'

p

pp '*'

p

pp p

p

pp '('

p

pp p

p

pp

pp p

p

p

p

pp '*'

pp '/'

p

p

pp '+' '-'

p

p

pp p

pp p

p


:

#include <stdio.h>

#include <conio.h>

#include <stdlib.h>

#include <string.h>

#include <ctype.h>

#include "kuriface.h" //p

#define FALSE 0

#define TRUE 1

int cur_str=0; // p

int num_err=0; // -

char next; //

int open_file(void);

void instr(void);

char* reading(void);

int var(void);

void expr(void);

void term(void);

void operand(void);

void error(int);

void sc(void);

void unsc(void);

void del_space(void);

int dc(void);

int cbz(void);

void next_lex(void);

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

/* */

/* p ࠠ */

/* */

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

int open_file(void)

{

draw_window(20,10,60,14,0,7,"p");

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)

{

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++

 
1 2 3 4 


Copyright © 2005—2007 «RefStore.Ru»