basic101 0.1.0

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

@@ -0,0 +1,54 @@
+                                 WAR
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+
+
+THIS IS THE CARD GAME OF WAR.  EACH CARD IS GIVEN BY SUIT-#
+AS S-7 FOR SPADE 7.  DO YOU WANT DIRECTIONS? YES
+THE COMPUTER GIVES YOU AND IT A 'CARD'.  THE HIGHER CARD
+(NUMERICALLY) WINS.  THE GAME ENDS WHEN YOU CHOOSE NOT TO
+CONTINUE OR WHEN YOU HAVE FINISHED THE PACK.
+
+
+
+YOU: S-9      COMPUTER: H-J
+THE COMPUTER WINS!!! YOU HAVE 0 AND THE COMPUTER HAS 1 
+DO YOU WANT TO CONTINUE? Y
+YES OR NO, PLEASE.  DO YOU WANT TO CONTINUE? YES
+
+YOU: D-9      COMPUTER: C-7
+YOU WIN. YOU HAVE 1 AND THE COMPUTER HAS 1 
+DO YOU WANT TO CONTINUE? YES
+
+YOU: H-10     COMPUTER: C-K
+THE COMPUTER WINS!!! YOU HAVE 1 AND THE COMPUTER HAS 2 
+DO YOU WANT TO CONTINUE? YES
+
+YOU: C-A      COMPUTER: D-6
+YOU WIN. YOU HAVE 2 AND THE COMPUTER HAS 2 
+DO YOU WANT TO CONTINUE? YES
+
+YOU: H-Q      COMPUTER: D-8
+YOU WIN. YOU HAVE 3 AND THE COMPUTER HAS 2 
+DO YOU WANT TO CONTINUE? YES
+
+YOU: H-9      COMPUTER: S-A
+THE COMPUTER WINS!!! YOU HAVE 3 AND THE COMPUTER HAS 3 
+DO YOU WANT TO CONTINUE? YES
+
+YOU: D-2      COMPUTER: S-3
+THE COMPUTER WINS!!! YOU HAVE 3 AND THE COMPUTER HAS 4 
+DO YOU WANT TO CONTINUE? YES
+
+YOU: H-2      COMPUTER: D-Q
+THE COMPUTER WINS!!! YOU HAVE 3 AND THE COMPUTER HAS 5 
+DO YOU WANT TO CONTINUE? YES
+
+YOU: S-Q      COMPUTER: H-K
+THE COMPUTER WINS!!! YOU HAVE 3 AND THE COMPUTER HAS 6 
+DO YOU WANT TO CONTINUE? YES
+
+YOU: D-7      COMPUTER: C-3
+YOU WIN. YOU HAVE 4 AND THE COMPUTER HAS 6 
+DO YOU WANT TO CONTINUE? 
+Error on line 560: No more input

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

@@ -0,0 +1,150 @@
+10 PRINT TAB(32);"WEEKDAY"
+20 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+30 PRINT:PRINT:PRINT
+100 PRINT "WEEKDAY IS A COMPUTER DEMONSTRATION THAT"
+110 PRINT"GIVES FACTS ABOUT A DATE OF INTEREST TO YOU."
+120 PRINT
+130 PRINT "ENTER TODAY'S DATE IN THE FORM: 3,24,1979  ";
+140 INPUT M1,D1,Y1
+150 REM THIS PROGRAM DETERMINES THE DAY OF THE WEEK
+160 REM  FOR A DATE AFTER 1582
+170 DEF FNA(A)=INT(A/4)
+180 DIM T(12)
+190 DEF FNB(A)=INT(A/7)
+200 REM SPACE OUTPUT AND READ IN INITIAL VALUES FOR MONTHS.
+210 FOR I= 1 TO 12
+220 READ T(I)
+230 NEXT I
+240 PRINT"ENTER DAY OF BIRTH (OR OTHER DAY OF INTEREST)";
+250 INPUT M,D,Y
+260 PRINT
+270 LET I1 = INT((Y-1500)/100)
+280 REM TEST FOR DATE BEFORE CURRENT CALENDAR.
+290 IF Y-1582 <0 THEN 1300
+300 LET A = I1*5+(I1+3)/4
+310 LET I2=INT(A-FNB(A)*7)
+320 LET Y2=INT(Y/100)
+330 LET Y3 =INT(Y-Y2*100)
+340 LET A =Y3/4+Y3+D+T(M)+I2
+350 LET B=INT(A-FNB(A)*7)+1
+360 IF M > 2 THEN 470
+370 IF Y3 = 0 THEN 440
+380 LET T1=INT(Y-FNA(Y)*4)
+390 IF T1 <> 0 THEN 470
+400 IF B<>0 THEN 420
+410 LET B=6
+420 LET B = B-1
+430 GOTO 470
+440 LET A = I1-1
+450 LET T1=INT(A-FNA(A)*4)
+460 IF T1 = 0 THEN 400
+470 IF B <>0 THEN 490
+480 LET B = 7
+490 IF (Y1*12+M1)*31+D1<(Y*12+M)*31+D THEN 550
+500 IF (Y1*12+M1)*31+D1=(Y*12+M)*31+D THEN 530
+510 PRINT M;"/";D;"/";Y;" WAS A ";
+520 GOTO 570
+530 PRINT M;"/";D;"/";Y;" IS A ";
+540 GOTO 570
+550 PRINT M;"/";D;"/";Y;" WILL BE A ";
+560 REM PRINT THE DAY OF THE WEEK THE DATE FALLS ON.
+570 IF B <>1 THEN 590
+580 PRINT "SUNDAY."
+590 IF B<>2 THEN 610
+600 PRINT "MONDAY."
+610 IF B<>3 THEN 630
+620 PRINT "TUESDAY."
+630 IF B<>4 THEN 650
+640 PRINT "WEDNESDAY."
+650 IF B<>5 THEN 670
+660 PRINT "THURSDAY."
+670 IF B<>6 THEN 690
+680 GOTO 1250
+690 IF B<>7 THEN 710
+700 PRINT "SATURDAY."
+710 IF (Y1*12+M1)*31+D1=(Y*12+M)*31+D THEN 1120
+720 LET I5=Y1-Y
+730 PRINT
+740 LET I6=M1-M
+750 LET I7=D1-D
+760 IF I7>=0 THEN 790
+770 LET I6= I6-1
+780 LET I7=I7+30
+790 IF I6>=0 THEN 820
+800 LET I5=I5-1
+810 LET I6=I6+12
+820 IF I5<0 THEN 1310
+830 IF I7 <> 0 THEN 850
+835 IF I6 <> 0 THEN 850
+840 PRINT"***HAPPY BIRTHDAY***"
+850 PRINT " "," ","YEARS","MONTHS","DAYS"
+855 PRINT " "," ","-----","------","----"
+860 PRINT "YOUR AGE (IF BIRTHDATE) ",I5,I6,I7
+870 LET A8 = (I5*365)+(I6*30)+I7+INT(I6/2)
+880 LET K5 = I5
+890 LET K6 = I6
+900 LET K7 = I7
+910 REM CALCULATE RETIREMENT DATE.
+920 LET E = Y+65
+930 REM CALCULATE TIME SPENT IN THE FOLLOWING FUNCTIONS.
+940 LET F = .35
+950 PRINT "YOU HAVE SLEPT ",
+960 GOSUB 1370
+970 LET F = .17
+980 PRINT "YOU HAVE EATEN ",
+990 GOSUB 1370
+1000 LET F = .23
+1010 IF K5 > 3 THEN 1040
+1020 PRINT "YOU HAVE PLAYED",
+1030 GOTO 1080
+1040 IF K5 > 9 THEN 1070
+1050 PRINT "YOU HAVE PLAYED/STUDIED",
+1060 GOTO  1080
+1070 PRINT "YOU HAVE WORKED/PLAYED",
+1080 GOSUB 1370
+1085 GOTO 1530
+1090 PRINT "YOU HAVE RELAXED ",K5,K6,K7
+1100 PRINT 
+1110 PRINT TAB(16);"***  YOU MAY RETIRE IN";E;" ***"
+1120 PRINT
+1140 PRINT
+1200 PRINT
+1210 PRINT
+1220 PRINT
+1230 PRINT
+1240 END
+1250 IF D=13 THEN 1280
+1260 PRINT "FRIDAY."
+1270 GOTO 710
+1280 PRINT "FRIDAY THE THIRTEENTH---BEWARE!"
+1290 GOTO 710
+1300 PRINT "NOT PREPARED TO GIVE DAY OF WEEK PRIOR TO MDLXXXII. "
+1310 GOTO 1140
+1320 REM TABLE OF VALUES FOR THE MONTHS TO BE USED IN CALCULATIONS.
+1330 DATA 0, 3, 3, 6, 1, 4, 6, 2, 5, 0, 3, 5
+1340 REM THIS IS THE CURRENT DATE USED IN THE CALCULATIONS.
+1350 REM THIS IS THE DATE TO BE CALCULATED ON.
+1360 REM CALCULATE TIME IN YEARS, MONTHS, AND DAYS
+1370 LET K1=INT(F*A8)
+1380 LET I5 = INT(K1/365)
+1390 LET K1 = K1- (I5*365)
+1400 LET I6 = INT(K1/30)
+1410 LET I7 = K1 -(I6*30)
+1420 LET K5 = K5-I5
+1430 LET K6 =K6-I6
+1440 LET K7 = K7-I7
+1450 IF K7>=0 THEN 1480
+1460 LET K7=K7+30
+1470 LET K6=K6-1
+1480 IF K6>0 THEN 1510
+1490 LET K6=K6+12
+1500 LET K5=K5-1
+1510 PRINT I5,I6,I7
+1520 RETURN
+1530 IF K6=12 THEN 1550
+1540 GOTO 1090
+1550 LET K5=K5+1
+1560 LET K6=0
+1570 GOTO 1090
+1580 REM
+1590 END

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

@@ -0,0 +1,2 @@
+3,1,2014
+1,1,1961

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

@@ -0,0 +1,28 @@
+                                WEEKDAY
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+
+
+WEEKDAY IS A COMPUTER DEMONSTRATION THAT
+GIVES FACTS ABOUT A DATE OF INTEREST TO YOU.
+
+ENTER TODAY'S DATE IN THE FORM: 3,24,1979  ? 3,1,2014
+ENTER DAY OF BIRTH (OR OTHER DAY OF INTEREST)? 1,1,1961
+
+ 1 / 1 / 1961  WAS A SUNDAY.
+
+                            YEARS         MONTHS        DAYS
+                            -----         ------        ----
+YOUR AGE (IF BIRTHDATE)      53            2             0 
+YOU HAVE SLEPT               18            7             12 
+YOU HAVE EATEN               9             0             14 
+YOU HAVE WORKED/PLAYED       12            2             23 
+YOU HAVE RELAXED             13            3             11 
+
+                ***  YOU MAY RETIRE IN 2026  ***
+
+
+
+
+
+

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

@@ -0,0 +1,65 @@
+2 PRINT TAB(33);"WORD"
+3 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+4 PRINT: PRINT: PRINT
+5 DIM S(7),A(7),L(7),D(7),P(7)
+10 PRINT "I AM THINKING OF A WORD -- YOU GUESS IT.  I WILL GIVE YOU"
+15 PRINT "CLUES TO HELP YOU GET IT.  GOOD LUCK!!": PRINT: PRINT
+20 REM
+30 PRINT: PRINT: PRINT "YOU ARE STARTING A NEW GAME..."
+35 RESTORE
+40 READ N
+50 C=INT(RND(1)*N+1)
+60 FOR I=1 TO C
+70 READ S$
+80 NEXT I
+90 G=0
+95 S(0)=LEN(S$)
+100 FOR I=1 TO LEN(S$): S(I)=ASC(MID$(S$,I,1)): NEXT I
+110 FOR I=1 TO 5
+120 A(I)=45
+130 NEXT I
+140 FOR J=1 TO 5
+144 P(J)=0
+146 NEXT J
+150 PRINT "GUESS A FIVE LETTER WORD";
+160 INPUT L$
+170 G=G+1
+172 IF S$=G$ THEN 500
+173 FOR I=1 TO 7: P(I)=0: NEXT I
+175 L(0)=LEN(L$)
+180 FOR I=1 TO LEN(L$): L(I)=ASC(MID$(L$,I,1)): NEXT I
+190 IF L(1)=63 THEN 300
+200 IF L(0)<>5 THEN 400
+205 M=0: Q=1
+210 FOR I=1 TO 5
+220 FOR J=1 TO 5
+230 IF S(I)<>L(J) THEN 260
+231 P(Q)=L(J)
+232 Q=Q+1
+233 IF I<>J THEN 250
+240 A(J)=L(J)
+250 M=M+1
+260 NEXT J
+265 NEXT I
+270 A(0)=5
+272 P(0)=M
+275 A$="": FOR I=1 TO A(0): A$=A$+CHR$(A(I)): NEXT I
+277 P$="": FOR I=1 TO P(0): P$=P$+CHR$(P(I)): NEXT I
+280 PRINT "THERE WERE";M;"MATCHES AND THE COMMON LETTERS WERE...";P$
+285 PRINT "FROM THE EXACT LETTER MATCHES, YOU KNOW................";A$
+286 IF A$=S$ THEN 500
+287 IF M>1 THEN 289
+288 PRINT: PRINT "IF YOU GIVE UP, TYPE '?' FOR YOUR NEXT GUESS."
+289 PRINT
+290 GOTO 150
+300 S$="": FOR I=1 TO 7: S$=S$+CHR$(S(I)): NEXT I
+310 PRINT "THE SECRET WORD IS ";S$: PRINT
+320 GOTO 30
+400 PRINT "YOU MUST GUESS A 5 LETTER WORD.  START AGAIN."
+410 PRINT: G=G-1: GOTO 150
+500 PRINT "YOU HAVE GUESSED THE WORD.  IT TOOK";G;"GUESSES!": PRINT
+510 INPUT "WANT TO PLAY AGAIN";Q$
+520 IF Q$="YES" THEN 30
+530 DATA 12,"DINKY","SMOKE","WATER","GRASS","TRAIN","MIGHT","FIRST"
+540 DATA "CANDY","CHAMP","WOULD","CLUMP","DOPEY"
+999 END

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

@@ -0,0 +1,6 @@
+ABCDE
+FGHIJ
+KLMNO
+PQRST
+FIRST
+NO

data/test/integration/tests/fast/abs.bas

@@ -0,0 +1,5 @@
+20 PRINT ABS(-1.5)
+20 PRINT ABS(-1)
+20 PRINT ABS(0)
+20 PRINT ABS(1)
+20 PRINT ABS(1.5)

data/test/integration/tests/fast/abs.output

@@ -0,0 +1,5 @@
+ 1.5 
+ 1 
+ 0 
+ 1 
+ 1.5 

data/test/integration/tests/fast/add.bas

@@ -0,0 +1,5 @@
+10 PRINT 1 + 2
+20 PRINT 1.0 + 2
+30 PRINT 1 + 2.0
+40 PRINT 1.1 + 2.2
+50 PRINT 1 + 2 + 3 + 4 + 5 + 6 + 7 + 8 + 9

data/test/integration/tests/fast/add.output

@@ -0,0 +1,5 @@
+ 3 
+ 3 
+ 3 
+ 3.3 
+ 45 

data/test/integration/tests/fast/and.bas

@@ -0,0 +1,5 @@
+10 PRINT 0 AND 0
+20 PRINT 0 AND 1
+30 PRINT 1 AND 0
+40 PRINT 1 AND 1
+50 PRINT 3.1 AND -1.5

data/test/integration/tests/fast/and.output

@@ -0,0 +1,5 @@
+ 0 
+ 0 
+ 0 
+ 1 
+ 3 

data/test/integration/tests/fast/array.bas

@@ -0,0 +1,11 @@
+10 PRINT A(0)
+20 LET A(0) = 100
+30 LET A(10) = 101
+40 PRINT A(0), A(10)
+50 DIM A$(2, 4)
+60 PRINT "'"; A$(0, 0); "'"
+70 LET A$(0, 0) = "0, 0"
+80 LET A$(2, 4) = "2, 4"
+90 PRINT "'"; A$(0, 0); "'"
+100 PRINT "'"; A$(2, 4); "'"
+110 PRINT "'"; B$(9); "'"

data/test/integration/tests/fast/array.output

@@ -0,0 +1,6 @@
+ 0 
+ 100           101 
+''
+'0, 0'
+'2, 4'
+''

data/test/integration/tests/fast/asc.bas

@@ -0,0 +1 @@
+10 PRINT ASC("A")

data/test/integration/tests/fast/asc.output

@@ -0,0 +1 @@
+ 65 

data/test/integration/tests/fast/chr.bas

@@ -0,0 +1 @@
+10 PRINT CHR$(65)

data/test/integration/tests/fast/chr.output

@@ -0,0 +1 @@
+A

data/test/integration/tests/fast/cos.bas

@@ -0,0 +1 @@
+10 PRINT COS(3.14159265 / 8)

data/test/integration/tests/fast/cos.output

@@ -0,0 +1 @@
+ 0.9238795 

data/test/integration/tests/fast/def_fn.bas

@@ -0,0 +1,9 @@
+40 PRINT "arguments"
+50 I = 10
+60 DEF FNB(I) = I * 2
+70 PRINT FNB(3)
+80 PRINT I
+90 PRINT "nested"
+100 DEF FNC(I) = I * 2
+110 DEF FND(I) = I + 1
+120 PRINT FND(FNC(FNC(2)))

data/test/integration/tests/fast/def_fn.output

@@ -0,0 +1,5 @@
+arguments
+ 6 
+ 10 
+nested
+ 9 

data/test/integration/tests/fast/divide.bas

@@ -0,0 +1,5 @@
+10 PRINT 1 / 2
+20 PRINT 1.0 / 2
+30 PRINT 1 / 2.0
+40 PRINT 1.0 / 2.0
+50 PRINT 1 / 2 / 3

data/test/integration/tests/fast/divide.output

@@ -0,0 +1,5 @@
+ 0.5 
+ 0.5 
+ 0.5 
+ 0.5 
+ 0.1666667 

data/test/integration/tests/fast/end.bas

@@ -0,0 +1,3 @@
+10 PRINT "OK"
+20 END
+30 PRINT "FAIL"

data/test/integration/tests/fast/end.output

@@ -0,0 +1 @@
+OK

data/test/integration/tests/fast/eq.bas

@@ -0,0 +1,3 @@
+10 PRINT -1 = 0
+20 PRINT 0 = 0
+30 PRINT 1 = 0

data/test/integration/tests/fast/eq.output

@@ -0,0 +1,3 @@
+ 0 
+-1 
+ 0 

data/test/integration/tests/fast/exp.bas

@@ -0,0 +1,2 @@
+10 PRINT EXP(1)
+20 PRINT EXP(2)

data/test/integration/tests/fast/exp.output

@@ -0,0 +1,2 @@
+ 2.718282 
+ 7.389056 

data/test/integration/tests/fast/float.bas

@@ -0,0 +1,3 @@
+10 PRINT 3.14159
+20 S2 = 1.414
+30 PRINT S2

data/test/integration/tests/fast/float.output

@@ -0,0 +1,2 @@
+ 3.14159 
+ 1.414 

data/test/integration/tests/fast/for_next.bas

@@ -0,0 +1,61 @@
+10 PRINT "NORMAL LOOP"
+20 FOR I = 1 TO 2
+30 PRINT I
+40 NEXT I
+45 PRINT I
+50 PRINT "BACKWARDS"
+60 FOR I = 2 TO 1 STEP -1
+70 PRINT I
+80 NEXT I
+85 PRINT I
+90 PRINT "START = END"
+100 FOR I = 1 TO 1
+110 PRINT I
+120 NEXT I
+125 PRINT I
+130 PRINT "START = END, BACKWARDS"
+140 FOR I = 1 TO 1 STEP -1
+150 PRINT I
+160 NEXT I
+165 PRINT I
+170 PRINT "ALREADY DONE"
+180 FOR I = 1 TO 0
+190 PRINT I
+200 NEXT I
+205 PRINT I
+210 PRINT "ALREADY DONE, BACKWARDS"
+220 FOR I = 0 TO 1 STEP -1
+230 PRINT I
+240 NEXT I
+250 PRINT I
+260 PRINT "NESTED"
+270 FOR I = 0 TO 1
+280 FOR J = 0 TO 1
+290 PRINT I, J
+300 NEXT J
+310 NEXT I
+320 PRINT "FLOAT"
+330 FOR I = 0 TO 1 STEP 0.2
+340 PRINT I
+350 NEXT I
+360 PRINT "BARE NEXT"
+360 FOR I = 1 TO 2
+370 PRINT I
+380 NEXT
+390 PRINT "NESTED, SHARED NEXT"
+400 FOR I = 0 TO 1
+410 FOR J = 0 TO 1
+420 PRINT I, J
+430 NEXT J, I
+440 PRINT "OUT OF ORDER"
+450 GOTO 480
+460 NEXT I
+470 GOTO 510
+480 FOR I = 1 TO 2
+490 PRINT I
+500 GOTO 460
+510 PRINT "RESTART"
+520 FOR I = 10 TO 20
+530 FOR I = 1 TO 2
+540 PRINT I
+550 NEXT I

data/test/integration/tests/fast/for_next.output

@@ -0,0 +1,46 @@
+NORMAL LOOP
+ 1 
+ 2 
+ 3 
+BACKWARDS
+ 2 
+ 1 
+ 0 
+START = END
+ 1 
+ 2 
+START = END, BACKWARDS
+ 1 
+ 0 
+ALREADY DONE
+ 1 
+ 2 
+ALREADY DONE, BACKWARDS
+ 0 
+-1 
+NESTED
+ 0             0 
+ 0             1 
+ 1             0 
+ 1             1 
+FLOAT
+ 0 
+ 0.2 
+ 0.4 
+ 0.6 
+ 0.8 
+ 1 
+BARE NEXT
+ 1 
+ 2 
+NESTED, SHARED NEXT
+ 0             0 
+ 0             1 
+ 1             0 
+ 1             1 
+OUT OF ORDER
+ 1 
+ 2 
+RESTART
+ 1 
+ 2 

data/test/integration/tests/fast/ge.bas

@@ -0,0 +1,3 @@
+10 PRINT -1 >= 0
+20 PRINT 0 >= 0
+30 PRINT 1 >= 0

data/test/integration/tests/fast/ge.output

@@ -0,0 +1,3 @@
+ 0 
+-1 
+-1 

data/test/integration/tests/fast/gosub_return.bas

@@ -0,0 +1,10 @@
+10 FOR I = 1 TO 2
+20 GOSUB 100
+30 NEXT I
+40 END
+100 FOR J = 1 TO 2
+110 GOSUB 200
+120 NEXT J
+130 RETURN
+200 PRINT I, J
+210 RETURN

data/test/integration/tests/fast/gosub_return.output

@@ -0,0 +1,4 @@
+ 1             1 
+ 1             2 
+ 2             1 
+ 2             2 

data/test/integration/tests/fast/goto.bas

@@ -0,0 +1,3 @@
+10 GOTO 30
+20 PRINT "LINE 20"
+30 PRINT "LINE 30"

data/test/integration/tests/fast/goto.output

@@ -0,0 +1 @@
+LINE 30

data/test/integration/tests/fast/gt.bas

@@ -0,0 +1,3 @@
+10 PRINT -1 > 0
+20 PRINT 0 > 0
+30 PRINT 1 > 0

data/test/integration/tests/fast/gt.output

@@ -0,0 +1,3 @@
+ 0 
+ 0 
+-1