basic101 0.1.0

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

@@ -0,0 +1,144 @@
+                               BLACK JACK
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+
+
+DO YOU WANT INSTRUCTIONS? YES
+THIS IS THE GAME OF 21. AS MANY AS 7 PLAYERS MAY PLAY THE
+GAME. ON EACH DEAL, BETS WILL BE ASKED FOR, AND THE
+PLAYERS' BETS SHOULD BE TYPED IN. THE CARDS WILL THEN BE
+DEALT, AND EACH PLAYER IN TURN PLAYS HIS HAND. THE
+FIRST RESPONSE SHOULD BE EITHER 'D', INDICATING THAT THE
+PLAYER IS DOUBLING DOWN, 'S', INDICATING THAT HE IS
+STANDING, 'H', INDICATING HE WANTS ANOTHER CARD, OR '/',
+INDICATING THAT HE WANTS TO SPLIT HIS CARDS. AFTER THE
+INITIAL RESPONSE, ALL FURTHER RESPONSES SHOULD BE 'S' OR
+'H', UNLESS THE CARDS WERE SPLIT, IN WHICH CASE DOUBLING
+DOWN IS AGAIN PERMITTED. IN ORDER TO COLLECT FOR
+BLACKJACK, THE INITIAL RESPONSE SHOULD BE 'S'.
+NUMBER OF PLAYERS? 1
+
+RESHUFFLING
+BETS:
+# 1 ? 10
+PLAYER 1    DEALER
+       4    10   
+       7   
+
+NO DEALER BLACKJACK.
+PLAYER 1 ? H
+RECEIVED A  Q  HIT? N
+TYPE H, OR S, PLEASE? S
+TOTAL IS 21 
+DEALER HAS A  2 CONCEALED FOR A TOTAL OF 12 
+DRAWS  A     Q   ...BUSTED
+
+PLAYER 1  WINS   10 TOTAL= 10 
+DEALER'S TOTAL=-10 
+
+BETS:
+# 1 ? 20
+PLAYER 1    DEALER
+       Q     J   
+       2   
+
+NO DEALER BLACKJACK.
+PLAYER 1 ? H
+RECEIVED A  2  HIT? H
+RECEIVED A  3  HIT? H
+RECEIVED A  9  ...BUSTED
+DEALER HAD A  3   CONCEALED.
+
+PLAYER 1 LOSES   20 TOTAL=-10 
+DEALER'S TOTAL= 10 
+
+BETS:
+# 1 ? 40
+PLAYER 1    DEALER
+       4     5   
+       5   
+PLAYER 1 ? H
+RECEIVED A  3  HIT? S
+TOTAL IS 12 
+DEALER HAS A  9 CONCEALED FOR A TOTAL OF 14 
+DRAWS  9   ...BUSTED
+
+PLAYER 1  WINS   40 TOTAL= 30 
+DEALER'S TOTAL=-30 
+
+BETS:
+# 1 ? 50
+PLAYER 1    DEALER
+       J     2   
+       3   
+PLAYER 1 ? S
+TOTAL IS 13 
+DEALER HAS A  4 CONCEALED FOR A TOTAL OF 6 
+DRAWS  6     7   ---TOTAL IS 19 
+
+
+PLAYER 1 LOSES   50 TOTAL=-20 
+DEALER'S TOTAL= 20 
+
+BETS:
+# 1 ? 60
+PLAYER 1    DEALER
+       5    10   
+      10   
+
+NO DEALER BLACKJACK.
+PLAYER 1 ? H
+RECEIVED A  7  ...BUSTED
+DEALER HAD A  4   CONCEALED.
+
+PLAYER 1 LOSES   60 TOTAL=-80 
+DEALER'S TOTAL= 80 
+
+BETS:
+# 1 ? 70
+PLAYER 1    DEALER
+       8     K   
+       K   
+
+NO DEALER BLACKJACK.
+PLAYER 1 ? S
+TOTAL IS 18 
+DEALER HAS AN 8 CONCEALED FOR A TOTAL OF 18 
+
+
+PLAYER 1 PUSHES       TOTAL=-80 
+DEALER'S TOTAL= 80 
+
+BETS:
+# 1 ? 10
+PLAYER 1    DEALER
+       A     A   
+       A   
+ANY INSURANCE? NO
+
+DEALER HAS A  K IN THE HOLE FOR BLACKJACK
+
+PLAYER 1 LOSES   10 TOTAL=-90 
+DEALER'S TOTAL= 90 
+
+BETS:
+# 1 ? SPLIT
+Not numeric: "SPLIT", try again
+? -1
+BETS:
+# 1 ? 10
+PLAYER 1    DEALER
+       6     6   
+       9   
+PLAYER 1 ? H
+RECEIVED A  J  ...BUSTED
+DEALER HAD A  5   CONCEALED.
+
+PLAYER 1 LOSES   10 TOTAL=-100 
+DEALER'S TOTAL= 100 
+
+BETS:
+# 1 ? 
+Too few items, try again
+? 
+Error on line 1890: No more input

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

@@ -0,0 +1,93 @@
+10 PRINT TAB(33);"BOMBARDMENT"
+20 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+30 PRINT:PRINT:PRINT
+100 PRINT "YOU ARE ON A BATTLEFIELD WITH 4 PLATOONS AND YOU"
+110 PRINT "HAVE 25 OUTPOSTS AVAILABLE WHERE THEY MAY BE PLACED."
+120 PRINT "YOU CAN ONLY PLACE ONE PLATOON AT ANY ONE OUTPOST."
+130 PRINT "THE COMPUTER DOES THE SAME WITH ITS FOUR PLATOONS."
+135 PRINT
+140 PRINT "THE OBJECT OF THE GAME IS TO FIRE MISSLES AT THE"
+150 PRINT "OUTPOSTS OF THE COMPUTER.  IT WILL DO THE SAME TO YOU."
+160 PRINT "THE ONE WHO DESTROYS ALL FOUR OF THE ENEMY'S PLATOONS"
+170 PRINT "FIRST IS THE WINNER."
+180 PRINT
+190 PRINT "GOOD LUCK... AND TELL US WHERE YOU WANT THE BODIES SENT!"
+200 PRINT
+210 PRINT "TEAR OFF MATRIX AND USE IT TO CHECK OFF THE NUMBERS."
+220 FOR R=1 TO 5: PRINT: NEXT R
+260 DIM M(100)
+270 FOR R=1 TO 5
+280 I=(R-1)*5+1
+290 PRINT I,I+1,I+2,I+3,I+4
+300 NEXT R
+350 FOR R=1 TO 10: PRINT: NEXT R
+380 C=INT(RND(1)*25)+1
+390 D=INT(RND(1)*25)+1
+400 E=INT(RND(1)*25)+1
+410 F=INT(RND(1)*25)+1
+420 IF C=D THEN 390
+430 IF C=E THEN 400
+440 IF C=F THEN 410
+450 IF D=E THEN 400
+460 IF D=F THEN 410
+470 IF E=F THEN 410
+480 PRINT "WHAT ARE YOUR FOUR POSITIONS";
+490 INPUT G,H,K,L
+495 PRINT
+500 PRINT "WHERE DO YOU WISH TO FIRE YOUR MISSLE";
+510 INPUT Y
+520 IF Y=C THEN 710
+530 IF Y=D THEN 710
+540 IF Y=E THEN 710
+550 IF Y=F THEN 710
+560 GOTO 630
+570 M=INT(RND(1)*25)+1
+575 GOTO 1160
+580 IF X=G THEN 920
+590 IF X=H THEN 920
+600 IF X=L THEN 920
+610 IF X=K THEN 920
+620 GOTO 670
+630 PRINT "HA, HA YOU MISSED. MY TURN NOW:"
+640 PRINT: PRINT: GOTO 570
+670 PRINT "I MISSED YOU, YOU DIRTY RAT. I PICKED";M". YOUR TURN:"
+680 PRINT: PRINT: GOTO 500
+710 Q=Q+1
+720 IF Q=4 THEN 890
+730 PRINT "YOU GOT ONE OF MY OUTPOSTS!"
+740 IF Q=1 THEN 770
+750 IF Q=2 THEN 810
+760 IF Q=3 THEN 850
+770 PRINT "ONE DOWN, THREE TO GO."
+780 PRINT: PRINT: GOTO 570
+810 PRINT "TWO DOWN, TWO TO GO."
+820 PRINT: PRINT: GOTO 570
+850 PRINT "THREE DOWN, ONE TO GO."
+860 PRINT: PRINT: GOTO 570
+890 PRINT "YOU GOT ME, I'M GOING FAST. BUT I'LL GET YOU WHEN"
+900 PRINT "MY TRANSISTO&S RECUP%RA*E!"
+910 GOTO 1235
+920 Z=Z+1
+930 IF Z=4 THEN 1110
+940 PRINT "I GOT YOU. IT WON'T BE LONG NOW. POST";X;"WAS HIT."
+950 IF Z=1 THEN 990
+960 IF Z=2 THEN 1030
+970 IF Z=3 THEN 1070
+990 PRINT "YOU HAVE ONLY THREE OUTPOSTS LEFT."
+1000 PRINT: PRINT: GOTO 500
+1030 PRINT "YOU HAVE ONLY TWO OUTPOSTS LEFT."
+1040 PRINT: PRINT: GOTO 500
+1070 PRINT "YOU HAVE ONLY ONE OUTPOST LEFT."
+1080 PRINT: PRINT: GOTO 500
+1110 PRINT "YOU'RE DEAD. YOUR LAST OUTPOST WAS AT";X;". HA, HA, HA."
+1120 PRINT "BETTER LUCK NEXT TIME."
+1150 GOTO 1235
+1160 P=P+1
+1170 N=P-1
+1180 FOR T=1 TO N
+1190 IF M=M(T) THEN 570
+1200 NEXT T
+1210 X=M
+1220 M(P)=M
+1230 GOTO 580
+1235 END

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

@@ -0,0 +1,20 @@
+1,7,8,14
+1
+2
+3
+4
+5
+6
+7
+8
+9
+10
+11
+12
+13
+14
+15
+17
+18
+19
+16

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

@@ -0,0 +1,175 @@
+                                 BOMBARDMENT
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+
+
+YOU ARE ON A BATTLEFIELD WITH 4 PLATOONS AND YOU
+HAVE 25 OUTPOSTS AVAILABLE WHERE THEY MAY BE PLACED.
+YOU CAN ONLY PLACE ONE PLATOON AT ANY ONE OUTPOST.
+THE COMPUTER DOES THE SAME WITH ITS FOUR PLATOONS.
+
+THE OBJECT OF THE GAME IS TO FIRE MISSLES AT THE
+OUTPOSTS OF THE COMPUTER.  IT WILL DO THE SAME TO YOU.
+THE ONE WHO DESTROYS ALL FOUR OF THE ENEMY'S PLATOONS
+FIRST IS THE WINNER.
+
+GOOD LUCK... AND TELL US WHERE YOU WANT THE BODIES SENT!
+
+TEAR OFF MATRIX AND USE IT TO CHECK OFF THE NUMBERS.
+
+
+
+
+
+ 1             2             3             4             5 
+ 6             7             8             9             10 
+ 11            12            13            14            15 
+ 16            17            18            19            20 
+ 21            22            23            24            25 
+
+
+
+
+
+
+
+
+
+
+WHAT ARE YOUR FOUR POSITIONS? 1,7,8,14
+
+WHERE DO YOU WISH TO FIRE YOUR MISSLE? 1
+HA, HA YOU MISSED. MY TURN NOW:
+
+
+I MISSED YOU, YOU DIRTY RAT. I PICKED 17 . YOUR TURN:
+
+
+WHERE DO YOU WISH TO FIRE YOUR MISSLE? 2
+HA, HA YOU MISSED. MY TURN NOW:
+
+
+I MISSED YOU, YOU DIRTY RAT. I PICKED 11 . YOUR TURN:
+
+
+WHERE DO YOU WISH TO FIRE YOUR MISSLE? 3
+HA, HA YOU MISSED. MY TURN NOW:
+
+
+I MISSED YOU, YOU DIRTY RAT. I PICKED 23 . YOUR TURN:
+
+
+WHERE DO YOU WISH TO FIRE YOUR MISSLE? 4
+HA, HA YOU MISSED. MY TURN NOW:
+
+
+I MISSED YOU, YOU DIRTY RAT. I PICKED 25 . YOUR TURN:
+
+
+WHERE DO YOU WISH TO FIRE YOUR MISSLE? 5
+HA, HA YOU MISSED. MY TURN NOW:
+
+
+I MISSED YOU, YOU DIRTY RAT. I PICKED 10 . YOUR TURN:
+
+
+WHERE DO YOU WISH TO FIRE YOUR MISSLE? 6
+HA, HA YOU MISSED. MY TURN NOW:
+
+
+I MISSED YOU, YOU DIRTY RAT. I PICKED 20 . YOUR TURN:
+
+
+WHERE DO YOU WISH TO FIRE YOUR MISSLE? 7
+HA, HA YOU MISSED. MY TURN NOW:
+
+
+I GOT YOU. IT WON'T BE LONG NOW. POST 14 WAS HIT.
+YOU HAVE ONLY THREE OUTPOSTS LEFT.
+
+
+WHERE DO YOU WISH TO FIRE YOUR MISSLE? 8
+HA, HA YOU MISSED. MY TURN NOW:
+
+
+I MISSED YOU, YOU DIRTY RAT. I PICKED 15 . YOUR TURN:
+
+
+WHERE DO YOU WISH TO FIRE YOUR MISSLE? 9
+HA, HA YOU MISSED. MY TURN NOW:
+
+
+I MISSED YOU, YOU DIRTY RAT. I PICKED 24 . YOUR TURN:
+
+
+WHERE DO YOU WISH TO FIRE YOUR MISSLE? 10
+HA, HA YOU MISSED. MY TURN NOW:
+
+
+I MISSED YOU, YOU DIRTY RAT. I PICKED 2 . YOUR TURN:
+
+
+WHERE DO YOU WISH TO FIRE YOUR MISSLE? 11
+YOU GOT ONE OF MY OUTPOSTS!
+ONE DOWN, THREE TO GO.
+
+
+I MISSED YOU, YOU DIRTY RAT. I PICKED 3 . YOUR TURN:
+
+
+WHERE DO YOU WISH TO FIRE YOUR MISSLE? 12
+HA, HA YOU MISSED. MY TURN NOW:
+
+
+I GOT YOU. IT WON'T BE LONG NOW. POST 1 WAS HIT.
+YOU HAVE ONLY TWO OUTPOSTS LEFT.
+
+
+WHERE DO YOU WISH TO FIRE YOUR MISSLE? 13
+HA, HA YOU MISSED. MY TURN NOW:
+
+
+I MISSED YOU, YOU DIRTY RAT. I PICKED 21 . YOUR TURN:
+
+
+WHERE DO YOU WISH TO FIRE YOUR MISSLE? 14
+YOU GOT ONE OF MY OUTPOSTS!
+TWO DOWN, TWO TO GO.
+
+
+I MISSED YOU, YOU DIRTY RAT. I PICKED 22 . YOUR TURN:
+
+
+WHERE DO YOU WISH TO FIRE YOUR MISSLE? 15
+HA, HA YOU MISSED. MY TURN NOW:
+
+
+I MISSED YOU, YOU DIRTY RAT. I PICKED 12 . YOUR TURN:
+
+
+WHERE DO YOU WISH TO FIRE YOUR MISSLE? 17
+HA, HA YOU MISSED. MY TURN NOW:
+
+
+I MISSED YOU, YOU DIRTY RAT. I PICKED 16 . YOUR TURN:
+
+
+WHERE DO YOU WISH TO FIRE YOUR MISSLE? 18
+YOU GOT ONE OF MY OUTPOSTS!
+THREE DOWN, ONE TO GO.
+
+
+I MISSED YOU, YOU DIRTY RAT. I PICKED 4 . YOUR TURN:
+
+
+WHERE DO YOU WISH TO FIRE YOUR MISSLE? 19
+HA, HA YOU MISSED. MY TURN NOW:
+
+
+I GOT YOU. IT WON'T BE LONG NOW. POST 7 WAS HIT.
+YOU HAVE ONLY ONE OUTPOST LEFT.
+
+
+WHERE DO YOU WISH TO FIRE YOUR MISSLE? 16
+YOU GOT ME, I'M GOING FAST. BUT I'LL GET YOU WHEN
+MY TRANSISTO&S RECUP%RA*E!

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

@@ -0,0 +1,53 @@
+10 PRINT TAB(33);"BOUNCE"
+20 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+30 PRINT:PRINT:PRINT
+90 DIM T(20)
+100 PRINT "THIS SIMULATION LETS YOU SPECIFY THE INITIAL VELOCITY"
+110 PRINT "OF A BALL THROWN STRAIGHT UP, AND THE COEFFICIENT OF"
+120 PRINT "ELASTICITY OF THE BALL.  PLEASE USE A DECIMAL FRACTION"
+130 PRINT "COEFFICIENCY (LESS THAN 1)."
+131 PRINT
+132 PRINT "YOU ALSO SPECIFY THE TIME INCREMENT TO BE USED IN"
+133 PRINT "'STROBING' THE BALL'S FLIGHT (TRY .1 INITIALLY)."
+134 PRINT
+135 INPUT "TIME INCREMENT (SEC)";S2
+140 PRINT
+150 INPUT "VELOCITY (FPS)";V
+160 PRINT
+170 INPUT "COEFFICIENT";C
+180 PRINT
+182 PRINT "FEET"
+184 PRINT
+186 S1=INT(70/(V/(16*S2)))
+190 FOR I=1 TO S1
+200 T(I)=V*C^(I-1)/16
+210 NEXT I
+220 FOR H=INT(-16*(V/32)^2+V^2/32+.5) TO 0 STEP -.5
+221 IF INT(H)<>H THEN 225
+222 PRINT H;
+225 L=0
+230 FOR I=1 TO S1
+240 FOR T=0 TO T(I) STEP S2
+245 L=L+S2
+250 IF ABS(H-(.5*(-32)*T^2+V*C^(I-1)*T))>.25 THEN 270
+260 PRINT TAB(L/S2);"0";
+270 NEXT T
+275 T=T(I+1)/2
+276 IF -16*T^2+V*C^(I-1)*T<H THEN 290
+280 NEXT I
+290 PRINT
+300 NEXT H
+310 PRINT TAB(1);
+320 FOR I=1 TO INT(L+1)/S2+1
+330 PRINT ".";
+340 NEXT I
+350 PRINT
+355 PRINT " 0";
+360 FOR I=1 TO INT(L+.9995)
+380 PRINT TAB(INT(I/S2));I;
+390 NEXT I
+400 PRINT
+410 PRINT TAB(INT(L+1)/(2*S2)-2);"SECONDS"
+420 PRINT
+430 GOTO 135
+440 END

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

@@ -0,0 +1,15 @@
+                                 BOUNCE
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+
+
+THIS SIMULATION LETS YOU SPECIFY THE INITIAL VELOCITY
+OF A BALL THROWN STRAIGHT UP, AND THE COEFFICIENT OF
+ELASTICITY OF THE BALL.  PLEASE USE A DECIMAL FRACTION
+COEFFICIENCY (LESS THAN 1).
+
+YOU ALSO SPECIFY THE TIME INCREMENT TO BE USED IN
+'STROBING' THE BALL'S FLIGHT (TRY .1 INITIALLY).
+
+TIME INCREMENT (SEC)? 
+Error on line 135: No more input

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

@@ -0,0 +1,101 @@
+10 PRINT TAB(34);"BOWL"
+20 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+30 PRINT:PRINT:PRINT
+270 DIM C(15),A(100,6)
+360 PRINT "WELCOME TO THE ALLEY"
+450 PRINT "BRING YOUR FRIENDS"
+540 PRINT "OKAY LET'S FIRST GET ACQUAINTED"
+630 PRINT ""
+720 PRINT "THE INSTRUCTIONS (Y/N)"
+810 INPUT Z$
+900 IF Z$="Y" THEN 990
+960 IF Z$="N" THEN 1530
+990 PRINT "THE GAME OF BOWLING TAKES MIND AND SKILL.DURING THE GAME"
+1080 PRINT "THE COMPUTER WILL KEEP SCORE.YOU MAY COMPETE WITH"
+1170 PRINT "OTHER PLAYERS[UP TO FOUR].YOU WILL BE PLAYING TEN FRAMES"
+1260 PRINT "ON THE PIN DIAGRAM 'O' MEANS THE PIN IS DOWN...'+' MEANS THE"
+1350 PRINT "PIN IS STANDING.AFTER THE GAME THE COMPUTER WILL SHOW YOUR"
+1440 PRINT "SCORES ."
+1530 PRINT "FIRST OF ALL...HOW MANY ARE PLAYING";
+1620 INPUT R
+1710 PRINT 
+1800 PRINT "VERY GOOD..."
+1890 FOR I=1 TO 100: FOR J=1 TO 6: A(I,J)=0: NEXT J: NEXT I
+1980 F=1
+2070 FOR P=1 TO R
+2160 M=0
+2250 B=1
+2340 M=0: Q=0
+2430 FOR I=1 TO 15: C(I)=0: NEXT I
+2520 REM ARK BALL GENERATOR USING MOD '15' SYSTEM
+2610 PRINT "TYPE ROLL TO GET THE BALL GOING."
+2700 INPUT N$
+2790 K=0: D=0
+2880 FOR I=1 TO 20
+2970 X=INT(RND(1)*100)
+3060 FOR J=1 TO 10
+3150 IF X<15*J THEN 3330
+3240 NEXT J
+3330 C(15*J-X)=1
+3420 NEXT I
+3510 REM ARK PIN DIAGRAM
+3600 PRINT "PLAYER:"P;"FRAME:";F"BALL:"B
+3690 FOR I=0 TO 3
+3780 PRINT
+3870 FOR J=1 TO 4-I
+3960 K=K+1
+4050 IF C(K)=1 THEN 4320
+4140 PRINT TAB(I);"+ ";
+4230 GOTO 4410
+4320 PRINT TAB(I);"O ";
+4410 NEXT J
+4500 NEXT I
+4590 PRINT ""
+4680 REM ARK ROLL ANALYSIS
+4770 FOR I=1 TO 10
+4860 D=D+C(I)
+4950 NEXT I
+5040 IF D-M <> 0 THEN 5220
+5130 PRINT "GUTTER!!"
+5220 IF B<>1 OR D<>10 THEN 5490
+5310 PRINT "STRIKE!!!!!"
+5400 Q=3
+5490 IF B<>2 OR D<>10 THEN 5760
+5580 PRINT "SPARE!!!!"
+5670 Q=2
+5760 IF B<>2 OR D>=10 THEN 6030
+5850 PRINT "ERROR!!!"
+5940 Q=1
+6030 IF B<>1 OR D>=10 THEN 6210
+6120 PRINT "ROLL YOUR 2ND BALL"
+6210 REM ARK STORAGE OF THE SCORES
+6300 PRINT 
+6390 A(F*P,B)=D
+6480 IF B=2 THEN 7020
+6570 B=2
+6660 M=D
+6750 IF Q=3 THEN 6210
+6840 A(F*P,B)=D-M
+6930 IF Q=0 THEN 2520
+7020 A(F*P,3)=Q
+7110 NEXT P
+7200 F=F+1
+7290 IF F<11 THEN 2070
+7295 PRINT "FRAMES"
+7380 FOR I=1 TO 10
+7470 PRINT I;
+7560 NEXT I
+7650 PRINT 
+7740 FOR P=1 TO R
+7830 FOR I=1 TO 3
+7920 FOR J=1 TO 10
+8010 PRINT A(J*P,I);
+8100 NEXT J
+8105 PRINT 
+8190 NEXT I
+8280 PRINT 
+8370 NEXT P
+8460 PRINT "DO YOU WANT ANOTHER GAME"
+8550 INPUT A$
+8640 IF LEFT$(A$,1)="Y" THEN 2610
+8730 END

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

@@ -0,0 +1,23 @@
+Y
+1
+ROLL
+R
+R
+R
+R
+R
+R
+R
+R
+R
+R
+R
+R
+R
+R
+R
+R
+R
+R
+R
+NO