basic101 0.1.0

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

@@ -0,0 +1,127 @@
+10 REM INSTRUCTIONS FOR "SUPER STARTREK"  MAR 5, 1978
+20 FOR I=1 TO 12:PRINT:NEXT I
+21 PRINT TAB(10);"*************************************"
+22 PRINT TAB(10);"*                                   *"
+23 PRINT TAB(10);"*                                   *"
+30 PRINT TAB(10);"*      * * SUPER STAR TREK * *      *"
+31 PRINT TAB(10);"*                                   *"
+32 PRINT TAB(10);"*                                   *"
+35 PRINT TAB(10);"*************************************"
+36 FOR I=1 TO 8:PRINT:NEXT I
+40 INPUT "DO YOU NEED INSTRUCTIONS (Y/N)";K$:IF K$="N" THEN 2000
+44 PRINT
+45 REM PRINT "TURN THE TTY ON-LINE AND HIT ANY KEY EXCEPT RETURN"
+46 REM IF INP(1)=13 THEN 46
+50 REM POKE 1229,2:POKE 1237,3:NULL 1
+90 PRINT"      INSTRUCTIONS FOR 'SUPER STAR TREK'"
+100 PRINT
+110 PRINT"1. WHEN YOU SEE \COMMAND ?\ PRINTED, ENTER ONE OF THE LEGAL"
+120 PRINT"     COMMANDS (NAV,SRS,LRS,PHA,TOR,SHE,DAM,COM, OR XXX)."
+130 PRINT"2. IF YOU SHOULD TYPE IN AN ILLEGAL COMMAND, YOU'LL GET A SHORT"
+140 PRINT"     LIST OF THE LEGAL COMMANDS PRINTED OUT."
+150 PRINT"3. SOME COMMANDS REQUIRE YOU TO ENTER DATA (FOR EXAMPLE, THE"
+160 PRINT"     'NAV' COMMAND COMES BACK WITH 'COURSE (1-9) ?'.)  IF YOU"
+170 PRINT"     TYPE IN ILLEGAL DATA (LIKE NEGATIVE NUMBERS), THAN COMMAND"
+180 PRINT"     WILL BE ABORTED"
+190 PRINT
+270 PRINT"     THE GALAXY IS DIVIDED INTO AN 8 X 8 QUADRANT GRID,"
+280 PRINT"AND EACH QUADRANT IS FURTHER DIVIDED INTO AN 8 X 8 SECTOR GRID."
+290 PRINT
+300 PRINT"     YOU WILL BE ASSIGNED A STARTING POINT SOMEWHERE IN THE"
+310 PRINT"GALAXY TO BEGIN A TOUR OF DUTY AS COMANDER OF THE STARSHIP"
+320 PRINT"\ENTERPRISE\; YOUR MISSION: TO SEEK AND DESTROY THE FLEET OF"
+330 PRINT"KLINGON WARWHIPS WHICH ARE MENACING THE UNITED FEDERATION OF"
+340 PRINT"PLANETS."
+360 PRINT
+370 PRINT"     YOU HAVE THE FOLLOWING COMMANDS AVAILABLE TO YOU AS CAPTAIN"
+380 PRINT"OF THE STARSHIP ENTERPRISE:"
+385 PRINT
+390 PRINT"\NAV\ COMMAND = WARP ENGINE CONTROL --"
+400 PRINT"     COURSE IS IN A CIRCULAR NUMERICAL      4  3  2"
+410 PRINT"     VECTOR ARRANGEMENT AS SHOWN             . . ."
+420 PRINT"     INTEGER AND REAL VALUES MAY BE           ..."
+430 PRINT"     USED.  (THUS COURSE 1.5 IS HALF-     5 ---*--- 1"
+440 PRINT"     WAY BETWEEN 1 AND 2                      ..."
+450 PRINT"                                             . . ."
+460 PRINT"     VALUES MAY APPROACH 9.0, WHICH         6  7  8"
+470 PRINT"     ITSELF IS EQUIVALENT TO 1.0"         
+480 PRINT"                                            COURSE"
+490 PRINT"     ONE WARP FACTOR IS THE SIZE OF "
+500 PRINT"     ONE QUADTANT.  THEREFORE, TO GET"
+510 PRINT"     FROM QUADRANT 6,5 TO 5,5, YOU WOULD"
+520 PRINT"     USE COURSE 3, WARP FACTOR 1."
+530 PRINT
+540 PRINT"\SRS\ COMMAND = SHORT RANGE SENSOR SCAN"
+550 PRINT"     SHOWS YOU A SCAN OF YOUR PRESENT QUADRANT."
+555 PRINT
+560 PRINT"     SYMBOLOGY ON YOUR SENSOR SCREEN IS AS FOLLOWS:"
+570 PRINT"        <*> = YOUR STARSHIP'S POSITION"
+580 PRINT"        +K+ = KLINGON BATTLE CRUISER"
+590 PRINT"        >!< = FEDERATION STARBASE (REFUEL/REPAIR/RE-ARM HERE!)"
+600 PRINT"         *  = STAR"
+605 PRINT
+610 PRINT"     A CONDENSED 'STATUS REPORT' WILL ALSO BE PRESENTED."
+620 PRINT
+640 PRINT"\LRS\ COMMAND = LONG RANGE SENSOR SCAN"
+650 PRINT"     SHOWS CONDITIONS IN SPACE FOR ONE QUADRANT ON EACH SIDE"
+660 PRINT"     OF THE ENTERPRISE (WHICH IS IN THE MIDDLE OF THE SCAN)"
+670 PRINT"     THE SCAN IS CODED IN THE FORM \###\, WHERE TH UNITS DIGIT"
+680 PRINT"     IS THE NUMBER OF STARS, THE TENS DIGIT IS THE NUMBER OF"
+690 PRINT"     STARBASES, AND THE HUNDRESDS DIGIT IS THE NUMBER OF"
+700 PRINT"     KLINGONS."
+705 PRINT
+706 PRINT"     EXAMPLE - 207 = 2 KLINGONS, NO STARBASES, & 7 STARS."
+710 PRINT
+720 PRINT"\PHA\ COMMAND = PHASER CONTROL."
+730 PRINT"     ALLOWS YOU TO DESTROY THE KLINGON BATTLE CRUISERS BY "
+740 PRINT"     ZAPPING THEM WITH SUITABLY LARGE UNITS OF ENERGY TO"
+750 PRINT"     DEPLETE THEIR SHIELD POWER.  (REMBER, KLINGONS HAVE"
+760 PRINT"     PHASERS TOO!)"
+770 PRINT
+780 PRINT"\TOR\ COMMAND = PHOTON TORPEDO CONTROL"
+790 PRINT"     TORPEDO COURSE IS THE SAME AS USED IN WARP ENGINE CONTROL"
+800 PRINT"     IF YOU HIT THE KLINGON VESSEL, HE IS DESTROYED AND"
+810 PRINT"     CANNOT FIRE BACK AT YOU.  IF YOU MISS, YOU ARE SUBJECT TO"
+820 PRINT"     HIS PHASER FIRE.  IN EITHER CASE, YOU ARE ALSO SUBJECT TO "
+825 PRINT"     THE PHASER FIRE OF ALL OTHER KLINGONS IN THE QUADRANT."
+830 PRINT
+835 PRINT"     THE LIBRARY-COMPUTER (\COM\ COMMAND) HAS AN OPTION TO "
+840 PRINT"     COMPUTE TORPEDO TRAJECTORY FOR YOU (OPTION 2)"
+850 PRINT
+860 PRINT"\SHE\ COMMAND = SHIELD CONTROL"
+870 PRINT"     DEFINES THE NUMBER OF ENERGY UNITS TO BE ASSIGNED TO THE"
+880 PRINT"     SHIELDS.  ENERGY IS TAKEN FROM TOTAL SHIP'S ENERGY.  NOTE"
+890 PRINT"     THAN THE STATUS DISPLAY TOTAL ENERGY INCLUDES SHIELD ENERGY"
+900 PRINT
+910 PRINT"\DAM\ COMMAND = DAMMAGE CONTROL REPORT"
+920 PRINT"     GIVES THE STATE OF REPAIR OF ALL DEVICES.  WHERE A NEGATIVE"
+930 PRINT"     'STATE OF REPAIR' SHOWS THAT THE DEVICE IS TEMPORARILY"
+940 PRINT"     DAMAGED."
+950 PRINT
+960 PRINT"\COM\ COMMAND = LIBRARY-COMPUTER"
+970 PRINT"     THE LIBRARY-COMPUTER CONTAINS SIX OPTIONS:"
+980 PRINT"     OPTION 0 = CUMULATIVE GALACTIC RECORD"
+990 PRINT"        THIS OPTION SHOWES COMPUTER MEMORY OF THE RESULTS OF ALL"
+1000 PRINT"        PREVIOUS SHORT AND LONG RANGE SENSOR SCANS"
+1010 PRINT"     OPTION 1 = STATUS REPORT"
+1020 PRINT"        THIS OPTION SHOWS THE NUMBER OF KLINGONS, STARDATES,"
+1030 PRINT"        AND STARBASES REMAINING IN THE GAME."
+1040 PRINT"     OPTION 2 = PHOTON TORPEDO DATA"
+1050 PRINT"        WHICH GIVES DIRECTIONS AND DISTANCE FROM THE ENTERPRISE"
+1060 PRINT"        TO ALL KLINGONS IN YOUR QUADRANT"
+1070 PRINT"     OPTION 3 = STARBASE NAV DATA"
+1080 PRINT"        THIS OPTION GIVES DIRECTION AND DISTANCE TO ANY "
+1090 PRINT"        STARBASE WITHIN YOUR QUADRANT"
+1100 PRINT"     OPTION 4 = DIRECTION/DISTANCE CALCULATOR"
+1110 PRINT"        THIS OPTION ALLOWS YOU TO ENTER COORDINATES FOR"
+1120 PRINT"        DIRECTION/DISTANCE CALCULATIONS"
+1130 PRINT"     OPTION 5 = GALACTIC /REGION NAME/ MAP"
+1140 PRINT"        THIS OPTION PRINTS THE NAMES OF THE SIXTEEN MAJOR "
+1150 PRINT"        GALACTIC REGIONS REFERRED TO IN THE GAME."
+1990 REM POKE 1229,0:POKE 1237,1:NULL 0
+2000 REM PRINT:PRINT:PRINT
+2010 REM PRINT "TURN CASSETTE PLAYER ON AND HIT ANY KEY EXCEPT RETURN"
+2020 REM IF INP(1)=13 THEN 2020
+2030 REM PRINT
+2040 REM PRINT "TURN CASSETTE PLAYER OFF AND "
+2050 REM PRINT "TYPE 'RUN' WHEN COMPUTER PRINTS 'OK'"

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

@@ -0,0 +1 @@
+Y

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

@@ -0,0 +1,134 @@
+
+
+
+
+
+
+
+
+
+
+
+
+          *************************************
+          *                                   *
+          *                                   *
+          *      * * SUPER STAR TREK * *      *
+          *                                   *
+          *                                   *
+          *************************************
+
+
+
+
+
+
+
+
+DO YOU NEED INSTRUCTIONS (Y/N)? Y
+
+      INSTRUCTIONS FOR 'SUPER STAR TREK'
+
+1. WHEN YOU SEE \COMMAND ?\ PRINTED, ENTER ONE OF THE LEGAL
+     COMMANDS (NAV,SRS,LRS,PHA,TOR,SHE,DAM,COM, OR XXX).
+2. IF YOU SHOULD TYPE IN AN ILLEGAL COMMAND, YOU'LL GET A SHORT
+     LIST OF THE LEGAL COMMANDS PRINTED OUT.
+3. SOME COMMANDS REQUIRE YOU TO ENTER DATA (FOR EXAMPLE, THE
+     'NAV' COMMAND COMES BACK WITH 'COURSE (1-9) ?'.)  IF YOU
+     TYPE IN ILLEGAL DATA (LIKE NEGATIVE NUMBERS), THAN COMMAND
+     WILL BE ABORTED
+
+     THE GALAXY IS DIVIDED INTO AN 8 X 8 QUADRANT GRID,
+AND EACH QUADRANT IS FURTHER DIVIDED INTO AN 8 X 8 SECTOR GRID.
+
+     YOU WILL BE ASSIGNED A STARTING POINT SOMEWHERE IN THE
+GALAXY TO BEGIN A TOUR OF DUTY AS COMANDER OF THE STARSHIP
+\ENTERPRISE\; YOUR MISSION: TO SEEK AND DESTROY THE FLEET OF
+KLINGON WARWHIPS WHICH ARE MENACING THE UNITED FEDERATION OF
+PLANETS.
+
+     YOU HAVE THE FOLLOWING COMMANDS AVAILABLE TO YOU AS CAPTAIN
+OF THE STARSHIP ENTERPRISE:
+
+\NAV\ COMMAND = WARP ENGINE CONTROL --
+     COURSE IS IN A CIRCULAR NUMERICAL      4  3  2
+     VECTOR ARRANGEMENT AS SHOWN             . . .
+     INTEGER AND REAL VALUES MAY BE           ...
+     USED.  (THUS COURSE 1.5 IS HALF-     5 ---*--- 1
+     WAY BETWEEN 1 AND 2                      ...
+                                             . . .
+     VALUES MAY APPROACH 9.0, WHICH         6  7  8
+     ITSELF IS EQUIVALENT TO 1.0
+                                            COURSE
+     ONE WARP FACTOR IS THE SIZE OF 
+     ONE QUADTANT.  THEREFORE, TO GET
+     FROM QUADRANT 6,5 TO 5,5, YOU WOULD
+     USE COURSE 3, WARP FACTOR 1.
+
+\SRS\ COMMAND = SHORT RANGE SENSOR SCAN
+     SHOWS YOU A SCAN OF YOUR PRESENT QUADRANT.
+
+     SYMBOLOGY ON YOUR SENSOR SCREEN IS AS FOLLOWS:
+        <*> = YOUR STARSHIP'S POSITION
+        +K+ = KLINGON BATTLE CRUISER
+        >!< = FEDERATION STARBASE (REFUEL/REPAIR/RE-ARM HERE!)
+         *  = STAR
+
+     A CONDENSED 'STATUS REPORT' WILL ALSO BE PRESENTED.
+
+\LRS\ COMMAND = LONG RANGE SENSOR SCAN
+     SHOWS CONDITIONS IN SPACE FOR ONE QUADRANT ON EACH SIDE
+     OF THE ENTERPRISE (WHICH IS IN THE MIDDLE OF THE SCAN)
+     THE SCAN IS CODED IN THE FORM \###\, WHERE TH UNITS DIGIT
+     IS THE NUMBER OF STARS, THE TENS DIGIT IS THE NUMBER OF
+     STARBASES, AND THE HUNDRESDS DIGIT IS THE NUMBER OF
+     KLINGONS.
+
+     EXAMPLE - 207 = 2 KLINGONS, NO STARBASES, & 7 STARS.
+
+\PHA\ COMMAND = PHASER CONTROL.
+     ALLOWS YOU TO DESTROY THE KLINGON BATTLE CRUISERS BY 
+     ZAPPING THEM WITH SUITABLY LARGE UNITS OF ENERGY TO
+     DEPLETE THEIR SHIELD POWER.  (REMBER, KLINGONS HAVE
+     PHASERS TOO!)
+
+\TOR\ COMMAND = PHOTON TORPEDO CONTROL
+     TORPEDO COURSE IS THE SAME AS USED IN WARP ENGINE CONTROL
+     IF YOU HIT THE KLINGON VESSEL, HE IS DESTROYED AND
+     CANNOT FIRE BACK AT YOU.  IF YOU MISS, YOU ARE SUBJECT TO
+     HIS PHASER FIRE.  IN EITHER CASE, YOU ARE ALSO SUBJECT TO 
+     THE PHASER FIRE OF ALL OTHER KLINGONS IN THE QUADRANT.
+
+     THE LIBRARY-COMPUTER (\COM\ COMMAND) HAS AN OPTION TO 
+     COMPUTE TORPEDO TRAJECTORY FOR YOU (OPTION 2)
+
+\SHE\ COMMAND = SHIELD CONTROL
+     DEFINES THE NUMBER OF ENERGY UNITS TO BE ASSIGNED TO THE
+     SHIELDS.  ENERGY IS TAKEN FROM TOTAL SHIP'S ENERGY.  NOTE
+     THAN THE STATUS DISPLAY TOTAL ENERGY INCLUDES SHIELD ENERGY
+
+\DAM\ COMMAND = DAMMAGE CONTROL REPORT
+     GIVES THE STATE OF REPAIR OF ALL DEVICES.  WHERE A NEGATIVE
+     'STATE OF REPAIR' SHOWS THAT THE DEVICE IS TEMPORARILY
+     DAMAGED.
+
+\COM\ COMMAND = LIBRARY-COMPUTER
+     THE LIBRARY-COMPUTER CONTAINS SIX OPTIONS:
+     OPTION 0 = CUMULATIVE GALACTIC RECORD
+        THIS OPTION SHOWES COMPUTER MEMORY OF THE RESULTS OF ALL
+        PREVIOUS SHORT AND LONG RANGE SENSOR SCANS
+     OPTION 1 = STATUS REPORT
+        THIS OPTION SHOWS THE NUMBER OF KLINGONS, STARDATES,
+        AND STARBASES REMAINING IN THE GAME.
+     OPTION 2 = PHOTON TORPEDO DATA
+        WHICH GIVES DIRECTIONS AND DISTANCE FROM THE ENTERPRISE
+        TO ALL KLINGONS IN YOUR QUADRANT
+     OPTION 3 = STARBASE NAV DATA
+        THIS OPTION GIVES DIRECTION AND DISTANCE TO ANY 
+        STARBASE WITHIN YOUR QUADRANT
+     OPTION 4 = DIRECTION/DISTANCE CALCULATOR
+        THIS OPTION ALLOWS YOU TO ENTER COORDINATES FOR
+        DIRECTION/DISTANCE CALCULATIONS
+     OPTION 5 = GALACTIC /REGION NAME/ MAP
+        THIS OPTION PRINTS THE NAMES OF THE SIXTEEN MAJOR 
+        GALACTIC REGIONS REFERRED TO IN THE GAME.

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

@@ -0,0 +1,53 @@
+2 PRINT TAB(33);"SYNONYM"
+4 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+6 PRINT: PRINT: PRINT
+10 DIM R$(5),W$(10),L(30),R(30)
+20 R$(1)="RIGHT": R$(2)="CORRECT": R$(3)="FINE": R$(4)="GOOD!"
+30 R$(5)="CHECK"
+70 C=0
+90 PRINT "A SYNONYM OF A WORD MEANS ANOTHER WORD IN THE ENGLISH"
+100 PRINT "LANGUAGE WHICH HAS THE SAME OR VERY NEARLY THE SAME";
+110 PRINT " MEANING."
+130 PRINT "I CHOOSE A WORD -- YOU TYPE A SYNONYM."
+140 PRINT "IF YOU CAN'T THINK OF A SYNONYM, TYPE THE WORD 'HELP'"
+145 PRINT "AND I WILL TELL YOU A SYNONYM.": PRINT
+150 RESTORE: C=C+1: READ N
+160 IF C>N THEN 420
+170 N1=INT(RND(1)*N+1)
+174 IF R(N1)=1 THEN 170
+176 R(N1)=1
+180 FOR I=1 TO N1
+190 READ N2
+200 FOR J=1 TO N2
+210 READ W$(J)
+220 NEXT J
+230 NEXT I
+232 FOR J=1 TO N2: L(J)=J: NEXT J
+235 L(0)=N2: G=1: PRINT
+237 L(G)=L(L(0)): L(0)=N2-1: PRINT
+240 PRINT "     WHAT IS A SYNONYM OF ";W$(G);: INPUT A$
+250 IF A$="HELP" THEN 340
+260 FOR K=1 TO N2
+270 IF G=K THEN 290
+280 IF A$=W$(K) THEN 320
+290 NEXT K
+300 PRINT "     TRY AGAIN.": GOTO 240
+320 PRINT R$(INT(RND(1)*5+1)): GOTO 150
+340 G1=INT(RND(1)*L(0)+1)
+360 PRINT "**** A SYNONYM OF ";W$(G);" IS ";W$(L(G1));".": PRINT
+370 L(G1)=L(L(0)): L(0)=L(0)-1: GOTO 240
+420 PRINT: PRINT "SYNONYM DRILL COMPLETED.": GOTO 999
+500 DATA 10
+510 DATA 5,"FIRST","START","BEGINNING","ONSET","INITIAL"
+520 DATA 5,"SIMILAR","ALIKE","SAME","LIKE","RESEMBLING"
+530 DATA 5,"MODEL","PATTERN","PROTOTYPE","STANDARD","CRITERION"
+540 DATA 5,"SMALL","INSIGNIFICANT","LITTLE","TINY","MINUTE"
+550 DATA 6,"STOP","HALT","STAY","ARREST","CHECK","STANDSTILL"
+560 DATA 6,"HOUSE","DWELLING","RESIDENCE","DOMICILE","LODGING"
+565 DATA "HABITATION"
+570 DATA 7,"PIT","HOLE","HOLLOW","WELL","GULF","CHASM","ABYSS"
+580 DATA 7,"PUSH","SHOVE","THRUST","PROD","POKE","BUTT","PRESS"
+590 DATA 6,"RED","ROUGE","SCARLET","CRIMSON","FLAME","RUBY"
+600 DATA 7,"PAIN","SUFFERING","HURT","MISERY","DISTRESS","ACHE"
+605 DATA "DISCOMFORT"
+999 END

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

@@ -0,0 +1,13 @@
+DWELLING
+HOLE
+HALT
+COMMUNIST
+MAGENTA
+HELP
+FLAME
+SHOVE
+HURT
+SUPERIOR
+ALPHA
+HELP
+INITIAL

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

@@ -0,0 +1,57 @@
+                                 SYNONYM
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+
+
+A SYNONYM OF A WORD MEANS ANOTHER WORD IN THE ENGLISH
+LANGUAGE WHICH HAS THE SAME OR VERY NEARLY THE SAME MEANING.
+I CHOOSE A WORD -- YOU TYPE A SYNONYM.
+IF YOU CAN'T THINK OF A SYNONYM, TYPE THE WORD 'HELP'
+AND I WILL TELL YOU A SYNONYM.
+
+
+
+     WHAT IS A SYNONYM OF HOUSE? DWELLING
+GOOD!
+
+
+     WHAT IS A SYNONYM OF PIT? HOLE
+FINE
+
+
+     WHAT IS A SYNONYM OF STOP? HALT
+GOOD!
+
+
+     WHAT IS A SYNONYM OF RED? COMMUNIST
+     TRY AGAIN.
+     WHAT IS A SYNONYM OF RED? MAGENTA
+     TRY AGAIN.
+     WHAT IS A SYNONYM OF RED? HELP
+**** A SYNONYM OF RED IS FLAME.
+
+     WHAT IS A SYNONYM OF RED? FLAME
+CORRECT
+
+
+     WHAT IS A SYNONYM OF PUSH? SHOVE
+FINE
+
+
+     WHAT IS A SYNONYM OF PAIN? HURT
+RIGHT
+
+
+     WHAT IS A SYNONYM OF FIRST? SUPERIOR
+     TRY AGAIN.
+     WHAT IS A SYNONYM OF FIRST? ALPHA
+     TRY AGAIN.
+     WHAT IS A SYNONYM OF FIRST? HELP
+**** A SYNONYM OF FIRST IS INITIAL.
+
+     WHAT IS A SYNONYM OF FIRST? INITIAL
+CHECK
+
+
+     WHAT IS A SYNONYM OF SIMILAR? 
+Error on line 240: No more input

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

@@ -0,0 +1,51 @@
+10 PRINT TAB(33);"TARGET"
+20 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+30 PRINT: PRINT: PRINT
+100 R=1: R1=57.296: P=3.14159
+110 PRINT "YOU ARE THE WEAPONS OFFICER ON THE STARSHIP ENTERPRISE"
+120 PRINT "AND THIS IS A TEST TO SEE HOW ACCURATE A SHOT YOU"
+130 PRINT "ARE IN A THREE-DIMENSIONAL RANGE.  YOU WILL BE TOLD"
+140 PRINT "THE RADIAN OFFSET FOR THE X AND Z AXES, THE LOCATION"
+150 PRINT "OF THE TARGET IN THREE DIMENSIONAL RECTANGULAR COORDINATES,"
+160 PRINT "THE APPROXIMATE NUMBER OF DEGREES FROM THE X AND Z"
+170 PRINT "AXES, AND THE APPROXIMATE DISTANCE TO THE TARGET."
+180 PRINT "YOU WILL THEN PROCEEED TO SHOOT AT THE TARGET UNTIL IT IS"
+190 PRINT "DESTROYED!": PRINT: PRINT "GOOD LUCK!!":PRINT: PRINT
+220 A=RND(1)*2*P: B=RND(1)*2*P: Q=INT(A*R1): W=INT(B*R1)
+260 PRINT "RADIANS FROM X AXIS =";A;"   FROM Z AXIS =";B
+280 P1=100000*RND(1)+RND(1): X=SIN(B)*COS(A)*P1: Y=SIN(B)*SIN(A)*P1
+290 Z=COS(B)*P1
+340 PRINT "TARGET SIGHTED: APPROXIMATE COORDINATES:  X=";X;"  Y=";Y;"  Z=";Z
+345 R=R+1: IF R>5 THEN 390
+350 ON R GOTO 355,360,365,370,375
+355 P3=INT(P1*.05)*20: GOTO 390
+360 P3=INT(P1*.1)*10: GOTO 390
+365 P3=INT(P1*.5)*2: GOTO 390
+370 P3=INT(P1): GOTO 390
+375 P3=P1
+390 PRINT "     ESTIMATED DISTANCE:";P3
+400 PRINT:PRINT "INPUT ANGLE DEVIATION FROM X, DEVIATION FROM Z, DISTANCE";
+405 INPUT A1,B1,P2
+410 PRINT: IF P2<20 THEN PRINT "YOU BLEW YOURSELF UP!!": GOTO 580
+420 A1=A1/R1: B1=B1/R1: PRINT "RADIANS FROM X AXIS =";A1;"  ";
+425 PRINT "FROM Z AXIS =";B1
+480 X1=P2*SIN(B1)*COS(A1): Y1=P2*SIN(B1)*SIN(A1): Z1=P2*COS(B1)
+510 D=((X1-X)^2+(Y1-Y)^2+(Z1-Z)^2)^(1/2)
+520 IF D>20 THEN 670
+530 PRINT: PRINT " * * * HIT * * *   TARGET IS NON-FUNCTIONAL": PRINT
+550 PRINT "DISTANCE OF EXPLOSION FROM TARGET WAS";D;"KILOMETERS."
+570 PRINT: PRINT "MISSION ACCOMPLISHED IN ";R;" SHOTS."
+580 R=0: FOR I=1 TO 5: PRINT: NEXT I: PRINT "NEXT TARGET...": PRINT
+590 GOTO 220
+670 X2=X1-X: Y2=Y1-Y: Z2=Z1-Z: IF X2<0 THEN 730
+710 PRINT "SHOT IN FRONT OF TARGET";X2;"KILOMETERS.": GOTO 740
+730 PRINT "SHOT BEHIND TARGET";-X2;"KILOMETERS."
+740 IF Y2<0 THEN 770
+750 PRINT "SHOT TO LEFT OF TARGET";Y2;"KILOMETERS.": GOTO 780
+770 PRINT "SHOT TO RIGHT OF TARGET";-Y2;"KILOMETERS."
+780 IF Z2<0 THEN 810
+790 PRINT "SHOT ABOVE TARGET";Z2;"KILOMETERS.": GOTO 820
+810 PRINT "SHOT BELOW TARGET";-Z2;"KILOMETERS."
+820 PRINT "APPROX POSITION OF EXPLOSION:  X=";X1;"   Y=";Y1;"   Z=";Z1
+830 PRINT "     DISTANCE FROM TARGET =";D: PRINT: PRINT: PRINT: GOTO 345
+999 END

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

@@ -0,0 +1,2 @@
+0
+0,10,20

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

@@ -0,0 +1,39 @@
+                                 TARGET
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+
+
+YOU ARE THE WEAPONS OFFICER ON THE STARSHIP ENTERPRISE
+AND THIS IS A TEST TO SEE HOW ACCURATE A SHOT YOU
+ARE IN A THREE-DIMENSIONAL RANGE.  YOU WILL BE TOLD
+THE RADIAN OFFSET FOR THE X AND Z AXES, THE LOCATION
+OF THE TARGET IN THREE DIMENSIONAL RECTANGULAR COORDINATES,
+THE APPROXIMATE NUMBER OF DEGREES FROM THE X AND Z
+AXES, AND THE APPROXIMATE DISTANCE TO THE TARGET.
+YOU WILL THEN PROCEEED TO SHOOT AT THE TARGET UNTIL IT IS
+DESTROYED!
+
+GOOD LUCK!!
+
+
+RADIANS FROM X AXIS = 3.448294    FROM Z AXIS = 4.493664 
+TARGET SIGHTED: APPROXIMATE COORDINATES:  X= 56094.95   Y= 17764.95   Z=-13079.22 
+     ESTIMATED DISTANCE: 60270 
+
+INPUT ANGLE DEVIATION FROM X, DEVIATION FROM Z, DISTANCE? 0
+Too few items, try again
+? 0,10,20
+
+RADIANS FROM X AXIS = 0   FROM Z AXIS = 0.1745323 
+SHOT BEHIND TARGET 56091.48 KILOMETERS.
+SHOT TO RIGHT OF TARGET 17764.95 KILOMETERS.
+SHOT ABOVE TARGET 13098.91 KILOMETERS.
+APPROX POSITION OF EXPLOSION:  X= 3.47295    Y= 0    Z= 19.69616 
+     DISTANCE FROM TARGET = 60277.93 
+
+
+
+     ESTIMATED DISTANCE: 60276 
+
+INPUT ANGLE DEVIATION FROM X, DEVIATION FROM Z, DISTANCE? 
+Error on line 405: No more input

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

@@ -0,0 +1,69 @@
+10 PRINT TAB(30);"TIC TAC TOE"
+20 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+30 PRINT:PRINT:PRINT
+50 REM
+100 REM   THIS PROGRAM PLAYS TIC TAC TOE
+110 REM   THE MACHINE GOES FIRST
+120 PRINT "THE GAME BOARD IS NUMBERED:": PRINT
+130 PRINT "1  2  3": PRINT "8  9  4": PRINT "7  6  5"
+140 PRINT
+150 REM
+160 REM
+170 REM
+180 DEF FNM(X)=X-8*INT((X-1)/8)
+190 REM
+200 REM  MAIN PROGRAM
+210 PRINT
+220 PRINT
+230 A=9
+240 M=A
+250 GOSUB 650
+260 P=M
+270 B=FNM(P+1)
+280 M=B
+290 GOSUB 650
+300 Q=M
+310 IF Q=FNM(B+4) THEN 360
+320 C=FNM(B+4)
+330 M=C
+340 GOSUB 700
+350 GOTO 730
+360 C=FNM(B+2)
+370 M=C
+380 GOSUB 650
+390 R=M
+400 IF R=FNM(C+4) THEN 450
+410 D=FNM(C+4)
+420 M=D
+430 GOSUB 700
+440 GOTO 730
+450 IF P/2<>INT(P/2) THEN 500
+460 D=FNM(C+7)
+470 M=D
+480 GOSUB 700
+490 GOTO 730
+500 D=FNM(C+3)
+510 M=D
+520 GOSUB 650
+530 S=M
+540 IF S=FNM(D+4) THEN 590
+550 E=FNM(D+4)
+560 M=E
+570 GOSUB 700
+580 REM
+590 E=FNM(D+6)
+600 M=E
+610 GOSUB 700
+620 PRINT "THE GAME IS A DRAW."
+630 GOTO 210
+640 REM
+650 GOSUB 700
+660 PRINT "YOUR MOVE";
+670 INPUT M
+680 RETURN
+700 PRINT "COMPUTER MOVES";M
+710 RETURN
+720 REM
+730 PRINT "AND WINS ********"
+740 GOTO 210
+750 END

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

@@ -0,0 +1,10 @@
+7
+4
+6
+1
+1
+6
+8
+5
+9
+5

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

@@ -0,0 +1,49 @@
+                              TIC TAC TOE
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+
+
+THE GAME BOARD IS NUMBERED:
+
+1  2  3
+8  9  4
+7  6  5
+
+
+
+COMPUTER MOVES 9 
+YOUR MOVE? 7
+COMPUTER MOVES 8 
+YOUR MOVE? 4
+COMPUTER MOVES 2 
+YOUR MOVE? 6
+COMPUTER MOVES 5 
+YOUR MOVE? 1
+COMPUTER MOVES 3 
+THE GAME IS A DRAW.
+
+
+COMPUTER MOVES 9 
+YOUR MOVE? 1
+COMPUTER MOVES 2 
+YOUR MOVE? 6
+COMPUTER MOVES 4 
+YOUR MOVE? 8
+COMPUTER MOVES 7 
+YOUR MOVE? 5
+COMPUTER MOVES 3 
+COMPUTER MOVES 5 
+THE GAME IS A DRAW.
+
+
+COMPUTER MOVES 9 
+YOUR MOVE? 9
+COMPUTER MOVES 2 
+YOUR MOVE? 5
+COMPUTER MOVES 6 
+AND WINS ********
+
+
+COMPUTER MOVES 9 
+YOUR MOVE? 
+Error on line 670: No more input