I :::::I C(4),V$( )I "DO YOU WANT INSTRUCTIONS"I "(Type 0 for NO)";IJ I  JCJ K ,J$ J  "BUST";+PH X1 j >PR " ";V$(H)HP\  RPf D1$lPp (D1$,)"G" Pz (D1$,)"H"  P " RETYPE: ";: fPB2BP | P T1  P:T1PBB1B2PX2T1P j P | Q T1  Q"BUST";,Q" ";V$(H)6Q  ?Q D$XQ (D$,)"G" ` qQ$ (D$,)"H" Q. " RETYPE: ";:  QB BBQL | QV T1 Q` :T1;Qj " ";V$(H);Qt  Q~  Q " ";V$(C(L)); R T ~ R T  )R ":";T3R  CR ": BUST"MR CCBaR "YOU HAVE $";CkR R (D$,)"S"  R T1T  R T1T  R BBR  R TX1 n R TX1 2 R( CCB1R2 TX2 Z S< TX2  SF CCB2SP  (SZ CCB22Sd  =Sn CCB1GSx 2 YS T1  cS CCBvS " ";V$(H);S " BLACKJACK"S  S "BLACKJACK"S " ";S  S "BLACKJACK"S " ";V$(H);S T CC@BT  .T " INSURANCE ";I$GT (I$,)"Y" 6 UT" " ";_T, pT6 T T T@ CCBTJ " TT " 10";T^ T1  Th CCBTr  T| T1  T C(L)  T T1T1 U S1U T1T1C(L)%U V$(C(L));" ";/U LLBU T1  SU S1  `U T1T1 iU S1sU  |U T1U U U T : U C(L) : U& TT U0 SU: TTC(L)UD LLUN T v UX S v Vb TT Vl SVv YV :::"THIS BLACKJACK PROGRAM ENABLES THE OPERATOR TO PLAY HEAD-"V "TO-HEAD WITH THE COMPUTER, SIMULATING THE EXACT RULES AS"V "THOSE ON THE LAS VAGES STRIP. THE CARDS ARE DEALT FROM ONE"W "52-CARD DECK UNTIL A HAND STARTS WITH LESS THAN 12 CARDS"_W "REMAINING IN WHICH CASE IT RESHUFFLES. THE DEALER MUST HIT"W "THROUGH A TOTAL OF 16 AND STAND ON ALL TOTALS OF 17 AND ABOVE"W% "TYPE TO GO ON";W9X* :"THE INSURANCE BET IS OFFERED AT HALF THE PLAYERS BET WHEN"/X4 "THE DEALER'S UP-CARD IS AN ACE."qX> "YOU MAY DOUBLE-DOWN ON ANY TWO CARDS, AND RECIEVE ONE MORE"XC "CARD WHILE THE ORIGINAL BET IS DOUBLED"XH "YOU MAY SPLIT ANY HAND BUT RESPLITTING IS NOT ALLOWED."YR "ALSO, ONLY ONE CARD IS DELT ON EACH OF A PAIR OF ACES."^YW "YOUR CARDS APPEAR IN THE FAR LEFT COLUMN; THE DEALER ON THE"rY\ "FAR RIGHT. "Yf " THE COMMANDS ARE AS FOLLOWS:"Yp " HIT (DRAW ANOTHER CARD)"Yz " GOOD (STAND ON CURRENT TOTAL)"Z " DOUBLE (DOUBLE YOUR BET AND DRAW ONE CARD)"`Z " SPLIT (FORM TWO HANDS FROM A PAIR WITH THE ORIGINAL"Z " BET ON EACH HAND)"Z :"COMMANDS MAY BE TYPED IN AS THE FIRST LETTER"Z "TO EXIT PROGRAM ENTER 999 AS A BET":"GOOD LUCK":[ )"Z :"COMMANDS