10 DIMP(15),O(8),C(8),TC(14,15),M$(36)
20 BL$="":FORI=1TO39:BL$=BL$+" ":NEXT:DC=54272:C=64:P=49152:B=0:SP=32
30 FORI=1TO15:READP(I):NEXT
40 FORI=1TO8:READC(I):NEXT:FORI=1TO8:READO(I):NEXT
50 FORI=1TO18:READM$(I)
60 M$(I+18)=RIGHT$(M$(I),1)+MID$(M$(I),2,1)+LEFT$(M$(I),1):NEXT
70 FORI=PTOP+22:READD:POKEI,D:NEXT
80 PRINT"[147][144]";:POKE53280,6:POKE53281,15
90 PRINT"                  PEGS                  [146]";
100 SYSP,2,1:PRINT"[144]SCORE:";S:FORI=1TO15:POKEP(I),I:POKEP(I)+DC,2
110 NEXT:FORI=2TO15:FORJ=1TO8:POKEP(I)+O(J),C(J):POKEP(I)+O(J)+DC,B:NEXT:NEXT
120 FORI=1TO8:POKEP(1)+O(I)+DC,B:POKEP(1)+O(I),SP:NEXT
130 T=1:FORI=2TO15:TC(T,I)=1:NEXT:TC(T,1)=0:S=0
140 SYSP,23,0:PRINTBL$:SYSP,23,14:PRINT"YOUR MOVE";
150 INPUTA$:IFT>1ANDA$="_"THEN340
160 IFLEN(A$)<>2THEN310
170 BM=1:FORI=1TO36:IFA$=LEFT$(M$(I),1)+RIGHT$(M$(I),1)THENBM=0:MC=I:I=36
180 NEXT:IFBM>0THEN310
190 MF=ASC(LEFT$(A$,1))-C:JP=ASC(MID$(M$(MC),2,1))-C:MT=ASC(RIGHT$(A$,1))-C
200 IFTC(T,MF)=0ORTC(T,MT)=1ORTC(T,JP)=0THEN310
210 FORI=1TO8:POKEP(MF)+O(I),SP:POKEP(MT)+O(I),C(I):NEXT
220 FORI=1TO8:POKEP(JP)+O(I),SP:NEXT:GOSUB460
230 T=T+1:FORI=1TO15:TC(T,I)=TC(T-1,I):NEXT
240 TC(T,MF)=0:TC(T,MT)=1:TC(T,JP)=0:S=S+1
250 SYSP,2,1:PRINT"SCORE:";S;"[157] ":IFS=13THENGOTO440
260 LC=0:FORI=1TO36:X=TC(T,ASC(LEFT$(M$(I),1))-C)
270 Y=TC(T,ASC(MID$(M$(I),2,1))-C):Z=TC(T,ASC(RIGHT$(M$(I),1))-C)
280 IFX>0THENIFY>0THENIFZ=0THENLC=1:I=36
290 NEXT:IFLC=0THEN380
300 GOTO140
310 SYSP,23,0:PRINTBL$:SYSP,23,13:PRINT"ILLEGAL MOVE"
320 FORI=1TO10:POKE54296,15:FORJ=1TO2:NEXT:POKE54296,0:FORJ=1TO2:NEXT:NEXT
330 FORI=1TO250:NEXT:GOTO140
340 T=T-1:S=S-1:FORI=1TO15
350 IFTC(T,I)=0ANDTC(T+1,I)=1THENFORJ=1TO8:POKEP(I)+O(J),SP:NEXT
360 IFTC(T,I)=1ANDTC(T+1,I)=0THENFORJ=1TO8:POKEP(I)+O(J),C(J):NEXT
370 NEXT:GOTO250
380 SYSP,23,0:PRINTBL$:SYSP,23,6:PRINT"GAME OVER - YOUR SCORE IS";S
390 FORI=0TO2100:NEXT
400 SYSP,23,0:PRINTBL$:SYSP,23,4:INPUT"PLAY AGAIN (Y/N) OR BACKUP (_)";A$
410 IFLEFT$(A$,1)="Y"THENSYSP,2,1:PRINTBL$:S=0:GOTO100
420 IFA$="_"THEN340
430 PRINT"[147]":END
440 SYSP,23,0:PRINTBL$:SYSP,23,6:PRINT"CONGRATULATIONS, YOU WON"
450 FORI=1TO20:FORJ=1TO15:POKE53280,J:NEXT:NEXT:POKE53280,6:GOTO400
460 POKEDC+24,15:POKEDC+1,110:POKEDC+5,9:POKEDC+6,9:POKEDC+4,17:POKEDC+4,16
470 RETURN
480 DATA 1203,1360,1366,1517,1523,1529,1674,1680
490 DATA 1686,1692,1831,1837,1843,1849,1855
500 DATA 85,64,73,66,75,64,74,66,-41,-40,-39,1,41,40,39,-1
510 DATA ABD,ACF,BDG,BEI,CEH,CFJ,DEF,DGK,DHM
520 DATA EHL,EIN,FIM,FJO,GHI,HIJ,KLM,LMN,MNO
530 DATA 32,13,192,132,251,32,13,192,166,251,76,240
540 DATA 255,32,253,174,32,158,173,32,170,177,96