basic101 0.1.0

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

@@ -0,0 +1,193 @@
+10 PRINT TAB(34);"BULL"
+20 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+30 DEF FNA(K)=INT(RND(1)*2+1)
+200 PRINT:PRINT:PRINT
+202 L=1
+205 PRINT "DO YOU WANT INSTRUCTIONS";
+206 INPUT Z$
+207 IF Z$="NO" THEN 400
+210 PRINT "HELLO, ALL YOU BLOODLOVERS AND AFICIONADOS."
+220 PRINT "HERE IS YOUR BIG CHANCE TO KILL A BULL."
+230 PRINT
+240 PRINT "ON EACH PASS OF THE BULL, YOU MAY TRY"
+250 PRINT "0 - VERONICA (DANGEROUS INSIDE MOVE OF THE CAPE)"
+260 PRINT "1 - LESS DANGEROUS OUTSIDE MOVE OF THE CAPE"
+270 PRINT "2 - ORDINARY SWIRL OF THE CAPE."
+280 PRINT
+290 PRINT "INSTEAD OF THE ABOVE, YOU MAY TRY TO KILL THE BULL"
+300 PRINT "ON ANY TURN: 4 (OVER THE HORNS), 5 (IN THE CHEST)."
+310 PRINT "BUT IF I WERE YOU,"
+320 PRINT "I WOULDN'T TRY IT BEFORE THE SEVENTH PASS."
+330 PRINT
+340 PRINT "THE CROWD WILL DETERMINE WHAT AWARD YOU DESERVE"
+350 PRINT "(POSTHUMOUSLY IF NECESSARY)."
+360 PRINT "THE BRAVER YOU ARE, THE BETTER THE AWARD YOU RECIEVE."
+370 PRINT
+380 PRINT "THE BETTER THE JOB THE PICADORES AND TOREADORES DO,"
+390 PRINT "THE BETTER YOUR CHANCES ARE."
+400 PRINT
+410 PRINT
+420 D(5)=1
+430 D(4)=1
+450 DIM L$(5)
+455 A=INT(RND(1)*5+1)
+460 FOR I=1 TO 5
+463 READ L$(I)
+467 NEXT I
+470 DATA "SUPERB","GOOD","FAIR","POOR","AWFUL"
+490 PRINT "YOU HAVE DRAWN A ";L$(A);" BULL."
+500 IF A>4 THEN 530
+510 IF A<2 THEN 550
+520 GOTO 570
+530 PRINT "YOU'RE LUCKY."
+540 GOTO 570
+550 PRINT "GOOD LUCK.  YOU'LL NEED IT."
+560 PRINT
+570 PRINT
+590 A$="PICADO"
+595 B$="RES"
+600 GOSUB 1610
+610 D(1)=C
+630 A$="TOREAD"
+635 B$="ORES"
+640 GOSUB 1610
+650 D(2)=C
+660 PRINT
+670 PRINT
+680 IF Z=1 THEN 1310
+690 D(3)=D(3)+1
+700 PRINT "PASS NUMBER";D(3)
+710 IF D(3)<3 THEN 760
+720 PRINT "HERE COMES THE BULL.  TRY FOR A KILL";
+730 GOSUB 1930
+735 IF Z1=1 THEN 1130
+740 PRINT "CAPE MOVE";
+750 GOTO 800
+760 PRINT "THE BULL IS CHARGING AT YOU!  YOU ARE THE MATADOR--"
+770 PRINT "DO YOU WANT TO KILL THE BULL";
+780 GOSUB 1930
+785 IF Z1=1 THEN 1130
+790 PRINT "WHAT MOVE DO YOU MAKE WITH THE CAPE";
+800 INPUT E
+810 IF E<>INT(ABS(E)) THEN 830
+820 IF E<3 THEN 850
+830 PRINT "DON'T PANIC, YOU IDIOT!  PUT DOWN A CORRECT NUMBER"
+840 GOTO 800
+850 REM
+860 IF E=0 THEN 920
+870 IF E=1 THEN 900
+880 M=.5
+890 GOTO 930
+900 M=2
+910 GOTO 930
+920 M=3
+930 L=L+M
+940 F=(6-A+M/10)*RND(1)/((D(1)+D(2)+D(3)/10)*5)
+950 IF F<.51 THEN 660
+960 PRINT "THE BULL HAS GORED YOU!"
+970 ON FNA(0) GOTO 980,1010
+980 PRINT "YOU ARE DEAD."
+990 D(4)=1.5
+1000 GOTO 1310
+1010 PRINT "YOU ARE STILL ALIVE.":PRINT
+1020 PRINT "DO YOU RUN FROM THE RING";
+1030 GOSUB 1930
+1035 IF Z1=2 THEN 1070
+1040 PRINT "COWARD"
+1050 D(4)=0
+1060 GOTO 1310
+1070 PRINT "YOU ARE BRAVE.  STUPID, BUT BRAVE."
+1080 ON FNA(0) GOTO 1090,1110
+1090 D(4)=2
+1100 GOTO 660
+1110 PRINT "YOU ARE GORED AGAIN!"
+1120 GOTO 970
+1130 REM
+1140 Z=1
+1150 PRINT:PRINT "IT IS THE MOMENT OF TRUTH.":PRINT
+1155 PRINT "HOW DO YOU TRY TO KILL THE BULL";
+1160 INPUT H
+1170 IF H=4 THEN 1230
+1180 IF H=5 THEN 1230
+1190 PRINT "YOU PANICKED.  THE BULL GORED YOU."
+1220 GOTO 970
+1230 K=(6-A)*10*RND(1)/((D(1)+D(2))*5*D(3))
+1240 IF J=4 THEN 1290
+1250 IF K>.2 THEN 960
+1260 PRINT "YOU KILLED THE BULL!"
+1270 D(5)=2
+1280 GOTO 1320
+1290 IF K>.8 THEN 960
+1300 GOTO 1260
+1310 PRINT
+1320 PRINT
+1330 PRINT
+1340 IF D(4)<>0 THEN 1390
+1350 PRINT "THE CROWD BOOS FOR TEN MINUTES.  IF YOU EVER DARE TO SHOW"
+1360 PRINT "YOUR FACE IN A RING AGAIN, THEY SWEAR THEY WILL KILL YOU--"
+1370 PRINT "UNLES THE BULL DOES FIRST."
+1380 GOTO 1580
+1390 DEF FNC(Q)=FND(Q)*RND(1)
+1395 DEF FND(Q)=(4.5+L/6-(D(1)+D(2))*2.5+4*D(4)+2*D(5)-D(3)^2/120-A)
+1400 IF D(4)<>2 THEN 1430
+1410 PRINT "THE CROWD CHEERS WILDLY!"
+1420 GOTO 1450
+1430 IF D(5)<>2 THEN 1450
+1440 PRINT "THE CROWD CHEERS!":PRINT
+1450 PRINT "THE CROWD AWARDS YOU"
+1460 IF FNC(Q)<2.4 THEN 1570
+1470 IF FNC(Q)<4.9 THEN 1550
+1480 IF FNC(Q)<7.4 THEN 1520
+1500 PRINT "OLE!  YOU ARE 'MUY HOMBRE'!! OLE!  OLE!"
+1510 GOTO 1580
+1520 PRINT "BOTH EARS OF THE BULL!"
+1530 PRINT "OLE!"
+1540 GOTO 1580
+1550 PRINT "ONE EAR OF THE BULL."
+1560 GOTO 1580
+1570 PRINT "NOTHING AT ALL."
+1580 PRINT
+1590 PRINT "ADIOS":PRINT:PRINT:PRINT
+1600 GOTO 2030
+1610 B=3/A*RND(1)
+1620 IF B<.37 THEN 1740
+1630 IF B<.5 THEN 1720
+1640 IF B<.63 THEN 1700
+1650 IF B<.87 THEN 1680
+1660 C=.1
+1670 GOTO 1750
+1680 C=.2
+1690 GOTO 1750
+1700 C=.3
+1710 GOTO 1750
+1720 C=.4
+1730 GOTO 1750
+1740 C=.5
+1750 T=INT(10*C+.2)
+1760 PRINT "THE ";A$;B$;" DID A ";L$(T);" JOB."
+1770 IF 4>T THEN 1900
+1780 IF 5=T THEN 1870
+1790 ON FNA(K) GOTO 1830,1850
+1800 IF A$="TOREAD" THEN 1820
+1810 PRINT "ONE OF THE HORSES OF THE ";A$;B$;" WAS KILLED."
+1820 ON FNA(K) GOTO 1830,1850
+1830 PRINT "ONE OF THE ";A$;B$;" WAS KILLED."
+1840 GOTO 1900
+1850 PRINT "NO ";A$;B$;" WERE KILLED."
+1860 GOTO 1900
+1870 IF A$="TOREAD" THEN 1890
+1880 PRINT FNA(K);"OF THE HORSES OF THE ";A$;B$;" KILLED."
+1890 PRINT FNA(K);"OF THE ";A$;B$;" KILLED."
+1900 PRINT
+1910 RETURN
+1920 REM
+1930 INPUT A$
+1940 IF A$="YES" THEN 1990
+1950 IF A$="NO" THEN 2010
+1970 PRINT "INCORRECT ANSWER - - PLEASE TYPE 'YES' OR 'NO'."
+1980 GOTO 1930
+1990 Z1=1
+2000 GOTO 2020
+2010 Z1=2
+2020 RETURN
+2030 END

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

@@ -0,0 +1,4 @@
+YES
+YES
+0
+NO

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

@@ -0,0 +1,60 @@
+                                  BULL
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+
+
+DO YOU WANT INSTRUCTIONS? YES
+HELLO, ALL YOU BLOODLOVERS AND AFICIONADOS.
+HERE IS YOUR BIG CHANCE TO KILL A BULL.
+
+ON EACH PASS OF THE BULL, YOU MAY TRY
+0 - VERONICA (DANGEROUS INSIDE MOVE OF THE CAPE)
+1 - LESS DANGEROUS OUTSIDE MOVE OF THE CAPE
+2 - ORDINARY SWIRL OF THE CAPE.
+
+INSTEAD OF THE ABOVE, YOU MAY TRY TO KILL THE BULL
+ON ANY TURN: 4 (OVER THE HORNS), 5 (IN THE CHEST).
+BUT IF I WERE YOU,
+I WOULDN'T TRY IT BEFORE THE SEVENTH PASS.
+
+THE CROWD WILL DETERMINE WHAT AWARD YOU DESERVE
+(POSTHUMOUSLY IF NECESSARY).
+THE BRAVER YOU ARE, THE BETTER THE AWARD YOU RECIEVE.
+
+THE BETTER THE JOB THE PICADORES AND TOREADORES DO,
+THE BETTER YOUR CHANCES ARE.
+
+
+YOU HAVE DRAWN A FAIR BULL.
+
+THE PICADORES DID A GOOD JOB.
+
+THE TOREADORES DID A FAIR JOB.
+
+
+
+PASS NUMBER 1 
+THE BULL IS CHARGING AT YOU!  YOU ARE THE MATADOR--
+DO YOU WANT TO KILL THE BULL? YES
+
+IT IS THE MOMENT OF TRUTH.
+
+HOW DO YOU TRY TO KILL THE BULL? 0
+YOU PANICKED.  THE BULL GORED YOU.
+YOU ARE STILL ALIVE.
+
+DO YOU RUN FROM THE RING? NO
+YOU ARE BRAVE.  STUPID, BUT BRAVE.
+
+
+
+
+
+THE CROWD CHEERS WILDLY!
+THE CROWD AWARDS YOU
+ONE EAR OF THE BULL.
+
+ADIOS
+
+
+

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

@@ -0,0 +1,37 @@
+5 PRINT TAB(32);"BULLSEYE"
+10 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+20 PRINT:PRINT:PRINT
+30 PRINT "IN THIS GAME, UP TO 20 PLAYERS THROW DARTS AT A TARGET"
+40 PRINT "WITH 10, 20, 30, AND 40 POINT ZONES.  THE OBJECTIVE IS"
+50 PRINT "TO GET 200 POINTS.": PRINT
+60 PRINT "THROW",TAB(20);"DESCRIPTION";TAB(45);"PROBABLE SCORE"
+70 PRINT" 1";TAB(20);"FAST OVERARM";TAB(45);"BULLSEYE OR COMPLETE MISS"
+80 PRINT" 2";TAB(20);"CONTROLLED OVERARM";TAB(45);"10, 20 OR 30 POINTS"
+90 PRINT" 3";TAB(20);"UNDERARM";TAB(45);"ANYTHING":PRINT
+100 DIM A$(20),S(20),W(10): M=0: R=0: FOR I=1 TO 20: S(I)=0: NEXT I
+110 INPUT "HOW MANY PLAYERS";N: PRINT
+120 FOR I=1 TO N
+130 PRINT "NAME OF PLAYER #";I;:INPUT A$(I)
+140 NEXT I
+150 R=R+1: PRINT: PRINT "ROUND";R:PRINT "---------"
+160 FOR I=1 TO N
+170 PRINT: PRINT A$(I)"'S THROW";: INPUT T
+180 IF T<0 OR T>3 THEN PRINT "INPUT 1, 2, OR 3!": GOTO 170
+190 ON T GOTO 200, 210, 200
+200 P1=.65: P2=.55: P3=.5: P4=.5: GOTO 230
+210 P1=.99: P2=.77: P3=.43: P4=.01: GOTO 230
+220 P1=.95: P2=.75: P3=.45: P4=.05
+230 U=RND(1)
+240 IF U>=P1 THEN PRINT "BULLSEYE!!  40 POINTS!":B=40: GOTO 290
+250 IF U>=P2 THEN PRINT "30-POINT ZONE!":B=30: GOTO 290
+260 IF U>=P3 THEN PRINT "20-POINT ZONE":B=20: GOTO 290
+270 IF U>=P4 THEN PRINT "WHEW!  10 POINTS.":B=10: GOTO 290
+280 PRINT "MISSED THE TARGET!  TOO BAD.": B=0
+290 S(I)=S(I)+B: PRINT "TOTAL SCORE =";S(I): NEXT I
+300 FOR I=1 TO N
+310 IF S(I)>=200 THEN M=M+1: W(M)=I
+320 NEXT I
+330 IF M=0 THEN 150
+340 PRINT: PRINT "WE HAVE A WINNER!!": PRINT
+350 FOR I=1 TO M: PRINT A$(W(I));" SCORED";S(W(I));"POINTS.": NEXT I
+360 PRINT: PRINT "THANKS FOR THE GAME.": END

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

@@ -0,0 +1,10 @@
+1
+FOO
+1
+3
+1
+3
+1
+3
+2
+1

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

@@ -0,0 +1,79 @@
+                                BULLSEYE
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+
+
+IN THIS GAME, UP TO 20 PLAYERS THROW DARTS AT A TARGET
+WITH 10, 20, 30, AND 40 POINT ZONES.  THE OBJECTIVE IS
+TO GET 200 POINTS.
+
+THROW               DESCRIPTION              PROBABLE SCORE
+ 1                  FAST OVERARM             BULLSEYE OR COMPLETE MISS
+ 2                  CONTROLLED OVERARM       10, 20 OR 30 POINTS
+ 3                  UNDERARM                 ANYTHING
+
+HOW MANY PLAYERS? 1
+
+NAME OF PLAYER # 1 ? FOO
+
+ROUND 1 
+---------
+
+FOO'S THROW? 1
+20-POINT ZONE
+TOTAL SCORE = 20 
+
+ROUND 2 
+---------
+
+FOO'S THROW? 3
+BULLSEYE!!  40 POINTS!
+TOTAL SCORE = 60 
+
+ROUND 3 
+---------
+
+FOO'S THROW? 1
+30-POINT ZONE!
+TOTAL SCORE = 90 
+
+ROUND 4 
+---------
+
+FOO'S THROW? 3
+20-POINT ZONE
+TOTAL SCORE = 110 
+
+ROUND 5 
+---------
+
+FOO'S THROW? 1
+MISSED THE TARGET!  TOO BAD.
+TOTAL SCORE = 110 
+
+ROUND 6 
+---------
+
+FOO'S THROW? 3
+30-POINT ZONE!
+TOTAL SCORE = 140 
+
+ROUND 7 
+---------
+
+FOO'S THROW? 2
+20-POINT ZONE
+TOTAL SCORE = 160 
+
+ROUND 8 
+---------
+
+FOO'S THROW? 1
+BULLSEYE!!  40 POINTS!
+TOTAL SCORE = 200 
+
+WE HAVE A WINNER!!
+
+FOO SCORED 200 POINTS.
+
+THANKS FOR THE GAME.

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

@@ -0,0 +1,40 @@
+10 PRINT TAB(33);"BUNNY"
+20 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+30 PRINT: PRINT: PRINT
+100 REM  "BUNNY" FROM AHL'S 'BASIC COMPUTER GAMES'
+110 REM
+120 FOR I=0 TO 4: READ B(I): NEXT I
+130 GOSUB 260
+140 L=64: REM  ASCII LETTER CODE...
+150 REM
+160 PRINT
+170 READ X: IF X<0 THEN 160
+175 IF X>128 THEN 240
+180 PRINT TAB(X);: READ Y
+190 FOR I=X TO Y: J=I-5*INT(I/5)
+200 PRINT CHR$(L+B(J));
+210 NEXT I
+220 GOTO 170
+230 REM
+240 GOSUB 260: GOTO 450
+250 REM
+260 FOR I=1 TO 6: PRINT CHR$(10);: NEXT I
+270 RETURN
+280 REM
+290 DATA 2,21,14,14,25
+300 DATA 1,2,-1,0,2,45,50,-1,0,5,43,52,-1,0,7,41,52,-1
+310 DATA 1,9,37,50,-1,2,11,36,50,-1,3,13,34,49,-1,4,14,32,48,-1
+320 DATA 5,15,31,47,-1,6,16,30,45,-1,7,17,29,44,-1,8,19,28,43,-1
+330 DATA 9,20,27,41,-1,10,21,26,40,-1,11,22,25,38,-1,12,22,24,36,-1
+340 DATA 13,34,-1,14,33,-1,15,31,-1,17,29,-1,18,27,-1
+350 DATA 19,26,-1,16,28,-1,13,30,-1,11,31,-1,10,32,-1
+360 DATA 8,33,-1,7,34,-1,6,13,16,34,-1,5,12,16,35,-1
+370 DATA 4,12,16,35,-1,3,12,15,35,-1,2,35,-1,1,35,-1
+380 DATA 2,34,-1,3,34,-1,4,33,-1,6,33,-1,10,32,34,34,-1
+390 DATA 14,17,19,25,28,31,35,35,-1,15,19,23,30,36,36,-1
+400 DATA 14,18,21,21,24,30,37,37,-1,13,18,23,29,33,38,-1
+410 DATA 12,29,31,33,-1,11,13,17,17,19,19,22,22,24,31,-1
+420 DATA 10,11,17,18,22,22,24,24,29,29,-1
+430 DATA 22,23,26,29,-1,27,29,-1,28,29,-1,4096
+440 REM
+450 END

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

@@ -0,0 +1,67 @@
+                                 BUNNY
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+
+
+
+
+
+
+
+
+
+ UN
+BUN                                          BUNNYB
+BUNNYB                                     NYBUNNYBUN
+BUNNYBUN                                 UNNYBUNNYBUN
+ UNNYBUNNY                           NNYBUNNYBUNNYB
+  NNYBUNNYBU                        UNNYBUNNYBUNNYB
+   NYBUNNYBUNN                    YBUNNYBUNNYBUNNY
+    YBUNNYBUNNY                 NNYBUNNYBUNNYBUNN
+     BUNNYBUNNYB               UNNYBUNNYBUNNYBUN
+      UNNYBUNNYBU             BUNNYBUNNYBUNNYB
+       NNYBUNNYBUN           YBUNNYBUNNYBUNNY
+        NYBUNNYBUNNY        NYBUNNYBUNNYBUNN
+         YBUNNYBUNNYB      NNYBUNNYBUNNYBU
+          BUNNYBUNNYBU    UNNYBUNNYBUNNYB
+           UNNYBUNNYBUN  BUNNYBUNNYBUNN
+            NNYBUNNYBUN YBUNNYBUNNYBU
+             NYBUNNYBUNNYBUNNYBUNNY
+              YBUNNYBUNNYBUNNYBUNN
+               BUNNYBUNNYBUNNYBU
+                 NNYBUNNYBUNNY
+                  NYBUNNYBUN
+                   YBUNNYBU
+                UNNYBUNNYBUNN
+             NYBUNNYBUNNYBUNNYB
+           UNNYBUNNYBUNNYBUNNYBU
+          BUNNYBUNNYBUNNYBUNNYBUN
+        NYBUNNYBUNNYBUNNYBUNNYBUNN
+       NNYBUNNYBUNNYBUNNYBUNNYBUNNY
+      UNNYBUNN  UNNYBUNNYBUNNYBUNNY
+     BUNNYBUN   UNNYBUNNYBUNNYBUNNYB
+    YBUNNYBUN   UNNYBUNNYBUNNYBUNNYB
+   NYBUNNYBUN  BUNNYBUNNYBUNNYBUNNYB
+  NNYBUNNYBUNNYBUNNYBUNNYBUNNYBUNNYB
+ UNNYBUNNYBUNNYBUNNYBUNNYBUNNYBUNNYB
+  NNYBUNNYBUNNYBUNNYBUNNYBUNNYBUNNY
+   NYBUNNYBUNNYBUNNYBUNNYBUNNYBUNNY
+    YBUNNYBUNNYBUNNYBUNNYBUNNYBUNN
+      UNNYBUNNYBUNNYBUNNYBUNNYBUNN
+          BUNNYBUNNYBUNNYBUNNYBUN Y
+              YBUN YBUNNYB  NYBU   B
+               BUNNY   NYBUNNYB     U
+              YBUNN  U  YBUNNYB      N
+             NYBUNN    NYBUNNY   NYBUNN
+            NNYBUNNYBUNNYBUNNY UNN
+           UNN   N Y  N YBUNNYBU
+          BU     NN   N Y    Y
+                      NN  UNNY
+                           NNY
+                            NY
+
+
+
+
+
+

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

@@ -0,0 +1,25 @@
+10 PRINT TAB(26);"BUZZWORD GENERATOR"
+20 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+30 PRINT:PRINT:PRINT
+40 PRINT "THIS PROGRAM PRINTS HIGHLY ACCEPTABLE PHRASES IN"
+50 PRINT "'EDUCATOR-SPEAK'THAT YOU CAN WORK INTO REPORTS"
+60 PRINT "AND SPEECHES.  WHENEVER A QUESTION MARK IS PRINTED,"
+70 PRINT "TYPE A 'Y' FOR ANOTHER PHRASE OR 'N' TO QUIT."
+80 PRINT:PRINT:PRINT "HERE'S THE FIRST PHRASE:"
+90 DIM A$(40)
+100 FOR I=1 TO 39 : READ A$(I) : NEXT I
+110 PRINT A$(INT(13*RND(1)+1));" ";
+120 PRINT A$(INT(13*RND(1)+14));" ";
+130 PRINT A$(INT(13*RND(1)+27)) : PRINT
+150 INPUT Y$ : IF Y$="Y" THEN 110 ELSE GOTO 999
+200 DATA "ABILITY","BASAL","BEHAVIORAL","CHILD-CENTERED"
+210 DATA "DIFFERENTIATED","DISCOVERY","FLEXIBLE","HETEROGENEOUS"
+220 DATA "HOMOGENEOUS","MANIPULATIVE","MODULAR","TAVISTOCK"
+230 DATA "INDIVIDUALIZED","LEARNING","EVALUATIVE","OBJECTIVE"
+240 DATA "COGNITIVE","ENRICHMENT","SCHEDULING","HUMANISTIC"
+250 DATA "INTEGRATED","NON-GRADED","TRAINING","VERTICAL AGE"
+260 DATA "MOTIVATIONAL","CREATIVE","GROUPING","MODIFICATION"
+270 DATA "ACCOUNTABILITY","PROCESS","CORE CURRICULUM","ALGORITHM"
+280 DATA "PERFORMANCE","REINFORCEMENT","OPEN CLASSROOM","RESOURCE"
+290 DATA "STRUCTURE","FACILITY","ENVIRONMENT"
+999 PRINT "COME BACK WHEN YOU NEED HELP WITH ANOTHER REPORT!":END

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

@@ -0,0 +1,4 @@
+Y
+Y
+Y
+N

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

@@ -0,0 +1,25 @@
+                          BUZZWORD GENERATOR
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+
+
+THIS PROGRAM PRINTS HIGHLY ACCEPTABLE PHRASES IN
+'EDUCATOR-SPEAK'THAT YOU CAN WORK INTO REPORTS
+AND SPEECHES.  WHENEVER A QUESTION MARK IS PRINTED,
+TYPE A 'Y' FOR ANOTHER PHRASE OR 'N' TO QUIT.
+
+
+HERE'S THE FIRST PHRASE:
+HETEROGENEOUS TRAINING REINFORCEMENT
+
+? Y
+HETEROGENEOUS SCHEDULING OPEN CLASSROOM
+
+? Y
+DISCOVERY MOTIVATIONAL ENVIRONMENT
+
+? Y
+DIFFERENTIATED VERTICAL AGE PERFORMANCE
+
+? N
+COME BACK WHEN YOU NEED HELP WITH ANOTHER REPORT!

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

@@ -0,0 +1,58 @@
+10 PRINT TAB(32);"CALENDAR"
+20 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+30 PRINT:PRINT:PRINT
+100 REM     VALUES FOR 1979 - SEE NOTES
+110 DIM M(12)
+120 FOR I=1 TO 6: PRINT CHR$(10);: NEXT I
+130 D=1: REM 1979 STARTS ON MONDAY (0=SUN, -1=MON, -2=TUES...)
+140 S=0
+150 REM     READ DAYS OF EACH MONTH
+160 FOR N=0 TO 12: READ M(N): NEXT N
+170 REM
+180 FOR N=1 TO 12
+190 PRINT: PRINT: S=S+M(N-1)
+200 PRINT "**";S;TAB(7);
+210 FOR I=1 TO 18: PRINT "*";: NEXT I
+220 ON N GOTO 230,240,250,260,270,280,290,300,310,320,330,340
+230 PRINT " JANUARY ";: GOTO 350
+240 PRINT " FEBRUARY";: GOTO 350
+250 PRINT "  MARCH  ";: GOTO 350
+260 PRINT "  APRIL  ";: GOTO 350
+270 PRINT "   MAY   ";: GOTO 350
+280 PRINT "   JUNE  ";: GOTO 350
+290 PRINT "   JULY  ";: GOTO 350
+300 PRINT "  AUGUST ";: GOTO 350
+310 PRINT "SEPTEMBER";: GOTO 350
+320 PRINT " OCTOBER ";: GOTO 350
+330 PRINT " NOVEMBER";: GOTO 350
+340 PRINT " DECEMBER";
+350 FOR I=1 TO 18: PRINT "*";: NEXT I
+360 PRINT 365-S;"**";
+370 REM   366-S;     ON LEAP YEARS
+380 PRINT CHR$(10): PRINT "     S       M       T       W";
+390 PRINT "       T       F       S"
+400 PRINT
+410 FOR I=1 TO 59: PRINT "*";: NEXT I
+420 REM
+430 FOR W=1 TO 6
+440 PRINT CHR$(10)
+450 PRINT TAB(4)
+460 REM
+470 FOR G=1 TO 7
+480 D=D+1
+490 D2=D-S
+500 IF D2>M(N) THEN 580
+510 IF D2>0 THEN PRINT D2;
+520 PRINT TAB(4+8*G);
+530 NEXT G
+540 REM
+550 IF D2=M(N) THEN 590
+560 NEXT W
+570 REM
+580 D=D-G
+590 NEXT N
+600 REM
+610 FOR I=1 TO 6: PRINT CHR$(10);: NEXT I
+620 DATA 0,31,28,31,30,31,30,31,31,30,31,30,31
+630 REM  0,31,29,  ..., ON LEAP YEARS
+640 END