home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 15 / CDACTUAL15.iso / cdactual / program / basic / QBNWS202.ZIP / RODENT.ZIP / GETHILOW.BIT < prev    next >
Encoding:
Text File  |  1991-04-14  |  1.2 KB  |  42 lines
  1. ' ===========================================================================
  2. '   FILE: GETHILOW.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. DECLARE SUB MakeBitNum (BitString$, Number%)
  18. DECLARE SUB MakeBitStr (Number%, BitString$)
  19.  
  20. ' ===========================================================================
  21. '   SUBPROGRAM: GetHightLow
  22. '   Version 1.1  By: Dan Berry (c) Traveller Software  1987 - 1991
  23. ' ========================== GetHighLow SubProgram ==========================
  24. SUB GetHighLow (Number%, High%, Low%)
  25. '
  26. '   First - Convert number to BitString.
  27. '
  28.     CALL MakeBitStr(Number%, BitString$)
  29. '
  30. '   Then - Break up the number into its respective parts
  31. '
  32.     High$ = LEFT$(BitString$, 8)
  33.     Low$ = RIGHT$(BitString$, 8)
  34. '
  35. '   Then - Convert the strings back to numbers
  36. '
  37.     CALL MakeBitNum(High$, High%)
  38.     CALL MakeBitNum(Low$, Low%)
  39. ' ====================== End of GetHigLow SubProgram ========================
  40. END SUB
  41.  
  42.