0 'Club 100 Library - 415/939-1246 BBS     937-5039 NEWSLETTER, 932-8856 VOICE
3 ' Memory Concentration by Russ Hall
5 FORT=1TOVAL(RIGHT$(TIME$,2)):R=RND(1):NEXT
6 GOSUB500
8 DIML$(12),V(24):CLS
9 DIMI(12),K(12):W=1
10 DATA 50,249,87,89,171,212,91,128,247,132,54,134
15 DATA 167,169,253,93,208,52,214,130,251,210,173,48
20 FOR U=1TO12:READI(U)
25 NEXT
30 FORY=1TO12:READK(Y)
35 NEXT
36 FORY=1TO12:READL$(Y):NEXT
40 R=INT(RND(1)*15)+1
80 DATA "�","�","�","�","�","�","�","�","�","�","�","�"
105 S$="� � � �":CLS
108 W$=STRING$(4,32):PRINT
110 FORT=1TO6
112 PRINTW$;T;
120 IFT/2<>INT(T/2)THENPRINTCHR$(32);
125 PRINTS$
130 NEXT
135 IFSP=1THEN1140
140 IFY=1THENY=2 ELSE Y=1
141 PRINT@60,"   Player  #"Y;:PRINT@112,"    ";:M=1:GOTO145
143 PRINT@60,"Second Choice?";:PRINT@112,"    ";:M=2
145 PRINT@100,"Vert, Horiz";:INPUTA,B
147 IFA>6ORB>4THENBEEP:GOTO145
150 IFA/2=INT(A/2)THENG=0 ELSE G=1
155 O=R
160 P(M)=(A+1)*40-(33-G)+(B*2-2)
161 FORT=1TOW:IFP(M)=V(T)THENBEEP:GOTO145
162 NEXT
163 FORT=1TO12:IFI(T)=P(M)THENPRINT@P(M),L$(T);:S(M)=T
164 NEXT
166 FORT=1TO12
167 IFT+O>12THENO=O-12
168 IFK(T+O)=P(M)THENPRINT@P(M),L$(T);:S(M)=T
169 NEXT:IFM=2THEN270
172 GOTO143
270 IFS(1)=S(2)THENN(Y)=N(Y)+10:PRINT@180,"Player #"Y;:PRINT@220,N(Y)"points";
272 IFS(1)<>S(2)THEN280
275 FORJ=9000TO1000STEP-1000
277 SOUNDJ,2:NEXT:W=W+2:IFW>24THEN300 ELSE V(W-1)=P(1):V(W)=P(2):GOTO141
280 FORJ=1TO700:NEXT
290 PRINT@P(1),CHR$(239);:PRINT@P(2),CHR$(239);:GOTO300
300 IFN(1)+N(2)<>120THEN140
310 IFN(1)>N(2)THENPRINT@260,"PLAYER #1 WINS!":BEEP:BEEP
320 IFN(1)<N(2)THENPRINT@260,"PLAYER #2 WINS!":BEEP:BEEP
330 FORT=1TO2000:NEXT:MENU
500 CLS:PRINT:PRINTTAB(8)"- MEMORY CONCENTRATION -"
510 PRINT"From the checkerboard you'll pick out   black squares to reveal the symbol"
515 PRINT"behind each one.  Try to remember and   match up pairs of symbols. Each correct
520 PRINT"guess is worth 10 pts and another turn."
525 PRINTTAB(5)"For one or two players?";
530 K$=INKEY$:IFK$=""THEN530
540 IFK$="1"THENSP=1:RETURN
550 IFK$="2"THENRETURN
560 GOTO530
1140 NT=NT+1'try counter
1141 PRINT@60," First choice?";:PRINT@112,"    ";:M=1:GOTO1145
1143 PRINT@60,"Second Choice?";:PRINT@112,"    ";:M=2
1145 PRINT@100,"Vert, Horiz";:INPUTA,B
1147 IFA>6ORB>4THENBEEP:GOTO1145
1150 IFA/2=INT(A/2)THENG=0 ELSE G=1'add a space
1155 O=R'reset random
1160 P(M)=(A+1)*40-(33-G)+(B*2-2)'pos.#
1161 FORT=1TOW:IFP(M)=V(T)THENBEEP:GOTO1145'check for prior play
1162 NEXT
1163 FORT=1TO12:IFI(T)=P(M)THENPRINT@P(M),L$(T);:S(M)=T'print figure
1164 NEXT
1166 FORT=1TO12
1167 IFT+O>12THENO=O-12
1168 IFK(T+O)=P(M)THENPRINT@P(M),L$(T);:S(M)=T'print from 2nd list
1169 NEXT:IFM=2THEN1270'score 2nd round
1172 GOTO1143
1270 IFS(1)=S(2)THENCC=CC+1:PRINT@180,CC"Correct";
1272 IFS(1)<>S(2)THEN1280
1275 FORJ=9000TO1000STEP-1000
1277 SOUNDJ,2:NEXT:W=W+2:IFW>24THEN1300 ELSE V(W-1)=P(1):V(W)=P(2):PRINT@220,NT"tries";:GOTO1140'correct actions
1280 FORJ=1TO700:NEXT
1290 PRINT@P(1),CHR$(239);:PRINT@P(2),CHR$(239);:GOTO1300'refill black
1300 IFCC<12THENPRINT@220,NT"tries";:GOTO1140
1310 BEEP:BEEP:PRINT@220,INT(CC/NT)"percent. Your";
1315 IFCC/NT>.5THENPRINT@260,"Memory is GREAT!";:GOTO1330
1320 IFCC/NT>.42THENPRINT@260,"Memory is good!";:GOTO1330
1324 IFCC/NT>.34THENPRINT@260,"Memory is fair.";:GOTO1330
1326 IFCC/NT>.26THENPRINT@260,"Memory is poor.";:GOTO1330
1330 FORT=1TO2500:NEXT:MENU