basic101 0.1.0

data/test/integration/tests/basic_computer_games/battle.bas

@@ -0,0 +1,196 @@
+5 PRINT TAB(33);"BATTLE"
+7 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+10 REM -- BATTLE WRITTEN BY RAY WESTERGARD  10/70
+20 REM COPYRIGHT 1971 BY THE REGENTS OF THE UNIV. OF CALIF.
+30 REM PRODUCED AT THE LAWRENCE HALL OF SCIENCE, BERKELEY
+40 REM DIM F(6,6),H(6,6),A(4)<B(4),C(6),L(3)
+50 FOR X=1 TO 6
+51 FOR Y=1 TO 6
+52 F(X,Y)=0
+53 NEXT Y
+54 NEXT X
+60 FOR I=1 TO 3
+70 N=4-I
+80 FOR J=1 TO 2
+90 A=INT(6*RND(1)+1)
+100 B=INT(6*RND(1)+1)
+110 D=INT(4*RND(1)+1)
+120 IF F(A,B)>0 THEN 90
+130 M=0
+140 ON D GOTO 150,340,550,740
+150 B(1)=B
+160 B(2)=7:B(3)=7
+170 FOR K=1 TO N
+180 IF M>1 THEN 240
+190 IF B(K)=6 THEN 230
+200 IF F(A,B(K)+1)>0 THEN 230
+210 B(K+1)=B(K)+1
+220 GOTO 280
+230 M=2
+240 IF B(1)<B(2) AND B(1)<B(3) THEN Z=B(1)
+242 IF B(2)<B(1) AND B(2)<B(3) THEN Z=B(2)
+244 IF B(3)<B(1) AND B(3)<B(2) THEN Z=B(3)
+250 IF Z=1 THEN 90
+260 IF F(A,Z-1)>0 THEN 90
+270 B(K+1)=Z-1
+280 NEXT K
+290 F(A,B)=9-2*I-J
+300 FOR K=1 TO N
+310 F(A,B(K+1))=F(A,B)
+320 NEXT K
+330 GOTO 990
+340 A(1)=A
+350 B(1)=B
+360 A(2)=0:A(3)=0:B(2)=0:B(3)=0
+370 FOR K=1 TO N
+380 IF M>1 THEN 460
+390 IF A(K)=1 OR B(K)=1 THEN 450
+400 IF F(A(K)-1,B(K)-1)>0 THEN 450
+410 IF F(A(K)-1,B(K))>0 AND F(A(K)-1,B(K))=F(A(K),B(K)-1) THEN 450
+420 A(K+1)=A(K)-1
+430 B(K+1)=B(K)-1
+440 GOTO 530
+450 M=2
+460 IF A(1)>A(2) AND A(1)>A(3) THEN Z1=A(1)
+462 IF A(2)>A(1) AND A(2)>A(3) THEN Z1=A(2)
+464 IF A(3)>A(1) AND A(3)>A(2) THEN Z1=A(3)
+470 IF B(1)>B(2) AND B(1)>B(3) THEN Z2=B(1)
+474 IF B(2)>B(1) AND B(2)>B(3) THEN Z2=B(2)
+476 IF B(3)>B(1) AND B(3)>B(2) THEN Z2=B(3)
+480 IF Z1=6 OR Z2=6 THEN 90
+490 IF F(Z1+1,Z2+1)>0 THEN 90
+500 IF F(Z1,Z2+1)>0 AND F(Z1,Z2+1)=F(Z1+1,Z2) THEN 90
+510 A(K+1)=Z1+1
+520 B(K+1)=Z2+1
+530 NEXT K
+540 GOTO 950
+550 A(1)=A
+560 A(2)=7:A(3)=7
+570 FOR K=1 TO N
+580 IF M>1 THEN 640
+590 IF A(K)=6 THEN 630
+600 IF F(A(K)+1,B)>0 THEN 630
+610 A(K+1)=A(K)+1
+620 GOTO 680
+630 M=2
+640 IF A(1)<A(2) AND A(1)<A(3) THEN Z=A(1)
+642 IF A(2)<A(1) AND A(2)<A(3) THEN Z=A(2)
+644 IF A(3)<A(1) AND A(3)<A(2) THEN Z=A(3)
+650 IF Z=1 THEN 90
+660 IF F(Z-1,B)>0 THEN 90
+670 A(K+1)=Z-1
+680 NEXT K
+690 F(A,B)=9-2*I-J
+700 FOR K=1 TO N
+710 F(A(K+1),B)=F(A,B)
+720 NEXT K
+730 GOTO 990
+740 A(1)=A
+750 B(1)=B
+760 A(2)=7:A(3)=7
+770 B(2)=0:B(3)=0
+780 FOR K=1 TO N
+790 IF M>1 THEN 870
+800 IF A(K)=6 OR B(K)=1 THEN 860
+810 IF F(A(K)+1,B(K)-1)>0 THEN 860
+820 IF F(A(K)+1,B(K))>0 AND F(A(K)+1,B(K))=F(A(K),B(K)-1) THEN 860
+830 A(K+1)=A(K)+1
+840 B(K+1)=B(K)-1
+850 GOTO 940
+860 M=2
+870 IF A(1)<A(2) AND A(1)<A(3) THEN Z1=A(1)
+872 IF A(2)<A(1) AND A(2)<A(3) THEN Z1=A(2)
+874 IF A(3)<A(1) AND A(3)<A(2) THEN Z1=A(3)
+880 IF B(1)>B(2) AND B(1)>B(3) THEN Z2=B(1)
+882 IF B(2)>B(1) AND B(2)>B(3) THEN Z2=B(2)
+884 IF B(3)>B(1) AND B(3)>B(2) THEN Z2=B(3)
+890 IF Z1=1 OR Z2=6 THEN 90
+900 IF F(Z1-1,Z2+1)>0 THEN 90
+910 IF F(Z1,Z2+1)>0 AND F(Z1,Z2+1)=F(Z1-1,Z2) THEN 90
+920 A(K+1)=Z1-1
+930 B(K+1)=Z2+1
+940 NEXT K
+950 F(A,B)=9-2*I-J
+960 FOR K=1 TO N
+970 F(A(K+1),B(K+1))=F(A,B)
+980 NEXT K
+990 NEXT J
+1000 NEXT I
+1010 PRINT
+1020 PRINT "THE FOLLOWING CODE OF THE BAD GUYS' FLEET DISPOSITION"
+1030 PRINT "HAS BEEN CAPTURED BUT NOT DECODED:"
+1040 PRINT
+1050 FOR I=1 TO 6
+1051 FOR J=1 TO 6
+1052 H(I,J)=F(J,I)
+1053 NEXT J
+1054 NEXT I
+1060 FOR I=1 TO 6
+1061 FOR J=1 TO 6
+1062 PRINT H(I,J);
+1063 NEXT J
+1064 PRINT
+1065 NEXT I
+1070 PRINT
+1080 PRINT "DE-CODE IT AND USE IT IF YOU CAN"
+1090 PRINT "BUT KEEP THE DE-CODING METHOD A SECRET."
+1100 PRINT
+1110 FOR I=1 TO 6
+1111 FOR J=1 TO 6
+1112 H(I,J)=0
+1113 NEXT J
+1114 NEXT I
+1120 FOR I=1 TO 3
+1121 L(I)=0
+1122 NEXT I
+1130 C(1)=2:C(2)=2
+1140 C(3)=1:C(4)=1
+1150 C(5)=0:C(6)=0
+1160 S=0:H=0
+1170 PRINT "START GAME"
+1180 INPUT X,Y
+1190 IF X<1 OR X>6 OR INT(X)<>ABS(X) THEN 1210
+1200 IF Y>0 AND Y<7 AND INT(Y)=ABS(Y) THEN 1230
+1210 PRINT "INVALID INPUT.  TRY AGAIN."
+1220 GOTO 1180
+1230 R=7-Y
+1240 C=X
+1250 IF F(R,C)>0 THEN 1290
+1260 S=S+1
+1270 PRINT "SPLASH!  TRY AGAIN."
+1280 GOTO 1180
+1290 IF C(F(R,C))<4 THEN 1340
+1300 PRINT "THERE USED TO BE A SHIP AT THAT POINT, BUT YOU SUNK IT."
+1310 PRINT "SPLASH!  TRY AGAIN."
+1320 S=S+1
+1330 GOTO 1180
+1340 IF H(R,C)>0 THEN 1420
+1350 H=H+1
+1360 H(R,C)=F(R,C)
+1370 PRINT "A DIRECT HIT ON SHIP NUMBER";F(R,C)
+1380 C(F(R,C))=C(F(R,C))+1
+1390 IF C(F(R,C))>=4 THEN 1470
+1400 PRINT "TRY AGAIN."
+1410 GOTO 1180
+1420 PRINT "YOU ALREADY PUT A HOLE IN SHIP NUMBER";F(R,C);
+1430 PRINT "AT THAT POINT."
+1440 PRINT "SPLASH!  TRY AGAIN."
+1450 S=S+1
+1460 GOTO 1180
+1470 L((INT(F(R,C)-1)/2)+1)=L((INT(F(R,C)-1)/2)+1)+1
+1480 PRINT "AND YOU SUNK IT.  HURRAH FOR THE GOOD GUYS."
+1490 PRINT "SO FAR, THE BAD GUYS HAVE LOST"
+1500 PRINT L(1);"DESTROYER(S),";L(2);"CRUISER(S), AND";
+1510 PRINT L(3);"AIRCRAFT CARRIER(S)."
+1520 PRINT "YOUR CURRENT SPLASH/HIT RATIO IS";S/H
+1530 IF (L(1)+L(2)+L(3))<6 THEN 1180
+1540 PRINT
+1550 PRINT "YOU HAVE TOTALLY WIPED OUT THE BAD GUYS' FLEET"
+1560 PRINT "WITH A FINAL SPLASH/HIT RATIO OF";S/H
+1570 IF S/H>0 THEN 1590
+1580 PRINT "CONGRATULATIONS -- A DIRECT HIT EVERY TIME."
+1590 PRINT
+1600 PRINT "****************************"
+1610 PRINT
+1620 GOTO 50
+1630 END

data/test/integration/tests/basic_computer_games/battle.input

@@ -0,0 +1,21 @@
+
+YES
+1,1
+1,2
+1,3
+1,4
+1,5
+3,1
+3,2
+3,3
+3,4
+3,5
+3,6
+4,6
+5,6
+6,6
+6,1
+5,1
+5,2
+5,3
+5,4

data/test/integration/tests/basic_computer_games/battle.output

@@ -0,0 +1,118 @@
+                                 BATTLE
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+THE FOLLOWING CODE OF THE BAD GUYS' FLEET DISPOSITION
+HAS BEEN CAPTURED BUT NOT DECODED:
+
+ 0  1  1  3  3  3 
+ 0  0  0  0  0  0 
+ 2  2  5  5  5  5 
+ 4  0  0  0  0  0 
+ 4  0  6  6  6  6 
+ 4  0  0  0  0  0 
+
+DE-CODE IT AND USE IT IF YOU CAN
+BUT KEEP THE DE-CODING METHOD A SECRET.
+
+START GAME
+? 
+Too few items, try again
+? YES
+Not numeric: "YES", try again
+? 1,1
+A DIRECT HIT ON SHIP NUMBER 3 
+TRY AGAIN.
+? 1,2
+A DIRECT HIT ON SHIP NUMBER 3 
+TRY AGAIN.
+? 1,3
+A DIRECT HIT ON SHIP NUMBER 3 
+AND YOU SUNK IT.  HURRAH FOR THE GOOD GUYS.
+SO FAR, THE BAD GUYS HAVE LOST
+ 0 DESTROYER(S), 1 CRUISER(S), AND 0 AIRCRAFT CARRIER(S).
+YOUR CURRENT SPLASH/HIT RATIO IS 0 
+? 1,4
+A DIRECT HIT ON SHIP NUMBER 1 
+TRY AGAIN.
+? 1,5
+A DIRECT HIT ON SHIP NUMBER 1 
+AND YOU SUNK IT.  HURRAH FOR THE GOOD GUYS.
+SO FAR, THE BAD GUYS HAVE LOST
+ 1 DESTROYER(S), 1 CRUISER(S), AND 0 AIRCRAFT CARRIER(S).
+YOUR CURRENT SPLASH/HIT RATIO IS 0 
+? 3,1
+A DIRECT HIT ON SHIP NUMBER 5 
+TRY AGAIN.
+? 3,2
+A DIRECT HIT ON SHIP NUMBER 5 
+TRY AGAIN.
+? 3,3
+A DIRECT HIT ON SHIP NUMBER 5 
+TRY AGAIN.
+? 3,4
+A DIRECT HIT ON SHIP NUMBER 5 
+AND YOU SUNK IT.  HURRAH FOR THE GOOD GUYS.
+SO FAR, THE BAD GUYS HAVE LOST
+ 1 DESTROYER(S), 1 CRUISER(S), AND 1 AIRCRAFT CARRIER(S).
+YOUR CURRENT SPLASH/HIT RATIO IS 0 
+? 3,5
+A DIRECT HIT ON SHIP NUMBER 2 
+TRY AGAIN.
+? 3,6
+A DIRECT HIT ON SHIP NUMBER 2 
+AND YOU SUNK IT.  HURRAH FOR THE GOOD GUYS.
+SO FAR, THE BAD GUYS HAVE LOST
+ 2 DESTROYER(S), 1 CRUISER(S), AND 1 AIRCRAFT CARRIER(S).
+YOUR CURRENT SPLASH/HIT RATIO IS 0 
+? 4,6
+A DIRECT HIT ON SHIP NUMBER 4 
+TRY AGAIN.
+? 5,6
+A DIRECT HIT ON SHIP NUMBER 4 
+TRY AGAIN.
+? 6,6
+A DIRECT HIT ON SHIP NUMBER 4 
+AND YOU SUNK IT.  HURRAH FOR THE GOOD GUYS.
+SO FAR, THE BAD GUYS HAVE LOST
+ 2 DESTROYER(S), 2 CRUISER(S), AND 1 AIRCRAFT CARRIER(S).
+YOUR CURRENT SPLASH/HIT RATIO IS 0 
+? 6,1
+SPLASH!  TRY AGAIN.
+? 5,1
+A DIRECT HIT ON SHIP NUMBER 6 
+TRY AGAIN.
+? 5,2
+A DIRECT HIT ON SHIP NUMBER 6 
+TRY AGAIN.
+? 5,3
+A DIRECT HIT ON SHIP NUMBER 6 
+TRY AGAIN.
+? 5,4
+A DIRECT HIT ON SHIP NUMBER 6 
+AND YOU SUNK IT.  HURRAH FOR THE GOOD GUYS.
+SO FAR, THE BAD GUYS HAVE LOST
+ 2 DESTROYER(S), 2 CRUISER(S), AND 2 AIRCRAFT CARRIER(S).
+YOUR CURRENT SPLASH/HIT RATIO IS 0.05555556 
+
+YOU HAVE TOTALLY WIPED OUT THE BAD GUYS' FLEET
+WITH A FINAL SPLASH/HIT RATIO OF 0.05555556 
+
+****************************
+
+
+THE FOLLOWING CODE OF THE BAD GUYS' FLEET DISPOSITION
+HAS BEEN CAPTURED BUT NOT DECODED:
+
+ 5  5  5  5  4  0 
+ 2  0  0  4  1  0 
+ 2  6  4  0  1  0 
+ 0  6  0  3  3  3 
+ 0  6  0  0  0  0 
+ 0  6  0  0  0  0 
+
+DE-CODE IT AND USE IT IF YOU CAN
+BUT KEEP THE DE-CODING METHOD A SECRET.
+
+START GAME
+? 
+Error on line 1180: No more input

data/test/integration/tests/basic_computer_games/blackjck.bas

@@ -0,0 +1,321 @@
+2 PRINT TAB(31);"BLACK JACK"
+4 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+6 PRINT:PRINT:PRINT
+10 DEF FNA(Q)=Q+11*(Q>=22)
+20 DIM P(15,12),Q(15),C(52),D(52),T(8),S(7),B(15)
+30 DIM R(15)
+40 REM--P(I,J) IS THE JTH CARD IN HAND I, Q(I) IS TOTAL OF HAND I
+50 REM--C IS THE DECK BEING DEALT FROM, D IS THE DISCARD PILE,
+60 REM--T(I) IS THE TOTAL FOR PLAYER I, S(I) IS THE TOTAL THIS HAND FOR
+70 REM--PLAYER I, B(I) IS TH BET FOR HAND I
+80 REM--R(I) IS THE LENGTH OF P(I,*)
+90 GOTO 1500
+100 REM--SUBROUTINE TO GET A CARD.  RESULT IS PUT IN X.
+110 IF C<51 THEN 230
+120 PRINT "RESHUFFLING"
+130 FOR D=D TO 1 STEP -1
+140 C=C-1
+150 C(C)=D(D)
+160 NEXT D
+170 FOR C1=52 TO C STEP -1
+180 C2=INT(RND(1)*(C1-C+1))+C
+190 C3=C(C2)
+200 C(C2)=C(C1)
+210 C(C1)=C3
+220 NEXT C1
+230 X=C(C)
+240 C=C+1
+250 RETURN
+300 REM--SUBROUTINE TO EVALUATE HAND I.  TOTAL IS PUT INTO
+310 REM--Q(I). TOTALS HAVE THE FOLLOWING MEANING:
+320 REM--  2-10...HARD 2-10
+330 REM-- 11-21...SOFT 11-21
+340 REM-- 22-32...HARD 11-21
+350 REM--  33+....BUSTED
+360 Q=0
+370 FOR Q2=1 TO R(I)
+380 X=P(I,Q2)
+390 GOSUB 500
+400 NEXT Q2
+410 Q(I)=Q
+420 RETURN
+500 REM--SUBROUTINE TO ADD CARD X TO TOTAL Q.
+510 X1=X: IF X1>10 THEN X1=10:  REM  SAME AS X1=10 MIN X
+520 Q1=Q+X1
+530 IF Q>=11 THEN 590
+540 IF X>1 THEN 570
+550 Q=Q+11
+560 RETURN
+570 Q=Q1-11*(Q1>=11)
+580 RETURN
+590 Q=Q1-(Q<=21 AND Q1>21)
+600 IF Q<33 THEN 620
+610 Q=-1
+620 RETURN
+700 REM--CARD PRINTING SUBROUTINE
+710 REM  D$ DEFINED ELSEWHERE
+720 PRINT MID$(D$,3*X-2,3);
+730 PRINT "  ";
+740 RETURN
+750 REM--ALTERNATIVE PRINTING ROUTINE
+760 PRINT " ";MID$(D$,3*X-1,2);
+770 PRINT "   ";
+780 RETURN
+800 REM--SUBROUTINE TO PLAY OUT A HAND.
+810 REM--NO SPLITTING OR BLACKJACKS ALLOWED
+820 H1=5
+830 GOSUB 1410
+840 H1=3
+850 ON H GOTO 950,930
+860 GOSUB 100
+870 B(I)=B(I)*2
+880 PRINT "RECEIVED A";
+890 GOSUB 700
+900 GOSUB 1100
+910 IF Q>0 THEN GOSUB 1300
+920 RETURN
+930 GOSUB 1320
+940 RETURN
+950 GOSUB 100
+960 PRINT "RECEIVED A";
+970 GOSUB 700
+980 GOSUB 1100
+990 IF Q<0 THEN 940
+1000 PRINT "HIT";
+1010 GOTO 830
+1100 REM--SUBROUTINE TO ADD A CARD TO ROW I
+1110 R(I)=R(I)+1
+1120 P(I,R(I))=X
+1130 Q=Q(I)
+1140 GOSUB 500
+1150 Q(I)=Q
+1160 IF Q>=0 THEN 1190
+1170 PRINT "...BUSTED"
+1180 GOSUB 1200
+1190 RETURN
+1200 REM--SUBROUTINE TO DISCARD ROW I
+1210 IF R(I)<>0 THEN 1230
+1220 RETURN
+1230 D=D+1
+1240 D(D)=P(I,R(I))
+1250 R(I)=R(I)-1
+1260 GOTO 1210
+1300 REM--PRINTS TOTAL OF HAND I
+1310 PRINT
+1320 AA=Q(I): GOSUB 3400
+1325 PRINT "TOTAL IS";AA
+1330 RETURN
+1400 REM--SUBROUTINE TO READ REPLY
+1410 REM  I$ DEFINED ELSEWHERE
+1420 INPUT H$: H$=LEFT$(H$,1)
+1430 FOR H=1 TO H1 STEP 2
+1440 IF H$=MID$(I$,H,1) THEN 1480
+1450 NEXT H
+1460 PRINT "TYPE ";MID$(I$,1,H1-1);" OR ";MID$(I$,H1,2);" PLEASE";
+1470 GOTO 1420
+1480 H=(H+1)/2
+1490 RETURN
+1500 REM--PROGRAM STARTS HERE
+1510 REM--INITIALIZE
+1520 D$="N A  2  3  4  5  6  7N 8  9 10  J  Q  K"
+1530 I$="H,S,D,/,"
+1540 FOR I=1 TO 13
+1550 FOR J=4*I-3 TO 4*I
+1560 D(J)=I
+1570 NEXT J
+1580 NEXT I
+1590 D=52
+1600 C=53
+1610 PRINT "DO YOU WANT INSTRUCTIONS";
+1620 INPUT H$
+1630 IF LEFT$(H$,1)="N" OR LEFT$(H$,1)="n" THEN 1760
+1640 PRINT "THIS IS THE GAME OF 21. AS MANY AS 7 PLAYERS MAY PLAY THE"
+1650 PRINT "GAME. ON EACH DEAL, BETS WILL BE ASKED FOR, AND THE"
+1660 PRINT "PLAYERS' BETS SHOULD BE TYPED IN. THE CARDS WILL THEN BE"
+1670 PRINT "DEALT, AND EACH PLAYER IN TURN PLAYS HIS HAND. THE"
+1680 PRINT "FIRST RESPONSE SHOULD BE EITHER 'D', INDICATING THAT THE"
+1690 PRINT "PLAYER IS DOUBLING DOWN, 'S', INDICATING THAT HE IS"
+1700 PRINT "STANDING, 'H', INDICATING HE WANTS ANOTHER CARD, OR '/',"
+1710 PRINT "INDICATING THAT HE WANTS TO SPLIT HIS CARDS. AFTER THE"
+1720 PRINT "INITIAL RESPONSE, ALL FURTHER RESPONSES SHOULD BE 'S' OR"
+1730 PRINT "'H', UNLESS THE CARDS WERE SPLIT, IN WHICH CASE DOUBLING"
+1740 PRINT "DOWN IS AGAIN PERMITTED. IN ORDER TO COLLECT FOR"
+1750 PRINT "BLACKJACK, THE INITIAL RESPONSE SHOULD BE 'S'."
+1760 PRINT "NUMBER OF PLAYERS";
+1770 INPUT N
+1775 PRINT
+1780 IF N<1 OR N>7 OR N>INT(N) THEN 1760
+1790 FOR I=1 TO 8: T(I)=0: NEXT I
+1800 D1=N+1
+1810 IF 2*D1+C>=52 THEN GOSUB 120
+1820 IF C=2 THEN C=C-1
+1830 FOR I=1 TO N: Z(I)=0: NEXT I
+1840 FOR I=1 TO 15: B(I)=0: NEXT I
+1850 FOR I=1 TO 15: Q(I)=0: NEXT I
+1860 FOR I=1 TO 7: S(I)=0: NEXT I
+1870 FOR I=1 TO 15: R(I)=0: NEXT I
+1880 PRINT "BETS:"
+1890 FOR I=1 TO N: PRINT "#";I;: INPUT Z(I): NEXT I
+1900 FOR I=1 TO N
+1910 IF Z(I)<=0 OR Z(I)>500 THEN 1880
+1920 B(I)=Z(I)
+1930 NEXT I
+1940 PRINT "PLAYER";
+1950 FOR I=1 TO N
+1960 PRINT I;"   ";
+1970 NEXT I
+1980 PRINT "DEALER"
+1990 FOR J=1 TO 2
+2000 PRINT TAB(5);
+2010 FOR I=1 TO D1
+2020 GOSUB 100
+2030 P(I,J)=X
+2040 IF J=1 OR I<=N THEN GOSUB 750
+2050 NEXT I
+2060 PRINT
+2070 NEXT J
+2080 FOR I=1 TO D1
+2090 R(I)=2
+2100 NEXT I
+2110 REM--TEST FOR INSURANCE
+2120 IF P(D1,1)>1 THEN 2240
+2130 PRINT "ANY INSURANCE";
+2140 INPUT H$
+2150 IF LEFT$(H$,1)<>"Y" THEN 2240
+2160 PRINT "INSURANCE BETS"
+2170 FOR I=1 TO N: PRINT "#";I;: INPUT Z(I): NEXT I
+2180 FOR I=1 TO N
+2190 IF Z(I)<0 OR Z(I)>B(I)/2 THEN 2160
+2200 NEXT I
+2210 FOR I=1 TO N
+2220 S(I)=Z(I)*(3*(-(P(D1,2)>=10))-1)
+2230 NEXT I
+2240 REM--TEST FOR DEALER BLACKJACK
+2250 L1=1: L2=1
+2252 IF P(D1,1)=1 AND P(D1,2)>9 THEN L1=0: L2=0
+2253 IF P(D1,2)=1 AND P(D1,1)>9 THEN L1=0: L2=0
+2254 IF L1<>0 OR L2<>0 THEN 2320
+2260 PRINT:PRINT "DEALER HAS A";MID$(D$,3*P(D1,2)-2,3);" IN THE HOLE ";
+2270 PRINT "FOR BLACKJACK"
+2280 FOR I=1 TO D1
+2290 GOSUB 300
+2300 NEXT I
+2310 GOTO 3140
+2320 REM--NO DEALER BLACKJACK
+2330 IF P(D1,1)>1 AND P(D1,1)<10 THEN 2350
+2340 PRINT:PRINT "NO DEALER BLACKJACK."
+2350 REM--NOW PLAY THE HANDS
+2360 FOR I=1 TO N
+2370 PRINT "PLAYER";I;
+2380 H1=7
+2390 GOSUB 1410
+2400 ON H GOTO 2550,2410,2510,2600
+2410 REM--PLAYER WANTS TO STAND
+2420 GOSUB 300
+2430 IF Q(I)<>21 THEN 2490
+2440 PRINT "BLACKJACK"
+2450 S(I)=S(I)+1.5*B(I)
+2460 B(I)=0
+2470 GOSUB 1200
+2480 GOTO 2900
+2490 GOSUB 1320
+2500 GOTO 2900
+2510 REM--PLAYER WANTS TO DOUBLE DOWN
+2520 GOSUB 300
+2530 GOSUB 860
+2540 GOTO 2900
+2550 REM--PLAYER WANTS TO BE HIT
+2560 GOSUB 300
+2570 H1=3
+2580 GOSUB 950
+2590 GOTO 2900
+2600 REM--PLAYER WANTS TO SPLIT
+2610 L1=P(I,1): IF P(I,1)>10 THEN L1=10
+2612 L2=P(I,2): IF P(I,2)>10 THEN L2=10
+2614 IF L1=L2 THEN 2640
+2620 PRINT "SPLITTING NOT ALLOWED."
+2630 GOTO 2370
+2640 REM--PLAY OUT SPLIT
+2650 I1=I+D1
+2660 R(I1)=2
+2670 P(I1,1)=P(I,2)
+2680 B(I+D1)=B(I)
+2690 GOSUB 100
+2700 PRINT "FIRST HAND RECEIVES A";
+2710 GOSUB 700
+2720 P(I,2)=X
+2730 GOSUB 300
+2740 PRINT
+2750 GOSUB 100
+2760 PRINT "SECOND HAND RECEIVES A";
+2770 I=I1
+2780 GOSUB 700
+2790 P(I,2)=X
+2800 GOSUB 300
+2810 PRINT
+2820 I=I1-D1
+2830 IF P(I,1)=1 THEN 2900
+2840 REM--NOW PLAY THE TWO HANDS
+2850 PRINT "HAND";1-(I>D1);
+2860 GOSUB 800
+2870 I=I+D1
+2880 IF I=I1 THEN 2850
+2890 I=I1-D1
+2900 NEXT I
+2910 GOSUB 300
+2920 REM--TEST FOR PLAYING DEALER'S HAND
+2930 FOR I=1 TO N
+2940 IF R(I)>0 OR R(I+D1)>0 THEN 3010
+2950 NEXT I
+2960 PRINT "DEALER HAD A";
+2970 X=P(D1,2)
+2980 GOSUB 700
+2990 PRINT " CONCEALED."
+3000 GOTO 3140
+3010 PRINT "DEALER HAS A";MID$(D$,3*P(D1,2)-2,3);" CONCEALED ";
+3020 I=D1
+3030 AA=Q(I): GOSUB 3400
+3035 PRINT "FOR A TOTAL OF";AA
+3040 IF AA>16 THEN 3130
+3050 PRINT "DRAWS";
+3060 GOSUB 100
+3070 GOSUB 750
+3080 GOSUB 1100
+3090 AA=Q: GOSUB 3400
+3095 IF Q>0 AND AA<17 THEN 3060
+3100 Q(I)=Q-(Q<0)/2
+3110 IF Q<0 THEN 3140
+3120 AA=Q: GOSUB 3400
+3125 PRINT "---TOTAL IS";AA
+3130 PRINT
+3140 REM--TALLY THE RESULT
+3150 REM 
+3160 Z$="LOSES PUSHES WINS "
+3165 PRINT
+3170 FOR I=1 TO N
+3180 AA=Q(I): GOSUB 3400
+3182 AB=Q(I+D1): GOSUB 3410
+3184 AC=Q(D1): GOSUB 3420
+3186 S(I)=S(I)+B(I)*SGN(AA-AC)+B(I+D1)*SGN(AB-AC)
+3188 B(I+D1)=0
+3200 PRINT "PLAYER";I;
+3210 PRINT MID$(Z$,SGN(S(I))*6+7,6);" ";
+3220 IF S(I)<>0 THEN 3250
+3230 PRINT "      ";
+3240 GOTO 3260
+3250 PRINT ABS(S(I));
+3260 T(I)=T(I)+S(I)
+3270 PRINT "TOTAL=";T(I)
+3280 GOSUB 1200
+3290 T(D1)=T(D1)-S(I)
+3300 I=I+D1
+3310 GOSUB 1200
+3320 I=I-D1
+3330 NEXT I
+3340 PRINT "DEALER'S TOTAL=";T(D1)
+3345 PRINT
+3350 GOSUB 1200
+3360 GOTO 1810
+3400 AA=AA+11*(AA>=22): RETURN
+3410 AB=AB+11*(AB>=22): RETURN
+3420 AC=AC+11*(AC>=22): RETURN

data/test/integration/tests/basic_computer_games/blackjck.input

@@ -0,0 +1,26 @@
+YES
+1
+10
+H
+N
+S
+20
+H
+H
+H
+40
+H
+S
+50
+S
+60
+H
+70
+S
+10
+NO
+SPLIT
+-1
+10
+H
+