156 lines
3.9 KiB
QBasic
156 lines
3.9 KiB
QBasic
100 REM (SOURCE UNKNOWN) EDITED SLIGHTLY BY D. KURLAND 11/6/75
|
||
110 PRINT "WELCOME TO CASINO UNIVAC 1108"
|
||
120 PRINT "THE GAME IS BACCARAT"
|
||
130 H=0
|
||
140 GOSUB 1400
|
||
150 DIM A(10),C(10)
|
||
160 PRINT "ARE YOU READY";
|
||
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)GOTO330,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";
|
||
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 GOSUB290
|
||
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 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";
|
||
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 GOTO190
|
||
1390 STOP
|
||
1400 PRINT "DO YOU WANT THE RULES OF THE GAME";
|
||
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. "
|
||
1540 PRINT "DO YOU UNDERSTAND THE RULES";
|
||
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 GOTO1250
|
||
1630 END
|
||
N
|
||
1590 PRINT "I |