basic101 0.1.0

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

@@ -0,0 +1,149 @@
+                              ROCKET
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+
+
+LUNAR LANDING SIMULATION
+----- ------- ----------
+
+DO YOU WANT INSTRUCTIONS (YES OR NO)? YES
+
+YOU ARE LANDING ON THE MOON AND AND HAVE TAKEN OVER MANUAL
+CONTROL 1000 FEET ABOVE A GOOD LANDING SPOT. YOU HAVE A DOWN-
+WARD VELOCITY OF 50 FEET/SEC. 150 UNITS OF FUEL REMAIN.
+
+HERE ARE THE RULES THAT GOVERN YOUR APOLLO SPACE-CRAFT:
+
+(1) AFTER EACH SECOND THE HEIGHT, VELOCITY, AND REMAINING FUEL
+    WILL BE REPORTED VIA DIGBY YOUR ON-BOARD COMPUTER.
+(2) AFTER THE REPORT A '?' WILL APPEAR. ENTER THE NUMBER
+    OF UNITS OF FUEL YOU WISH TO BURN DURING THE NEXT
+    SECOND. EACH UNIT OF FUEL WILL SLOW YOUR DESCENT BY
+    1 FOOT/SEC.
+(3) THE MAXIMUM THRUST OF YOUR ENGINE IS 30 FEET/SEC/SEC
+    OR 30 UNITS OF FUEL PER SECOND.
+(4) WHEN YOU CONTACT THE LUNAR SURFACE. YOUR DESCENT ENGINE
+    WILL AUTOMATICALLY SHUT DOWN AND YOU WILL BE GIVEN A
+    REPORT OF YOUR LANDING SPEED AND REMAINING FUEL.
+(5) IF YOU RUN OUT OF FUEL THE '?' WILL NO LONGER APPEAR
+    BUT YOUR SECOND BY SECOND REPORT WILL CONTINUE UNTIL
+    YOU CONTACT THE LUNAR SURFACE.
+
+BEGINNING LANDING PROCEDURE..........
+
+G O O D  L U C K ! ! !
+
+
+SEC  FEET      SPEED     FUEL     PLOT OF DISTANCE
+
+ 0     1000      50        150     I                              *
+? 0
+ 1     947.5     55        150     I                           *
+? 0
+ 2     890       60        150     I                       *
+? 0
+ 3     827.5     65        150     I                   *
+? 0
+ 4     760       70        150     I              *
+? 0
+ 5     687.5     75        150     I         *
+? 0
+ 6     610       80        150     I    *
+? 30
+ 7     542.5     55        120     I*
+? 5
+ 8     487.5     55        115     I*
+? 5
+ 9     432.5     55        110     I*
+? 5
+ 10    377.5     55        105     I*
+? 5
+ 11    322.5     55        100     I*
+? 5
+ 12    267.5     55        95      I*
+? 5
+ 13    212.5     55        90      I*
+? 5
+ 14    157.5     55        85      I*
+? 5
+ 15    102.5     55        80      I*
+? 5
+ 16    47.5      55        75      I*
+? 5
+***** CONTACT *****
+TOUCHDOWN AT 16.86364 SECONDS.
+LANDING VELOCITY= 55 FEET/SEC.
+ 70 UNITS OF FUEL REMAINING.
+***** SORRY, BUT YOU BLEW IT!!!!
+APPROPRIATE CONDOLENCES WILL BE SENT TO YOUR NEXT OF KIN.
+
+
+
+ANOTHER MISSION? YES
+BEGINNING LANDING PROCEDURE..........
+
+G O O D  L U C K ! ! !
+
+
+SEC  FEET      SPEED     FUEL     PLOT OF DISTANCE
+
+ 0     1000      50        150     I                              *
+? 0
+ 1     947.5     55        150     I                           *
+? 0
+ 2     890       60        150     I                       *
+? 0
+ 3     827.5     65        150     I                   *
+? 0
+ 4     760       70        150     I              *
+? 0
+ 5     687.5     75        150     I         *
+? 0
+ 6     610       80        150     I    *
+? 0
+ 7     527.5     85        150     I*
+? 0
+ 8     440       90        150     I*
+? 0
+ 9     347.5     95        150     I*
+? 30
+ 10    265       70        120     I*
+? 30
+ 11    207.5     45        90      I*
+? 20
+ 12    170       30        70      I*
+? 20
+ 13    147.5     15        50      I*
+? 5
+ 14    132.5     15        45      I*
+? 5
+ 15    117.5     15        40      I*
+? 5
+ 16    102.5     15        35      I*
+? 5
+ 17    87.5      15        30      I*
+? 5
+ 18    72.5      15        25      I*
+? 5
+ 19    57.5      15        20      I*
+? 10
+ 20    45        10        10      I*
+? 5
+ 21    35        10        5       I*
+? 5
+**** OUT OF FUEL ****
+ 22  25      10      0       I *
+ 23  12.5    15      0       I*
+***** CONTACT *****
+TOUCHDOWN AT 23.74166 SECONDS.
+LANDING VELOCITY= 18.70829 FEET/SEC.
+ 0 UNITS OF FUEL REMAINING.
+***** SORRY, BUT YOU BLEW IT!!!!
+APPROPRIATE CONDOLENCES WILL BE SENT TO YOUR NEXT OF KIN.
+
+
+
+ANOTHER MISSION? NO
+
+CONTROL OUT.
+

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

@@ -0,0 +1,33 @@
+10 PRINT TAB(21);"GAME OF ROCK, SCISSORS, PAPER"
+20 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+25 PRINT:PRINT:PRINT
+30 INPUT "HOW MANY GAMES";Q
+40 IF Q<11 THEN 60
+50 PRINT "SORRY, BUT WE AREN'T ALLOWED TO PLAY THAT MANY.": GOTO 30
+60 FOR G=1 TO Q
+70 PRINT: PRINT "GAME NUMBER";G
+80 X=INT(RND(1)*3+1)
+90 PRINT "3=ROCK...2=SCISSORS...1=PAPER"
+100 INPUT "1...2...3...WHAT'S YOUR CHOICE";K
+110 IF (K-1)*(K-2)*(K-3)<>0 THEN PRINT "INVALID.": GOTO 90
+120 PRINT "THIS IS MY CHOICE..."
+130 ON X GOTO 140,150,160
+140 PRINT "...PAPER": GOTO 170
+150 PRINT "...SCISSORS": GOTO 170
+160 PRINT "...ROCK"
+170 IF X=K THEN 250
+180 IF X>K THEN 230
+190 IF X=1 THEN 210
+200 PRINT "YOU WIN!!!":H=H+1: GOTO 260
+210 IF K<>3 THEN 200
+220 PRINT "WOW!  I WIN!!!":C=C+1:GOTO 260
+230 IF K<>1 OR X<>3 THEN 220
+240 GOTO 200
+250 PRINT "TIE GAME.  NO WINNER."
+260 NEXT G
+270 PRINT: PRINT "HERE IS THE FINAL GAME SCORE:"
+280 PRINT "I HAVE WON";C;"GAME(S)."
+290 PRINT "YOU HAVE WON";H;"GAME(S)."
+300 PRINT "AND";Q-(C+H);"GAME(S) ENDED IN A TIE."
+310 PRINT: PRINT "THANKS FOR PLAYING!!"
+320 END

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

@@ -0,0 +1,9 @@
+8
+1
+2
+3
+2
+1
+2
+3
+2

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

@@ -0,0 +1,69 @@
+                     GAME OF ROCK, SCISSORS, PAPER
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+
+
+HOW MANY GAMES? 8
+
+GAME NUMBER 1 
+3=ROCK...2=SCISSORS...1=PAPER
+1...2...3...WHAT'S YOUR CHOICE? 1
+THIS IS MY CHOICE...
+...SCISSORS
+WOW!  I WIN!!!
+
+GAME NUMBER 2 
+3=ROCK...2=SCISSORS...1=PAPER
+1...2...3...WHAT'S YOUR CHOICE? 2
+THIS IS MY CHOICE...
+...ROCK
+WOW!  I WIN!!!
+
+GAME NUMBER 3 
+3=ROCK...2=SCISSORS...1=PAPER
+1...2...3...WHAT'S YOUR CHOICE? 3
+THIS IS MY CHOICE...
+...SCISSORS
+YOU WIN!!!
+
+GAME NUMBER 4 
+3=ROCK...2=SCISSORS...1=PAPER
+1...2...3...WHAT'S YOUR CHOICE? 2
+THIS IS MY CHOICE...
+...SCISSORS
+TIE GAME.  NO WINNER.
+
+GAME NUMBER 5 
+3=ROCK...2=SCISSORS...1=PAPER
+1...2...3...WHAT'S YOUR CHOICE? 1
+THIS IS MY CHOICE...
+...SCISSORS
+WOW!  I WIN!!!
+
+GAME NUMBER 6 
+3=ROCK...2=SCISSORS...1=PAPER
+1...2...3...WHAT'S YOUR CHOICE? 2
+THIS IS MY CHOICE...
+...SCISSORS
+TIE GAME.  NO WINNER.
+
+GAME NUMBER 7 
+3=ROCK...2=SCISSORS...1=PAPER
+1...2...3...WHAT'S YOUR CHOICE? 3
+THIS IS MY CHOICE...
+...SCISSORS
+YOU WIN!!!
+
+GAME NUMBER 8 
+3=ROCK...2=SCISSORS...1=PAPER
+1...2...3...WHAT'S YOUR CHOICE? 2
+THIS IS MY CHOICE...
+...ROCK
+WOW!  I WIN!!!
+
+HERE IS THE FINAL GAME SCORE:
+I HAVE WON 4 GAME(S).
+YOU HAVE WON 2 GAME(S).
+AND 2 GAME(S) ENDED IN A TIE.
+
+THANKS FOR PLAYING!!

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

@@ -0,0 +1,239 @@
+10 PRINT TAB(32);"ROULETTE"
+20 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+30 PRINT:PRINT:PRINT
+40 PRINT "ENTER THE CURRENT DATE (AS IN 'JANUARY 23, 1979') -";
+50 INPUT D$,E$
+1000 REM-ROULETTE
+1010 REM-DAVID JOSLIN
+1020 PRINT "WELCOME TO THE ROULETTE TABLE"
+1030 PRINT 
+1040 PRINT "DO YOU WANT INSTRUCTIONS";
+1050 INPUT Y$
+1060 IF LEFT$(Y$,1)="N" THEN 1550
+1070 PRINT
+1080 PRINT "THIS IS THE BETTING LAYOUT"
+1090 PRINT "  (*=RED)"
+1100 PRINT 
+1110 PRINT " 1*    2     3*"
+1120 PRINT " 4     5*    6 "
+1130 PRINT " 7*    8     9*"
+1140 PRINT "10    11    12*"
+1150 PRINT "---------------"
+1160 PRINT "13    14*   15 "
+1170 PRINT "16*   17    18*"
+1180 PRINT "19*   20    21*"
+1190 PRINT "22    23*   24 "
+1200 PRINT "---------------"
+1210 PRINT "25*   26    27*"
+1220 PRINT "28    29    30*"
+1230 PRINT "31    32*   33 "
+1240 PRINT "34*   35    36*"
+1250 PRINT "---------------"
+1260 PRINT "    00    0    "
+1270 PRINT
+1280 PRINT "TYPES OF BETS"
+1290 PRINT 
+1300 PRINT "THE NUMBERS 1 TO 36 SIGNIFY A STRAIGHT BET"
+1310 PRINT "ON THAT NUMBER."
+1320 PRINT "THESE PAY OFF 35:1"
+1330 PRINT 
+1340 PRINT "THE 2:1 BETS ARE:"
+1350 PRINT " 37) 1-12     40) FIRST COLUMN"
+1360 PRINT " 38) 13-24    41) SECOND COLUMN"
+1370 PRINT " 39) 25-36    42) THIRD COLUMN"
+1380 PRINT 
+1390 PRINT "THE EVEN MONEY BETS ARE:"
+1400 PRINT " 43) 1-18     46) ODD"
+1410 PRINT " 44) 19-36    47) RED"
+1420 PRINT " 45) EVEN     48) BLACK"
+1430 PRINT 
+1440 PRINT " 49)0 AND 50)00 PAY OFF 35:1"
+1450 PRINT " NOTE: 0 AND 00 DO NOT COUNT UNDER ANY"
+1460 PRINT "       BETS EXCEPT THEIR OWN."
+1470 PRINT
+1480 PRINT "WHEN I ASK FOR EACH BET, TYPE THE NUMBER"
+1490 PRINT "AND THE AMOUNT, SEPARATED BY A COMMA."
+1500 PRINT "FOR EXAMPLE: TO BET $500 ON BLACK, TYPE 48,500"
+1510 PRINT "WHEN I ASK FOR A BET."
+1520 PRINT 
+1530 PRINT "THE MINIMUM BET IS $5, THE MAXIMUM IS $500."
+1540 PRINT 
+1550 REM-PROGRAM BEGINS HERE
+1560 REM-TYPE OF BET(NUMBER) ODDS
+1570 REM  DON'T NEED TO DIMENSION STRINGS
+1580 DIM B(100),C(100),T(100),X(38)
+1590 DIM A(50)
+1600 FOR I=1 TO 38: X(I)=0: NEXT I: REM  MAT X=ZER
+1610 P=1000
+1620 D=100000.
+1630 PRINT "HOW MANY BETS";
+1640 INPUT Y
+1650 IF Y<1 OR Y<>INT(Y) THEN 1630
+1660 FOR I=1 TO 50: A(I)=0: NEXT I: REM  MAT A=ZER
+1670 FOR C=1 TO Y
+1680 PRINT "NUMBER";C;
+1690 INPUT X,Z
+1700 B(C)=Z
+1710 T(C)=X
+1720 IF X<1 OR X>50 OR X<>INT(X) THEN 1680
+1730 IF Z<1 OR Z<>INT(Z) THEN 1680
+1740 IF Z<5 OR Z>500 THEN 1680
+1750 IF A(X)=0 THEN 1780
+1760 PRINT "YOU MADE THAT BET ONCE ALREADY,DUM-DUM"
+1770 GOTO 1680
+1780 A(X)=1
+1790 NEXT C
+1800 PRINT "SPINNING"
+1810 PRINT 
+1820 PRINT 
+1830 S=INT(RND(1)*100)
+1840 IF S=0 OR S>38 THEN 1830
+1850 X(S)=X(S)+1
+1860 IF S<37 THEN 1920
+1870 IF S=37 THEN 1900
+1880 PRINT "00"
+1890 GOTO 2020
+1900 PRINT "0"
+1910 GOTO 2020
+1920 RESTORE 
+1930 FOR I1=1 TO 18
+1940 READ R
+1950 IF R=S THEN 2000
+1960 NEXT I1
+1970 A$="BLACK"
+1980 PRINT S;A$
+1990 GOTO 2020
+2000 A$="RED"
+2010 GOTO 1980
+2020 PRINT
+2030 FOR C=1 TO Y
+2040 IF T(C)<37 THEN 2710
+2050 ON T(C)-36 GOTO 2090,2190,2220,2250,2300,2350,2400,2470,2500
+2060 ON T(C)-45 GOTO 2530,2560,2630
+2070 GOTO 2710
+2080 STOP
+2090 REM  1-12(37) 2:1
+2100 IF S <= 12 THEN 2150
+2110 PRINT "YOU LOSE";B(C);"DOLLARS ON BET";C
+2120 D=D+B(C)
+2130 P=P-B(C)
+2140 GOTO 2180
+2150 PRINT "YOU WIN";B(C)*2;"DOLLARS ON BET"C
+2160 D=D-B(C)*2
+2170 P=P+B(C)*2
+2180 GOTO 2810
+2190 REM  13-24(38) 2:1
+2200 IF S>12 AND S<25 THEN 2150
+2210 GOTO 2110
+2220 REM  25-36(39) 2:1
+2230 IF S>24 AND S<37 THEN 2150
+2240 GOTO 2110
+2250 REM  FIRST COLUMN(40) 2:1
+2260 FOR I=1 TO 34 STEP 3
+2270 IF S=I THEN 2150
+2280 NEXT I
+2290 GOTO 2110
+2300 REM  SECOND COLUMN(41) 2:1
+2310 FOR I=2 TO 35 STEP 3
+2320 IF S=I THEN 2150
+2330 NEXT I
+2340 GOTO 2110
+2350 REM  THIRD COLUMN(42) 2:1
+2360 FOR I=3 TO 36 STEP 3
+2370 IF S=I THEN 2150
+2380 NEXT I
+2390 GOTO 2110
+2400 REM  1-18(43) 1:1
+2410 IF S<19 THEN 2430
+2420 GOTO 2110
+2430 PRINT "YOU WIN";B(C);"DOLLARS ON BET";C
+2440 D=D-B(C)
+2450 P=P+B(C)
+2460 GOTO 2810
+2470 REM  19-36(44) 1:1
+2480 IF S<37 AND S>18 THEN 2430
+2490 GOTO 2110
+2500 REM  EVEN(45) 1:1
+2510 IF S/2=INT(S/2) AND S<37 THEN 2430
+2520 GOTO 2110
+2530 REM  ODD(46) 1:1
+2540 IF S/2<>INT(S/2) AND S<37 THEN 2430
+2550 GOTO 2110
+2560 REM  RED(47) 1:1
+2570 RESTORE 
+2580 FOR I=1 TO 18
+2590 READ R
+2600 IF S=R THEN 2430
+2610 NEXT I
+2620 GOTO 2110
+2630 REM  BLACK(48) 1:1
+2640 RESTORE 
+2650 FOR I=1 TO 18
+2660 READ R
+2670 IF S=R THEN 2110
+2680 NEXT I
+2690 IF S>36 THEN 2110
+2700 GOTO 2430
+2710 REM--1TO36,0,00(1-36,49,50)35:1
+2720 IF T(C)<49 THEN 2760
+2730 IF T(C)=49 AND S=37 THEN 2780
+2740 IF T(C)=50 AND S=38 THEN 2780
+2750 GOTO 2110
+2760 IF T(C)=S THEN 2780
+2770 GOTO 2110
+2780 PRINT "YOU WIN";B(C)*35;"DOLLARS ON BET";C
+2790 D=D-B(C)*35
+2800 P=P+B(C)*35
+2810 NEXT C
+2820 PRINT 
+2830 PRINT "TOTALS:","ME","YOU"
+2840 PRINT " ",D,P
+2850 IF P>0 THEN 2880
+2860 PRINT "OOPS! YOU JUST SPENT YOUR LAST DOLLAR!"
+2870 GOTO 3190
+2880 IF D>0 THEN 2920
+2890 PRINT "YOU BROKE THE HOUSE!"
+2900 P=101000.
+2910 GOTO 2960
+2920 PRINT "AGAIN";
+2930 INPUT Y$
+2940 IF LEFT$(Y$,1)="Y" THEN 1630
+2950 DATA 1,3,5,7,9,12,14,16,18,19,21,23,25,27,30,32,34,36
+2960 IF P<1 THEN 3190
+2970 PRINT "TO WHOM SHALL I MAKE THE CHECK";
+2980 INPUT B$
+2990 PRINT 
+3000 FOR I=1 TO 72: PRINT "-";: NEXT I: REM PRINT 72 DASHES
+3010 PRINT TAB(50);"CHECK NO. ";INT(RND(1)*100)
+3020 PRINT 
+3030 GOSUB 3230
+3040 PRINT TAB(40);M$
+3050 PRINT 
+3060 PRINT 
+3070 PRINT "PAY TO THE ORDER OF-----";B$;"-----$ ";
+3080 PRINT P
+3090 PRINT 
+3100 PRINT 
+3110 PRINT TAB(10),"THE MEMORY BANK OF NEW YORK"
+3120 PRINT 
+3130 PRINT TAB(40),"THE COMPUTER"
+3140 PRINT TAB(40)"----------X-----"
+3150 PRINT 
+3160 FOR I=1 TO 62: PRINT "-";: NEXT I
+3170 PRINT "COME BACK SOON!"
+3180 GOTO 3210
+3190 PRINT "THANKS FOR YOUR MONEY."
+3200 PRINT "I'LL USE IT TO BUY A SOLID GOLD ROULETTE WHEEL"
+3210 PRINT 
+3220 GOTO 3420
+3230 REM
+3240 REM     THIS ROUTINE RETURNS THE CURRENT DATE IN M$
+3250 REM     IF YOU HAVE SYSTEM FUNCTIONS TO HANDLE THIS
+3260 REM     THEY CAN BE USED HERE.  HOWEVER IN THIS
+3270 REM     PROGRAM, WE JUST INPUT THE DATE AT THE START
+3280 REM     THE GAME
+3290 REM
+3300 REM     THE DATE IS RETURNED IN VARIABLE M$
+3310 M$=D$+", "+E$
+3320 RETURN
+3420 END

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

@@ -0,0 +1,9 @@
+MARCH 1, 2014
+YES
+1
+45,10
+YES
+1
+47,10
+NO
+FRED FLINSTONE

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

@@ -0,0 +1,98 @@
+                                ROULETTE
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+
+
+ENTER THE CURRENT DATE (AS IN 'JANUARY 23, 1979') -? MARCH 1, 2014
+WELCOME TO THE ROULETTE TABLE
+
+DO YOU WANT INSTRUCTIONS? YES
+
+THIS IS THE BETTING LAYOUT
+  (*=RED)
+
+ 1*    2     3*
+ 4     5*    6 
+ 7*    8     9*
+10    11    12*
+---------------
+13    14*   15 
+16*   17    18*
+19*   20    21*
+22    23*   24 
+---------------
+25*   26    27*
+28    29    30*
+31    32*   33 
+34*   35    36*
+---------------
+    00    0    
+
+TYPES OF BETS
+
+THE NUMBERS 1 TO 36 SIGNIFY A STRAIGHT BET
+ON THAT NUMBER.
+THESE PAY OFF 35:1
+
+THE 2:1 BETS ARE:
+ 37) 1-12     40) FIRST COLUMN
+ 38) 13-24    41) SECOND COLUMN
+ 39) 25-36    42) THIRD COLUMN
+
+THE EVEN MONEY BETS ARE:
+ 43) 1-18     46) ODD
+ 44) 19-36    47) RED
+ 45) EVEN     48) BLACK
+
+ 49)0 AND 50)00 PAY OFF 35:1
+ NOTE: 0 AND 00 DO NOT COUNT UNDER ANY
+       BETS EXCEPT THEIR OWN.
+
+WHEN I ASK FOR EACH BET, TYPE THE NUMBER
+AND THE AMOUNT, SEPARATED BY A COMMA.
+FOR EXAMPLE: TO BET $500 ON BLACK, TYPE 48,500
+WHEN I ASK FOR A BET.
+
+THE MINIMUM BET IS $5, THE MAXIMUM IS $500.
+
+HOW MANY BETS? 1
+NUMBER 1 ? 45,10
+SPINNING
+
+
+00
+
+YOU LOSE 10 DOLLARS ON BET 1 
+
+TOTALS:       ME            YOU
+               100010        990 
+AGAIN? YES
+HOW MANY BETS? 1
+NUMBER 1 ? 47,10
+SPINNING
+
+
+ 7 RED
+
+YOU WIN 10 DOLLARS ON BET 1 
+
+TOTALS:       ME            YOU
+               100000        1000 
+AGAIN? NO
+TO WHOM SHALL I MAKE THE CHECK? FRED FLINSTONE
+
+------------------------------------------------------------------------CHECK NO.  8 
+
+                                        MARCH 1,  2014
+
+
+PAY TO THE ORDER OF-----FRED FLINSTONE-----$  1000 
+
+
+              THE MEMORY BANK OF NEW YORK
+
+                                          THE COMPUTER
+                                        ----------X-----
+
+--------------------------------------------------------------COME BACK SOON!
+

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

@@ -0,0 +1,26 @@
+1 PRINT TAB(28);"RUSSIAN ROULETTE"
+2 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+3 PRINT:PRINT:PRINT
+5 PRINT "THIS IS A GAME OF >>>>>>>>>>RUSSIAN ROULETTE."
+10 PRINT:PRINT "HERE IS A REVOLVER."
+20 PRINT "TYPE '1' TO SPIN CHAMBER AND PULL TRIGGER."
+22 PRINT "TYPE '2' TO GIVE UP."
+23 PRINT "GO";
+25 N=0
+30 INPUT I
+31 IF I<>2 THEN 35
+32 PRINT "     CHICKEN!!!!!"
+33 GOTO 72
+35 N=N+1
+40 IF RND(1)>.833333 THEN 70
+45 IF N>10 THEN 80
+50 PRINT "- CLICK -"
+60 PRINT: GOTO 30
+70 PRINT "     BANG!!!!!   YOU'RE DEAD!"
+71 PRINT "CONDOLENCES WILL BE SENT TO YOUR RELATIVES."
+72 PRINT:PRINT:PRINT
+75 PRINT "...NEXT VICTIM...":GOTO 20
+80 PRINT "YOU WIN!!!!!"
+85 PRINT "LET SOMEONE ELSE BLOW HIS BRAINS OUT."
+90 GOTO 10
+99 END

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

@@ -0,0 +1,9 @@
+1
+1
+1
+1
+1
+2
+1
+1
+1

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

@@ -0,0 +1,50 @@
+                            RUSSIAN ROULETTE
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+
+
+THIS IS A GAME OF >>>>>>>>>>RUSSIAN ROULETTE.
+
+HERE IS A REVOLVER.
+TYPE '1' TO SPIN CHAMBER AND PULL TRIGGER.
+TYPE '2' TO GIVE UP.
+GO? 1
+- CLICK -
+
+? 1
+- CLICK -
+
+? 1
+- CLICK -
+
+? 1
+- CLICK -
+
+? 1
+- CLICK -
+
+? 2
+     CHICKEN!!!!!
+
+
+
+...NEXT VICTIM...
+TYPE '1' TO SPIN CHAMBER AND PULL TRIGGER.
+TYPE '2' TO GIVE UP.
+GO? 1
+- CLICK -
+
+? 1
+- CLICK -
+
+? 1
+     BANG!!!!!   YOU'RE DEAD!
+CONDOLENCES WILL BE SENT TO YOUR RELATIVES.
+
+
+
+...NEXT VICTIM...
+TYPE '1' TO SPIN CHAMBER AND PULL TRIGGER.
+TYPE '2' TO GIVE UP.
+GO? 
+Error on line 30: No more input