Source for 'fdisk' (Xenix to DOS)

[Cliff Manis]

      Source for a -->   fdisk    <--   ?  ?  ?

  Does anyone have any source code to a look-alike of "fdisk" which would
  work on SCO 2.2.1 or higher.  I want to just 'hard code' the repartition
  back to DOS when I press 'F5' or something...   yes, it can be done in a
  script, but would someone have any look-a-like 'fdisk.c' around or maybe
  have seen one, available via FTP or where-ever.  I am really tryng to get
  away from the flashing of screens when I change it via script... and I
  will reply to any notes sent...   ..and thanks...   cliff