basic101 0.1.0

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

@@ -0,0 +1,243 @@
+                                 HOCKEY
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+
+
+
+
+
+WOULD YOU LIKE THE INSTRUCTIONS? YES
+
+
+THIS IS A SIMULATED HOCKEY GAME.
+QUESTION     RESPONSE
+PASS         TYPE IN THE NUMBER OF PASSES YOU WOULD
+             LIKE TO MAKE, FROM 0 TO 3.
+SHOT         TYPE THE NUMBER CORRESPONDING TO THE SHOT
+             YOU WANT TO MAKE.  ENTER:
+             1 FOR A SLAPSHOT
+             2 FOR A WRISTSHOT
+             3 FOR A BACKHAND
+             4 FOR A SNAP SHOT
+AREA         TYPE IN THE NUMBER CORRESPONDING TO
+             THE AREA YOU ARE AIMING AT.  ENTER:
+             1 FOR UPPER LEFT HAND CORNER
+             2 FOR UPPER RIGHT HAND CORNER
+             3 FOR LOWER LEFT HAND CORNER
+             4 FOR LOWER RIGHT HAND CORNER
+
+AT THE START OF THE GAME, YOU WILL BE ASKED FOR THE NAMES
+OF YOUR PLAYERS.  THEY ARE ENTERED IN THE ORDER: 
+LEFT WING, CENTER, RIGHT WING, LEFT DEFENSE,
+RIGHT DEFENSE, GOALKEEPER.  ANY OTHER INPUT REQUIRED WILL
+HAVE EXPLANATORY INSTRUCTIONS.
+ENTER THE TWO TEAMS? FOO,BAR
+
+ENTER THE NUMBER OF MINUTES IN A GAME? 5
+
+
+WOULD THE FOO COACH ENTER HIS TEAM
+
+PLAYER 1 ? #1
+PLAYER 2 ? #2
+PLAYER 3 ? #3
+PLAYER 4 ? #4
+PLAYER 5 ? #5
+PLAYER 6 ? #6
+
+WOULD THE BAR COACH DO THE SAME
+
+PLAYER 1 ? #A
+PLAYER 2 ? #B
+PLAYER 3 ? #C
+PLAYER 4 ? #D
+PLAYER 5 ? #E
+PLAYER 6 ? #F
+
+INPUT THE REFEREE FOR THIS GAME? #REF
+
+          FOO STARTING LINEUP
+#1
+#2
+#3
+#4
+#5
+#6
+
+          BAR STARTING LINEUP
+#A
+#B
+#C
+#D
+#E
+#F
+
+WE'RE READY FOR TONIGHTS OPENING FACE-OFF.
+#REF WILL DROP THE PUCK BETWEEN #2 AND #B
+BAR HAS CONTROL.
+PASS? NO
+Not numeric: "NO", try again
+? 2
+IT'S A ' 3 ON 2 '!
+ONLY #4 AND #5 ARE BACK.
+#D GIVES OFF TO #A
+#A DROPS TO #C
+SHOT? 4
+#C SNAPS OFF A SNAP SHOT
+AREA? 2
+STICK SAVE BY #6
+AND CLEARED OUT BY #4
+BAR HAS CONTROL.
+PASS? 0
+SHOT? 2
+#D FLIPS A WRISTSHOT DOWN THE ICE
+ BACKHANDS ONE IN ON THE GOALTENDER
+AREA? 1
+STICK SAVE BY #6 AND HE CLEARS IT OUT HIMSELF
+FOO HAS CONTROL OF THE PUCK
+PASS? 1
+#4 LEADS #2 WITH A PERFECT PASS.
+#2 CUTTING IN!!!
+SHOT? 3
+#2 GETS A BACKHAND OFF
+AREA? 3
+WHISTLES ONE OVER THE HEAD OF #F
+FOO HAS CONTROL OF THE PUCK
+PASS? 2
+#2 GIVES TO A STREAKING #1
+#4 COMES DOWN ON #E AND #D
+SHOT? 4
+#4 SNAPS OFF A SNAP SHOT
+AREA? 4
+SKATE SAVE ON A LOW STEAMER BY #F
+BAR HAS CONTROL.
+PASS? 3
+ A ' 3 ON 2 ' WITH A ' TRAILER '!
+#B GIVES TO #B WHO SHUFFLES IT OFF TO
+#A WHO FIRES A WING TO WING PASS TO 
+#C AS HE CUTS IN ALONE!!
+SHOT? 1
+#C LET'S A BIG SLAP SHOT GO!!
+AREA? 1
+SCORE BAR
+
+SCORE: BAR: 1               FOO: 0 
+GOAL SCORED BY: #C ASSISTED BY: #A AND #B
+AND WE'RE READY FOR THE FACE-OFF
+FOO HAS CONTROL OF THE PUCK
+PASS? 3
+OH MY GOD!! A ' 4 ON 2 ' SITUATION
+#3 LEADS #5
+#5 IS WHEEELING THROUGH CENTER.
+#5 GIVES AND GOES WITH #4
+PRETTY PASSING!
+#4 DROPS IT TO #5
+SHOT? 1
+#5 LET'S A BIG SLAP SHOT GO!!
+AREA? 2
+KICK SAVE AND A BEAUTY BY #F
+CLEARED OUT BY #C
+FOO HAS CONTROL OF THE PUCK
+PASS? 0
+SHOT? 2
+#2 FLIPS A WRISTSHOT DOWN THE ICE
+ BACKHANDS ONE IN ON THE GOALTENDER
+AREA? 2
+WHAT A SPECTACULAR GLOVE SAVE BY #F
+AND #F GOLFS IT INTO THE CROWD
+AND WE'RE READY FOR THE FACE-OFF
+FOO HAS CONTROL OF THE PUCK
+PASS? 2
+#3 GIVES TO A STREAKING #2
+#4 COMES DOWN ON #E AND #D
+SHOT? 4
+#4 SNAPS OFF A SNAP SHOT
+AREA? 4
+KICK SAVE AND A BEAUTY BY #F
+CLEARED OUT BY #C
+BAR HAS CONTROL.
+PASS? 1
+#D HITS #B FLYING DOWN THE LEFT SIDE
+SHOT? 2
+#B RIPS A WRIST SHOT OFF
+AREA? 3
+KICKED OUT BY #6
+AND IT REBOUNDS ALL THE WAY TO CENTER ICE
+FOO HAS CONTROL OF THE PUCK
+PASS? 1
+#1 LEADS #4 WITH A PERFECT PASS.
+#4 CUTTING IN!!!
+SHOT? 3
+#4 GETS A BACKHAND OFF
+AREA? 2
+GOAL FOO
+
+SCORE: FOO: 1               BAR: 1 
+GOAL SCORED BY: #4
+ ASSISTED BY: #1
+AND WE'RE READY FOR THE FACE-OFF
+BAR HAS CONTROL.
+PASS? 0
+SHOT? 2
+#C FLIPS A WRISTSHOT DOWN THE ICE
+ BACKHANDS ONE IN ON THE GOALTENDER
+AREA? 4
+STICK SAVE BY #6 AND HE CLEARS IT OUT HIMSELF
+FOO HAS CONTROL OF THE PUCK
+PASS? 1
+#2 LEADS #5 WITH A PERFECT PASS.
+#5 CUTTING IN!!!
+SHOT? 2
+#5 RIPS A WRIST SHOT OFF
+AREA? 3
+#F MAKES A FACE SAVE!! AND HE IS HURT
+THE DEFENSEMAN #E COVERS UP FOR HIM
+AND WE'RE READY FOR THE FACE-OFF
+BAR HAS CONTROL.
+PASS? 2
+IT'S A ' 3 ON 2 '!
+ONLY #4 AND #5 ARE BACK.
+#A GIVES OFF TO #B
+#B DROPS TO #C
+SHOT? 3
+#C GETS A BACKHAND OFF
+AREA? 4
+STICK SAVE BY #6 AND HE CLEARS IT OUT HIMSELF
+BAR HAS CONTROL.
+PASS? 3
+ A ' 3 ON 2 ' WITH A ' TRAILER '!
+#D GIVES TO #E WHO SHUFFLES IT OFF TO
+#B WHO FIRES A WING TO WING PASS TO 
+#C AS HE CUTS IN ALONE!!
+SHOT? 2
+#C RIPS A WRIST SHOT OFF
+AREA? 1
+GLOVE SAVE #6 AND HE HANGS ON
+THAT'S THE SIREN
+
+               FINAL SCORE:
+FOO: 1        BAR: 1 
+
+          SCORING SUMMARY
+
+                         FOO
+     NAME           GOALS          ASSISTS
+     ----           -----          -------
+     #1               0              1 
+     #2               0              0 
+     #3               0              0 
+     #4               1              0 
+     #5               0              0 
+
+                         BAR
+     NAME           GOALS          ASSISTS
+     ----           -----          -------
+     #A               0              1 
+     #B               0              1 
+     #C               1              0 
+     #D               0              0 
+     #E               0              0 
+
+SHOTS ON NET
+FOO: 7 
+BAR: 7 

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

@@ -0,0 +1,130 @@
+100 PRINT TAB(31);"HORSERACE"
+110 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+120 PRINT:PRINT:PRINT
+210 DIM S(8)
+220 PRINT "WELCOME TO SOUTH PORTLAND HIGH RACETRACK"
+230 PRINT "                      ...OWNED BY LAURIE CHEVALIER"
+240 PRINT "DO YOU WANT DIRECTIONS";
+250 INPUT X$
+260 IF X$="NO" THEN 320
+270 PRINT"UP TO 10 MAY PLAY.  A TABLE OF ODDS WILL BE PRINTED.  YOU"
+280 PRINT"MAY BET ANY + AMOUNT UNDER 100000 ON ONE HORSE."
+290 PRINT "DURING THE RACE, A HORSE WILL BE SHOWN BY ITS"
+300 PRINT"NUMBER.  THE HORSES RACE DOWN THE PAPER!"
+310 PRINT
+320 PRINT "HOW MANY WANT TO BET";
+330 INPUT C
+340 PRINT "WHEN ? APPEARS,TYPE NAME"
+350 FOR A=1 TO C
+360 INPUT W$(A)
+370 NEXT A
+380 PRINT
+390 PRINT"HORSE",,"NUMBER","ODDS"
+400 PRINT
+410 FOR I=1 TO 8: S(I)=0: NEXT I
+420 LET R=0
+430 FOR A=1 TO 8
+440 LET D(A)=INT(10*RND(1)+1)
+450 NEXT A
+460 FOR A=1 TO 8
+470 LET R=R+D(A)
+480 NEXT A
+490 LET V$(1)="JOE MAW"
+500 LET V$(2)="L.B.J."
+510 LET V$(3)="MR.WASHBURN"
+520 LET V$(4)="MISS KAREN"
+530 LET V$(5)="JOLLY"
+540 LET V$(6)="HORSE"
+550 LET V$(7)="JELLY DO NOT"
+560 LET V$(8)="MIDNIGHT"
+570 FOR N=1 TO 8
+580 PRINT V$(N),,N,R/D(N);":1"
+590 NEXT N
+600 PRINT"--------------------------------------------------"
+610 PRINT "PLACE YOUR BETS...HORSE # THEN AMOUNT"
+620 FOR J=1 TO C
+630 PRINT W$(J);
+640 INPUT Q(J),P(J)
+650 IF P(J)<1 THEN 670
+660 IF P(J)<100000 THEN 690
+670 PRINT"  YOU CAN'T DO THAT!"
+680 GOTO 630
+690 NEXT J
+700 PRINT
+710 PRINT"1 2 3 4 5 6 7 8"
+720 PRINT"XXXXSTARTXXXX"
+730 FOR I=1 TO 8
+740 LET M=I
+750 LET M(I)=M
+760 LET Y(M(I))=INT(100*RND(1)+1)
+770 IF Y(M(I))<10 THEN 860
+780 LET S=INT(R/D(I)+.5)
+790 IF Y(M(I))<S+17 THEN 880
+800 IF Y(M(I))<S+37 THEN 900
+810 IF Y(M(I))<S+57 THEN 920
+820 IF Y(M(I))<77+S THEN 940
+830 IF Y(M(I))<S+92 THEN 960
+840 LET Y(M(I))=7
+850 GOTO 970
+860 LET Y(M(I))=1
+870 GOTO 970
+880 LET Y(M(I))=2
+890 GOTO 970
+900 LET Y(M(I))=3
+910 GOTO 970
+920 LET Y(M(I))=4
+930 GOTO 970
+940 LET Y(M(I))=5
+950 GOTO 970
+960 LET Y(M(I))=6
+970 NEXT I
+980 LET M=I
+990 FOR I=1 TO 8
+1000 LET S(M(I))=S(M(I))+Y(M(I))
+1010 NEXT I
+1020 LET I=1
+1030 FOR L=1 TO 8
+1040 FOR I=1 TO 8-L
+1050 IF S(M(I))<S(M(I+1))THEN 1090
+1060 LET H=M(I)
+1070 LET M(I)=M(I+1)
+1080 LET M(I+1)=H
+1090 NEXT I
+1100 NEXT L
+1110 LET T=S(M(8))
+1120 FOR I=1 TO 8
+1130 LET B=S(M(I))-S(M(I-1))
+1140 IF B=0 THEN 1190
+1150 FOR A=1 TO B
+1160 PRINT
+1170 IF S(M(I))>27 THEN 1240
+1180 NEXT A
+1190 PRINT M(I);
+1200 NEXT I
+1210 FOR A=1 TO 28-T
+1220 PRINT
+1230 NEXT A
+1240 PRINT "XXXXFINISHXXXX";
+1242 PRINT
+1243 PRINT
+1244 PRINT "---------------------------------------------"
+1245 PRINT
+1250 IF T<28 THEN 720
+1270 PRINT "THE RACE RESULTS ARE:"
+1272 LET Z9=1
+1280 FOR I=8 TO 1 STEP-1
+1290 LET F=M(I)
+1300 PRINT
+1310 PRINT Z9;"PLACE HORSE NO.";F,"AT ";R/D(F);":1"
+1312 LET Z9=Z9+1
+1320  NEXT I
+1330 FOR J=1 TO C
+1340 IF Q(J)<>M(8) THEN 1370
+1350 LET N=Q(J)
+1355 PRINT
+1360 PRINT W$(J);" WINS $";(R/D(N))*P(J)
+1370 NEXT J
+1372 PRINT "DO YOU WANT TO BET ON THE NEXT RACE ?"
+1374 INPUT "YES OR NO"; O$
+1376 IF O$="YES" THEN 380
+1380 END

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

@@ -0,0 +1,11 @@
+YES
+2
+FRED
+ETHEL
+10
+1,10
+2,20
+YES
+1,10
+7,10
+NO