DataMuseum.dk

top - download

    Length: 2944 (0xb80)
    Types: TextFile
    Names: »PONT.BAS«

└─⟦69a509965⟧ Bits:30005211 CR8 BASIC Games
    └─ ⟦this⟧ »PONT.BAS« 

TextFile

1  REM PROGRAM PONT.BAS
10 DIM E(5),V$(13),C$(5)
20 LET G=100
30 FOR I=1 TO 13
40 READ V$(I)
50 NEXT I
60 DATA "N ACE"," 2"," 3"," 4"," 5"," 6"," 7","N 8"," 9"," 10" 
70 DATA " JACK"," QUEEN"," KING"   
80 N=-RND
90 LET C$(1)="FIRST "
100 LET C$(2)="NEXT "
110 LET C$(3)="BANK HAS "
120 LET C$(4)=",YOU LOSE "
130 LET C$(5)=",YOU WIN "
140 PRINT TAB(16);"PONTOON"
150 PRINT TAB(16);"*******"
160 PRINT 
170 PRINT 
180 PRINT "IF YOU WISH TO STOP GAMBLING TYPE '0' WHEN ASKED FOR STAKE"
190 PRINT 
200 F=0 : T=0 : U=0 : W=0 : X=0 : Y=0 : Z=0
210 LET E=1
220 FOR I=1 TO 5
230 LET E(I)=0
240 NEXT I
250 PRINT "PRESENT KITTY IS ";G
260 LET F=F+1
270 N=INT(RND*13)+1
280 IF N>5 THEN 310
290 LET E(N)=E(N)+1
300 IF E(N)>4 THEN 270
310 IF Y=1 THEN 430
320 IF F=1 THEN 340
330 LET E=2
340 PRINT C$(E);"CARD IS A";V$(N)
350 IF E=2 THEN 430
360 PRINT "WHAT IS YOUR STAKE?",
370 INPUT S
380 IF S=0 THEN 930
390 LET X=S
400 IF S<=G THEN 430
410 PRINT "STAKE IS TOO BIG"
420 GOTO 360
430 IF N=1 THEN 790
440 IF N<11 THEN 460
450 LET N=10
460 LET T=T+N
470 LET U=U+N
480 IF T>21 THEN 960
490 IF F=5 THEN 860
500 IF Y=0 THEN 620
510 IF F=1 THEN 260
520 IF T<17 THEN 260
530 IF U<T OR U=T OR U>21 THEN 550
540 LET T=U
550 IF Y=1 THEN 1000
560 LET W=T
570 T=0 : U=0
580 LET Z=F
590 LET F=0
600 LET Y=1
610 GOTO 260
620 IF F=1 THEN 260
630 PRINT "ARE YOU TWISTING?",
640 INPUT L$
650 IF L$="YES" THEN 260
660 PRINT "ARE YOU BUYING?",
670 INPUT L$
680 IF L$="NO" THEN 740
690 LET S=S+X
700 IF S<=G THEN 260
710 PRINT "STAKE IS NOW TOO BIG"
720 LET S=S-X
730 GOTO 630
740 IF T>16 OR T=16 OR F>5 OR F=5 THEN 530
750 IF U<16 THEN 770
760 IF U<22 THEN 530
770 PRINT "YOU MUST TWIST OR BUY"
780 GOTO 630
790 LET T=T+1
800 LET U=U+11
810 IF U<22 THEN 830
820 LET U=T+10
830 IF T<21 OR T=21 THEN 850
840 IF U>21 THEN 960
850 IF F<5 THEN 500
860 IF Y=0 THEN 530
870 IF W<>21 THEN 890
880 IF Z=2 THEN 940
890 PRINT C$(3);"5 CARDS ";C$(4);2*S
900 LET G=G-2*S
910 IF G>0 THEN 200
920 PRINT "BAD LUCK, YOU ARE BANKRUPT"
930 GOTO 1250
940 PRINT C$(3);"5 CARDS ";C$(5);2*S
950 GOTO 1230
960 IF Y=1 THEN 1080
970 PRINT "YOU ARE BUST, AND LOSE ";S;"YOUR TOTAL WAS ";T
980 LET G=G-S
990 GOTO 910
1000 IF T<>21 THEN 1020
1010 IF F=2 THEN 1130
1020 IF W<>21 THEN 1040
1030 IF Z=2 THEN 1150
1040 IF F=5 THEN 890
1050 IF Z=5 THEN 1150
1060 IF T>=W THEN 1170
1070 GOTO 1190
1080 IF W<>21 THEN 1100
1090 IF Z=5 AND W=21 THEN 1220
1100 PRINT "BANK IS BUST ";C$(5);S
1110 LET G=G+S
1120 GOTO 910
1130 PRINT C$(3);"PONTOON ";C$(4);2*S
1140 GOTO 900
1150 PRINT C$(3);T;C$(5);2*S
1160 GOTO 1230
1170 PRINT C$(3);T;C$(4);S
1180 GOTO 980
1190 PRINT C$(3);T;C$(5);S
1200 LET G=G+S
1210 GOTO 200
1220 PRINT "BANK IS BUST ";C$(5);2*S
1230 LET G=G+2*S
1240 GOTO 200
1250 PRINT:PRINT"BYE"
1260 RUN "MENU"
«eof»