// Pentru transformatorul T1
aar=1;
IF t1 =0 
THEN
  t1 = 1;
ELSE
  t1=0;
END

// Pentru transformatorul T2

aar=0;
IF t2 =0 
THEN
  t2 = 1;
ELSE
  t2=0;
END

// Pentru transformatorul T3

IF t3 =0 
THEN
  t3 = 1;
ELSE
  t3=0;
END

// Pentru transformatorul T4

IF t4 =0 
THEN
  t4 = 1;
ELSE
  t4=0;
END

//Pentru generatorul G1

IF g1 =0 
THEN
  g1 = 1;
  aar=1;
ELSE
  g1=0;
END

//Pentru comutatoare, s-a setat "On simbol when" astfel:

// Pentru comutatorul K1

NOT( aar OR g1 OR t1)

// Pentru comutatorul K2

aar AND  NOT(t2)

// Ppentru comutatorul K4

NOT(aar)

// Pentru comutatorul K3 si K5

aar

FUNCTION comut()

	IF (g1=0) AND (t1=0) THEN
		k1= 1;
		k2= 0;
		k3= 0;
		k4= 1;
		k5= 0;
	ELSE
		k1= 0 ;
		k2= 1 ;
		k3= 1 ;
		k4= 0 ;
		k5= 1 ;
	END
	
	IF T2 =1 THEN
		k2=0;
	END

	IF T3 =1 THEN
		k3=0;
		k4=1
	END
	
	IF (T4 =1) AND (K1=1) THEN
		k2=0;
		k5=1;
		k4=0;
		k3=1;
	END
	IF (T3 =1) AND (K2=1) THEN
		k3=0;
		k4=1;
	END
	
END

FUNCTION alim_1()
	sep[1]=1 // SL1=on
	intr[1]=1 // IL=on
	sep[2]=1 // SL2=on
	sep[3]=0 // SL3=off	
	sep[4]=0 // SL0=off	
	
	sep[8]=0 // ST0=off
	sep[7]=1 // ST1=on
	intr[2]=1 // IT=on
	sep[5]=0 // ST2=off
	sep[6]=1 // ST3=on	
END

FUNCTION alim_2()
	sep[1]=1 // SL1=on
	intr[1]=1 // IL=on
	sep[2]=0 // SL2=off
	sep[3]=1 // SL3=on	
	sep[4]=0 // SL0=off
		
	sep[8]=0 // ST0=off
	sep[7]=1 // ST1=on
	intr[2]=1 // IT=on
	sep[5]=1 // ST2=on
	sep[6]=0 // ST3=off
		
END

FUNCTION ecran_11()

	IF (sep[1] AND sep[2] AND intr[1]) OR (sep[4]) THEN
		b1=1
		b2=0
	ELSE
		b1=0
	END
	
	IF sep[1] AND sep[3] AND intr[1] THEN
		b1=0
		b2=1
	ELSE
		b2=0
	END
	IF (b1 AND sep[6] AND intr[2] AND sep[7]) OR (b2 AND sep[5] AND intr[2] AND sep[7]) OR (b1 AND sep[8]) THEN
		l1=1
	ELSE
		l1=0
	END
END

// Pentru IL

IF NOT sep[4] THEN
   toggle(intr[1]);
     Prompt("  ");
ELSE
     Prompt(" Este conectat SL0 ");
END

// Pentru SL0

IF NOT( intr[1] OR  intr[2] OR sep[8])THEN
      toggle(sep[4])
      Prompt(" ");
ELSE
      Prompt("Este conectat IT IL sau ST0");
END

// Pentru SL1

IF NOT intr[1] THEN
      toggle(sep[1])
      Prompt(" ");
ELSE
      Prompt(" Este conectat IL ");
END

// Pentru SL2

IF NOT( intr[1] OR sep[3]) THEN
     toggle(sep[2])
     Prompt("  ");
ELSE
     Prompt(" Este conectat IL sau SL3 ");
END

// Pentru SL3

IF NOT( intr[1] OR sep[2]) THEN
     toggle(sep[3])
     Prompt("  ");
ELSE
     Prompt(" Este conectat IL sau SL2 ");
END

// Pentru IT

IF NOT sep[8] THEN
   toggle(intr[2]);
     Prompt("  ");
ELSE
     Prompt(" Este conectat ST0 ");
END


// Pentru ST0

IF NOT b1 THEN
     toggle(sep[8])
     Prompt("  ");
ELSE
     Prompt(" Este tensiune pe B I ");
END

// Pentru ST1

IF NOT intr[2] THEN
    toggle(sep[7])
END

// Pentru ST2

IF NOT( intr[2] OR sep[6])THEN
    toggle(sep[5])
     Prompt("  ");
ELSE
     Prompt(" Este conectat IT sau ST3 ");
END

// Pentru ST3

IF NOT( intr[2] OR sep[5])THEN
      toggle(sep[6])
     Prompt("  ");
ELSE
     Prompt(" Este conectat IT sau ST2 ");
END