home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / baslib1.zip / CONVERT2.BAS < prev    next >
BASIC Source File  |  1987-03-27  |  1KB  |  55 lines
  1. 'DEC,HEX,BIN,ASCII Number conversions
  2. 'By Jeff Bretz, John Craig
  3. 'Additional rwts & conversion to Quickbasic 2.01 By Dennis Dreyer
  4. 'CONVERT2.BAS
  5.  
  6. cls
  7. locate 9,30:Print    "                     "
  8. locate 10,30,0:Print "  Conversion2 Demo   "
  9. locate 11,30:Print " In Quickbasic 2.01 "
  10. locate 12,30:Print    "                     "
  11. color 4,4,1:locate 13,30:Print "                    "
  12. locate 8,30:Print "                    "
  13. for w=1 to 10000:next w
  14.  
  15.  
  16.  
  17. color 0,2:cls
  18. PRINT "Decimal, Hexadecimal, Binary, and ASCII Number Conversions"
  19. PRINT string$(79,61)
  20. PRINT "Decimal   Hexadecimal                              ";
  21. PRINT "Binary         ASCII"
  22. PRINT string$(34,32);" 7  6  5  4 - 3  2  1  0"
  23. PRINT string$(79,61)
  24.  
  25. view print 6 to 24
  26. locate,,0
  27. for y=0 to 255
  28. PRINT using "#######";Y;
  29. PRINT "            ";
  30.  
  31.     if len(hex$(y))<2 then PRINT "0";
  32.     PRINT hex$(y);
  33.     PRINT "             ";
  34.  
  35.     X=Y
  36.         PRINT abs(X>127);:X=X MOD 128
  37.         PRINT abs(X>63);:X=X MOD 64
  38.         PRINT abs(X>31);:X=X MOD 32
  39.         PRINT abs(X>15);:X=X MOD 16
  40.         PRINT "-";
  41.         PRINT abs(X>7);:X=X MOD 8
  42.         PRINT abs(X>3);:X=X MOD 4
  43.         PRINT abs(X>1);:X=X MOD 2
  44.         PRINT abs(X>0);
  45.     PRINT   "            ";
  46.  
  47. if (y>32) and (Y<128) then PRINT chr$(Y);
  48.  
  49. PRINT " "
  50. z=y+1:If z mod 10=0 then PRINT " "
  51. next
  52. for w=1 to 5000:next
  53. view print:cls
  54. end
  55.