basic101 0.1.0

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

@@ -0,0 +1,83 @@
+2 PRINT TAB(33);"HELLO"
+4 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+6 PRINT: PRINT: PRINT
+10 PRINT "HELLO.  MY NAME IS CREATIVE COMPUTER."
+20 PRINT: PRINT: INPUT "WHAT'S YOUR NAME";N$: PRINT
+30 PRINT "HI THERE, ";N$;", ARE YOU ENJOYING YOURSELF HERE";
+40 INPUT B$: PRINT
+50 IF B$="YES" THEN 70
+55 IF B$="NO" THEN 80
+60 PRINT N$;", I DON'T UNDERSTAND YOUR ANSWER OF '";B$;"'."
+65 PRINT "PLEASE ANSWER 'YES' OR 'NO'.  DO YOU LIKE IT HERE";: GOTO 40
+70 PRINT "I'M GLAD TO HEAR THAT, ";N$;".": PRINT
+75 GOTO 100
+80 PRINT "OH, I'M SORRY TO HEAR THAT, ";N$;". MAYBE WE CAN"
+85 PRINT "BRIGHTEN UP YOUR VISIT A BIT."
+100 PRINT
+105 PRINT "SAY, ";N$;", I CAN SOLVE ALL KINDS OF PROBLEMS EXCEPT"
+110 PRINT "THOSE DEALING WITH GREECE.  WHAT KIND OF PROBLEMS DO"
+120 PRINT "YOU HAVE (ANSWER SEX, HEALTH, MONEY, OR JOB)";
+125 INPUT C$
+126 PRINT
+130 IF C$="SEX" THEN 200
+132 IF C$="HEALTH" THEN 180
+134 IF C$="MONEY" THEN 160
+136 IF C$="JOB" THEN 145
+138 PRINT "OH, ";N$;", YOUR ANSWER OF ";C$;" IS GREEK TO ME."
+140 GOTO 250
+145 PRINT "I CAN SYMPATHIZE WITH YOU ";N$;".  I HAVE TO WORK"
+148 PRINT "VERY LONG HOURS FOR NO PAY -- AND SOME OF MY BOSSES"
+150 PRINT "REALLY BEAT ON MY KEYBOARD.  MY ADVICE TO YOU, ";N$;","
+153 PRINT "IS TO OPEN A RETAIL COMPUTER STORE.  IT'S GREAT FUN."
+155 GOTO 250
+160 PRINT "SORRY, ";N$;", I'M BROKE TOO.  WHY DON'T YOU SELL"
+162 PRINT "ENCYCLOPEADIAS OR MARRY SOMEONE RICH OR STOP EATING"
+164 PRINT "SO YOU WON'T NEED SO MUCH MONEY?"
+170 GOTO 250
+180 PRINT "MY ADVICE TO YOU ";N$;" IS:"
+185 PRINT "     1.  TAKE TWO ASPRIN"
+188 PRINT "     2.  DRINK PLENTY OF FLUIDS (ORANGE JUICE, NOT BEER!)"
+190 PRINT "     3.  GO TO BED (ALONE)"
+195 GOTO 250
+200 INPUT "IS YOUR PROBLEM TOO MUCH OR TOO LITTLE";D$: PRINT
+210 IF D$="TOO MUCH" THEN 220
+212 IF D$="TOO LITTLE" THEN 230
+215 PRINT "DON'T GET ALL SHOOK, ";N$;", JUST ANSWER THE QUESTION"
+217 INPUT "WITH 'TOO MUCH' OR 'TOO LITTLE'.  WHICH IS IT";D$:GOTO 210
+220 PRINT "YOU CALL THAT A PROBLEM?!!  I SHOULD HAVE SUCH PROBLEMS!"
+225 PRINT "IF IT BOTHERS YOU, ";N$;", TAKE A COLD SHOWER."
+228 GOTO 250
+230 PRINT "WHY ARE YOU HERE IN SUFFERN, ";N$;"?  YOU SHOULD BE"
+235 PRINT "IN TOKYO OR NEW YORK OR AMSTERDAM OR SOMEPLACE WITH SOME"
+240 PRINT "REAL ACTION."
+250 PRINT
+255 PRINT "ANY MORE PROBLEMS YOU WANT SOLVED, ";N$;
+260 INPUT E$: PRINT
+270 IF E$="YES" THEN 280
+273 IF E$="NO" THEN 300
+275 PRINT "JUST A SIMPLE 'YES' OR 'NO' PLEASE, ";N$;"."
+277 GOTO 255
+280 PRINT "WHAT KIND (SEX, MONEY, HEALTH, JOB)";
+282 GOTO 125
+300 PRINT
+302 PRINT "THAT WILL BE $5.00 FOR THE ADVICE, ";N$;"."
+305 PRINT "PLEASE LEAVE THE MONEY ON THE TERMINAL."
+307 FOR I=1 TO 2000: NEXT I
+310 PRINT: PRINT: PRINT
+315 PRINT "DID YOU LEAVE THE MONEY";
+320 INPUT G$: PRINT
+325 IF G$="YES" THEN 350
+330 IF G$="NO" THEN 370
+335 PRINT "YOUR ANSWER OF '";G$;"' CONFUSES ME, ";N$;"."
+340 PRINT "PLEASE RESPOND WITH 'YES' OR 'NO'.": GOTO 315
+350 PRINT "HEY, ";N$;"??? YOU LEFT NO MONEY AT ALL!"
+355 PRINT "YOU ARE CHEATING ME OUT OF MY HARD-EARNED LIVING."
+360 PRINT:PRINT "WHAT A RIP OFF, ";N$;"!!!":PRINT
+365 GOTO 385
+370 PRINT "THAT'S HONEST, ";N$;", BUT HOW DO YOU EXPECT"
+375 PRINT "ME TO GO ON WITH MY PSYCHOLOGY STUDIES IF MY PATIENTS"
+380 PRINT "DON'T PAY THEIR BILLS?"
+385 PRINT:PRINT "TAKE A WALK, ";N$;".":PRINT:PRINT:GOTO 999
+390 PRINT "NICE MEETING YOU, ";N$;", HAVE A NICE DAY."
+400 REM
+999 END

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

@@ -0,0 +1,7 @@
+FRED
+NO
+GREECE
+YES
+MONEY
+NO
+NO

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

@@ -0,0 +1,46 @@
+                                 HELLO
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+
+
+HELLO.  MY NAME IS CREATIVE COMPUTER.
+
+
+WHAT'S YOUR NAME? FRED
+
+HI THERE, FRED, ARE YOU ENJOYING YOURSELF HERE? NO
+
+OH, I'M SORRY TO HEAR THAT, FRED. MAYBE WE CAN
+BRIGHTEN UP YOUR VISIT A BIT.
+
+SAY, FRED, I CAN SOLVE ALL KINDS OF PROBLEMS EXCEPT
+THOSE DEALING WITH GREECE.  WHAT KIND OF PROBLEMS DO
+YOU HAVE (ANSWER SEX, HEALTH, MONEY, OR JOB)? GREECE
+
+OH, FRED, YOUR ANSWER OF GREECE IS GREEK TO ME.
+
+ANY MORE PROBLEMS YOU WANT SOLVED, FRED? YES
+
+WHAT KIND (SEX, MONEY, HEALTH, JOB)? MONEY
+
+SORRY, FRED, I'M BROKE TOO.  WHY DON'T YOU SELL
+ENCYCLOPEADIAS OR MARRY SOMEONE RICH OR STOP EATING
+SO YOU WON'T NEED SO MUCH MONEY?
+
+ANY MORE PROBLEMS YOU WANT SOLVED, FRED? NO
+
+
+THAT WILL BE $5.00 FOR THE ADVICE, FRED.
+PLEASE LEAVE THE MONEY ON THE TERMINAL.
+
+
+
+DID YOU LEAVE THE MONEY? NO
+
+THAT'S HONEST, FRED, BUT HOW DO YOU EXPECT
+ME TO GO ON WITH MY PSYCHOLOGY STUDIES IF MY PATIENTS
+DON'T PAY THEIR BILLS?
+
+TAKE A WALK, FRED.
+
+

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

@@ -0,0 +1,174 @@
+1 PRINT TAB(32);"HEXAPAWN"
+2 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+3 PRINT:PRINT:PRINT
+4 REM  HEXAPAWN:  INTERPRETATION OF HEXAPAWN GAME AS PRESENTED IN
+5 REM  MARTIN GARDNER'S "THE UNEXPECTED HANGING AND OTHER MATHEMATIC-
+6 REM  AL DIVERSIONS", CHAPTER EIGHT:  A MATCHBOX GAME-LEARNING MACHINE
+7 REM  ORIGINAL VERSION FOR H-P TIMESHARE SYSTEM BY R.A. KAAPKE 5/5/76
+8 REM  INSTRUCTIONS BY JEFF DALTON
+9 REM  CONVERSION TO MITS BASIC BY STEVE NORTH
+10 DIM B(19,9),M(19,4),S(9),P$(3)
+15 W=0: L=0
+20 DEF FNR(X)=-3*(X=1)-(X=3)-4*(X=6)-6*(X=4)-7*(X=9)-9*(X=7)+FNS(X)
+25 DEF FNS(X)=-X*(X=2 OR X=5 OR X=8)
+30 DEF FNM(Y)=Y-INT(Y/10)*10
+35 P$="X.O"
+40 FOR I=1 TO 19: FOR J=1 TO 9: READ B(I,J): NEXT J: NEXT I
+45 FOR I=1 TO 19: FOR J=1 TO 4: READ M(I,J): NEXT J: NEXT I
+50 PRINT "INSTRUCTIONS (Y-N)";
+60 INPUT A$
+70 A$=LEFT$(A$,1)
+80 IF A$="Y" THEN 2000
+90 IF A$<>"N" THEN 50
+100 X=0: Y=0
+111 S(4)=0: S(5)=0: S(6)=0
+112 S(1)=-1: S(2)=-1: S(3)=-1
+113 S(7)=1: S(8)=1: S(9)=1
+115 GOSUB 1000
+120 PRINT "YOUR MOVE";
+121 INPUT M1,M2
+122 IF M1=INT(M1)AND M2=INT(M2)AND M1>0 AND M1<10 AND M2>0 AND M2<10 THEN 130
+123 PRINT "ILLEGAL CO-ORDINATES."
+124 GOTO 120
+130 IF S(M1)=1 THEN 150
+140 PRINT "ILLEGAL MOVE.": GOTO 120
+150 IF S(M2)=1 THEN 140
+160 IF M2-M1<>-3 AND S(M2)<>-1 THEN 140
+170 IF M2>M1 THEN 140
+180 IF M2-M1=-3 AND (S(M2)<>0) THEN 140
+185 IF M2-M1<-4 THEN 140
+186 IF M1=7 AND M2=3 THEN 140
+190 S(M1)=0
+200 S(M2)=1
+205 GOSUB 1000
+210 IF S(1)=1 OR S(2)=1 OR S(3)=1 THEN 820
+220 FOR I=1 TO 9
+221 IF S(I)=-1 THEN 230
+222 NEXT I
+223 GOTO 820
+230 FOR I=1 TO 9
+240 IF S(I)<>-1 THEN 330
+250 IF S(I+3)=0 THEN 350
+260 IF FNR(I)=I THEN 320
+270 IF I>3 THEN 300
+280 IF S(5)=1 THEN 350
+290 GOTO 330
+300 IF S(8)=1 THEN 350
+310 GOTO 330
+320 IF S(I+2)=1 OR S(I+4)=1 THEN 350
+330 NEXT I
+340 GOTO 820
+350 FOR I=1 TO 19
+360 FOR J=1 TO 3
+370 FOR K=3 TO 1 STEP -1
+380 T((J-1)*3+K)=B(I,(J-1)*3+4-K)
+390 NEXT K
+400 NEXT J
+410 FOR J=1 TO 9
+420 IF S(J)<>B(I,J) THEN 460
+430 NEXT J
+440 R=0
+450 GOTO 540
+460 FOR J=1 TO 9
+470 IF S(J)<>T(J) THEN 510
+480 NEXT J
+490 R=1
+500 GOTO 540
+510 NEXT I
+511 REMEMBER THE TERMINATION OF THIS LOOP IS IMPOSSIBLE
+512 PRINT "ILLEGAL BOARD PATTERN."
+530 STOP
+540 X=I
+550 FOR I=1 TO 4
+560 IF M(X,I)<>0 THEN 600
+570 NEXT I
+580 PRINT "I RESIGN."
+590 GOTO 820
+600 Y=INT(RND(1)*4+1)
+601 IF M(X,Y)=0 THEN 600
+610 IF R<>0 THEN 630
+620 PRINT "I MOVE FROM ";STR$(INT(M(X,Y)/10));" TO ";STR$(FNM(M(X,Y)))
+622 S(INT(M(X,Y)/10))=0
+623 S(FNM(M(X,Y)))=-1
+624 GOTO 640
+630 PRINT "I MOVE FROM ";STR$(FNR(INT(M(X,Y)/10)));" TO ";
+631 PRINT STR$(FNR(FNM(M(X,Y))))
+632 S(FNR(INT(M(X,Y)/10)))=0
+633 S(FNR(FNM(M(X,Y))))=-1
+640 GOSUB 1000
+641 IF S(7)=-1 OR S(8)=-1 OR S(9)=-1 THEN 870
+650 FOR I=1 TO 9
+660 IF S(I)=1 THEN 690
+670 NEXT I
+680 GOTO 870
+690 FOR I=1 TO 9
+700 IF S(I)<>1 THEN 790
+710 IF S(I-3)=0 THEN 120
+720 IF FNR(I)=I THEN 780
+730 IF I<7 THEN 760
+740 IF S(5)=-1 THEN 120
+750 GOTO 790
+760 IF S(2)=-1 THEN 120
+770 GOTO 790
+780 IF S(I-2)=-1 OR S(I-4)=-1 THEN 120
+790 NEXT I
+800 PRINT "YOU CAN'T MOVE, SO ";
+810 GOTO 870
+820 PRINT "YOU WIN."
+830 M(X,Y)=0
+840 L=L+1
+850 PRINT "I HAVE WON";W;"AND YOU";L;"OUT OF";L+W;"GAMES."
+851 PRINT
+860 GOTO 100
+870 PRINT "I WIN."
+880 W=W+1
+890 GOTO 850
+900 DATA -1,-1,-1,1,0,0,0,1,1,-1,-1,-1,0,1,0,1,0,1
+905 DATA -1,0,-1,-1,1,0,0,0,1,0,-1,-1,1,-1,0,0,0,1
+910 DATA -1,0,-1,1,1,0,0,1,0,-1,-1,0,1,0,1,0,0,1
+915 DATA 0,-1,-1,0,-1,1,1,0,0,0,-1,-1,-1,1,1,1,0,0
+920 DATA -1,0,-1,-1,0,1,0,1,0,0,-1,-1,0,1,0,0,0,1
+925 DATA 0,-1,-1,0,1,0,1,0,0,-1,0,-1,1,0,0,0,0,1
+930 DATA 0,0,-1,-1,-1,1,0,0,0,-1,0,0,1,1,1,0,0,0
+935 DATA 0,-1,0,-1,1,1,0,0,0,-1,0,0,-1,-1,1,0,0,0
+940 DATA 0,0,-1,-1,1,0,0,0,0,0,-1,0,1,-1,0,0,0,0
+945 DATA -1,0,0,-1,1,0,0,0,0
+950 DATA 24,25,36,0,14,15,36,0,15,35,36,47,36,58,59,0
+955 DATA 15,35,36,0,24,25,26,0,26,57,58,0
+960 DATA 26,35,0,0,47,48,0,0,35,36,0,0,35,36,0,0
+965 DATA 36,0,0,0,47,58,0,0,15,0,0,0
+970 DATA 26,47,0,0,47,58,0,0,35,36,47,0,28,58,0,0,15,47,0,0
+1000 PRINT
+1010 FOR I=1 TO 3
+1020 FOR J=1 TO 3
+1030 PRINT TAB(10);MID$(P$,S((I-1)*3+J)+2,1);
+1040 NEXT J
+1050 PRINT
+1060 NEXT I
+1070 PRINT
+1080 RETURN
+2000 PRINT: PRINT "THIS PROGRAM PLAYS THE GAME OF HEXAPAWN."
+2010 PRINT "HEXAPAWN IS PLAYED WITH CHESS PAWNS ON A 3 BY 3 BOARD."
+2020 PRINT "THE PAWNS ARE MOVED AS IN CHESS - ONE SPACE FORWARD TO"
+2030 PRINT "AN EMPTY SPACE OR ONE SPACE FORWARD AND DIAGONALLY TO"
+2040 PRINT "CAPTURE AN OPPOSING MAN.  ON THE BOARD, YOUR PAWNS"
+2050 PRINT "ARE 'O', THE COMPUTER'S PAWNS ARE 'X', AND EMPTY "
+2060 PRINT "SQUARES ARE '.'.  TO ENTER A MOVE, TYPE THE NUMBER OF"
+2070 PRINT "THE SQUARE YOU ARE MOVING FROM, FOLLOWED BY THE NUMBER"
+2080 PRINT "OF THE SQUARE YOU WILL MOVE TO.  THE NUMBERS MUST BE"
+2090 PRINT "SEPERATED BY A COMMA.": PRINT
+2100 PRINT "THE COMPUTER STARTS A SERIES OF GAMES KNOWING ONLY WHEN"
+2105 PRINT "THE GAME IS WON (A DRAW IS IMPOSSIBLE) AND HOW TO MOVE."
+2110 PRINT "IT HAS NO STRATEGY AT FIRST AND JUST MOVES RANDOMLY."
+2120 PRINT "HOWEVER, IT LEARNS FROM EACH GAME.  THUS, WINNING BECOMES"
+2130 PRINT "MORE AND MORE DIFFICULT.  ALSO, TO HELP OFFSET YOUR"
+2140 PRINT "INITIAL ADVANTAGE, YOU WILL NOT BE TOLD HOW TO WIN THE"
+2150 PRINT "GAME BUT MUST LEARN THIS BY PLAYING."
+2160 PRINT: PRINT "THE NUMBERING OF THE BOARD IS AS FOLLOWS:"
+2170 PRINT TAB(10);"123": PRINT TAB(10);"456": PRINT TAB(10);"789"
+2180 PRINT: PRINT "FOR EXAMPLE, TO MOVE YOUR RIGHTMOST PAWN FORWARD,"
+2190 PRINT "YOU WOULD TYPE 9,6 IN RESPONSE TO THE QUESTION"
+2200 PRINT "'YOUR MOVE ?'.  SINCE I'M A GOOD SPORT, YOU'LL ALWAYS"
+2210 PRINT "GO FIRST.": PRINT
+2220 GOTO 100
+9999 END

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

@@ -0,0 +1,38 @@
+Y
+7,4
+8,5
+4,1
+7,4
+4,2
+7,4
+9,6
+7,4
+8,4
+7,4
+8,5
+9,6
+8,6
+9,6
+7,4
+8,5
+7,5
+9,5
+8,5
+5,1
+8,5
+5,3
+8,5
+5,3
+7,5
+8,5
+9,5
+7,5
+8,5
+9,5
+7,4
+4,1
+5,1
+5,2
+8,5
+9,5
+7,4