basic101 0.1.0

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

@@ -0,0 +1,51 @@
+                                 CRAPS
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+
+
+2,3,12 ARE LOSERS; 4,5,6,8,9,10 ARE POINTS; 7,11 ARE NATURAL WINNERS.
+PICK A NUMBER AND INPUT TO ROLL DICE? 4
+INPUT THE AMOUNT OF YOUR WAGER.? 10
+I WILL NOW THROW THE DICE
+ 8 IS THE POINT. I WILL ROLL AGAIN
+ 7 - CRAPS. YOU LOSE.
+YOU LOSE $ 10 
+ IF YOU WANT TO PLAY AGAIN PRINT 5 IF NOT PRINT 2? 5
+YOU ARE NOW UNDER $ 10 
+INPUT THE AMOUNT OF YOUR WAGER.? 10
+I WILL NOW THROW THE DICE
+ 6 IS THE POINT. I WILL ROLL AGAIN
+ 9  - NO POINT. I WILL ROLL AGAIN
+ 8  - NO POINT. I WILL ROLL AGAIN
+ 8  - NO POINT. I WILL ROLL AGAIN
+ 9  - NO POINT. I WILL ROLL AGAIN
+ 5  - NO POINT. I WILL ROLL AGAIN
+ 11  - NO POINT. I WILL ROLL AGAIN
+ 11  - NO POINT. I WILL ROLL AGAIN
+ 8  - NO POINT. I WILL ROLL AGAIN
+ 4  - NO POINT. I WILL ROLL AGAIN
+ 7 - CRAPS. YOU LOSE.
+YOU LOSE $ 10 
+ IF YOU WANT TO PLAY AGAIN PRINT 5 IF NOT PRINT 2? 5
+YOU ARE NOW UNDER $ 20 
+INPUT THE AMOUNT OF YOUR WAGER.? 20
+I WILL NOW THROW THE DICE
+ 5 IS THE POINT. I WILL ROLL AGAIN
+ 6  - NO POINT. I WILL ROLL AGAIN
+ 6  - NO POINT. I WILL ROLL AGAIN
+ 4  - NO POINT. I WILL ROLL AGAIN
+ 8  - NO POINT. I WILL ROLL AGAIN
+ 10  - NO POINT. I WILL ROLL AGAIN
+ 5 - A WINNER.........CONGRATS!!!!!!!!
+ 5 AT 2 TO 1 ODDS PAYS YOU...LET ME SEE... 40 DOLLARS
+ IF YOU WANT TO PLAY AGAIN PRINT 5 IF NOT PRINT 2? 5
+YOU ARE NOW AHEAD $ 20 
+INPUT THE AMOUNT OF YOUR WAGER.? 10
+I WILL NOW THROW THE DICE
+ 4 IS THE POINT. I WILL ROLL AGAIN
+ 8  - NO POINT. I WILL ROLL AGAIN
+ 4 - A WINNER.........CONGRATS!!!!!!!!
+ 4 AT 2 TO 1 ODDS PAYS YOU...LET ME SEE... 20 DOLLARS
+ IF YOU WANT TO PLAY AGAIN PRINT 5 IF NOT PRINT 2? 2
+YOU ARE NOW AHEAD $ 40 
+CONGRATULATIONS---YOU CAME OUT A WINNER. COME AGAIN!

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

@@ -0,0 +1,161 @@
+10 PRINT TAB(34);"CUBE"
+20 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+30 PRINT : PRINT : PRINT
+100 PRINT "DO YOU WANT TO SEE THE INSTRUCTIONS? (YES--1,NO--0)"
+110 INPUT B7
+120 IF B7=0 THEN 370
+130 PRINT"THIS IS A GAME IN WHICH YOU WILL BE PLAYING AGAINST THE"
+140 PRINT"RANDOM DECISION OF THE COMPUTER. THE FIELD OF PLAY IS A"
+150 PRINT"CUBE OF SIDE 3. ANY OF THE 27 LOCATIONS CAN BE DESIGNATED"
+160 PRINT"BY INPUTING THREE NUMBERS SUCH AS 2,3,1. AT THE START,"
+170 PRINT"YOU ARE AUTOMATICALLY AT LOCATION 1,1,1. THE OBJECT OF"
+180 PRINT"THE GAME IS TO GET TO LOCATION 3,3,3. ONE MINOR DETAIL:"
+190 PRINT"THE COMPUTER WILL PICK, AT RANDOM, 5 LOCATIONS AT WHICH"
+200 PRINT"IT WILL PLANT LAND MINES. IF YOU HIT ONE OF THESE LOCATIONS"
+210 PRINT"YOU LOSE. ONE OTHER DETAIL: YOU MAY MOVE ONLY ONE SPACE "
+220 PRINT"IN ONE DIRECTION EACH MOVE. FOR  EXAMPLE: FROM 1,1,2 YOU"
+230 PRINT"MAY MOVE TO 2,1,2 OR 1,1,3. YOU MAY NOT CHANGE"
+240 PRINT"TWO OF THE NUMBERS ON THE SAME MOVE. IF YOU MAKE AN ILLEGAL"
+250 PRINT"MOVE, YOU LOSE AND THE COMPUTER TAKES THE MONEY YOU MAY"
+260 PRINT"HAVE BET ON THAT ROUND."
+270 PRINT
+280 PRINT
+290 PRINT"ALL YES OR NO QUESTIONS WILL BE ANSWERED BY A 1 FOR YES"
+300 PRINT"OR A 0 (ZERO) FOR NO."
+310 PRINT
+320 PRINT"WHEN STATING THE AMOUNT OF A WAGER, PRINT ONLY THE NUMBER"
+330 PRINT"OF DOLLARS (EXAMPLE: 250)  YOU ARE AUTOMATICALLY STARTED WITH"
+340 PRINT"500 DOLLARS IN YOUR ACCOUNT."
+350 PRINT
+360 PRINT "GOOD LUCK!"
+370 LET A1=500
+380 LET A=INT(3*(RND(X)))
+390 IF A<>0 THEN 410
+400 LET A=3
+410 LET B=INT(3*(RND(X)))
+420 IF B<>0 THEN 440
+430 LET B=2
+440 LET C=INT(3*(RND(X)))
+450 IF C<>0 THEN 470
+460 LET C=3
+470 LET D=INT(3*(RND(X)))
+480 IF D<>0 THEN 500
+490 LET D=1
+500 LET E=INT(3*(RND(X)))
+510 IF E<>0 THEN 530
+520 LET E=3
+530 LET F=INT(3*(RND(X)))
+540 IF F<>0 THEN 560
+550 LET F=3
+560 LET G=INT(3*(RND(X)))
+570 IF G<>0 THEN 590
+580 LET G=3
+590 LET H=INT(3*(RND(X)))
+600 IF H<>0 THEN 620
+610 LET H=3
+620 LET I=INT(3*(RND(X)))
+630 IF I<>0 THEN 650
+640 LET I=2
+650 LET J=INT(3*(RND(X)))
+660 IF J<>0 THEN 680
+670 LET J=3
+680 LET K=INT(3*(RND(X)))
+690 IF K<>0 THEN 710
+700 LET K=2
+710 LET L=INT(3*(RND(X)))
+720 IF L<>0 THEN 740
+730 LET L=3
+740 LET M=INT(3*(RND(X)))
+750 IF M<>0 THEN 770
+760 LET M=3
+770 LET N=INT(3*(RND(X)))
+780 IF N<>0 THEN 800
+790 LET N=1
+800 LET O=INT (3*(RND(X)))
+810 IF O <>0 THEN 830
+820 LET O=3
+830 PRINT "WANT TO MAKE A WAGER?"
+840 INPUT Z
+850 IF Z=0 THEN 920
+860 PRINT "HOW MUCH ";
+870 INPUT Z1
+876 IF A1<Z1 THEN 1522
+880 LET W=1
+890 LET X=1
+900 LET Y=1
+910 PRINT
+920 PRINT "IT'S YOUR MOVE:  ";
+930 INPUT P,Q,R
+940 IF P>W+1 THEN 1030
+950 IF P=W+1 THEN 1000
+960 IF Q>X+1 THEN 1030
+970 IF Q=(X+1) THEN 1010
+980 IF R >(Y+1)  THEN 1030
+990 GOTO 1050
+1000 IF Q>= X+1 THEN 1030
+1010 IF R>=Y+1 THEN 1030
+1020 GOTO 1050
+1030 PRINT:PRINT "ILLEGAL MOVE. YOU LOSE."
+1040 GOTO 1440
+1050 LET W=P
+1060 LET X=Q
+1070 LET Y=R
+1080 IF P=3 THEN 1100
+1090 GOTO 1130
+1100 IF  Q=3 THEN 1120
+1110 GOTO 1130
+1120 IF R=3 THEN 1530
+1130 IF P=A THEN 1150
+1140 GOTO 1180
+1150 IF Q=B THEN 1170
+1160 GOTO 1180
+1170 IF R=C THEN 1400
+1180 IF P=D THEN 1200
+1190 GOTO 1230
+1200 IF Q=E THEN 1220
+1210 GOTO 1230
+1220 IF  R=F THEN 1400
+1230 IF P=G THEN 1250
+1240 GOTO 1280
+1250 IF Q=H THEN 1270
+1260 GOTO 1280
+1270 IF R=I THEN 1400
+1280 IF P=J THEN 1300
+1290 GOTO 1330
+1300 IF Q=K THEN 1320
+1310 GOTO 1330
+1320 IF R=L THEN 1440
+1330 IF P=M THEN 1350
+1340 GOTO 1380
+1350 IF Q=N THEN 1370
+1360 GOTO 1380
+1370 IF R=O THEN 1400
+1380 PRINT "NEXT MOVE: ";
+1390 GOTO 930 
+1400 PRINT"******BANG******"
+1410 PRINT "YOU LOSE!"
+1420 PRINT
+1430 PRINT
+1440 IF   Z=0 THEN 1580
+1450 PRINT 
+1460 LET Z2=A1-Z1
+1470 IF Z2>0 THEN 1500
+1480 PRINT "YOU BUST."
+1490 GOTO 1610
+1500 PRINT " YOU NOW HAVE"; Z2; "DOLLARS."
+1510 LET A1=Z2
+1520 GOTO 1580
+1522 PRINT"TRIED TO FOOL ME; BET AGAIN";
+1525 GOTO 870
+1530 PRINT"CONGRATULATIONS!"
+1540 IF Z=0 THEN 1580
+1550 LET Z2=A1+Z1
+1560 PRINT "YOU NOW HAVE"; Z2;"DOLLARS."
+1570 LET A1=Z2
+1580 PRINT"DO YOU WANT TO TRY AGAIN ";
+1590 INPUT S
+1600 IF S=1 THEN 380
+1610 PRINT "TOUGH LUCK!"
+1620 PRINT
+1630 PRINT "GOODBYE."
+1640 END

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

@@ -0,0 +1,25 @@
+1
+YES
+1
+100
+0,0,1
+0,0,2
+0,0,3
+0,1,3
+0,2,3
+0,3,3
+1,3,3
+YES
+1
+100
+100
+0,0,1
+0,0,2
+0,0,3
+0,1,3
+0,2,3
+0,3,3
+1,3,3
+2,3,3
+3,3,3
+0

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

@@ -0,0 +1,72 @@
+                                  CUBE
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+
+
+DO YOU WANT TO SEE THE INSTRUCTIONS? (YES--1,NO--0)
+? 1
+THIS IS A GAME IN WHICH YOU WILL BE PLAYING AGAINST THE
+RANDOM DECISION OF THE COMPUTER. THE FIELD OF PLAY IS A
+CUBE OF SIDE 3. ANY OF THE 27 LOCATIONS CAN BE DESIGNATED
+BY INPUTING THREE NUMBERS SUCH AS 2,3,1. AT THE START,
+YOU ARE AUTOMATICALLY AT LOCATION 1,1,1. THE OBJECT OF
+THE GAME IS TO GET TO LOCATION 3,3,3. ONE MINOR DETAIL:
+THE COMPUTER WILL PICK, AT RANDOM, 5 LOCATIONS AT WHICH
+IT WILL PLANT LAND MINES. IF YOU HIT ONE OF THESE LOCATIONS
+YOU LOSE. ONE OTHER DETAIL: YOU MAY MOVE ONLY ONE SPACE 
+IN ONE DIRECTION EACH MOVE. FOR  EXAMPLE: FROM 1,1,2 YOU
+MAY MOVE TO 2,1,2 OR 1,1,3. YOU MAY NOT CHANGE
+TWO OF THE NUMBERS ON THE SAME MOVE. IF YOU MAKE AN ILLEGAL
+MOVE, YOU LOSE AND THE COMPUTER TAKES THE MONEY YOU MAY
+HAVE BET ON THAT ROUND.
+
+
+ALL YES OR NO QUESTIONS WILL BE ANSWERED BY A 1 FOR YES
+OR A 0 (ZERO) FOR NO.
+
+WHEN STATING THE AMOUNT OF A WAGER, PRINT ONLY THE NUMBER
+OF DOLLARS (EXAMPLE: 250)  YOU ARE AUTOMATICALLY STARTED WITH
+500 DOLLARS IN YOUR ACCOUNT.
+
+GOOD LUCK!
+WANT TO MAKE A WAGER?
+? YES
+Not numeric: "YES", try again
+? 1
+HOW MUCH ? 100
+
+IT'S YOUR MOVE:  ? 0,0,1
+NEXT MOVE: ? 0,0,2
+NEXT MOVE: ? 0,0,3
+NEXT MOVE: ? 0,1,3
+NEXT MOVE: ? 0,2,3
+NEXT MOVE: ? 0,3,3
+NEXT MOVE: ? 1,3,3
+******BANG******
+YOU LOSE!
+
+
+
+ YOU NOW HAVE 400 DOLLARS.
+DO YOU WANT TO TRY AGAIN ? YES
+Not numeric: "YES", try again
+? 1
+WANT TO MAKE A WAGER?
+? 100
+HOW MUCH ? 100
+
+IT'S YOUR MOVE:  ? 0,0,1
+NEXT MOVE: ? 0,0,2
+NEXT MOVE: ? 0,0,3
+NEXT MOVE: ? 0,1,3
+NEXT MOVE: ? 0,2,3
+NEXT MOVE: ? 0,3,3
+NEXT MOVE: ? 1,3,3
+NEXT MOVE: ? 2,3,3
+NEXT MOVE: ? 3,3,3
+CONGRATULATIONS!
+YOU NOW HAVE 500 DOLLARS.
+DO YOU WANT TO TRY AGAIN ? 0
+TOUGH LUCK!
+
+GOODBYE.

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

@@ -0,0 +1,33 @@
+2 PRINT TAB(30);"DEPTH CHARGE"
+4 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+6 PRINT: PRINT: PRINT
+20 INPUT "DIMENSION OF SEARCH AREA";G: PRINT
+30 N=INT(LOG(G)/LOG(2))+1
+40 PRINT "YOU ARE THE CAPTAIN OF THE DESTROYER USS COMPUTER"
+50 PRINT "AN ENEMY SUB HAS BEEN CAUSING YOU TROUBLE.  YOUR"
+60 PRINT "MISSION IS TO DESTROY IT.  YOU HAVE";N;"SHOTS."
+70 PRINT "SPECIFY DEPTH CHARGE EXPLOSION POINT WITH A"
+80 PRINT "TRIO OF NUMBERS -- THE FIRST TWO ARE THE"
+90 PRINT "SURFACE COORDINATES; THE THIRD IS THE DEPTH."
+100 PRINT : PRINT "GOOD LUCK !": PRINT
+110 A=INT(G*RND(1)) : B=INT(G*RND(1)) : C=INT(G*RND(1))
+120 FOR D=1 TO N : PRINT : PRINT "TRIAL #";D; : INPUT X,Y,Z
+130 IF ABS(X-A)+ABS(Y-B)+ABS(Z-C)=0 THEN 300
+140 GOSUB 500 : PRINT : NEXT D
+200 PRINT : PRINT "YOU HAVE BEEN TORPEDOED!  ABANDON SHIP!"
+210 PRINT "THE SUBMARINE WAS AT";A;",";B;",";C : GOTO 400
+300 PRINT : PRINT "B O O M ! ! YOU FOUND IT IN";D;"TRIES!"
+400 PRINT : PRINT: INPUT "ANOTHER GAME (Y OR N)";A$
+410 IF A$="Y" THEN 100
+420 PRINT "OK.  HOPE YOU ENJOYED YOURSELF." : GOTO 600
+500 PRINT "SONAR REPORTS SHOT WAS ";
+510 IF Y>B THEN PRINT "NORTH";
+520 IF Y<B THEN PRINT "SOUTH";
+530 IF X>A THEN PRINT "EAST";
+540 IF X<A THEN PRINT "WEST";
+550 IF Y<>B OR X<>A THEN PRINT " AND";
+560 IF Z>C THEN PRINT " TOO LOW."
+570 IF Z<C THEN PRINT " TOO HIGH."
+580 IF Z=C THEN PRINT " DEPTH OK."
+590 RETURN
+600 END

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

@@ -0,0 +1,16 @@
+10
+5,5,5
+5,8,8
+5,7,7
+5,7,6
+Y
+5,5,5
+5,2,8
+5,3,7
+5,4,6
+Y
+5,5,5
+4,4,4
+3,3,3
+2,2,2
+N

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

@@ -0,0 +1,83 @@
+                              DEPTH CHARGE
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+
+
+DIMENSION OF SEARCH AREA? 10
+
+YOU ARE THE CAPTAIN OF THE DESTROYER USS COMPUTER
+AN ENEMY SUB HAS BEEN CAUSING YOU TROUBLE.  YOUR
+MISSION IS TO DESTROY IT.  YOU HAVE 4 SHOTS.
+SPECIFY DEPTH CHARGE EXPLOSION POINT WITH A
+TRIO OF NUMBERS -- THE FIRST TWO ARE THE
+SURFACE COORDINATES; THE THIRD IS THE DEPTH.
+
+GOOD LUCK !
+
+
+TRIAL # 1 ? 5,5,5
+SONAR REPORTS SHOT WAS SOUTH AND TOO HIGH.
+
+
+TRIAL # 2 ? 5,8,8
+SONAR REPORTS SHOT WAS NORTH AND TOO LOW.
+
+
+TRIAL # 3 ? 5,7,7
+SONAR REPORTS SHOT WAS  TOO LOW.
+
+
+TRIAL # 4 ? 5,7,6
+
+B O O M ! ! YOU FOUND IT IN 4 TRIES!
+
+
+ANOTHER GAME (Y OR N)? Y
+
+GOOD LUCK !
+
+
+TRIAL # 1 ? 5,5,5
+SONAR REPORTS SHOT WAS NORTH AND TOO HIGH.
+
+
+TRIAL # 2 ? 5,2,8
+SONAR REPORTS SHOT WAS SOUTH AND TOO LOW.
+
+
+TRIAL # 3 ? 5,3,7
+SONAR REPORTS SHOT WAS SOUTH AND TOO LOW.
+
+
+TRIAL # 4 ? 5,4,6
+
+B O O M ! ! YOU FOUND IT IN 4 TRIES!
+
+
+ANOTHER GAME (Y OR N)? Y
+
+GOOD LUCK !
+
+
+TRIAL # 1 ? 5,5,5
+SONAR REPORTS SHOT WAS SOUTHEAST AND TOO HIGH.
+
+
+TRIAL # 2 ? 4,4,4
+SONAR REPORTS SHOT WAS SOUTH AND TOO HIGH.
+
+
+TRIAL # 3 ? 3,3,3
+SONAR REPORTS SHOT WAS SOUTHWEST AND TOO HIGH.
+
+
+TRIAL # 4 ? 2,2,2
+SONAR REPORTS SHOT WAS SOUTHWEST AND TOO HIGH.
+
+
+YOU HAVE BEEN TORPEDOED!  ABANDON SHIP!
+THE SUBMARINE WAS AT 4 , 8 , 9 
+
+
+ANOTHER GAME (Y OR N)? N
+OK.  HOPE YOU ENJOYED YOURSELF.

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

@@ -0,0 +1,27 @@
+1 PRINT TAB(33);"DIAMOND"
+2 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+3 PRINT:PRINT:PRINT
+4 PRINT "FOR A PRETTY DIAMOND PATTERN,"
+5 INPUT "TYPE IN AN ODD NUMBER BETWEEN 5 AND 21";R:PRINT
+6 Q=INT(60/R):A$="CC"
+8 FOR L=1 TO Q
+10 X=1:Y=R:Z=2
+20 FOR N=X TO Y STEP Z
+25 PRINT TAB((R-N)/2);
+28 FOR M=1 TO Q
+29 C=1
+30 FOR A=1 TO N
+32 IF C>LEN(A$) THEN PRINT "!";:GOTO 50
+34 PRINT MID$(A$,C,1);
+36 C=C+1
+50 NEXT A
+53 IF M=Q THEN 60
+55 PRINT TAB(R*M+(R-N)/2);
+56 NEXT M
+60 PRINT
+70 NEXT N
+83 IF X<>1 THEN 95
+85 X=R-2:Y=1:Z=-2
+90 GOTO 20
+95 NEXT L
+99 END

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

@@ -0,0 +1 @@
+19

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

@@ -0,0 +1,65 @@
+                                 DIAMOND
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+
+
+FOR A PRETTY DIAMOND PATTERN,
+TYPE IN AN ODD NUMBER BETWEEN 5 AND 21? 19
+
+         C                  C                  C
+        CC!                CC!                CC!
+       CC!!!              CC!!!              CC!!!
+      CC!!!!!            CC!!!!!            CC!!!!!
+     CC!!!!!!!          CC!!!!!!!          CC!!!!!!!
+    CC!!!!!!!!!        CC!!!!!!!!!        CC!!!!!!!!!
+   CC!!!!!!!!!!!      CC!!!!!!!!!!!      CC!!!!!!!!!!!
+  CC!!!!!!!!!!!!!    CC!!!!!!!!!!!!!    CC!!!!!!!!!!!!!
+ CC!!!!!!!!!!!!!!!  CC!!!!!!!!!!!!!!!  CC!!!!!!!!!!!!!!!
+CC!!!!!!!!!!!!!!!!!CC!!!!!!!!!!!!!!!!!CC!!!!!!!!!!!!!!!!!
+ CC!!!!!!!!!!!!!!!  CC!!!!!!!!!!!!!!!  CC!!!!!!!!!!!!!!!
+  CC!!!!!!!!!!!!!    CC!!!!!!!!!!!!!    CC!!!!!!!!!!!!!
+   CC!!!!!!!!!!!      CC!!!!!!!!!!!      CC!!!!!!!!!!!
+    CC!!!!!!!!!        CC!!!!!!!!!        CC!!!!!!!!!
+     CC!!!!!!!          CC!!!!!!!          CC!!!!!!!
+      CC!!!!!            CC!!!!!            CC!!!!!
+       CC!!!              CC!!!              CC!!!
+        CC!                CC!                CC!
+         C                  C                  C
+         C                  C                  C
+        CC!                CC!                CC!
+       CC!!!              CC!!!              CC!!!
+      CC!!!!!            CC!!!!!            CC!!!!!
+     CC!!!!!!!          CC!!!!!!!          CC!!!!!!!
+    CC!!!!!!!!!        CC!!!!!!!!!        CC!!!!!!!!!
+   CC!!!!!!!!!!!      CC!!!!!!!!!!!      CC!!!!!!!!!!!
+  CC!!!!!!!!!!!!!    CC!!!!!!!!!!!!!    CC!!!!!!!!!!!!!
+ CC!!!!!!!!!!!!!!!  CC!!!!!!!!!!!!!!!  CC!!!!!!!!!!!!!!!
+CC!!!!!!!!!!!!!!!!!CC!!!!!!!!!!!!!!!!!CC!!!!!!!!!!!!!!!!!
+ CC!!!!!!!!!!!!!!!  CC!!!!!!!!!!!!!!!  CC!!!!!!!!!!!!!!!
+  CC!!!!!!!!!!!!!    CC!!!!!!!!!!!!!    CC!!!!!!!!!!!!!
+   CC!!!!!!!!!!!      CC!!!!!!!!!!!      CC!!!!!!!!!!!
+    CC!!!!!!!!!        CC!!!!!!!!!        CC!!!!!!!!!
+     CC!!!!!!!          CC!!!!!!!          CC!!!!!!!
+      CC!!!!!            CC!!!!!            CC!!!!!
+       CC!!!              CC!!!              CC!!!
+        CC!                CC!                CC!
+         C                  C                  C
+         C                  C                  C
+        CC!                CC!                CC!
+       CC!!!              CC!!!              CC!!!
+      CC!!!!!            CC!!!!!            CC!!!!!
+     CC!!!!!!!          CC!!!!!!!          CC!!!!!!!
+    CC!!!!!!!!!        CC!!!!!!!!!        CC!!!!!!!!!
+   CC!!!!!!!!!!!      CC!!!!!!!!!!!      CC!!!!!!!!!!!
+  CC!!!!!!!!!!!!!    CC!!!!!!!!!!!!!    CC!!!!!!!!!!!!!
+ CC!!!!!!!!!!!!!!!  CC!!!!!!!!!!!!!!!  CC!!!!!!!!!!!!!!!
+CC!!!!!!!!!!!!!!!!!CC!!!!!!!!!!!!!!!!!CC!!!!!!!!!!!!!!!!!
+ CC!!!!!!!!!!!!!!!  CC!!!!!!!!!!!!!!!  CC!!!!!!!!!!!!!!!
+  CC!!!!!!!!!!!!!    CC!!!!!!!!!!!!!    CC!!!!!!!!!!!!!
+   CC!!!!!!!!!!!      CC!!!!!!!!!!!      CC!!!!!!!!!!!
+    CC!!!!!!!!!        CC!!!!!!!!!        CC!!!!!!!!!
+     CC!!!!!!!          CC!!!!!!!          CC!!!!!!!
+      CC!!!!!            CC!!!!!            CC!!!!!
+       CC!!!              CC!!!              CC!!!
+        CC!                CC!                CC!
+         C                  C                  C

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

@@ -0,0 +1,31 @@
+2 PRINT TAB(34);"DICE"
+4 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+6 PRINT:PRINT:PRINT
+10 DIM F(12)
+20 REM  DANNY FREIDUS
+30 PRINT "THIS PROGRAM SIMULATES THE ROLLING OF A"
+40 PRINT "PAIR OF DICE."
+50 PRINT "YOU ENTER THE NUMBER OF TIMES YOU WANT THE COMPUTER TO"
+60 PRINT "'ROLL' THE DICE.  WATCH OUT, VERY LARGE NUMBERS TAKE"
+70 PRINT "A LONG TIME.  IN PARTICULAR, NUMBERS OVER 5000."
+80 FOR Q=1 TO 12
+90 F(Q)=0
+100 NEXT Q
+110 PRINT:PRINT "HOW MANY ROLLS";
+120 INPUT X
+130 FOR S=1 TO X
+140 A=INT(6*RND(1)+1)
+150 B=INT(6*RND(1)+1)
+160 R=A+B
+170 F(R)=F(R)+1
+180 NEXT S
+185 PRINT
+190 PRINT "TOTAL SPOTS","NUMBER OF TIMES"
+200 FOR V=2 TO 12
+210 PRINT V,F(V)
+220 NEXT V
+221 PRINT
+222 PRINT:PRINT "TRY AGAIN";
+223 INPUT Z$
+224 IF Z$="YES" THEN 80
+240 END

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

@@ -0,0 +1,4 @@
+100
+YES
+50
+NO

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

@@ -0,0 +1,46 @@
+                                  DICE
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+
+
+THIS PROGRAM SIMULATES THE ROLLING OF A
+PAIR OF DICE.
+YOU ENTER THE NUMBER OF TIMES YOU WANT THE COMPUTER TO
+'ROLL' THE DICE.  WATCH OUT, VERY LARGE NUMBERS TAKE
+A LONG TIME.  IN PARTICULAR, NUMBERS OVER 5000.
+
+HOW MANY ROLLS? 100
+
+TOTAL SPOTS   NUMBER OF TIMES
+ 2             2 
+ 3             7 
+ 4             5 
+ 5             13 
+ 6             14 
+ 7             20 
+ 8             12 
+ 9             11 
+ 10            8 
+ 11            7 
+ 12            1 
+
+
+TRY AGAIN? YES
+
+HOW MANY ROLLS? 50
+
+TOTAL SPOTS   NUMBER OF TIMES
+ 2             1 
+ 3             1 
+ 4             5 
+ 5             6 
+ 6             7 
+ 7             9 
+ 8             8 
+ 9             4 
+ 10            5 
+ 11            2 
+ 12            2 
+
+
+TRY AGAIN? NO