Pontoon

   10 GO SUB 570
   20 LET money=50
   30 GO SUB 470
   40 LET c1=INT (RND*10)+1: LET b$=CHR$ (144+(INT (RND*4)))
   50 LET c2=INT (RND*10)+1: LET c$=CHR$ (144+(INT (RND*4)))
   60 PRINT AT 11,2;"\f\j\j\j\g \f\j\j\j\g"
   70 PRINT "  \k";b$;"  \k \k";c$;"  \k"
   80 PRINT "  \k   \k \k   \k"
   90 PRINT "  \k ";(CHR$ 8 AND c1=10);c1;" \k \k ";(CHR$ 8 AND c2=10);c2;" \k"
  100 PRINT "  \k   \k \k   \k"
  110 PRINT "  \k  ";b$;"\k \k  ";c$;"\k"
  120 PRINT "  \h\j\j\j\i \h\j\j\j\i"
  130 LET tot=c1+c2: LET c3=INT (RND*10)+1
  140 PRINT AT 5,5;"T - Twist"
  150 PRINT AT 7,5;"S - Stick"
  160 IF INKEY$="t" OR INKEY$="s" THEN GO TO 180
  170 GO TO 160
  180 IF INKEY$="s" THEN GO TO 340
  190 LET tot=tot+c3
  200 LET b$=CHR$ (144+(INT (RND*4)))
  210 IF p>26 THEN LET p=2: CLS 
  220 PRINT AT 11,p;"\f\j\j\j\g"
  230 PRINT AT 12,p;"\k";b$;"  \k"
  240 PRINT AT 13,p;"\k   \k"
  250 PRINT AT 14,p;"\k ";(CHR$ 8 AND c3=10);c3;" \k"
  260 PRINT AT 15,p;"\k   \k"
  270 PRINT AT 16,p;"\k  ";b$;"\k"
  280 PRINT AT 17,p;"\h\j\j\j\i"
  290 IF tot>21 THEN PRINT AT 1,1;"BUST": GO TO 420
  300 LET p=p+6
  310 LET c3=INT (RND*10)+1
  320 GO TO 160
  330 STOP 
  340 LET cs=INT (RND*13)+10
  350 CLS 
  360 PRINT '"I have ";cs''"You have ";tot''
  370 IF cs>21 THEN PRINT "I have bust, You Win ": GO TO 410
  380 IF cs=21 THEN PRINT "PONTOON! ": GO TO 410
  390 IF cs>tot THEN PRINT "I win ": GO TO 410
  400 PRINT "You win $50!": LET money=money+50
  410 FOR k=1 TO 60: BEEP .008,k: BEEP .008,-k: NEXT k: GO TO 30
  420 PRINT "I win that game!"
  430 GO TO 410
  440 CLS 
  450 PRINT AT 10,7;"You're out of money"
  460 INPUT "press enter to play again "; LINE a$: RUN 
  470 BORDER 0: PAPER 4: INK 9: CLS 
  480 LET p=14: LET money=money-10: IF money<0 THEN GO TO 440
  490 PRINT AT 1,24; INK 1;"\f\j\j\j\g"
  500 FOR a=1 TO 6
  510 PRINT TAB 24; INK 1;"\k\e\e\e\k"
  520 NEXT a
  530 PRINT TAB 24; INK 1;"\h\j\j\j\i";AT 9,23;"Cash ";money
  540 PRINT AT PI,5;"D - Deal"
  550 IF INKEY$<>"d" THEN GO TO 550
  560 RETURN 
  570 FOR a=USR "a" TO USR "k"+7
  580 READ user: POKE a,user
  590 NEXT a: RETURN 
  600 DATA 24,60,126,255,255,126,60,24
  610 DATA 24,60,90,255,255,90,24,60
  620 DATA 16,56,124,254,254,124,16,56
  630 DATA 68,238,254,254,254,124,56,16
  640 DATA 204,204,51,51,204,204,51,51
  650 DATA 0,NOT PI,NOT PI,7,15,12,24,24
  660 DATA 0,NOT PI,NOT PI,192,240,48,24,24
  670 DATA 24,24,12,15,7,NOT PI,NOT PI,0
  680 DATA 24,24,48,240,192,NOT PI,NOT PI,0
  690 DATA 0,NOT PI,NOT PI,255,255,NOT PI,NOT PI,0
  700 DATA 24,24,24,24,24,24,24,24
  710 REM a\ab\bc\cd\de\ef\fh\gi\hj\ij\jk\k
 1000 SAVE "PONTOON" LINE 1