Package PartTest

Uses
    KbdCRT,Partition

Sub PrintStats
Enter
  ClearScreen
  PrintPSect
  PrintCR
  PrintS "BSH de la 1st partition active"
  PrintCR
  PrintBSH
Leave

Enter
  SetDrive &H01
  PrintStats
  PrintX SizeSector
Leave