basic101 0.1.0

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

@@ -0,0 +1,54 @@
+                                 CHEMIST
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+
+
+THE FICTITIOUS CHECMICAL KRYPTOCYANIC ACID CAN ONLY BE
+DILUTED BY THE RATIO OF 7 PARTS WATER TO 3 PARTS ACID.
+IF ANY OTHER RATIO IS ATTEMPTED, THE ACID BECOMES UNSTABLE
+AND SOON EXPLODES.  GIVEN THE AMOUNT OF ACID, YOU MUST
+DECIDE WHO MUCH WATER TO ADD FOR DILUTION.  IF YOU MISS
+YOU FACE THE CONSEQUENCES.
+ 27 LITERS OF KRYPTOCYANIC ACID.  HOW MUCH WATER? 63.0
+ GOOD JOB! YOU MAY BREATHE NOW, BUT DON'T INHALE THE FUMES!
+
+ 35 LITERS OF KRYPTOCYANIC ACID.  HOW MUCH WATER? 80
+ GOOD JOB! YOU MAY BREATHE NOW, BUT DON'T INHALE THE FUMES!
+
+ 30 LITERS OF KRYPTOCYANIC ACID.  HOW MUCH WATER? 65
+ SIZZLE!  YOU HAVE JUST BEEN DESALINATED INTO A BLOB
+ OF QUIVERING PROTOPLASM!
+ HOWEVER, YOU MAY TRY AGAIN WITH ANOTHER LIFE.
+ 27 LITERS OF KRYPTOCYANIC ACID.  HOW MUCH WATER? 1
+ SIZZLE!  YOU HAVE JUST BEEN DESALINATED INTO A BLOB
+ OF QUIVERING PROTOPLASM!
+ HOWEVER, YOU MAY TRY AGAIN WITH ANOTHER LIFE.
+ 21 LITERS OF KRYPTOCYANIC ACID.  HOW MUCH WATER? 2
+ SIZZLE!  YOU HAVE JUST BEEN DESALINATED INTO A BLOB
+ OF QUIVERING PROTOPLASM!
+ HOWEVER, YOU MAY TRY AGAIN WITH ANOTHER LIFE.
+ 32 LITERS OF KRYPTOCYANIC ACID.  HOW MUCH WATER? 3
+ SIZZLE!  YOU HAVE JUST BEEN DESALINATED INTO A BLOB
+ OF QUIVERING PROTOPLASM!
+ HOWEVER, YOU MAY TRY AGAIN WITH ANOTHER LIFE.
+ 21 LITERS OF KRYPTOCYANIC ACID.  HOW MUCH WATER? 4
+ SIZZLE!  YOU HAVE JUST BEEN DESALINATED INTO A BLOB
+ OF QUIVERING PROTOPLASM!
+ HOWEVER, YOU MAY TRY AGAIN WITH ANOTHER LIFE.
+ 44 LITERS OF KRYPTOCYANIC ACID.  HOW MUCH WATER? 5
+ SIZZLE!  YOU HAVE JUST BEEN DESALINATED INTO A BLOB
+ OF QUIVERING PROTOPLASM!
+ HOWEVER, YOU MAY TRY AGAIN WITH ANOTHER LIFE.
+ 48 LITERS OF KRYPTOCYANIC ACID.  HOW MUCH WATER? 6
+ SIZZLE!  YOU HAVE JUST BEEN DESALINATED INTO A BLOB
+ OF QUIVERING PROTOPLASM!
+ HOWEVER, YOU MAY TRY AGAIN WITH ANOTHER LIFE.
+ 19 LITERS OF KRYPTOCYANIC ACID.  HOW MUCH WATER? 7
+ SIZZLE!  YOU HAVE JUST BEEN DESALINATED INTO A BLOB
+ OF QUIVERING PROTOPLASM!
+ HOWEVER, YOU MAY TRY AGAIN WITH ANOTHER LIFE.
+ 39 LITERS OF KRYPTOCYANIC ACID.  HOW MUCH WATER? 8
+ SIZZLE!  YOU HAVE JUST BEEN DESALINATED INTO A BLOB
+ OF QUIVERING PROTOPLASM!
+ YOUR 9 LIVES ARE USED, BUT YOU WILL BE LONG REMEMBERED FOR
+ YOUR CONTRIBUTIONS TO THE FIELD OF COMIC BOOK CHEMISTRY.

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

@@ -0,0 +1,51 @@
+2 PRINT TAB(30) "CHIEF"
+4 PRINT TAB(15) "CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+6 PRINT:PRINT:PRINT
+10 PRINT "I AM CHIEF NUMBERS FREEK, THE GREAT INDIAN MATH GOD."
+20 PRINT "ARE YOU READY TO TAKE THE TEST YOU CALLED ME OUT FOR";
+30 INPUT A$
+40 IF A$="YES" THEN 60
+50 PRINT "SHUT UP, PALE FACE WITH WISE TONGUE."
+60 PRINT " TAKE A NUMBER AND ADD 3. DIVIDE THIS NUMBER BY 5 AND"
+70 PRINT "MULTIPLY BY 8. DIVIDE BY 5 AND ADD THE SAME. SUBTRACT 1."
+80 PRINT "  WHAT DO YOU HAVE";
+90 INPUT B
+100 LET C = (B+1-5)*5/8*5-3
+110 PRINT "I BET YOUR NUMBER WAS" C". AM I RIGHT";
+120 INPUT D$
+130 IF D$="YES" THEN 510
+140 PRINT "WHAT WAS YOUR ORIGINAL NUMBER";
+150 INPUT K
+155 LET F=K+3
+160 LET G=F/5
+170 LET H=G*8
+180 LET I=H/5+5
+190 LET J=I-1
+200 PRINT "SO YOU THINK YOU'RE SO SMART, EH?"
+210 PRINT "NOW WATCH."
+230 PRINT K"PLUS 3 EQUALS"F". THIS DIVIDED BY 5 EQUALS"G";"
+240 PRINT "THIS TIMES 8 EQUALS"H". IF WE DIVIDE BY 5 AND ADD 5,"
+250 PRINT "WE GET"I", WHICH, MINUS 1, EQUALS"J"."
+260 PRINT "NOW DO YOU BELIEVE ME";
+270 INPUT Z$
+290 IF Z$="YES" THEN 510
+295 PRINT "YOU HAVE MADE ME MAD!!!"
+300 PRINT "THERE MUST BE A GREAT LIGHTNING BOLT!"
+310 PRINT:PRINT
+330 FOR X=30 TO 22 STEP -1
+340 PRINT TAB(X) "X X"
+350 NEXT X
+360 PRINT TAB(21) "X XXX"
+370 PRINT TAB(20) "X   X"
+380 PRINT TAB(19) "XX X"
+390 FOR Y=20 TO 13 STEP -1
+400 PRINT TAB(Y) "X X"
+410 NEXT Y
+420 PRINT TAB(12) "XX"
+430 PRINT TAB(11) "X"
+440 PRINT TAB(10) "*"
+450 PRINT:PRINT"#########################":PRINT
+470 PRINT "I HOPE YOU BELIEVE ME NOW, FOR YOUR SAKE!!"
+480 GOTO 520
+510 PRINT "BYE!!!"
+520 END

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

@@ -0,0 +1,5 @@
+YES
+12
+NO
+3
+YES

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

@@ -0,0 +1,19 @@
+                              CHIEF
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+
+
+I AM CHIEF NUMBERS FREEK, THE GREAT INDIAN MATH GOD.
+ARE YOU READY TO TAKE THE TEST YOU CALLED ME OUT FOR? YES
+ TAKE A NUMBER AND ADD 3. DIVIDE THIS NUMBER BY 5 AND
+MULTIPLY BY 8. DIVIDE BY 5 AND ADD THE SAME. SUBTRACT 1.
+  WHAT DO YOU HAVE? 12
+I BET YOUR NUMBER WAS 22 . AM I RIGHT? NO
+WHAT WAS YOUR ORIGINAL NUMBER? 3
+SO YOU THINK YOU'RE SO SMART, EH?
+NOW WATCH.
+ 3 PLUS 3 EQUALS 6 . THIS DIVIDED BY 5 EQUALS 1.2 ;
+THIS TIMES 8 EQUALS 9.6 . IF WE DIVIDE BY 5 AND ADD 5,
+WE GET 6.92 , WHICH, MINUS 1, EQUALS 5.92 .
+NOW DO YOU BELIEVE ME? YES
+BYE!!!

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

@@ -0,0 +1,104 @@
+10 PRINT TAB(33);"CHOMP"
+20 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+30 PRINT:PRINT:PRINT
+40 DIM A(10,10)
+100 REM *** THE GAME OF CHOMP *** COPYRIGHT PCC 1973 ***
+110 PRINT 
+120 PRINT "THIS IS THE GAME OF CHOMP (SCIENTIFIC AMERICAN, JAN 1973)"
+130 PRINT "DO YOU WANT THE RULES (1=YES, 0=NO!)";
+140 INPUT R
+150 IF R=0 THEN 340
+160 F=1
+170 R=5
+180 C=7
+190 PRINT "CHOMP IS FOR 1 OR MORE PLAYERS (HUMANS ONLY)."
+200 PRINT
+210 PRINT "HERE'S HOW A BOARD LOOKS (THIS ONE IS 5 BY 7):"
+220 GOSUB 540
+230 PRINT
+240 PRINT "THE BOARD IS A BIG COOKIE - R ROWS HIGH AND C COLUMNS"
+250 PRINT "WIDE. YOU INPUT R AND C AT THE START. IN THE UPPER LEFT"
+260 PRINT "CORNER OF THE COOKIE IS A POISON SQUARE (P). THE ONE WHO"
+270 PRINT "CHOMPS THE POISON SQUARE LOSES. TO TAKE A CHOMP, TYPE THE"
+280 PRINT "ROW AND COLUMN OF ONE OF THE SQUARES ON THE COOKIE."
+290 PRINT "ALL OF THE SQUARES BELOW AND TO THE RIGHT OF THAT SQUARE"
+300 PRINT "(INCLUDING THAT SQUARE, TOO) DISAPPEAR -- CHOMP!!"
+310 PRINT "NO FAIR CHOMPING SQUARES THAT HAVE ALREADY BEEN CHOMPED,"
+320 PRINT "OR THAT ARE OUTSIDE THE ORIGINAL DIMENSIONS OF THE COOKIE."
+330 PRINT 
+340 PRINT "HERE WE GO..."
+350 REM 
+360 F=0
+370 FOR I=1 TO 10
+372 FOR J=1 TO 10
+375 A(I,J)=0
+377 NEXT J
+379 NEXT I
+380 PRINT 
+390 PRINT "HOW MANY PLAYERS";
+400 INPUT P
+410 I1=0
+420 PRINT "HOW MANY ROWS";
+430 INPUT R
+440 IF R <= 9 THEN 470
+450 PRINT "TOO MANY ROWS (9 IS MAXIMUM). NOW, ";
+460 GOTO 420
+470 PRINT "HOW MANY COLUMNS";
+480 INPUT C
+490 IF C <= 9 THEN 530
+500 PRINT "TOO MANY COLUMNS (9 IS MAXIMUM). NOW, ";
+510 GOTO 470
+530 PRINT 
+540 FOR I=1 TO R
+550 FOR J=1 TO C
+560 A(I,J)=1
+570 NEXT J
+580 NEXT I
+590 A(1,1)=-1
+600 REM PRINT THE BOARD
+610 PRINT 
+620 PRINT TAB(7);"1 2 3 4 5 6 7 8 9"
+630 FOR I=1 TO R
+640 PRINT I;TAB(7);
+650 FOR J=1 TO C
+660 IF A(I,J)=-1 THEN 700
+670 IF A(I,J)=0 THEN 720
+680 PRINT "* ";
+690 GOTO 710
+700 PRINT "P ";
+710 NEXT J
+720 PRINT 
+730 NEXT I
+740 PRINT 
+750 IF F=0 THEN 770
+760 RETURN 
+770 REM GET CHOMPS FOR EACH PLAYER IN TURN
+780 LET I1=I1+1
+790 LET P1=I1-INT(I1/P)*P
+800 IF P1 <> 0 THEN 820
+810 P1=P
+820 PRINT "PLAYER";P1
+830 PRINT "COORDINATES OF CHOMP (ROW,COLUMN)";
+840 INPUT R1,C1
+850 IF R1<1 THEN 920
+860 IF R1>R THEN 920
+870 IF C1<1 THEN 920
+880 IF C1>C THEN 920
+890 IF A(R1,C1)=0 THEN 920
+900 IF A(R1,C1)=-1 THEN 1010
+910 GOTO 940
+920 PRINT "NO FAIR. YOU'RE TRYING TO CHOMP ON EMPTY SPACE!"
+930 GOTO 820
+940 FOR I=R1 TO R
+950 FOR J=C1 TO C
+960 A(I,J)=0
+970 NEXT J
+980 NEXT I
+990 GOTO 610
+1000 REM END OF GAME DETECTED IN LINE 900
+1010 PRINT "YOU LOSE, PLAYER";P1
+1020 PRINT 
+1030 PRINT "AGAIN (1=YES, 0=NO!)";
+1040 INPUT R$
+1050 IF R=1 THEN 340
+1060 END

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

@@ -0,0 +1,15 @@
+1
+2
+8
+8
+7,5
+4,7
+4,3
+1,5
+4,2
+2,2
+1,2
+2,8
+2,1
+1,1
+0

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

@@ -0,0 +1,159 @@
+                                 CHOMP
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+
+
+
+THIS IS THE GAME OF CHOMP (SCIENTIFIC AMERICAN, JAN 1973)
+DO YOU WANT THE RULES (1=YES, 0=NO!)? 1
+CHOMP IS FOR 1 OR MORE PLAYERS (HUMANS ONLY).
+
+HERE'S HOW A BOARD LOOKS (THIS ONE IS 5 BY 7):
+
+       1 2 3 4 5 6 7 8 9
+ 1     P * * * * * * 
+ 2     * * * * * * * 
+ 3     * * * * * * * 
+ 4     * * * * * * * 
+ 5     * * * * * * * 
+
+
+THE BOARD IS A BIG COOKIE - R ROWS HIGH AND C COLUMNS
+WIDE. YOU INPUT R AND C AT THE START. IN THE UPPER LEFT
+CORNER OF THE COOKIE IS A POISON SQUARE (P). THE ONE WHO
+CHOMPS THE POISON SQUARE LOSES. TO TAKE A CHOMP, TYPE THE
+ROW AND COLUMN OF ONE OF THE SQUARES ON THE COOKIE.
+ALL OF THE SQUARES BELOW AND TO THE RIGHT OF THAT SQUARE
+(INCLUDING THAT SQUARE, TOO) DISAPPEAR -- CHOMP!!
+NO FAIR CHOMPING SQUARES THAT HAVE ALREADY BEEN CHOMPED,
+OR THAT ARE OUTSIDE THE ORIGINAL DIMENSIONS OF THE COOKIE.
+
+HERE WE GO...
+
+HOW MANY PLAYERS? 2
+HOW MANY ROWS? 8
+HOW MANY COLUMNS? 8
+
+
+       1 2 3 4 5 6 7 8 9
+ 1     P * * * * * * * 
+ 2     * * * * * * * * 
+ 3     * * * * * * * * 
+ 4     * * * * * * * * 
+ 5     * * * * * * * * 
+ 6     * * * * * * * * 
+ 7     * * * * * * * * 
+ 8     * * * * * * * * 
+
+PLAYER 1 
+COORDINATES OF CHOMP (ROW,COLUMN)? 7,5
+
+       1 2 3 4 5 6 7 8 9
+ 1     P * * * * * * * 
+ 2     * * * * * * * * 
+ 3     * * * * * * * * 
+ 4     * * * * * * * * 
+ 5     * * * * * * * * 
+ 6     * * * * * * * * 
+ 7     * * * * 
+ 8     * * * * 
+
+PLAYER 2 
+COORDINATES OF CHOMP (ROW,COLUMN)? 4,7
+
+       1 2 3 4 5 6 7 8 9
+ 1     P * * * * * * * 
+ 2     * * * * * * * * 
+ 3     * * * * * * * * 
+ 4     * * * * * * 
+ 5     * * * * * * 
+ 6     * * * * * * 
+ 7     * * * * 
+ 8     * * * * 
+
+PLAYER 1 
+COORDINATES OF CHOMP (ROW,COLUMN)? 4,3
+
+       1 2 3 4 5 6 7 8 9
+ 1     P * * * * * * * 
+ 2     * * * * * * * * 
+ 3     * * * * * * * * 
+ 4     * * 
+ 5     * * 
+ 6     * * 
+ 7     * * 
+ 8     * * 
+
+PLAYER 2 
+COORDINATES OF CHOMP (ROW,COLUMN)? 1,5
+
+       1 2 3 4 5 6 7 8 9
+ 1     P * * * 
+ 2     * * * * 
+ 3     * * * * 
+ 4     * * 
+ 5     * * 
+ 6     * * 
+ 7     * * 
+ 8     * * 
+
+PLAYER 1 
+COORDINATES OF CHOMP (ROW,COLUMN)? 4,2
+
+       1 2 3 4 5 6 7 8 9
+ 1     P * * * 
+ 2     * * * * 
+ 3     * * * * 
+ 4     * 
+ 5     * 
+ 6     * 
+ 7     * 
+ 8     * 
+
+PLAYER 2 
+COORDINATES OF CHOMP (ROW,COLUMN)? 2,2
+
+       1 2 3 4 5 6 7 8 9
+ 1     P * * * 
+ 2     * 
+ 3     * 
+ 4     * 
+ 5     * 
+ 6     * 
+ 7     * 
+ 8     * 
+
+PLAYER 1 
+COORDINATES OF CHOMP (ROW,COLUMN)? 1,2
+
+       1 2 3 4 5 6 7 8 9
+ 1     P 
+ 2     * 
+ 3     * 
+ 4     * 
+ 5     * 
+ 6     * 
+ 7     * 
+ 8     * 
+
+PLAYER 2 
+COORDINATES OF CHOMP (ROW,COLUMN)? 2,8
+NO FAIR. YOU'RE TRYING TO CHOMP ON EMPTY SPACE!
+PLAYER 2 
+COORDINATES OF CHOMP (ROW,COLUMN)? 2,1
+
+       1 2 3 4 5 6 7 8 9
+ 1     P 
+ 2     
+ 3     
+ 4     
+ 5     
+ 6     
+ 7     
+ 8     
+
+PLAYER 1 
+COORDINATES OF CHOMP (ROW,COLUMN)? 1,1
+YOU LOSE, PLAYER 1 
+
+AGAIN (1=YES, 0=NO!)? 0

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

@@ -0,0 +1,124 @@
+1 PRINT TAB(33);"COMBAT"
+2 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+3 PRINT: PRINT: PRINT
+4 PRINT "I AM AT WAR WITH YOU.": PRINT "WE HAVE 72000 SOLDIERS APIECE."
+5 PRINT:PRINT "DISTRIBUTE YOUR FORCES."
+6 PRINT ,"ME","  YOU"
+7 PRINT "ARMY",30000,
+8 INPUT A
+9 PRINT "NAVY",20000,
+10 INPUT B
+11 PRINT "A. F.",22000,
+12 INPUT C
+13 IF A+B+C>72000 THEN 5
+14 D=30000
+15 E=20000
+16 F=22000
+17 PRINT "YOU ATTACK FIRST. TYPE (1) FOR ARMY; (2) FOR NAVY;"
+18 PRINT "AND (3) FOR AIR FORCE."
+19 INPUT Y
+20 PRINT "HOW MANY MEN"
+21 INPUT X
+22 IF X<0 THEN 20
+23 ON Y GOTO 100,200,300
+100 IF X>A THEN 20
+105 IF X<A/3 THEN 120
+110 IF X<2*A/3 THEN 150
+115 GOTO 270
+120 PRINT "YOU LOST";X;"MEN FROM YOUR ARMY."
+125 A=INT(A-X)
+130 GOTO 500
+150 PRINT "YOU LOST";INT(X/3);"MEN, BUT I LOST ";INT(2*D/3)
+155 A=INT(A-X/3)
+160 D=0
+165 GOTO 500 
+200 IF X>B THEN 20
+210 IF X<E/3 THEN 230
+215 IF X<2*E/3 THEN 250
+220 GOTO 270
+230 PRINT "YOUR ATTACK WAS STOPPED!"
+232 B=INT(B-X)
+235 GOTO 500
+250 PRINT "YOU DESTROYED";INT(2*E/3);"OF MY ARMY."
+255 E=INT(E/3)
+260 GOTO 500
+270 PRINT "YOU SUNK ONE OF MY PATROL BOATS, BUT I WIPED OUT TWO"
+275 PRINT "OF YOUR AIR FORCE BASES AND 3 ARMY BASES."
+280 A=INT(A/3)
+285 C=INT(C/3)
+290 E=INT(2*E/3)
+293 GOTO 500
+300 IF X>C THEN 20
+310 IF X<C/3 THEN 350
+320 IF X<2*C/3 THEN 370
+330 GOTO 380
+350 PRINT "YOUR ATTACK WAS WIPED OUT."
+355 C=INT(C-X)
+360 GOTO 500
+370 PRINT "WE HAD A DOGFIGHT. YOU WON - AND FINISHED YOUR MISSION."
+375 D=INT(2*D/3)
+377 E=INT(E/3)
+378 F=INT(F/3)
+379 GOTO 500
+380 PRINT "YOU WIPED OUT ONE OF MY ARMY PATROLS, BUT I DESTROYED"
+381 PRINT "TWO NAVY BASES AND BOMBED THREE ARMY BASES."
+385 A=INT(A/4)
+387 B=INT(B/3)
+390 D=INT(2*D/3)
+500 PRINT
+501 PRINT,"YOU","ME"
+510 PRINT "ARMY",A,D
+520 PRINT "NAVY",B,E
+530 PRINT "A. F.",C,F
+1000 PRINT "WHAT IS YOUR NEXT MOVE?"
+1010 PRINT "ARMY=1  NAVY=2  AIR FORCE=3"
+1020 INPUT G
+1030 PRINT "HOW MANY MEN"
+1040 INPUT T
+1045 IF T<0 THEN 1030
+1050 ON G GOTO 1600,1700,1800
+1600 IF T>A THEN 1030
+1610 IF T<D/2 THEN 1630
+1615 PRINT "YOU DESTROYED MY ARMY!"
+1616 D=0
+1617 GOTO 2000
+1630 PRINT "I WIPED OUT YOUR ATTACK!"
+1635 A=A-T
+1640 GOTO 2000
+1700 IF T>B THEN 1030 
+1710 IF T<E/2 THEN 1750
+1720 GOTO 1770
+1750 PRINT "I SUNK TWO OF YOUR BATTLESHIPS, AND MY AIR FORCE"
+1751 PRINT "WIPED OUT YOUR UNGAURDED CAPITOL."
+1755 A=A/4
+1760 B=B/2
+1765 GOTO 2000
+1770 PRINT "YOUR NAVY SHOT DOWN THREE OF MY XIII PLANES,"
+1771 PRINT "AND SUNK THREE BATTLESHIPS."
+1775 F=2*F/3
+1780 E=(E/2)
+1790 GOTO 2000
+1800 IF T>C THEN 1030 
+1810 IF T>F/2 THEN 1830 
+1820 GOTO 1850
+1830 PRINT "MY NAVY AND AIR FORCE IN A COMBINED ATTACK LEFT"
+1831 PRINT "YOUR COUNTRY IN SHAMBLES."
+1835 A=A/3
+1837 B=B/3
+1840 C=C/3
+1845 GOTO 2000
+1850 PRINT "ONE OF YOUR PLANES CRASHED INTO MY HOUSE. I AM DEAD."
+1851 PRINT "MY COUNTRY FELL APART."
+1860 GOTO 2010
+2000 PRINT
+2001 PRINT "FROM THE RESULTS OF BOTH OF YOUR ATTACKS,"
+2002 IF A+B+C>3/2*(D+E+F) THEN 2010
+2005 IF A+B+C<2/3*(D+E+F) THEN 2015
+2006 PRINT "THE TREATY OF PARIS CONCLUDED THAT WE TAKE OUR"
+2007 PRINT "RESPECTIVE COUNTRIES AND LIVE IN PEACE."
+2008 GOTO 2020
+2010 PRINT "YOU WON, OH! SHUCKS!!!!"
+2012 GOTO 2020
+2015 PRINT "YOU LOST-I CONQUERED YOUR COUNTRY.  IT SERVES YOU"
+2016 PRINT "RIGHT FOR PLAYING THIS STUPID GAME!!!"
+2020 END

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

@@ -0,0 +1,7 @@
+10000
+20000
+42000
+3
+20000
+1
+10000

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

@@ -0,0 +1,33 @@
+                                 COMBAT
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+
+
+I AM AT WAR WITH YOU.
+WE HAVE 72000 SOLDIERS APIECE.
+
+DISTRIBUTE YOUR FORCES.
+              ME              YOU
+ARMY           30000        ? 10000
+NAVY           20000        ? 20000
+A. F.          22000        ? 42000
+YOU ATTACK FIRST. TYPE (1) FOR ARMY; (2) FOR NAVY;
+AND (3) FOR AIR FORCE.
+? 3
+HOW MANY MEN
+? 20000
+WE HAD A DOGFIGHT. YOU WON - AND FINISHED YOUR MISSION.
+
+              YOU           ME
+ARMY           10000         20000 
+NAVY           20000         6666 
+A. F.          42000         7333 
+WHAT IS YOUR NEXT MOVE?
+ARMY=1  NAVY=2  AIR FORCE=3
+? 1
+HOW MANY MEN
+? 10000
+YOU DESTROYED MY ARMY!
+
+FROM THE RESULTS OF BOTH OF YOUR ATTACKS,
+YOU WON, OH! SHUCKS!!!!

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

@@ -0,0 +1,82 @@
+5 PRINT TAB(33);"CRAPS"
+10 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+12 PRINT:PRINT:PRINT
+15 LET R=0
+20 PRINT"2,3,12 ARE LOSERS; 4,5,6,8,9,10 ARE POINTS; 7,11 ARE NATURAL WINNERS."
+21 LET T=1
+22 PRINT "PICK A NUMBER AND INPUT TO ROLL DICE";
+23 INPUT Z
+24 LET X=(RND(0))
+25 LET T =T+1
+26 IF T<=Z GOTO 24
+27 PRINT"INPUT THE AMOUNT OF YOUR WAGER.";
+28 INPUT F
+30 PRINT "I WILL NOW THROW THE DICE"
+40 LET E=INT(7*RND(1))
+41 LET S=INT(7*RND(1))
+42 LET X=E+S
+50 IF X=7 GOTO 180 
+55 IF X=11 GOTO 180
+60 IF X=1 GOTO 40
+62 IF X=2 GOTO 195
+65 IF X=0 GOTO 40
+70 IF X=2 GOTO 200
+80 IF X=3 GOTO 200
+90 IF X=12 GOTO 200
+125 IF X=5 GOTO 220
+130 IF X =6 GOTO 220
+140 IF X=8 GOTO 220
+150 IF X=9 GOTO 220
+160 IF X =10 GOTO 220
+170 IF X=4 GOTO 220
+180 PRINT X "- NATURAL....A WINNER!!!!"
+185 PRINT X"PAYS EVEN MONEY, YOU WIN"F"DOLLARS"
+190 GOTO 210
+195 PRINT X"- SNAKE EYES....YOU LOSE."
+196 PRINT "YOU LOSE"F "DOLLARS."
+197 LET F=0-F
+198 GOTO 210
+200 PRINT X " - CRAPS...YOU LOSE."
+205 PRINT "YOU LOSE"F"DOLLARS."
+206 LET F=0-F
+210 LET R= R+F
+211 GOTO 320
+220 PRINT X "IS THE POINT. I WILL ROLL AGAIN"
+230 LET H=INT(7*RND(1))
+231 LET Q=INT(7*RND(1))
+232 LET O=H+Q
+240 IF O=1 GOTO 230
+250 IF O=7 GOTO 290
+255 IF O=0 GOTO 230
+260 IF O=X GOTO 310
+270 PRINT O " - NO POINT. I WILL ROLL AGAIN"
+280 GOTO 230
+290 PRINT O "- CRAPS. YOU LOSE."
+291 PRINT "YOU LOSE $"F
+292 F=0-F
+293 GOTO 210
+300 GOTO 320
+310 PRINT X"- A WINNER.........CONGRATS!!!!!!!!"
+311 PRINT X "AT 2 TO 1 ODDS PAYS YOU...LET ME SEE..."2*F"DOLLARS"
+312 LET F=2*F
+313 GOTO 210
+320 PRINT " IF YOU WANT TO PLAY AGAIN PRINT 5 IF NOT PRINT 2";
+330 INPUT M
+331 IF R<0 GOTO 334
+332 IF R>0 GOTO 336
+333 IF R=0 GOTO 338
+334 PRINT "YOU ARE NOW UNDER $";-R
+335 GOTO 340
+336 PRINT "YOU ARE NOW AHEAD $";R
+337 GOTO 340
+338 PRINT "YOU ARE NOW EVEN AT 0"
+340 IF M=5 GOTO 27
+341 IF R<0 GOTO 350
+342 IF R>0 GOTO 353
+343 IF R=0 GOTO 355
+350 PRINT"TOO BAD, YOU ARE IN THE HOLE. COME AGAIN."
+351 GOTO 360
+353 PRINT"CONGRATULATIONS---YOU CAME OUT A WINNER. COME AGAIN!"
+354 GOTO 360
+355 PRINT"CONGRATULATIONS---YOU CAME OUT EVEN, NOT BAD FOR AN AMATEUR"
+360 END

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

@@ -0,0 +1,9 @@
+4
+10
+5
+10
+5
+20
+5
+10
+2