basic101 0.1.0

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

@@ -0,0 +1,133 @@
+                               FUR TRADER
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+
+
+YOU ARE THE LEADER OF A FRENCH FUR TRADING EXPEDITION IN 
+1776 LEAVING THE LAKE ONTARIO AREA TO SELL FURS AND GET
+SUPPLIES FOR THE NEXT YEAR.  YOU HAVE A CHOICE OF THREE
+FORTS AT WHICH YOU MAY TRADE.  THE COST OF SUPPLIES
+AND THE AMOUNT YOU RECEIVE FOR YOUR FURS WILL DEPEND
+ON THE FORT THAT YOU CHOOSE.
+DO YOU WISH TO TRADE FURS?
+ANSWER YES OR NO            ? YES
+
+YOU HAVE $ 600  SAVINGS.
+AND 190 FURS TO BEGIN THE EXPEDITION.
+
+YOUR 190 FURS ARE DISTRIBUTED AMONG THE FOLLOWING
+KINDS OF PELTS: MINK, BEAVER, ERMINE AND FOX.
+
+HOW MANY MINK PELTS DO YOU HAVE? 60
+
+HOW MANY BEAVER PELTS DO YOU HAVE? 60
+
+HOW MANY ERMINE PELTS DO YOU HAVE? 70
+YOU MAY TRADE YOUR FURS AT FORT 1, FORT 2,
+OR FORT 3.  FORT 1 IS FORT HOCHELAGA (MONTREAL)
+AND IS UNDER THE PROTECTION OF THE FRENCH ARMY.
+FORT 2 IS FORT STADACONA (QUEBEC) AND IS UNDER THE
+PROTECTION OF THE FRENCH ARMY.  HOWEVER, YOU MUST
+MAKE A PORTAGE AND CROSS THE LACHINE RAPIDS.
+FORT 3 IS FORT NEW YORK AND IS UNDER DUTCH CONTROL.
+YOU MUST CROSS THROUGH IROQUOIS LAND.
+ANSWER 1, 2, OR 3.
+? 1
+YOU HAVE CHOSEN THE EASIEST ROUTE.  HOWEVER, THE FORT
+IS FAR FROM ANY SEAPORT.  THE VALUE
+YOU RECEIVE FOR YOUR FURS WILL BE LOW AND THE COST
+OF SUPPLIES HIGHER THAN AT FORTS STADACONA OR NEW YORK.
+DO YOU WANT TO TRADE AT ANOTHER FORT?
+ANSWER YES OR NO            ? NO
+
+SUPPLIES AT FORT HOCHELAGA COST $150.00.
+YOUR TRAVEL EXPENSES TO HOCHELAGA WERE $10.00.
+
+YOUR BEAVER SOLD FOR $ 49.8 YOUR FOX SOLD FOR $ 0 
+YOUR ERMINE SOLD FOR $ 53.2 YOUR MINK SOLD FOR $ 49.2 
+
+YOU NOW HAVE $ 592.2  INCLUDING YOUR PREVIOUS SAVINGS
+
+DO YOU WANT TO TRADE FURS NEXT YEAR?
+ANSWER YES OR NO            ? YES
+
+YOU HAVE $ 592.2  SAVINGS.
+AND 190 FURS TO BEGIN THE EXPEDITION.
+
+YOUR 190 FURS ARE DISTRIBUTED AMONG THE FOLLOWING
+KINDS OF PELTS: MINK, BEAVER, ERMINE AND FOX.
+
+HOW MANY MINK PELTS DO YOU HAVE? 70
+
+HOW MANY BEAVER PELTS DO YOU HAVE? 60
+
+HOW MANY ERMINE PELTS DO YOU HAVE? 60
+YOU MAY TRADE YOUR FURS AT FORT 1, FORT 2,
+OR FORT 3.  FORT 1 IS FORT HOCHELAGA (MONTREAL)
+AND IS UNDER THE PROTECTION OF THE FRENCH ARMY.
+FORT 2 IS FORT STADACONA (QUEBEC) AND IS UNDER THE
+PROTECTION OF THE FRENCH ARMY.  HOWEVER, YOU MUST
+MAKE A PORTAGE AND CROSS THE LACHINE RAPIDS.
+FORT 3 IS FORT NEW YORK AND IS UNDER DUTCH CONTROL.
+YOU MUST CROSS THROUGH IROQUOIS LAND.
+ANSWER 1, 2, OR 3.
+? 2
+YOU HAVE CHOSEN A HARD ROUTE.  IT IS, IN COMPARSION,
+HARDER THAN THE ROUTE TO HOCHELAGA BUT EASIER THAN
+THE ROUTE TO NEW YORK.  YOU WILL RECEIVE AN AVERAGE VALUE
+FOR YOUR FURS AND THE COST OF YOUR SUPPLIES WILL BE AVERAGE.
+DO YOU WANT TO TRADE AT ANOTHER FORT?
+ANSWER YES OR NO            ? NO
+
+YOU ARRIVED SAFELY AT FORT STADACONA.
+SUPPLIES AT FORT STADACONA COST $125.00.
+YOUR TRAVEL EXPENSES TO STADACONA WERE $15.00.
+
+YOUR BEAVER SOLD FOR $ 63.6 YOUR FOX SOLD FOR $ 0 
+YOUR ERMINE SOLD FOR $ 51.6 YOUR MINK SOLD FOR $ 79.8 
+
+YOU NOW HAVE $ 647.2  INCLUDING YOUR PREVIOUS SAVINGS
+
+DO YOU WANT TO TRADE FURS NEXT YEAR?
+ANSWER YES OR NO            ? YES
+
+YOU HAVE $ 647.2  SAVINGS.
+AND 190 FURS TO BEGIN THE EXPEDITION.
+
+YOUR 190 FURS ARE DISTRIBUTED AMONG THE FOLLOWING
+KINDS OF PELTS: MINK, BEAVER, ERMINE AND FOX.
+
+HOW MANY MINK PELTS DO YOU HAVE? 60
+
+HOW MANY BEAVER PELTS DO YOU HAVE? 70
+
+HOW MANY ERMINE PELTS DO YOU HAVE? 60
+YOU MAY TRADE YOUR FURS AT FORT 1, FORT 2,
+OR FORT 3.  FORT 1 IS FORT HOCHELAGA (MONTREAL)
+AND IS UNDER THE PROTECTION OF THE FRENCH ARMY.
+FORT 2 IS FORT STADACONA (QUEBEC) AND IS UNDER THE
+PROTECTION OF THE FRENCH ARMY.  HOWEVER, YOU MUST
+MAKE A PORTAGE AND CROSS THE LACHINE RAPIDS.
+FORT 3 IS FORT NEW YORK AND IS UNDER DUTCH CONTROL.
+YOU MUST CROSS THROUGH IROQUOIS LAND.
+ANSWER 1, 2, OR 3.
+? 3
+YOU HAVE CHOSEN THE MOST DIFFICULT ROUTE.  AT
+FORT NEW YORK YOU WILL RECEIVE THE HIGHEST VALUE
+FOR YOUR FURS.  THE COST OF YOUR SUPPLIES
+WILL BE LOWER THAN AT ALL THE OTHER FORTS.
+DO YOU WANT TO TRADE AT ANOTHER FORT?
+ANSWER YES OR NO            ? YES
+ANSWER 1, 2, OR 3.
+? 3
+YOU HAVE CHOSEN THE MOST DIFFICULT ROUTE.  AT
+FORT NEW YORK YOU WILL RECEIVE THE HIGHEST VALUE
+FOR YOUR FURS.  THE COST OF YOUR SUPPLIES
+WILL BE LOWER THAN AT ALL THE OTHER FORTS.
+DO YOU WANT TO TRADE AT ANOTHER FORT?
+ANSWER YES OR NO            ? NO
+
+YOU WERE ATTACKED BY A PARTY OF IROQUOIS.
+ALL PEOPLE IN YOUR TRADING GROUP WERE
+KILLED.  THIS ENDS THE GAME.
+Break in line 1284

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

@@ -0,0 +1,244 @@
+1 PRINT TAB(34);"GOLF"
+2 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+3 PRINT:PRINT:PRINT
+4 PRINT "WELCOME TO THE CREATIVE COMPUTING COUNTRY CLUB,"
+5 PRINT "AN EIGHTEEN HOLE CHAMPIONSHIP LAYOUT LOCATED A SHORT"
+6 PRINT "DISTANCE FROM SCENIC DOWNTOWN MORRISTOWN.  THE"
+7 PRINT "COMMENTATOR WILL EXPLAIN THE GAME AS YOU PLAY."
+8 PRINT "ENJOY YOUR GAME; SEE YOU AT THE 19TH HOLE..."
+9 PRINT:PRINT: DIM L(10)
+10 G1=18
+20 G2=0
+30 G3=0
+40 A=0
+50 N=.8
+60 S2=0
+70 F=1
+80 PRINT "WHAT IS YOUR HANDICAP";
+90 INPUT H:PRINT
+100 IF H>30 THEN 470
+110 IF H<0 THEN 470
+120 PRINT "DIFFICULTIES AT GOLF INCLUDE:"
+130 PRINT "0=HOOK, 1=SLICE, 2=POOR DISTANCE, 4=TRAP SHOTS, 5=PUTTING"
+140 PRINT "WHICH ONE (ONLY ONE) IS YOUR WORST";
+150 INPUT T:PRINT
+160 IF T>5 THEN 120
+170 S1=0
+210 REM
+230 L(0)=0
+240 J=0
+245 Q=0
+250 S2=S2+1
+260 K=0
+270 IF F=1 THEN 310
+290 PRINT "YOUR SCORE ON HOLE";F-1;"WAS";S1
+291 GOTO 1750
+292 IF S1>P+2 THEN 297
+293 IF S1=P THEN 299
+294 IF S1=P-1 THEN 301
+295 IF S1=P-2 THEN 303
+296 GOTO 310
+297 PRINT "KEEP YOUR HEAD DOWN."
+298 GOTO 310
+299 PRINT "A PAR.  NICE GOING."
+300 GOTO 310
+301 PRINT "A BIRDIE."
+302 GOTO 310
+303 IF P=3 THEN 306
+304 PRINT "A GREAT BIG EAGLE."
+305 GOTO 310
+306 PRINT "A HOLE IN ONE."
+310 IF F=19 THEN 1710
+315 S1=0
+316 PRINT
+320 IF S1=0 THEN 1590
+330 IF L(0)<1 THEN 1150
+340 X=0
+350 IF L(0)>5 THEN 1190
+360 PRINT "SHOT WENT";D1;"YARDS.  IT'S";D2;"YARDS FROM THE CUP."
+362 PRINT "BALL IS";INT(O);"YARDS OFF LINE... IN ";
+380 GOSUB 400
+390 GOTO 620
+400 IF L(X)=1 THEN 480
+410 IF L(X)=2 THEN 500
+420 IF L(X)=3 THEN 520
+430 IF L(X)=4 THEN 540
+440 IF L(X)=5 THEN 560
+450 IF L(X)=6 THEN 580
+460 PRINT "OUT OF BOUNDS."
+465 GOTO 1690
+470 PRINT "PGA HANDICAPS RANGE FROM 0 TO 30."
+472 GOTO 80
+480 PRINT "FAIRWAY."
+490 GOTO 1690
+500 PRINT "ROUGH."
+510 GOTO 1690
+520 PRINT "TREES."
+530 GOTO 1690
+540 PRINT "ADJACENT FAIRWAY."
+550 GOTO 1690
+560 PRINT "TRAP."
+570 GOTO 1690
+580 PRINT "WATER."
+590 GOTO 1690
+620 IF A=1 THEN 629
+621 PRINT "SELECTION OF CLUBS"
+622 PRINT "YARDAGE DESIRED                       SUGGESTED CLUBS"
+623 PRINT "200 TO 280 YARDS                           1 TO 4"
+624 PRINT "100 TO 200 YARDS                          19 TO 13"
+625 PRINT "  0 TO 100 YARDS                          29 TO 23"
+626 A=1
+629 PRINT "WHAT CLUB DO YOU CHOOSE";
+630 INPUT C
+632 PRINT
+635 IF C<1 THEN 690
+637 IF C>29 THEN 690
+640 IF C>4 THEN 710
+650 IF L(0)<=5 THEN 740
+660 IF C=14 THEN 740
+665 IF C=23 THEN 740
+670 GOTO 690
+680 S1=S1-1
+690 PRINT "THAT CLUB IS NOT IN THE BAG."
+693 PRINT
+700 GOTO 620
+710 IF C<12 THEN 690
+720 C=C-6
+730 GOTO 650
+740 S1=S1+1
+741 W=1
+742 IF C>13 THEN 960
+746 IF INT(F/3)=F/3 THEN 952
+752 IF C<4 THEN 756
+754 GOTO 760
+756 IF L(0)=2 THEN 862
+760 IF S1>7 THEN 867
+770 D1=INT(((30-H)*2.5+187-((30-H)*.25+15)*C/2)+25*RND(1))
+780 D1=INT(D1*W)
+800 IF T=2 THEN 1170
+830 O=(RND(1)/.8)*(2*H+16)*ABS(TAN(D1*.0035))
+840 D2=INT(SQR(O^2+ABS(D-D1)^2))
+850 IF D-D1<0 THEN 870
+860 GOTO 890
+862 PRINT "YOU DUBBED IT."
+864 D1=35
+866 GOTO 830
+867 IF D<200 THEN 1300
+868 GOTO 770
+870 IF D2<20 THEN 890
+880 PRINT "TOO MUCH CLUB. YOU'RE PAST THE HOLE."
+890 B=D
+900 D=D2
+910 IF D2>27 THEN 1020
+920 IF D2>20 THEN 1100
+930 IF D2>.5 THEN 1120
+940 L(0)=9
+950 GOTO 1470
+952 IF S2+Q+(10*(F-1)/18)<(F-1)*(72+((H+1)/.85))/18 THEN 956
+954 GOTO 752
+956 Q=Q+1
+957 IF S1/2<>INT(S1/2) THEN 1011
+958 GOTO 862
+960 PRINT "NOW GAUGE YOUR DISTANCE BY A PERCENTAGE (1 TO 100)"
+961 PRINT "OF A FULL SWING";
+970 INPUT W: W=W/100
+972 PRINT
+980 IF W>1 THEN 680
+985 IF L(0)=5 THEN 1280
+990 IF C=14 THEN 760
+1000 C=C-10
+1010 GOTO 760
+1011 IF D<95 THEN 862
+1012 PRINT "BALL HIT TREE - BOUNCED INTO ROUGH";D-75;"YARDS FROM HOLE."
+1014 D=D-75
+1018 GOTO 620
+1020 IF O<30 THEN 1150
+1022 IF J>0 THEN 1150
+1030 IF T>0 THEN 1070
+1035 S9=(S2+1)/15
+1036 IF INT(S9)=S9 THEN 1075
+1040 PRINT "YOU HOOKED- ";
+1050 L(0)=L(2)
+1055 IF O>45 THEN 1092
+1060 GOTO 320
+1070 S9=(S2+1)/15
+1071 IF INT(S9)=S9 THEN 1040
+1075 PRINT "YOU SLICED- ";
+1080 L(0)=L(1)
+1090 GOTO 1055
+1092 PRINT "BADLY."
+1094 GOTO 320
+1100 L(0)=5
+1110 GOTO 320
+1120 L(0)=8
+1130 D2=INT(D2*3)
+1140 GOTO 1380
+1150 L(0)=1
+1160 GOTO 320
+1170 D1=INT(.85*D1)
+1180 GOTO 830
+1190 IF L(0)>6 THEN 1260
+1200 PRINT "YOUR SHOT WENT INTO THE WATER."
+1210 S1=S1+1
+1220 PRINT "PENALTY STROKE ASSESSED.  HIT FROM PREVIOUS LOCATION."
+1230 J=J+1
+1240 L(0)=1
+1242 D=B
+1250 GOTO 620
+1260 PRINT "YOUR SHOT WENT OUT OF BOUNDS."
+1270 GOTO 1210
+1280 IF T=3 THEN 1320
+1300 D2=1+(3*INT((80/(40-H))*RND(1)))
+1310 GOTO 1380
+1320 IF RND(1)>N THEN 1360
+1330 N=N*.2
+1340 PRINT "SHOT DUBBED, STILL IN TRAP."
+1350 GOTO 620
+1360 N=.8
+1370 GOTO 1300
+1380 PRINT "ON GREEN,";D2;"FEET FROM THE PIN."
+1381 PRINT "CHOOSE YOUR PUTT POTENCY (1 TO 13):";
+1400 INPUT I
+1410 S1=S1+1
+1420 IF S1+1-P>(H*.072)+2 THEN 1470
+1425 IF K>2 THEN 1470
+1428 K=K+1
+1430 IF T=4 THEN 1530
+1440 D2=D2-I*(4+2*RND(1))+1.5
+1450 IF D2<-2 THEN 1560
+1460 IF D2>2 THEN 1500
+1470 PRINT "YOU HOLED IT."
+1472 PRINT
+1480 F=F+1
+1490 GOTO 230
+1500 PRINT "PUTT SHORT."
+1505 D2=INT(D2)
+1510 GOTO 1380
+1530 D2=D2-I*(4+1*RND(1))+1
+1550 GOTO 1450
+1560 PRINT "PASSED BY CUP."
+1570 D2=-D2
+1580 GOTO 1505
+1590 READ D,P,L(1),L(2)
+1595 PRINT
+1600 PRINT "YOU ARE AT THE TEE OFF HOLE";F;"DISTANCE";D;"YARDS, PAR";P
+1605 G3=G3+P
+1620 PRINT "ON YOUR RIGHT IS ";
+1630 X=1
+1640 GOSUB 400
+1650 PRINT "ON YOUR LEFT IS ";
+1660 X=2
+1670 GOSUB 400
+1680 GOTO 620
+1690 RETURN
+1700 DATA 361,4,4,2,389,4,3,3,206,3,4,2,500,5,7,2
+1702 DATA 408,4,2,4,359,4,6,4,424,4,4,2,388,4,4,4
+1704 DATA 196,3,7,2,400,4,7,2,560,5,7,2,132,3,2,2
+1706 DATA 357,4,4,4,294,4,2,4,475,5,2,3,375,4,4,2
+1708 DATA 180,3,6,2,550,5,6,6
+1710 PRINT
+1750 G2=G2+S1
+1760 PRINT "TOTAL PAR FOR";F-1;"HOLES IS";G3;"  YOUR TOTAL IS";G2
+1761 IF G1=F-1 THEN 1770
+1765 GOTO 292
+1770 END

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

@@ -0,0 +1,11 @@
+0
+5
+1
+25
+80
+29
+50
+29
+20
+1
+1

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

@@ -0,0 +1,69 @@
+                                  GOLF
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+
+
+WELCOME TO THE CREATIVE COMPUTING COUNTRY CLUB,
+AN EIGHTEEN HOLE CHAMPIONSHIP LAYOUT LOCATED A SHORT
+DISTANCE FROM SCENIC DOWNTOWN MORRISTOWN.  THE
+COMMENTATOR WILL EXPLAIN THE GAME AS YOU PLAY.
+ENJOY YOUR GAME; SEE YOU AT THE 19TH HOLE...
+
+
+WHAT IS YOUR HANDICAP? 0
+
+DIFFICULTIES AT GOLF INCLUDE:
+0=HOOK, 1=SLICE, 2=POOR DISTANCE, 4=TRAP SHOTS, 5=PUTTING
+WHICH ONE (ONLY ONE) IS YOUR WORST? 5
+
+
+
+YOU ARE AT THE TEE OFF HOLE 1 DISTANCE 361 YARDS, PAR 4 
+ON YOUR RIGHT IS ADJACENT FAIRWAY.
+ON YOUR LEFT IS ROUGH.
+SELECTION OF CLUBS
+YARDAGE DESIRED                       SUGGESTED CLUBS
+200 TO 280 YARDS                           1 TO 4
+100 TO 200 YARDS                          19 TO 13
+  0 TO 100 YARDS                          29 TO 23
+WHAT CLUB DO YOU CHOOSE? 1
+
+SHOT WENT 264 YARDS.  IT'S 98 YARDS FROM THE CUP.
+BALL IS 18 YARDS OFF LINE... IN FAIRWAY.
+WHAT CLUB DO YOU CHOOSE? 25
+
+NOW GAUGE YOUR DISTANCE BY A PERCENTAGE (1 TO 100)
+OF A FULL SWING? 80
+
+TOO MUCH CLUB. YOU'RE PAST THE HOLE.
+SHOT WENT 140 YARDS.  IT'S 42 YARDS FROM THE CUP.
+BALL IS 5 YARDS OFF LINE... IN FAIRWAY.
+WHAT CLUB DO YOU CHOOSE? 29
+
+NOW GAUGE YOUR DISTANCE BY A PERCENTAGE (1 TO 100)
+OF A FULL SWING? 50
+
+TOO MUCH CLUB. YOU'RE PAST THE HOLE.
+SHOT WENT 63 YARDS.  IT'S 21 YARDS FROM THE CUP.
+BALL IS 2 YARDS OFF LINE... IN TRAP.
+WHAT CLUB DO YOU CHOOSE? 29
+
+NOW GAUGE YOUR DISTANCE BY A PERCENTAGE (1 TO 100)
+OF A FULL SWING? 20
+
+ON GREEN, 1 FEET FROM THE PIN.
+CHOOSE YOUR PUTT POTENCY (1 TO 13):? 1
+PASSED BY CUP.
+ON GREEN, 3 FEET FROM THE PIN.
+CHOOSE YOUR PUTT POTENCY (1 TO 13):? 1
+YOU HOLED IT.
+
+YOUR SCORE ON HOLE 1 WAS 6 
+TOTAL PAR FOR 1 HOLES IS 4   YOUR TOTAL IS 6 
+
+
+YOU ARE AT THE TEE OFF HOLE 2 DISTANCE 389 YARDS, PAR 4 
+ON YOUR RIGHT IS TREES.
+ON YOUR LEFT IS TREES.
+WHAT CLUB DO YOU CHOOSE? 
+Error on line 630: No more input

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

@@ -0,0 +1,54 @@
+2 PRINT TAB(33);"GOMOKO"
+4 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+6 PRINT:PRINT:PRINT
+8 DIM A(19,19)
+10 PRINT "WELCOME TO THE ORIENTAL GAME OF GOMOKO."
+20 PRINT: PRINT "THE GAME IS PLAYED ON AN N BY N GRID OF A SIZE"
+30 PRINT "THAT YOU SPECIFY.  DURING YOUR PLAY, YOU MAY COVER ONE GRID"
+40 PRINT "INTERSECTION WITH A MARKER. THE OBJECT OF THE GAME IS TO GET"
+50 PRINT "5 ADJACENT MARKERS IN A ROW -- HORIZONTALLY, VERTICALLY, OR"
+60 PRINT "DIAGONALLY.  ON THE BOARD DIAGRAM, YOUR MOVES ARE MARKED"
+70 PRINT "WITH A '1' AND THE COMPUTER MOVES WITH A '2'."
+80 PRINT: PRINT "THE COMPUTER DOES NOT KEEP TRACK OF WHO HAS WON."
+90 PRINT "TO END THE GAME, TYPE -1,-1 FOR YOUR MOVE.": PRINT
+110 PRINT "WHAT IS YOUR BOARD SIZE (MIN 7/ MAX 19)";: INPUT N
+115 IF N>6 THEN 117
+116 GOTO 120
+117 IF N<20 THEN 210
+120 PRINT "I SAID, THE MINIMUM IS 7, THE MAXIMUM IS 19.": GOTO 110
+210 FOR I=1 TO N:FOR J=1 TO N: A(I,J)=0: NEXT J: NEXT I
+300 PRINT: PRINT "WE ALTERNATE MOVES.  YOU GO FIRST...": PRINT
+310 PRINT "YOUR PLAY (I,J)";: INPUT I,J
+315 PRINT
+320 IF I=-1 THEN 980
+330 X=I: Y=J: GOSUB 910: IF L=1 THEN 410
+340 PRINT "ILLEGAL MOVE.  TRY AGAIN...": GOTO 310
+410 IF A(I,J)=0 THEN 440
+420 PRINT "SQUARE OCCUPIED.  TRY AGAIN...": GOTO 310
+440 A(I,J)=1
+500 REM *** COMPUTER TRIES AN INTELLIGENT MOVE ***
+510 FOR E=-1 TO 1: FOR F=-1 TO 1: IF E+F-E*F=0 THEN 590
+540 X=I+F: Y=J+F: GOSUB 910
+570 IF L=0 THEN 590
+580 IF A(X,Y)=1 THEN 710
+590 NEXT F: NEXT E
+600 REM *** COMPUTER TRIES A RANDOM MOVE ***
+610 X=INT(N*RND(1)+1): Y=INT(N*RND(1)+1): GOSUB 910: IF L=0 THEN 610
+650 IF A(X,Y)<>0 THEN 610
+660 A(X,Y)=2: GOSUB 810: GOTO 310
+710 X=I-E: Y=J-F: GOSUB 910
+750 IF L=0 THEN 610
+760 GOTO 650
+800 REM *** PRINT THE BOARD ***
+810 FOR I=1 TO N: FOR J=1 TO N: PRINT A(I,J);
+840 NEXT J: PRINT: NEXT I: PRINT: RETURN
+910 L=1: IF X<1 THEN 970
+920 IF X>N THEN 970
+930 IF Y<1 THEN 970
+940 IF Y>N THEN 970
+950 RETURN
+970 L=0: RETURN
+980 PRINT: PRINT "THANKS FOR THE GAME!!"
+985 PRINT "PLAY AGAIN (1 FOR YES, 0 FOR NO)";: INPUT Q
+990 IF Q=1 THEN 110
+999 END

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

@@ -0,0 +1,6 @@
+7
+1,1
+2,2
+3,3
+4,4
+5,5

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

@@ -0,0 +1,66 @@
+                                 GOMOKO
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+
+
+WELCOME TO THE ORIENTAL GAME OF GOMOKO.
+
+THE GAME IS PLAYED ON AN N BY N GRID OF A SIZE
+THAT YOU SPECIFY.  DURING YOUR PLAY, YOU MAY COVER ONE GRID
+INTERSECTION WITH A MARKER. THE OBJECT OF THE GAME IS TO GET
+5 ADJACENT MARKERS IN A ROW -- HORIZONTALLY, VERTICALLY, OR
+DIAGONALLY.  ON THE BOARD DIAGRAM, YOUR MOVES ARE MARKED
+WITH A '1' AND THE COMPUTER MOVES WITH A '2'.
+
+THE COMPUTER DOES NOT KEEP TRACK OF WHO HAS WON.
+TO END THE GAME, TYPE -1,-1 FOR YOUR MOVE.
+
+WHAT IS YOUR BOARD SIZE (MIN 7/ MAX 19)? 7
+
+WE ALTERNATE MOVES.  YOU GO FIRST...
+
+YOUR PLAY (I,J)? 1,1
+
+ 1  0  0  0  0  0  0 
+ 2  0  0  0  0  0  0 
+ 0  0  0  0  0  0  0 
+ 0  0  0  0  0  0  0 
+ 0  0  0  0  0  0  0 
+ 0  0  0  0  0  0  0 
+ 0  0  0  0  0  0  0 
+
+YOUR PLAY (I,J)? 2,2
+
+ 1  0  0  0  0  0  0 
+ 2  1  0  0  0  0  0 
+ 0  0  2  0  0  0  0 
+ 0  0  0  0  0  0  0 
+ 0  0  0  0  0  0  0 
+ 0  0  0  0  0  0  0 
+ 0  0  0  0  0  0  0 
+
+YOUR PLAY (I,J)? 3,3
+
+SQUARE OCCUPIED.  TRY AGAIN...
+YOUR PLAY (I,J)? 4,4
+
+ 1  0  0  0  0  0  0 
+ 2  1  0  0  0  0  0 
+ 0  0  2  0  0  0  0 
+ 0  0  0  1  0  0  0 
+ 0  0  0  2  0  0  0 
+ 0  0  0  0  0  0  0 
+ 0  0  0  0  0  0  0 
+
+YOUR PLAY (I,J)? 5,5
+
+ 1  0  0  0  0  0  0 
+ 2  1  0  0  0  0  0 
+ 0  0  2  0  0  0  0 
+ 0  0  0  1  0  0  0 
+ 0  0  0  2  1  0  0 
+ 0  0  0  0  0  2  0 
+ 0  0  0  0  0  0  0 
+
+YOUR PLAY (I,J)? 
+Error on line 310: No more input

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

@@ -0,0 +1,40 @@
+1 PRINT TAB(33);"GUESS"
+2 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+3 PRINT:PRINT:PRINT
+4 PRINT "THIS IS A NUMBER GUESSING GAME. I'LL THINK"
+5 PRINT "OF A NUMBER BETWEEN 1 AND ANY LIMIT YOU WANT."
+6 PRINT "THEN YOU HAVE TO GUESS WHAT IT IS."
+7 PRINT
+8 PRINT "WHAT LIMIT DO YOU WANT";
+9 INPUT L
+10 PRINT
+11 L1=INT(LOG(L)/LOG(2))+1
+12 PRINT "I'M THINKING OF A NUMBER BETWEEN 1 AND";L
+13 G=1
+14 PRINT "NOW YOU TRY TO GUESS WHAT IT IS."
+15 M=INT(L*RND(1)+1)
+20 INPUT N
+21 IF N>0 THEN 25
+22 GOSUB 70
+23 GOTO 1
+25 IF N=M THEN 50
+30 G=G+1
+31 IF N>M THEN 40
+32 PRINT "TOO LOW. TRY A BIGGER ANSWER."
+33 GOTO 20
+40 PRINT "TOO HIGH. TRY A SMALLER ANSWER."
+42 GOTO 20
+50 PRINT "THAT'S IT! YOU GOT IT IN";G;"TRIES."
+52 IF G<L1 THEN 58
+54 IF G=L1 THEN 60
+56 PRINT "YOU SHOULD HAVE BEEN ABLE TO GET IT IN ONLY";L1
+57 GOTO 65
+58 PRINT "VERY ";
+60 PRINT "GOOD."
+65 GOSUB 70
+66 GOTO 12
+70 FOR H=1 TO 5
+71 PRINT
+72 NEXT H
+73 RETURN
+99 END

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

@@ -0,0 +1,8 @@
+100
+50
+75
+62
+56
+53
+54
+55

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

@@ -0,0 +1,37 @@
+                                 GUESS
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+
+
+THIS IS A NUMBER GUESSING GAME. I'LL THINK
+OF A NUMBER BETWEEN 1 AND ANY LIMIT YOU WANT.
+THEN YOU HAVE TO GUESS WHAT IT IS.
+
+WHAT LIMIT DO YOU WANT? 100
+
+I'M THINKING OF A NUMBER BETWEEN 1 AND 100 
+NOW YOU TRY TO GUESS WHAT IT IS.
+? 50
+TOO LOW. TRY A BIGGER ANSWER.
+? 75
+TOO HIGH. TRY A SMALLER ANSWER.
+? 62
+TOO HIGH. TRY A SMALLER ANSWER.
+? 56
+TOO HIGH. TRY A SMALLER ANSWER.
+? 53
+TOO LOW. TRY A BIGGER ANSWER.
+? 54
+TOO LOW. TRY A BIGGER ANSWER.
+? 55
+THAT'S IT! YOU GOT IT IN 7 TRIES.
+GOOD.
+
+
+
+
+
+I'M THINKING OF A NUMBER BETWEEN 1 AND 100 
+NOW YOU TRY TO GUESS WHAT IT IS.
+? 
+Error on line 20: No more input