mirror of
https://github.com/rfivet/BCG101.git
synced 2024-12-18 08:06:27 -05:00
103 lines
2.2 KiB
QBasic
103 lines
2.2 KiB
QBasic
5 PRINT "WELCOME TO DIGITAL EDUSYSTEM COMPUTER BLACKJACK!!"
|
|
6 PRINT\PRINT "YOUR DEALER TONIGHT IS PETEY P. EIGHT."
|
|
7 PRINT "WATCH HIM CLOSELY.... HE HAS A REPUTATION FOR"
|
|
8 PRINT "DEALING OFF THE BOTTOM OF THE DECK."\PRINT
|
|
9 RANDOMIZE
|
|
10 DIM A(13)
|
|
20 PRINT "QUESTIONS REQUIRING A YES OR NO ANSWER"
|
|
25 PRINT "SHOULD BE ANSWERED WITH A 'Y' FOR YES, 'N' FOR NO."\PRINT
|
|
30 PRINT "DON'T START PLAYING WITH LESS THAN $100.. HAVE FUN!"\PRINT
|
|
40 PRINT "HOW MANY DOLLARS ARE YOU STARTING WITH";
|
|
41 INPUT F
|
|
42 PRINT
|
|
43 F1=F
|
|
50 PRINT "WHAT IS YOUR WAGER THIS TIME";
|
|
51 INPUT W
|
|
52 PRINT
|
|
53 IF W>F GOTO 56
|
|
54 IF W<10 GOTO 58
|
|
55 GOTO 100
|
|
56 PRINT "YOUR BET EXCEEDS YOUR REMAINING DOLLARS."
|
|
57 GOTO 50
|
|
58 PRINT "MINIMUM WAGER IS $10."
|
|
59 GOTO 50
|
|
100 GOSUB 780
|
|
102 P1=I
|
|
104 PRINT "YOUR FIRST CARD IS "CHR$(L)
|
|
106 GOSUB 780
|
|
110 P2=I
|
|
112 PRINT "YOUR SECOND CARD IS "CHR$(L)
|
|
115 GOSUB 200
|
|
117 PRINT "YOU HAVE "P3" SHOWING."
|
|
119 GOSUB 760
|
|
120 P3=P3+I
|
|
122 PRINT "YOU GOT A "CHR$(L)
|
|
123 IF P3>21 GOTO 820
|
|
124 GOTO 117
|
|
200 GOSUB 780
|
|
201 P3=P1+P2
|
|
202 D1=I
|
|
204 GOSUB 780
|
|
206 D2=I
|
|
208 PRINT "DEALER SHOWS A "CHR$(L)
|
|
210 GOTO 117
|
|
212 D3=D1+D2
|
|
214 PRINT "DEALER HAS "D3
|
|
216 IF D3>16 GOTO 222
|
|
217 GOSUB 780
|
|
218 PRINT "DEALER GETS A "CHR$(L)
|
|
219 D3=D3+I
|
|
220 GOTO 214
|
|
222 IF D3<22 GOTO 800
|
|
224 PRINT "DEALER BUSTED."
|
|
226 GOTO 802
|
|
760 PRINT "DO YOU WANT A HIT?";
|
|
762 INPUT $K
|
|
764 PRINT
|
|
766 IF K=#N GOTO 212
|
|
768 GOSUB 780
|
|
770 RETURN
|
|
780 I=INT(13*RND(0)+1)
|
|
782 A(I)=A(I)+1
|
|
784 IF A(I)>4 GOTO 780
|
|
786 GOSUB 900
|
|
788 RETURN
|
|
800 IF D3>=P3 GOTO 820
|
|
802 F=F+W
|
|
806 PRINT "YOU WIN. YOU NOW HAVE $"F
|
|
808 GOTO 980
|
|
820 F=F-W
|
|
822 PRINT "YOU LOSE. YOU NOW HAVE $"F
|
|
824 GOTO 980
|
|
900 IF I<>1 GOTO 910
|
|
904 I=11
|
|
906 L=#A
|
|
908 GOTO 942
|
|
910 IF I<>13 GOTO 920
|
|
912 I=10
|
|
914 L=#K
|
|
916 GOTO 942
|
|
920 IF I<>12 GOTO 930
|
|
922 I=10
|
|
924 L=#Q
|
|
926 GOTO 942
|
|
930 IF I<>11 GOTO 937
|
|
932 I=10
|
|
934 L=#J
|
|
936 GOTO 942
|
|
937 IF I<>10 GOTO 940
|
|
938 L=#T
|
|
939 GOTO 942
|
|
940 L=I+48
|
|
942 RETURN
|
|
980 PRINT "DO YOU WISH TO PLAY AGAIN?";
|
|
982 INPUT $K
|
|
984 PRINT\PRINT
|
|
986 IF K=#Y GOTO 50
|
|
987 PRINT\PRINT\PRINT \IF F>F1 THEN 995
|
|
988 PRINT "TOO BAD! YOU LOST"F1-F"DOLLARS AT THE EDUSYSTEM CASINO."
|
|
990 GOTO 998
|
|
995 PRINT "NOT BAD! YOU WON"F-F1"DOLLARS AT THE EDUSYSTEM CASINO."
|
|
998 PRINT\PRINT "HOPE YOU ENJOYED YOURSELF. THANKS FOR PLAYING."
|
|
999 END
|