home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / 3DCTRL.ZIP / GETBIT.PRG < prev    next >
Encoding:
Text File  |  1995-01-10  |  409 b   |  27 lines
  1. FUNCTION getBit
  2. PARAMETER pnVar, pnBit, puRetType
  3. PRIVATE i,j,retval
  4. lcRet=""
  5. IF pnVar=0
  6.     retval=.f.
  7. ELSE
  8.     i=0
  9.     DO WHILE 2^i<=pnVar
  10.         i=i+1
  11.     ENDDO
  12.     FOR j=i-1 TO 0 STEP -1
  13.         IF 2^j<=pnvar
  14.             lcRet=lcRet+"1"
  15.             pnvar=pnvar-2^j
  16.         ELSE
  17.             lcRet=lcRet+"0"
  18.         ENDIF
  19.     ENDFOR
  20.     IF pnBit>LEN(lcret)
  21.         retval=.f.
  22.     ELSE
  23.         retval=(SUBSTR(lcret,LEN(lcRet)-pnBit,1)=="1")
  24.     ENDIF
  25. ENDIF
  26. RETURN retval
  27.