5 POKE55,0:POKE56,56:CLR
7 GOTO12
8 POKE147,0:SYS57812"SID PLAYER",8,1:SYS62631
9 SYS57812"MUSIC1",8,0:POKE780,0:POKE781,96:POKE782,109:SYS65493
10 SYS57812"CHIEF FONT",8,0:POKE780,0:POKE781,0:POKE782,56:SYS65493:POKE53272,31
12 POKE53280,11:POKE53281,0
13 C$="[159][156][158][150][153][154]":DIMS(7)
15 S=54272:POKE53272,31
20 DIMM$(6):FORI=1TO6:READM$(I):NEXT
21 DATA "[193]RROW [199]AME"
22 DATA "[208]EACE [208]IPE [199]AME"
23 DATA "[212]OMAHAWK [199]AME"
24 DATA "[194]EAD [199]AME"
25 DATA "[212]OGGLE [205]USIC"
26 DATA "[197]XIT"
30 MU=-1:GOSUB6000
100 PRINT"[147][153]         [195][200][201][197][198] [212][207][205][193][200][193][215][203]'[211] [199][193][205][197][211]"
105 PRINT" [150][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
110 POKE214,8:PRINT:PRINTTAB(11)"[150]_";
115 FORI=1TO6:PRINTTAB(13)"[154]"M$(I):NEXT
120 POKE214,21:PRINT:PRINT"[150] [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
125 PRINT"     [153][213]SE [195][210][211][210] KEYS[153]/[210][197][212][213][210][206][153] TO SELECT"
130 M=1:POKE214,M+7:PRINT:PRINTTAB(11)"[150]_ "M$(M):GOTO135
135 GETK$:IFK$=""THEN135
140 IFK$=CHR$(13)THEN200
145 IFK$<>""ANDK$<>"[145]"THEN135
150 IFK$="[145]"THEN170
155 POKE214,M+7:PRINT:PRINTTAB(11)"  [154]"M$(M):M=M+1
160 IFM>6THENM=1
165 POKE214,M+7:PRINT:PRINTTAB(11)"[150]_ "M$(M):GOTO135
170 POKE214,M+7:PRINT:PRINTTAB(11)"  [154]"M$(M):M=M-1
175 IFM<1THENM=6
180 POKE214,M+7:PRINT:PRINTTAB(11)"[150]_ "M$(M):GOTO135
185 :
200 IFM=6THEN9000:REMEXIT
205 IFM=5THENGOSUB6300:GOTO135
210 ONMGOSUB1000,1500,2000,2500
220 POKE214,21:PRINT:PRINT"[155] [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
225 PRINT"[153] ([200][153])ELP   ([205][153])USIC   ([211][153])OLUTION   ([209][153])UIT"
230 TN=0:GOSUB7000
250 GETK$:IFK$=""THEN250
255 IFK$="M"THENGOSUB6300:GOTO250
260 IFK$="Q"THEN100
265 IFK$="H"THENGOSUB7500:GOTO250
270 IFK$="S"THEN3000
275 IFK$=CHR$(13)THEN350
280 IFK$<>""ANDK$<>"[157]"THEN250
281 GOSUB8100
285 IFK$="[157]"THEN300
290 POKEY,32:Z=Z+1:IFZ>NTHENZ=1
295 Y=Q+Z*2:POKEY,30:POKEY+54272,13:GOTO250
300 POKEY,32:Z=Z-1:IFZ<1THENZ=N
305 Y=Q+Z*2:POKEY,30:POKEY+54272,13:GOTO250
310 :
350 X1=X+Z*2-2
355 IF(PEEK(X1+2+S)AND15)=0THENGOSUB7100:GOTO250
360 IF(PEEK(X1+S)AND15)=0THENGOSUB7100:GOTO250
365 CO=PEEK(X1+S)AND15:POKEX2+S,CO:POKEX2+S+40,CO:POKEX2+S+80,CO
370 POKEX1+S,0:POKEX1+S+40,0:POKEX1+S+80,0
375 CO=PEEK(X1+S+2)AND15:POKEX2+S+2,CO:POKEX2+S+2+40,CO:POKEX2+S+2+80,CO
380 POKEX1+S+2,0:POKEX1+S+2+40,0:POKEX1+S+2+80,0:X2=X1
385 TN=TN+1:GOSUB7000
390 I=0
395 IF(PEEK(X+I+S)AND15)<>14THEN250
400 I=I+2:IFI<N1THEN395
410 IF(PEEK(X+I+S)AND15)<>10THEN250
415 I=I+2:IFI<N1*2THEN410
420 FORI=1TO10
425 POKE214,22:PRINT:PRINTLEFT$(C$,I);
430 PRINT"               [211][207][204][214][197][196]!                "
434 GOSUB8000
435 FORT=1TO100:NEXT:NEXT
440 POKE214,22:PRINT:PRINT"             [208][210][197][211][211][160][210][197][212][213][210][206][160]            "
445 GETK$:IFK$<>CHR$(13)THEN445
450 GOTO100
455 :
1000 PRINT"[147][153]               [193]RROW [199]AME"
1005 PRINT" [155][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
1010 POKE214,6:PRINT
1015 FORI=1TO3
1020 PRINTTAB(10)"[144]@ @ [150]@[154]@[150]@[154]@[150]@[154]@[150]@[154]@[144]  "
1025 PRINTTAB(10)"[144]A A [150]A[154]A[150]A[154]A[150]A[154]A[150]A[154]A[144]  "
1030 PRINTTAB(10)"[144]B B [150]B[154]B[150]B[154]B[150]B[154]B[150]B[154]B[144]  "
1032 PRINTTAB(10)"[155][192] [192] [192] [192] [192] [192] [192] [192] [192] [192]"
1035 PRINT:PRINTTAB(10)"[153]^"
1040 C(1)=128:C(2)=129:C(3)=130
1042 X=1314:Q=1314+200-2:N=10:Z=1:Y=Q+2:X2=X:N1=8
1043 S(1)=1328:S(2)=1322:S(3)=1316:S(4)=1330
1045 RETURN
1500 PRINT"[147][153]            [208]EACE [208]IPE [199]AME"
1505 PRINT" [155][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
1510 POKE214,6:PRINT
1515 FORI=1TO3
1520 PRINTTAB(8)"[144]C C [150]C[154]C[150]C[154]C[150]C[154]C[150]C[154]C[150]C[154]C[144]  "
1525 PRINTTAB(8)"[144]D D [150]D[154]D[150]D[154]D[150]D[154]D[150]D[154]D[150]D[154]D[144]  "
1530 PRINTTAB(8)"[144]E E [150]E[154]E[150]E[154]E[150]E[154]E[150]E[154]E[150]E[154]E[144]  "
1532 PRINTTAB(8)"[155][192] [192] [192] [192] [192] [192] [192] [192] [192] [192] [192] [192]"
1535 PRINT:PRINTTAB(8)"[153]^"
1540 C(1)=131:C(2)=132:C(3)=133
1542 X=1312:Q=1312+200-2:N=12:Z=1:Y=Q+2:X2=X:N1=10
1543 S(1)=1330:S(2)=1320:S(3)=1326:S(4)=1314:S(5)=1332
1545 RETURN
2000 PRINT"[147][153]       [195][200][201][197][198] [212][207][205][193][200][193][215][203]'[211] [199][193][205][197][211]"
2005 PRINT" [155][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
2010 POKE214,6:PRINT
2015 FORI=1TO3
2020 PRINTTAB(6)"[144]F F [150]F[154]F[150]F[154]F[150]F[154]F[150]F[154]F[150]F[154]F[150]F[154]F[144]  "
2025 PRINTTAB(6)"[144]G G [150]G[154]G[150]G[154]G[150]G[154]G[150]G[154]G[150]G[154]G[150]G[154]G[144]  "
2030 PRINTTAB(6)"[144]H H [150]H[154]H[150]H[154]H[150]H[154]H[150]H[154]H[150]H[154]H[150]H[154]H[144]  "
2032 PRINTTAB(6)"[155][192] [192] [192] [192] [192] [192] [192] [192] [192] [192] [192] [192] [192] [192]"
2035 PRINT:PRINTTAB(6)"[153]^"
2040 C(1)=134:C(2)=135:C(3)=136
2042 X=1310:Q=1310+200-2:N=14:Z=1:Y=Q+2:X2=X:N1=12
2043 S(1)=1332:S(2)=1326:S(3)=1316:S(4)=1324:S(5)=1312:S(6)=1334
2045 RETURN
2500 PRINT"[147][153]               [194]EAD [199]AME"
2505 PRINT" [155][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
2510 POKE214,6:PRINT
2515 FORI=1TO3
2520 PRINTTAB(4)"[144]I I [150]I[154]I[150]I[154]I[150]I[154]I[150]I[154]I[150]I[154]I[150]I[154]I[150]I[154]I[144]  "
2525 PRINTTAB(4)"[144]J J [150]J[154]J[150]J[154]J[150]J[154]J[150]J[154]J[150]J[154]J[150]J[154]J[150]J[154]J[144]  "
2530 PRINTTAB(4)"[144]K K [150]K[154]K[150]K[154]K[150]K[154]K[150]K[154]K[150]K[154]K[150]K[154]K[150]K[154]K[144]  "
2532 PRINTTAB(4)"[155][192] [192] [192] [192] [192] [192] [192] [192] [192] [192] [192] [192] [192] [192] [192] [192]"
2535 PRINT:PRINTTAB(4)"[153]^"
2540 C(1)=137:C(2)=138:C(3)=139
2542 X=1308:Q=1308+200-2:N=16:Z=1:Y=Q+2:X2=X:N1=14
2543 S(1)=1334:S(2)=1320:S(3)=1326:S(4)=1316:S(5)=1328:S(6)=1310:S(7)=1336
2545 RETURN
3000 ONMGOSUB1000,1500,2000,2500:X2=X
3001 POKE214,11:PRINT:PRINTTAB(4)"        "
3002 POKE214,21:PRINT:PRINT"[155] [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
3003 PRINT"                [156][211]OLUTION"
3004 FORT=1TO1000:NEXT
3005 FORI=1TON1/2:X1=S(I)
3010 CO=PEEK(X1+S)AND15:POKEX2+S,CO:POKEX2+S+40,CO:POKEX2+S+80,CO
3020 POKEX1+S,0:POKEX1+S+40,0:POKEX1+S+80,0
3030 CO=PEEK(X1+S+2)AND15:POKEX2+S+2,CO:POKEX2+S+2+40,CO:POKEX2+S+2+80,CO
3040 POKEX1+S+2,0:POKEX1+S+2+40,0:POKEX1+S+2+80,0:X2=X1
3050 FORT=1TO2000:NEXT:NEXT
3055 GOTO440
6000 SYS49152:RETURN
6100 SYS49155:RETURN
6300 MU=NOT(MU)
6305 IFMU=-1THENGOSUB6000:RETURN
6310 GOSUB6100:RETURN
7000 POKE214,19:PRINT:PRINTTAB(3)"[156][205]OVES:[159]"TN
7005 POKE214,19:PRINT:PRINTTAB(24)"[156][205]IN. [205]OVES:[159]"N1/2
7010 RETURN
7100 POKE214,15:PRINT:PRINTTAB(13)"[159][201]LLEGAL [205]OVE!  "
7105 FORT=1TO1000:NEXT
7110 POKE214,15:PRINT:PRINTTAB(13)"               "
7115 GOSUB7000:RETURN
7500 POKE214,19:PRINT:PRINT"[156]    [213]SE [195]URSOR KEYS/[210]ETURN TO SELECT."
7505 FORT=1TO2000:NEXT
7510 POKE214,19:PRINT:PRINT"[156]                                     "
7515 GOSUB7000:RETURN
8000 IFMUTHENRETURN
8001 POKE54296,21:POKE54277,9:POKE54278,0
8005 POKE54273,48:POKE54276,32:POKE54276,33
8010 RETURN
8100 IFMUTHENRETURN
8101 POKE54296,15:POKE54277,15:POKE54278,0
8105 POKE54276,17:POKE54272,108:POKE54273,6
8110 FORT=1TO100:NEXT
8115 POKE54276,16:RETURN
9000 POKE214,18:PRINT:PRINTTAB(11)"[153][193]RE [217]OU [211]URE [Y/N]"
9005 GETK$:IFK$=""THEN9005
9010 IFK$="Y"THEN9012
9011 POKE214,18:PRINT:PRINTTAB(11)"                  ":GOTO135
9012 POKE53272,21:PRINT"[147]":GOSUB6100
9015 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT"
9020 INPUT#15,ER%:CLOSE15
9025 IFER%<>63THENEND
9030 POKE646,PEEK(53281)
9035 PRINT"[147]LOAD"CHR$(34)"HELLO CONNECT"CHR$(34)",8"
9040 PRINT"RUN"
9045 POKE631,13:POKE632,13:POKE633,13:POKE198,3:END
9050 :
9999 :
10000 OPEN15,8,15,"S0:CHIEF":CLOSE15:SAVE"0:CHIEF",8:END