1 REM Revised for Osborne 1 by Jim Woolley, FOG Librarian, 7/82
2 RANDOMIZE
10 REM REVISED SLIGHTLY BY WALLY MATTHEWS, POMONA, 6/83
100 REM (SOURCE UNKNOWN) EDITED SLIGHTLY BY D. KURLAND 11/6/75
110 PRINT "WELCOME TO LAS VEGAS COMPUTER CASINO"
120 PRINT "THE GAME IS BACCARAT"  
130 H=0   
140 GOSUB 1400
150 DIM A(10),C(10)   
160 PRINT "ARE YOU READY? TYPE Y OR N"
170 INPUT X$ 
180 IF X$="NO" OR X$="N" THEN 1390
190 PRINT "WAGER";   
200 D=0  
210 E=0  
220 INPUT G  
230 IF G>100000! THEN 1370 
240 IF G>0 THEN 270   
250 PRINT "HA!HA!, VERY FUNNY!!" 
260 GOTO 190 
270 B=1  
280 GOTO 740
290 A(B)=INT(RND(1)*52)+1
300 C(B)=A(B)-13*INT(A(B)/13)   
310 IF C(B)=0 THEN 600  
320 ON C(B) GOTO 330,350,370,390,410,430,450,470,490,510,540,570  
330 PRINT "ACE  ";  
340 GOTO 620   
350 PRINT "DEUCE  ";
360 GOTO 620   
370 PRINT "THREE  ";
380 GOTO 620   
390 PRINT "FOUR  "; 
400 GOTO 620   
410 PRINT "FIVE  "; 
420 GOTO 620   
430 PRINT "SIX  ";  
440 GOTO 620   
450 PRINT "SEVEN  ";
460 GOTO 620   
470 PRINT "EIGHT  ";
480 GOTO 620   
490 PRINT "NINE  "; 
500 GOTO 620   
510 PRINT "TEN  ";  
520 C(B)=0  
530 GOTO 620   
540 PRINT "JACK  "; 
550 C(B)=0  
560 GOTO 620   
570 PRINT "QUEEN  ";
580 C(B)=0  
590 GOTO 620   
600 PRINT "KING  "; 
610 C(B)=0  
620 IF INT(A(B)/13)<>A(B)/13 THEN 640   
630 ON A(B)/13 GOTO 660,680,700,720 
640 IF INT(A(B)/13)=0 THEN 660  
650 ON INT(A(B)/13)GOTO 680,700,720 
660 PRINT "OF CLUBS"
670 RETURN  
680 PRINT "OF DIAMONDS" 
690 RETURN  
700 PRINT "OF SPADES"   
710 RETURN  
720 PRINT "OF HEARTS"   
730 RETURN  
740 PRINT "YOUR FIRST CARD IS A ";  
750 GOSUB 290
760 GOSUB 1310   
770 PRINT "YOUR NEXT CARD IS A ";   
780 GOSUB 290
790 GOSUB 1310   
800 PRINT "DO YOU WANT A CARD? Y OR N";
810 INPUT J$
820 IF J$="YES" OR J$="Y" THEN 870  
830 C(3)=0  
840 D=D+C(B)
850 B=B+1   
860 GOTO 900   
870 PRINT "THE CARD IS A "; 
880 GOSUB 290 
890 GOSUB 1310   
900 PRINT "MY FIRST CARD IS A ";
910 GOSUB 290
920 GOSUB 1340   
930 PRINT "MY NEXT CARD IS A "; 
940 GOSUB 290
950 GOSUB 1340   
960 IF E<10 THEN 990
970 E=E-10  
980 GOTO 960   
990 IF E<6 THEN 1030 
1000 PRINT "I DO NOT WANT A CARD"
1010 C(6)=0  
1020 GOTO 1060   
1030 PRINT "I TAKE A CARD"
1040 PRINT "THE CARD IS A "; 
1050 GOSUB 290
1060 E=E+C(6)
1070 IF D<10 THEN 1100
1080 D=D-10  
1090 GOTO 1070   
1100 PRINT "YOUR TOTAL IS";D 
1110 IF E<10 THEN 1140
1120 E=E-10  
1130 GOTO 1110   
1140 PRINT "MY TOTAL IS  ";E 
1150 IF D=E THEN 1590
1160 IF D>E THEN 1200 
1170 PRINT "I WIN  $"G   
1180 G=-G
1190 GOTO 1210   
1200 PRINT "YOU WIN $";G 
1210 H=H+G   
1220 IF H>0 THEN 1290 
1230 IF H=0 THEN 1610
1240 PRINT "YOU OWE ME  $";-H
1250 PRINT "DO YOU WANT TO TRY AGAIN? Y OR N";
1260 INPUT K$
1270 IF K$="NO" OR K$="N" THEN 1390   
1280 GOTO 190
1290 PRINT "I.O.U. $";H  
1300 GOTO 1250   
1310 D=D+C(B)
1320 B=B+1   
1330 RETURN  
1340 E=E+C(B)
1350 B=B+1   
1360 RETURN  
1370 PRINT "HOUSE LIMIT IS $100000"  
1380 GOTO 190
1390 PRINT "BYE"
1395 STOP
1400 PRINT "DO YOU WANT THE RULES OF THE GAME? Y OR N";
1410 INPUT I$
1420 IF I$="NO" OR I$="N" THEN RETURN   
1430 PRINT "* OFFICIAL RULES FOR THE GAME OF BACCARAT *"
1440 PRINT "THE COMPUTER IS SHUFFLING SIX DECKS OF CARDS"   
1450 PRINT "TOGETHER. THE RULES ARE AS FOLLOWS: THE OBJECT" 
1460 PRINT "IS TO BE AS CLOSE TO POSSIBLE TO NINE IN TWO"   
1470 PRINT "OR THREE CARDS, FACE CARDS AND TENS COUNT ZERO" 
1480 PRINT "ACES COUNT AS ONE EACH,ALL OTHER CARDS COUNT"   
1490 PRINT "THEIR INDEX VALUE.  WHEN THE TOTAL IS OVER TEN" 
1500 PRINT "THE TENS UNIT IS DROPPED.  EXAMPLE: A SEVEN AND"
1510 PRINT "A SIX TOTALING THIRTEEN COUNT AS THREE.  THE"   
1520 PRINT "PLAYER WITH THE HIGHER TOTAL WINS.  IN CASE OF" 
1530 PRINT "A TIE, THE COMPUTER WINS! HOUSE LIMIT= $100,000"
1540 PRINT "DO YOU UNDERSTAND THE RULES? Y OR N";
1550 INPUT O$   
1560 IF O$="YES" OR O$="Y" THEN RETURN  
1570 PRINT "TOUGH LUCK" 
1580 RETURN 
1590 PRINT "IT IS A TIE. THE COMPUTER WINS!"
1600 GOTO 1170  
1610 PRINT "YOU ARE EVEN-UP !!" 
1620 GOTO 1250
1630 END
 
1590 PRINT "IT IS A TIE. THE COMPUTER WINS!"
1600 GOTO 1