basic101 0.1.0

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

@@ -0,0 +1,229 @@
+                                  BOWL
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+
+
+WELCOME TO THE ALLEY
+BRING YOUR FRIENDS
+OKAY LET'S FIRST GET ACQUAINTED
+
+THE INSTRUCTIONS (Y/N)
+? Y
+THE GAME OF BOWLING TAKES MIND AND SKILL.DURING THE GAME
+THE COMPUTER WILL KEEP SCORE.YOU MAY COMPETE WITH
+OTHER PLAYERS[UP TO FOUR].YOU WILL BE PLAYING TEN FRAMES
+ON THE PIN DIAGRAM 'O' MEANS THE PIN IS DOWN...'+' MEANS THE
+PIN IS STANDING.AFTER THE GAME THE COMPUTER WILL SHOW YOUR
+SCORES .
+FIRST OF ALL...HOW MANY ARE PLAYING? 1
+
+VERY GOOD...
+TYPE ROLL TO GET THE BALL GOING.
+? ROLL
+PLAYER: 1 FRAME: 1 BALL: 1 
+
+O O O O 
+ + O O 
+  O O 
+   + 
+ROLL YOUR 2ND BALL
+
+TYPE ROLL TO GET THE BALL GOING.
+? R
+PLAYER: 1 FRAME: 1 BALL: 2 
+
+O O O O 
+ + O O 
+  O O 
+   + 
+GUTTER!!
+ERROR!!!
+
+TYPE ROLL TO GET THE BALL GOING.
+? R
+PLAYER: 1 FRAME: 2 BALL: 1 
+
++ O O + 
+ O O O 
+  O O 
+   O 
+ROLL YOUR 2ND BALL
+
+TYPE ROLL TO GET THE BALL GOING.
+? R
+PLAYER: 1 FRAME: 2 BALL: 2 
+
+O O O O 
+ O O O 
+  O O 
+   O 
+SPARE!!!!
+
+TYPE ROLL TO GET THE BALL GOING.
+? R
+PLAYER: 1 FRAME: 3 BALL: 1 
+
++ O O O 
+ + O + 
+  O O 
+   + 
+ROLL YOUR 2ND BALL
+
+TYPE ROLL TO GET THE BALL GOING.
+? R
+PLAYER: 1 FRAME: 3 BALL: 2 
+
+O O O O 
+ + O + 
+  O O 
+   O 
+ERROR!!!
+
+TYPE ROLL TO GET THE BALL GOING.
+? R
+PLAYER: 1 FRAME: 4 BALL: 1 
+
+O O O O 
+ + + + 
+  + O 
+   O 
+ROLL YOUR 2ND BALL
+
+TYPE ROLL TO GET THE BALL GOING.
+? R
+PLAYER: 1 FRAME: 4 BALL: 2 
+
+O O O O 
+ O O + 
+  + O 
+   O 
+ERROR!!!
+
+TYPE ROLL TO GET THE BALL GOING.
+? R
+PLAYER: 1 FRAME: 5 BALL: 1 
+
++ + O O 
+ O O + 
+  O + 
+   O 
+ROLL YOUR 2ND BALL
+
+TYPE ROLL TO GET THE BALL GOING.
+? R
+PLAYER: 1 FRAME: 5 BALL: 2 
+
++ O O O 
+ O O O 
+  O + 
+   O 
+ERROR!!!
+
+TYPE ROLL TO GET THE BALL GOING.
+? R
+PLAYER: 1 FRAME: 6 BALL: 1 
+
+O O + O 
+ + O O 
+  O O 
+   + 
+ROLL YOUR 2ND BALL
+
+TYPE ROLL TO GET THE BALL GOING.
+? R
+PLAYER: 1 FRAME: 6 BALL: 2 
+
+O O O O 
+ O O O 
+  O O 
+   O 
+SPARE!!!!
+
+TYPE ROLL TO GET THE BALL GOING.
+? R
+PLAYER: 1 FRAME: 7 BALL: 1 
+
+O O + O 
+ O O O 
+  + O 
+   O 
+ROLL YOUR 2ND BALL
+
+TYPE ROLL TO GET THE BALL GOING.
+? R
+PLAYER: 1 FRAME: 7 BALL: 2 
+
+O O O O 
+ O O O 
+  O O 
+   O 
+SPARE!!!!
+
+TYPE ROLL TO GET THE BALL GOING.
+? R
+PLAYER: 1 FRAME: 8 BALL: 1 
+
+O O + O 
+ + O O 
+  O O 
+   + 
+ROLL YOUR 2ND BALL
+
+TYPE ROLL TO GET THE BALL GOING.
+? R
+PLAYER: 1 FRAME: 8 BALL: 2 
+
+O O O O 
+ O O O 
+  O O 
+   O 
+SPARE!!!!
+
+TYPE ROLL TO GET THE BALL GOING.
+? R
+PLAYER: 1 FRAME: 9 BALL: 1 
+
++ O O O 
+ O O O 
+  O + 
+   O 
+ROLL YOUR 2ND BALL
+
+TYPE ROLL TO GET THE BALL GOING.
+? R
+PLAYER: 1 FRAME: 9 BALL: 2 
+
++ O O O 
+ O O O 
+  O O 
+   O 
+ERROR!!!
+
+TYPE ROLL TO GET THE BALL GOING.
+? R
+PLAYER: 1 FRAME: 10 BALL: 1 
+
+O O O + 
+ + O + 
+  + + 
+   O 
+ROLL YOUR 2ND BALL
+
+TYPE ROLL TO GET THE BALL GOING.
+? R
+PLAYER: 1 FRAME: 10 BALL: 2 
+
+O O O + 
+ O O + 
+  O O 
+   O 
+ERROR!!!
+
+FRAMES
+ 1  2  3  4  5  6  7  8  9  10 
+ 8  8  6  6  6  7  8  7  8  5 
+ 8  10  8  8  8  10  10  10  9  8 
+ 1  2  1  1  1  2  2  2  1  1 
+
+DO YOU WANT ANOTHER GAME
+? NO

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

@@ -0,0 +1,142 @@
+1 PRINT TAB(33);"BOXING"
+2 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+3 PRINT:PRINT:PRINT
+4 PRINT "BOXING OLYMPIC STYLE (3 ROUNDS -- 2 OUT OF 3 WINS)"
+5 J=0
+6 L=0
+8 PRINT
+10 PRINT "WHAT IS YOUR OPPONENT'S NAME";
+20 INPUT J$
+30 PRINT "INPUT YOUR MAN'S NAME";
+40 INPUT L$
+50 PRINT "DIFFERENT PUNCHES ARE: (1) FULL SWING; (2) HOOK; (3) UPPERCUT; (4) JAB."
+60 PRINT "WHAT IS YOUR MANS BEST";
+64 INPUT B
+70 PRINT "WHAT IS HIS VULNERABILITY";
+80 INPUT D
+90 B1=INT(4*RND(1)+1)
+100 D1=INT(4*RND(1)+1)
+110 IF B1=D1 THEN 90
+120 PRINT J$;"'S ADVANTAGE IS";B1;"AND VULNERABILITY IS SECRET.":PRINT
+130 FOR R=1 TO 3
+140 IF J>= 2 THEN 1040
+150 IF L>=2 THEN 1060
+160 X=0
+170 Y=0
+180 PRINT "ROUND";R;"BEGINS..."
+185 FOR R1= 1 TO 7
+190 I=INT(10*RND(1)+1)
+200 IF I>5 THEN 600
+210 PRINT L$;"'S PUNCH";
+220 INPUT P
+221 IF P=B THEN 225
+222 GOTO 230
+225 X=X+2
+230 IF P=1 THEN 340
+240 IF P=2 THEN 450
+250 IF P=3 THEN 520
+270 PRINT L$;" JABS AT ";J$"'S HEAD ";
+271 IF D1=4 THEN 290
+275 C=INT(8*RND(1)+1)
+280 IF C<4 THEN 310
+290 X=X+3
+300 GOTO 950
+310 PRINT "IT'S BLOCKED."
+330 GOTO 950
+340 PRINT L$ " SWINGS AND ";
+341 IF D1=4 THEN 410
+345 X3=INT(30*RND(1)+1)
+350 IF X3<10 THEN 410
+360 PRINT "HE MISSES ";
+370 PRINT
+375 IF X=1 THEN 950
+380 PRINT
+390 PRINT
+400 GOTO 300
+410 PRINT "HE CONNECTS!"
+420 IF X>35 THEN 980
+425 X=X+15
+440 GOTO 300
+450 PRINT L$;" GIVES THE HOOK... ";
+455 IF D1=2 THEN 480
+460 H1=INT(2*RND(1)+1)
+470 IF H1=1 THEN 500
+475 PRINT "CONNECTS..."
+480 X=X+7
+490 GOTO 300
+500 PRINT "BUT IT'S BLOCKED!!!!!!!!!!!!!"
+510 GOTO 300
+520 PRINT L$ " TRIES AN UPPERCUT ";
+530 IF D1=3 THEN 570
+540 D5=INT(100*RND(1)+1)
+550 IF D5<51 THEN 570
+560 PRINT "AND IT'S BLOCKED (LUCKY BLOCK!)"
+565 GOTO 300
+570 PRINT "AND HE CONNECTS!"
+580 X=X+4
+590 GOTO 300
+600 J7=INT(4*RND(1)+1)
+601 IF J7 =B1 THEN 605
+602 GOTO 610
+605 Y=Y+2
+610 IF J7=1 THEN 720
+620 IF J7=2 THEN 810
+630 IF J7 =3 THEN 860
+640 PRINT J$;" JABS AND ";
+645 IF D=4 THEN 700
+650 Z4=INT(7*RND(1)+1)
+655 IF Z4>4 THEN 690
+660 PRINT "IT'S BLOCKED!"
+670 GOTO 300
+690 PRINT " BLOOD SPILLS !!!"
+700 Y=Y+5
+710 GOTO 300
+720 PRINT J$" TAKES A FULL SWING AND";
+730 IF D=1 THEN 770
+740 R6=INT(60*RND(1)+1)
+745 IF R6 <30 THEN 770
+750 PRINT " IT'S BLOCKED!"
+760 GOTO 300
+770 PRINT " POW!!!!! HE HITS HIM RIGHT IN THE FACE!"
+780 IF Y>35 THEN 1010
+790 Y=Y+15
+800 GOTO 300
+810 PRINT J$;" GETS ";L$;" IN THE JAW (OUCH!)"
+820 Y=Y+7
+830 PRINT "....AND AGAIN!"
+835 Y=Y+5
+840 IF Y>35 THEN 1010
+850 PRINT
+860 PRINT L$;" IS ATTACKED BY AN UPPERCUT (OH,OH)..."
+865 IF D=3 THEN 890
+870 Q4=INT(200*RND(1)+1)
+880 IF Q4>75 THEN 920
+890 PRINT "AND ";J$;" CONNECTS..."
+900 Y=Y+8
+910 GOTO 300
+920 PRINT " BLOCKS AND HITS ";J$;" WITH A HOOK."
+930 X=X+5
+940 GOTO 300
+950 NEXT R1
+951 IF X>Y THEN 955
+952 PRINT:PRINT J$" WINS ROUND" R
+953 J=J+1
+954 GOTO 960
+955 PRINT:PRINT L$" WINS ROUND"R
+956 L=L+1
+960 NEXT R
+961 IF J>= 2 THEN 1040
+962 IF L>=2 THEN 1060
+980 PRINT J$ " IS KNOCKED COLD AND " L$" IS THE WINNER AND CHAMP!";
+1000 GOTO 1080
+1010 PRINT L$ " IS KNOCKED COLD AND " J$" IS THE WINNER AND CHAMP!";
+1030 GOTO 1000
+1040 PRINT J$ " WINS (NICE GOING," J$;")."
+1050 GOTO 1000
+1060 PRINT L$ " AMAZINGLY WINS!!"
+1070 GOTO 1000
+1080 PRINT
+1085 PRINT
+1090 PRINT "AND NOW GOODBYE FROM THE OLYMPIC ARENA."
+1100 PRINT
+1110 END

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

@@ -0,0 +1,8 @@
+ROCKEM SOCKEM ROBOT
+GLASSJAW GARY
+4
+3
+4
+1
+2
+3

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

@@ -0,0 +1,47 @@
+                                 BOXING
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+
+
+BOXING OLYMPIC STYLE (3 ROUNDS -- 2 OUT OF 3 WINS)
+
+WHAT IS YOUR OPPONENT'S NAME? ROCKEM SOCKEM ROBOT
+INPUT YOUR MAN'S NAME? GLASSJAW GARY
+DIFFERENT PUNCHES ARE: (1) FULL SWING; (2) HOOK; (3) UPPERCUT; (4) JAB.
+WHAT IS YOUR MANS BEST? 4
+WHAT IS HIS VULNERABILITY? 3
+ROCKEM SOCKEM ROBOT'S ADVANTAGE IS 2 AND VULNERABILITY IS SECRET.
+
+ROUND 1 BEGINS...
+GLASSJAW GARY'S PUNCH? 4
+GLASSJAW GARY JABS AT ROCKEM SOCKEM ROBOT'S HEAD ROCKEM SOCKEM ROBOT GETS GLASSJAW GARY IN THE JAW (OUCH!)
+....AND AGAIN!
+
+GLASSJAW GARY IS ATTACKED BY AN UPPERCUT (OH,OH)...
+AND ROCKEM SOCKEM ROBOT CONNECTS...
+GLASSJAW GARY IS ATTACKED BY AN UPPERCUT (OH,OH)...
+AND ROCKEM SOCKEM ROBOT CONNECTS...
+ROCKEM SOCKEM ROBOT JABS AND IT'S BLOCKED!
+GLASSJAW GARY'S PUNCH? 1
+GLASSJAW GARY SWINGS AND HE CONNECTS!
+ROCKEM SOCKEM ROBOT JABS AND  BLOOD SPILLS !!!
+ROCKEM SOCKEM ROBOT JABS AND IT'S BLOCKED!
+
+ROCKEM SOCKEM ROBOT WINS ROUND 1 
+ROUND 2 BEGINS...
+ROCKEM SOCKEM ROBOT TAKES A FULL SWING AND IT'S BLOCKED!
+GLASSJAW GARY'S PUNCH? 2
+GLASSJAW GARY GIVES THE HOOK... CONNECTS...
+ROCKEM SOCKEM ROBOT GETS GLASSJAW GARY IN THE JAW (OUCH!)
+....AND AGAIN!
+
+GLASSJAW GARY IS ATTACKED BY AN UPPERCUT (OH,OH)...
+AND ROCKEM SOCKEM ROBOT CONNECTS...
+GLASSJAW GARY'S PUNCH? 3
+GLASSJAW GARY TRIES AN UPPERCUT AND HE CONNECTS!
+ROCKEM SOCKEM ROBOT GETS GLASSJAW GARY IN THE JAW (OUCH!)
+....AND AGAIN!
+GLASSJAW GARY IS KNOCKED COLD AND ROCKEM SOCKEM ROBOT IS THE WINNER AND CHAMP!
+
+AND NOW GOODBYE FROM THE OLYMPIC ARENA.
+

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

@@ -0,0 +1,256 @@
+10 PRINT TAB(34);"BUG"
+20 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+30 PRINT:PRINT:PRINT
+40 REM
+50 A=0: B=0: H=0: L=0: N=0: P=0: Q=0: R=0: S=0: T=0: U=0: V=0: Y=0
+60 PRINT "THE GAME BUG"
+70 PRINT "I HOPE YOU ENJOY THIS GAME."
+80 PRINT
+90 PRINT "DO YOU WANT INSTRUCTIONS";
+100 INPUT Z$
+110 IF Z$="NO" THEN 300
+120 PRINT "THE OBJECT OF BUG IS TO FINISH YOUR BUG BEFORE I FINISH"
+130 PRINT "MINE. EACH NUMBER STANDS FOR A PART OF THE BUG BODY."
+140 PRINT "I WILL ROLL THE DIE FOR YOU, TELL YOU WHAT I ROLLED FOR YOU"
+150 PRINT "WHAT THE NUMBER STANDS FOR, AND IF YOU CAN GET THE PART."
+160 PRINT "IF YOU CAN GET THE PART I WILL GIVE IT TO YOU."
+170 PRINT "THE SAME WILL HAPPEN ON MY TURN."
+180 PRINT "IF THERE IS A CHANGE IN EITHER BUG I WILL GIVE YOU THE"
+190 PRINT "OPTION OF SEEING THE PICTURES OF THE BUGS."
+200 PRINT "THE NUMBERS STAND FOR PARTS AS FOLLOWS:"
+210 PRINT "NUMBER","PART","NUMBER OF PART NEEDED"
+220 PRINT "1","BODY","1"
+230 PRINT "2","NECK","1"
+240 PRINT "3","HEAD","1"
+250 PRINT "4","FEELERS","2"
+260 PRINT "5","TAIL","1"
+270 PRINT "6","LEGS","6"
+280 PRINT
+290 PRINT
+300 IF Y>0 THEN 2480
+310 Z=INT(6*RND(1)+1)
+320 C=1
+330 PRINT "YOU ROLLED A";Z
+340 ON Z GOTO 350,430,540,650,760,870
+350 PRINT "1=BODY"
+360 IF B=1 THEN 410
+370 PRINT "YOU NOW HAVE A BODY."
+380 B=1
+390 C=0
+400 GOTO 970
+410 PRINT "YOU DO NOT NEED A BODY."
+420 GOTO 970
+430 PRINT "2=NECK"
+440 IF N=1 THEN 500
+450 IF B=0 THEN 520
+460 PRINT "YOU NOW HAVE A NECK."
+470 N=1
+480 C=0
+490 GOTO 970
+500 PRINT "YOU DO NOT NEED A NECK."
+510 GOTO 970
+520 PRINT "YOU DO NOT HAVE A BODY."
+530 GOTO 970
+540 PRINT "3=HEAD"
+550 IF N=0 THEN 610
+560 IF H=1 THEN 630
+570 PRINT "YOU NEEDED A HEAD."
+580 H=1
+590 C=0
+600 GOTO 970
+610 PRINT "YOU DO NOT HAVE A NECK."
+620 GOTO 970
+630 PRINT "YOU HAVE A HEAD."
+640 GOTO 970
+650 PRINT "4=FEELERS"
+660 IF H=0 THEN 740
+670 IF A=2 THEN 720
+680 PRINT "I NOW GIVE YOU A FEELER."
+690 A=A+1
+700 C=0
+710 GOTO 970
+720 PRINT "YOU HAVE TWO FEELERS ALREADY."
+730 GOTO 970
+740 PRINT "YOU DO NOT HAVE A HEAD."
+750 GOTO 970
+760 PRINT "5=TAIL"
+770 IF B=0 THEN 830
+780 IF T=1 THEN 850
+790 PRINT "I NOW GIVE YOU A TAIL."
+800 T=T+1
+810 C=0
+820 GOTO 970
+830 PRINT "YOU DO NOT HAVE A BODY."
+840 GOTO 970
+850 PRINT "YOU ALREADY HAVE A TAIL."
+860 GOTO 970
+870 PRINT "6=LEG"
+880 IF L=6 THEN 940
+890 IF B=0 THEN 960
+900 L=L+1
+910 C=0
+920 PRINT "YOU NOW HAVE";L;"LEGS."
+930 GOTO 970
+940 PRINT "YOU HAVE 6 FEET ALREADY."
+950 GOTO 970
+960 PRINT "YOU DO NOT HAVE A BODY."
+970 X=INT(6*RND(1)+1)
+971 PRINT
+975 FOR DELAY=1 TO 2000:NEXT DELAY
+980 PRINT "I ROLLED A";X
+990 ON X GOTO 1000,1080,1190,1300,1410,1520
+1000 PRINT "1=BODY"
+1010 IF P=1 THEN 1060
+1020 PRINT "I NOW HAVE A BODY."
+1030 C=0
+1040 P=1
+1050 GOTO 1630
+1060 PRINT "I DO NOT NEED A BODY."
+1070 GOTO 1630
+1080 PRINT "2=NECK"
+1090 IF Q=1 THEN 1150
+1100 IF P=0 THEN 1170
+1110 PRINT "I NOW HAVE A NECK."
+1120 Q=1
+1130 C=0
+1140 GOTO 1630
+1150 PRINT "I DO NOT NEED A NECK."
+1160 GOTO 1630
+1170 PRINT "I DO NOT HAVE A BODY."
+1180 GOTO 1630
+1190 PRINT "3=HEAD"
+1200 IF Q=0 THEN 1260
+1210 IF R=1 THEN 1280
+1220 PRINT "I NEEDED A HEAD."
+1230 R=1
+1240 C=0
+1250 GOTO 1630
+1260 PRINT "I DO NOT HAVE A NECK."
+1270 GOTO 1630
+1280 PRINT "I DO NOT NEED A HEAD."
+1290 GOTO 1630
+1300 PRINT "4=FEELERS"
+1310 IF R=0 THEN 1390
+1320 IF S=2 THEN 1370
+1330 PRINT "I GET A FEELER."
+1340 S=S+1
+1350 C=0
+1360 GOTO 1630
+1370 PRINT "I HAVE 2 FEELERS ALREADY."
+1380 GOTO 1630
+1390 PRINT "I DO NOT HAVE A HEAD."
+1400 GOTO 1630
+1410 PRINT "5=TAIL"
+1420 IF P=0 THEN 1480
+1430 IF U=1 THEN 1500
+1440 PRINT "I NOW HAVE A TAIL."
+1450 U=1
+1460 C=0
+1470 GOTO 1630
+1480 PRINT "I DO NOT HAVE A BODY."
+1490 GOTO 1630
+1500 PRINT "I DO NOT NEED A TAIL."
+1510 GOTO 1630
+1520 PRINT "6=LEGS"
+1530 IF V=6 THEN 1590
+1540 IF P=0 THEN 1610
+1550 V=V+1
+1560 C=0
+1570 PRINT "I NOW HAVE";V;"LEGS."
+1580 GOTO 1630
+1590 PRINT "I HAVE 6 FEET."
+1600 GOTO 1630
+1610 PRINT "I DO NOT HAVE A BODY."
+1620 GOTO 1630
+1630 IF A=2 AND T=1 AND L=6 THEN 1650
+1640 GOTO 1670
+1650 PRINT "YOUR BUG IS FINISHED."
+1660 Y=Y+1
+1670 IF S=2 AND P=1 AND V=6 THEN 1690
+1680 GOTO 1710
+1690 PRINT "MY BUG IS FINISHED."
+1700 Y=Y+2
+1710 IF C=1 THEN 300
+1720 PRINT "DO YOU WANT THE PICTURES";
+1730 INPUT Z$
+1740 IF Z$="NO" THEN 300
+1750 PRINT "*****YOUR BUG*****"
+1760 PRINT
+1770 PRINT
+1780 IF A=0 THEN 1860
+1790 FOR Z=1 TO 4
+1800 FOR X=1 TO A
+1810 PRINT TAB(10);
+1820 PRINT "A ";
+1830 NEXT X
+1840 PRINT
+1850 NEXT Z
+1860 IF H=0 THEN 1880
+1870 GOSUB 2470
+1880 IF N=0 THEN 1920
+1890 FOR Z=1 TO 2
+1900 PRINT "          N N"
+1910 NEXT Z
+1920 IF B=0 THEN 2000
+1930 PRINT "     BBBBBBBBBBBB"
+1940 FOR Z=1 TO 2
+1950 PRINT "     B          B"
+1960 NEXT Z
+1970 IF T<>1 THEN 1990
+1980 PRINT "TTTTTB          B"
+1990 PRINT "     BBBBBBBBBBBB"
+2000 IF L=0 THEN 2080
+2010 FOR Z=1 TO 2
+2020 PRINT TAB(5);
+2030 FOR X=1 TO L
+2040 PRINT " L";
+2050 NEXT X
+2060 PRINT
+2070 NEXT Z
+2080 FOR Z=1 TO 4
+2090 PRINT
+2100 NEXT Z
+2110 PRINT "*****MY BUG*****"
+2120 PRINT
+2130 PRINT
+2140 PRINT
+2150 IF S=0 THEN 2230
+2160 FOR Z=1 TO 4
+2170 PRINT TAB(10);
+2180 FOR X=1 TO S
+2190 PRINT "F ";
+2200 NEXT X
+2210 PRINT
+2220 NEXT Z
+2230 IF R<>1 THEN 2250
+2240 GOSUB 2470
+2250 IF Q=0 THEN 2280
+2260 PRINT "          N N"
+2270 PRINT "          N N"
+2280 IF P=0 THEN 2360
+2290 PRINT "     BBBBBBBBBBBB"
+2300 FOR Z=1 TO 2
+2310 PRINT "     B          B"
+2320 NEXT Z
+2330 IF U<>1 THEN 2350
+2340 PRINT "TTTTTB          B"
+2350 PRINT "     BBBBBBBBBBBB"
+2360 IF V=0 THEN 2450
+2370 FOR Z=1 TO 2
+2380 PRINT TAB(5);
+2390 FOR X=1 TO V
+2400 PRINT " L";
+2410 NEXT X
+2420 PRINT
+2430 NEXT Z
+2450 IF Y<>0 THEN 2540
+2460 GOTO 300
+2470 PRINT "        HHHHHHH"
+2480 PRINT "        H     H"
+2490 PRINT "        H O O H"
+2500 PRINT "        H     H"
+2510 PRINT "        H  V  H"
+2520 PRINT "        HHHHHHH"
+2530 RETURN
+2540 PRINT "I HOPE YOU ENJOYED THE GAME, PLAY IT AGAIN SOON!!"
+2550 END

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

@@ -0,0 +1,17 @@
+YES
+YES
+YES
+YES
+Y
+Y
+Y
+Y
+Y
+Y
+Y
+Y
+Y
+Y
+Y
+Y
+Y