' ===========================================================================
'   FILE: MAKBITST.BIT
'
'   Support routines for QuickBASIC 4.5.
'
'           Copyright (c) 1991
'           Daniel R. Berry (Traveller Software)
'           All Rights Reserved
'
'   This code is released to the Public Domain for distribution with the
'   QBNews.
'
'   Daniel R. Berry
'   3110-C S. Gen McMullen
'   San Antonio, TX  78226
'

' ===========================================================================
'   SUBPROGRAM: MakeBitStr
'   Version 1.5  By: Dan Berry (c) Traveller Software  1988 - 1991
' ========================= MakeBitStr SubProgram ===========================
SUB MakeBitStr (Number%, BitString$)
    DEFINT A-Z
'
'   First - Set the BitString to zeros
'
    BitString$ = STRING$(16, "0")
'
'   Then - set the bit positions accordingly
'
    IF Number AND &H8000 THEN MID$(BitString$, 1, 1) = "1"
    IF Number AND &H4000 THEN MID$(BitString$, 2, 1) = "1"
    IF Number AND &H2000 THEN MID$(BitString$, 3, 1) = "1"
    IF Number AND &H1000 THEN MID$(BitString$, 4, 1) = "1"
    IF Number AND &H800 THEN MID$(BitString$, 5, 1) = "1"
    IF Number AND &H400 THEN MID$(BitString$, 6, 1) = "1"
    IF Number AND &H200 THEN MID$(BitString$, 7, 1) = "1"
    IF Number AND &H100 THEN MID$(BitString$, 8, 1) = "1"
    IF Number AND &H80 THEN MID$(BitString$, 9, 1) = "1"
    IF Number AND &H40 THEN MID$(BitString$, 10, 1) = "1"
    IF Number AND &H20 THEN MID$(BitString$, 11, 1) = "1"
    IF Number AND &H10 THEN MID$(BitString$, 12, 1) = "1"
    IF Number AND &H8 THEN MID$(BitString$, 13, 1) = "1"
    IF Number AND &H4 THEN MID$(BitString$, 14, 1) = "1"
    IF Number AND &H2 THEN MID$(BitString$, 15, 1) = "1"
    IF Number AND &H1 THEN MID$(BitString$, 16, 1) = "1"
' ===================== End of MakeBitStr SubProgram ========================
    END SUB