basic101 0.1.0

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

@@ -0,0 +1,213 @@
+                                CALENDAR
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+
+
+
+
+
+
+
+
+
+
+** 0   ****************** JANUARY ****************** 365 **
+
+     S       M       T       W       T       F       S
+
+***********************************************************
+
+     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     
+
+** 31  ****************** FEBRUARY****************** 334 **
+
+     S       M       T       W       T       F       S
+
+***********************************************************
+
+                     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     
+
+** 59  ******************  MARCH  ****************** 306 **
+
+     S       M       T       W       T       F       S
+
+***********************************************************
+
+                     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     
+
+** 90  ******************  APRIL  ****************** 275 **
+
+     S       M       T       W       T       F       S
+
+***********************************************************
+
+                                             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     
+
+** 120 ******************   MAY   ****************** 245 **
+
+     S       M       T       W       T       F       S
+
+***********************************************************
+
+     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     
+
+** 151 ******************   JUNE  ****************** 214 **
+
+     S       M       T       W       T       F       S
+
+***********************************************************
+
+                             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     
+
+** 181 ******************   JULY  ****************** 184 **
+
+     S       M       T       W       T       F       S
+
+***********************************************************
+
+                                             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     
+
+** 212 ******************  AUGUST ****************** 153 **
+
+     S       M       T       W       T       F       S
+
+***********************************************************
+
+             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     
+
+** 243 ******************SEPTEMBER****************** 122 **
+
+     S       M       T       W       T       F       S
+
+***********************************************************
+
+                                     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     
+
+** 273 ****************** OCTOBER ****************** 92 **
+
+     S       M       T       W       T       F       S
+
+***********************************************************
+
+                                                     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     
+
+** 304 ****************** NOVEMBER****************** 61 **
+
+     S       M       T       W       T       F       S
+
+***********************************************************
+
+                     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     
+
+** 334 ****************** DECEMBER****************** 31 **
+
+     S       M       T       W       T       F       S
+
+***********************************************************
+
+                                     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     
+
+
+
+
+

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

@@ -0,0 +1,51 @@
+2 PRINT TAB(33);"CHANGE"
+4 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+5 PRINT:PRINT:PRINT
+6 PRINT "I, YOUR FRIENDLY MICROCOMPUTER, WILL DETERMINE"
+8 PRINT "THE CORRECT CHANGE FOR ITEMS COSTING UP TO $100."
+9 PRINT:PRINT
+10 PRINT "COST OF ITEM";:INPUT A:PRINT "AMOUNT OF PAYMENT";:INPUT P
+20 C=P-A:M=C:IF C<>0 THEN 90
+25 PRINT "CORRECT AMOUNT, THANK YOU."
+30 GOTO 400
+90 IF C>0 THEN 120
+95 PRINT "SORRY, YOU HAVE SHORT-CHANGED ME $";A-P
+100 GOTO 10
+120 PRINT "YOUR CHANGE, $";C
+130 D=INT(C/10)
+140 IF D=0 THEN 155
+150 PRINT D;"TEN DOLLAR BILL(S)"
+155 C=M-(D*10)
+160 E=INT(C/5)
+170 IF E=0 THEN 185
+180 PRINT E;"FIVE DOLLARS BILL(S)"
+185 C=M-(D*10+E*5)
+190 F=INT(C)
+200 IF F=0 THEN 215
+210 PRINT F;"ONE DOLLAR BILL(S)"
+215 C=M-(D*10+E*5+F)
+220 C=C*100
+225 N=C
+230 G=INT(C/50)
+240 IF G=0 THEN 255
+250 PRINT G;"ONE HALF DOLLAR(S)"
+255 C=N-(G*50)
+260 H=INT(C/25)
+270 IF H=0 THEN 285
+280 PRINT H;"QUARTER(S)"
+285 C=N-(G*50+H*25)
+290 I=INT(C/10)
+300 IF I=0 THEN 315
+310 PRINT I;"DIME(S)"
+315 C=N-(G*50+H*25+I*10)
+320 J=INT(C/5)
+330 IF J=0 THEN 345
+340 PRINT J;"NICKEL(S)"
+345 C=N-(G*50+H*25+I*10+J*5)
+350 K=INT(C+.5)
+360 IF K=0 THEN 380
+370 PRINT K;"PENNY(S)"
+380 PRINT "THANK YOU, COME AGAIN."
+390 PRINT:PRINT
+400 GOTO 10
+410 END

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

@@ -0,0 +1,4 @@
+99.99
+299.99
+1.45
+7.23

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

@@ -0,0 +1,28 @@
+                                 CHANGE
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+
+
+I, YOUR FRIENDLY MICROCOMPUTER, WILL DETERMINE
+THE CORRECT CHANGE FOR ITEMS COSTING UP TO $100.
+
+
+COST OF ITEM? 99.99
+AMOUNT OF PAYMENT? 299.99
+YOUR CHANGE, $ 200 
+ 20 TEN DOLLAR BILL(S)
+THANK YOU, COME AGAIN.
+
+
+COST OF ITEM? 1.45
+AMOUNT OF PAYMENT? 7.23
+YOUR CHANGE, $ 5.78 
+ 1 FIVE DOLLARS BILL(S)
+ 1 ONE HALF DOLLAR(S)
+ 1 QUARTER(S)
+ 3 PENNY(S)
+THANK YOU, COME AGAIN.
+
+
+COST OF ITEM? 
+Error on line 10: No more input

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

@@ -0,0 +1,82 @@
+5 PRINT TAB(32);"CHECKERS"
+10 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+15 PRINT:PRINT:PRINT
+20 PRINT "THIS IS THE GAME OF CHECKERS.  THE COMPUTER IS X,"
+25 PRINT "AND YOU ARE O.  THE COMPUTER WILL MOVE FIRST."
+30 PRINT "SQUARES ARE REFERRED TO BY A COORDINATE SYSTEM."
+35 PRINT "(0,0) IS THE LOWER LEFT CORNER"
+40 PRINT "(0,7) IS THE UPPER LEFT CORNER"
+45 PRINT "(7,0) IS THE LOWER RIGHT CORNER"
+50 PRINT "(7,7) IS THE UPPER RIGHT CORNER"
+55 PRINT "THE COMPUTER WILL TYPE '+TO' WHEN YOU HAVE ANOTHER"
+60 PRINT "JUMP.  TYPE TWO NEGATIVE NUMBERS IF YOU CANNOT JUMP."
+65 PRINT:PRINT:PRINT
+80 DIM R(4),S(7,7):G=-1:R(0)=-99
+90 DATA 1,0,1,0,0,0,-1,0,0,1,0,0,0,-1,0,-1,15
+120 FOR X=0 TO 7:FOR Y=0 TO 7:READ J:IF J=15 THEN 180
+160 S(X,Y)=J:GOTO 200
+180 RESTORE:READ S(X,Y)
+200 NEXT Y,X
+230 FOR X=0 TO 7:FOR Y=0 TO 7:IF S(X,Y)>-1 THEN 350
+310 IF S(X,Y)=-1 THEN FOR A=-1 TO 1 STEP 2:B=G:GOSUB 650:NEXT A
+330 IF S(X,Y)=-2 THEN FOR A=-1 TO 1 STEP 2:FOR B=-1 TO 1 STEP 2:GOSUB 650:NEXT B,A
+350 NEXT Y,X:GOTO 1140
+650 U=X+A:V=Y+B:IF U<0 OR U>7 OR V<0 OR V>7 THEN 870
+740 IF S(U,V)=0 THEN GOSUB 910:GOTO 870
+770 IF S(U,V)<0 THEN 870
+790 U=U+A:V=V+B:IF U<0 OR V<0 OR U>7 OR V>7 THEN 870
+850 IF S(U,V)=0 THEN GOSUB 910
+870 RETURN
+910 IF V=0 AND S(X,Y)=-1 THEN Q=Q+2
+920 IF ABS(Y-V)=2 THEN Q=Q+5
+960 IF Y=7 THEN Q=Q-2
+980 IF U=0 OR U=7 THEN Q=Q+1
+1030 FOR C=-1 TO 1 STEP 2:IF U+C<0 OR U+C>7 OR V+G<0 THEN 1080
+1035 IF S(U+C,V+G)<0 THEN Q=Q+1:GOTO 1080
+1040 IF U-C<0 OR U-C>7 OR V-G>7 THEN 1080
+1045 IF S(U+C,V+G)>0 AND(S(U-C,V-G)=0 OR(U-C=X AND V-G=Y))THEN Q=Q-2
+1080 NEXT C:IF Q>R(0)THEN R(0)=Q:R(1)=X:R(2)=Y:R(3)=U:R(4)=V
+1100 Q=0:RETURN
+1140 IF R(0)=-99 THEN 1880
+1230 PRINT CHR$(30)"FROM"R(1);R(2)"TO"R(3);R(4);:R(0)=-99
+1240 IF R(4)=0 THEN S(R(3),R(4))=-2:GOTO 1420
+1250 S(R(3),R(4))=S(R(1),R(2))
+1310 S(R(1),R(2))=0:IF ABS(R(1)-R(3))<>2 THEN 1420
+1330 S((R(1)+R(3))/2,(R(2)+R(4))/2)=0
+1340 X=R(3):Y=R(4):IF S(X,Y)=-1 THEN B=-2:FOR A=-2 TO 2 STEP 4:GOSUB 1370
+1350 IF S(X,Y)=-2 THEN FOR A=-2 TO 2 STEP 4:FOR B=-2 TO 2 STEP 4:GOSUB 1370:NEXT B
+1360 NEXT A:IF R(0)<>-99 THEN PRINT"TO"R(3);R(4);:R(0)=-99:GOTO 1240
+1365 GOTO 1420
+1370 U=X+A:V=Y+B:IF U<0 OR U>7 OR V<0 OR V>7 THEN 1400
+1380 IF S(U,V)=0 AND S(X+A/2,Y+B/2)>0 THEN GOSUB 910
+1400 RETURN
+1420 PRINT:PRINT:PRINT:FOR Y=7 TO 0 STEP-1:FOR X=0 TO 7:I=5*X:PRINT TAB(I);
+1430 IF S(X,Y)=0 THEN PRINT".";
+1470 IF S(X,Y)=1 THEN PRINT"O";
+1490 IF S(X,Y)=-1 THEN PRINT"X";
+1510 IF S(X,Y)=-2 THEN PRINT"X*";
+1530 IF S(X,Y)=2 THEN PRINT"O*";
+1550 NEXT X:PRINT" ":PRINT:NEXT Y:PRINT
+1552 FOR L=0 TO 7
+1554 FOR M=0 TO 7
+1556 IF S(L,M)=1 OR S(L,M)=2 THEN Z=1
+1558 IF S(L,M)=-1 OR S(L,M)=-2 THEN T=1
+1560 NEXT M
+1562 NEXT L
+1564 IF Z<>1 THEN 1885
+1566 IF T<>1 THEN 1880
+1570 Z=0: T=0
+1590 INPUT "FROM";E,H:X=E:Y=H:IF S(X,Y)<=0 THEN 1590
+1670 INPUT "TO";A,B:X=A:Y=B
+1680 IF S(X,Y)=0 AND ABS(A-E)<=2 AND ABS(A-E)=ABS(B-H)THEN 1700
+1690 PRINT CHR$(7)CHR$(11);:GOTO 1670
+1700 I=46
+1750 S(A,B)=S(E,H):S(E,H)=0:IF ABS(E-A)<>2 THEN 1810
+1800 S((E+A)/2,(H+B)/2)=0
+1802 INPUT "+TO";A1,B1:IF A1<0 THEN 1810
+1804 IF S(A1,B1)<>0 OR ABS(A1-A)<>2 OR ABS(B1-B)<>2 THEN 1802
+1806 E=A:H=B:A=A1:B=B1:I=I+15:GOTO 1750
+1810 IF B=7 THEN S(A,B)=2
+1830 GOTO 230
+1880 PRINT: PRINT "YOU WIN.": END
+1885 PRINT: PRINT "I WIN.": END

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

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