basic101 0.1.0

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

@@ -0,0 +1,165 @@
+10 PRINT TAB(33);"SLALOM"
+20 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+30 PRINT:PRINT:PRINT
+310 PRINT "HOW MANY GATES DOES THIS COURSE HAVE (1 TO 25)";
+320 INPUT V
+330 IF V>25 THEN 360
+340 IF V<1 THEN 390
+350 GOTO 1440
+360 PRINT "25 IS THE LIMIT."
+370 LET V=25
+380 GOTO 1440
+390 PRINT "TRY AGAIN,"
+400 GOTO 310
+410 PRINT "RATE YOURSELF AS A SKIER, (1=WORST, 3=BEST)";
+420 INPUT A
+430 IF A<1 THEN 460
+440 IF A>3 THEN 460
+450 GOTO 480
+460 PRINT "THE BOUNDS ARE 1-3"
+470 GOTO 410
+480 PRINT"THE STARTER COUNTS DOWN...5...4...3...2...1...GO!";
+490 REM
+500 LET T=0
+510 LET S=INT(RND(1)*(18-9)+9)
+520 PRINT
+525 PRINT "YOU'RE OFF!"
+530 FOR O=1 TO V
+540    READ Q
+550    PRINT
+555    PRINT "HERE COMES GATE #";STR$(O);":"
+560    PRINT S;"M.P.H."
+570    LET S1=S
+580    PRINT "OPTION";
+590    INPUT O1
+600    IF O1=0 THEN 970
+610   IF O1>8 THEN 1420
+620    IF O1<1 THEN 1420
+630    GOSUB 990
+640    IF S<7 THEN 1390
+650    LET T=T+(Q-S+1)
+660    IF S>Q THEN 1630
+670 NEXT O
+680 PRINT:PRINT "YOU TOOK";(T+RND(1));"SECONDS."
+690 LET M=T
+700 LET M=M/V
+710 IF M<1.5-(A*.1) THEN 1650
+720 IF M<2.9-(A*.1) THEN 1680
+730 IF M<4.4-(A*.01) THEN 1710
+740 PRINT:PRINT "DO YOU WANT TO RACE AGAIN";
+750 INPUT B$
+760 REM
+770 IF B$="NO" THEN 1740
+780 IF B$="YES" THEN 480
+790 PRINT "PLEASE TYPE 'YES' OR 'NO'"
+800 GOTO 740
+810 STOP
+820 PRINT
+825 PRINT "*** SLALOM: THIS IS THE 1976 WINTER OLYMPIC GIANT SLALOM.  YOU ARE"
+830 PRINT "            THE AMERICAN TEAM'S ONLY HOPE OF A GOLD MEDAL."
+840 PRINT
+845 PRINT "     0 -- TYPE THIS IS YOU WANT TO SEE HOW LONG YOU'VE TAKEN."
+850 PRINT "     1 -- TYPE THIS IF YOU WANT TO SPEED UP A LOT."
+860 PRINT "     2 -- TYPE THIS IF YOU WANT TO SPEED UP A LITTLE."
+870 PRINT "     3 -- TYPE THIS IF YOU WANT TO SPEED UP A TEENSY."
+880 PRINT "     4 -- TYPE THIS IF YOU WANT TO KEEP GOING THE SAME SPEED."
+890 PRINT "     5 -- TYPE THIS IF YOU WANT TO CHECK A TEENSY."
+900 PRINT "     6 -- TYPE THIS IF YOU WANT TO CHECK A LITTLE."
+910 PRINT "     7 -- TYPE THIS IF YOU WANT TO CHECK A LOT."
+920 PRINT "     8 -- TYPE THIS IF YOU WANT TO CHEAT AND TRY TO SKIP A GATE."
+930 PRINT
+935 PRINT " THE PLACE TO USE THESE OPTIONS IS WHEN THE COMPUTER ASKS:"
+940 PRINT
+945 PRINT "OPTION?"
+950 PRINT
+955 PRINT "                GOOD LUCK!"
+957 PRINT
+960 GOTO 1470
+970 PRINT "YOU'VE TAKEN";(T+RND(1));"SECONDS."
+980 GOTO 580
+990 ON O1 GOTO 1130,1010,1170,1080,1190,1100,1150,1210
+1000 STOP
+1010 LET S=S+INT(RND(1)*(5-3)+3)
+1020 PRINT S;"M.P.H."
+1030 IF S>Q THEN 1290
+1040 IF S>Q-1 THEN 1060
+1050 RETURN
+1060 PRINT "CLOSE ONE!"
+1070 RETURN
+1080 PRINT S;"M.P.H."
+1090 GOTO 1030
+1100 LET S=S-INT(RND(1)*(5-3)+3)
+1110 PRINT S;"M.P.H."
+1120 GOTO 1030
+1130 LET S=S+INT(RND(1)*(10-5)+5)
+1140 GOTO 1080
+1150 LET S=S-INT(RND(1)*(10-5)+5)
+1160 GOTO 1110
+1170 LET S=S+INT(RND(1)*(4-1)+1)
+1180 GOTO 1110
+1190 LET S=S-INT(RND(1)*(4-1)+1)
+1200 GOTO 1110
+1210 PRINT "***CHEAT"
+1220 IF RND(1)<.7 THEN 1260
+1230 PRINT "YOU MADE IT!"
+1240 LET T=T+1.5
+1250 RETURN
+1260 PRINT "AN OFFICIAL CAUGHT YOU!"
+1270 PRINT "YOU TOOK";(T+RND(1));"SECONDS."
+1280 GOTO 740
+1290 IF RND(1)<((S-Q)*.1)+.2 THEN 1320
+1300 PRINT "YOU WENT OVER THE NAXIMUM SPEED AND MADE IT!"
+1310 RETURN
+1320 PRINT "YOU WENT OVER THE MAXIMUM SPEED AND ";
+1330 IF RND(1)<.5 THEN 1370
+1340 PRINT "WIPED OUT!"
+1350 PRINT "YOU TOOK";(T+RND(1));"SECONDS"
+1360 GOTO 740
+1370 PRINT "SNAGGED A FLAG!"
+1380 GOTO 1350
+1390 PRINT "LET'S BE REALISTIC, OK?  LET'S GO BACK AND TRY AGAIN..."
+1400 LET S=S1
+1410 GOTO 550
+1420 PRINT "WHAT?"
+1430 GOTO 580
+1440 PRINT
+1445 PRINT "TYPE ";CHR$(34);"INS";CHR$(34);" FOR INSTRUCTIONS"
+1450 PRINT "TYPE ";CHR$(34);"MAX";CHR$(34);" FOR APPROXIMATE MAXIMUM SPEEDS"
+1460 PRINT "TYPE ";CHR$(34);"RUN";CHR$(34);" FOR THE BEGINNING OF THE RACE"
+1470 PRINT "COMMAND--";
+1480 INPUT A$
+1490 REM
+1500 IF A$="INS" THEN 820
+1510 IF A$="MAX" THEN 1550
+1520 IF A$="RUN" THEN 410
+1530 PRINT CHR$(34);A$;CHR$(34);" IS AN ILLEGAL COMMAND--RETRY";
+1540 GOTO 1480
+1550 PRINT "GATE MAX"
+1560 PRINT " #  M.P.H."
+1570 PRINT"----------"
+1580 FOR B=1 TO V
+1590    READ Q
+1600    PRINT B;"  ";Q
+1610 NEXT B
+1620 GOTO 1470
+1630 LET T=T+.5
+1640 GOTO 670
+1650 PRINT "YOU WON A GOLD MEDAL!"
+1660 LET G(1)=G(1)+1
+1670 GOTO 1730
+1680 PRINT "YOU WON A SILVER MEDAL"
+1690 LET S(1)=S(1)+1
+1700 GOTO 1730
+1710 PRINT "YOU WON A BRONZE MEDAL"
+1720 LET B(1)=B(1)+1
+1730 GOTO 740
+1740 PRINT "THANKS FOR THE RACE"
+1750 IF G(1)<1 THEN 1770
+1760 PRINT "GOLD MEDALS:";G(1)
+1770 IF S(1)<1 THEN 1790
+1780 PRINT "SILVER MEDALS:";S(1)
+1790 IF B(1)<1 THEN 1830
+1800 PRINT "BRONZE MEDALS:";B(1)
+1810 DATA 14,18,26,29,18,25,28,32,29,20,29,29,25,21,26,29,20,21,20
+1820 DATA 18,26,25,33,31,22
+1830 END

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

@@ -0,0 +1,20 @@
+4
+INS
+MAX
+RUN
+1
+5
+2
+1
+4
+YES
+8
+YES
+8
+YES
+8
+YES
+1
+1
+1
+NO

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

@@ -0,0 +1,122 @@
+                                 SLALOM
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+
+
+HOW MANY GATES DOES THIS COURSE HAVE (1 TO 25)? 4
+
+TYPE "INS" FOR INSTRUCTIONS
+TYPE "MAX" FOR APPROXIMATE MAXIMUM SPEEDS
+TYPE "RUN" FOR THE BEGINNING OF THE RACE
+COMMAND--? INS
+
+*** SLALOM: THIS IS THE 1976 WINTER OLYMPIC GIANT SLALOM.  YOU ARE
+            THE AMERICAN TEAM'S ONLY HOPE OF A GOLD MEDAL.
+
+     0 -- TYPE THIS IS YOU WANT TO SEE HOW LONG YOU'VE TAKEN.
+     1 -- TYPE THIS IF YOU WANT TO SPEED UP A LOT.
+     2 -- TYPE THIS IF YOU WANT TO SPEED UP A LITTLE.
+     3 -- TYPE THIS IF YOU WANT TO SPEED UP A TEENSY.
+     4 -- TYPE THIS IF YOU WANT TO KEEP GOING THE SAME SPEED.
+     5 -- TYPE THIS IF YOU WANT TO CHECK A TEENSY.
+     6 -- TYPE THIS IF YOU WANT TO CHECK A LITTLE.
+     7 -- TYPE THIS IF YOU WANT TO CHECK A LOT.
+     8 -- TYPE THIS IF YOU WANT TO CHEAT AND TRY TO SKIP A GATE.
+
+ THE PLACE TO USE THESE OPTIONS IS WHEN THE COMPUTER ASKS:
+
+OPTION?
+
+                GOOD LUCK!
+
+COMMAND--? MAX
+GATE MAX
+ #  M.P.H.
+----------
+ 1    14 
+ 2    18 
+ 3    26 
+ 4    29 
+COMMAND--? RUN
+RATE YOURSELF AS A SKIER, (1=WORST, 3=BEST)? 1
+THE STARTER COUNTS DOWN...5...4...3...2...1...GO!
+YOU'RE OFF!
+
+HERE COMES GATE #1:
+ 13 M.P.H.
+OPTION? 5
+ 10 M.P.H.
+
+HERE COMES GATE #2:
+ 10 M.P.H.
+OPTION? 2
+ 14 M.P.H.
+
+HERE COMES GATE #3:
+ 14 M.P.H.
+OPTION? 1
+ 21 M.P.H.
+
+HERE COMES GATE #4:
+ 21 M.P.H.
+OPTION? 4
+ 21 M.P.H.
+
+YOU TOOK 41.42365 SECONDS.
+
+DO YOU WANT TO RACE AGAIN? YES
+THE STARTER COUNTS DOWN...5...4...3...2...1...GO!
+YOU'RE OFF!
+
+HERE COMES GATE #1:
+ 14 M.P.H.
+OPTION? 8
+***CHEAT
+AN OFFICIAL CAUGHT YOU!
+YOU TOOK 0.891773 SECONDS.
+
+DO YOU WANT TO RACE AGAIN? YES
+THE STARTER COUNTS DOWN...5...4...3...2...1...GO!
+YOU'RE OFF!
+
+HERE COMES GATE #1:
+ 17 M.P.H.
+OPTION? 8
+***CHEAT
+AN OFFICIAL CAUGHT YOU!
+YOU TOOK 0.791725 SECONDS.
+
+DO YOU WANT TO RACE AGAIN? YES
+THE STARTER COUNTS DOWN...5...4...3...2...1...GO!
+YOU'RE OFF!
+
+HERE COMES GATE #1:
+ 13 M.P.H.
+OPTION? 8
+***CHEAT
+AN OFFICIAL CAUGHT YOU!
+YOU TOOK 0.9255966 SECONDS.
+
+DO YOU WANT TO RACE AGAIN? YES
+THE STARTER COUNTS DOWN...5...4...3...2...1...GO!
+YOU'RE OFF!
+
+HERE COMES GATE #1:
+ 9 M.P.H.
+OPTION? 1
+ 14 M.P.H.
+
+HERE COMES GATE #2:
+ 14 M.P.H.
+OPTION? 1
+ 19 M.P.H.
+
+HERE COMES GATE #3:
+ 19 M.P.H.
+OPTION? 1
+ 28 M.P.H.
+YOU WENT OVER THE MAXIMUM SPEED AND WIPED OUT!
+YOU TOOK 23.97862 SECONDS
+
+DO YOU WANT TO RACE AGAIN? NO
+THANKS FOR THE RACE

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

@@ -0,0 +1,134 @@
+10 PRINT TAB(30);"SLOTS"
+20 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+30 PRINT: PRINT: PRINT
+100 REM PRODUCED BY FRED MIRABELLE AND BOB HARPER ON JAN 29, 1973
+110 REM IT SIMULATES THE SLOT MACHINE.
+120 PRINT "YOU ARE IN THE H&M CASINO,IN FRONT OF ONE OF OUR"
+130 PRINT "ONE-ARM BANDITS. BET FROM $1 TO $100."
+140 PRINT "TO PULL THE ARM, PUNCH THE RETURN KEY AFTER MAKING YOUR BET."
+150 LET P=0
+160 PRINT: PRINT"YOUR BET";
+170 INPUT M
+180 IF M>100 THEN 860
+190 IF M<1 THEN 880
+200 M=INT(M)
+210 GOSUB 1270 
+220 PRINT
+230 LET X=INT(6*RND(1)+1)
+240 LET Y=INT(6*RND(1)+1)
+250 LET Z=INT(6*RND(1)+1)
+260 PRINT
+270 IF X=1 THEN 910
+280 IF X=2 THEN 930
+290 IF X=3 THEN 950
+300 IF X=4 THEN 970
+310 IF X=5 THEN 990
+320 IF X=6 THEN 1010
+330 IF Y=1 THEN 1030
+340 IF Y=2 THEN 1050
+350 IF Y=3 THEN 1070
+360 IF Y=4 THEN 1090
+370 IF Y=5 THEN 1110
+380 IF Y=6 THEN 1130
+390 IF Z=1 THEN 1150
+400 IF Z=2 THEN 1170
+410 IF Z=3 THEN 1190
+420 IF Z=4 THEN 1210
+430 IF Z=5 THEN 1230
+440 IF Z=6 THEN 1250
+450 IF X=Y THEN 600
+460 IF X=Z THEN 630
+470 IF Y=Z THEN 650
+480 PRINT
+490 PRINT "YOU LOST."
+500 LET P=P-M
+510 PRINT "YOUR STANDINGS ARE $"P
+520 PRINT "AGAIN";
+530 INPUT A$
+540 IF A$="Y" THEN 160
+550 PRINT
+560 IF P<0 THEN 670
+570 IF P=0 THEN 690
+580 IF P>0 THEN 710
+590 GOTO 1350
+600 IF Y=Z THEN 730
+610 IF Y=1 THEN 820
+620 GOTO 1341
+630 IF Z=1 THEN 820
+640 GOTO 470
+650 IF Z=1 THEN 820
+660 GOTO 1341
+670 PRINT "PAY UP!  PLEASE LEAVE YOUR MONEY ON THE TERMINAL."
+680 GOTO 1350
+690 PRINT"HEY, YOU BROKE EVEN."
+700 GOTO 1350
+710 PRINT "COLLECT YOUR WINNINGS FROM THE H&M CASHIER."
+720 GOTO 1350
+730 IF Z=1 THEN 780
+740 PRINT: PRINT"**TOP DOLLAR**"
+750 PRINT "YOU WON!"
+760 P=(((10*M)+M)+P)
+770 GOTO 510
+780 PRINT:PRINT"***JACKPOT***"
+790 PRINT "YOU WON!"
+800 P=(((100*M)+M)+P)
+810 GOTO 510
+820 PRINT:PRINT"*DOUBLE BAR*"
+830 PRINT"YOU WON!"
+840 P=(((5*M)+M)+P)
+850 GOTO 510
+860 PRINT"HOUSE LIMITS ARE $100"
+870 GOTO 160
+880 PRINT"MINIMUM BET IS $1"
+890 GOTO 160
+900 GOTO 220
+910 PRINT"BAR";:GOSUB 1310
+920 GOTO 330
+930 PRINT"BELL";:GOSUB 1310
+940 GOTO 330
+950 PRINT"ORANGE";:GOSUB 1310
+960 GOTO 330
+970 PRINT"LEMON";:GOSUB 1310
+980 GOTO 330
+990 PRINT"PLUM";:GOSUB 1310
+1000 GOTO 330
+1010 PRINT"CHERRY";:GOSUB 1310
+1020 GOTO 330
+1030 PRINT" BAR";:GOSUB 1310
+1040 GOTO 390
+1050 PRINT" BELL";:GOSUB 1310
+1060 GOTO 390
+1070 PRINT" ORANGE";:GOSUB 1310
+1080 GOTO 390
+1090 PRINT" LEMON";:GOSUB 1310
+1100 GOTO 390
+1110 PRINT" PLUM";:GOSUB 1310
+1120 GOTO 390
+1130 PRINT" CHERRY";:GOSUB 1310
+1140 GOTO 390
+1150 PRINT" BAR"
+1160 GOTO 450
+1170 PRINT" BELL"
+1180 GOTO 450
+1190 PRINT" ORANGE"
+1200 GOTO 450
+1210 PRINT" LEMON"
+1220 GOTO 450
+1230 PRINT" PLUM"
+1240 GOTO 450
+1250 PRINT" CHERRY"
+1260 GOTO 450
+1270 FOR Q4=1 TO 10 
+1280 PRINT CHR$(7);
+1290 NEXT Q4
+1300 RETURN
+1310 FOR T8=1 TO 5
+1320 PRINT CHR$(7);
+1330 NEXT T8
+1340 RETURN
+1341 PRINT: PRINT "DOUBLE!!"
+1342 PRINT"YOU WON!"
+1343 P=(((2*M)+M)+P)
+1344 GOTO 510
+1350 STOP
+9999 END

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

@@ -0,0 +1,2 @@
+100
+YES

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

@@ -0,0 +1,20 @@
+                              SLOTS
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+
+
+YOU ARE IN THE H&M CASINO,IN FRONT OF ONE OF OUR
+ONE-ARM BANDITS. BET FROM $1 TO $100.
+TO PULL THE ARM, PUNCH THE RETURN KEY AFTER MAKING YOUR BET.
+
+YOUR BET? 100
+
+
+LEMON PLUM LEMON
+
+YOU LOST.
+YOUR STANDINGS ARE $-100 
+AGAIN? YES
+
+PAY UP!  PLEASE LEAVE YOUR MONEY ON THE TERMINAL.
+Break in line 1350

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

@@ -0,0 +1,128 @@
+10 PRINT TAB(33);"SPLAT"
+20 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+40 PRINT:PRINT:PRINT
+50 DIM A(42)
+95 PRINT "WELCOME TO 'SPLAT' -- THE GAME THAT SIMULATES A PARACHUTE"
+96 PRINT "JUMP.  TRY TO OPEN YOUR CHUTE AT THE LAST POSSIBLE" 
+97 PRINT "MOMENT WITHOUT GOING SPLAT."
+118 PRINT:PRINT:D1=0:V=0:A=0:N=0:M=0:D1=INT(9001*RND(1)+1000)
+119 PRINT "SELECT YOUR OWN TERMINAL VELOCITY (YES OR NO)";:INPUT A1$    
+120 IF A1$="NO" GOTO 128
+121 IF A1$<>"YES" THEN PRINT "YES OR NO";:INPUT A1$:GOTO 120
+123 PRINT "WHAT TERMINAL VELOCITY (MI/HR)";:INPUT V1 
+125 V1=V1*(5280/3600):V=V1+((V1*RND(1))/20)-((V1*RND(1))/20):GOTO 135
+128 V1=INT(1000*RND(1))
+130 PRINT "OK.  TERMINAL VELOCITY ="V1"MI/HR"
+131 V1=V1*(5280/3600):V=V1+((V1*RND(1))/20)-((V1*RND(1))/20) 
+135  PRINT "WANT TO SELECT ACCELERATION DUE TO GRAVITY (YES OR NO)"; 
+136 INPUT B1$
+140 IF B1$="NO" GOTO 150
+141 IF B1$<>"YES" THEN PRINT "YES OR NO";:INPUT B1$:GOTO 140
+143 PRINT "WHAT ACCELERATION (FT/SEC/SEC)";:INPUT A2 
+145 A=A2+((A2*RND(1))/20)-((A2*RND(1))/20):GOTO 205
+150 ON INT(1+(10*RND(1)))GOTO 151,152,153,154,155,156,157,158,159,160 
+151 PRINT"FINE. YOU'RE ON MERCURY. ACCELERATION=12.2 FT/SEC/SEC.":GOTO 161
+152 PRINT"ALL RIGHT. YOU'RE ON VENUS. ACCELERATION=28.3 FT/SEC/SEC.":GOTO 162
+153 PRINT "THEN YOU'RE ON EARTH. ACCELERATION=32.16 FT/SEC/SEC.":GOTO 163 
+154 PRINT"FINE. YOU'RE ON THE MOON. ACCELERATION=5.15 FT/SEC/SEC.":GOTO 164
+155 PRINT"ALL RIGHT. YOU'RE ON MARS. ACCELERATION=12.5 FT/SEC/SEC.":GOTO 165 
+156 PRINT"THEN YOU'RE ON JUPITER. ACCELERATION=85.2 FT/SEC/SEC.":GOTO 166
+157 PRINT"FINE. YOU'RE ON SATURN. ACCELERATION=37.6 FT/SEC/SEC.":GOTO 167
+158 PRINT"ALL RIGHT. YOU'RE ON URANUS. ACCELERATION=33.8 FT/SEC/SEC.":GOTO 168 
+159 PRINT"THEN YOU'RE ON NEPTUNE. ACCELERATION=39.6 FT/SEC/SEC.":GOTO 169
+160 PRINT"FINE. YOU'RE ON THE SUN. ACCELERATION=896 FT/SEC/SEC.":GOTO 170
+161 A2=12.2:GOTO 145 
+162 A2=28.3:GOTO 145 
+163 A2=32.16:GOTO 145
+164 A2=5.15:GOTO 145 
+165 A2=12.5:GOTO 145 
+166 A2=85.2:GOTO 145 
+167 A2=37.6:GOTO 145 
+168 A2=33.8 :GOTO 145
+169 A2=39.6:GOTO 145 
+170 A2=896:GOTO 145
+205 PRINT
+206 PRINT "    ALTITUDE         ="D1"FT" 
+207 PRINT "    TERM. VELOCITY   ="V1"FT/SEC +/-5%"
+208 PRINT "    ACCELERATION     ="A2"FT/SEC/SEC +/-5%"
+210 PRINT "SET THE TIMER FOR YOUR FREEFALL."
+211 PRINT "HOW MANY SECONDS";:INPUT T
+215 PRINT "HERE WE GO."
+217 PRINT
+218 PRINT "TIME (SEC)","DIST TO FALL (FT)" 
+219 PRINT "==========","=================" 
+300 FOR I=0 TO T STEP (T/8)
+310 IF I>V/A GOTO 400
+320 D=D1-((A/2)*I^2) 
+330 IF D<=0 GOTO 1000
+340 PRINT I,D
+350 NEXT I 
+360 GOTO 500 
+400 PRINT "TERMINAL VELOCITY REACHED AT T PLUS"V/A"SECONDS."
+405 FOR I=I TO T STEP (T/8)
+410 D=D1-((V^2/(2*A))+(V*(I-(V/A)))) 
+420 IF D<=0 GOTO 1010
+430 PRINT I,D
+440 NEXT I 
+500 PRINT "CHUTE OPEN"
+510 K=0:K1=0 
+550 FOR J=0 TO 42
+555 IF A(J)=0 GOTO 620 
+560 K=K+1
+570 IF D>=A(J) GOTO 600
+580 K1=K1+1
+600 NEXT J 
+610 GOTO 540 
+620 A(J)=D 
+630 IF J>2 THEN 650
+635 PRINT "AMAZING!!! NOT BAD FOR YOUR ";
+636 IF J=0 THEN PRINT "1ST ";
+637 IF J=1 THEN PRINT "2ND ";
+638 IF J=2 THEN PRINT "3RD ";
+639 PRINT "SUCCESSFUL JUMP!!!":GOTO 2000
+650 IF K-K1<=.1*K GOTO 700 
+660 IF K-K1<=.25*K GOTO 710
+670 IF K-K1<=.5*K GOTO 720 
+680 IF K-K1<=.75*K GOTO 730
+690 IF K-K1<=.9*K GOTO 740 
+695 GOTO 750 
+700 PRINT "WOW!  THAT'S SOME JUMPING.  OF THE"K"SUCCESSFUL JUMPS"
+701 PRINT "BEFORE YOURS, ONLY"K-K1"OPENED THEIR CHUTES LOWER THAN" 
+702 PRINT "YOU DID." 
+703 GOTO 2000
+710 PRINT "PRETTY GOOD! " K"SUCCESSFUL JUMPS PRECEDED YOURS AND ONLY"
+711 PRINT K-K1" OF THEM GOT LOWER THAN YOU DID BEFORE THEIR CHUTES"
+712 PRINT "OPENED." :GOTO 2000 
+720 PRINT "NOT BAD.  THERE HAVE BEEN"K"SUCCESSFUL JUMPS BEFORE YOURS." 
+721 PRINT"YOU WERE BEATEN OUT BY"K-K1"OF THEM.":GOTO 2000  
+730 PRINT "CONSERVATIVE, AREN'T YOU?  YOU RANKED ONLY"K-K1"IN THE"
+731 PRINT K"SUCCESSFUL JUMPS BEFORE YOURS.":GOTO 2000
+740 PRINT "HUMPH!  DON'T YOU HAVE ANY SPORTING BLOOD?  THERE WERE" 
+741 PRINT K"SUCCESSFUL JUMPS BEFORE YOURS AND YOU CAME IN"K1"JUMPS"
+742 PRINT "BETTER THAN THE WORST.  SHAPE UP!!!":GOTO 2000
+750 PRINT "HEY!  YOU PULLED THE RIP CORD MUCH TOO SOON.  "K"SUCCESSFUL"
+751 PRINT "JUMPS BEFORE YOURS AND YOU CAME IN NUMBER"K-K1"!  GET WITH IT!" 
+752 GOTO 2000
+800 PRINT "REQUIESCAT IN PACE.":GOTO 1950
+801 PRINT "MAY THE ANGEL OF HEAVEN LEAD YOU INTO PARADISE.":GOTO 1950 
+802 PRINT "REST IN PEACE.":GOTO 1950
+803 PRINT "SON-OF-A-GUN.":GOTO 1950 
+804 PRINT "#$%&&%!$":GOTO 1950 
+805 PRINT "A KICK IN THE PANTS IS A BOOST IF YOU'RE HEADED RIGHT.":GOTO 1950
+806 PRINT "HMMM. SHOULD HAVE PICKED A SHORTER TIME.":GOTO 1950 
+807 PRINT "MUTTER. MUTTER. MUTTER.":GOTO 1950
+808 PRINT "PUSHING UP DAISIES.":GOTO 1950 
+809 PRINT "EASY COME, EASY GO.":GOTO 1950  
+1000 PRINT SQR(2*D1/A),"SPLAT"
+1005 ON INT(1+(10*RND(1)))GOTO 800,801,802,803,804,805,806,807,808,809
+1010 PRINT (V/A)+((D1-(V^2/(2*A)))/V),"SPLAT"
+1020 GOTO 1005
+1950 PRINT "I'LL GIVE YOU ANOTHER CHANCE.":GOTO 2000
+2000 PRINT "DO YOU WANT TO PLAY AGAIN";:INPUT Z$  
+2001 IF Z$="YES" GOTO 118
+2002 IF Z$="NO" GOTO 2005
+2003 PRINT "YES OR NO":GOTO 2000
+2005 PRINT "PLEASE";:INPUT Z$:IF Z$="YES" GOTO 118
+2006 IF Z$<>"NO" THEN PRINT "YES OR NO ";:GOTO 2005
+2007 PRINT "SSSSSSSSSS.":PRINT:GOTO 2046
+2046 END

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

@@ -0,0 +1,9 @@
+NO
+NO
+20
+YES
+NO
+NO
+60
+NO
+NO

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

@@ -0,0 +1,61 @@
+                                 SPLAT
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+
+
+WELCOME TO 'SPLAT' -- THE GAME THAT SIMULATES A PARACHUTE
+JUMP.  TRY TO OPEN YOUR CHUTE AT THE LAST POSSIBLE
+MOMENT WITHOUT GOING SPLAT.
+
+
+SELECT YOUR OWN TERMINAL VELOCITY (YES OR NO)? NO
+OK.  TERMINAL VELOCITY = 715 MI/HR
+WANT TO SELECT ACCELERATION DUE TO GRAVITY (YES OR NO)? NO
+ALL RIGHT. YOU'RE ON MARS. ACCELERATION=12.5 FT/SEC/SEC.
+
+    ALTITUDE         = 5939 FT
+    TERM. VELOCITY   = 1048.667 FT/SEC +/-5%
+    ACCELERATION     = 12.5 FT/SEC/SEC +/-5%
+SET THE TIMER FOR YOUR FREEFALL.
+HOW MANY SECONDS? 20
+HERE WE GO.
+
+TIME (SEC)    DIST TO FALL (FT)
+==========    =================
+ 0             5939 
+ 2.5           5899.531 
+ 5             5781.123 
+ 7.5           5583.776 
+ 10            5307.49 
+ 12.5          4952.266 
+ 15            4518.103 
+ 17.5          4005.002 
+ 20            3412.962 
+CHUTE OPEN
+AMAZING!!! NOT BAD FOR YOUR 1ST SUCCESSFUL JUMP!!!
+DO YOU WANT TO PLAY AGAIN? YES
+
+
+SELECT YOUR OWN TERMINAL VELOCITY (YES OR NO)? NO
+OK.  TERMINAL VELOCITY = 963 MI/HR
+WANT TO SELECT ACCELERATION DUE TO GRAVITY (YES OR NO)? NO
+THEN YOU'RE ON JUPITER. ACCELERATION=85.2 FT/SEC/SEC.
+
+    ALTITUDE         = 9026 FT
+    TERM. VELOCITY   = 1412.4 FT/SEC +/-5%
+    ACCELERATION     = 85.2 FT/SEC/SEC +/-5%
+SET THE TIMER FOR YOUR FREEFALL.
+HOW MANY SECONDS? 60
+HERE WE GO.
+
+TIME (SEC)    DIST TO FALL (FT)
+==========    =================
+ 0             9026 
+ 7.5           6672.589 
+ 14.68791     SPLAT
+REQUIESCAT IN PACE.
+I'LL GIVE YOU ANOTHER CHANCE.
+DO YOU WANT TO PLAY AGAIN? NO
+PLEASE? NO
+SSSSSSSSSS.
+