basic101 0.1.0

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

@@ -0,0 +1,10 @@
+00
+200
+90
+200
+180
+270
+5
+270
+90
+400

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

@@ -0,0 +1,113 @@
+                                 ORBIT
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+
+
+SOMEWHERE ABOVE YOUR PLANET IS A ROMULAN SHIP.
+
+THE SHIP IS IN A CONSTANT POLAR ORBIT.  ITS
+DISTANCE FROM THE CENTER OF YOUR PLANET IS FROM
+10,000 TO 30,000 MILES AND AT ITS PRESENT VELOCITY CAN
+CIRCLE YOUR PLANET ONCE EVERY 12 TO 36 HOURS.
+
+UNFORTUNATELY, THEY ARE USING A CLOAKING DEVICE SO
+YOU ARE UNABLE TO SEE THEM, BUT WITH A SPECIAL
+INSTRUMENT YOU CAN TELL HOW NEAR THEIR SHIP YOUR
+PHOTON BOMB EXPLODED.  YOU HAVE SEVEN HOURS UNTIL THEY
+HAVE BUILT UP SUFFICIENT POWER IN ORDER TO ESCAPE
+YOUR PLANET'S GRAVITY.
+
+YOUR PLANET HAS ENOUGH POWER TO FIRE ONE BOMB AN HOUR.
+
+AT THE BEGINNING OF EACH HOUR YOU WILL BE ASKED TO GIVE AN
+ANGLE (BETWEEN 0 AND 360) AND A DISTANCE IN UNITS OF
+100 MILES (BETWEEN 100 AND 300), AFTER WHICH YOUR BOMB'S
+DISTANCE FROM THE ENEMY SHIP WILL BE GIVEN.
+
+AN EXPLOSION WITHIN 5,000 MILES OF THE ROMULAN SHIP
+WILL DESTROY IT.
+
+BELOW IS A DIAGRAM TO HELP YOU VISUALIZE YOUR PLIGHT.
+
+
+                          90
+                    0000000000000
+                 0000000000000000000
+               000000           000000
+             00000                 00000
+            00000    XXXXXXXXXXX    00000
+           00000    XXXXXXXXXXXXX    00000
+          0000     XXXXXXXXXXXXXXX     0000
+         0000     XXXXXXXXXXXXXXXXX     0000
+        0000     XXXXXXXXXXXXXXXXXXX     0000
+180<== 00000     XXXXXXXXXXXXXXXXXXX     00000 ==>0
+        0000     XXXXXXXXXXXXXXXXXXX     0000
+         0000     XXXXXXXXXXXXXXXXX     0000
+          0000     XXXXXXXXXXXXXXX     0000
+           00000    XXXXXXXXXXXXX    00000
+            00000    XXXXXXXXXXX    00000
+             00000                 00000
+               000000           000000
+                 0000000000000000000
+                    0000000000000
+                         270
+
+X - YOUR PLANET
+O - THE ORBIT OF THE ROMULAN SHIP
+
+ON THE ABOVE DIAGRAM, THE ROMULAN SHIP IS CIRCLING
+COUNTERCLOCKWISE AROUND YOUR PLANET.  DON'T FORGET THAT
+WITHOUT SUFFICIENT POWER THE ROMULAN SHIP'S ALTITUDE
+AND ORBITAL RATE WILL REMAIN CONSTANT.
+
+GOOD LUCK.  THE FEDERATION IS COUNTING ON YOU.
+
+
+THIS IS HOUR 1 , AT WHAT ANGLE DO YOU WISH TO SEND
+YOUR PHOTON BOMB? 00
+HOW FAR OUT DO YOU WISH TO DETONATE IT? 200
+
+
+YOUR PHOTON BOMB EXPLODED 514.0751 *10^2 MILES FROM THE
+ROMULAN SHIP.
+
+
+THIS IS HOUR 2 , AT WHAT ANGLE DO YOU WISH TO SEND
+YOUR PHOTON BOMB? 90
+HOW FAR OUT DO YOU WISH TO DETONATE IT? 200
+
+
+YOUR PHOTON BOMB EXPLODED 526.9219 *10^2 MILES FROM THE
+ROMULAN SHIP.
+
+
+THIS IS HOUR 3 , AT WHAT ANGLE DO YOU WISH TO SEND
+YOUR PHOTON BOMB? 180
+HOW FAR OUT DO YOU WISH TO DETONATE IT? 270
+
+
+YOUR PHOTON BOMB EXPLODED 409.8489 *10^2 MILES FROM THE
+ROMULAN SHIP.
+
+
+THIS IS HOUR 4 , AT WHAT ANGLE DO YOU WISH TO SEND
+YOUR PHOTON BOMB? 5
+HOW FAR OUT DO YOU WISH TO DETONATE IT? 270
+
+
+YOUR PHOTON BOMB EXPLODED 397.977 *10^2 MILES FROM THE
+ROMULAN SHIP.
+
+
+THIS IS HOUR 5 , AT WHAT ANGLE DO YOU WISH TO SEND
+YOUR PHOTON BOMB? 90
+HOW FAR OUT DO YOU WISH TO DETONATE IT? 400
+
+
+YOUR PHOTON BOMB EXPLODED 704.8363 *10^2 MILES FROM THE
+ROMULAN SHIP.
+
+
+THIS IS HOUR 6 , AT WHAT ANGLE DO YOU WISH TO SEND
+YOUR PHOTON BOMB? 
+Error on line 340: No more input

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

@@ -0,0 +1,68 @@
+5 PRINT TAB(33);"PIZZA"
+10 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+15 PRINT: PRINT: PRINT
+20 DIM S$(16),M$(4)
+30 PRINT "PIZZA DELIVERY GAME": PRINT
+50 INPUT "WHAT IS YOUR FIRST NAME";N$: PRINT
+80 PRINT "HI, ";N$;".  IN THIS GAME YOU ARE TO TAKE ORDERS"
+90 PRINT "FOR PIZZAS.  THEN YOU ARE TO TELL A DELIVERY BOY"
+100 PRINT "WHERE TO DELIVER THE ORDERED PIZZAS.": PRINT: PRINT
+140 FOR I=1 TO 16
+150 READ S$(I)
+160 NEXT I
+170 FOR I=1 TO 4
+180 READ M$(I)
+190 NEXT I
+200 DATA "A","B","C","D","E","F","G","H","I","J","K","L","M","N","O"
+210 DATA "P","1","2","3","4"
+230 PRINT "MAP OF THE CITY OF HYATTSVILLE": PRINT
+250 PRINT " -----1-----2-----3-----4-----"
+260 K=4
+270 FOR I=1 TO 4
+280 PRINT "-": PRINT "-": PRINT"-": PRINT "-"
+320 PRINT M$(K);
+330 S1=16-4*I+1
+340 PRINT "     ";S$(S1);"     ";S$(S1+1);"     ";S$(S1+2);"     ";
+350 PRINT S$(S1+3);"     ";M$(K)
+380 K=K-1
+390 NEXT I
+400 PRINT "-": PRINT "-": PRINT "-": PRINT "-"
+440 PRINT " -----1-----2-----3-----4-----": PRINT
+460 PRINT "THE OUTPUT IS A MAP OF THE HOMES WHERE"
+470 PRINT "YOU ARE TO SEND PIZZAS.": PRINT
+490 PRINT "YOUR JOB IS TO GIVE A TRUCK DRIVER"
+500 PRINT "THE LOCATION OR COORDINATES OF THE"
+510 PRINT "HOME ORDERING THE PIZZA.": PRINT
+520 INPUT "DO YOU NEED MORE DIRECTIONS";A$
+530 IF A$="YES" THEN 590
+540 IF A$="NO" THEN 750
+550 PRINT "'YES' OR 'NO' PLEASE, NOW THEN,": GOTO 520
+590 PRINT: PRINT "SOMEBODY WILL ASK FOR A PIZZA TO BE"
+600 PRINT "DELIVERED.  THEN A DELIVERY BOY WILL"
+610 PRINT "ASK YOU FOR THE LOCATION.":PRINT "     EXAMPLE:"
+620 PRINT "THIS IS J.  PLEASE SEND A PIZZA."
+640 PRINT "DRIVER TO ";N$;".  WHERE DOES J LIVE?"
+650 PRINT "YOUR ANSWER WOULD BE 2,3": PRINT
+660 INPUT "UNDERSTAND";A$
+670 IF A$="YES" THEN 690
+680 PRINT "THIS JOB IS DEFINITELY TOO DIFFICULT FOR YOU. THANKS ANYWAY"
+685 GOTO 999
+690 PRINT "GOOD.  YOU ARE NOW READY TO START TAKING ORDERS.": PRINT
+700 PRINT "GOOD LUCK!!": PRINT
+750 FOR I=1 TO 5
+760 S=INT(RND(1)*16+1): PRINT
+770 PRINT "HELLO ";N$;"'S PIZZA.  THIS IS ";S$(S);".";
+775 PRINT "  PLEASE SEND A PIZZA."
+780 PRINT "  DRIVER TO ";N$;":  WHERE DOES ";S$(S);" LIVE";
+790 INPUT A(1),A(2)
+870 T=A(1)+(A(2)-1)*4
+880 IF T=S THEN 920
+890 PRINT "THIS IS ";S$(T);".  I DID NOT ORDER A PIZZA."
+900 PRINT "I LIVE AT ";A(1);",";A(2)
+910 GOTO 780
+920 PRINT "HELLO "N$;".  THIS IS ";S$(S);", THANKS FOR THE PIZZA."
+930 NEXT I
+940 PRINT: INPUT "DO YOU WANT TO DELIVER MORE PIZZAS";A$
+960 IF A$="YES" THEN 750
+970 PRINT: PRINT "O.K. ";N$;", SEE YOU LATER!":PRINT
+999 END

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

@@ -0,0 +1,10 @@
+FRED
+YES
+YES
+1,3
+4,3
+2,3
+1,1
+1,3
+3,2
+NO

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

@@ -0,0 +1,93 @@
+                                 PIZZA
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+
+
+PIZZA DELIVERY GAME
+
+WHAT IS YOUR FIRST NAME? FRED
+
+HI, FRED.  IN THIS GAME YOU ARE TO TAKE ORDERS
+FOR PIZZAS.  THEN YOU ARE TO TELL A DELIVERY BOY
+WHERE TO DELIVER THE ORDERED PIZZAS.
+
+
+MAP OF THE CITY OF HYATTSVILLE
+
+ -----1-----2-----3-----4-----
+-
+-
+-
+-
+4     M     N     O     P     4
+-
+-
+-
+-
+3     I     J     K     L     3
+-
+-
+-
+-
+2     E     F     G     H     2
+-
+-
+-
+-
+1     A     B     C     D     1
+-
+-
+-
+-
+ -----1-----2-----3-----4-----
+
+THE OUTPUT IS A MAP OF THE HOMES WHERE
+YOU ARE TO SEND PIZZAS.
+
+YOUR JOB IS TO GIVE A TRUCK DRIVER
+THE LOCATION OR COORDINATES OF THE
+HOME ORDERING THE PIZZA.
+
+DO YOU NEED MORE DIRECTIONS? YES
+
+SOMEBODY WILL ASK FOR A PIZZA TO BE
+DELIVERED.  THEN A DELIVERY BOY WILL
+ASK YOU FOR THE LOCATION.
+     EXAMPLE:
+THIS IS J.  PLEASE SEND A PIZZA.
+DRIVER TO FRED.  WHERE DOES J LIVE?
+YOUR ANSWER WOULD BE 2,3
+
+UNDERSTAND? YES
+GOOD.  YOU ARE NOW READY TO START TAKING ORDERS.
+
+GOOD LUCK!!
+
+
+HELLO FRED'S PIZZA.  THIS IS I.  PLEASE SEND A PIZZA.
+  DRIVER TO FRED:  WHERE DOES I LIVE? 1,3
+HELLO FRED.  THIS IS I, THANKS FOR THE PIZZA.
+
+HELLO FRED'S PIZZA.  THIS IS L.  PLEASE SEND A PIZZA.
+  DRIVER TO FRED:  WHERE DOES L LIVE? 4,3
+HELLO FRED.  THIS IS L, THANKS FOR THE PIZZA.
+
+HELLO FRED'S PIZZA.  THIS IS J.  PLEASE SEND A PIZZA.
+  DRIVER TO FRED:  WHERE DOES J LIVE? 2,3
+HELLO FRED.  THIS IS J, THANKS FOR THE PIZZA.
+
+HELLO FRED'S PIZZA.  THIS IS I.  PLEASE SEND A PIZZA.
+  DRIVER TO FRED:  WHERE DOES I LIVE? 1,1
+THIS IS A.  I DID NOT ORDER A PIZZA.
+I LIVE AT  1 , 1 
+  DRIVER TO FRED:  WHERE DOES I LIVE? 1,3
+HELLO FRED.  THIS IS I, THANKS FOR THE PIZZA.
+
+HELLO FRED'S PIZZA.  THIS IS G.  PLEASE SEND A PIZZA.
+  DRIVER TO FRED:  WHERE DOES G LIVE? 3,2
+HELLO FRED.  THIS IS G, THANKS FOR THE PIZZA.
+
+DO YOU WANT TO DELIVER MORE PIZZAS? NO
+
+O.K. FRED, SEE YOU LATER!
+

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

@@ -0,0 +1,42 @@
+10 PRINT TAB(30);"POETRY"
+20 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+30 PRINT:PRINT:PRINT
+90 ON I GOTO 100,101,102,103,104
+100 PRINT "MIDNIGHT DREARY";:GOTO 210
+101 PRINT "FIERY EYES";:GOTO 210
+102 PRINT "BIRD OR FIEND";:GOTO 210
+103 PRINT "THING OF EVIL";:GOTO 210
+104 PRINT "PROPHET";:GOTO 210
+110 ON I GOTO 111,112,113,114,115
+111 PRINT "BEGUILING ME";:U=2:GOTO 210
+112 PRINT "THRILLED ME";:GOTO 210
+113 PRINT "STILL SITTING....";:GOTO 212
+114 PRINT "NEVER FLITTING";:U=2:GOTO 210
+115 PRINT "BURNED";:GOTO 210
+120 ON I GOTO 121,122,123,124,125
+121 PRINT "AND MY SOUL";:GOTO 210
+122 PRINT "DARKNESS THERE";:GOTO 210
+123 PRINT "SHALL BE LIFTED";:GOTO 210
+124 PRINT "QUOTH THE RAVEN";:GOTO 210
+125 IF U=0 THEN 210
+126 PRINT "SIGN OF PARTING";:GOTO 210
+130 ON I GOTO 131,132,133,134,135
+131 PRINT "NOTHING MORE";:GOTO 210
+132 PRINT "YET AGAIN";:GOTO 210
+133 PRINT "SLOWLY CREEPING";:GOTO 210
+134 PRINT "...EVERMORE";:GOTO 210
+135 PRINT "NEVERMORE";
+210 IF U=0 OR RND(1)>.19 THEN 212
+211 PRINT ",";:U=2
+212 IF RND(1)>.65 THEN 214
+213 PRINT " ";:U=U+1:GOTO 215
+214 PRINT : U=0
+215 I=INT(INT(10*RND(1))/2)+1
+220 J=J+1 : K=K+1
+230 IF U>0 OR INT(J/2)<>J/2 THEN 240
+235 PRINT "     ";
+240 ON J GOTO 90,110,120,130,250
+250 J=0 : PRINT : IF K>20 THEN 270
+260 GOTO 215
+270 PRINT : U=0 : K=0 : GOTO 110
+999 END

data/test/integration/tests/basic_computer_games/poetry.options

@@ -0,0 +1 @@
+max_output_lines: 50

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

@@ -0,0 +1,50 @@
+                              POETRY
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+
+
+MIDNIGHT DREARY
+THING OF EVIL NEVER FLITTING
+
+     SLOWLY CREEPING
+
+MIDNIGHT DREARY
+     NEVER FLITTING
+QUOTH THE RAVEN
+     NOTHING MORE 
+BIRD OR FIEND NEVER FLITTING AND MY SOUL ...EVERMORE
+
+BIRD OR FIEND NEVER FLITTING AND MY SOUL SLOWLY CREEPING
+
+FIERY EYES
+     THRILLED ME AND MY SOUL,
+     NOTHING MORE 
+
+BURNED
+MIDNIGHT DREARY BURNED
+AND MY SOUL YET AGAIN, 
+MIDNIGHT DREARY THRILLED ME SHALL BE LIFTED ...EVERMORE,
+
+MIDNIGHT DREARY BURNED,
+DARKNESS THERE
+     YET AGAIN 
+FIERY EYES BURNED SIGN OF PARTING
+     SLOWLY CREEPING
+
+BIRD OR FIEND STILL SITTING.... AND MY SOUL
+     YET AGAIN 
+
+BEGUILING ME BIRD OR FIEND
+     NEVER FLITTING
+DARKNESS THERE
+     NEVERMORE 
+THING OF EVIL BURNED, AND MY SOUL
+     SLOWLY CREEPING 
+BIRD OR FIEND
+     BURNED DARKNESS THERE SLOWLY CREEPING, 
+THING OF EVIL BURNED AND MY SOUL YET AGAIN 
+BIRD OR FIEND THRILLED ME SIGN OF PARTING YET AGAIN 
+
+STILL SITTING.... THING OF EVIL BEGUILING ME,
+SHALL BE LIFTED
+     NEVERMOREError on line 214: Maximum output lines reached