05-17-2005, 01:06 AM
My entry function:
[syntax="QBasic"]
function rol%(orig as integer)
rol% = (((orig * 4) or (orig \ (2^14))) * sgn(orig)) and &HFFFF
end function
[/syntax]
Program used for testing it:
[syntax="QBasic"]
declare function rol%(orig as integer)
cls
numIn$ = "x"
do
line input "Number (blank to quit): ", numIn$
print rol%(val(numIn$))
loop until numIn$ = ""
end
function rol%(orig as integer)
rol% = (((orig * 4) or (orig \ (2^14))) * sgn(orig)) and &HFFFF
end function
[/syntax]
Tested in FreeBASIC, not QB.
[syntax="QBasic"]
function rol%(orig as integer)
rol% = (((orig * 4) or (orig \ (2^14))) * sgn(orig)) and &HFFFF
end function
[/syntax]
Program used for testing it:
[syntax="QBasic"]
declare function rol%(orig as integer)
cls
numIn$ = "x"
do
line input "Number (blank to quit): ", numIn$
print rol%(val(numIn$))
loop until numIn$ = ""
end
function rol%(orig as integer)
rol% = (((orig * 4) or (orig \ (2^14))) * sgn(orig)) and &HFFFF
end function
[/syntax]
Tested in FreeBASIC, not QB.
img]http://www.cdsoft.co.uk/misc/shiftlynx.png[/img]