basic101 0.1.0

data/test/integration/tests/basic_computer_games/hi-q.output

@@ -0,0 +1,115 @@
+                                 H-I-Q
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+
+
+HERE IS THE BOARD:
+
+          !    !    !
+         13   14   15
+
+          !    !    !
+         22   23   24
+
+!    !    !    !    !    !    !
+29   30   31   32   33   34   35
+
+!    !    !    !    !    !    !
+38   39   40   41   42   43   44
+
+!    !    !    !    !    !    !
+47   48   49   50   51   52   53
+
+          !    !    !
+         58   59   60
+
+          !    !    !
+         67   68   69
+
+TO SAVE TYPING TIME, A COMPRESSED VERSION OF THE GAME BOARD
+WILL BE USED DURING PLAY.  REFER TO THE ABOVE ONE FOR PEG
+NUMBERS.  OK, LET'S BEGIN.
+
+        ! ! !
+        ! ! !
+    ! ! ! ! ! ! !
+    ! ! ! O ! ! !
+    ! ! ! ! ! ! !
+        ! ! !
+        ! ! !
+
+MOVE WHICH PIECE? 
+Too few items, try again
+MOVE WHICH PIECE? 23
+TO WHERE? 41
+
+        ! ! !
+        ! O !
+    ! ! ! O ! ! !
+    ! ! ! ! ! ! !
+    ! ! ! ! ! ! !
+        ! ! !
+        ! ! !
+
+MOVE WHICH PIECE? 50
+TO WHERE? 32
+
+        ! ! !
+        ! O !
+    ! ! ! ! ! ! !
+    ! ! ! O ! ! !
+    ! ! ! O ! ! !
+        ! ! !
+        ! ! !
+
+MOVE WHICH PIECE? 68
+TO WHERE? 50
+
+        ! ! !
+        ! O !
+    ! ! ! ! ! ! !
+    ! ! ! O ! ! !
+    ! ! ! ! ! ! !
+        ! O !
+        ! O !
+
+MOVE WHICH PIECE? 39
+TO WHERE? 41
+
+        ! ! !
+        ! O !
+    ! ! ! ! ! ! !
+    ! O O ! ! ! !
+    ! ! ! ! ! ! !
+        ! O !
+        ! O !
+
+MOVE WHICH PIECE? 42
+TO WHERE? 40
+
+        ! ! !
+        ! O !
+    ! ! ! ! ! ! !
+    ! O ! O O ! !
+    ! ! ! ! ! ! !
+        ! O !
+        ! O !
+
+MOVE WHICH PIECE? 44
+TO WHERE? 42
+
+        ! ! !
+        ! O !
+    ! ! ! ! ! ! !
+    ! O ! O ! O O
+    ! ! ! ! ! ! !
+        ! O !
+        ! O !
+
+THE GAME IS OVER.
+YOU HAD 26 PIECES REMAINING.
+
+PLAY AGAIN (YES OR NO)? NO
+
+SO LONG FOR NOW.
+

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

@@ -0,0 +1,29 @@
+10 PRINT TAB(34);"HI LO"
+20 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+30 PRINT:PRINT:PRINT
+100 PRINT "THIS IS THE GAME OF HI LO.":PRINT
+110 PRINT "YOU WILL HAVE 6 TRIES TO GUESS THE AMOUNT OF MONEY IN THE"
+120 PRINT "HI LO JACKPOT, WHICH IS BETWEEN 1 AND 100 DOLLARS.  IF YOU"
+130 PRINT "GUESS THE AMOUNT, YOU WIN ALL THE MONEY IN THE JACKPOT!"
+140 PRINT "THEN YOU GET ANOTHER CHANCE TO WIN MORE MONEY.  HOWEVER,"
+150 PRINT "IF YOU DO NOT GUESS THE AMOUNT, THE GAME ENDS.":PRINT
+160 R=0
+170 B=0:PRINT
+180 Y=INT(100*RND(1))
+200 PRINT "YOUR GUESS";
+210 INPUT A
+220 B=B+1
+230 IF A=Y THEN 300
+240 IF A>Y THEN 270
+250 PRINT "YOUR GUESS IS TOO LOW.":GOTO 280
+270 PRINT "YOUR GUESS IS TOO HIGH."
+280 PRINT:IF B<6 THEN 200
+290 PRINT "YOU BLEW IT...TOO BAD...THE NUMBER WAS";Y
+295 R=0:GOTO 350
+300 PRINT "GOT IT!!!!!!!!!!   YOU WIN";Y;"DOLLARS."
+310 R=R+Y
+320 PRINT "YOUR TOTAL WINNINGS ARE NOW";R;"DOLLARS."
+350 PRINT:PRINT "PLAY AGAIN (YES OR NO)";
+360 INPUT A$:IF A$="YES" THEN 170
+380 PRINT:PRINT "SO LONG.  HOPE YOU ENJOYED YOURSELF!!!"
+390 END

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

@@ -0,0 +1,20 @@
+50
+75
+62
+56
+53
+54
+YES
+50
+75
+62
+68
+71
+YES
+50
+75
+62
+56
+59
+61
+NO

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

@@ -0,0 +1,76 @@
+                                  HI LO
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+
+
+THIS IS THE GAME OF HI LO.
+
+YOU WILL HAVE 6 TRIES TO GUESS THE AMOUNT OF MONEY IN THE
+HI LO JACKPOT, WHICH IS BETWEEN 1 AND 100 DOLLARS.  IF YOU
+GUESS THE AMOUNT, YOU WIN ALL THE MONEY IN THE JACKPOT!
+THEN YOU GET ANOTHER CHANCE TO WIN MORE MONEY.  HOWEVER,
+IF YOU DO NOT GUESS THE AMOUNT, THE GAME ENDS.
+
+
+YOUR GUESS? 50
+YOUR GUESS IS TOO LOW.
+
+YOUR GUESS? 75
+YOUR GUESS IS TOO HIGH.
+
+YOUR GUESS? 62
+YOUR GUESS IS TOO HIGH.
+
+YOUR GUESS? 56
+YOUR GUESS IS TOO HIGH.
+
+YOUR GUESS? 53
+YOUR GUESS IS TOO LOW.
+
+YOUR GUESS? 54
+GOT IT!!!!!!!!!!   YOU WIN 54 DOLLARS.
+YOUR TOTAL WINNINGS ARE NOW 54 DOLLARS.
+
+PLAY AGAIN (YES OR NO)? YES
+
+YOUR GUESS? 50
+YOUR GUESS IS TOO LOW.
+
+YOUR GUESS? 75
+YOUR GUESS IS TOO HIGH.
+
+YOUR GUESS? 62
+YOUR GUESS IS TOO LOW.
+
+YOUR GUESS? 68
+YOUR GUESS IS TOO LOW.
+
+YOUR GUESS? 71
+GOT IT!!!!!!!!!!   YOU WIN 71 DOLLARS.
+YOUR TOTAL WINNINGS ARE NOW 125 DOLLARS.
+
+PLAY AGAIN (YES OR NO)? YES
+
+YOUR GUESS? 50
+YOUR GUESS IS TOO LOW.
+
+YOUR GUESS? 75
+YOUR GUESS IS TOO HIGH.
+
+YOUR GUESS? 62
+YOUR GUESS IS TOO HIGH.
+
+YOUR GUESS? 56
+YOUR GUESS IS TOO LOW.
+
+YOUR GUESS? 59
+YOUR GUESS IS TOO LOW.
+
+YOUR GUESS? 61
+YOUR GUESS IS TOO HIGH.
+
+YOU BLEW IT...TOO BAD...THE NUMBER WAS 60 
+
+PLAY AGAIN (YES OR NO)? NO
+
+SO LONG.  HOPE YOU ENJOYED YOURSELF!!!

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

@@ -0,0 +1,210 @@
+2 PRINT TAB(33);"HOCKEY"
+4 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+6 PRINT:PRINT:PRINT
+10 REM ROBERT PUOPOLO ALG. 1 140 MCCOWAN 6/7/73 HOCKEY
+30 LET X=1
+40 PRINT:PRINT:PRINT
+50 PRINT "WOULD YOU LIKE THE INSTRUCTIONS";:INPUT C$
+55 PRINT
+60 IF C$="NO" THEN 90
+65 IF C$="YES" THEN 80
+70 PRINT "ANSWER YES OR NO!!":GOTO 50 
+80 GOTO 1720
+90 DIM A$(7),B$(7),H(20),T(5),T1(5),T2(5),T3(5)
+100 PRINT "ENTER THE TWO TEAMS";:INPUT A$(7),B$(7) 
+105 PRINT
+110 PRINT "ENTER THE NUMBER OF MINUTES IN A GAME";:INPUT T6
+115 PRINT
+120 IF T6<1 THEN 110:PRINT 
+130 PRINT "WOULD THE " A$(7) " COACH ENTER HIS TEAM" 
+135 PRINT
+140 FOR I=1 TO 6:PRINT "PLAYER"I;:INPUT A$(I):NEXT I:PRINT 
+150 PRINT "WOULD THE " B$(7) " COACH DO THE SAME"
+155 PRINT
+160 FOR T=1 TO 6:PRINT "PLAYER"T;:INPUT B$(T):NEXT T:PRINT 
+170 PRINT "INPUT THE REFEREE FOR THIS GAME";:INPUT R$  
+180 PRINT:PRINT TAB(10);A$(7) " STARTING LINEUP" 
+190 FOR T=1 TO 6:PRINT A$(T):NEXT T  
+200 PRINT:PRINT TAB(10);B$(7)" STARTING LINEUP"
+210 FOR T=1 TO 6:PRINT B$(T):NEXT T:PRINT
+220 PRINT "WE'RE READY FOR TONIGHTS OPENING FACE-OFF."
+230 PRINT R$ " WILL DROP THE PUCK BETWEEN " A$(2) " AND " B$(2)
+240 FOR L=1 TO T6:IF L=1 THEN 260
+250 PRINT "AND WE'RE READY FOR THE FACE-OFF" 
+260 C=INT(2*RND(X))+1:ON C GOTO 270,280
+270 PRINT A$(7) " HAS CONTROL OF THE PUCK":GOTO 290
+280 PRINT B$(7) " HAS CONTROL." 
+290 PRINT "PASS";:INPUT P:FOR N=1 TO 3:H(N)=0:NEXT N 
+300 IF P<0 THEN 290
+305 IF P>3 THEN 290
+310 FOR J=1 TO (P+2) 
+320 H(J)=INT(5*RND(X))+1 
+330 NEXT J:IF H(J-1)=H(J-2) THEN 310
+331 IF P+2<3 THEN 350
+335 IF H(J-1)=H(J-3) THEN 310
+340 IF H(J-2)=H(J-3) THEN 310
+350 IF P=0 THEN 360
+355 GOTO 490
+360 INPUT "SHOT";S:IF S<1 THEN 360
+365 IF S>4 THEN 360
+370 ON C GOTO 380,480
+380 PRINT A$(H(J-1));:G=H(J-1):G1=0:G2=0 
+390 ON S GOTO 400,420,440,460
+400 PRINT " LET'S A BOOMER GO FROM THE RED LINE!!" 
+410 Z=10:GOTO 890
+420 PRINT " FLIPS A WRISTSHOT DOWN THE ICE"
+440 PRINT " BACKHANDS ONE IN ON THE GOALTENDER" 
+450 Z=25:GOTO 890
+460 PRINT " SNAPS A LONG FLIP SHOT"
+470 Z=17:GOTO 890
+480 PRINT B$(H(J-1));:G1=0:G2=0:G=H(J-1):GOTO 390
+490 ON C GOTO 500,640
+500 ON P GOTO 510,540,570
+510 PRINT A$(H(J-2)) " LEADS " A$(H(J-1)) " WITH A PERFECT PASS." 
+520 PRINT A$(H(J-1)) " CUTTING IN!!!"
+530 G=H(J-1):G1=H(J-2):G2=0:Z1=3:GOTO 770
+540 PRINT A$(H(J-2)) " GIVES TO A STREAKING " A$(H(J-1))
+550 PRINT A$(H(J-3)) " COMES DOWN ON " B$(5) " AND " B$(4)
+560 G=H(J-3):G1=H(J-1):G2=H(J-2):Z1=2:GOTO 770
+570 PRINT "OH MY GOD!! A ' 4 ON 2 ' SITUATION"
+580 PRINT A$(H(J-3)) " LEADS " A$(H(J-2))
+590 PRINT A$(H(J-2)) " IS WHEEELING THROUGH CENTER."
+600 PRINT A$(H(J-2)) " GIVES AND GOES WITH " A$(H(J-1))
+610 PRINT "PRETTY PASSING!"
+620 PRINT A$(H(J-1)) " DROPS IT TO " A$(H(J-4))
+630 G=H(J-4):G1=J(J-1):G2=H(J-2):Z1=1:GOTO 770
+640 ON P GOTO 650,670,720
+650 PRINT B$(H(J-1)) " HITS " B$(H(J-2)) " FLYING DOWN THE LEFT SIDE" 
+660 G=H(J-2):G1=H(J-1):G2=0:Z1=3:GOTO 770
+670 PRINT "IT'S A ' 3 ON 2 '!"
+680 PRINT "ONLY " A$(4) " AND " A$(5) " ARE BACK."
+690 PRINT B$(H(J-2)) " GIVES OFF TO " B$(H(J-1))
+700 PRINT B$(H(J-1)) " DROPS TO " B$(H(J-3))
+710 G=H(J-3):G1=H(J-1):G2=H(J-2):Z1=2:GOTO 770 
+720 PRINT " A ' 3 ON 2 ' WITH A ' TRAILER '!" 
+730 PRINT B$(H(J-4)) " GIVES TO " B$(H(J-2)) " WHO SHUFFLES IT OFF TO" 
+740 PRINT B$(H(J-1)) " WHO FIRES A WING TO WING PASS TO "
+750 PRINT B$(H(J-3)) " AS HE CUTS IN ALONE!!"    
+760 G=H(J-3):G1=H(J-1):G2=H(J-2):Z1=1:GOTO 770 
+770 PRINT "SHOT";:INPUT S:IF S>4 THEN 770:IF S<1 THEN 770
+780 ON C GOTO 790,880
+790 PRINT A$(G);:ON S GOTO 800,820,840,860 
+800 PRINT " LET'S A BIG SLAP SHOT GO!!"  
+810 Z=4:Z=Z+Z1:GOTO 890
+820 PRINT " RIPS A WRIST SHOT OFF" 
+830 Z=2:Z=Z+Z1:GOTO 890
+840 PRINT " GETS A BACKHAND OFF" 
+850 Z=3:Z=Z+Z1:GOTO 890
+860 PRINT " SNAPS OFF A SNAP SHOT"   
+870 Z=2:Z=Z+Z1:GOTO 890
+880 PRINT B$(G);:ON S GOTO 800,820,840,860 
+890 PRINT "AREA";:INPUT A:IF A<1 THEN 890
+895 IF A>4 THEN 890
+900 ON C GOTO 910,920
+910 S2=S2+1:GOTO 930 
+920 S3=S3+1
+930 A1=INT(4*RND(X))+1:IF A<>A1 THEN 1200
+940 H(20)=INT(100*RND(X))+1
+950 IF INT(H(20)/Z)=H(20)/Z THEN 1160
+960 ON C GOTO 970,980
+970 PRINT "GOAL " A$(7):H(9)=H(9)+1:GOTO 990 
+980 PRINT "SCORE " B$(7):H(8)=H(8)+1   
+990 FOR B1=1 TO 25:PRINT CHR$(7);:NEXT B1:PRINT
+1000 PRINT "SCORE: ";:IF H(8)>H(9) THEN 1020
+1010 PRINT A$(7)":";H(9),B$(7)":";H(8):GOTO 1030
+1020 PRINT B$(7)":";H(8),A$(7)":";H(9)  
+1030 ON C GOTO 1040,1100
+1040 PRINT "GOAL SCORED BY: " A$(G):IF G1=0 THEN 1070
+1050 IF G2=0 THEN 1080
+1060 PRINT " ASSISTED BY: " A$(G1) " AND " A$(G2):GOTO 1090 
+1070 PRINT " UNASSISTED.":GOTO 1090
+1080 PRINT " ASSISTED BY: " A$(G1)
+1090 T(G)=T(G)+1:T1(G1)=T1(G1)+1:T1(G2)=T1(G2)+1:GOTO 1540
+1100 PRINT "GOAL SCORED BY: " B$(G);
+1110 IF G1=0 THEN 1130
+1115 IF G2=0 THEN 1140
+1120 PRINT " ASSISTED BY: " B$(G1) " AND " B$(G2):GOTO 1150 
+1130 PRINT " UNASSISTED":GOTO 1150
+1140 PRINT " ASSISTED BY: " B$(G1):GOTO 1150
+1150 T2(G)=T2(G)+1:T3(G1)=T3(G1)+1:T3(G2)=T3(G2)+1:GOTO 1540
+1160 A2=INT(100*RND(X))+1:IF INT(A2/4)=A2/4 THEN 1170
+1165 GOTO 1200
+1170 ON C GOTO 1180,1190
+1180 PRINT "SAVE " B$(6) " --  REBOUND":GOTO 940
+1190 PRINT "SAVE " A$(6) " --  FOLLOW UP":GOTO 940
+1200 S1=INT(6*RND(X))+1 
+1210 ON C GOTO 1220,1380
+1220 ON S1 GOTO 1230,1260,1290,1300,1330,1350 
+1230 PRINT "KICK SAVE AND A BEAUTY BY " B$(6)
+1240 PRINT "CLEARED OUT BY " B$(3)
+1250 GOTO 260 
+1260 PRINT "WHAT A SPECTACULAR GLOVE SAVE BY " B$(6)
+1270 PRINT "AND " B$(6) " GOLFS IT INTO THE CROWD"
+1280 GOTO 1540
+1290 PRINT "SKATE SAVE ON A LOW STEAMER BY " B$(6):GOTO 260 
+1300 PRINT "PAD SAVE BY " B$(6) " OFF THE STICK" 
+1310 PRINT "OF "A$(G) " AND " B$(6) " COVERS UP"
+1320 GOTO 1540
+1330 PRINT "WHISTLES ONE OVER THE HEAD OF " B$(6) 
+1340 GOTO 260 
+1350 PRINT B$(6) " MAKES A FACE SAVE!! AND HE IS HURT"
+1360 PRINT "THE DEFENSEMAN " B$(5) " COVERS UP FOR HIM" 
+1370 GOTO 1540
+1380 ON S1 GOTO 1390,1410,1440,1470,1490,1520 
+1390 PRINT "STICK SAVE BY " A$(6) 
+1400 PRINT "AND CLEARED OUT BY " A$(4):GOTO 260 
+1410 PRINT "OH MY GOD!! " B$(G) " RATTLES ONE OFF THE POST" 
+1420 PRINT "TO THE RIGHT OF " A$(6) " AND " A$(6) " COVERS "; 
+1430 PRINT "ON THE LOOSE PUCK!":GOTO 1540 
+1440 PRINT "SKATE SAVE BY " A$(6)
+1450 PRINT A$(6) " WHACKS THE LOOSE PUCK INTO THE STANDS" 
+1460 GOTO 1540
+1470 PRINT "STICK SAVE BY " A$(6) " AND HE CLEARS IT OUT HIMSELF" 
+1480 GOTO 260 
+1490 PRINT "KICKED OUT BY " A$(6) 
+1500 PRINT "AND IT REBOUNDS ALL THE WAY TO CENTER ICE"  
+1510 GOTO 260 
+1520 PRINT "GLOVE SAVE " A$(6) " AND HE HANGS ON" 
+1530 GOTO 1540
+1540 NEXT L:FOR N=1 TO 30:PRINT CHR$(7);:NEXT N:PRINT "THAT'S THE SIREN"
+1550 PRINT:PRINT TAB(15);"FINAL SCORE:"
+1560 IF H(8)>H(9) THEN 1580
+1570 PRINT A$(7)":";H(9),B$(7)":";H(8):GOTO 1590
+1580 PRINT B$(7)":";H(8),A$(7)":";H(9)
+1590 PRINT: PRINT TAB(10);"SCORING SUMMARY":PRINT
+1600 PRINT TAB(25);A$(7)
+1610 PRINT TAB(5);"NAME";TAB(20);"GOALS";TAB(35);"ASSISTS"
+1620 PRINT TAB(5);"----";TAB(20);"-----";TAB(35);"-------"
+1630 FOR I=1 TO 5:PRINT TAB(5);A$(I);TAB(21);T(I);TAB(36);T1(I) 
+1640 NEXT I:PRINT 
+1650 PRINT TAB(25);B$(7)
+1660 PRINT TAB(5);"NAME";TAB(20);"GOALS";TAB(35);"ASSISTS"  
+1670 PRINT TAB(5);"----";TAB(20);"-----";TAB(35);"-------"
+1680 FOR T=1 TO 5:PRINT TAB(5);B$(T);TAB(21);T2(T);TAB(36);T3(T)
+1690 NEXT T:PRINT 
+1700 PRINT "SHOTS ON NET":PRINT A$(7)":";S2:PRINT B$(7)":";S3 
+1710 END
+1720 PRINT: PRINT "THIS IS A SIMULATED HOCKEY GAME."
+1730 PRINT "QUESTION     RESPONSE"
+1740 PRINT "PASS         TYPE IN THE NUMBER OF PASSES YOU WOULD"
+1750 PRINT "             LIKE TO MAKE, FROM 0 TO 3."
+1760 PRINT "SHOT         TYPE THE NUMBER CORRESPONDING TO THE SHOT"
+1770 PRINT "             YOU WANT TO MAKE.  ENTER:"
+1780 PRINT "             1 FOR A SLAPSHOT"
+1790 PRINT "             2 FOR A WRISTSHOT"
+1800 PRINT "             3 FOR A BACKHAND"
+1810 PRINT "             4 FOR A SNAP SHOT"
+1820 PRINT "AREA         TYPE IN THE NUMBER CORRESPONDING TO"
+1830 PRINT "             THE AREA YOU ARE AIMING AT.  ENTER:"
+1840 PRINT "             1 FOR UPPER LEFT HAND CORNER"
+1850 PRINT "             2 FOR UPPER RIGHT HAND CORNER"
+1860 PRINT "             3 FOR LOWER LEFT HAND CORNER"
+1870 PRINT "             4 FOR LOWER RIGHT HAND CORNER"
+1880 PRINT
+1890 PRINT "AT THE START OF THE GAME, YOU WILL BE ASKED FOR THE NAMES"
+1900 PRINT "OF YOUR PLAYERS.  THEY ARE ENTERED IN THE ORDER: "
+1910 PRINT "LEFT WING, CENTER, RIGHT WING, LEFT DEFENSE,"
+1920 PRINT "RIGHT DEFENSE, GOALKEEPER.  ANY OTHER INPUT REQUIRED WILL"
+1930 PRINT "HAVE EXPLANATORY INSTRUCTIONS."
+1940 GOTO 90
+1950 END

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

@@ -0,0 +1,59 @@
+YES
+FOO,BAR
+5
+#1
+#2
+#3
+#4
+#5
+#6
+#A
+#B
+#C
+#D
+#E
+#F
+#REF
+NO
+2
+4
+2
+0
+2
+1
+1
+3
+3
+2
+4
+4
+3
+1
+1
+3
+1
+2
+0
+2
+2
+2
+4
+4
+1
+2
+3
+1
+3
+2
+0
+2
+4
+1
+2
+3
+2
+3
+4
+3
+2
+1