//a and b=  0 adding zero to a number must result 0
//a nor b = 0 a can never be not 0 inb resullt
//a xnor b =0 a cant be exclusively not 0 simultaneously

//b=1
//or
//1 and b =1 and 1 to a number will always be true
//1 or 1 = true unless both values are 1
//1 not 1 = 0 they are both different then result 1
// xnor 1 =1 (exclusively not both therefore true)
//1 xor 1 = 1 (exclusively) unless different

/*
Bitwise table ref
&  -and- r=x~~y
|  -or-  r=x||y
//! not- r=x<>y
~  -not- r=x<>y
^  -xor- r=x<>y
>> -right shift- r=a>>value
<< -left shift-- r=a<<value
*/
/* Commands

move forward
move backward
turn left
turn right

scan ahead
scan right
scan back
scan left

shoot ahead
shoot right
shoot back
shoot left

and
or
not

type progress
	rActive as integer   //0 not yet or completed, 1 can do,2 must do,3 reset all to 0
	currCommand as integer //holds a command (1 to 15) 0 is none
	rAnd as integer       //holds and values 0 1 2
	rOr as integer        //holds or values  0 1 2  (1 is true, 2 is false)
	rNot as integer       //0 1 active 2 (currCommand 0)
	rDoubleTime           //0 1 doubleit (move etc)  
endtype


progression 
and
true rAnd (move and move) currCommand set Move rDoubleTime =1
true rAnd (scan and move) currCommand set Move
true rAnd (scan and scan) currCommand Set Scan rDoubleTime =0
true rAnd (rotate and rotate) currCommand setRotate rDoubleTime =1
true rAnd (scan and rotate) currCommand Set Rotate 
true rAnd (shoot and shoot) currCommand Set shoot Set rDoubleTime =0

or
true rOr  (scan or move) currCommand set Move
true rOr   (scan or rotate) currCommand set Rotate 
true rOr   (scan or shoot) currCommand set shoot

true rNot  rNot set active  set rDoubleTime = 0 
  
*/

type progress
	rActive as integer   //0 not yet or completed, 1 can do,2 must do,3 reset all to 0
	currCommand as integer //holds a command (1 to 12) 0 is none
	rAnd as integer       //holds and values 0 1 2
	rOr as integer        //holds or values  0 1 2  (1 is true, 2 is false)
	rNot as integer       //0 1 active 2 (currCommand 0)
	rDoubleTime           //0 1 doubleit (move etc)  
endtype


//processing a robotic tank functions
function botAnd(robot as robot)
	
endfunction

function botOr(robot as robot)
	
endfunction
		
function botNot(robot as robot)
	
endfunction 
	
//gate processing logic
function andGate (a as integer,b as integer)
	result=a&&b //(A && B) is false.
endfunction result

function orGate (a as integer,b as integer)
	result=a||b //(A || B) is true.
endfunction result

function notGate (a as integer,b as integer)
	result=!(a&&b) //!(A && B) is true.
endfunction result

//Bitwise mathematics for integer math
function BitwiseAnd(x as integer,y as integer)
	r as integer
	r=x~~y
endfunction r

function BitwiseOr(x as integer,y as integer)
	r as integer
	r=x||y
endfunction r

function BitwiseNot(x as integer,y as integer)
	r as integer
	r=x<>y
endfunction r

function BitwiseNor(a as integer)
	r as integer
	l as string
	l=str(a)
	s as string
	For i=len(l) to 0 step -1
		s=(str(i)+"="+Bin(i))
    next i
    if val(s) then r=val(s,2)
endfunction r

function BitwiseXor(x as integer,y as integer)
	r as integer
	r=x^y
endfunction r

function BitwiseXNor(a as integer,b as integer)
	r as integer
	rs as string
	d as integer
	c as string
	//c=str(BitwiseOr(a,b))
    //r=(val(c,2))
    r=a<>b^a<>b
    rs=bin(r)
    r=0^a<>b
    r=val(str(r),2)

endfunction	r

function BitwiseToString(a as integer)
	l as string
	l=str(a)
	s as string
	For i=0 to len(l)
		s=(str(i)+"="+Bin(i))
    next i
endfunction s

/// >>>>>extras

function BitwiseShiftLeft(a as integer,value as integer)
	if value=0 then exitfunction 0
	r as integer
	r=a<<value
endfunction r

function BitwiseShiftRight(a as integer,value as integer)
	if value=0 then exitfunction 0
	r as integer
	r=a>>value
endfunction r 
	
function BitwiseShift(a as integer, opp as integer, value as integer)
	r as integer
	if value=-0 then exitfunction 0
	if Opp = 0 then exitfunction 0
	if opp > 0 
		r=a>>value 
		exitfunction r
	endif	
	if opp < 0 
		r=a<<value 
		exitfunction r
	endif
endfunction 0 //(failed a variable needs setting to do this correct)