BEGIN
    EXTERNAL CLASS demos ;
    demos
        BEGIN
        ! comments start with "!" or " comment " and ends with ; ! even if ; ! is not on the same line ;
        ! all variable names you choose are NOT casesensitive , meaning that NAVN is the same as navn is the same as Navn .... ;
        ! here you define all you variables ;

        REAL lambdaN, lambda;
        INTEGER M,V,S,T;
        BOOLEAN variables_of_type_boolean ;

        ! define random varaible ;

        !REF ( rdist ) (e.g., " NEGEXP ") ;
        !REF ( idist ) random_variates_of_type_integer (e.g. , " UNIFORM ") ;
        !REF ( bdist ) random_variates_of_type_boolean (e.g. , " DRAW ");

        ! EXTRA : if two dimeninsional tables are needed , with 10+1 elements in each dimension ;
        !REAL ARRAY realvaule_tab (0:10 ,0:10) ;
        !REF ( rdist ) ARRAY rdist_tab (0:10 ,0:10) ;
        REF ( res ) ARRAY grid( -6:6 , -5:5) ;

        ! same with waitq , condq , tally , etc ... ;
        !REF ( tally ) stat ;
        !REF ( waitq ) ;
        !REF ( condq ) LQ;

        integer var1;
        var1:=1;

        ! generate cars, east and north;
        Entity class GeneratorEast;
        begin
            integer i;
            i := 1;
            loop:
                new car(edit("car",i)).schedule(now);
                hold(20);
            i := i + 1;
            repeat;
        end***GeneratorEast***;

        Entity class GeneratorNorth;
        begin
            integer i;
            i := 1;
            loop:
                new car(edit("car",i)).schedule(now);
                hold(20);
            i := i + 1;
            repeat;
        end***GeneratorNorth***;

        entity CLASS car();
        BEGIN
            boolean direction;
            integer speed;
            integer xpos, ypos;

            if var1 = 0 then
                direction = false
            else
                direction = true;

            if direction = false then
                begin
                    grid(0,-5).acquire(1);
                    xpos := 0;
                    ypos := -5;
                end

            else
                begin
                    grid(-6,0).acquire(1);
                    xpos := -6;
                    ypos := 0;
                end;

loop:
                speed := 15/(4 +1);
                hold(20.0);

                ! trafikk lys;

                if direction then
                    begin
                        if xpos +1 := 0 then
                            outtext("Lyskryss neste");
                    end;
                if not direction then
                    begin
                        if ypos +1 := 0 then
                            outtext("Lyskryss neste");
                    end;
                if direction := false then
                    begin
                        ypos := ypos + 1;
                        grid(xpos,ypos).acquire(1);
                        grid(xpos,ypos-1).release(1);
                    end
                else
                    begin
                    xpos := xpos + 1;
                    grid(xpos,ypos).acquire(1);
                    grid(xpos-1,ypos).release(1);
                    end;
stop;

        ! generate segment resources;
        for i=-6 step 1 until 6 do
            grid(i,0) :- new res(edit("grid",i),1);

        for i=-5 step 1 until 5 do
            grid(0,i) :- new res(edit("grid",i),1);



    end;
end;