2 PRINTCHR$(147)"WOULD YOU LIKE INSTRUCTIONS (Y/N)?
4 [161] A$: [139] A$[179][177] "Y" [175] A$[179][177]"N" [167] 4
6 [139] A$[178]"N" [167] 54
8 [153]"INSTRUCTIONS ON SCREEN OR PRINTER (S/P)?
10 GET B$: IF B$<> "S" AND B$<>"P" THEN 10
12 IF B$="S"THEN  D=3
14 IF B$="P" THEN D=4
16 OPEN D,D
18 PRINT#D,"
20 [152]D,"STACK 64 BY GLENN W. ZUCH
22 PRINT#D,"
24 [152]D,"RUN IT RIGHT:  C-64
26 PRINT#D,"
28 [152]D,"STACK IS A GAME OF LOGIC BASED ON THE
30 PRINT#D,"POPULAR TOWERS OF HANOI.  THE OBJECT IS
32 [152]D,"TO MOVE SEVERAL BARS FROM THE LEFT-HAND
34 PRINT#D,"PILE TO THE RIGHT-HAND PILE, USING A
36 [152]D,"CENTER PILE AS AN INTERMEDIARY. TRY TO
38 PRINT#D,"COMPLETE THE TASK IN AS FEW MOVES AS
40 [152]D,"POSSIBLE AND YOU'LL WIN.
42 PRINT#D,"YOU MAY NOT PLACE A BAR ON TOP OF ONE
44 [152]D,"THAT IS SMALLER, BUT SUCH ERRORS WILL
46 PRINT#D,"NOT AFFECT YOUR FINAL SCORE.  THERE'S
48 [152]D,"MORE THAN ONE WAY TO MOVE THE PILES, SO
50 PRINT#D,"KEEP TRYING!
52 [152]D,"":[160]D
54 [153]"PRESS ANY KEY TO BEGIN THE PROGRAM..."
56 [161] E$:[139] E$[178]"" [167] 56
58 [156]
60 [143]*****STACK*****
62 [141]228
64 [134]G(10,4)
66 [129]B[178]1[164]5:[129]L[178]1[164]3:G(B,L)[178]0:[130]L:[130]B
68 [153]"HOW MANY BARS DO YOU WANT TO MOVE
70 PRINT"(2,3,4 OR 5)?
72 [133] X
74 D[178]0
76 [129]Z[178]1[164]5:[139]Z[178]X[167]78:[130]Z
78 [151]53281,5:[153]"LOAD
80 PRINT" [146]
82 [153]" 3 WAIT
84 PRINT"  5  [146]
86 [153]"   7   WAIT
88 PRINT"    9    [146]
90 [153]"     11    WAIT
92 PRINT"123[144]
94 N[178]5:B[178]11
96 [129]C[178]X[164]1[169][171]1
98 G(N,1)[178]B:B[178]B[171]2:N[178]N[171]1:[130]C:[141]186
100 [139]X[178]2[167]MM$[178]"9 & 11"
102 [139]X[178]3[167]MM$[178]"7,9 & 11"
104 [139]X[178]4[167]MM$[178]"5,7,9 & 11"
106 [139]X[178]5[167]MM$[178]"3,5,7,9 & 11"
108 [153]"STOPYOU WILL BE MOVING BARS ";MM$
110 [153]"":[133]"WHICH BAR DO YOU WANT TO MOVE";B
112 [139]B[178]3[175]X[178][179]4[167]120
114 [139]B[178]5[175]X[178][179]3[167]120
116 [139]B[178]7[175]X[178][179]2[167]120
118 [139](B[171]3)[172](B[171]5)[172](B[171]7)[172](B[171]9)[172](B[171]11)[178]0[167]122
120 [153]"YOU MAY ONLY USE ";MM$;"":[153] [166]10)"ENTER AGAIN!":[137]110
122 [129]Y[178]1[164]5:[129]R[178]1[164]3:[139]G(Y,R)[178]B[167]126
124 [130]R:[130]Y
126 [129]Z[178]Y[164]1[169][171]1
128 [139]G(Z,R)[178]0[167]132
130 [139]G(Z,R)[179]B[167]134
132 [130]Z:[137]138
134 [153]"THAT BAR IS UNDER ANOTHER ONE. MAKEANOTHER CHOICE.":[153]"
136 GOTO110
138 INPUT"PLACE BAR ON WHICH STACK";L
140 IF(L-1)*(L-2)*(L-3)=0THEN144
142 PRINT"YOU MUST CHOOSE '1', '2' OR '3'":GOTO138
144 FORY=1TO5:IFG(Y,L)<>0THEN150
146 NEXTY
148 GOTO156
150 IFB<G(Y,L)THEN156
152 PRINT"YOU CAN'T PLACE A LONGER BAR ON TOP OF ASMALLER ONE...TRY AGAIN!
154 [153]"":[137]110
156 [129]W[178]1[164]5:[129]C[178]1[164]3:[139]G(W,C)[178]B[167]160
158 [130]C:[130]W
160 [129]V[178]1[164]5:[139]G(V,L)[179][177]0[167]166
162 [130]V
164 V[178]5:[137]168
166 V[178]V[171]1
168 G(V,L)[178]G(W,C):G(W,C)[178]0:[141]186
170 D[178]D[170]1
172 [129]Y[178]1[164]5:[129]R[178]1[164]2:[139]G(Y,R)[179][177]0[167]110
174 [130]R:[130]Y
176 [139]D[179][177]2[174]X[171]1[167]212
178 [141]286
180 [151]53281,13:[153]"LOADSTOPTRY AGAINCLOSE('Y' OR 'N')";:[133] A$
182 [139] A$[178]"N" [167] 206
184 [139]A$[178]"Y" [167] 66
186 [129]J[178]1[164]5:P[178]7:[129]S[178]1[164]3
188 [139]G(J,S)[178]0[167]200
190 [153][163]P[171][181](G(J,S)[173]2));
192 [129]W[178]1[164]G(J,S)
194 [153]"OPEN WAIT";
196 [130]W
198 [137]202
200 [153][163]P);" WAIT";
202 P[178]P[170]11
204 [130]S:[153]:[130]J:[142]
206 [151]53280,4:[151]53281,7:[153]"LOAD
208 PRINT"THANK YOU...PLEASE PLAY AGAIN SOON.":FORT=1TO3000:NEXT:PRINT"[147]
210 [128]
212 [151]53280,0:[151]53281,8:[153]"LOAD
214 IFX=2THENM$="3 MOVES"
216 IFX=3THENM$="7 MOVES"
218 IFX=4THENM$="15 MOVES"
220 IFX=5THENM$="31 MOVES"
222 PRINT"IT TOOK YOU";D;"MOVES.
224 [153]"IT COULD HAVE BEEN DONE IN ONLY ";M$;"
226 PRINT"TRY HARDER NEXT TIME!":FORT=1TO5000:NEXT:GOTO180
228 POKE53280,8:POKE53281,3:PRINT"[147]
230 [153]"                         
232 PRINT"                         
234 [153]"                         
236 PRINT"       
238 [153]"               
240 PRINT"        
242 [153]"                       
244 PRINT"                        
246 [153]"                        ":[153]"":[129]T[178]1[164]1500:[130]
248 [153]"STOP123
250 PRINT"   [146]
252 [153]"   WAIT
254 PRINT"   [146]
256 [153]"SYS STOP3SYS   WAIT
258 PRINT"[144]  [144]5[144]    [146]
260 [153]"   STOP7     WAIT
262 PRINT"    [144]9      [146]
264 [153]"     STOP11      WAIT":[129]T[178]1[164]3000:[130]
266 [151]53280,7:[151]53281,15:[153]"LOAD
268 PRINT"TO PLAY THIS GAME YOU MUST TRANSFER THE":PRINT
270 PRINT"BARS FROM THE LEFT[146] STACK TO THE RIGHT[146]":PRINT
272 PRINT"STACK, ONE BAR AT A TIME, NEVER PUTTING":PRINT
274 PRINT"A LONGER BAR ON A SMALLER ONE.":PRINT"
276 [153]"PRESS <RETURN>WAIT TO CONTINUE
278 PRINT"[155]":INPUT C
280 POKE53280,2:POKE53281,7:PRINT"[147][144]
282 [153]"YOU MAY CHOOSE FROM 2 TO 5 BARS":[153]
284 [153]"WHEN YOU START THE GAME.":[129]T[178]1 [164] 1500:[130]:[142]
286 [151]53280,7:[151]53281,14:[153]"LOAD
288 PRINT"XXXXXXXXXXXXXXXXXXXXXX
290 [153]"XXXXXXXXX
292 PRINT"XXXXXXXX
294 [153]"XXXXXXXX
296 PRINT"XXXXXXXXXXXXXXXXXXXXX
298 [153]"XXXXXXX
300 PRINT"XXXXXXX
302 [153]"XXXXXXXX
304 PRINT"XXXXXXXXXXXXXXXXX
306 [153]"YOU DID IT IN THE LEAST POSSIBLE
308 PRINT"NUMBER OF MOVES!!!!!":FORT=1TO2500:NEXT:RETURN