unit scanner;



interface



uses CRT;

const

ALNG = 30; {Number of significant chars in identifiers.}

eof = #26;

tab = #009;

LineFeed = # 010;

space = #032;

car_return= #013;



type

Alfa = string[ALNG];



{ recognized symbol tokens. }

tokens = (

t_int, t_add, t_sub, t_mul, t_rdiv, t_double_mul,

t_assign { ' := ' },

t_lbrack { ' [ ' }, t_rbrack { ' ] ' },

t_lparent { ' ( ' }, t_rparent { ' ) ' },

t_id, t_else, t_if, t_then

 ); 

Misi pak, agan2. Script diatas itu pake bahasa apa? Scriptnya dibikin pake aplikasi apa? Mohon bantu saya pak, agan2.