JS.Vm

WScript.Echo("Привет!");
if (WScript.Arguments.Length==0) //если пустая строка
    WScript.Echo("Введите имя программы и имя файла. Также Вы можете ввести /? для вызова справки.");
else
{
    var obj = new ActiveXObject("Scripting.FileSystemObject");
    var fso = obj.OpenTextFile(WSH.Arguments(0));
    var array = new Array();
    var num = /^-?[0-9]+$/;
    var ssilka;
    while (!fso.AtEndOfStream)
    {
        var text = fso.ReadLine();
        array=array.concat(text.split(' '));
    }


    var ip=0;
    while (true)
    {
        switch (array[ip])
        {

            case 'input' :
            array[array[ip+1]]=WScript.StdIn.ReadLine();
            if (num.test(array[array[ip+1]])==0)
            {
                WScript.Echo('Не является числом или число не является целым');
                WScript.Quit();
            }
            else
                array[array[ip+1]]=parseInt(array[array[ip+1]]);
            ip++;
            break


            case 'output' :
            WScript.Echo(array[array[ip+1]]);
            ip++;
            break

            case 'sum' :
            array[array[ip+3]]=parseInt(array[array[ip+1]])+parseInt(array[array[ip+2]]);
            ip+=3;
            break

            case 'rasnost' :
            array[array[ip+3]]=parseInt(array[array[ip+1]])-parseInt(array[array[ip+2]]);
            ip+=3;
            break

            case 'proizvedenie' :
            array[array[ip+3]]=parseInt(array[array[ip+1]])*parseInt(array[array[ip+2]]);
            ip+=3;
            break

            case 'chastnoe' :
            array[array[ip+3]]=parseInt(array[array[ip+1]])/parseInt(array[array[ip+2]]);
            ip+=3;
            break


            case 'goto' :
            ssilka=array[ip+1];
            ip=0;
            while ((array[ip+1]!="ssilka") || (array[ip+2]!=ssilka))
                ip++;
            ip+=2;
            break


            case 'exit' :
            WScript.Quit();
            break


            case 'equ' :
            if (array[array[ip+1]]==array[array[ip+2]])
            {
                ssilka=array[ip+3];
                ip=0;
                while ((array[ip+1]!="ssilka") || (array[ip+2]!=ssilka))
                    ip++;
                ip+=2;
            }
            else
                ip+=3;
            break


            case 'more' :
            if (array[array[ip+1]]>array[array[ip+2]])
            {
                ssilka=array[ip+3];
                ip=0;
                while ((array[ip+1]!="ssilka") || (array[ip+2]!=ssilka))
                    ip++;
                ip+=2;
            }
            else
                ip+=3;
            break


            case 'less' :
            if (array[array[ip+1]]<array[array[ip+2]])
            {
                ssilka=array[ip+3];
                ip=0;
                while ((array[ip+1]!="ssilka") || (array[ip+2]!=ssilka))
                    ip++;
                ip+=2;
            }
            else
                ip+=3;
            break


            case 'modul' :
            array[array[ip+2]]=Math.abs(array[array[ip+1]]);
            ip+=2;
            break
        }
        if (ip-array.length==1)
            ip=0;
        else
            ip++;
    }
}


ТЕКСТОВЫЙ ДОКУМЕНТ NOD
0 0 1 0 Ошибка НетНОД ВведитеЧисло ВведитеЧисло
output 6
input 0
output 7
input 1
modul 0 0
modul 1 1
equ 0 3 10
equ 1 3 11
ssilka 1
equ 0 1 13
less 0 1 2
rasnost 0 1 0
goto 1
ssilka 2
rasnost 1 0 1
goto 1
ssilka 13
output 0
exit
ssilka 10
equ 1 3 12
output 1
exit
ssilka 12
output 5
exit
ssilka 11
equ 0 3 12
output 0
exit

ТЕКСТОВЫЙ ФАКТОРИАЛ
0 0 1 0 1 НеСуществует 170 СлишкомБольшоеЧисло ВведитеЧисло
output 8
input 0
less 0 3 1
less 6 0 5
equ 0 3 2
ssilka 3
sum 4 1 1
proizvedenie 2 1 2
less 1 0 3
output 2
exit
ssilka 1
output 5
exit
ssilka 2
output 2
exit
ssilka 5
output 7
exit