0 PRINT"[147][144]":V=53248:POKEV+32,15:POKEV+33,12:X=RND(-TI/100):FORI=0TO5:POKEV+I,0
1 NEXT:FORI=832TO852:READD:POKEI,D:NEXT:POKEV+23,7:POKEV+29,7:POKEV+21,7
2 DATA255,255,255,128,0,1,128,0,1,128,0,1,128,0,1,128,0,1,255,255,255
3 FORI=2040TO2042:POKEI,13:NEXT:FORI=39TO41:POKEV+I,1:NEXT
4 P=3:Q=1:R=2:CO$(1)="[158]":CO$(2)="":CO$(3)=""
5 DEFFNA(X)=INT(P*RND(Q))+Q:DIME$(32,10),Q$(P,P,P,P)
6 FORI=1TO9:READD$(I):NEXT:DATA123,132,213,231,312,321,111,222,333
7 YQ=9:GOSUB77:PRINT"    PLEASE ADJUST COLORS AS FOLLOWS:
8 [153]"           REDSYS YELLOW BLUE
9 PRINT"[144]    THEN PRESS ANY KEY TO CONTINUE.
10 [161]A$:[139]A$[178]""[167]10
11 [153]"LOAD":YQ[178]9:[141]77:[153]"    PLEASE WAIT FOR THESE CHARACTERS
12 POKE211,11:PRINT"[193] [194] [195] [196] [197] [198] [158][199] [200] [201]
13 [153]"STOP  TO CHANGE TO THOSE USED IN THE SETS!
14 POKE56334,0:POKE1,51:L=14336:FORI=8TO472:POKEI+L,PEEK(I+V):NEXT
15 FORI=14856TO14927:READD:POKEI,D:NEXT
16 DATA255,195,195,195,195,195,195,255,255,129,129,255,129,129,129,255,255,255
17 DATA255,255,255,255,255,255,60,102,195,195,195,195,102,60,60,102,195,255
18 DATA195,195,102,60,60,126,255,255,255,255,126,60,24,24,36,36,66,66,129,255
19 DATA24,24,36,36,126,66,129,255,24,24,60,60,126,126,255,255
20 POKE1,55:POKE56334,1:POKE53272,30
21 GOSUB79:GOSUB109
22 GOSUB93
23 Y=6:X=2:FORI=1TOP:FORJ=1TO4:YQ=Y:XQ=X:GOSUB77:FORAA=1TO4:Y(AA)=FNA(X):NEXT
24 POKEV+39,0:GOSUB30:POKEV+39,1:X=X+10:PRINT"":NEXT:X=2:Y=Y+2:NEXT
25 FORTT=1TO4:II=INT(9*RND(Q))+Q:DD$(TT)=D$(II):CB$(TT)=D$(II):NEXT
26 FORI=1TO3:FORJ=1TO4:Y(J)=VAL(MID$(CB$(J),I,1)):NEXT:GOSUB27:NEXT:GOTO32
27 X=(INT(4*RND(1)))*10+2:Y=(INT(3*RND(1)))*2+6
28 A$(I)=STR$(X)+STR$(Y):IFA$(I)=A$(I-1)ORA$(3)=A$(1)THEN27
29 XQ=X:YQ=Y:XL(I)=X-2:YL(I)=Y:GOSUB77
30 PRINTQ$(Y(1),Y(2),Y(3),Y(4))
31 E$(X,Y)=STR$(Y(1))+STR$(Y(2))+STR$(Y(3))+STR$(Y(4)):RETURN
32 POKE53265,27:FORI=144TO255STEP2:POKEV+1,I:NEXT:POKEV+21,0
33 G=G+M:IFS=0THEN36
34 AV=INT(G/S*10+.5)/10
35 YQ=20:XQ=4:GOSUB77:PRINT"AVERAGING ONE SET EVERY[159]"AV"[157] SEC.    "
36 POKEV+16,0:X=0:Y=6:TI$="000000":POKE198,0
37 IFU=0THENYQ=18:XQ=4:GOSUB77:PRINT"PRESS _ IF YOU CAN'T FIND A SET."
38 IFY>10THENY=10
39 IFY<6THENY=6
40 IFX<0THENX=0
41 IFX>30THENX=30
42 YQ=Y:XQ=X:GOSUB77:PRINT"*";
43 GETA$:IFA$="_"ANDU=0THENGOSUB99:GOTO22
44 IFA$=" "THENPRINT"[157] ":GOTO51
45 IFA$="_"THENGOSUB75
46 IFA$=""THENPRINT"[157] ":Y=Y+2
47 IFA$="[145]"THENPRINT"[157] ":Y=Y-2
48 IFA$="[157]"THENPRINT"[157] ":X=X-10
49 IFA$=""THENPRINT"[157] ":X=X+10
50 M=INT(TI/60+.5):YQ=16:XQ=18:GOSUB77:PRINT"[159]"M"[144]":GOTO37
51 IFX=AATHENIFY=BBTHEN43
52 IFX=CCTHENIFY=DDTHEN43
53 XX=X*8+36:X1=INT(XX/256):X2=XX-X1*256:YY=Y*8+55
54 ONU+1GOTO55,56,57
55 AA=X:BB=Y:POKEV,X2:POKEV+1,YY:IFX1THENPOKEV+16,(PEEK(V+16)OR1):GOTO58
56 CC=X:DD=Y:POKEV+2,X2:POKEV+3,YY:IFX1THENPOKEV+16,(PEEK(V+16)OR2):GOTO58
57 POKEV+4,X2:POKEV+5,YY:IFX1THENPOKEV+16,(PEEK(V+16)OR4)
58 N=U^2+U+1:POKEV+21,N:U=U+1:CA$(U)=E$(X+2,Y)
59 IFU=1THENYQ=18:XQ=4:GOSUB77:PRINT" PRESS _ TO ERASE 1 OR 2 BOXES.   "
60 IFU<3THEN43
61 FORI=1TO4:FORJ=1TO3:CH$(I)=CH$(I)+MID$(CA$(J),2*I,1):NEXT:NEXT
62 FORI=1TO4:FORJ=1TO9:IFCH$(I)=D$(J)THENC=C+1
63 NEXT:NEXT
64 IFC=4THENYQ=16:XQ=3:GOSUB77:PRINT" YOU FOUND A SET IN ONLY[159]"M"SEC.! "
65 IFC=4THENS=S+1:GOTO70
66 YQ=16:XQ=11:GOSUB77:PRINT"SORRY, NOT A SET!":NS=1
67 YQ=18:XQ=4:GOSUB77:PRINT"     PRESS _ TO SEE A SET.      "
68 GETA$:IFA$<>"_"THEN68
69 GOSUB99:IFNS=1THEN72
70 YQ=18:XQ=4:GOSUB77:PRINT"     PRESS _ FOR NEW GROUPS.      "
71 GETA$:IFA$<>"_"THEN71
72 POKEV+21,0:POKEV+16,0:FORI=39TO41:POKEV+I,1:NEXT:GOSUB73:GOTO22
73 POKE214,16:PRINT:PRINT"                                      "
74 GOSUB75:AT=AT+1:RETURN
75 AA=0:BB=0:CC=0:DD=0:C=0:U=0
76 FORI=1TO4:CH$(I)="":NEXT:POKEV+21,0:POKEV+16,0:RETURN
77 POKE214,YQ:PRINT:POKE211,XQ:RETURN
78 PRINT"----------------------------------------":RETURN
79 YQ=9:GOSUB77:PRINT"       PLEASE WAIT 4 MORE SECONDS      "
80 PRINT:PRINT:PRINT:PRINT"       FOR THE SETS TO BE CREATED.    "
81 I=Q:FORJ=193TO199STEPP:FORK=QTOP:Q$(I,K,Q,Q)=CO$(K)+CHR$(J)+" "
82 Q$(I,K,Q,R)=Q$(I,K,Q,Q)+Q$(I,K,Q,Q)
83 Q$(I,K,Q,P)=Q$(I,K,Q,R)+Q$(I,K,Q,Q):NEXT:I=I+Q:NEXT
84 I=Q:FORJ=194TO200STEPP:FORK=QTOP:Q$(I,K,R,Q)=CO$(K)+CHR$(J)+" "
85 Q$(I,K,R,R)=Q$(I,K,R,Q)+Q$(I,K,R,Q)
86 Q$(I,K,R,P)=Q$(I,K,R,R)+Q$(I,K,R,Q):NEXT:I=I+Q:NEXT
87 I=Q:FORJ=195TO201STEPP:FORK=QTOP:Q$(I,K,P,Q)=CO$(K)+CHR$(J)+" "
88 Q$(I,K,P,R)=Q$(I,K,P,Q)+Q$(I,K,P,Q)
89 Q$(I,K,P,P)=Q$(I,K,P,R)+Q$(I,K,P,Q):NEXT:I=I+Q:NEXT
90 FORI=QTOP:FORJ=QTOP:FORK=QTOP:Q$(I,J,K,Q)=Q$(I,J,K,Q)+"    ":NEXT:NEXT:NEXT
91 FORI=QTOP:FORJ=QTOP:FORK=QTOP:Q$(I,J,K,R)=Q$(I,J,K,R)+"  ":NEXT:NEXT:NEXT
92 RETURN
93 POKEV,158:POKEV+1,255:POKEV+16,0:POKEV+21,1
94 FORI=255TO144STEP-2:POKEV+1,I:NEXT
95 POKE53265,124:PRINT"[147][144]        MOVE *[144] WITH CURSOR KEYS.
96 [153]"   USE SPACE BAR TO BOX THREESTOP GROUPS.":[153]:[141]78
97 [151]214,12:[153]:[141]78:YQ[178]14:XQ[178]13:[141]77:[153]"SECS. ELAPSED:
98 XQ=3:YQ=22:GOSUB77:PRINT"SETS FOUND:"S"        [144]ATTEMPTS:"AT:RETURN
99 POKEV+21,0:POKEV+16,0:FORI=39TO41:POKEV+I,15:NEXT
100 I=1:GOSUB108:POKEV,X2:POKEV+1,YY:IFX1THENPOKEV+16,(PEEK(V+16)OR1)
101 I=2:GOSUB108:POKEV+2,X2:POKEV+3,YY:IFX1THENPOKEV+16,(PEEK(V+16)OR2)
102 I=3:GOSUB108:POKEV+4,X2:POKEV+5,YY:IFX1THENPOKEV+16,(PEEK(V+16)OR4)
103 POKEV+21,7
104 IFNS=1THENNS=0:YQ=16:XQ=5:GOSUB77:PRINT"                         ":RETURN
105 YQ=18:XQ=4:GOSUB77:PRINT"     PRESS _ FOR NEW GROUPS.      "
106 GETA$:IFA$<>"_"THEN106
107 POKEV+21,0:FORI=39TO41:POKEV+I,1:NEXT:RETURN
108 XX=XL(I)*8+36:X1=INT(XX/256):X2=XX-X1*256:YY=YL(I)*8+55:RETURN
109 PRINT"[147]":YQ=10:GOSUB77:PRINT"      PRESS I[144] FOR INSTRUCTIONS OR
110 [153]"        ANY OTHER KEY TO BEGIN.
111 GETA$:IFA$=""THEN111
112 IFA$="I"THEN114
113 RETURN
114 PRINT"[147] YOUR OBJECTIVE: TO FIND A SET[144] FROM 12
115 [153]" GROUPS OF FIGURES AS FAST AS POSSIBLE.
116 PRINT" (MY OBJECTIVE: TO TIME[144] YOUR EFFORTS!)
117 [141]214
118 [153]" A SET ALWAYS CONTAINS THREESTOP GROUPS.
119 PRINT" EACH GROUP CAN HAVE 1[144], 2[144] OR 3[144] FIGURES.
120 [153]" THE FIGURES LOOK LIKE THIS:
121 PRINT"           [193] [194] [195] [196] [197] [198] [199] [200] [201]
122 [153]"           ATN PEEK LEN STR$ VAL ASC CHR$ LEFT$ RIGHT$STOP
123 PRINT"[158]           [193] [194] [195] [196] [197] [198] [199] [200] [201][144]
124 [141]214
125 [153]" PRESS ANY KEY TO CONTINUE. . .
126 GETA$:IFA$=""THEN126
127 PRINT"[147] EACH GROUP'S FIGURES CAN HAVE UP TO
128 [153]" 4STOP CHARACTERISTICS:
129 PRINT" QUANTITY     COLOR     SHAPE     FILL[144]
130 [153]"STOP 1, 2, 3      LEN LEN SYSLEN     LEN ASC RIGHT$     LEN PEEK ATNSTOP
131 PRINT" HERE ARE FOUR SETS (READ HORIZONTALLY)
132 [153]" WHICH ILLUSTRATE EACH CHARACTERISTIC:
133 PRINT" QUANTITY: [195]       [195] [195]       [195] [195] [195]
134 [153]" COLOR:    LEN       SYSLEN         LEN
135 PRINT" SHAPE:    [195]       [198]         [201]
136 [153]" FILL:     LEN       PEEK         ATNSTOP":[141]214
137 [153]" HOWEVER. . .(PRESS A KEY)
138 GETA$:IFA$=""THEN138
139 PRINT"[147][144] MORE THAN ONE CHARACTERISTIC CAN VARY!
140 [153]" A SET WITH VARYING COLOR & QUANTITY:
141 PRINT"      [195] [195] [195]       [158][195]           [195] [195][144]
142 [153]" A SET WITH VARYING SHAPE & FILL:
143 PRINT"      [158][198] [198]         [194] [194]         [199] [199][144]
144 [153]" A SET WITH VARYING SHAPE, FILL & COLOR:
145 PRINT"      [200]           [196]           [158][195][144]
146 [153]" A SET WITH VARYING SHAPE, FILL, COLOR":[153]" AND QUANTITY:
147 PRINT"      [158][196]           [200] [200] [200]       [195] [195][144]
148 [141]214:[153]" IN OTHER WORDS. . .
149 GETA$:IFA$=""THEN149
150 PRINT"[147][144] A SET'S CHARACTERISTICS MUST[144] BE EITHER
151 [153]" IDENTICALSTOP OR COMPLETELY DIFFERENTSTOP. FOR
152 PRINT" EXAMPLE:
153 [153]" A SET CAN CONTAIN 3 RED GROUPS,
154 PRINT" [198] [198]     [198] [198]     [198] [198]
155 [153]"STOP OR 1 GROUP EACH OF RED, YELLOW & BLUE,
156 PRINT" [198] [198]     [158][198] [198]     [198] [198][144]
157 [153]" BUT IT CANNOTSTOP CONTAIN 1 RED GROUP &
158 PRINT" TWO BLUE GROUPS!
159 [153]" ASC ASC     ASC ASC     ASC ASCSTOP _ AN ILLEGALSTOP SET!
160 GOSUB214
161 PRINT"[144] LOOKING AT IT ANOTHER WAY. . .
162 [161]A$:[139]A$[178]""[167]162
163 [153]"LOAD FOR ANY 2STOP GROUPS THERE IS ALWAYS ONLY
164 PRINT" 1[144] GROUP WHICH WOULD COMPLETE THE SET.
165 [141]214
166 [153]" FOR THESE TWO GROUPS: LEN LEN       LEN LEN
167 PRINT"[144]    ONLY [195] [195] [144]COMPLETES THE SET.
168 [153]" FOR THESE TWO GROUPS: SYSLEFT$         VAL
169 PRINT"[144]    ONLY [194] [144]COMPLETES THE SET.
170 [153]"STOP FOR THESE TWO GROUPS: SYSVAL VAL       RIGHT$
171 PRINT"[144]    ONLY [193] [193] [193] [144]COMPLETES THE SET.
172 [141]214
173 [153]" PRESS A KEY FOR SOME EXAMPLE SETS. . .
174 GETA$:IFA$=""THEN174
175 PRINT"[147] SOME LEGAL[144] SETS (READ HORIZONTALLY):
176 [153]" RIGHT$         RIGHT$         RIGHT$
177 PRINT" [198]         [198] [198] [198]     [158][198] [198]
178 [153]"SYS ATN ATN       ASC ASC ASC     LEFT$
179 PRINT" [195] [195] [195]     [197] [197] [197]     [199] [199] [199]
180 [153]"SYS LEFT$ LEFT$       VAL VAL       PEEK PEEK
181 PRINT"[144] SOME ILLEGAL[144] SETS (READ HORIZONTALLY):
182 [153]" RIGHT$         RIGHT$         RIGHT$
183 PRINT"[158] [193] [193]       [198] [198] [198]     [201]
184 [153]" LEN LEN LEN     VAL VAL VAL     CHR$ CHR$ CHR$
185 PRINT"[158] [199] [199]       [197] [197]       [194] [194]
186 [153]"STOP PRESS ANY KEY TO CONTINUE. . .
187 GETA$:IFA$=""THEN187
188 PRINT"[147] YOU WILL BE PICKING GROUPS BY PRESSING
189 [153]" THE SPACE BARSTOP. PRESS IT NOW TO BOX
190 PRINT" THIS GROUP:  [198] [198] [198][144]
191 [161]A$:[139]A$[179][177]" "[167]191
192 [151]V,132:[151]V[170]1,87:[151]V[170]21,1
193 [141]214
194 [153]" AFTER YOU FIND A SET, THE COMPUTERSTOP
195 PRINT" WILL DECIDE WHETHER IT'S LEGAL OR NOT.
196 [141]214
197 [153]" PRESS ISTOP TO REPEAT INSTRUCTIONS OR ANY
198 PRINT" OTHER KEY TO CONTINUE.
199 [161]A$:[139]A$[178]""[167]199
200 [151]V[170]21,0
201 [139]A$[178]"I"[167]114
202 [153]"LOADSTOP ONE LAST NOTE!
203 GOSUB214
204 PRINT"[144] THERE WILL ALWAYS[144] BE AT LEAST ONE SET
205 [153]" ON-SCREEN! BUT IF YOU CAN NOT FIND IT
206 PRINT" SOON, PRESS _[144] FOR NEW GROUPS BECAUSE
207 [153]" YOU ARE BEING TIMED!STOP
208 PRINT" YOU SHOULD BE ABLE, WITH PRACTICE, TO
209 [153]" AVERAGE ABOUT OPEN30STOP SECONDS PER SET.
210 GOSUB214
211 PRINT" PRESS ANY KEY TO BEGIN SETZ!
212 [161]A$:[139]A$[178]""[167]212
213 [142]
214 [153]" --------------------------------------
215 RETURN
220 REM COPYRIGHT 1994 - COMPUTE PUBLICATIONS INTL LTD - ALL RIGHTS RESERVED
1000 FORT=80TO130:POKE53265,T:FORD=1TO100:NEXT:NEXT