Atari 8-bit Source code

0 GRAPHICS 0
10 GOTO 170
20 FOR Z9=1 TO 10:​NEXT Z9:​RETURN
30 SOUND 2,​0,​0,​0:​SOUND 3,​0,​0,​0:​RETURN
40 FOR I=180 TO 250:​SOUND 2,​I,​10,​6:​SOUND 3,​I+5,​10,​6:​NEXT I:​GOTO 30
50 FOR I=1 TO 10:​GOSUB 60:​NEXT I:​GOTO 30
60 SOUND 2,​100,​100,​100:​GOSUB 20:​GOTO 30
70 SOUND 2,​64,​4,​5:​GOTO 30
80 FOR ZZ=1 TO 200:​NEXT ZZ:​RETURN
90 POSITION 0,​22:​PRINT B0$:​POSITION 2,​22:​RETURN
100 GOSUB 680:​GOTO 710
110 GOSUB 680:​GOTO 720
120 ? CHR$(W+176);:​GOSUB 160:​? "";S$;"";S$;:​IF W<>6 THEN ? "";S$;"";
130 RETURN
140 ? "",​"B L A C K J A C K"
150 POSITION 2,​1:​? "DEALER":​X$="PLAYER BET $ TALLY $":​X$(15,​18)=STR$(B):​POSITION 2,​11:​? X$;T;" ":​RETURN
160 ? "";S$;"";S$;"";S$;"";S$;:​RETURN
170 DIM B$(6),​D$(52),​D(6),​P(5),​B0$(36),​X$(45),​S$(4)
180 SETCOLOR 2,​1,​4:​SETCOLOR 1,​1,​12:​SETCOLOR 4,​1,​4:​POKE 752,​3:​POKE 82,​1:​POKE 83,​38
190 FOR I=1 TO 36:​B0$(I,​I)=" ":​NEXT I:​B$=""
200 T=200:​GOSUB 140:​FOR I=1 TO 52:​D$(I,​I)=CHR$(I-1):​NEXT I:​GOSUB 660
210 GOSUB 150:​DM=0:​PM=0:​DT=0:​PT=0
220 IF DI>38 THEN GOSUB 660
230 B=OB:​GOSUB 90:​? "PLACE YOUR BET";:​GOSUB 900:​IF X$="" THEN X$="0"
240 TRAP 230:​B=VAL(X$):​IF B=0 THEN B=OB
250 IF B<0 OR B>2000 THEN 230
260 GOSUB 140:​OB=B:​GOSUB 150
270 GOSUB 100:​GOSUB 110:​GOSUB 100:​GOSUB 680:​OW=W:​OS=S
280 U=0:​GOSUB 720
290 IF DM=21 THEN 480
300 IF PM<>21 THEN 320
310 GOSUB 90:​? "!":​GOSUB 50:​T=T+(1.5*B):​GOTO 650
320 IF PT=5 AND PM<22 THEN GOSUB 90:​? "!":​GOSUB 50:​PM=21:​GOTO 480
330 GOSUB 90:​? "HIT(Y/N/D)";
340 GOSUB 900:​IF X$="N" THEN 480
350 IF X$="Y" OR X$="" THEN 390
360 IF X$<>"D" THEN 330
370 IF PT>2 THEN 330
380 B=B*2:​DB=3:​GOSUB 100:​GOTO 410
390 GOSUB 100
400 IF PM<22 THEN 320
410 X=0:​FOR I=1 TO PT
420 IF P(I)=11 THEN X=I
430 NEXT I:​IF DB=3 THEN 480
440 IF X=0 THEN 470
450 PM=PM-10:​P(X)=1:​IF DB=3 THEN 480
460 GOTO 400
470 GOSUB 90:​? "!":​GOSUB 40
480 DB=0:​X=DT:​CD=D(2):​DM=DM-CD:​DT=1:​U=1:​W=OW:​S=OS:​GOSUB 720:​DT=X
490 IF DM<22 THEN 550
500 FOR I=1 TO DT:​IF D(I)=11 THEN 540
510 NEXT I
520 IF PM>21 THEN 640
530 GO TO 620
540 DM=DM-10:​D(I)=1
550 IF DM>16 THEN 580
560 IF DT>5 THEN 580
570 GOSUB 110:​GOTO 490
580 IF PM>21 THEN 640
590 IF DM>PM AND DM<22 THEN 630
600 IF DM<PM THEN 620
610 GOSUB 90:​? "":​GOTO 650
620 T=T+B:​GOSUB 90:​? "YOU !":​GOSUB 50:​GOTO 650
630 GOSUB 90:​PRINT "YOU !":​GOSUB 40
640 T=T-B
650 GOSUB 80:​GOSUB 80:​GOTO 210
660 GOSUB 90:​? ,​"SHUFFLING":​FOR I=1 TO 50:​GOSUB 70:​IF I=25 THEN GOSUB 80
670 J=INT(52*RND(0))+1:​K=INT(52*RND(0))+1:​X$=D$(J,​J):​D$(J,​J)=D$(K,​K):​D$(K,​K)=X$:​DI=1:​NEXT I:​RETURN
680 DI=DI+1:​CD=ASC(D$(DI,​DI)):​S=INT(CD/13):​W=INT(CD-13*S)+1:​CD=W:​IF CD>10 THEN CD=10
690 IF CD=1 THEN CD=11
700 U=1:​RETURN
710 GOSUB 70:​PT=PT+1:​P=6*(PT-1):​L=13:​GOSUB 730:​PM=PM+CD:​P(PT)=CD:​RETURN
720 GOSUB 70:​DT=DT+1:​P=6*(DT-1):​L=3:​GOSUB 730:​DM=DM+CD:​D(DT)=CD:​RETURN
730 S$="":​S$=S$(S+1,​S+1)
740 P=P+1:​POSITION P+1,​L-1:​? "";B$;:​FOR I=1 TO 7:​PRINT "";B$;:​NEXT I:​? "";
750 IF U=0 THEN RETURN
760 IF W=1 THEN ? "":​POSITION P+3,​L+3:​? S$:​POSITION P+5,​L+6:​? ""
770 IF W=2 THEN ? "";S$;"";S$
780 IF W=3 THEN ? "";S$;"";S$;"";S$
790 IF W=4 THEN ? "";:​GOSUB 160
800 IF W=5 THEN ? "";:​GOSUB 160:​? "";S$
810 IF W=6 OR W=7 THEN GOSUB 120
820 IF W=8 THEN GOSUB 120:​? S$
830 IF W=9 THEN GOSUB 120:​? "";S$;"";S$
840 IF W>1 AND W<10 THEN POSITION P+5,​L+6:​? CHR$(W+176)
850 IF W=10 THEN ? "";:​GOSUB 160:​? "";S$;"";S$;"";S$;"";S$;"";S$;"";S$:​POSITION P+4,​L+6:​? ""
860 IF W=11 THEN PRINT " ";B$;S$;"";B$;" ";B$;" ";B$;" ";B$;"";S$;B$;" "
870 IF W=12 THEN PRINT "";B$;S$;"";B$;" ";B$;" ";B$;" ";B$;"";S$;B$;""
880 IF W=13 THEN PRINT " ";B$;S$;"";B$;" ";B$;" ";B$;" ";B$;"";S$;B$;" "
890 U=0:​GOTO 80
900 GOSUB 60:​? "?";
910 IF PEEK(53279)=6 THEN RUN
920 IF PEEK(764)=255 THEN 910
930 ? "";:​INPUT X$:​RETURN	

• Download link 1

• Download link 1