aSpeedForward(Speed) :-
	between(1,900,round(Speed)),
	write('Motor A: Speed forward: '),
	write(Speed),nl.
aSpeedForward(Speed) :-
	\+ between(1,900,round(Speed)),
	write('Niedopuszczalna prędkość obrotowa!').

aSpeedBackward(Speed) :-
	between(1,900,round(Speed)),
	write('Motor A: Speed backward: '),
	write(Speed),nl.
aSpeedBackward(Speed) :-
	\+ between(1,900,round(Speed)),
	write('Niedopuszczalna prędkość obrotowa!').

aRotate(Angle) :-
	write('Motor A: Rotating. Angle: '),
	write(Angle),nl.


bSpeedForward(Speed) :-
	between(1,900,round(Speed)),
	write('Motor B: Speed forward: '),
	write(Speed),nl.
bSpeedForward(Speed) :-
	\+ between(1,900,round(Speed)),
	write('Niedopuszczalna prędkość obrotowa!').

bSpeedBackward(Speed) :-
	between(1,900,round(Speed)),
	write('Motor B: Speed backward: '),
	write(Speed),nl.
bSpeedBackward(Speed) :-
	\+ between(1,900,round(Speed)),
	write('Niedopuszczalna prędkość obrotowa!').

bRotate(Angle) :-
	write('Motor B: Rotating. Angle: '),
	write(Angle),nl.