Procedure GotoCard(WhereTo:MonoOrColor)

    This swaps to either the colour or the mono card.

    Note that this only  makes  sufficient  changes  to satisfy the unit.
    It does not make sufficient  changes  for  the standard mouse driver.
    If you are  using  the  internal  mouse  driver,  there  will  be  no
    problem but if you are not using  the internal mouse driver, you will
    have to do the following:

    Switching to the colour card (EGA/VGA):

    1)  Call GotoCard

    2)  Execute the code in the fragment SWAPCARD.PAS, included with this
        unit.

    3)  Call interrupt 10h (make  sure  you set bit 7 which will stop the
        video buffer from  being  cleared)  with  the correct mode number
        (ah = 0, al = 128 + mode number).

    Switching to the mono card (or CGA):

    1)  Call GotoCard

    2)  Execute the code in the fragment SWAPCARD.PAS, included with this
        unit.

    3)  Save the video buffer of the card you are switching to.

    4)  Call interrupt 10h with the correct mode number or use
        TextMode(7,0,0,0) (for 80x25 monochrome mode) or
        TextMode(3,0,0,0) (for 80x25 CGA mode).

    If you are using the internal  mouse  driver then calling GotoCard is
    sufficient.

    Make sure  you  exit  the  program  to  the  same  screen the program
    started  on  (or  call  the  extra  code  in  SWAPCARD.PAS  and  call
    TextMode).