2990 ' Data for Moves

3010 DATA 1,0,2,0,3,0,4,0, 1,1,2,1,3,1,4,1, 1,2,2,2,3,2,4,2

3020 DATA 4,2,3,2,2,2,1,2, 4,1,3,1,2,1,1,1, 4,0,3,0,2,0,1,0

3030 DATA 0,0,4,8,5,0,2,0, 0,3,4,5,5,3,2,3, 0,6,4,2,5,6,2,6

3040 DATA 0,0,2,0,5,0,4,8, 0,3,2,3,5,3,4,5, 0,6,2,6,5,6,4,2

3050 DATA 0,6,1,8,5,2,3,0, 0,7,1,5,5,1,3,3, 0,8,1,2,5,0,3,6

3060 DATA 0,6,3,0,5,2,1,8, 0,7,3,3,5,1,1,5, 0,8,3,6,5,0,1,2

3070 DATA 0,2,2,2,5,2,4,6, 0,5,2,5,5,5,4,3, 0,8,2,8,5,8,4,0

3080 DATA 0,2,4,6,5,2,2,2, 0,5,4,3,5,5,2,5, 0,8,4,0,5,8,2,8

3090 DATA 1,3,4,3,3,3,2,3, 1,4,4,4,3,4,2,4, 1,5,4,5,3,5,2,5

3100 DATA 1,3,2,3,3,3,4,3, 1,4,2,4,3,4,4,4, 1,5,2,5,3,5,4,5

3110 DATA 1,6,4,6,3,6,2,6, 1,7,4,7,3,7,2,7, 1,8,4,8,3,8,2,8

3120 DATA 1,6,2,6,3,6,4,6, 1,7,2,7,3,7,4,7, 1,8,2,8,3,8,4,8

Integer Variables:

A ASCII value of user entry, temporary storage of "K".

B ASCII valie of previous user entry.

CM Computer move flag (set if computer selects moves).

DS Display stop flag {set if stop after each move).

I,J,K,L,M Integer counters.

MN Move number.

N Integer counter.

NG "No good" flag for testing user entries.

PM "Print move" flag (set if moves printed on printer).

Q Face of cube to be rotated.

R "Return" flag (display only when cube rotation done).

T Temporary cubie face storage when they are moved.

X Excess move counter for error routines.

Y Bottom corner pattern counter.

Z Bottom corner and edge pattern counter, temporary storage of "A".


C(5,8) Individual cubie faces on cube; six cube faces with nine cubie faces each. M(303) The list of cubie face moves when any face of the cube is rotated (in to, from notation). P(53) Positions for display of each cubie face on the video display screen.

T(25) Test array, to check that exactly nine cubie faces of each of six colors were entered.

String Variables:

A$ Graphic block for video display, user entry.

C$ Character for flashing entry display.

change string for cube face rotations. E$ Entry display string (underline plus backspace).

F$ Hashing cursor for user entry (graphics block).

0$ Group of cubies being operated on.


0 0

Post a comment