I need help with those line of code from SIMSIMP.BAS

Ok, this code has been taken from SIMSIMP.BAS.
I need help with those line of code. How to set-up to have the player�s first two cards to be 2 Aces and the dealer�s up card to be a Ten?

I appreciate.

Robin
===============================

' Deal a round of cards

Handnum = 1

  FOR P = 1 TO Players                              ' Player's

  CardNum = 0                                       ' first

  HardTotal(P, 1) = 0: AceFlag(P, 1) = 0            ' card  

  GOSUB DealOne

  NEXT P



 P = 0                                              ' Dealer's

CardNum = 0                                         ' first

HardTotal(0, 1) = 0: AceFlag(0, 1) = 0              ' card

GOSUB DealOne: Upcard = Hit



  FOR P = 1 TO Players

  CardNum = 1                                       ' Player's

  GOSUB DealOne                                     ' second

  NumHands(P) = 1                                   ' card

  NumCards(P, 1) = 2

  NEXT P



P = 0                                               ' Dealer's

CardNum = 1                                         ' second

GOSUB DealOne: HoleCard = Hit                       ' card

NumCards(0, 1) = 2