basic101 0.1.0

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

@@ -0,0 +1,68 @@
+                                  LEM
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+LUNAR LANDING SIMULATION
+
+HAVE YOU FLOWN AN APOLLO/LEM MISSION BEFORE (YES OR NO)? NO
+
+WHICH SYSTEM OF MEASUREMENT DO YOU PREFER?
+ 1=METRIC     0=ENGLISH
+ENTER THE APPROPRIATE NUMBER? 0
+
+
+  YOU ARE ON A LUNAR LANDING MISSION.  AS THE PILOT OF
+THE LUNAR EXCURSION MODULE, YOU WILL BE EXPECTED TO
+GIVE CERTAIN COMMANDS TO THE MODULE NAVIGATION SYSTEM.
+THE ON-BOARD COMPUTER WILL GIVE A RUNNING ACCOUNT
+OF INFORMATION NEEDED TO NAVIGATE THE SHIP.
+
+
+THE ATTITUDE ANGLE CALLED FOR IS DESCRIBED AS FOLLOWS.
++ OR -180 DEGREES IS DIRECTLY AWAY FROM THE MOON
+-90 DEGREES IS ON A TANGENT IN THE DIRECTION OF ORBIT
++90 DEGREES IS ON A TANGENT FROM THE DIRECTION OF ORBIT
+0 (ZERO) DEGREES IS DIRECTLY TOWARD THE MOON
+
+                              -180|+180
+                                  ^
+                           -90 < -+- > +90
+                                  !
+                                  0
+                     <<<< DIRECTION OF ORBIT <<<<
+
+                    ------ SURFACE OF MOON ------
+
+
+ALL ANGLES BETWEEN -180 AND +180 DEGREES ARE ACCEPTED.
+
+1 FUEL UNIT = 1 SEC. AT MAX THRUST
+ANY DISCREPANCIES ARE ACCOUNTED FOR IN THE USE OF FUEL
+FOR AN ATTITUDE CHANGE.
+AVAILABLE ENGINE POWER: 0 (ZERO) AND ANY VALUE BETWEEN
+10 AND 100 PERCENT.
+
+NEGATIVE THRUST OR TIME IS PROHIBITED.
+
+
+INPUT: TIME INTERVAL IN SECONDS ------ (T)
+       PERCENTAGE OF THRUST ---------- (P)
+       ATTITUDE ANGLE IN DEGREES ----- (A)
+
+FOR EXAMPLE:
+T,P,A? 10,65,-60
+TO ABORT THE MISSION AT ANY TIME, ENTER 0,0,0
+
+OUTPUT: TOTAL TIME IN ELAPSED SECONDS
+        HEIGHT IN FEET
+        DISTANCE FROM LANDING SITE IN FEET
+        VERTICAL VELOCITY IN FEET/SECOND
+        HORIZONTAL VELOCITY IN FEET/SECOND
+        FUEL UNITS REMAINING
+
+  0        364800      -19283024      0           5301.638   750 
+T,P,A? 10,65,-60
+  10       364944      -1.92335e+07   28.66155    5245.354   743.5 
+T,P,A? 20,50,0
+  30       366412      -1.9135e+07    118.2137    5244.074   733.5 
+T,P,A? 
+Error on line 585: No more input

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

@@ -0,0 +1,26 @@
+10 PRINT TAB(33);"LETTER"
+20 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+30 PRINT:PRINT:PRINT
+100 PRINT "LETTER GUESSING GAME": PRINT
+210 PRINT "I'LL THINK OF A LETTER OF THE ALPHABET, A TO Z."
+220 PRINT "TRY TO GUESS MY LETTER AND I'LL GIVE YOU CLUES"
+230 PRINT "AS TO HOW CLOSE YOU'RE GETTING TO MY LETTER."
+310 L=65+INT(RND(1)*26)
+320 G=0
+340 PRINT: PRINT "O.K., I HAVE A LETTER.  START GUESSING."
+410 PRINT: PRINT "WHAT IS YOUR GUESS";
+420 G=G+1
+430 INPUT A$: A=ASC(A$): PRINT
+440 IF A=L THEN 500
+450 IF A>L THEN 480
+460 PRINT "TOO LOW.  TRY A HIGHER LETTER.": GOTO 410
+480 PRINT "TOO HIGH.  TRY A LOWER LETTER.": GOTO 410
+500 PRINT: PRINT "YOU GOT IT IN";G;"GUESSES!!"
+504 IF G<=5 THEN 508
+506 PRINT "BUT IT SHOULDN'T TAKE MORE THAN 5 GUESSES!": GOTO 515
+508 PRINT "GOOD JOB !!!!!"
+510 FOR N=1 TO 15: PRINT CHR$(7);: NEXT N
+515 PRINT
+520 PRINT "LET'S PLAN AGAIN....."
+530 GOTO 310
+999 END

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

@@ -0,0 +1,24 @@
+M
+T
+P
+O
+A
+B
+C
+D
+E
+F
+G
+H
+I
+J
+K
+L
+M
+N
+O
+P
+Q
+R
+S
+T

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

@@ -0,0 +1,123 @@
+                                 LETTER
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+
+
+LETTER GUESSING GAME
+
+I'LL THINK OF A LETTER OF THE ALPHABET, A TO Z.
+TRY TO GUESS MY LETTER AND I'LL GIVE YOU CLUES
+AS TO HOW CLOSE YOU'RE GETTING TO MY LETTER.
+
+O.K., I HAVE A LETTER.  START GUESSING.
+
+WHAT IS YOUR GUESS? M
+
+TOO LOW.  TRY A HIGHER LETTER.
+
+WHAT IS YOUR GUESS? T
+
+TOO HIGH.  TRY A LOWER LETTER.
+
+WHAT IS YOUR GUESS? P
+
+TOO HIGH.  TRY A LOWER LETTER.
+
+WHAT IS YOUR GUESS? O
+
+
+YOU GOT IT IN 4 GUESSES!!
+GOOD JOB !!!!!
+
+LET'S PLAN AGAIN.....
+
+O.K., I HAVE A LETTER.  START GUESSING.
+
+WHAT IS YOUR GUESS? A
+
+TOO LOW.  TRY A HIGHER LETTER.
+
+WHAT IS YOUR GUESS? B
+
+TOO LOW.  TRY A HIGHER LETTER.
+
+WHAT IS YOUR GUESS? C
+
+TOO LOW.  TRY A HIGHER LETTER.
+
+WHAT IS YOUR GUESS? D
+
+TOO LOW.  TRY A HIGHER LETTER.
+
+WHAT IS YOUR GUESS? E
+
+TOO LOW.  TRY A HIGHER LETTER.
+
+WHAT IS YOUR GUESS? F
+
+TOO LOW.  TRY A HIGHER LETTER.
+
+WHAT IS YOUR GUESS? G
+
+TOO LOW.  TRY A HIGHER LETTER.
+
+WHAT IS YOUR GUESS? H
+
+TOO LOW.  TRY A HIGHER LETTER.
+
+WHAT IS YOUR GUESS? I
+
+TOO LOW.  TRY A HIGHER LETTER.
+
+WHAT IS YOUR GUESS? J
+
+TOO LOW.  TRY A HIGHER LETTER.
+
+WHAT IS YOUR GUESS? K
+
+TOO LOW.  TRY A HIGHER LETTER.
+
+WHAT IS YOUR GUESS? L
+
+TOO LOW.  TRY A HIGHER LETTER.
+
+WHAT IS YOUR GUESS? M
+
+TOO LOW.  TRY A HIGHER LETTER.
+
+WHAT IS YOUR GUESS? N
+
+TOO LOW.  TRY A HIGHER LETTER.
+
+WHAT IS YOUR GUESS? O
+
+TOO LOW.  TRY A HIGHER LETTER.
+
+WHAT IS YOUR GUESS? P
+
+TOO LOW.  TRY A HIGHER LETTER.
+
+WHAT IS YOUR GUESS? Q
+
+TOO LOW.  TRY A HIGHER LETTER.
+
+WHAT IS YOUR GUESS? R
+
+TOO LOW.  TRY A HIGHER LETTER.
+
+WHAT IS YOUR GUESS? S
+
+
+YOU GOT IT IN 19 GUESSES!!
+BUT IT SHOULDN'T TAKE MORE THAN 5 GUESSES!
+
+LET'S PLAN AGAIN.....
+
+O.K., I HAVE A LETTER.  START GUESSING.
+
+WHAT IS YOUR GUESS? T
+
+TOO HIGH.  TRY A LOWER LETTER.
+
+WHAT IS YOUR GUESS? 
+Error on line 430: No more input

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

@@ -0,0 +1,66 @@
+2 PRINT TAB(34);"LIFE"
+4 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+6 PRINT: PRINT: PRINT
+8 PRINT "ENTER YOUR PATTERN:"
+9 X1=1: Y1=1: X2=24: Y2=70
+10 DIM A(24,70),B$(24)
+20 C=1
+30 INPUT B$(C)
+40 IF B$(C)="DONE" THEN B$(C)="": GOTO 80
+50 IF LEFT$(B$(C),1)="." THEN B$(C)=" "+RIGHT$(B$(C),LEN(B$(C))-1)
+60 C=C+1
+70 GOTO 30
+80 C=C-1: L=0
+90 FOR X=1 TO C-1
+100 IF LEN(B$(X))>L THEN L=LEN(B$(X))
+110 NEXT X
+120 X1=11-C/2
+130 Y1=33-L/2
+140 FOR X=1 TO C
+150 FOR Y=1 TO LEN(B$(X))
+160 IF MID$(B$(X),Y,1)<>" " THEN A(X1+X,Y1+Y)=1:P=P+1
+170 NEXT Y
+180 NEXT X
+200 PRINT:PRINT:PRINT
+210 PRINT "GENERATION:";G,"POPULATION:";P;: IF I9 THEN PRINT "INVALID!";
+215 X3=24:Y3=70:X4=1: Y4=1: P=0
+220 G=G+1
+225 FOR X=1 TO X1-1: PRINT: NEXT X
+230 FOR X=X1 TO X2
+240 PRINT
+250 FOR Y=Y1 TO Y2
+253 IF A(X,Y)=2 THEN A(X,Y)=0:GOTO 270
+256 IF A(X,Y)=3 THEN A(X,Y)=1:GOTO 261
+260 IF A(X,Y)<>1 THEN 270
+261 PRINT TAB(Y);"*";
+262 IF X<X3 THEN X3=X
+264 IF X>X4 THEN X4=X
+266 IF Y<Y3 THEN Y3=Y
+268 IF Y>Y4 THEN Y4=Y
+270 NEXT Y
+290 NEXT X
+295 FOR X=X2+1 TO 24: PRINT: NEXT X
+299 X1=X3: X2=X4: Y1=Y3: Y2=Y4
+301 IF X1<3 THEN X1=3:I9=-1
+303 IF X2>22 THEN X2=22:I9=-1
+305 IF Y1<3 THEN Y1=3:I9=-1
+307 IF Y2>68 THEN Y2=68:I9=-1
+309 P=0
+500 FOR X=X1-1 TO X2+1
+510 FOR Y=Y1-1 TO Y2+1
+520 C=0
+530 FOR I=X-1 TO X+1
+540 FOR J=Y-1 TO Y+1
+550 IF A(I,J)=1 OR A(I,J)=2 THEN C=C+1
+560 NEXT J
+570 NEXT I
+580 IF A(X,Y)=0 THEN 610
+590 IF C<3 OR C>4 THEN A(X,Y)=2: GOTO 600
+595 P=P+1
+600 GOTO 620
+610 IF C=3 THEN A(X,Y)=3:P=P+1
+620 NEXT Y
+630 NEXT X
+635 X1=X1-1:Y1=Y1-1:X2=X2+1:Y2=Y2+1
+640 GOTO 210
+650 END

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

@@ -0,0 +1,4 @@
+ * ** *
+ **  *
+**
+DONE

data/test/integration/tests/basic_computer_games/life.options

@@ -0,0 +1 @@
+max_output_lines: 200

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

@@ -0,0 +1,200 @@
+                                  LIFE
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+
+
+ENTER YOUR PATTERN:
+?  * ** *
+?  **  *
+? **
+? DONE
+
+
+
+GENERATION: 0               POPULATION: 9 
+
+
+
+
+
+
+
+
+
+                               * ** *
+                               **  *
+                              **
+
+
+
+
+
+
+
+
+
+
+
+GENERATION: 1               POPULATION: 10 
+
+
+
+
+
+
+
+
+
+                               * ***
+                                 ***
+                              ***
+
+
+
+
+
+
+
+
+
+
+GENERATION: 2               POPULATION: 11 
+
+
+
+
+
+
+
+
+                                  *
+                                ** *
+                              *    *
+                               ****
+                               *
+
+
+
+
+
+
+
+
+
+GENERATION: 3               POPULATION: 12 
+
+
+
+
+
+
+
+
+                                 **
+                                 * *
+                                   *
+                              *****
+                               * *
+
+
+
+
+
+
+
+
+
+GENERATION: 4               POPULATION: 14 
+
+
+
+
+
+
+
+
+                                 **
+                                 * *
+                               *   *
+                              ** **
+                              ** **
+
+
+
+
+
+
+
+
+
+GENERATION: 5               POPULATION: 15 
+
+
+
+
+
+
+
+
+                                 **
+                                ** *
+                              ** * *
+                                 * *
+                              ** **
+
+
+
+
+
+
+
+
+
+GENERATION: 6               POPULATION: 14 
+
+
+
+
+
+
+
+
+                                ***
+                               *   *
+                               * * **
+                                 * *
+                                ***
+
+
+
+
+
+
+
+
+
+GENERATION: 7               POPULATION: 15 
+
+
+
+
+
+
+
+                                 *
+                                ***
+                               *   **
+                                   **
+                                   **
+                                ***
+                                 *
+
+
+
+
+
+
+
+
+GENERATION: 8               POPULATION: 21 
+Error on line 225: Maximum output lines reached

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

@@ -0,0 +1,83 @@
+2 PRINT TAB(33);"LIFE2"
+4 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+6 PRINT: PRINT: PRINT
+7 DIM N(6,6),K(18),A(16),X(2),Y(2)
+8 DATA 3,102,103,120,130,121,112,111,12
+9 DATA 21,30,1020,1030,1011,1021,1003,1002,1012
+10 FOR M=1 TO 18: READ K(M): NEXT M
+13 DATA -1,0,1,0,0,-1,0,1,-1,-1,1,-1,-1,1,1,1
+14 FOR O1= 1 TO 16: READ A(O1): NEXT O1
+20 GOTO 500
+50 FOR J=1 TO 5
+51 FOR K=1 TO 5
+55 IF N(J,K)>99 THEN GOSUB 200
+60 NEXT K
+65 NEXT J
+90 K=0: M2=0: M3=0
+99 FOR J=0 TO 6: PRINT
+100 FOR K=0 TO 6
+101 IF J<>0 THEN IF J<>6 THEN 105
+102 IF K=6 THEN PRINT 0;: GOTO 125
+103 PRINT K;: GOTO 120
+105 IF K<>0 THEN IF K<>6 THEN 110
+106 IF J=6 THEN PRINT 0: GOTO 126
+107 PRINT J;: GOTO 120
+110 GOSUB 300
+120 NEXT K
+125 NEXT J
+126 RETURN
+200 B=1: IF N(J,K)>999 THEN B=10
+220 FOR O1= 1 TO 15 STEP 2
+230 N(J+A(O1),K+A(O1+1))=N(J+A(O1),K+A(O1+1))+B
+231 NEXT O1
+239 RETURN
+300 IF N(J,K)<3 THEN 399
+305 FOR O1=1 TO 18
+310 IF N(J,K)=K(O1) THEN 350
+315 NEXT O1
+320 GOTO 399
+350 IF O1>9 THEN 360
+351 N(J,K)=100: M2=M2+1: PRINT " * ";
+355 RETURN
+360 N(J,K)=1000: M3=M3+1: PRINT " # ";
+365 RETURN
+399 N(J,K)=0: PRINT "   ";: RETURN
+500 PRINT TAB(10);"U.B. LIFE GAME"
+505 M2=0: M3=0
+510 FOR J=1 TO 5
+511 FOR K=1 TO 5
+515 N(J,K)=0
+516 NEXT K
+517 NEXT J
+519 FOR B=1 TO 2: P1=3: IF B=2 THEN P1=30
+520 PRINT:PRINT "PLAYER";B;" - 3 LIVE PIECES."
+535 FOR K1=1 TO 3: GOSUB 700
+540 N(X(B),Y(B))=P1: NEXT K1
+542 NEXT B
+559 GOSUB 90
+560 PRINT: GOSUB 50
+570 IF M2=0 THEN IF M3=0 THEN 574
+571 IF M3=0 THEN B=1: GOTO 575
+572 IF M2=0 THEN B=2: GOTO 575
+573 GOTO 580
+574 PRINT: PRINT "A DRAW":GOTO 800
+575 PRINT: PRINT "PLAYER";B;"IS THE WINNER":GOTO 800
+580 FOR B=1 TO 2: PRINT: PRINT: PRINT "PLAYER";B;: GOSUB 700
+581 IF B=99 THEN 560
+582 NEXT B
+586 N(X(1),Y(1))=100: N(X(2),Y(2))=1000
+596 GOTO 560
+700 PRINT "X,Y":PRINT"XXXXXX";CHR$(13);"$$$$$$";CHR$(13);"&&&&&&";
+701 PRINT CHR$(13);: INPUT Y(B),X(B)
+705 IF X(B)<=5 THEN IF X(B)>0 THEN 708
+706 GOTO 750
+708 IF Y(B)<=5 THEN IF Y(B)>0 THEN 715
+710 GOTO 750
+715 IF N(X(B),Y(B))<>0 THEN 750
+720 IF B=1 THEN RETURN
+725 IF X(1)=X(2) THEN IF Y(1)=Y(2) THEN 740
+730 RETURN
+740 PRINT "SAME COORD.  SET TO 0"
+741 N(X(B)+1,Y(B)+1)=0: B=99: RETURN
+750 PRINT "ILLEGAL COORDS. RETYPE": GOTO 700
+999 END

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

@@ -0,0 +1,17 @@
+1,1
+2,2
+3,3
+2,3
+3,4
+4,5
+3,1
+5,5
+5,5
+3,1
+4,2
+3,2
+1,1
+5,1
+5,1
+4,1
+4,5