home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 15 / CDACTUAL15.iso / cdactual / program / basic / QBNWS202.ZIP / RODENT.ZIP / MAKBITNM.BIT < prev    next >
Encoding:
Text File  |  1991-04-14  |  2.0 KB  |  52 lines
  1. ' ===========================================================================
  2. '   FILE: MAKBITNM.BIT
  3. '
  4. '   Support routines for QuickBASIC 4.5.
  5. '
  6. '           Copyright (c) 1991
  7. '           Daniel R. Berry (Traveller Software)
  8. '           All Rights Reserved
  9. '
  10. '   This code is released to the Public Domain for distribution with the
  11. '   QBNews.
  12. '
  13. '   Daniel R. Berry
  14. '   3110-C S. Gen McMullen
  15. '   San Antonio, TX  78226
  16. '
  17. '
  18.  
  19. ' ===========================================================================
  20. '   SUBPROGRAM: MakeBitNum
  21. '   Version 1.1  By: Dan Berry (c) Traveller Software  1988 - 1991
  22. ' ========================= MakeBitNum SubProgram ===========================
  23. SUB MakeBitNum (BitString$, Number%)
  24.     DEFINT A-Z
  25. '
  26. '   First - Ensure number is set to 0 and BitString has all 16 positions
  27. '
  28.     Number = 0
  29.     Bits$ = RIGHT$(STRING$(16, "0") + BitString$, 16)
  30. '
  31. '   Then - Convert each bit as necessary
  32. '
  33.     IF MID$(Bits$, 16, 1) = "1" THEN Number = Number + &H1
  34.     IF MID$(Bits$, 15, 1) = "1" THEN Number = Number + &H2
  35.     IF MID$(Bits$, 14, 1) = "1" THEN Number = Number + &H4
  36.     IF MID$(Bits$, 13, 1) = "1" THEN Number = Number + &H8
  37.     IF MID$(Bits$, 12, 1) = "1" THEN Number = Number + &H10
  38.     IF MID$(Bits$, 11, 1) = "1" THEN Number = Number + &H20
  39.     IF MID$(Bits$, 10, 1) = "1" THEN Number = Number + &H40
  40.     IF MID$(Bits$, 9, 1) = "1" THEN Number = Number + &H80
  41.     IF MID$(Bits$, 8, 1) = "1" THEN Number = Number + &H100
  42.     IF MID$(Bits$, 7, 1) = "1" THEN Number = Number + &H200
  43.     IF MID$(Bits$, 6, 1) = "1" THEN Number = Number + &H400
  44.     IF MID$(Bits$, 5, 1) = "1" THEN Number = Number + &H800
  45.     IF MID$(Bits$, 4, 1) = "1" THEN Number = Number + &H1000
  46.     IF MID$(Bits$, 3, 1) = "1" THEN Number = Number + &H2000
  47.     IF MID$(Bits$, 2, 1) = "1" THEN Number = Number + &H4000
  48.     IF MID$(Bits$, 1, 1) = "1" THEN Number = Number + &H8000
  49. ' ====================== End of MakeBitNum SubProgram =======================
  50.     END SUB
  51.  
  52.