home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / gam / jack.ba < prev    next >
Text File  |  2006-10-19  |  3KB  |  53 lines
  1. 0 'JACK.BA Unknown
  2. 1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 2 CLS:PRINT@0,"Wait...":CLEAR 400:DIM C$(52),H$(2,10),H(2,10),D(2),T(2),PR(2):L$=RIGHT$(TIME$,2):FOR I=1 TO VAL(L$):R=RND(1):NEXTI:B$="23456789TJQKA":FOR SUIT=0 TO 3:FORI=1 TO 13:A$=A$+MID$(B$,I,1)+CHR$(156+SUIT):NEXTI:NEXT SUIT
  4. 3 FORI=1 TO52:C$(I)=MID$(A$,2*I-1,2):NEXTI:CLS:J=52:INPUT"What is your starting bankroll";S
  5. 4 INPUT"Bet";B:IF B>S THEN PRINT"You don't have that much!":GOTO4
  6. 5 IF J<40 THEN 7
  7. 6 CLS:J=0:PRINT@80,"Shuffling...":FOR I=52 TO 1 STEP -1:R=INT(RND(1)*I+1):T$=C$(I):C$(I)=C$(R):C$(R)=T$:NEXT I
  8. 7 CLS:NS=0:SP=1:FOR I=0 TO 2:D(I)=0:T(I)=0:NEXTI:PR(0)=40:PR(1)=120:PR(2)=160:PRINT@240,"Bet:";B;"   ";"Bankroll:";S:PRINT@0,"Dealer:":PRINT@80,"Player:":K=1:GOSUB46:PRINT@120,H$(1,1):K=0:GOSUB46:PRINT@40,H$(0,1):K=1:GOSUB46:PRINT@123,H$(1,2)
  9. 8 K=0:GOSUB46:PRINT@43,CHR$(239);CHR$(239):IF T(1)<>21 THEN 10
  10. 9 S=S+(B/2):PRINT@160,"Player Blackjack    "
  11. 10 IF H(0,1)<>11 AND H(0,1)<>1 THEN 14
  12. 11 PRINT@200,"Insurance (Y or N)? "
  13. 12 I$=INKEY$:IF I$="" THEN 12
  14. 13 IF I$="y" THEN NS=1
  15. 14 IF T(0)<>21 THEN S=S-(B/2)*NS:GOTO 17
  16. 15 PRINT@43,H$(0,2):PRINT@160,"Dealer Blackjack    ":IF T(1)=21 THEN S=S-(B/2)+NS*B:GOTO40
  17. 16 S=S+NS*B:GOTO 40
  18. 17 IF T(1)=21 THEN 40
  19. 18 K=1:IF H(1,1)=1 THEN 20
  20. 19 IF H(1,1)<>H(1,2) THEN 25
  21. 20 PRINT@200,"Split (Y or N)?";STRING$(25," ")
  22. 21 I$=INKEY$:IF I$="" THEN 21
  23. 22 IF I$<>"y" THEN 25
  24. 23 IF H(1,1)=1 THEN H(1,1)=11
  25. 24 H(2,1)=H(1,2):T(1)=H(1,1):T(2)=H(2,1):H$(2,1)=H$(1,2):PRINT@123,"  ":PRINT@160,H$(2,1):PR(1)=120:SP=2:GOTO34
  26. 25 PRINT@200,"Double (Y or N)?";STRING$(24," ")
  27. 26 I$=INKEY$:IF I$="" THEN 26
  28. 27 IF I$<>"y" THEN 29
  29. 28 B=2*B:PRINT@244,B:K=1:GOSUB46:PRINT@PR(K),H$(1,3):IF BUST=0 THEN 37 ELSE T(K)=-1:GOTO40
  30. 29 PRINT@200,"Hit (Y or N)?";STRING$(27," ")
  31. 30 I$=INKEY$:IF I$="" THEN 30
  32. 31 IF I$="y" THEN 34
  33. 32 IF SP=2 THEN K=2:SP=3:GOTO34
  34. 33 GOTO 37
  35. 34 GOSUB46:PRINT@PR(K),H$(K,D(K)):IF BUST=0 THEN 29
  36. 35 T(K)=-1:IF SP=2 THEN K=2:SP=3:GOTO34
  37. 36 GOTO 40
  38. 37 PRINT@43,H$(0,2):IF T(0)>=17 THEN 40
  39. 38 K=0:GOSUB46:PRINT@PR(0),H$(0,D(0)):IF T(0)<17 THEN 38
  40. 39 IF BUST=1 THEN T(0)=0
  41. 40 FORK=1 TO 2:IF T(K)=0 THEN 44
  42. 41 IF T(K)>T(0) THEN R$="Player wins":S=S+B:GOTO 43
  43. 42 IF T(K)=T(0) THEN R$="Tie" ELSE R$="Player loses":S=S-B
  44. 43 PRINT@(PR(K)+5),R$
  45. 44 NEXT K:PRINT@200,STRING$(40," "):PRINT@43,H$(0,2):PRINT@240,"              Bankroll:";S:IF S<=0 THEN PRINT"Your Broke!":END
  46. 45 GOTO 4
  47. 46 D(K)=D(K)+1:BUST=0:J=J+1:K$=C$(J):Z$=LEFT$(K$,1):IF Z$="A" THEN V=11:GOTO 48
  48. 47 IF Z$="T" OR Z$="J" OR Z$="Q" OR Z$="K" THEN V=10 ELSE V=VAL(Z$)
  49. 48 H$(K,D(K))=K$:H(K,D(K))=V:T(K)=T(K)+V:IF T(K)<=21 THEN 51
  50. 49 FOR I=1 TO D(K):IF H(K,I)=11 THEN H(K,I)=1:T(K)=T(K)-10:GOTO 51
  51. 50 NEXT I:BUST=1
  52. 51 PR(K)=PR(K)+3:RETURN
  53.