home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 15 / CDACTUAL15.iso / cdactual / program / basic / QBNWS202.ZIP / RODENT.ZIP / MAKBITST.BIT < prev    next >
Encoding:
Text File  |  1991-04-14  |  1.9 KB  |  50 lines
  1. ' ===========================================================================
  2. '   FILE: MAKBITST.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. '   SUBPROGRAM: MakeBitStr
  20. '   Version 1.5  By: Dan Berry (c) Traveller Software  1988 - 1991
  21. ' ========================= MakeBitStr SubProgram ===========================
  22. SUB MakeBitStr (Number%, BitString$)
  23.     DEFINT A-Z
  24. '
  25. '   First - Set the BitString to zeros
  26. '
  27.     BitString$ = STRING$(16, "0")
  28. '
  29. '   Then - set the bit positions accordingly
  30. '
  31.     IF Number AND &H8000 THEN MID$(BitString$, 1, 1) = "1"
  32.     IF Number AND &H4000 THEN MID$(BitString$, 2, 1) = "1"
  33.     IF Number AND &H2000 THEN MID$(BitString$, 3, 1) = "1"
  34.     IF Number AND &H1000 THEN MID$(BitString$, 4, 1) = "1"
  35.     IF Number AND &H800 THEN MID$(BitString$, 5, 1) = "1"
  36.     IF Number AND &H400 THEN MID$(BitString$, 6, 1) = "1"
  37.     IF Number AND &H200 THEN MID$(BitString$, 7, 1) = "1"
  38.     IF Number AND &H100 THEN MID$(BitString$, 8, 1) = "1"
  39.     IF Number AND &H80 THEN MID$(BitString$, 9, 1) = "1"
  40.     IF Number AND &H40 THEN MID$(BitString$, 10, 1) = "1"
  41.     IF Number AND &H20 THEN MID$(BitString$, 11, 1) = "1"
  42.     IF Number AND &H10 THEN MID$(BitString$, 12, 1) = "1"
  43.     IF Number AND &H8 THEN MID$(BitString$, 13, 1) = "1"
  44.     IF Number AND &H4 THEN MID$(BitString$, 14, 1) = "1"
  45.     IF Number AND &H2 THEN MID$(BitString$, 15, 1) = "1"
  46.     IF Number AND &H1 THEN MID$(BitString$, 16, 1) = "1"
  47. ' ===================== End of MakeBitStr SubProgram ========================
  48.     END SUB
  49.  
  50.