basic101 0.1.0

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

@@ -0,0 +1,114 @@
+2 PRINT TAB(30);"TIC-TAC-TOE"
+4 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+6 PRINT:PRINT:PRINT
+8 PRINT "THE BOARD IS NUMBERED:"
+10 PRINT " 1  2  3"
+12 PRINT " 4  5  6"
+14 PRINT " 7  8  9"
+16 PRINT:PRINT:PRINT
+20 DIM S(9)
+50 INPUT"DO YOU WANT 'X' OR 'O'";C$
+55 IF C$="X"THEN 475
+60 P$="O":Q$="X"
+100 G=-1:H=1:IF S(5)<>0 THEN 103
+102 S(5)=-1:GOTO 195
+103 IF S(5)<>1 THEN 106
+104 IF S(1)<>0 THEN 110
+105 S(1)=-1:GOTO 195
+106 IF S(2)=1 AND S(1)=0 THEN 181
+107 IF S(4)=1 AND S(1)=0 THEN 181
+108 IF S(6)=1 AND S(9)=0 THEN 189
+109 IF S(8)=1 AND S(9)=0 THEN 189
+110 IF G=1 THEN 112
+111 GOTO 118
+112 J=3*INT((M-1)/3)+1
+113 IF 3*INT((M-1)/3)+1=M THEN K=1
+114 IF 3*INT((M-1)/3)+2=M THEN K=2
+115 IF 3*INT((M-1)/3)+3=M THEN K=3
+116 GOTO 120
+118 FOR J=1 TO 7 STEP 3:FOR K=1 TO 3
+120 IF S(J)<>G THEN 130
+122 IF S(J+2)<>G THEN 135
+126 IF S(J+1)<>0 THEN 150
+128 S(J+1)=-1:GOTO 195
+130 IF S(J)=H THEN 150
+131 IF S(J+2)<>G THEN 150
+132 IF S(J+1)<>G THEN 150
+133 S(J)=-1:GOTO 195
+135 IF S(J+2)<>0 THEN 150
+136 IF S(J+1)<>G THEN 150
+138 S(J+2)=-1:GOTO 195
+150 IF S(K)<>G THEN 160
+152 IF S(K+6)<>G THEN 165
+156 IF S(K+3)<>0 THEN 170
+158 S(K+3)=-1:GOTO 195
+160 IF S(K)=H THEN 170
+161 IF S(K+6)<>G THEN 170
+162 IF S(K+3)<>G THEN 170
+163 S(K)=-1:GOTO 195
+165 IF S(K+6)<>0 THEN 170
+166 IF S(K+3)<>G THEN 170
+168 S(K+6)=-1:GOTO 195
+170 GOTO 450
+171 IF S(3)=G AND S(7)=0 THEN 187
+172 IF S(9)=G AND S(1)=0 THEN 181
+173 IF S(7)=G AND S(3)=0 THEN 183
+174 IF S(9)=0 AND S(1)=G THEN 189
+175 IF G=-1 THEN G=1:H=-1:GOTO 110
+176 IF S(9)=1 AND S(3)=0 THEN 182
+177 FOR I=2 TO 9:IF S(I)<>0 THEN 179
+178 S(I)=-1:GOTO 195
+179 NEXT I
+181 S(1)=-1:GOTO 195
+182 IF S(1)=1 THEN 177
+183 S(3)=-1:GOTO 195
+187 S(7)=-1:GOTO 195
+189 S(9)=-1
+195 PRINT:PRINT"THE COMPUTER MOVES TO..."
+202 GOSUB 1000
+205 GOTO 500
+450 IF G=1 THEN 465
+455 IF J=7 AND K=3 THEN 465
+460 NEXT K,J
+465 IF S(5)=G THEN 171
+467 GOTO 175
+475 P$="X":Q$="O"
+500 PRINT:INPUT"WHERE DO YOU MOVE";M
+502 IF M=0 THEN PRINT"THANKS FOR THE GAME.":GOTO 2000
+503 IF M>9 THEN 506
+505 IF S(M)=0 THEN 510
+506 PRINT"THAT SQUARE IS OCCUPIED.":PRINT:PRINT:GOTO 500
+510 G=1:S(M)=1
+520 GOSUB 1000
+530 GOTO 100
+1000 PRINT:FOR I=1 TO 9:PRINT" ";:IF S(I)<>-1 THEN 1014
+1012 PRINT Q$" ";:GOTO 1020
+1014 IF S(I)<>0 THEN 1018
+1016 PRINT"  ";:GOTO 1020
+1018 PRINT P$" ";
+1020 IF I<>3 AND I<>6 THEN 1050
+1030 PRINT:PRINT"---+---+---"
+1040 GOTO 1080
+1050 IF I=9 THEN 1080
+1060 PRINT"!";
+1080 NEXT I:PRINT:PRINT:PRINT
+1095 FOR I=1 TO 7 STEP 3
+1100 IF S(I)<>S(I+1)THEN 1115
+1105 IF S(I)<>S(I+2)THEN 1115
+1110 IF S(I)=-1 THEN 1350
+1112 IF S(I)=1 THEN 1200
+1115 NEXT I:FOR I=1 TO 3:IF S(I)<>S(I+3)THEN 1150
+1130 IF S(I)<>S(I+6)THEN 1150
+1135 IF S(I)=-1 THEN 1350
+1137 IF S(I)=1 THEN 1200
+1150 NEXT I:FOR I=1 TO 9:IF S(I)=0 THEN 1155
+1152 NEXT I:GOTO 1400
+1155 IF S(5)<>G THEN 1170
+1160 IF S(1)=G AND S(9)=G THEN 1180
+1165 IF S(3)=G AND S(7)=G THEN 1180
+1170 RETURN
+1180 IF G=-1 THEN 1350
+1200 PRINT"YOU BEAT ME!! GOOD GAME.":GOTO 2000
+1350 PRINT"I WIN, TURKEY!!!":GOTO 2000
+1400 PRINT"IT'S A DRAW. THANK YOU."
+2000 END

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

@@ -0,0 +1,6 @@
+X
+1
+9
+8
+3
+4

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

@@ -0,0 +1,104 @@
+                              TIC-TAC-TOE
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+
+
+THE BOARD IS NUMBERED:
+ 1  2  3
+ 4  5  6
+ 7  8  9
+
+
+
+DO YOU WANT 'X' OR 'O'? X
+
+WHERE DO YOU MOVE? 1
+
+ X !   !   
+---+---+---
+   !   !   
+---+---+---
+   !   !   
+
+
+
+THE COMPUTER MOVES TO...
+
+ X !   !   
+---+---+---
+   ! O !   
+---+---+---
+   !   !   
+
+
+
+WHERE DO YOU MOVE? 9
+
+ X !   !   
+---+---+---
+   ! O !   
+---+---+---
+   !   ! X 
+
+
+
+THE COMPUTER MOVES TO...
+
+ X ! O !   
+---+---+---
+   ! O !   
+---+---+---
+   !   ! X 
+
+
+
+WHERE DO YOU MOVE? 8
+
+ X ! O !   
+---+---+---
+   ! O !   
+---+---+---
+   ! X ! X 
+
+
+
+THE COMPUTER MOVES TO...
+
+ X ! O !   
+---+---+---
+   ! O !   
+---+---+---
+ O ! X ! X 
+
+
+
+WHERE DO YOU MOVE? 3
+
+ X ! O ! X 
+---+---+---
+   ! O !   
+---+---+---
+ O ! X ! X 
+
+
+
+THE COMPUTER MOVES TO...
+
+ X ! O ! X 
+---+---+---
+   ! O ! O 
+---+---+---
+ O ! X ! X 
+
+
+
+WHERE DO YOU MOVE? 4
+
+ X ! O ! X 
+---+---+---
+ X ! O ! O 
+---+---+---
+ O ! X ! X 
+
+
+IT'S A DRAW. THANK YOU.

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

@@ -0,0 +1,125 @@
+10 PRINT TAB(33);"TOWERS"
+20 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+30 PRINT:PRINT:PRINT
+90 PRINT
+100 REM*** INITIALIZE
+110 DIM T(7,3)
+120 E=0
+130 FOR D=1 TO 7
+140 FOR N=1 TO 3
+150 T(D,N)=0
+160 NEXT N
+170 NEXT D
+180 PRINT "TOWERS OF HANOI PUZZLE.": PRINT
+200 PRINT "YOU MUST TRANSFER THE DISKS FROM THE LEFT TO THE RIGHT"
+205 PRINT "TOWER, ONE AT A TIME, NEVER PUTTING A LARGER DISK ON A"
+210 PRINT "SMALLER DISK.": PRINT
+215 INPUT "HOW MANY DISKS DO YOU WANT TO MOVE (7 IS MAX)";S
+220 PRINT
+230 M=0
+240 FOR Q=1 TO 7
+250 IF Q=S THEN 350
+260 NEXT Q
+270 E=E+1
+280 IF E>2 THEN 310
+290 PRINT "SORRY, BUT I CAN'T DO THAT JOB FOR YOU.": GOTO 215
+310 PRINT "ALL RIGHT, WISE GUY, IF YOU CAN'T PLAY THE GAME RIGHT, I'LL"
+320 PRINT "JUST TAKE MY PUZZLE AND GO HOME.  SO LONG.": STOP
+340 REM *** STORE DISKS FROM SMALLEST TO LARGEST
+350 PRINT "IN THIS PROGRAM, WE SHALL REFER TO DISKS BY NUMERICAL CODE."
+355 PRINT "3 WILL REPRESENT THE SMALLEST DISK, 5 THE NEXT SIZE,"
+360 PRINT "7 THE NEXT, AND SO ON, UP TO 15.  IF YOU DO THE PUZZLE WITH"
+365 PRINT "2 DISKS, THEIR CODE NAMES WOULD BE 13 AND 15.  WITH 3 DISKS"
+370 PRINT "THE CODE NAMES WOULD BE 11, 13 AND 15, ETC.  THE NEEDLES"
+375 PRINT "ARE NUMBERED FROM LEFT TO RIGHT, 1 TO 3.  WE WILL"
+380 PRINT "START WITH THE DISKS ON NEEDLE 1, AND ATTEMPT TO MOVE THEM"
+385 PRINT "TO NEEDLE 3."
+390 PRINT: PRINT "GOOD LUCK!": PRINT
+400 Y=7: D=15
+420 FOR X=S TO 1 STEP -1
+430 T(Y,1)=D: D=D-2: Y=Y-1
+460 NEXT X
+470 GOSUB 1230
+480 PRINT "WHICH DISK WOULD YOU LIKE TO MOVE";:E=0
+500 INPUT D
+510 IF (D-3)*(D-5)*(D-7)*(D-9)*(D-11)*(D-13)*(D-15)=0 THEN 580
+520 PRINT "ILLEGAL ENTRY... YOU MAY ONLY TYPE 3,5,7,9,11,13, OR 15."
+530 E=E+1: IF E>1 THEN 560
+550 GOTO 500
+560 PRINT "STOP WASTING MY TIME.  GO BOTHER SOMEONE ELSE.": STOP
+580 REM *** CHECK IF REQUESTED DISK IS BELOW ANOTHER
+590 FOR R=1 TO 7
+600 FOR C=1 TO 3
+610 IF T(R,C)=D THEN 640
+620 NEXT C: NEXT R
+640 FOR Q=R TO 1 STEP -1
+645 IF T(Q,C)=0 THEN 660
+650 IF T(Q,C)<D THEN 680
+660 NEXT Q
+670 GOTO 700
+680 PRINT "THAT DISK IS BELOW ANOTHER ONE.  MAKE ANOTHER CHOICE."
+690 GOTO 480
+700 E=0
+705 INPUT "PLACE DISK ON WHICH NEEDLE";N
+730 IF (N-1)*(N-2)*(N-3)=0 THEN 800
+735 E=E+1
+740 IF E>1 THEN 780
+750 PRINT "I'LL ASSUME YOU HIT THE WRONG KEY THIS TIME.  BUT WATCH IT,"
+760 PRINT "I ONLY ALLOW ONE MISTAKE.": GOTO 705
+780 PRINT "I TRIED TO WARN YOU, BUT YOU WOULDN'T LISTEN."
+790 PRINT "BYE BYE, BIG SHOT.":STOP
+800 FOR R=1 TO 7
+810 IF T(R,N)<>0 THEN 840
+820 NEXT R
+830 GOTO 880
+835 REM *** CHECK IF DISK TO BE PLACED ON A LARGER ONE
+840 IF D<T(R,N) THEN 880
+850 PRINT "YOU CAN'T PLACE A LARGER DISK ON TOP OF A SMALLER ONE,"
+860 PRINT "IT MIGHT CRUSH IT!": PRINT "NOW THEN, ";:GOTO 480
+875 REM *** MOVE RELOCATED DISK
+880 FOR V=1 TO 7: FOR W=1 TO 3
+900 IF T(V,W)=D THEN 930
+910 NEXT W: NEXT V
+925 REM *** LOCATE EMPTY SPACE ON NEEDLE N
+930 FOR U=1 TO 7
+940 IF T(U,N)<>0 THEN 970
+950 NEXT U
+960 U=7: GOTO 980
+965 REM *** MOVE DISK AND SET OLD LOCATION TO 0
+970 U=U-1
+980 T(U,N)=T(V,W): T(V,W)=0
+995 REM *** PRINT OUT CURRENT STATUS
+1000 GOSUB 1230
+1018 REM *** CHECK IF DONE
+1020 M=M+1
+1030 FOR R=1 TO 7: FOR C=1 TO 2
+1050 IF T(R,C)<>0 THEN 1090
+1060 NEXT C: NEXT R
+1080 GOTO 1120
+1090 IF M<=128 THEN 480
+1100 PRINT "SORRY, BUT I HAVE ORDERS TO STOP IF YOU MAKE MORE THAN"
+1110 PRINT "128 MOVES.": STOP
+1120 IF M<>2^S-1 THEN 1140
+1130 PRINT:PRINT "CONGRATULATIONS!!":PRINT
+1140 PRINT "YOU HAVE PERFORMED THE TASK IN";M;"MOVES."
+1150 PRINT: PRINT "TRY AGAIN (YES OR NO)";: INPUT A$
+1160 IF A$="NO" THEN 1390
+1170 IF A$="YES" THEN 90
+1180 PRINT: PRINT "'YES' OR 'NO' PLEASE";: INPUT A$: GOTO 1160
+1230 REM *** PRINT SUBROUTINE
+1240 FOR K=1 TO 7
+1250 Z=10
+1260 FOR J=1 TO 3
+1270 IF T(K,J)=0 THEN 1330
+1280 PRINT TAB(Z-INT(T(K,J)/2));
+1290 FOR V=1 TO T(K,J)
+1300 PRINT "*";
+1310 NEXT V
+1320 GOTO 1340
+1330 PRINT TAB(Z);"*";
+1340 Z=Z+21
+1350 NEXT J
+1360 PRINT
+1370 NEXT K
+1380 RETURN
+1390 PRINT: PRINT "THANKS FOR THE GAME!": PRINT: END

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

@@ -0,0 +1,9 @@
+2
+0
+13
+2
+15
+3
+13
+3
+NO

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

@@ -0,0 +1,70 @@
+                                 TOWERS
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+
+
+
+TOWERS OF HANOI PUZZLE.
+
+YOU MUST TRANSFER THE DISKS FROM THE LEFT TO THE RIGHT
+TOWER, ONE AT A TIME, NEVER PUTTING A LARGER DISK ON A
+SMALLER DISK.
+
+HOW MANY DISKS DO YOU WANT TO MOVE (7 IS MAX)? 2
+
+IN THIS PROGRAM, WE SHALL REFER TO DISKS BY NUMERICAL CODE.
+3 WILL REPRESENT THE SMALLEST DISK, 5 THE NEXT SIZE,
+7 THE NEXT, AND SO ON, UP TO 15.  IF YOU DO THE PUZZLE WITH
+2 DISKS, THEIR CODE NAMES WOULD BE 13 AND 15.  WITH 3 DISKS
+THE CODE NAMES WOULD BE 11, 13 AND 15, ETC.  THE NEEDLES
+ARE NUMBERED FROM LEFT TO RIGHT, 1 TO 3.  WE WILL
+START WITH THE DISKS ON NEEDLE 1, AND ATTEMPT TO MOVE THEM
+TO NEEDLE 3.
+
+GOOD LUCK!
+
+          *                    *                    *
+          *                    *                    *
+          *                    *                    *
+          *                    *                    *
+          *                    *                    *
+    *************              *                    *
+   ***************             *                    *
+WHICH DISK WOULD YOU LIKE TO MOVE? 0
+ILLEGAL ENTRY... YOU MAY ONLY TYPE 3,5,7,9,11,13, OR 15.
+? 13
+PLACE DISK ON WHICH NEEDLE? 2
+          *                    *                    *
+          *                    *                    *
+          *                    *                    *
+          *                    *                    *
+          *                    *                    *
+          *                    *                    *
+   ***************       *************              *
+WHICH DISK WOULD YOU LIKE TO MOVE? 15
+PLACE DISK ON WHICH NEEDLE? 3
+          *                    *                    *
+          *                    *                    *
+          *                    *                    *
+          *                    *                    *
+          *                    *                    *
+          *                    *                    *
+          *              *************       ***************
+WHICH DISK WOULD YOU LIKE TO MOVE? 13
+PLACE DISK ON WHICH NEEDLE? 3
+          *                    *                    *
+          *                    *                    *
+          *                    *                    *
+          *                    *                    *
+          *                    *                    *
+          *                    *              *************
+          *                    *             ***************
+
+CONGRATULATIONS!!
+
+YOU HAVE PERFORMED THE TASK IN 3 MOVES.
+
+TRY AGAIN (YES OR NO)? NO
+
+THANKS FOR THE GAME!
+

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

@@ -0,0 +1,24 @@
+1 PRINT TAB(33);"TRAIN"
+2 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+3 PRINT: PRINT: PRINT
+4 PRINT "TIME - SPEED DISTANCE EXERCISE": PRINT
+10 C=INT(25*RND(1))+40
+15 D=INT(15*RND(1))+5
+20 T=INT(19*RND(1))+20
+25 PRINT " A CAR TRAVELING";C;"MPH CAN MAKE A CERTAIN TRIP IN"
+30 PRINT D;"HOURS LESS THAN A TRAIN TRAVELING AT";T;"MPH."
+35 PRINT "HOW LONG DOES THE TRIP TAKE BY CAR";
+40 INPUT A
+45 V=D*T/(C-T)
+50 E=INT(ABS((V-A)*100/A)+.5)
+55 IF E>5 THEN 70
+60 PRINT "GOOD! ANSWER WITHIN";E;"PERCENT."
+65 GOTO 80
+70 PRINT "SORRY.  YOU WERE OFF BY";E;"PERCENT."
+80 PRINT "CORRECT ANSWER IS";V;"HOURS."
+90 PRINT
+95 PRINT "ANOTHER PROBLEM (YES OR NO)";
+100 INPUT A$
+105 PRINT
+110 IF A$="YES" THEN 10
+999 END

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

@@ -0,0 +1,4 @@
+21
+YES
+123
+NO

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

@@ -0,0 +1,23 @@
+                                 TRAIN
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+
+
+TIME - SPEED DISTANCE EXERCISE
+
+ A CAR TRAVELING 53 MPH CAN MAKE A CERTAIN TRIP IN
+ 15 HOURS LESS THAN A TRAIN TRAVELING AT 31 MPH.
+HOW LONG DOES THE TRIP TAKE BY CAR? 21
+GOOD! ANSWER WITHIN 1 PERCENT.
+CORRECT ANSWER IS 21.13636 HOURS.
+
+ANOTHER PROBLEM (YES OR NO)? YES
+
+ A CAR TRAVELING 53 MPH CAN MAKE A CERTAIN TRIP IN
+ 11 HOURS LESS THAN A TRAIN TRAVELING AT 32 MPH.
+HOW LONG DOES THE TRIP TAKE BY CAR? 123
+SORRY.  YOU WERE OFF BY 86 PERCENT.
+CORRECT ANSWER IS 16.7619 HOURS.
+
+ANOTHER PROBLEM (YES OR NO)? NO
+

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

@@ -0,0 +1,49 @@
+1 PRINT TAB(34);"TRAP"
+2 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+3 PRINT:PRINT:PRINT
+10 G=6
+20 N=100
+30 REM-TRAP
+40 REM-STEVE ULLMAN, 8-1-72
+50 PRINT "INSTRUCTIONS";
+60 INPUT Z$
+70 IF LEFT$(Z$,1)<>"Y" THEN 180
+80 PRINT "I AM THINKING OF A NUMBER BETWEEN 1 AND";N
+90 PRINT "TRY TO GUESS MY NUMBER. ON EACH GUESS,"
+100 PRINT "YOU ARE TO ENTER 2 NUMBERS, TRYING TO TRAP"
+110 PRINT "MY NUMBER BETWEEN THE TWO NUMBERS. I WILL"
+120 PRINT "TELL YOU IF YOU HAVE TRAPPED MY NUMBER, IF MY"
+130 PRINT "NUMBER IS LARGER THAN YOUR TWO NUMBERS, OR IF"
+140 PRINT "MY NUMBER IS SMALLER THAN YOUR TWO NUMBERS."
+150 PRINT "IF YOU WANT TO GUESS ONE SINGLE NUMBER, TYPE"
+160 PRINT "YOUR GUESS FOR BOTH YOUR TRAP NUMBERS."
+170 PRINT "YOU GET";G;"GUESSES TO GET MY NUMBER."
+180 X=INT(N*RND(1))+1
+190 FOR Q=1 TO G
+200 PRINT 
+210 PRINT "GUESS #";Q;
+220 INPUT A,B
+230 IF A=B AND X=A THEN 400
+240 IF A <= B THEN 260
+250 GOSUB 360
+260 IF A <= X AND X <= B THEN 320
+270 IF X<A THEN 300
+280 PRINT "MY NUMBER IS LARGER THAN YOUR TRAP NUMBERS."
+290 GOTO 330
+300 PRINT "MY NUMBER IS SMALLER THAN YOUR TRAP NUMBERS."
+310 GOTO 330
+320 PRINT "YOU HAVE TRAPPED MY NUMBER."
+330 NEXT Q
+340 PRINT "SORRY, THAT'S";G;"GUESSES. THE NUMBER WAS";X
+345 PRINT
+350 GOTO 410
+360 R=A
+370 A=B
+380 B=R
+390 RETURN 
+400 PRINT "YOU GOT IT!!!"
+410 PRINT 
+420 PRINT "TRY AGAIN."
+430 PRINT
+440 GOTO 180
+450 END

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

@@ -0,0 +1,7 @@
+YES
+33,66
+41,58
+45,54
+55,57
+56,57
+55,55

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

@@ -0,0 +1,40 @@
+                                  TRAP
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+
+
+INSTRUCTIONS? YES
+I AM THINKING OF A NUMBER BETWEEN 1 AND 100 
+TRY TO GUESS MY NUMBER. ON EACH GUESS,
+YOU ARE TO ENTER 2 NUMBERS, TRYING TO TRAP
+MY NUMBER BETWEEN THE TWO NUMBERS. I WILL
+TELL YOU IF YOU HAVE TRAPPED MY NUMBER, IF MY
+NUMBER IS LARGER THAN YOUR TWO NUMBERS, OR IF
+MY NUMBER IS SMALLER THAN YOUR TWO NUMBERS.
+IF YOU WANT TO GUESS ONE SINGLE NUMBER, TYPE
+YOUR GUESS FOR BOTH YOUR TRAP NUMBERS.
+YOU GET 6 GUESSES TO GET MY NUMBER.
+
+GUESS # 1 ? 33,66
+YOU HAVE TRAPPED MY NUMBER.
+
+GUESS # 2 ? 41,58
+YOU HAVE TRAPPED MY NUMBER.
+
+GUESS # 3 ? 45,54
+MY NUMBER IS LARGER THAN YOUR TRAP NUMBERS.
+
+GUESS # 4 ? 55,57
+YOU HAVE TRAPPED MY NUMBER.
+
+GUESS # 5 ? 56,57
+MY NUMBER IS SMALLER THAN YOUR TRAP NUMBERS.
+
+GUESS # 6 ? 55,55
+YOU GOT IT!!!
+
+TRY AGAIN.
+
+
+GUESS # 1 ? 
+Error on line 220: No more input

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

@@ -0,0 +1,68 @@
+10 PRINT TAB(33);"WAR"
+20 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+30 PRINT: PRINT: PRINT
+100 PRINT "THIS IS THE CARD GAME OF WAR.  EACH CARD IS GIVEN BY SUIT-#"
+110 PRINT "AS S-7 FOR SPADE 7.  ";
+120 PRINT "DO YOU WANT DIRECTIONS";
+130 INPUT B$
+140 IF B$="NO" THEN 210
+150 IF B$="YES" THEN 180
+160 PRINT "YES OR NO, PLEASE.  ";
+170 GOTO 120
+180 PRINT "THE COMPUTER GIVES YOU AND IT A 'CARD'.  THE HIGHER CARD"
+190 PRINT "(NUMERICALLY) WINS.  THE GAME ENDS WHEN YOU CHOOSE NOT TO"
+200 PRINT "CONTINUE OR WHEN YOU HAVE FINISHED THE PACK."
+210 PRINT
+220 PRINT
+230 DIM A$(52),L(54)
+240 FOR I=1 TO 52
+250 READ A$(I)
+260 NEXT I
+270 REM
+280 FOR J=1 TO 52
+290 LET L(J)=INT(52*RND(1))+1
+295 IF J=1 THEN 350
+300 FOR K=1 TO J-1
+310 IF L(K)<>L(J) THEN 340
+320 REM
+330 GOTO 290
+340 NEXT K
+350 NEXT J
+360 P=P+1
+370 M1=L(P)
+380 P=P+1
+390 M2=L(P)
+400 PRINT
+420 PRINT "YOU: ";A$(M1),"COMPUTER: ";A$(M2)
+430 N1=INT((M1-.5)/4)
+440 N2=INT((M2-.5)/4)
+450 IF N1>=N2 THEN 490
+460 A1=A1+1
+470 PRINT "THE COMPUTER WINS!!! YOU HAVE";B1;"AND THE COMPUTER HAS";A1
+480 GOTO 540
+490 IF N1=N2 THEN 530
+500 B1=B1+1
+510 PRINT "YOU WIN. YOU HAVE";B1;"AND THE COMPUTER HAS";A1
+520 GOTO 540
+530 PRINT "TIE.  NO SCORE CHANGE."
+540 IF L(P+1)=0 THEN 610
+550 PRINT "DO YOU WANT TO CONTINUE";
+560 INPUT V$
+570 IF V$="YES" THEN 360
+580 IF V$="NO" THEN 650
+590 PRINT "YES OR NO, PLEASE.  ";
+600 GOTO 540
+610 PRINT
+620 PRINT
+630 PRINT "WE HAVE RUN OUT OF CARDS.  FINAL SCORE:  YOU: ";B1;
+640 PRINT "  THE COMPUTER: ";A1:PRINT
+650 PRINT "THANKS FOR PLAYING.  IT WAS FUN."
+655 PRINT
+660 DATA "S-2","H-2","C-2","D-2","S-3","H-3","C-3","D-3"
+670 DATA "S-4","H-4","C-4","D-4","S-5","H-5","C-5","D-5"
+680 DATA "S-6","H-6","C-6","D-6","S-7","H-7","C-7","D-7"
+690 DATA "S-8","H-8","C-8","D-8","S-9","H-9","C-9","D-9"
+700 DATA "S-10","H-10","C-10","D-10","S-J","H-J","C-J","D-J"
+710 DATA "S-Q","H-Q","C-Q","D-Q","S-K","H-K","C-K","D-K"
+720 DATA "S-A","H-A","C-A","D-A"
+999 END

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

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