0 ' BJACK.BA - AUTHOR UNKNOWN              Modified for T200 by Steve St.laurent
1 'Club 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
2 DIMC(52):PM=1000:FORLL=61556TO61619:POKELL,0:NEXTLL:CLS:LINE(70,24)-(115,52),1,B:LINE(120,24)-(165,52),1,B:PRINT@173," ACE";:PRINT@181," JACK";:GOSUB44:CLS:PRINT@120,"PLEASE TYPE YOUR NAME AND PRESS 'ENTER'":PRINT:LINEINPUTN$
3 KEYOFF:IFPM<=0THENGOTO37
4 PP=1:CS=2:PA=0:CA=0:PT=0:CT=0:CR=2:PC=81:CP=201:GOSUB45:PRINT:PRINTN$;", YOU HAVE $";PM
5 PRINT@200,"";:INPUT"PLEASE ENTER YOUR BET";BET:BET=INT(BET):IFBET>PMTHENGOSUB46:GOTO5
6 IFSGN(BET)=-1ORSGN(BET)=0THENGOSUB46:GOTO5
7 IFBET=PMTHENPRINT@293,CHR$(27);"p";" GO FOR IT !! ";CHR$(27);"q";:SOUND4000,15:SOUND3000,10:SOUND2000,8:FORDL=1TO500:NEXTDL
8 IFBET<100ANDPM>500THENPRINT@291,CHR$(27);"p";" YOU ARE CHEAP !! ";CHR$(27);"q";:SOUND4000,30:SOUND12000,30:FORDL=1TO500:NEXTDL
9 GOSUB45:GOSUB47:GOSUB48:PP=1:GOSUB49:ONKEYGOSUB17,39,25,37:PRINT@100,CHR$(155);"YOU";:PRINT@220,CHR$(155);"DEALER";:FORDL=1TO300:NEXTDL:PRINT@100,SPACE$(6);:PRINT@220,SPACE$(9);:PRINT@PC,C$;CHR$(156+SU);:PC=PC+8:PT=PT+CV:GOSUB49
10 PT=PT+CV:PRINT@PC,C$;CHR$(156+SU);:PC=PC+8:IFPA=2THENPA=1:PT=PT-10
11 CP=201:PP=0:GOSUB49:HC$=C$+CHR$(156+SU):CT=CT+CV:CP=CP+8:GOSUB49:CT=CT+CV:PRINT@CP,C$;CHR$(156+SU);:CP=CP-8:IFCA=2THENCA=1:CT=CT-10
12 IFPT=21ANDCT<>21THENPRINT@CP,HC$;:PRINT@280,"BLACKJACK $$$$$$$$$$$$           ";:PM=PM+BET+INT(BET/2):FORDL=1TO5:SOUND4000,10:SOUND8000,10:NEXTDL:GOTO3
13 IFCT=21ANDPT<>21THENPRINT@CP,HC$;:PRINT@280,"I HAVE BLACKJACK $$!! - YOU LOOSE  ";:PM=PM-BET:SOUND14000,15:SOUND16000,20:FORDL=1TO1000:NEXTDL:GOTO3
14 IFCT=21ANDPT=21THENPRINT@CP,HC$;:GOTO32
15 KEYON
16 PRINT@281,"HIT  DBL STAY QUIT";:FORWW=1TO200:NEXTWW:PRINT@280,SPACE$(39);:FORWW=1TO200:NEXTWW:IFNH=1THENNH=0:GOTO3:ELSEGOTO16
17 CR=CR+1:IFCR=3THENLINE(94,9)-(142,30),1,B:GOTO20
18 IFCR=4THENLINE(141,9)-(189,30),1,B:GOTO20
19 IFCR=5THENLINE(188,9)-(236,30),1,B
20 PP=1:GOSUB49:PRINT@PC,C$;CHR$(156+SU):PC=PC+8:PT=PT+CV
21 IFPT>21ANDPA<=0THENPRINT@280,N$;", YOU ARE BUSTED";:FORDL=1TO10:SOUND12000,DL:NEXTDL:PM=PM-BET:FORDL=1TO500:NEXTDL:NH=1:RETURN
22 IFPT>21ANDPA>0THENPA=PA-1:PT=PT-10
23 IFCR<>5THENRETURN
24 PRINT@280,"5 CARD CHARLIE - YOU WIN!!";:FORDL=1TO8:SOUND5000,DL:SOUND15000,DL:NEXTDL:PM=PM+BET+INT(BET/2):NH=1:RETURN
25 KEYOFF:PRINT@280,SPACE$(38);:PP=0:PRINT@CP,HC$:CP=CP+16:WC=94:IFCT>16THEN30
26 CS=CS+1:IFCS=6THENGOTO31:ELSELINE(WC,32)-(WC+48,53),1,B:GOSUB49
27 WC=WC+47:CT=CT+CV:PRINT@CP,C$;CHR$(156+SU);:CP=CP+8:IFCT>21ANDCA>0THENCA=CA=CA-1:CT=CT-10
28 IFCS=6ANDCT<22THENGOTO31
29 IFCT<=16THEN26
30 IFCT>21THENPRINT@280,"I'M BUSTED --- YOU WIN!!";:SOUND14000,20:SOUND10000,20:SOUND5000,20:SOUND3500,20:PM=PM+BET:GOTO35
31 IFCS>=5THENPRINT@280,"I'VE GOT A 5 CARD CHARLIE -- YOU LOSE";:PM=PM-BET:SOUND7500,20:SOUND5000,15:SOUND10000,20:GOTO35
32 IFCT=PTTHENPRINT@280,"PUSH............";:FORDL=7000TO10000STEP1000:SOUNDDL,8:NEXTDL:GOTO35
33 IFCT>PTTHENPRINT@280,"I WIN $$$$$$$$$";:SOUND16000,25:PM=PM-BET:GOTO35
34 IFCT<PTTHENPRINT@280,"YOU WON !!!!!";:SOUND3000,20:SOUND8000,20:SOUND3000,20:PM=PM+BET
35 FORDL=1TO1250:NEXTDL:IFCO>25THENGOSUB47
36 NH=1:RETURN
37 CLS:PRINT@80,"BYE BYE .. ";N$:IFPM>=1000THENPRINT@200,"YOUR WINNINGS ARE $";PM-1000:END:ELSE
38 PRINT@200,"YOU'VE JUST LOST $";ABS(PM-1000)" ...SUCKER!!":END
39 IFCR>2THENPRINT@280,"YOU CAN'T DOUBLE NOW --- DUMMY !!";:SOUND7500,20:SOUND13000,20:FORDL=1TO1000:NEXTDL:PRINT@280,SPACE$(38);:RETURN
40 IFBET*2>PMTHENPRINT@280,"YOU DON'T HAVE ENOUGH MONEY ****";:SOUND3000,10:SOUND15000,10:SOUND8000,10:FORDL=1TO1000:NEXTDL:PRINT@280,SPACE$(35);:RETURN
41 PP=1:CR=CR+1:LINE(94,9)-(142,30),1,B:GOSUB49:PRINT@PC,C$;CHR$(156+SU):PT=PT+CV:BET=BET*2:IFPT>21ANDPA<=0THENGOTO21
42 IFPT>21ANDPA>0THENPT=PT-10
43 GOTO25
44 FORLL=1TO5:PRINT@50,"WELCOME TO ";CHR$(27);"p";"BLACKJACK";CHR$(27);"q":FORDL=1TO60:NEXTDL:BEEP:PRINT@50,SPACE$(20);:FORDL=1TO60:NEXTDL,LL:RETURN
45 CLS:LINE(0,0)-(239,7),1,BF:PRINT@15," BLACKJACK ":LINE(0,7)-(239,7):RETURN
46 PRINT@280,"NO CHEATING IN THIS GAME!";:SOUND4000,10:SOUND10000,10:SOUND16000,10:FORDL=1TO750:NEXTDL:PRINT@223,SPACE$(96);:RETURN
47 CP=0:FORLL=1TO52:C(LL)=1:NEXTLL:RETURN
48 LINE(0,9)-(48,30),1,B:LINE(47,9)-(95,30),1,B:LINE(0,32)-(48,53),1,B:LINE(47,32)-(95,53),1,B:RETURN
49 SEC=VAL(RIGHT$(TIME$,2)):FORI=1TOSEC:DUM=RND(1):NEXTI:RN=INT(RND(1)*53):IFC(RN)=0THEN49
50 CO=CO+1:C(RN)=0:SU=RNMOD4::IFRN>4THENGOTO53:ELSEC$="ACE ":CV=11
51 IFPP=1THENPA=PA+1:ELSECA=CA+1
52 GOTO59
53 IFRN>40THENGOTO56:ELSEC$=STR$(INT(RN/4))+" ":CV=INT(RN/4)
54 IFRNMOD4<>0THENC$=STR$(INT(RN/4)+1)+" ":CV=INT(RN/4)+1
55 GOTO59
56 IFRN<45THENC$="JACK ":CV=10:GOTO59
57 IFRN<49THENC$="QUEEN":CV=10:GOTO59
58 C$="KING ":CV=10
59 RETURN