#!/usr/bin/apple1basic 10DIMA$(13),B$(4),C$(20),D$(20):A$="A23456789TJQK":B$="CDHS":N=52:S=0 15DIMA(52):FORI=1TO52:A(I)=I-1:NEXTI 20INPUT"WELCOME TO 21. YOUR NAME",C$:PRINT"OK, HERE WE GO ";C$;"." 30P=0:D=P:A1=P:A2=P:GOSUB3000:IFBTHEN35:PRINT"END--STOPPED AT 30":END 35PRINT"I SHOW ";:GOSUB2020:E=J:F=K:PRINT:PRINT"YOU HAVE ";:GOSUB2040:GOSUB2040:IFP<21THEN45 37PRINT"BLACKJACK!!":B=B+B/2:GOTO300 40PRINT"PLEASE ANSWER 'YES' OR 'NO'. "; 45IFP#11THEN50:INPUT"DO YOU WISH TO DOUBLE DOWN",D$:IFD$="N"ORD$="NO"THEN50:IFD$#"Y"ANDD$#"YES"THEN44:B=B+B 46GOSUB2040:GOTO60 50INPUT"HIT",D$:IFD$="N"ORD$="NO"THEN60:IFD$#"Y"ANDD$#"YES"THEN40:TAB11:GOSUB2040:IFP<22THEN50:PRINT"BUSTED ";:GOTO200 60PRINT:PRINT"MY CARDS:";A$(E,E);B$(F,F);" "; 70FORI=1TO600:NEXTI:IFD>17ORD=17ANDA2=0THEN80:GOSUB2020:GOTO70 80IFD>21THEN85:IFD>PTHEN200:IFD50THENGOSUB1000:N=N+1:J=A(N)/4+1:K=A(N)MOD4+1:C=J-J/10*(J-10):PRINTA$(J,J);B$(K,K);" ";:RETURN 2020GOSUB2000:D=D+C+(C=1)*10:A2=A2+(C=1):IFD<22ORA2=0THENRETURN:A2=A2-1:D=D-10:RETURN 2040GOSUB2000:P=P+C+(C=1)*10:A1=A1+(C=1):IFP<22ORA1=0THENRETURN:A1=A1-1:P=P-10:RETURN 3000INPUT"BET",B:IFB<=3000THENRETURN:PRINT"LIMIT IS $3000. ";:GOTO3000