home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 16 / 16.iso / t / t200 / 1.img / CLUSTER.BAS < prev    next >
Encoding:
BASIC Source File  |  1993-11-13  |  2.8 KB  |  76 lines
  1. '******************************CLUSTER.BAS*******************************
  2. '
  3. 'I'm Getting a 535 MB Hard drive. Want to know how to use FDISK.EXE to
  4. 'partition it most effectively. Most files are NOT 8K (8192 bytes) long
  5. 'and only one file fits per cluster. Using 8K Clusters on a 100 MB drive
  6. 'gave me 12 MB (sic) of "Slack Space"; Using MS-DOS 5.0 (or greater)
  7. 'with FDISK.EXE and reformating the drive gave me 2 K Clusters and regained
  8. '6 Megabytes of disk space... Worth doing.... If you are the fearless type
  9. 'and have really and truly backed up your hard drive to TWO tapes and run
  10. 'the tape compare on BOTH of them.
  11. '
  12. 'John De Palma on CompuServe 76076,571
  13. '11/12/93
  14. DECLARE SUB SetBorder (ColrByte%)
  15. DEFLNG A-Z
  16. COLOR 15, 1
  17. CLS
  18. KiloByte = 2 ^ 10
  19. MegaByte = 2 ^ 20
  20. EightKCluster = 2 ^ 13
  21. FourKCluster = 2 ^ 12
  22. TwoKCluster = 2 ^ 11
  23. CONST row% = 2
  24. NumberPerMega = MegaByte / EightKCluster
  25. CALL SetBorder(4)
  26. text$ = "Cluster Size vs Hard Drive Size"
  27. LOCATE row%, 41 - LEN(text$) / 2
  28. COLOR 11, 0: PRINT text$
  29. text$ = "-ALMOST- Every Thing you Need to Know about Clusters..."
  30. LOCATE row% + 1, 41 - LEN(text$) / 2
  31. COLOR 11, 2: PRINT text$
  32. text$ = "Or... How many Hard Drive Partitions to Make with 2K Clusters"
  33. COLOR 11, 3: LOCATE row% + 2, 41 - LEN(text$) / 2
  34. PRINT text$
  35.  
  36. COLOR 15, 1
  37. LOCATE row% + 4, 10
  38. PRINT "One Kilobyte equals: "; TAB(55); KiloByte; " bytes"
  39. LOCATE row% + 5, 10
  40. PRINT "One Megabyte equals: "; TAB(49);
  41. PRINT USING "###,###,###"; MegaByte;
  42. LOCATE row% + 7, 10
  43. PRINT "Eight K Cluster equals: "; TAB(55); EightKCluster; " bytes"
  44. LOCATE row% + 8, 10
  45. PRINT "Four  K Cluster equals: "; TAB(55); FourKCluster
  46. LOCATE row% + 9, 10
  47. PRINT "Two   K Cluster equals: "; TAB(55); TwoKCluster
  48. LOCATE row% + 11, 10
  49. PRINT "Eight K Clusters per MB is: "; TAB(56); MegaByte / EightKCluster; " Number"
  50. LOCATE row% + 12, 10
  51. PRINT "Four  K Clusters per MB is: "; TAB(56); MegaByte / FourKCluster
  52. LOCATE row% + 13, 10
  53. PRINT "Two  K Clusters per MB  is: "; TAB(56); MegaByte / TwoKCluster
  54.  
  55. 'use integer divisor to round down
  56.  
  57. LOCATE row% + 15, 10
  58. PRINT "Max Hard disk size with 2 MB clusters is: "; TAB(56); : COLOR 11 + 16, 1: PRINT 65518 \ (MegaByte / TwoKCluster); : COLOR 15, 1: PRINT " MB"
  59. COLOR 15, 1
  60. LOCATE row% + 16, 10
  61. PRINT "Max Hard disk size with 4 MB clusters is: "; TAB(56); 65518 \ (MegaByte / FourKCluster); " MB"
  62. LOCATE row% + 17, 10
  63. PRINT "Max Hard disk size with 8 MB clusters is: "; TAB(56); 65518 \ (MegaByte / EightKCluster); " MB"
  64.  
  65. text$ = "MAXIMUM Number of Clusters = 65,518"
  66. LOCATE row% + 20, 41 - LEN(text$) / 2
  67. COLOR 11, 0: PRINT text$
  68. text$ = "Press any key to END..."
  69. LOCATE row% + 21, 41 - LEN(text$) / 2
  70. COLOR 15, 4: PRINT text$
  71. WHILE INKEY$ <> "": WEND                'clear keyboard
  72. DO
  73. kee$ = INKEY$
  74. LOOP UNTIL LEN(kee$)                    'pause
  75.  
  76.