0 POKE45,182:POKE46,23:CLR
1 POKE53281,0:POKE53280,5:PRINT"[155]"CHR$(142):GOTO1800
2 POKE198,0:WAIT198,1:GETI$:IA=ASC(I$):RETURN
100 IFR<THTHENX=8:Y=10:GOSUB3100:PRINT"> ONLY[146]"
110 IFR<5THENY=9:X=7:GOSUB3100:ML=ML-1:PRINTML"MOVE [157]";:IFML-1THENPRINT"S"
115 IFR<1ORML<1THEN5000
120 Y=21:X=1:GOSUB3100:PRINTC$:GOSUB3100:IFP=CTHENPRINTP$(P):GOTO1000
125 PRINTP$(P)" (A-L)?"
135 FORQ=0TO11:W(Q)=M(Q):NEXT:GOSUB2:IFI$<>"X"THEN160
150 FORQ=.TO11:W(Q)=L(Q):NEXT:GOSUB2990:POKESC,12
152 POKE198,0:WAIT198,1:IFPEEK(197)-23THEN152
155 FORQ=.TO11:W(Q)=M(Q):NEXT:GOSUB2990:POKESC,0:GOTO135
160 M=ASC(I$)-65:IFM<.ORM>11THEN135
161 IFM(M)THEN167
162 FORQX=1TO10STEP.2:GOSUB3100:IFQXAND1THENPRINTC$:GOTO164
163 PRINT"EMPTY PIT!"
164 NEXT:GOTO120
167 GOSUB3200:IFR<13THEND=1:FORQ=1TO200:NEXT:GOTO900
170 Y=21:X=1:GOSUB3100:PRINT"WHICH WAY?         "
175 GOSUB10000
180 GETD$:IFD$=""THEN180
190 D=ASC(D$)-45:IFABS(D)-1THEN180
900 B=1:GOSUB3200:FORQ=.TO11:L(Q)=M(Q):W(Q)=M(Q):NEXT:GOSUB3300:R=R-S:S(P)=S(P)+S
905 FORQ=0TO11:M(Q)=W(Q):NEXT:X=13:Y=18:GOSUB3100:PRINTI$CHR$(D+61)S"[157] "
910 X=17:Y=19:GOSUB3100:I$=MID$(STR$(R),2):X=20-LEN(I$):PRINT"   "
920 GOSUB3100:PRINTI$:I$=MID$(STR$(S(P)),2):X=18-LEN(I$):Y=2+P:GOSUB3100:PRINTI$
930 IFS(P)>WTHEN5000
980 P=2+NOTP:B=.:GOTO100
1000 BS=-9E9:FORG=0TO23+TW*(R<TH):D=1:Y=G:IFG>ETHEND=-1:Y=G-TW
1006 IFM(Y)=.THEN1090
1010 FORV=.TOE:W(V)=M(V):NEXT:M=Y:GOSUB3300:IFS<=BSTHEN1090
1025 O=.:CS=.:CR=.:IFEZTHEN1080
1030 W(TW)=W(.):W(TH)=W(1):FORV=.TO11:C1=W(V):IFC1AND1THENIFC1<7THEN1040
1035 GOTO1075
1040 CS=CS+C1:C2=W(V+1):IFC2AND1THENIFC2<7THEN1050
1045 GOTO1075
1050 O=O+C2:C3=W(V+2):IFC3AND1THENIFC3<7THENCR=CR+C1+C2+C3
1075 NEXT
1080 T=S-CR*FR-CS*FS-O*F2:IFT>BSTHENBS=T:BM=Y:BD=D
1090 NEXT:D=BD:M=BM:I$=CHR$(M+65):GOSUB10000:GOTO900
1800 L1=1309:L$="000003006009091171249246243240158078":MK=249
1810 DIMN$(1),P$(1),W(13),M(11),L(11):C$="                  "
1820 DI=54272:ML=9:E=11:TW=12:TH=13:FR=.18:FS=.18:SC=53281:VO=54296
1825 F2=.01:IFPEEK(657)=0THENNEW:
1830 GOSUB6000
1900 PRINT"PLAY ME? Y[157]";:C=1
1910 GOSUB2:IFI$="Y"ORIA=13THENI$="Y":PRINTI$:GOTO1950
1915 IFI$<>"N"THEN1910
1917 PRINTI$
1918 N$(0)="PLAYER 1":N$(1)="PLAYER 2"
1926 PRINT:INPUT"NAME OF PLAYER ONE";N$(0):C=-1
1930 PRINT:INPUT"NAME OF PLAYER TWO";N$(1)
1935 FORQ=0TO1:N$(Q)=LEFT$(N$(Q),10):P$(Q)=N$(Q):NEXT:GOTO1965
1950 N$(0)="YOU":N$(1)="ME":PRINT:PRINT"DO YOU WANT TO GO FIRST? Y[157]";
1951 P$(0)="YOUR MOVE":P$(1)="THINKING"
1952 GOSUB2:IFI$="Y"ORIA=13THENI$="Y":P=0:GOTO1960
1954 IFI$<>"N"THEN1952
1956 P=1
1960 PRINTI$:PRINT:PRINT"E[146]ASY OR H[146]ARD? H[157]";
1961 EZ=1:GOSUB2:IFI$="H"ORIA=13THENI$="H":EZ=0:GOTO1963
1962 IFI$<>"E"THEN1961
1963 PRINTI$
1965 PRINT:PRINT"HOW MANY STONES? 6[157]";:D$=""
1972 GOSUB2:IFIA=13THENIFD$=""THENI$="6"
1973 IFI$<"0"ORI$>"9"THEN1972
1974 PRINTI$;:D$=D$+I$:X=VAL(D$):IFX<2THEN1972
1980 FORQ=0TO11:M(Q)=X:W(Q)=X:NEXT:R=X*12:W=R/2
1987 PRINT"[147]     SCORE:
1989 [129]Q[178]0[164]1:[153][163]15[171][195](N$(Q)))N$(Q)"  0":[130]:[153]
2010 [153]"      A  B  C  D"
2020 [153]"     TOTOTOTOTOTOTOTOTOTOTO"
2030 [153]"    (null)"[166]11)"(null)"
2040 [153]"   (null)"[166]13)"(null)"
2050 [153]" LTHEN"[166]15)"FNE"
2060 [153]"  THEN"[166]15)"FN"
2070 [153]" KTHEN"[166]15)"FNF"
2080 [153]"   (null)"[166]13)"(null)"
2090 [153]"    (null)"[166]11)"(null)"
2100 [153]"     TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
2110 [153]"      J  I  H  G"
2120 B[178]0:[141]2990
2130 [153]:[153]:[153][163]7)"MOVE:":[153][163]7)"REMAINING:"
2200 Q[178]23:[153]""
2210 [153][163]Q)" <<<      >>> "
2220 [153][163]Q)"V   ^    ^   V"
2230 [153][163]Q)"V <WAIT ^    ^ >WAIT V"
2240 [153][163]Q)"V   ^    ^   V"
2250 [153][163]Q)" >>>      <<< "
2299 [153]
2300 [153][163]22)"HOLDWAIT [X] KEY FOR
2310 PRINTTAB(22)"PREVIOUS BOARD.
2400 [153]""[163]22)" M A N C A L A WAIT"
2900 [137]100
2990 [129]M[178].[164]11:[141]3000:[130]:[142]
3000 L[178]L1[170][197]([202](L$,3[172]M[170]1,3)):J[178][181](W(M)[173]10)[170]48:[139]J[178]48[167]J[178]32
3010 [151]L,J:[151]L[170]DI,1:[151]L[170]1,W(M)[171]10[172][181](W(M)[173]10)[170]48:[151]L[170]1[170]DI,1:[142]
3100 [153]"";:[139]Y[177]0[167][129]Q[178]1[164]Y:[153]"";:[130]
3120 [153][163]X);:[142]
3200 L[178]L1[170][197]([202](L$,3[172]M[170]1,3)):[129]L[178]L[164]L[170]1
3210 J[178][194](L):[139]J[179][177]32[167][151]L,J[171](J[179]128)[172]128[170](J[177]128)[172]128
3220 [130]:[142]
3300 K[178]W(M):W(M)[178]0:[139]B[167][141]3000
3310 [129]Q[178]1[164]K:M[178]M[170]D:[141]3390:W(M)[178]W(M)[170]1:[139]B[167][141]3000
3320 [130]:C1[178]W(M):S[178].:[139]C1[175]MK[167][142]
3330 S[178]C1:W(M)[178].:[139]B[167][141]3000
3340 M[178]M[171]D:[141]3390:C1[178]W(M):[139]C1[175]MK[167][142]
3345 [139]C1[178].[167][142]
3350 M1[178]M:M[178]M[171]D:[141]3390:C2[178]W(M):[139]C2[175]MK[167][142]
3355 [139]C2[178].[167][142]
3360 W(M)[178].:W(M1)[178].:S[178]S[170]C1[170]C2:[139]B[167][141]3000:M[178]M1:[141]3000
3370 [142]
3390 [139]M[179]0[167]M[178]E:[142]
3392 [139]M[177]11[167]M[178]0
3394 [142]
5000 [151]SC,214:X[178]1:Y[178]21:[141]3100:[153]C$:[141]3100
5010 [139]S(0)[178]S(1)[167][153]"TIE GAME!":[137]5050
5020 P[178]1:[139]S(0)[177]S(1)[167]P[178]0
5030 [139]C[178][171]1[167][153]N$(P)" WINS!":[137]5050
5040 N$(1)[178]"I":[153]N$(P)" WIN!"
5050 [153]"[R]UN";
5090 [161]I$:[139]I$[179][177]"R"[167]5090
5095 [151]SC,27:[138]
6000 [153]"LOAD":X[178]12
6100 [153][163]X)"FOR(null)               (null)"
6110 [153][163]X)" WAITSYS (null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null) FOR "
6120 [153][163]X)" WAITCLR M A N C A L A FOR "
6130 [153][163]X)" WAITSYS USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR FOR "
6140 [153][163]X)"FOR(null)               (null)"
6200 [153]"PRINT#    COPYRIGHT (C) 1982 BRUCE ROBINSON"
6210 X[178]13:[153][163]X)"VICTORY SOFTWARE":[153][163]X)"PAOLI, PA  19301"
6999 X[178]0:[142]
10000 [151]VO,15:A8[178]54272:[151]A8,30:[151]A8[170]1,30:[151]A8[170]5,15:[151]A8[170]6,240
10002 [151]A8[170]4,17:[129]EM[178]1[164]200:[130]:[151]A8[170]4,16:[151]VO,0:[142]