basic101 0.1.0

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

@@ -0,0 +1,71 @@
+10 PRINT TAB(32);"ANIMAL"
+20 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+30 PRINT: PRINT: PRINT
+40 PRINT "PLAY 'GUESS THE ANIMAL'"
+45 PRINT
+50 PRINT "THINK OF AN ANIMAL AND THE COMPUTER WILL TRY TO GUESS IT."
+60 PRINT
+70 DIM A$(200)
+80 FOR I=0 TO 3
+90 READ A$(I)
+100 NEXT I
+110 N=VAL(A$(0))
+120 REM          MAIN CONTROL SECTION
+130 INPUT "ARE YOU THINKING OF AN ANIMAL";A$
+140 IF A$="LIST" THEN 600
+150 IF LEFT$(A$,1)<>"Y" THEN 120
+160 K=1
+170 GOSUB 390
+180 IF LEN(A$(K))=0 THEN 999
+190 IF LEFT$(A$(K),2)="\Q" THEN 170
+200 PRINT "IS IT A ";RIGHT$(A$(K),LEN(A$(K))-2);
+210 INPUT A$
+220 A$=LEFT$(A$,1)
+230 IF LEFT$(A$,1)="Y" THEN PRINT "WHY NOT TRY ANOTHER ANIMAL?": GOTO 120
+240 INPUT "THE ANIMAL YOU WERE THINKING OF WAS A ";V$
+250 PRINT "PLEASE TYPE IN A QUESTION THAT WOULD DISTINGUISH A"
+260 PRINT V$;" FROM A ";RIGHT$(A$(K),LEN(A$(K))-2)
+270 INPUT X$
+280 PRINT "FOR A ";V$;" THE ANSWER WOULD BE ";
+290 INPUT A$
+300 A$=LEFT$(A$,1): IF A$<>"Y" AND A$<>"N" THEN 280
+310 IF A$="Y" THEN B$="N"
+320 IF A$="N" THEN B$="Y"
+330 Z1=VAL(A$(0))
+340 A$(0)=STR$(Z1+2)
+350 A$(Z1)=A$(K)
+360 A$(Z1+1)="\A"+V$
+370 A$(K)="\Q"+X$+"\"+A$+STR$(Z1+1)+"\"+B$+STR$(Z1)+"\"
+380 GOTO 120
+390 REM     SUBROUTINE TO PRINT QUESTIONS
+400 Q$=A$(K)
+410 FOR Z=3 TO LEN(Q$)
+415 IF MID$(Q$,Z,1)<>"\" THEN PRINT MID$(Q$,Z,1);: NEXT Z
+420 INPUT C$
+430 C$=LEFT$(C$,1)
+440 IF C$<>"Y" AND C$<>"N" THEN 410
+450 T$="\"+C$
+455 FOR X=3 TO LEN(Q$)-1
+460 IF MID$(Q$,X,2)=T$ THEN 480
+470 NEXT X
+475 STOP
+480 FOR Y=X+1 TO LEN(Q$)
+490 IF MID$(Q$,Y,1)="\" THEN 510
+500 NEXT Y
+505 STOP
+510 K=VAL(MID$(Q$,X+2,Y-X-2))
+520 RETURN
+530 DATA "4","\QDOES IT SWIM\Y2\N3\","\AFISH","\ABIRD"
+600 PRINT:PRINT "ANIMALS I ALREADY KNOW ARE:"
+605 X=0
+610 FOR I=1 TO 200
+620 IF LEFT$(A$(I),2)<>"\A" THEN 650
+624 PRINT TAB(15*X);
+630 FOR Z=3 TO LEN(A$(I))
+640 IF MID$(A$(I),Z,1)<>"\" THEN PRINT MID$(A$(I),Z,1);: NEXT Z
+645 X=X+1: IF X=4 THEN X=0: PRINT
+650 NEXT I
+660 PRINT
+670 PRINT
+680 GOTO 120
+999 END

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

@@ -0,0 +1,17 @@
+Y
+YES
+NO
+JELLYFISH
+DOES IT HAVE SCALES
+NO
+YES
+NO
+NO
+GIRAFFE
+DOES IT HAVE A LONG NECK
+YES
+YES
+YES
+YES
+YES
+LIST

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

@@ -0,0 +1,38 @@
+                                ANIMAL
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+
+
+PLAY 'GUESS THE ANIMAL'
+
+THINK OF AN ANIMAL AND THE COMPUTER WILL TRY TO GUESS IT.
+
+ARE YOU THINKING OF AN ANIMAL? Y
+DOES IT SWIM? YES
+IS IT A FISH? NO
+THE ANIMAL YOU WERE THINKING OF WAS A ? JELLYFISH
+PLEASE TYPE IN A QUESTION THAT WOULD DISTINGUISH A
+JELLYFISH FROM A FISH
+? DOES IT HAVE SCALES
+FOR A JELLYFISH THE ANSWER WOULD BE ? NO
+ARE YOU THINKING OF AN ANIMAL? YES
+DOES IT SWIM? NO
+IS IT A BIRD? NO
+THE ANIMAL YOU WERE THINKING OF WAS A ? GIRAFFE
+PLEASE TYPE IN A QUESTION THAT WOULD DISTINGUISH A
+GIRAFFE FROM A BIRD
+? DOES IT HAVE A LONG NECK
+FOR A GIRAFFE THE ANSWER WOULD BE ? YES
+ARE YOU THINKING OF AN ANIMAL? YES
+DOES IT SWIM? YES
+DOES IT HAVE SCALES? YES
+IS IT A FISH? YES
+WHY NOT TRY ANOTHER ANIMAL?
+ARE YOU THINKING OF AN ANIMAL? LIST
+
+ANIMALS I ALREADY KNOW ARE:
+FISH           JELLYFISH      BIRD           GIRAFFE
+
+
+ARE YOU THINKING OF AN ANIMAL? 
+Error on line 130: No more input

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

@@ -0,0 +1,70 @@
+5 PRINT TAB(34);"AWARI"
+7 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+10 DATA 0
+15 DIM B(13),G(13),F(50):READ N
+20 PRINT:PRINT:E=0
+25 FOR I=0 TO 12:B(I)=3:NEXT I
+30 C=0:F(N)=0:B(13)=0:B(6)=0
+35 GOSUB 500
+40 PRINT "YOUR MOVE";:GOSUB 110
+45 IF E=0 THEN 80
+50 IF M=H THEN GOSUB 100
+55 IF E=0 THEN 80
+60 PRINT "MY MOVE IS ";:GOSUB 800
+65 IF E=0 THEN 80
+70 IF M=H THEN PRINT ",";:GOSUB 800
+75 IF E>0 THEN 35
+80 PRINT:PRINT"GAME OVER"
+85 D=B(6)-B(13):IF D<0 THEN PRINT "I WIN BY";-D;"POINTS":GOTO 20
+90 N=N+1:IF D=0 THEN PRINT "DRAWN GAME":GOTO 20
+95 PRINT "YOU WIN BY";D;"POINTS":GOTO 20
+100 PRINT "AGAIN";
+110 INPUT M:IF M<7 THEN IF M>0 THEN M=M-1:GOTO 130
+120 PRINT "ILLEGAL MOVE":GOTO 100
+130 IF B(M)=0 THEN 120
+140 H=6:GOSUB 200
+150 GOTO 500
+200 K=M:GOSUB 600
+205 E=0:IF K>6 THEN K=K-7
+210 C=C+1:IF C<9 THEN F(N)=F(N)*6+K
+215 FOR I=0 TO 5:IF B(I)<>0 THEN 230
+220 NEXT I
+225 RETURN
+230 FOR I=7 TO 12:IF B(I)<>0 THEN E=1:RETURN
+235 GOTO 220
+500 PRINT:PRINT"   ";
+505 FOR I=12 TO 7 STEP -1:GOSUB 580
+510 NEXT I
+515 PRINT:I=13:GOSUB 580
+520 PRINT "                       ";:PRINT B(6):PRINT "   ";
+525 FOR I=0 TO 5:GOSUB 580
+530 NEXT I
+535 PRINT:PRINT:RETURN
+580 IF B(I)<10 THEN PRINT " ";
+585 PRINT B(I);:RETURN
+600 P=B(M):B(M)=0
+605 FOR P=P TO 1 STEP -1:M=M+1:IF M>13 THEN M=M-14
+610 B(M)=B(M)+1:NEXT P
+615 IF B(M)=1 THEN IF M<>6 THEN IF M<>13 THEN IF B(12-M)<>0 THEN 625
+620 RETURN
+625 B(H)=B(H)+B(12-M)+1:B(M)=0:B(12-M)=0:RETURN
+800 D=-99:H=13
+805 FOR I=0 TO 13:G(I)=B(I):NEXT I
+810 FOR J=7 TO 12:IF B(J)=0 THEN 885
+815 G=0:M=J:GOSUB 600
+820 FOR I=0 TO 5:IF B(I)=0 THEN 845
+825 L=B(I)+I:R=0
+830 IF L>13 THEN L=L-14:R=1:GOTO 830
+835 IF B(L)=0 THEN IF L<>6 THEN IF L<>13 THEN R=B(12-L)+R
+840 IF R>Q THEN Q=R
+845 NEXT I
+850 Q=B(13)-B(6)-Q:IF C>8 THEN 875
+855 K=J:IF K>6 THEN K=K-7
+860 FOR I=0 TO N-1:IF F(N)*6+K=INT(F(I)/6^(7-C)+.1) THEN Q=Q-2
+870 NEXT I
+875 FOR I=0 TO 13:B(I)=G(I):NEXT I
+880 IF Q>=D THEN A=J:D=Q
+885 NEXT J
+890 M=A:PRINT CHR$(42+M);:GOTO 200
+900 FOR I=0 TO N-1:PRINT B(I):NEXT I
+999 END

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

@@ -0,0 +1,11 @@
+6
+5
+4
+6
+5
+6
+1
+6
+5
+6
+4

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

@@ -0,0 +1,117 @@
+                                  AWARI
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+
+
+     3   3   3   3   3   3 
+  0                         0 
+     3   3   3   3   3   3 
+
+YOUR MOVE? 6
+
+     3   3   3   3   4   4 
+  0                         1 
+     3   3   3   3   3   0 
+
+MY MOVE IS 1
+     3   4   4   4   5   0 
+  0                         1 
+     3   3   3   3   3   0 
+
+YOUR MOVE? 5
+
+     3   4   4   4   5   0 
+  0                         4 
+     3   3   3   3   0   0 
+
+MY MOVE IS 2,6
+     0   5   5   5   0   0 
+  2                         4 
+     4   4   4   3   0   0 
+
+YOUR MOVE? 4
+
+     0   5   5   5   0   0 
+  2                         5 
+     4   4   4   0   1   1 
+
+AGAIN? 6
+
+     0   5   5   5   0   0 
+  2                         6 
+     4   4   4   0   1   0 
+
+MY MOVE IS 5
+     1   0   5   5   0   0 
+  3                         6 
+     5   5   5   0   1   0 
+
+YOUR MOVE? 5
+
+     1   0   5   5   0   0 
+  3                         6 
+     5   5   5   0   0   1 
+
+MY MOVE IS 6,4
+     1   1   0   5   0   0 
+  5                         6 
+     6   6   5   0   0   1 
+
+YOUR MOVE? 6
+
+     1   1   0   5   0   0 
+  5                         7 
+     6   6   5   0   0   0 
+
+AGAIN? 1
+
+     1   1   0   5   0   0 
+  5                         8 
+     0   7   6   1   1   1 
+
+MY MOVE IS 3
+     0   2   1   0   0   0 
+  9                         8 
+     0   7   6   1   1   1 
+
+YOUR MOVE? 6
+
+     0   2   1   0   0   0 
+  9                         9 
+     0   7   6   1   1   0 
+
+AGAIN? 5
+
+     0   2   1   0   0   0 
+  9                         9 
+     0   7   6   1   0   1 
+
+MY MOVE IS 5,4
+     1   0   0   0   0   0 
+ 18                         9 
+     0   0   6   1   0   1 
+
+YOUR MOVE? 6
+
+     1   0   0   0   0   0 
+ 18                         10 
+     0   0   6   1   0   0 
+
+AGAIN? 4
+
+     1   0   0   0   0   0 
+ 18                         10 
+     0   0   6   0   1   0 
+
+MY MOVE IS 6
+GAME OVER
+I WIN BY 9 POINTS
+
+
+
+     3   3   3   3   3   3 
+  0                         0 
+     3   3   3   3   3   3 
+
+YOUR MOVE? 
+Error on line 110: No more input

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

@@ -0,0 +1,81 @@
+5 PRINT TAB(33);"BAGELS"
+10 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY":PRINT:PRINT
+15 REM *** BAGLES NUMBER GUESSING GAME
+20 REM *** ORIGINAL SOURCE UNKNOWN BUT SUSPECTED TO BE
+25 REM *** LAWRENCE HALL OF SCIENCE, U.C. BERKELY
+30 DIM A1(6),A(3),B(3)
+40 Y=0:T=255
+50 PRINT:PRINT:PRINT
+70 INPUT "WOULD YOU LIKE THE RULES (YES OR NO)";A$
+90 IF LEFT$(A$,1)="N" THEN 150
+100 PRINT:PRINT "I AM THINKING OF A THREE-DIGIT NUMBER.  TRY TO GUESS"
+110 PRINT "MY NUMBER AND I WILL GIVE YOU CLUES AS FOLLOWS:"
+120 PRINT "   PICO   - ONE DIGIT CORRECT BUT IN THE WRONG POSITION"
+130 PRINT "   FERMI  - ONE DIGIT CORRECT AND IN THE RIGHT POSITION"
+140 PRINT "   BAGELS - NO DIGITS CORRECT"
+150 FOR I=1 TO 3
+160 A(I)=INT(10*RND(1))
+165 IF I-1=0 THEN 200
+170 FOR J=1 TO I-1
+180 IF A(I)=A(J) THEN 160
+190 NEXT J
+200 NEXT I
+210 PRINT:PRINT "O.K.  I HAVE A NUMBER IN MIND."
+220 FOR I=1 TO 20
+230 PRINT "GUESS #";I,
+240 INPUT A$
+245 IF LEN(A$)<>3 THEN 630
+250 FOR Z=1 TO 3:A1(Z)=ASC(MID$(A$,Z,1)):NEXT Z
+260 FOR J=1 TO 3
+270 IF A1(J)<48 THEN 300
+280 IF A1(J)>57 THEN 300
+285 B(J)=A1(J)-48
+290 NEXT J
+295 GOTO 320
+300 PRINT "WHAT?"
+310 GOTO 230
+320 IF B(1)=B(2) THEN 650
+330 IF B(2)=B(3) THEN 650
+340 IF B(3)=B(1) THEN 650
+350 C=0:D=0
+360 FOR J=1 TO 2
+370 IF A(J)<>B(J+1) THEN 390
+380 C=C+1
+390 IF A(J+1)<>B(J) THEN 410
+400 C=C+1
+410 NEXT J
+420 IF A(1)<>B(3) THEN 440
+430 C=C+1
+440 IF A(3)<>B(1) THEN 460
+450 C=C+1
+460 FOR J=1 TO 3
+470 IF A(J)<>B(J) THEN 490
+480 D=D+1
+490 NEXT J
+500 IF D=3 THEN 680
+505 IF C=0 THEN 545
+520 FOR J=1 TO C
+530 PRINT "PICO ";
+540 NEXT J
+545 IF D=0 THEN 580
+550 FOR J=1 TO D
+560 PRINT "FERMI ";
+570 NEXT J
+580 IF C+D<>0 THEN 600
+590 PRINT "BAGELS";
+600 PRINT
+605 NEXT I
+610 PRINT "OH WELL."
+615 PRINT "THAT'S TWNETY GUESSES.  MY NUMBER WAS";100*A(1)+10*A(2)+A(3)
+620 GOTO 700
+630 PRINT "TRY GUESSING A THREE-DIGIT NUMBER.":GOTO 230
+650 PRINT "OH, I FORGOT TO TELL YOU THAT THE NUMBER I HAVE IN MIND"
+660 PRINT "HAS NO TWO DIGITS THE SAME.":GOTO 230
+680 PRINT "YOU GOT IT!!!":PRINT
+690 Y=Y+1
+700 INPUT "PLAY AGAIN (YES OR NO)";A$
+720 IF LEFT$(A$,1)="YES" THEN 150
+730 IF Y=0 THEN 750
+740 PRINT:PRINT "A";Y;"POINT BAGELS BUFF!!"
+750 PRINT "HOPE YOU HAD FUN.  BYE."
+999 END

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

@@ -0,0 +1,12 @@
+YES
+111
+123
+456
+124
+125
+127
+152
+512
+567
+576
+NO

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

@@ -0,0 +1,42 @@
+                                 BAGELS
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+
+
+
+
+WOULD YOU LIKE THE RULES (YES OR NO)? YES
+
+I AM THINKING OF A THREE-DIGIT NUMBER.  TRY TO GUESS
+MY NUMBER AND I WILL GIVE YOU CLUES AS FOLLOWS:
+   PICO   - ONE DIGIT CORRECT BUT IN THE WRONG POSITION
+   FERMI  - ONE DIGIT CORRECT AND IN THE RIGHT POSITION
+   BAGELS - NO DIGITS CORRECT
+
+O.K.  I HAVE A NUMBER IN MIND.
+GUESS # 1     ? 111
+OH, I FORGOT TO TELL YOU THAT THE NUMBER I HAVE IN MIND
+HAS NO TWO DIGITS THE SAME.
+GUESS # 1     ? 123
+BAGELS
+GUESS # 2     ? 456
+PICO FERMI 
+GUESS # 3     ? 124
+BAGELS
+GUESS # 4     ? 125
+PICO 
+GUESS # 5     ? 127
+PICO 
+GUESS # 6     ? 152
+PICO 
+GUESS # 7     ? 512
+FERMI 
+GUESS # 8     ? 567
+PICO PICO FERMI 
+GUESS # 9     ? 576
+YOU GOT IT!!!
+
+PLAY AGAIN (YES OR NO)? NO
+
+A 1 POINT BAGELS BUFF!!
+HOPE YOU HAD FUN.  BYE.

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

@@ -0,0 +1,94 @@
+10 INPUT "HORIZONTAL";X
+20 INPUT "VERTICAL";Y
+21 INPUT "CENTERED";L$
+22 G1=0:IF L$>"P" THEN G1=1
+23 INPUT "CHARACTER (TYPE 'ALL' IF YOU WANT CHARACTER BEING PRINTED)";M$
+29 PRINT "STATEMENT";
+30 INPUT A$
+35 INPUT "SET PAGE";O$
+40 A=ASC(LEFT$(A$,1))
+50 REM
+60 REM
+70 FOR T=1 TO LEN(A$)
+80 P$=MID$(A$,T,1)
+90 FOR O=1 TO 50
+95 READ S$,S(1),S(2),S(3),S(4),S(5),S(6),S(7)
+96 IF P$=" " THEN 812
+100 IF P$=S$ THEN 200
+120 NEXT O
+200 RESTORE
+201 X$=M$
+202 IF M$="ALL" THEN X$=S$
+205 FOR U=1 TO 7
+210 FOR K=8 TO 0 STEP -1
+230 IF 2^K<S(U) THEN 270
+240 J(9-K)=0
+250 GOTO 280
+270 J(9-K)=1: S(U)=S(U)-2^K
+272 IF S(U)=1 THEN 815
+280 NEXT K
+445 FOR T1=1 TO X
+447 PRINT TAB((63-4.5*Y)*G1/(LEN(X$))+1);
+450 FOR B=1 TO F(U)
+460 IF J(B)=0 THEN 500
+465 FOR I=1 TO Y: PRINT X$;: NEXT I
+470 GOTO 600
+500 FOR I=1 TO Y
+510 FOR I1=1 TO LEN(X$)
+520 PRINT " ";: NEXT I1
+530 NEXT I
+600 NEXT B
+620 PRINT
+630 NEXT T1
+700 NEXT U
+750 FOR H=1 TO 2*X: PRINT: NEXT H
+800 NEXT T
+806 FOR H=1 TO 75: PRINT: NEXT H
+810 END
+812 FOR H=1 TO 7*X: PRINT: NEXT H
+813 GOTO 800
+815 F(U)=9-K: GOTO 445
+899 DATA " ",0,0,0,0,0,0,0
+900 DATA "A",505,37,35,34,35,37,505
+901 DATA "G",125,131,258,258,290,163,101
+902 DATA "E",512,274,274,274,274,258,258
+903 DATA "T",2,2,2,512,2,2,2
+904 DATA "W",256,257,129,65,129,257,256
+905 DATA "L",512,257,257,257,257,257,257
+906 DATA "S",69,139,274,274,274,163,69
+907 DATA "O",125,131,258,258,258,131,125
+908 DATA "N",512,7,9,17,33,193,512
+909 DATA "F",512,18,18,18,18,2,2
+910 DATA "K",512,17,17,41,69,131,258
+911 DATA "B",512,274,274,274,274,274,239
+912 DATA "D",512,258,258,258,258,131,125
+913 DATA "H",512,17,17,17,17,17,512
+914 DATA "M",512,7,13,25,13,7,512
+915 DATA "?",5,3,2,354,18,11,5
+916 DATA "U",128,129,257,257,257,129,128
+917 DATA "R",512,18,18,50,82,146,271
+918 DATA "P",512,18,18,18,18,18,15
+919 DATA "Q",125,131,258,258,322,131,381
+920 DATA "Y",8,9,17,481,17,9,8
+921 DATA "V",64,65,129,257,129,65,64
+922 DATA "X",388,69,41,17,41,69,388
+923 DATA "Z",386,322,290,274,266,262,260
+924 DATA "I",258,258,258,512,258,258,258
+925 DATA "C",125,131,258,258,258,131,69
+926 DATA "J",65,129,257,257,257,129,128
+927 DATA "1",0,0,261,259,512,257,257
+928 DATA "2",261,387,322,290,274,267,261
+929 DATA "*",69,41,17,512,17,41,69
+930 DATA "3",66,130,258,274,266,150,100
+931 DATA "4",33,49,41,37,35,512,33
+932 DATA "5",160,274,274,274,274,274,226
+933 DATA "6",194,291,293,297,305,289,193
+934 DATA "7",258,130,66,34,18,10,8
+935 DATA "8",69,171,274,274,274,171,69
+936 DATA "9",263,138,74,42,26,10,7
+937 DATA "=",41,41,41,41,41,41,41
+938 DATA "!",1,1,1,384,1,1,1
+939 DATA "0",57,69,131,258,131,69,57
+940 DATA ".",1,1,129,449,129,1,1
+1000 STOP
+1002 END

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

@@ -0,0 +1,6 @@
+2
+2
+YES
+ALL
+FOO
+

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

@@ -0,0 +1,135 @@
+HORIZONTAL? 2
+VERTICAL? 2
+CENTERED? YES
+CHARACTER (TYPE 'ALL' IF YOU WANT CHARACTER BEING PRINTED)? ALL
+STATEMENT? FOO
+SET PAGE? 
+                                                       FFFFFFFFFFFFFFFFFF
+                                                       FFFFFFFFFFFFFFFFFF
+                                                               FF      FF
+                                                               FF      FF
+                                                               FF      FF
+                                                               FF      FF
+                                                               FF      FF
+                                                               FF      FF
+                                                               FF      FF
+                                                               FF      FF
+                                                                       FF
+                                                                       FF
+                                                                       FF
+                                                                       FF
+
+
+
+
+                                                           OOOOOOOOOO
+                                                           OOOOOOOOOO
+                                                         OO          OO
+                                                         OO          OO
+                                                       OO              OO
+                                                       OO              OO
+                                                       OO              OO
+                                                       OO              OO
+                                                       OO              OO
+                                                       OO              OO
+                                                         OO          OO
+                                                         OO          OO
+                                                           OOOOOOOOOO
+                                                           OOOOOOOOOO
+
+
+
+
+                                                           OOOOOOOOOO
+                                                           OOOOOOOOOO
+                                                         OO          OO
+                                                         OO          OO
+                                                       OO              OO
+                                                       OO              OO
+                                                       OO              OO
+                                                       OO              OO
+                                                       OO              OO
+                                                       OO              OO
+                                                         OO          OO
+                                                         OO          OO
+                                                           OOOOOOOOOO
+                                                           OOOOOOOOOO
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+