I can suggest the following solution:

Code:
Torque   Var Byte

Select Case Torque

Case Torque = 25 
PortD.6 = 0: PortD.5 = 0

Case Torque = 50
PortD.6 = 0: PortD.5 = 1

Case Torque = 75
PortD.6 = 1: PortD.5 = 0

Case Torque = 100
PortD.6 = 1: PortD.5 = 1

End Select
Cheers

Al.