basic101 0.1.0

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

@@ -0,0 +1,181 @@
+1 PRINT TAB(32);"FOOTBALL"
+2 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+3 PRINT:PRINT:PRINT
+100 REM
+120 DIM A(20),B(20),C(40),H(2),T(2),W(2),X(2),Y(2),Z(2)
+130 DIM M$(2),D(2),P$(20)
+140 PRINT "PRESENTING N.F.U. FOOTBALL (NO FORTRAN USED)"
+145 PRINT:PRINT
+150 INPUT "DO YOU WANT INSTRUCTIONS";A$
+160 IF A$="NO" THEN 290
+165 IF A$<>"YES" THEN 150
+170 PRINT "THIS IS A FOOTBALL GAME FOR TWO TEAMS IN WHICH PLAYERS MUST"
+180 PRINT "PREPARE A TAPE WITH A DATA STATEMENT (1770 FOR TEAM 1,"
+190 PRINT "1780 FOR TEAM 2) IN WHICH EACH TEAM SCRAMBLES NOS. 1-20"
+195 PRINT "THESE NUMBERS ARE THEN ASSIGNED TO TWENTY GIVEN PLAYS."
+200 PRINT"A LIST OF NOS. AND THEIR PLAYS IS PROVIDED WITH"
+210 PRINT "BOTH TEAMS HAVING THE SAME PLAYS. THE MORE SIMILAR THE"
+220 PRINT "PLAYS THE LESS YARDAGE GAINED.  SCORES ARE GIVEN"
+223 PRINT "WHENEVER SCORES ARE MADE. SCORES MAY ALSO BE OBTAINED"
+225 PRINT "BY INPUTTING 99,99 FOR PLAY NOS. TO PUNT OR ATTEMPT A"
+227 PRINT "FIELD GOAL, INPUT 77,77 FOR PLAY NUMBERS. QUESTIONS WILL BE"
+230 PRINT "ASKED THEN. ON 4TH DOWN, YOU WILL ALSO BE ASKED WHETHER"
+240 PRINT "YOU WANT TO PUNT OR ATTEMPT A FIELD GOAL. IF THE ANSWER TO"
+250 PRINT "BOTH QUESTIONS IS NO IT WILL BE ASSUMED YOU WANT TO"
+260 PRINT "TRY AND GAIN YARDAGE. ANSWER ALL QUESTIONS YES OR NO."
+270 PRINT "THE GAME IS PLAYED UNTIL PLAYERS TERMINATE (CONTROL-C)."
+280 PRINT "PLEASE PREPARE A TAPE AND RUN.": STOP
+290 PRINT:PRINT "PLEASE INPUT SCORE LIMIT ON GAME";:INPUT E
+300 FOR I=1 TO 40: READ N: IF I>20 THEN 350
+330 A(N)=I: GOTO 360
+350 B(N)=I-20
+360 C(I)=N: NEXT I
+370 FOR I=1 TO 20: READ P$(I): NEXT I
+380 L=0: T=1
+410 PRINT "TEAM";T;"PLAY CHART"
+420 PRINT "NO.      PLAY"
+430 FOR I=1 TO 20
+440 REM
+450 PRINT C(I+L);TAB(6);P$(I)
+460 NEXT I
+630 L=L+20:T=2
+640 PRINT
+650 PRINT "TEAR OFF HERE----------------------------------------------"
+660 FOR X=1 TO 11: PRINT: NEXT X
+670 FOR Z=1 TO 3000: NEXT Z
+680 IF L=20 THEN 410
+690 D(1)=0: D(2)=3: M$(1)="--->": M$(2)="<---"
+700 H(1)=0: H(2)=0: T(1)=2: T(2)=1
+710 W(1)=-1: W(2)=1: X(1)=100: X(2)=0
+720 Y(1)=1: Y(2)=-1: Z(1)=0: Z(2)=100
+725 GOSUB 1910
+730 PRINT "TEAM 1 DEFENDS 0 YD GOAL -- TEAM 2 DEFENDS 100 YD GOAL."
+740 T=INT(2*RND(1)+1)
+760 PRINT: PRINT "THE COIN IS FLIPPED"
+765 P=X(T)-Y(T)*40
+770 GOSUB 1860: PRINT : PRINT "TEAM";T;"RECEIVES KICK-OFF"
+780 K=INT(26*RND(1)+40)
+790 P=P-Y(T)*K
+794 IF W(T)*P<Z(T)+10 THEN 810
+795 PRINT: PRINT "BALL WENT OUT OF ENDZONE --AUTOMATIC TOUCHBACK--"
+796 GOTO 870 
+810 PRINT "BALL WENT";K;"YARDS.  NOW ON";P:GOSUB 1900
+830 PRINT "TEAM";T;"DO YOU WANT TO RUNBACK";:INPUT A$
+840 IF A$="YES" THEN 1430
+845 IF A$<>"NO" THEN 830
+850 IF W(T)*P<Z(T) THEN 880
+870 P=Z(T)-W(T)*20
+880 D=1: S=P
+885 FOR I=1 TO 72: PRINT "=";: NEXT I
+890 PRINT: PRINT "TEAM";T;"DOWN";D;"ON";P
+893 IF D<>1 THEN 900
+895 IF Y(T)*(P+Y(T)*10)>=X(T) THEN 898
+897 C=4: GOTO 900
+898 C=8
+900 IF C=8 THEN 904
+901 PRINT TAB(27);10-(Y(T)*P-Y(T)*S);"YARDS TO 1ST DOWN"
+902 GOTO 910
+904 PRINT TAB(27);X(T)-Y(T)*P;"YARDS"
+910 GOSUB 1900: IF D=4 THEN 1180
+920 REM
+930 U=INT(3*RND(0)-1): GOTO 940
+936 PRINT "ILLEGAL PLAY NUMBER, CHECK AND"
+940 PRINT "INPUT OFFENSIVE PLAY, DEFENSIVE PLAY";
+950 IF T=2 THEN 970
+960 INPUT P1,P2: GOTO 975
+970 INPUT P2,P1
+975 IF P1=77 THEN 1180
+980 IF P1>20 THEN 1800
+985 IF P1<1 THEN 1800
+990 IF P2>20 THEN 1800
+992 IF P2<1 THEN 1800
+995 P1=INT(P1): P2=INT(P2)
+1000 Y=INT(ABS(A(P1)-B(P2))/19*((X(T)-Y(T)*P+25)*RND(1)-15))
+1005 PRINT: IF T=2 THEN 1015
+1010 IF A(P1)<11 THEN 1048
+1012 GOTO 1020
+1015 IF B(P2)<11 THEN 1048
+1020 IF U<>0 THEN 1035
+1025 PRINT "PASS INCOMPLETE TEAM";T
+1030 Y=0: GOTO 1050
+1035 G=RND(1): IF G>.025 THEN 1040
+1037 IF Y>2 THEN 1045
+1040 PRINT "QUARTERBACK SCRAMBLED": GOTO 1050
+1045 PRINT "PASS COMPLETED": GOTO 1050
+1048 PRINT "THE BALL WAS RUN"
+1050 P=P-W(T)*Y
+1060 PRINT: PRINT "NET YARDS GAINED ON DOWN";D;"ARE ";Y
+1070 G=RND(1): IF G>.025 THEN 1110
+1080 PRINT: PRINT "** LOSS OF POSSESSION FROM TEAM";T;"TO TEAM";T(T)
+1100 GOSUB 1850: PRINT: T=T(T): GOTO 830
+1110 IF Y(T)*P>=X(T) THEN 1320
+1120 IF W(T)*P>=Z(T) THEN 1230
+1130 IF Y(T)*P-Y(T)*S>=10 THEN 880
+1140 D=D+1: IF D<>5 THEN 885
+1160 PRINT: PRINT "CONVERSION UNSUCCESSFUL TEAM";T:T=T(T)
+1170 GOSUB 1850: GOTO 880
+1180 PRINT "DOES TEAM";T;"WANT TO PUNT";: INPUT A$
+1185 IF A$="NO" THEN 1200
+1187 IF A$<>"YES" THEN 1180
+1190 PRINT:PRINT "TEAM";T;"WILL PUNT": G=RND(1): IF G<.025 THEN 1080
+1195 GOSUB 1850: K=INT(25*RND(1)+35): T=T(T): GOTO 790
+1200 PRINT "DOES TEAM";T;"WANT TO ATTEMPT A FIELD GOAL";: INPUT A$
+1210 IF A$="YES" THEN 1640
+1215 IF A$<>"NO" THEN 1200
+1217 GOTO 920
+1230 PRINT: PRINT "SAFETY AGAINST TEAM";T;"**********************OH-OH"
+1240 H(T(T))=H(T(T))+2: GOSUB 1810
+1280 PRINT"TEAM";T;"DO YOU WANT TO PUNT INSTEAD OF A KICKOFF";:INPUT A$
+1290 P=Z(T)-W(T)*20: IF A$="YES" THEN 1190
+1320 PRINT: PRINT "TOUCHDOWN BY TEAM";T;"*********************YEA TEAM"
+1340 Q=7: G=RND(1): IF G>.1 THEN 1380
+1360 Q=6: PRINT "EXTRA POINT NO GOOD": GOTO 1390
+1380 PRINT "EXTRA POINT GOOD"
+1390 H(T)=H(T)+Q: GOSUB 1810
+1420 T=T(T): GOTO 765
+1430 K=INT(9*RND(0)+1)
+1440 R=INT(((X(T)-Y(T)*P+25)*RND(1)-15)/K)
+1460 P=P-W(T)*R
+1480 PRINT:PRINT "RUNBACK TEAM";T;R;"YARDS"
+1485 G=RND(1): IF G<.025 THEN 1080
+1490 IF Y(T)*P>=X(T) THEN 1320
+1500 IF W(T)*P>=Z(T) THEN 1230
+1510 GOTO 880
+1640 PRINT: PRINT "TEAM";T;"WILL ATTEMPT A FIELD GOAL"
+1645 G=RND(1): IF G<.025 THEN 1080
+1650 F=INT(35*RND(1)+20)
+1660 PRINT: PRINT "KICK IS";F;"YARDS LONG"
+1680 P=P-W(T)*F: G=RND(1)
+1690 IF G<.35 THEN 1735
+1700 IF Y(T)*P<X(T) THEN 1740
+1710 PRINT "FIELD GOAL GOOD FOR TEAM";T;"*********************YEA"
+1720 Q=3: GOTO 1390
+1735 PRINT "BALL WENT WIDE"
+1740 PRINT "FIELD GOAL UNSUCCESFUL TEAM";T;"-----------------TOO BAD"
+1742 GOSUB 1850: IF Y(T)*P<X(T)+10 THEN 1745
+1744 T=T(T): GOTO 794
+1745 PRINT: PRINT "BALL NOW ON";P
+1750 T=T(T): GOSUB 1900: GOTO 830
+1770 DATA 17,8,4,14,19,3,10,1,7,11,15,9,5,20,13,18,16,2,12,6
+1780 DATA 20,2,17,5,8,18,12,11,1,4,19,14,10,7,9,15,6,13,16,3
+1790 DATA "PITCHOUT","TRIPLE REVERSE","DRAW","QB SNEAK","END AROUND"
+1792 DATA "DOUBLE REVERSE","LEFT SWEEP","RIGHT SWEEP","OFF TACKLE"
+1794 DATA "WISHBONE OPTION","FLARE PASS","SCREEN PASS"
+1796 DATA "ROLL OUT OPTION","RIGHT CURL","LEFT CURL","WISHBONE OPTION"
+1798 DATA "SIDELINE PASS","HALF-BACK OPTION","RAZZLE-DAZZLE","BOMB!!!!"
+1800 IF P1<>99 THEN 936
+1810 PRINT: PRINT "TEAM 1 SCORE IS";H(1)
+1820 PRINT "TEAM 2 SCORE IS";H(2): PRINT
+1825 IF H(T)<E THEN 1830
+1827 PRINT "TEAM";T;"WINS*******************": GOTO 2000
+1830 IF P1=99 THEN 940
+1835 RETURN
+1850 PRINT
+1860 FOR X=1 TO 72: PRINT "+";: NEXT X: PRINT
+1870 RETURN
+1900 PRINT TAB(D(T)+5+P/2);M$(T)
+1910 PRINT "TEAM 1 [0   10   20   30   40   50   60   70   80   90";
+1915 PRINT "   100] TEAM 2"
+1920 PRINT
+1930 RETURN
+2000 END

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

@@ -0,0 +1,23 @@
+NO
+6
+YES
+1,1
+2,2
+3,3
+4,4
+5,5
+6,6
+NO
+YES
+YES
+1,1
+2,2
+3,3
+3,3
+3,3
+3,3
+3,3
+3,3
+3,3
+3,3
+3,3

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

@@ -0,0 +1,318 @@
+                                FOOTBALL
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+
+
+PRESENTING N.F.U. FOOTBALL (NO FORTRAN USED)
+
+
+DO YOU WANT INSTRUCTIONS? NO
+
+PLEASE INPUT SCORE LIMIT ON GAME? 6
+TEAM 1 PLAY CHART
+NO.      PLAY
+ 17   PITCHOUT
+ 8    TRIPLE REVERSE
+ 4    DRAW
+ 14   QB SNEAK
+ 19   END AROUND
+ 3    DOUBLE REVERSE
+ 10   LEFT SWEEP
+ 1    RIGHT SWEEP
+ 7    OFF TACKLE
+ 11   WISHBONE OPTION
+ 15   FLARE PASS
+ 9    SCREEN PASS
+ 5    ROLL OUT OPTION
+ 20   RIGHT CURL
+ 13   LEFT CURL
+ 18   WISHBONE OPTION
+ 16   SIDELINE PASS
+ 2    HALF-BACK OPTION
+ 12   RAZZLE-DAZZLE
+ 6    BOMB!!!!
+
+TEAR OFF HERE----------------------------------------------
+
+
+
+
+
+
+
+
+
+
+
+TEAM 2 PLAY CHART
+NO.      PLAY
+ 20   PITCHOUT
+ 2    TRIPLE REVERSE
+ 17   DRAW
+ 5    QB SNEAK
+ 8    END AROUND
+ 18   DOUBLE REVERSE
+ 12   LEFT SWEEP
+ 11   RIGHT SWEEP
+ 1    OFF TACKLE
+ 4    WISHBONE OPTION
+ 19   FLARE PASS
+ 14   SCREEN PASS
+ 10   ROLL OUT OPTION
+ 7    RIGHT CURL
+ 9    LEFT CURL
+ 15   WISHBONE OPTION
+ 6    SIDELINE PASS
+ 13   HALF-BACK OPTION
+ 16   RAZZLE-DAZZLE
+ 3    BOMB!!!!
+
+TEAR OFF HERE----------------------------------------------
+
+
+
+
+
+
+
+
+
+
+
+TEAM 1 [0   10   20   30   40   50   60   70   80   90   100] TEAM 2
+
+TEAM 1 DEFENDS 0 YD GOAL -- TEAM 2 DEFENDS 100 YD GOAL.
+
+THE COIN IS FLIPPED
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+
+TEAM 2 RECEIVES KICK-OFF
+BALL WENT 58 YARDS.  NOW ON 98 
+                                                         <---
+TEAM 1 [0   10   20   30   40   50   60   70   80   90   100] TEAM 2
+
+TEAM 2 DO YOU WANT TO RUNBACK? YES
+
+RUNBACK TEAM 2  8 YARDS
+========================================================================
+TEAM 2 DOWN 1 ON 90 
+                            10 YARDS TO 1ST DOWN
+                                                     <---
+TEAM 1 [0   10   20   30   40   50   60   70   80   90   100] TEAM 2
+
+INPUT OFFENSIVE PLAY, DEFENSIVE PLAY? 1,1
+
+THE BALL WAS RUN
+
+NET YARDS GAINED ON DOWN 1 ARE  1 
+========================================================================
+TEAM 2 DOWN 2 ON 89 
+                            9 YARDS TO 1ST DOWN
+                                                    <---
+TEAM 1 [0   10   20   30   40   50   60   70   80   90   100] TEAM 2
+
+INPUT OFFENSIVE PLAY, DEFENSIVE PLAY? 2,2
+
+THE BALL WAS RUN
+
+NET YARDS GAINED ON DOWN 2 ARE  29 
+========================================================================
+TEAM 2 DOWN 1 ON 60 
+                            10 YARDS TO 1ST DOWN
+                                      <---
+TEAM 1 [0   10   20   30   40   50   60   70   80   90   100] TEAM 2
+
+INPUT OFFENSIVE PLAY, DEFENSIVE PLAY? 3,3
+
+QUARTERBACK SCRAMBLED
+
+NET YARDS GAINED ON DOWN 1 ARE  49 
+========================================================================
+TEAM 2 DOWN 1 ON 11 
+                            10 YARDS TO 1ST DOWN
+             <---
+TEAM 1 [0   10   20   30   40   50   60   70   80   90   100] TEAM 2
+
+INPUT OFFENSIVE PLAY, DEFENSIVE PLAY? 4,4
+
+THE BALL WAS RUN
+
+NET YARDS GAINED ON DOWN 1 ARE  1 
+========================================================================
+TEAM 2 DOWN 2 ON 10 
+                            9 YARDS TO 1ST DOWN
+             <---
+TEAM 1 [0   10   20   30   40   50   60   70   80   90   100] TEAM 2
+
+INPUT OFFENSIVE PLAY, DEFENSIVE PLAY? 5,5
+
+THE BALL WAS RUN
+
+NET YARDS GAINED ON DOWN 2 ARE  8 
+========================================================================
+TEAM 2 DOWN 3 ON 2 
+                            1 YARDS TO 1ST DOWN
+         <---
+TEAM 1 [0   10   20   30   40   50   60   70   80   90   100] TEAM 2
+
+INPUT OFFENSIVE PLAY, DEFENSIVE PLAY? 6,6
+
+QUARTERBACK SCRAMBLED
+
+NET YARDS GAINED ON DOWN 3 ARE -2 
+========================================================================
+TEAM 2 DOWN 4 ON 4 
+                            3 YARDS TO 1ST DOWN
+          <---
+TEAM 1 [0   10   20   30   40   50   60   70   80   90   100] TEAM 2
+
+DOES TEAM 2 WANT TO PUNT? NO
+DOES TEAM 2 WANT TO ATTEMPT A FIELD GOAL? YES
+
+TEAM 2 WILL ATTEMPT A FIELD GOAL
+
+KICK IS 50 YARDS LONG
+FIELD GOAL GOOD FOR TEAM 2 *********************YEA
+
+TEAM 1 SCORE IS 0 
+TEAM 2 SCORE IS 3 
+
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+
+TEAM 1 RECEIVES KICK-OFF
+BALL WENT 60 YARDS.  NOW ON 0 
+     --->
+TEAM 1 [0   10   20   30   40   50   60   70   80   90   100] TEAM 2
+
+TEAM 1 DO YOU WANT TO RUNBACK? YES
+
+RUNBACK TEAM 1  5 YARDS
+========================================================================
+TEAM 1 DOWN 1 ON 5 
+                            10 YARDS TO 1ST DOWN
+       --->
+TEAM 1 [0   10   20   30   40   50   60   70   80   90   100] TEAM 2
+
+INPUT OFFENSIVE PLAY, DEFENSIVE PLAY? 1,1
+
+THE BALL WAS RUN
+
+NET YARDS GAINED ON DOWN 1 ARE -1 
+========================================================================
+TEAM 1 DOWN 2 ON 4 
+                            11 YARDS TO 1ST DOWN
+       --->
+TEAM 1 [0   10   20   30   40   50   60   70   80   90   100] TEAM 2
+
+INPUT OFFENSIVE PLAY, DEFENSIVE PLAY? 2,2
+
+PASS INCOMPLETE TEAM 1 
+
+NET YARDS GAINED ON DOWN 2 ARE  0 
+========================================================================
+TEAM 1 DOWN 3 ON 4 
+                            11 YARDS TO 1ST DOWN
+       --->
+TEAM 1 [0   10   20   30   40   50   60   70   80   90   100] TEAM 2
+
+INPUT OFFENSIVE PLAY, DEFENSIVE PLAY? 3,3
+
+THE BALL WAS RUN
+
+NET YARDS GAINED ON DOWN 3 ARE  35 
+========================================================================
+TEAM 1 DOWN 1 ON 39 
+                            10 YARDS TO 1ST DOWN
+                        --->
+TEAM 1 [0   10   20   30   40   50   60   70   80   90   100] TEAM 2
+
+INPUT OFFENSIVE PLAY, DEFENSIVE PLAY? 3,3
+
+THE BALL WAS RUN
+
+NET YARDS GAINED ON DOWN 1 ARE  5 
+========================================================================
+TEAM 1 DOWN 2 ON 44 
+                            5 YARDS TO 1ST DOWN
+                           --->
+TEAM 1 [0   10   20   30   40   50   60   70   80   90   100] TEAM 2
+
+INPUT OFFENSIVE PLAY, DEFENSIVE PLAY? 3,3
+
+THE BALL WAS RUN
+
+NET YARDS GAINED ON DOWN 2 ARE  16 
+========================================================================
+TEAM 1 DOWN 1 ON 60 
+                            10 YARDS TO 1ST DOWN
+                                   --->
+TEAM 1 [0   10   20   30   40   50   60   70   80   90   100] TEAM 2
+
+INPUT OFFENSIVE PLAY, DEFENSIVE PLAY? 3,3
+
+THE BALL WAS RUN
+
+NET YARDS GAINED ON DOWN 1 ARE -11 
+========================================================================
+TEAM 1 DOWN 2 ON 49 
+                            21 YARDS TO 1ST DOWN
+                             --->
+TEAM 1 [0   10   20   30   40   50   60   70   80   90   100] TEAM 2
+
+INPUT OFFENSIVE PLAY, DEFENSIVE PLAY? 3,3
+
+THE BALL WAS RUN
+
+NET YARDS GAINED ON DOWN 2 ARE  23 
+========================================================================
+TEAM 1 DOWN 1 ON 72 
+                            10 YARDS TO 1ST DOWN
+                                         --->
+TEAM 1 [0   10   20   30   40   50   60   70   80   90   100] TEAM 2
+
+INPUT OFFENSIVE PLAY, DEFENSIVE PLAY? 3,3
+
+THE BALL WAS RUN
+
+NET YARDS GAINED ON DOWN 1 ARE  25 
+========================================================================
+TEAM 1 DOWN 1 ON 97 
+                            3 YARDS
+                                                     --->
+TEAM 1 [0   10   20   30   40   50   60   70   80   90   100] TEAM 2
+
+INPUT OFFENSIVE PLAY, DEFENSIVE PLAY? 3,3
+
+THE BALL WAS RUN
+
+NET YARDS GAINED ON DOWN 1 ARE -4 
+========================================================================
+TEAM 1 DOWN 2 ON 93 
+                            7 YARDS
+                                                   --->
+TEAM 1 [0   10   20   30   40   50   60   70   80   90   100] TEAM 2
+
+INPUT OFFENSIVE PLAY, DEFENSIVE PLAY? 3,3
+
+THE BALL WAS RUN
+
+NET YARDS GAINED ON DOWN 2 ARE  5 
+========================================================================
+TEAM 1 DOWN 3 ON 98 
+                            2 YARDS
+                                                      --->
+TEAM 1 [0   10   20   30   40   50   60   70   80   90   100] TEAM 2
+
+INPUT OFFENSIVE PLAY, DEFENSIVE PLAY? 3,3
+
+THE BALL WAS RUN
+
+NET YARDS GAINED ON DOWN 3 ARE  2 
+
+TOUCHDOWN BY TEAM 1 *********************YEA TEAM
+EXTRA POINT GOOD
+
+TEAM 1 SCORE IS 7 
+TEAM 2 SCORE IS 3 
+
+TEAM 1 WINS*******************

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

@@ -0,0 +1,170 @@
+1 DIM F(4) 
+2 PRINT TAB(31);"FUR TRADER"
+4 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+6 PRINT: PRINT: PRINT
+15 GOSUB 1091 
+16 LET I=600
+17 PRINT "DO YOU WISH TO TRADE FURS?"
+18 GOSUB 1402 
+19 IF B$="YES" THEN 100
+20 IF B$="YES " THEN 100
+21 STOP
+100 PRINT
+101 PRINT "YOU HAVE $";I " SAVINGS."
+102 PRINT "AND 190 FURS TO BEGIN THE EXPEDITION."
+261 LET E1=INT((.15*RND(1)+.95)*10^2+.5)/10^2
+262 LET B1=INT((.25*RND(1)+1.00)*10^2+.5)/10^2
+300 PRINT
+301 PRINT "YOUR 190 FURS ARE DISTRIBUTED AMONG THE FOLLOWING"
+302 PRINT "KINDS OF PELTS: MINK, BEAVER, ERMINE AND FOX."
+310 GOSUB 1430 
+315 RESTORE
+330 FOR J=1 TO 4 
+332 READ B$
+333 PRINT  
+335 PRINT "HOW MANY ";B$;" PELTS DO YOU HAVE"; 
+338 INPUT F(J) 
+340 LET F(0)=F(1)+F(2)+F(3)+F(4) 
+342 IF F(0)=190 THEN 1100
+344 IF F(0)>190 THEN 500 
+348 NEXT J 
+350 GOTO 1100 
+500 PRINT
+501 PRINT "YOU MAY NOT HAVE THAT MANY FURS."   
+502 PRINT "DO NOT TRY TO CHEAT.  I CAN ADD." 
+503 PRINT "YOU MUST START AGAIN."
+504 GOTO 15 
+508 PRINT
+511 PRINT "DO YOU WANT TO TRADE FURS NEXT YEAR?"
+513 GOTO 18 
+1091 PRINT "YOU ARE THE LEADER OF A FRENCH FUR TRADING EXPEDITION IN "
+1092 PRINT "1776 LEAVING THE LAKE ONTARIO AREA TO SELL FURS AND GET"  
+1093 PRINT "SUPPLIES FOR THE NEXT YEAR.  YOU HAVE A CHOICE OF THREE"
+1094 PRINT "FORTS AT WHICH YOU MAY TRADE.  THE COST OF SUPPLIES"
+1095 PRINT "AND THE AMOUNT YOU RECEIVE FOR YOUR FURS WILL DEPEND" 
+1096 PRINT "ON THE FORT THAT YOU CHOOSE." 
+1099 RETURN 
+1100 PRINT "YOU MAY TRADE YOUR FURS AT FORT 1, FORT 2,"
+1102 PRINT "OR FORT 3.  FORT 1 IS FORT HOCHELAGA (MONTREAL)"
+1103 PRINT "AND IS UNDER THE PROTECTION OF THE FRENCH ARMY."  
+1104 PRINT "FORT 2 IS FORT STADACONA (QUEBEC) AND IS UNDER THE" 
+1105 PRINT "PROTECTION OF THE FRENCH ARMY.  HOWEVER, YOU MUST"
+1106 PRINT "MAKE A PORTAGE AND CROSS THE LACHINE RAPIDS." 
+1108 PRINT "FORT 3 IS FORT NEW YORK AND IS UNDER DUTCH CONTROL."  
+1109 PRINT "YOU MUST CROSS THROUGH IROQUOIS LAND."
+1110 PRINT "ANSWER 1, 2, OR 3."
+1111 INPUT B
+1112 IF B=1 THEN 1120 
+1113 IF B=2 THEN 1135 
+1115 IF B=3 THEN 1147 
+1116 GOTO 1110 
+1120 PRINT "YOU HAVE CHOSEN THE EASIEST ROUTE.  HOWEVER, THE FORT"  
+1121 PRINT "IS FAR FROM ANY SEAPORT.  THE VALUE"  
+1122 PRINT "YOU RECEIVE FOR YOUR FURS WILL BE LOW AND THE COST"   
+1123 PRINT "OF SUPPLIES HIGHER THAN AT FORTS STADACONA OR NEW YORK."
+1125 GOSUB 1400 
+1129 IF B$="YES" THEN 1110
+1130 GOTO 1160
+1135 PRINT "YOU HAVE CHOSEN A HARD ROUTE.  IT IS, IN COMPARSION," 
+1136 PRINT "HARDER THAN THE ROUTE TO HOCHELAGA BUT EASIER THAN"   
+1137 PRINT "THE ROUTE TO NEW YORK.  YOU WILL RECEIVE AN AVERAGE VALUE"
+1138 PRINT "FOR YOUR FURS AND THE COST OF YOUR SUPPLIES WILL BE AVERAGE."
+1141 GOSUB 1400 
+1144 IF B$="YES" THEN 1110
+1145 GOTO 1198
+1147 PRINT "YOU HAVE CHOSEN THE MOST DIFFICULT ROUTE.  AT"
+1148 PRINT "FORT NEW YORK YOU WILL RECEIVE THE HIGHEST VALUE" 
+1149 PRINT "FOR YOUR FURS.  THE COST OF YOUR SUPPLIES"
+1150 PRINT "WILL BE LOWER THAN AT ALL THE OTHER FORTS."   
+1152 GOSUB 1400 
+1155 IF B$="YES" THEN 1110
+1156 GOTO 1250
+1160 LET I=I-160
+1169 PRINT
+1174 LET M1=INT((.2*RND(1)+.7)*10^2+.5)/10^2
+1175 LET E1=INT((.2*RND(1)+.65)*10^2+.5)/10^2
+1176 LET B1=INT((.2*RND(1)+.75)*10^2+.5)/10^2
+1177 LET D1=INT((.2*RND(1)+.8)*10^2+.5)/10^2
+1180 PRINT "SUPPLIES AT FORT HOCHELAGA COST $150.00."
+1181 PRINT "YOUR TRAVEL EXPENSES TO HOCHELAGA WERE $10.00."
+1190 GOTO 1410 
+1198 LET I=I-140
+1201 PRINT
+1205 LET M1=INT((.3*RND(1)+.85)*10^2+.5)/10^2
+1206 LET E1=INT((.15*RND(1)+.8)*10^2+.5)/10^2
+1207 LET B1=INT((.2*RND(1)+.9)*10^2+.5)/10^2
+1209 LET P=INT(10*RND(1))+1
+1210 IF P<=2 THEN 1216
+1212 IF P<=6 THEN 1224
+1213 IF P<=8 THEN 1226
+1215 IF P<=10 THEN 1235
+1216 LET F(2)=0
+1218 PRINT "YOUR BEAVER WERE TOO HEAVY TO CARRY ACROSS" 
+1219 PRINT "THE PORTAGE.  YOU HAD TO LEAVE THE PELTS, BUT FOUND" 
+1220 PRINT "THEM STOLEN WHEN YOU RETURNED."
+1221 GOSUB 1244 
+1222 GOTO 1414 
+1224 PRINT "YOU ARRIVED SAFELY AT FORT STADACONA." 
+1225 GOTO 1239 
+1226 GOSUB 1430 
+1230 PRINT "YOUR CANOE UPSET IN THE LACHINE RAPIDS.  YOU"   
+1231 PRINT "LOST ALL YOUR FURS." 
+1232 GOSUB 1244 
+1233 GOTO 1418 
+1235 LET F(4)=0 
+1237 PRINT "YOUR FOX PELTS WERE NOT CURED PROPERLY."
+1238 PRINT "NO ONE WILL BUY THEM."
+1239 GOSUB 1244 
+1240 GOTO 1410 
+1244 PRINT "SUPPLIES AT FORT STADACONA COST $125.00."
+1246 PRINT "YOUR TRAVEL EXPENSES TO STADACONA WERE $15.00."
+1248 RETURN 
+1250 LET I=I-105
+1254 PRINT
+1260 LET M1=INT((.15*RND(1)+1.05)*10^2+.5)/10^2
+1263 LET D1=INT((.25*RND(1)+1.1)*10^2+.5)/10^2
+1270 LET P=INT(10*RND(1))+1
+1271 IF P<=2 THEN 1281
+1272 IF P<=6 THEN 1291
+1273 IF P<=8 THEN 1295
+1274 IF P<=10 THEN 1306
+1281 PRINT "YOU WERE ATTACKED BY A PARTY OF IROQUOIS."
+1282 PRINT "ALL PEOPLE IN YOUR TRADING GROUP WERE"    
+1283 PRINT "KILLED.  THIS ENDS THE GAME." 
+1284 STOP 
+1291 PRINT "YOU WERE LUCKY.  YOU ARRIVED SAFELY"
+1292 PRINT "AT FORT NEW YORK."
+1293 GOTO 1311 
+1295 GOSUB 1430 
+1300 PRINT "YOU NARROWLY ESCAPED AN IROQUOIS RAIDING PARTY."
+1301 PRINT "HOWEVER, YOU HAD TO LEAVE ALL YOUR FURS BEHIND."
+1303 GOSUB 1320 
+1304 GOTO 1418 
+1306 LET B1=B1/2
+1307 LET M1=M1/2
+1308 PRINT "YOUR MINK AND BEAVER WERE DAMAGED ON YOUR TRIP."
+1309 PRINT "YOU RECEIVE ONLY HALF THE CURRENT PRICE FOR THESE FURS."
+1311 GOSUB 1320
+1312 GOTO 1410 
+1320 PRINT "SUPPLIES AT NEW YORK COST $80.00." 
+1321 PRINT "YOUR TRAVEL EXPENSES TO NEW YORK WERE $25.00."
+1322 RETURN 
+1400 PRINT "DO YOU WANT TO TRADE AT ANOTHER FORT?"
+1402 PRINT "ANSWER YES OR NO",
+1403 INPUT B$
+1404 RETURN 
+1410 PRINT
+1412 PRINT "YOUR BEAVER SOLD FOR $";B1*F(2);
+1414 PRINT "YOUR FOX SOLD FOR $";D1*F(4)
+1416 PRINT "YOUR ERMINE SOLD FOR $";E1*F(3);
+1417 PRINT "YOUR MINK SOLD FOR $";M1*F(1)
+1418 LET I=M1*F(1)+B1*F(2)+E1*F(3)+D1*F(4)+I
+1420 PRINT
+1422 PRINT "YOU NOW HAVE $";I;" INCLUDING YOUR PREVIOUS SAVINGS"
+1425 GOTO 508
+1430 FOR J=1 TO 4 
+1432 LET F(J)=0 
+1434 NEXT J 
+1436 RETURN 
+2000 DATA "MINK","BEAVER","ERMINE","FOX"
+2046 END

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

@@ -0,0 +1,20 @@
+YES
+60
+60
+70
+1
+NO
+YES
+70
+60
+60
+2
+NO
+YES
+60
+70
+60
+3
+YES
+3
+NO