lang.pas

unit lang;

interface

uses programStr,f,basic;

//Switch to Const in 1.0
var 
    WelcomeMsg,DoneMsg,TkMsg:String;
    LoadText,DateText,TimeText,InputText,OutputText,InfoText,ExitText:String;
    HelpTextClear,HelpTextColor,HelpTextDate,HelpTextDec,HelpTextExit:String;
    HelpTextHelp,HelpTextInfo,HelpTextPause,HelpTextPreans,HelpTextPrint:String;
    HelpTextRun,HelpTextTime,HelpTextEqn2,HelpTextGcd,HelpTextLcm:String;
    HelpTextFact,HelpTextGraph,HelpTextVer:String;
    eqn0Text,eqn1Text,eqn2Text:String;
    GNotEnabledMsg,GEnabledMsg,GDisabledMsg,GLoadMsg,GCloseMsg:string;
    ErrorId0,ErrorId1,ErrorId2,ErrorId3,ErrorId4,ErrorId5,ErrorId6:String;
    ErrorId7:String;

procedure ActiveLang(s:String);
procedure Help;
procedure Info;

implementation

procedure Info;
begin
    write(#13#10,CopyrightInfo,#13#10,ProgramInfo,' Build Time:',BuildTime,#13#10,InfoText);
end;


procedure LangVi;
begin
    write(#208'ang T'#229'i Gói Ng'#244'n Ng'#252'. . .');

    DoneMsg:='Xong!';
    WelcomeMsg:='Chao mung ban den voi '+ProgramInfo;
    TkMsg:='Cam on ban da tham gia chuong trinh thu nghiem VMath BETA';

    LoadText:='Dang Tai...';
    InfoText:='Lap Trinh Boi Winux8yt3. Website Du An: bit.ly/vmath-io';
    InputText:='Nhap';
    OutputText:='Xuat';
    ExitText:='Thoat chuong trinh ?';

    HelpTextInfo:='Thông tin ph'#7847'n m'#7873'm';
    HelpTextClear:='Xoá màn hình';
    HelpTextDate:='In ra ngày';
    HelpTextDec:='Do dai phan thap phan trong ket qua toan hoc';
    HelpTextExit:='Thoát';
    HelpTextHelp:='Huong dan su dung';
    HelpTextPause:='Tam dung chuong trinh';
    HelpTextPreans:='In ra ket qua luc truoc';
    HelpTextPrint:='In dong chu';
    HelpTextRun:='Chay File .vmath';
    HelpTextTime:='In ra thoi gian';
    HelpTexteqn2:='Tinh phuong trinh bac 2';
    HelpTextGcd:='Uoc chung lon nhat';
    HelpTextLcm:='Boi chung nho nhat';
    HelpTextFact:='Phan tich thanh cac thua so nguyen to';
    HelpTextGraph:='BAT/TAT che do do hoa';
    HelpTextVer:='Phiên ban phan mem';

    eqn0Text:='Khong co nghiem';
    eqn1Text:='1 nghiem: ';
    eqn2Text:='2 nghiem: ';

    GNotEnabledMsg:='Do hoa chua duoc kich hoat';
    GEnabledMsg:='Do hoa da duoc kich hoat.';
    GDisabledMsg:='Do hoa da bi tat.';
    GLoadMsg:='Dang nap che do do hoa . . .';
    GCloseMsg:='Dang tat che do do hoa . . .';

    ErrorId1:='Sai cau truc hoac sai cau lenh. Go `help` de co danh sach cac cau lenh.';
    ErrorId2:='Phep chia cho 0.';
    ErrorId3:='Tep khong ton tai.';
    ErrorId4:='Cho Nhap So';
    ErrorId5:='Bien chua xac dinh';
    ErrorId6:='Loi do hoa';
    ErrorId7:='Khong co X';
end;

procedure LangEn;
begin
    write('Loading Language Pack . . .');

    DoneMsg:='Done!';    
    WelcomeMsg:='Welcome you to '+ProgramInfo;
    TkMsg:='Thanks for participating VMath BETA Program';

    LoadText:='Loading...';
    InfoText:='Programmed by Winux8yt3. Project Website: bit.ly/vmath-io';
    InputText:='Input';
    OutputText:='Output';
    ExitText:='Exit program ?';

    HelpTextInfo:='About the Program';
    HelpTextClear:='Clear screen';
    HelpTextColor:='Change text and background color';
    HelpTextDate:='Print date';
    HelpTextDec:='Number of decimal place in math result';
    HelpTextExit:='Exit';
    HelpTextHelp:='Instruction';
    HelpTextPause:='Pause the program';
    HelpTextPreans:='Print last math answer';
    HelpTextPrint:='Print text';
    HelpTextRun:='Run .vmath File';
    HelpTextTime:='Print time';
    HelpTexteqn2:='Calculate quadratic equation';
    HelpTextGcd:='Greatest common divisor';
    HelpTextLcm:='Least common multiple';
    HelpTextFact:='Factorization to Prime';
    HelpTextGraph:='ACTIVE/EXIT Graph mode';
    HelpTextVer:='Program Version';

    eqn0Text:='No Solution';
    eqn1Text:='1 Solution: ';
    eqn2Text:='2 Solutions: ';

    GNotEnabledMsg:='Graphic Not Yet Activated';
    GEnabledMsg:='Graphic Already Activated.';
    GDisabledMsg:='Graphic Already Closed.';
    GLoadMsg:='Loading Graphic . . .';
    GCloseMsg:='Closing Graphic . . .';

    ErrorId1:='Syntax Error or Input Error. Enter `help` for commands list';
    ErrorId2:='Division By Zero.';
    ErrorId3:='Invalid File.';
    ErrorId4:='Expecting Number.';
    ErrorId5:='String not exist';
    ErrorId6:='Graphic Error';
    ErrorId7:='Expecting X';
end;

procedure ActiveLang(s:String);
begin
    case upcase(s) of
        'VI','1'    :   LangVi;
        'EN','0'    :   LangEn;
    else if (s<>'') and (ChkFile(s)=0) then ReadLang(s) else LangEn;
    end;
end;

procedure Help;
begin
    writeln;
	writeln('?,INFO     : ',HelpTextInfo);
    writeln('COLOR      : ',HelpTextColor);
	writeln('CLEAR      : ',HelpTextClear);
	writeln('DATE       : ',HelpTextDate);
	writeln('DEC        : ',HelpTextDec);
	writeln('EXIT       : ',HelpTextExit);
	writeln('FACT,PTNT  : ',HelpTextFact);
	writeln('GCD,UCLN   : ',HelpTextGcd);
	writeln('GRAPH      : ',HelpTextGraph);
	writeln('LCM,BCNN   : ',HelpTextLcm);
	writeln('HELP       : ',HelpTextHelp);
	writeln('PREANS     : ',HelpTextPreans);
	writeln('PRINT      : ',HelpTextPrint);
	writeln('PTB2,EQN2  : ',HelpTexteqn2);
	writeln('RUN        : ',HelpTextRun);
	writeln('TIME       : ',HelpTextTime);
    writeln('VER        : ',HelpTextVer);
	writeln;
	write('EQUATION    + | - | * | / | ^');
end;

end.