CUBIX

00000000: 01 1C 21 1C 0A 00 8F 20  43 55 42 49 58 20 31 20  |..!.... CUBIX 1 |
00000010: 42 59 20 4C 45 4F 4E 41  52 44 20 4D 4F 52 52 49  |BY LEONARD MORRI|
00000020: 53 00 83 1C 14 00 FE 25  3A DE 20 34 2C 31 2C 31  |S......%:. 4,1,1|
00000030: 39 3A 86 56 28 36 2C 36  29 2C 58 28 36 2C 36 29  |9:.V(6,6),X(6,6)|
00000040: 2C 59 28 36 2C 36 29 2C  42 5A 28 36 29 2C 42 59  |,Y(6,6),BZ(6),BY|
00000050: 28 36 29 2C 42 58 28 36  29 2C 42 55 28 36 29 3A  |(6),BX(6),BU(6):|
00000060: 43 54 B2 32 36 3A 43 31  B2 32 3A 43 32 B2 37 3A  |CT.26:C1.2:C2.7:|
00000070: 43 33 B2 31 35 3A 41 44  B2 31 32 32 34 30 3A 50  |C3.15:AD.12240:P|
00000080: 31 B2 30 00 B3 1C 1E 00  FE 11 22 43 55 42 49 58  |1.0......."CUBIX|
00000090: 2D 4D 4C 22 2C 42 30 2C  50 34 38 36 34 3A 9E D1  |-ML",B0,P4864:..|
000000A0: 28 22 31 35 44 33 22 29  3A 9E D1 28 22 31 35 45  |("15D3"):..("15E|
000000B0: 31 22 29 00 FE 1C 28 00  FE 08 20 31 31 2C 33 3A  |1")...(... 11,3:|
000000C0: FE 07 20 31 2C 30 2C 35  2C 30 2C 31 2C 31 2C 31  |.. 1,0,5,0,1,1,1|
000000D0: 3A 81 20 54 B2 32 20 A4  20 35 3A 97 20 D1 28 22  |:. T.2 . 5:. .("|
000000E0: 31 46 46 37 22 29 AA 54  2C 35 36 3A FE 07 20 54  |1FF7").T,56:.. T|
000000F0: 2C 30 2C 35 2C 30 2C 31  2C 31 2C 31 3A 82 00 28  |,0,5,0,1,1,1:..(|
00000100: 1D 32 00 8F 20 53 45 54  20 4D 45 4D 4F 52 59 20  |.2.. SET MEMORY |
00000110: 4C 4F 43 2E 20 46 4F 52  20 52 4F 54 41 54 49 4F  |LOC. FOR ROTATIO|
00000120: 4E 28 58 2C 59 2C 5A 29  00 49 1D 3C 00 81 20 54  |N(X,Y,Z).I.<.. T|
00000130: B2 30 20 A4 20 33 31 3A  97 20 D1 28 22 31 39 44  |.0 . 31:. .("19D|
00000140: 30 22 29 AA 54 2C 31 3A  82 00 7F 1D 46 00 81 20  |0").T,1:....F.. |
00000150: 54 B2 30 20 A4 20 38 3A  87 20 58 2C 59 3A 97 20  |T.0 . 8:. X,Y:. |
00000160: D1 28 22 31 42 38 30 22  29 AA 54 2C 58 3A 97 20  |.("1B80").T,X:. |
00000170: D1 28 22 31 42 39 30 22  29 AA 54 2C 59 3A 82 00  |.("1B90").T,Y:..|
00000180: B5 1D 50 00 81 20 54 B2  30 20 A4 20 38 3A 87 20  |..P.. T.0 . 8:. |
00000190: 58 2C 59 3A 97 20 D1 28  22 31 42 41 30 22 29 AA  |X,Y:. .("1BA0").|
000001A0: 54 2C 58 3A 97 20 D1 28  22 31 42 42 30 22 29 AA  |T,X:. .("1BB0").|
000001B0: 54 2C 59 3A 82 00 EB 1D  5A 00 81 20 54 B2 30 20  |T,Y:....Z.. T.0 |
000001C0: A4 20 38 3A 87 20 58 2C  59 3A 97 20 D1 28 22 31  |. 8:. X,Y:. .("1|
000001D0: 42 43 30 22 29 AA 54 2C  58 3A 97 20 D1 28 22 31  |BC0").T,X:. .("1|
000001E0: 42 44 30 22 29 AA 54 2C  59 3A 82 00 72 1E 64 00  |BD0").T,Y:..r.d.|
000001F0: 5A 41 28 30 29 B2 32 37  3A 5A 42 28 30 29 B2 32  |ZA(0).27:ZB(0).2|
00000200: 30 38 3A 5A 43 28 30 29  B2 31 37 36 3A 5A 44 28  |08:ZC(0).176:ZD(|
00000210: 30 29 B2 D1 28 22 31 39  44 30 22 29 3A 81 20 54  |0)..("19D0"):. T|
00000220: 31 B2 31 20 A4 20 36 3A  5A 41 28 54 31 29 B2 32  |1.1 . 6:ZA(T1).2|
00000230: 36 3A 5A 42 28 54 31 29  B2 31 36 AA 28 54 31 AB  |6:ZB(T1).16.(T1.|
00000240: 31 29 AC 33 32 3A 5A 43  28 54 31 29 B2 31 36 3A  |1).32:ZC(T1).16:|
00000250: 5A 44 28 54 31 29 B2 D1  28 22 31 39 31 30 22 29  |ZD(T1)..("1910")|
00000260: AA 28 54 31 AB 31 29 AC  33 32 3A 87 20 5A 28 54  |.(T1.1).32:. Z(T|
00000270: 31 29 00 BB 1E 6E 00 81  20 54 B2 31 20 A4 20 5A  |1)...n.. T.1 . Z|
00000280: 28 54 31 29 3A 87 20 58  28 54 31 2C 54 29 2C 59  |(T1):. X(T1,T),Y|
00000290: 28 54 31 2C 54 29 2C 56  28 54 31 2C 54 29 3A 97  |(T1,T),V(T1,T):.|
000002A0: 20 5A 44 28 54 31 29 AA  56 28 54 31 2C 54 29 2C  | ZD(T1).V(T1,T),|
000002B0: 54 31 AA 31 3A 82 20 54  2C 54 31 00 D8 1E 78 00  |T1.1:. T,T1...x.|
000002C0: 81 20 54 B2 31 20 A4 20  36 3A 87 20 4E 24 28 54  |. T.1 . 6:. N$(T|
000002D0: 29 2C 4C 28 54 29 3A 82  00 F8 1E 82 00 8F 20 44  |),L(T):....... D|
000002E0: 45 54 45 52 4D 49 4E 45  20 42 4C 4F 43 4B 53 20  |ETERMINE BLOCKS |
000002F0: 4C 4F 43 41 54 49 4F 4E  00 61 1F 8C 00 50 31 B2  |LOCATION.a...P1.|
00000300: 30 3A 81 20 56 B2 30 20  A4 20 32 3A 81 20 55 B2  |0:. V.0 . 2:. U.|
00000310: 30 20 A4 20 32 3A 81 20  54 B2 30 20 A4 20 32 3A  |0 . 2:. T.0 . 2:|
00000320: 41 B2 41 44 AA 54 AC 32  34 AB 55 AC 36 34 30 AA  |A.AD.T.24.U.640.|
00000330: 56 AC 33 30 34 3A 8D 20  31 37 30 3A 97 20 D1 28  |V.304:. 170:. .(|
00000340: 22 31 42 30 30 22 29 AA  50 31 2C 41 32 3A 97 20  |"1B00").P1,A2:. |
00000350: D1 28 22 31 42 30 30 22  29 AA 50 31 AA 31 2C 41  |.("1B00").P1.1,A|
00000360: 31 00 A9 1F 96 00 41 B2  41 AB 31 36 30 3A 8D 20  |1.....A.A.160:. |
00000370: 31 37 30 3A 97 20 D1 28  22 31 41 30 30 22 29 AA  |170:. .("1A00").|
00000380: 50 31 2C 41 32 3A 97 20  D1 28 22 31 41 30 30 22  |P1,A2:. .("1A00"|
00000390: 29 AA 50 31 AA 31 2C 41  31 3A 50 31 B2 50 31 AA  |).P1.1,A1:P1.P1.|
000003A0: 32 3A 82 20 54 2C 55 2C  56 00 B3 1F A0 00 89 20  |2:. T,U,V...... |
000003B0: 31 39 30 00 D1 1F AA 00  41 31 B2 B5 28 41 AD 32  |190.....A1..(A.2|
000003C0: 35 36 29 3A 41 32 B2 41  AB 32 35 36 AC 41 31 3A  |56):A2.A.256.A1:|
000003D0: 8E 00 F4 1F B4 00 8F 20  43 4C 52 20 53 43 52 4E  |....... CLR SCRN|
000003E0: 20 26 20 44 52 41 57 20  53 4D 41 4C 4C 20 42 4C  | & DRAW SMALL BL|
000003F0: 4F 43 4B 53 00 20 20 BE  00 E7 20 30 2C 31 3A E7  |OCKS.  ... 0,1:.|
00000400: 20 31 2C 38 3A E7 20 32  2C 31 30 3A E7 20 33 2C  | 1,8:. 2,10:. 3,|
00000410: 39 3A E7 20 34 2C 31 3A  DE 20 34 2C 30 2C 31 39  |9:. 4,1:. 4,0,19|
00000420: 00 54 20 C8 00 81 20 54  5A B2 31 20 A4 20 36 3A  |.T ... TZ.1 . 6:|
00000430: 81 20 54 31 B2 31 20 A4  20 5A 28 54 5A 29 3A 58  |. T1.1 . Z(TZ):X|
00000440: B2 58 28 54 5A 2C 54 31  29 3A 59 B2 59 28 54 5A  |.X(TZ,T1):Y.Y(TZ|
00000450: 2C 54 31 29 00 C5 20 D2  00 E1 20 31 2C 58 2C 59  |,T1).. ... 1,X,Y|
00000460: 2C 58 AA 37 2C 59 AA 37  2C 2C 31 3A 81 20 54 B2  |,X.7,Y.7,,1:. T.|
00000470: 31 20 A4 20 33 3A E5 20  33 2C 58 AA 54 2C 59 AB  |1 . 3:. 3,X.T,Y.|
00000480: 54 20 A4 20 37 3B 39 30  3A E5 20 32 2C 58 AA 37  |T . 7;90:. 2,X.7|
00000490: AA 54 2C 59 AB 54 20 A4  20 37 3B 31 38 30 3A 82  |.T,Y.T . 7;180:.|
000004A0: 3A E5 20 30 2C 58 2C 59  20 A4 20 37 3B 39 30 20  |:. 0,X,Y . 7;90 |
000004B0: A4 20 37 3B 31 38 30 20  A4 20 34 3B 34 35 3A 82  |. 7;180 . 4;45:.|
000004C0: 3A 82 3A FE 26 00 E2 20  DC 00 8F 20 53 45 54 20  |:.:.&.. ... SET |
000004D0: 43 4F 4C 4F 52 53 20 41  4E 44 20 4E 55 4D 42 45  |COLORS AND NUMBE|
000004E0: 52 53 00 F6 20 E6 00 58  B2 36 38 3A 81 20 59 B2  |RS.. ..X.68:. Y.|
000004F0: 30 20 A4 20 31 33 00 14  21 F0 00 E7 20 31 2C 38  |0 . 13..!... 1,8|
00000500: 3A E5 20 31 2C 30 2C 58  AA 59 AC 38 20 A4 20 37  |:. 1,0,X.Y.8 . 7|
00000510: 39 3B 39 30 00 34 21 FA  00 E7 20 31 2C 43 31 3A  |9;90.4!... 1,C1:|
00000520: E5 20 31 2C 38 30 2C 58  AA 59 AC 38 20 A4 20 37  |. 1,80,X.Y.8 . 7|
00000530: 39 3B 39 30 00 53 21 04  01 E7 20 32 2C 31 30 3A  |9;90.S!... 2,10:|
00000540: E5 20 32 2C 30 2C 58 AA  59 AC 38 20 A4 20 37 39  |. 2,0,X.Y.8 . 79|
00000550: 3B 39 30 00 73 21 0E 01  E7 20 32 2C 43 32 3A E5  |;90.s!... 2,C2:.|
00000560: 20 32 2C 38 30 2C 58 AA  59 AC 38 20 A4 20 37 39  | 2,80,X.Y.8 . 79|
00000570: 3B 39 30 00 91 21 18 01  E7 20 33 2C 39 3A E5 20  |;90..!... 3,9:. |
00000580: 33 2C 30 2C 58 AA 59 AC  38 20 A4 20 37 39 3B 39  |3,0,X.Y.8 . 79;9|
00000590: 30 00 B1 21 22 01 E7 20  33 2C 43 33 3A E5 20 33  |0..!".. 3,C3:. 3|
000005A0: 2C 38 30 2C 58 AA 59 AC  38 20 A4 20 37 39 3B 39  |,80,X.Y.8 . 79;9|
000005B0: 30 00 CC 21 2C 01 E5 20  30 2C 30 2C 58 AA 59 AC  |0..!,.. 0,0,X.Y.|
000005C0: 38 20 A4 20 31 35 39 3B  39 30 3A 82 00 F4 21 36  |8 . 159;90:...!6|
000005D0: 01 81 20 5A 42 B2 31 20  A4 20 36 3A 8D 20 33 32  |.. ZB.1 . 6:. 32|
000005E0: 30 3A 82 3A 5A 41 B2 30  3A 5A 43 B2 31 32 3A 89  |0:.:ZA.0:ZC.12:.|
000005F0: 20 33 35 30 00 1A 22 40  01 E7 20 31 2C 31 34 3A  | 350.."@.. 1,14:|
00000600: E0 20 31 2C 4C 28 5A 42  29 2C 34 2C 4E 24 28 5A  |. 1,L(ZB),4,N$(Z|
00000610: 42 29 3A E7 20 31 2C 32  3A 8E 00 3F 22 4A 01 E7  |B):. 1,2:..?"J..|
00000620: 20 31 2C 33 3A E0 20 31  2C 4C 28 5A 42 29 2C 34  | 1,3:. 1,L(ZB),4|
00000630: 2C 4E 24 28 5A 42 29 3A  E7 20 31 2C 32 3A 8E 00  |,N$(ZB):. 1,2:..|
00000640: 52 22 54 01 8F 20 49 4E  53 54 52 55 43 54 49 4F  |R"T.. INSTRUCTIO|
00000650: 4E 53 00 A3 22 5E 01 FE  1A 20 30 2C 31 39 2C 33  |NS.."^... 0,19,3|
00000660: 39 2C 32 34 2C 31 3A 99  22 11 9F 54 48 45 20 4F  |9,24,1:."..THE O|
00000670: 42 4A 45 43 54 20 4F 46  20 54 48 49 53 20 47 41  |BJECT OF THIS GA|
00000680: 4D 45 20 49 53 20 54 4F  20 55 53 45 20 54 48 45  |ME IS TO USE THE|
00000690: 53 45 20 42 4C 4F 43 4B  20 53 45 43 54 49 4F 4E  |SE BLOCK SECTION|
000006A0: 53 22 3B 00 FB 22 68 01  41 41 B2 31 3A 81 20 5A  |S";.."h.AA.1:. Z|
000006B0: 42 B2 31 20 A4 20 36 3A  99 20 5A 42 22 9D 2C 22  |B.1 . 6:. ZB".,"|
000006C0: 3B 3A 8D 20 33 33 30 3A  8D 20 36 32 30 3A 81 20  |;:. 330:. 620:. |
000006D0: 4E B2 31 20 A4 20 34 3A  8D 20 34 30 30 3A 8D 20  |N.1 . 4:. 400:. |
000006E0: 36 34 30 3A 82 3A 81 20  4E B2 31 20 A4 20 34 3A  |640:.:. N.1 . 4:|
000006F0: 8D 20 34 30 30 3A 8D 20  36 36 30 00 33 23 72 01  |. 400:. 660.3#r.|
00000700: 82 3A 81 20 4E B2 31 20  A4 20 34 3A 8D 20 34 30  |.:. N.1 . 4:. 40|
00000710: 30 3A 8D 20 36 38 30 3A  82 3A 8D 20 34 30 30 3A  |0:. 680:.:. 400:|
00000720: 8D 20 33 32 30 3A 82 3A  99 22 11 05 22 3A 8D 20  |. 320:.:."..":. |
00000730: 34 30 30 00 60 23 7C 01  99 A3 36 29 22 54 4F 20  |400.`#|...6)"TO |
00000740: 4D 41 4B 45 20 54 48 49  53 20 33 58 33 58 33 20  |MAKE THIS 3X3X3 |
00000750: 43 55 42 45 22 3A 8D 20  35 35 30 3A FE 0B 20 35  |CUBE":. 550:.. 5|
00000760: 00 B6 23 86 01 9E D1 28  22 31 35 45 31 22 29 3A  |..#....("15E1"):|
00000770: 8D 20 35 35 30 3A 81 20  54 B2 31 20 A4 20 36 3A  |. 550:. T.1 . 6:|
00000780: 5A 45 28 54 29 B2 30 3A  81 20 55 B2 31 20 A4 20  |ZE(T).0:. U.1 . |
00000790: 5A 28 54 29 3A 97 20 5A  44 28 54 29 AA 56 28 54  |Z(T):. ZD(T).V(T|
000007A0: 2C 55 29 2C 54 AA 31 3A  82 3A 82 3A 5A 42 B2 30  |,U),T.1:.:.:ZB.0|
000007B0: 3A 89 20 34 32 30 00 C9  23 90 01 81 20 58 B2 30  |:. 420..#... X.0|
000007C0: 20 A4 20 35 30 3A 82 3A  8E 00 DC 23 9A 01 8F 20  | . 50:.:...#... |
000007D0: 44 49 53 50 4C 41 59 20  4D 45 4E 55 00 1F 24 A4  |DISPLAY MENU..$.|
000007E0: 01 FE 1A 20 30 2C 31 39  2C 33 39 2C 32 34 2C 31  |... 0,19,39,24,1|
000007F0: 3A 99 22 11 05 12 52 92  45 54 52 45 49 56 45 20  |:."...R.ETREIVE |
00000800: 46 52 4F 4D 20 43 55 42  45 22 A3 32 35 29 22 9E  |FROM CUBE".25)".|
00000810: 12 4D 92 4F 56 45 20 54  4F 20 43 55 42 45 22 00  |.M.OVE TO CUBE".|
00000820: 44 24 AE 01 99 22 12 1E  50 92 4C 41 43 45 20 49  |D$..."..P.LACE I|
00000830: 4E 20 43 55 42 45 22 A3  32 39 29 22 9E 37 12 20  |N CUBE".29)".7. |
00000840: 38 20 39 22 00 71 24 B8  01 99 22 12 99 58 92 2C  |8 9".q$..."..X.,|
00000850: 12 59 92 2C 4F 52 20 12  5A 92 20 52 4F 54 41 54  |.Y.,OR .Z. ROTAT|
00000860: 49 4F 4E 22 A3 32 39 29  22 9E 12 34 20 20 20 36  |ION".29)"..4   6|
00000870: 22 00 9C 24 C2 01 99 22  12 9F 31 92 20 54 48 52  |"..$..."..1. THR|
00000880: 55 20 12 36 92 20 53 45  43 54 49 4F 4E 22 A3 32  |U .6. SECTION".2|
00000890: 39 29 22 9E 12 31 20 32  20 92 33 22 00 C7 24 CC  |9)"..1 2 .3"..$.|
000008A0: 01 99 22 12 96 43 92 41  4E 43 45 4C 20 54 48 49  |.."..C.ANCEL THI|
000008B0: 53 20 4D 4F 56 45 22 A3  32 37 29 22 9E 43 4F 4E  |S MOVE".27)".CON|
000008C0: 54 52 4F 4C 53 22 3B 00  F8 24 D6 01 81 20 54 B2  |TROLS";..$... T.|
000008D0: 30 20 A4 20 33 31 3A 97  20 D1 28 22 31 39 44 30  |0 . 31:. .("19D0|
000008E0: 22 29 AA 54 2C 30 3A 82  3A 5A 42 B2 30 3A 8D 20  |").T,0:.:ZB.0:. |
000008F0: 36 34 30 3A 41 41 B2 30  00 1A 25 E0 01 8F 20 4D  |640:AA.0..%... M|
00000900: 41 4B 45 20 58 2C 59 2C  5A 20 52 4F 54 41 54 49  |AKE X,Y,Z ROTATI|
00000910: 4F 4E 20 42 4F 52 44 45  52 53 00 4E 25 EA 01 E7  |ON BORDERS.N%...|
00000920: 20 31 2C 31 35 3A E0 20  31 2C 31 39 2C 31 33 2C  | 1,15:. 1,19,13,|
00000930: 22 59 22 3A E0 20 31 2C  32 38 2C 31 38 2C 22 58  |"Y":. 1,28,18,"X|
00000940: 22 3A E0 20 31 2C 32 35  2C 37 2C 22 5A 22 00 95  |":. 1,25,7,"Z"..|
00000950: 25 F4 01 E7 20 31 2C 32  3A E5 20 31 2C 39 30 2C  |%... 1,2:. 1,90,|
00000960: 31 33 36 20 A4 20 33 34  3B 39 30 20 A4 20 33 36  |136 . 34;90 . 36|
00000970: 3B 34 35 20 A4 20 34 38  3B 30 20 A4 20 33 35 3B  |;45 . 48;0 . 35;|
00000980: 32 37 30 20 A4 20 33 36  3B 32 32 35 20 A4 20 34  |270 . 36;225 . 4|
00000990: 38 3B 31 38 30 00 B6 25  FE 01 8F 20 4D 41 4B 45  |8;180..%... MAKE|
000009A0: 20 53 45 4C 45 43 54 49  4F 4E 20 46 4F 52 20 53  | SELECTION FOR S|
000009B0: 45 43 54 49 4F 4E 00 BF  25 08 02 A1 20 59 24 00  |ECTION..%... Y$.|
000009C0: FD 25 12 02 8B 20 59 24  B1 22 30 22 20 AF 20 59  |.%... Y$."0" . Y|
000009D0: 24 B3 22 37 22 20 A7 20  5A 42 B2 C5 28 59 24 29  |$."7" . ZB..(Y$)|
000009E0: 3A 8D 20 36 32 30 3A 89  20 35 32 30 3A D5 20 8B  |:. 620:. 520:. .|
000009F0: 20 59 24 B2 22 30 22 20  A7 20 35 35 30 00 2C 26  | Y$."0" . 550.,&|
00000A00: 1C 02 91 20 D4 28 22 52  58 59 5A 4D 22 2C 59 24  |... .("RXYZM",Y$|
00000A10: 29 89 20 35 38 30 2C 36  34 30 2C 36 38 30 2C 36  |). 580,640,680,6|
00000A20: 36 30 2C 35 36 30 3A 89  20 35 32 30 00 50 26 26  |60,560:. 520.P&&|
00000A30: 02 5A 42 B2 30 3A 9E 20  D1 28 22 31 34 38 36 22  |.ZB.0:. .("1486"|
00000A40: 29 3A 8B 20 41 41 20 A7  20 8E 3A D5 20 35 30 30  |):. AA . .:. 500|
00000A50: 00 7C 26 30 02 8B 20 5A  42 B2 30 20 B0 20 5A 45  |.|&0.. ZB.0 . ZE|
00000A60: 28 5A 42 29 A7 20 DA 20  32 2C 38 30 30 2C 32 30  |(ZB). . 2,800,20|
00000A70: 3A 89 20 35 32 30 3A D5  20 37 32 30 00 9D 26 3A  |:. 520:. 720..&:|
00000A80: 02 8F 20 52 45 54 52 45  49 56 45 20 53 45 43 54  |.. RETREIVE SECT|
00000A90: 49 4F 4E 20 46 52 4F 4D  20 43 55 42 45 00 CA 26  |ION FROM CUBE..&|
00000AA0: 44 02 8B 20 5A 42 B3 B1  30 20 AF 20 5A 45 28 5A  |D.. ZB..0 . ZE(Z|
00000AB0: 42 29 A7 20 35 39 30 3A  D5 20 DA 20 33 2C 34 30  |B). 590:. . 3,40|
00000AC0: 30 2C 33 30 3A 89 20 35  32 30 00 0F 27 4E 02 81  |0,30:. 520..'N..|
00000AD0: 20 54 B2 30 20 A4 20 32  36 3A 8B 20 C2 28 5A 44  | T.0 . 26:. .(ZD|
00000AE0: 28 30 29 AA 54 29 B2 5A  42 AA 31 20 A7 20 97 20  |(0).T).ZB.1 . . |
00000AF0: 5A 44 28 30 29 AA 54 2C  30 3A 97 20 5A 44 28 5A  |ZD(0).T,0:. ZD(Z|
00000B00: 42 29 AA 54 2C 5A 42 AA  31 3A 89 20 36 31 30 00  |B).T,ZB.1:. 610.|
00000B10: 20 27 58 02 97 20 5A 44  28 5A 42 29 AA 54 2C 30  | 'X.. ZD(ZB).T,0|
00000B20: 00 78 27 62 02 82 3A 8D  20 36 32 30 3A 5A 45 28  |.x'b..:. 620:ZE(|
00000B30: 5A 42 29 B2 30 3A 8D 20  33 32 30 3A 97 20 D1 28  |ZB).0:. 320:. .(|
00000B40: 22 31 34 42 32 22 29 2C  31 37 36 3A 9E 20 D1 28  |"14B2"),176:. .(|
00000B50: 22 31 34 42 31 22 29 3A  97 20 D1 28 22 31 34 42  |"14B1"):. .("14B|
00000B60: 32 22 29 2C 31 36 3A 9E  20 D1 28 22 31 34 38 36  |2"),16:. .("1486|
00000B70: 22 29 3A 89 20 35 30 30  00 B6 27 6C 02 DA 20 31  |"):. 500..'l.. 1|
00000B80: 2C 36 30 30 30 30 2C 31  30 3A 97 20 D1 28 22 31  |,60000,10:. .("1|
00000B90: 34 43 36 22 29 2C 5A 42  28 5A 42 29 3A 9E 20 D1  |4C6"),ZB(ZB):. .|
00000BA0: 28 22 31 34 42 31 22 29  3A 9E 20 D1 28 22 31 34  |("14B1"):. .("14|
00000BB0: 42 44 22 29 3A 8E 00 D6  27 76 02 8F 20 58 2C 59  |BD"):...'v.. X,Y|
00000BC0: 2C 5A 20 52 4F 54 41 54  49 4F 4E 41 4C 20 52 4F  |,Z ROTATIONAL RO|
00000BD0: 55 54 49 4E 45 53 00 13  28 80 02 8D 20 37 30 30  |UTINES..(... 700|
00000BE0: 3A DA 20 31 2C 35 30 30  30 30 2C 31 3A 9E 20 D1  |:. 1,50000,1:. .|
00000BF0: 28 22 31 33 41 41 22 29  3A 8B 20 41 41 20 A7 20  |("13AA"):. AA . |
00000C00: 8E 3A 8F 20 52 4F 54 41  54 45 20 27 59 27 20 44  |.:. ROTATE 'Y' D|
00000C10: 49 52 2E 00 1D 28 8A 02  89 20 35 30 30 00 5A 28  |IR...(... 500.Z(|
00000C20: 94 02 8D 20 37 30 30 3A  DA 20 32 2C 32 35 30 30  |... 700:. 2,2500|
00000C30: 30 2C 31 3A 9E 20 D1 28  22 31 33 44 46 22 29 3A  |0,1:. .("13DF"):|
00000C40: 8B 20 41 41 20 A7 20 8E  3A 8F 20 52 4F 54 41 54  |. AA . .:. ROTAT|
00000C50: 45 20 27 5A 27 20 44 49  52 2E 00 64 28 9E 02 89  |E 'Z' DIR..d(...|
00000C60: 20 35 30 30 00 A1 28 A8  02 8D 20 37 30 30 3A DA  | 500..(... 700:.|
00000C70: 20 33 2C 32 35 30 30 30  2C 31 3A 9E 20 D1 28 22  | 3,25000,1:. .("|
00000C80: 31 34 31 45 22 29 3A 8B  20 41 41 20 A7 20 8E 3A  |141E"):. AA . .:|
00000C90: 8F 20 52 4F 54 41 54 45  20 27 58 27 20 44 49 52  |. ROTATE 'X' DIR|
00000CA0: 2E 00 AB 28 B2 02 89 20  35 30 30 00 EA 28 BC 02  |...(... 500..(..|
00000CB0: 97 20 D1 28 22 31 34 36  36 22 29 2C 5A 42 28 5A  |. .("1466"),ZB(Z|
00000CC0: 42 29 3A 97 20 D1 28 22  31 34 37 38 22 29 2C 5A  |B):. .("1478"),Z|
00000CD0: 41 28 5A 42 29 3A 97 20  D1 28 22 31 34 35 45 22  |A(ZB):. .("145E"|
00000CE0: 29 2C 5A 43 28 5A 42 29  3A 8E 00 06 29 C6 02 8F  |),ZC(ZB):...)...|
00000CF0: 20 50 4C 41 43 45 20 53  45 43 54 49 4F 4E 20 49  | PLACE SECTION I|
00000D00: 4E 20 43 55 42 45 00 44  29 D0 02 53 50 B2 5A 28  |N CUBE.D)..SP.Z(|
00000D10: 5A 42 29 3A 5A 5A B2 53  50 3A 81 20 5A B2 30 20  |ZB):ZZ.SP:. Z.0 |
00000D20: A4 20 32 3A 81 20 59 B2  30 20 A4 20 32 3A 81 20  |. 2:. Y.0 . 2:. |
00000D30: 58 B2 30 20 A4 20 32 3A  50 53 B2 5A AC 39 AA 59  |X.0 . 2:PS.Z.9.Y|
00000D40: AC 33 AA 58 00 9C 29 DA  02 8B 20 C2 28 5A 44 28  |.3.X..)... .(ZD(|
00000D50: 5A 42 29 AA 50 53 29 20  A7 20 FE 06 20 53 50 2C  |ZB).PS) . .. SP,|
00000D60: 37 32 AA 58 AC 32 34 AB  5A AC 31 32 2C 31 32 39  |72.X.24.Z.12,129|
00000D70: AB 59 AC 31 36 AA 5A AC  38 3A 42 5A 28 53 50 29  |.Y.16.Z.8:BZ(SP)|
00000D80: B2 5A 3A 42 59 28 53 50  29 B2 59 3A 42 58 28 53  |.Z:BY(SP).Y:BX(S|
00000D90: 50 29 B2 58 3A 53 50 B2  53 50 AB 31 00 BB 29 E4  |P).X:SP.SP.1..).|
00000DA0: 02 82 20 58 2C 59 2C 5A  3A 97 20 D1 28 22 44 30  |.. X,Y,Z:. .("D0|
00000DB0: 31 35 22 29 2C 32 AE 5A  5A AB 31 00 09 2A EE 02  |15"),2.ZZ.1..*..|
00000DC0: DA 20 32 2C 34 30 30 30  30 2C 31 30 30 2C 31 2C  |. 2,40000,100,1,|
00000DD0: 33 30 30 2C 31 30 30 2C  30 3A 81 20 54 B2 31 20  |300,100,0:. T.1 |
00000DE0: A4 20 31 35 39 20 A9 20  34 3A 81 20 55 B2 31 20  |. 159 . 4:. U.1 |
00000DF0: A4 20 5A 5A 3A FE 06 20  55 2C AA 34 2C AA 30 3A  |. ZZ:.. U,.4,.0:|
00000E00: 82 3A 82 3A 41 32 B2 34  30 00 20 2A F8 02 DA 20  |.:.:A2.40. *... |
00000E10: 31 2C 34 30 30 AC 41 32  2C 32 30 3A 41 32 B2 31  |1,400.A2,20:A2.1|
00000E20: 00 47 2A 02 03 8F 20 4D  4F 56 45 20 53 45 43 54  |.G*... MOVE SECT|
00000E30: 49 4F 4E 20 54 4F 20 44  45 53 49 52 45 44 20 4C  |ION TO DESIRED L|
00000E40: 4F 43 41 54 49 4F 4E 00  69 2A 0C 03 56 50 B2 AB  |OCATION.i*..VP..|
00000E50: 28 56 50 B2 30 29 3A 97  20 D1 28 22 44 30 31 42  |(VP.0):. .("D01B|
00000E60: 22 29 2C 56 50 AC 32 35  35 00 AC 2A 16 03 A1 20  |"),VP.255..*... |
00000E70: 59 24 3A 91 20 D4 28 22  34 36 32 38 31 39 50 43  |Y$:. .("462819PC|
00000E80: 22 2C 59 24 29 89 20 38  30 30 2C 38 32 30 2C 38  |",Y$). 800,820,8|
00000E90: 34 30 2C 38 36 30 2C 38  38 30 2C 39 30 30 2C 39  |40,860,880,900,9|
00000EA0: 32 30 2C 39 34 30 3A 89  20 37 38 30 00 CD 2A 20  |20,940:. 780..* |
00000EB0: 03 81 20 54 B2 31 20 A4  20 5A 5A 3A 8B 20 42 58  |.. T.1 . ZZ:. BX|
00000EC0: 28 54 29 AB 31 B3 30 20  A7 20 37 36 30 00 FF 2A  |(T).1.0 . 760..*|
00000ED0: 2A 03 82 3A 81 20 54 B2  31 20 A4 20 5A 5A 3A 42  |*..:. T.1 . ZZ:B|
00000EE0: 58 28 54 29 B2 42 58 28  54 29 AB 31 3A FE 06 54  |X(T).BX(T).1:..T|
00000EF0: 2C AB 32 34 2C AA 30 3A  82 3A 89 20 37 38 30 00  |,.24,.0:.:. 780.|
00000F00: 20 2B 34 03 81 20 54 B2  31 20 A4 20 5A 5A 3A 8B  | +4.. T.1 . ZZ:.|
00000F10: 20 42 58 28 54 29 AA 31  B1 32 20 A7 20 37 36 30  | BX(T).1.2 . 760|
00000F20: 00 52 2B 3E 03 82 3A 81  20 54 B2 31 20 A4 20 5A  |.R+>..:. T.1 . Z|
00000F30: 5A 3A 42 58 28 54 29 B2  42 58 28 54 29 AA 31 3A  |Z:BX(T).BX(T).1:|
00000F40: FE 06 54 2C AA 32 34 2C  AA 30 3A 82 3A 89 20 37  |..T,.24,.0:.:. 7|
00000F50: 38 30 00 73 2B 48 03 81  20 54 B2 31 20 A4 20 5A  |80.s+H.. T.1 . Z|
00000F60: 5A 3A 8B 20 42 59 28 54  29 AB 31 B3 30 20 A7 20  |Z:. BY(T).1.0 . |
00000F70: 37 36 30 00 A6 2B 52 03  82 3A 81 20 54 B2 31 20  |760..+R..:. T.1 |
00000F80: A4 20 5A 5A 3A 42 59 28  54 29 B2 42 59 28 54 29  |. ZZ:BY(T).BY(T)|
00000F90: AB 31 3A FE 06 20 54 2C  AA 30 2C AA 31 36 3A 82  |.1:.. T,.0,.16:.|
00000FA0: 3A 89 20 37 38 30 00 C7  2B 5C 03 81 20 54 B2 31  |:. 780..+\.. T.1|
00000FB0: 20 A4 20 5A 5A 3A 8B 20  42 59 28 54 29 AA 31 B1  | . ZZ:. BY(T).1.|
00000FC0: 32 20 A7 20 37 36 30 00  FA 2B 66 03 82 3A 81 20  |2 . 760..+f..:. |
00000FD0: 54 B2 31 20 A4 20 5A 5A  3A 42 59 28 54 29 B2 42  |T.1 . ZZ:BY(T).B|
00000FE0: 59 28 54 29 AA 31 3A FE  06 20 54 2C AA 30 2C AB  |Y(T).1:.. T,.0,.|
00000FF0: 31 36 3A 82 3A 89 20 37  38 30 00 1B 2C 70 03 81  |16:.:. 780..,p..|
00001000: 20 54 B2 31 20 A4 20 5A  5A 3A 8B 20 42 5A 28 54  | T.1 . ZZ:. BZ(T|
00001010: 29 AA 31 B1 32 20 A7 20  37 36 30 00 4E 2C 7A 03  |).1.2 . 760.N,z.|
00001020: 82 3A 81 20 54 B2 31 20  A4 20 5A 5A 3A 42 5A 28  |.:. T.1 . ZZ:BZ(|
00001030: 54 29 B2 42 5A 28 54 29  AA 31 3A FE 06 20 54 2C  |T).BZ(T).1:.. T,|
00001040: AB 31 32 2C AA 38 3A 82  3A 89 20 37 38 30 00 6F  |.12,.8:.:. 780.o|
00001050: 2C 84 03 81 20 54 B2 31  20 A4 20 5A 5A 3A 8B 20  |,... T.1 . ZZ:. |
00001060: 42 5A 28 54 29 AB 31 B3  30 20 A7 20 37 36 30 00  |BZ(T).1.0 . 760.|
00001070: A2 2C 8E 03 82 3A 81 20  54 B2 31 20 A4 20 5A 5A  |.,...:. T.1 . ZZ|
00001080: 3A 42 5A 28 54 29 B2 42  5A 28 54 29 AB 31 3A FE  |:BZ(T).BZ(T).1:.|
00001090: 06 20 54 2C AA 31 32 2C  AB 38 3A 82 3A 89 20 37  |. T,.12,.8:.:. 7|
000010A0: 38 30 00 E4 2C 98 03 81  20 54 B2 31 20 A4 20 5A  |80..,... T.1 . Z|
000010B0: 5A 3A 42 55 28 54 29 B2  42 5A 28 54 29 AC 39 AA  |Z:BU(T).BZ(T).9.|
000010C0: 42 59 28 54 29 AC 33 AA  42 58 28 54 29 3A 8B 20  |BY(T).3.BX(T):. |
000010D0: C2 28 5A 44 28 30 29 AA  42 55 28 54 29 29 20 A7  |.(ZD(0).BU(T)) .|
000010E0: 20 37 36 30 00 56 2D A2  03 82 3A 97 20 D1 28 22  | 760.V-...:. .("|
000010F0: 44 30 31 35 22 29 2C 30  3A 81 20 54 B2 31 20 A4  |D015"),0:. T.1 .|
00001100: 20 5A 5A 3A 97 20 5A 44  28 30 29 AA 42 55 28 54  | ZZ:. ZD(0).BU(T|
00001110: 29 2C 5A 42 AA 31 3A 82  3A 5A 45 28 5A 42 29 B2  |),ZB.1:.:ZE(ZB).|
00001120: 31 3A 9E 20 D1 28 22 31  34 42 31 22 29 3A 9E 20  |1:. .("14B1"):. |
00001130: D1 28 22 31 34 38 36 22  29 3A DA 20 32 2C 35 30  |.("1486"):. 2,50|
00001140: 30 30 2C 32 30 3A 8D 20  33 33 30 3A 5A 42 B2 30  |00,20:. 330:ZB.0|
00001150: 3A 89 20 39 37 30 00 6E  2D AC 03 97 20 D1 28 22  |:. 970.n-... .("|
00001160: 44 30 31 35 22 29 2C 30  3A 89 20 35 30 30 00 AD  |D015"),0:. 500..|
00001170: 2D B6 03 97 20 D1 28 22  31 34 36 36 22 29 2C 5A  |-... .("1466"),Z|
00001180: 42 28 5A 42 29 3A 97 20  D1 28 22 31 34 37 38 22  |B(ZB):. .("1478"|
00001190: 29 2C 5A 41 28 5A 42 29  3A 97 20 D1 28 22 31 34  |),ZA(ZB):. .("14|
000011A0: 35 45 22 29 2C 5A 43 28  5A 42 29 3A 8E 00 CC 2D  |5E"),ZC(ZB):...-|
000011B0: C0 03 8F 20 43 48 45 43  4B 20 46 4F 52 20 43 4F  |... CHECK FOR CO|
000011C0: 4D 50 4C 45 54 45 44 20  43 55 42 45 00 EC 2D CA  |MPLETED CUBE..-.|
000011D0: 03 81 20 54 B2 31 20 A4  20 36 3A 8B 20 5A 45 28  |.. T.1 . 6:. ZE(|
000011E0: 54 29 20 A7 20 82 3A D5  20 35 30 30 00 56 2E D4  |T) . .:. 500.V..|
000011F0: 03 FE 1A 20 30 2C 31 39  2C 33 39 2C 32 34 2C 31  |... 0,19,39,24,1|
00001200: 3A 99 22 11 12 9E 20 20  20 20 43 4F 4E 47 52 41  |:."...    CONGRA|
00001210: 54 55 4C 41 54 49 4F 4E  53 2C 20 43 55 42 49 58  |TULATIONS, CUBIX|
00001220: 4F 52 20 20 20 20 22 3A  99 22 99 20 50 52 45 53  |OR    ":.". PRES|
00001230: 53 20 41 4E 59 20 4B 45  59 20 46 4F 52 20 41 20  |S ANY KEY FOR A |
00001240: 4E 45 57 20 47 41 4D 45  22 3A A1 20 F9 20 59 24  |NEW GAME":. . Y$|
00001250: 3A 89 20 33 35 30 00 6C  2E DE 03 8F 20 52 4F 54  |:. 350.l.... ROT|
00001260: 41 54 49 4F 4E 41 4C 20  44 41 54 41 00 A0 2E E8  |ATIONAL DATA....|
00001270: 03 83 20 31 38 2C 30 2C  39 2C 33 2C 30 2C 36 2C  |.. 18,0,9,3,0,6,|
00001280: 32 31 2C 39 2C 31 32 2C  31 32 2C 33 2C 31 35 2C  |21,9,12,12,3,15,|
00001290: 32 34 2C 31 38 2C 31 35  2C 32 31 2C 36 2C 32 34  |24,18,15,21,6,24|
000012A0: 00 D5 2E F2 03 83 20 36  2C 30 2C 37 2C 33 2C 38  |...... 6,0,7,3,8|
000012B0: 2C 36 2C 31 35 2C 39 2C  31 36 2C 31 32 2C 31 37  |,6,15,9,16,12,17|
000012C0: 2C 31 35 2C 32 34 2C 31  38 2C 32 35 2C 32 31 2C  |,15,24,18,25,21,|
000012D0: 32 36 2C 32 34 00 0D 2F  FC 03 83 20 31 38 2C 30  |26,24../... 18,0|
000012E0: 2C 32 31 2C 33 2C 32 34  2C 36 2C 31 39 2C 39 2C  |,21,3,24,6,19,9,|
000012F0: 32 32 2C 31 32 2C 32 35  2C 31 35 2C 32 30 2C 31  |22,12,25,15,20,1|
00001300: 38 2C 32 33 2C 32 31 2C  32 36 2C 32 34 00 25 2F  |8,23,21,26,24.%/|
00001310: 06 04 8F 20 53 4D 41 4C  4C 20 42 4C 4F 43 4B 53  |... SMALL BLOCKS|
00001320: 20 44 41 54 41 00 91 2F  10 04 83 20 34 2C 30 2C  | DATA../... 4,0,|
00001330: 38 2C 33 2C 38 2C 38 2C  34 2C 31 36 2C 38 2C 35  |8,3,8,8,4,16,8,5|
00001340: 2C 31 32 2C 31 32 2C 31  34 2C 34 2C 33 37 2C 31  |,12,12,14,4,37,1|
00001350: 36 2C 31 32 2C 32 39 2C  38 2C 31 33 2C 33 37 2C  |6,12,29,8,13,37,|
00001360: 38 2C 31 30 2C 33 33 2C  32 30 2C 31 39 2C 34 2C  |8,10,33,20,19,4,|
00001370: 35 34 2C 31 36 2C 31 33  2C 35 34 2C 38 2C 31 34  |54,16,13,54,8,14|
00001380: 2C 36 32 2C 38 2C 31 30  2C 35 30 2C 32 30 2C 31  |,62,8,10,50,20,1|
00001390: 39 00 F4 2F 1A 04 83 20  35 2C 37 38 2C 31 36 2C  |9../... 5,78,16,|
000013A0: 39 2C 37 38 2C 38 2C 31  32 2C 38 36 2C 38 2C 31  |9,78,8,12,86,8,1|
000013B0: 33 2C 39 34 2C 38 2C 31  34 2C 37 34 2C 32 30 2C  |3,94,8,14,74,20,|
000013C0: 31 38 2C 35 2C 31 31 36  2C 38 2C 37 2C 31 30 34  |18,5,116,8,7,104|
000013D0: 2C 32 30 2C 31 36 2C 31  31 32 2C 32 30 2C 31 32  |,20,16,112,20,12|
000013E0: 2C 31 31 32 2C 31 32 2C  31 33 2C 31 30 30 2C 32  |,112,12,13,100,2|
000013F0: 34 2C 32 31 00 2D 30 24  04 83 20 35 2C 31 33 32  |4,21.-0$.. 5,132|
00001400: 2C 31 36 2C 31 32 2C 31  34 30 2C 31 36 2C 31 33  |,16,12,140,16,13|
00001410: 2C 31 34 38 2C 31 36 2C  31 34 2C 31 34 30 2C 38  |,148,16,14,140,8|
00001420: 2C 31 36 2C 31 32 38 2C  32 30 2C 32 31 00 4A 30  |,16,128,20,21.J0|
00001430: 2E 04 8F 20 20 2A 20 4E  55 4D 42 45 52 53 20 41  |...  * NUMBERS A|
00001440: 4E 44 20 4C 4F 43 2E 20  20 2A 00 6C 30 38 04 83  |ND LOC.  *.l08..|
00001450: 20 31 2C 32 2C 32 2C 38  2C 33 2C 31 33 2C 34 2C  | 1,2,2,8,3,13,4,|
00001460: 32 30 2C 35 2C 32 37 2C  36 2C 33 36 00 9B 30 42  |20,5,27,6,36..0B|
00001470: 04 83 20 38 2C 30 2C 37  2C 33 2C 36 2C 36 2C 35  |.. 8,0,7,3,6,6,5|
00001480: 2C 39 2C 34 2C 31 32 2C  33 2C 31 35 2C 32 2C 31  |,9,4,12,3,15,2,1|
00001490: 38 2C 31 2C 32 31 2C 30  2C 32 34 00 00 00 2E     |8,1,21,0,24.... |

..!.... CUBIX 1 BY LEONARD MORRIS......%
:. 4,1,19:.V(6,6),X(6,6),Y(6,6),BZ(6),BY
(6),BX(6),BU(6):CT.26:C1.2:C2.7:C3.15:AD
.12240:P1.0......."CUBIX-ML",B0,P4864:.Q
("15D3"):.Q("15E1")...(... 11,3:.. 1,0,5
,0,1,1,1:. T.2 . 5:. Q("1FF7").T,56:.. T
,0,5,0,1,1,1:..(.2.. SET MEMORY LOC. FOR
 ROTATION(X,Y,Z).I.<.. T.0 . 31:. Q("19D
0").T,1:...F.. T.0 . 8:. X,Y:. Q("1B80"
).T,X:. Q("1B90").T,Y:....P.. T.0 . 8:. 
X,Y:. Q("1BA0").T,X:. Q("1BB0").T,Y:....
Z.. T.0 . 8:. X,Y:. Q("1BC0").T,X:. Q("1
BD0").T,Y:..R.D.ZA(0).27:ZB(0).208:ZC(0)
.176:ZD(0).Q("19D0"):. T1.1 . 6:ZA(T1).2
6:ZB(T1).16.(T1.1).32:ZC(T1).16:ZD(T1).Q
("1910").(T1.1).32:. Z(T1)...N.. T.1 . Z
(T1):. X(T1,T),Y(T1,T),V(T1,T):. ZD(T1).
V(T1,T),T1.1:. T,T1.X.X.. T.1 . 6:. N$(T
),L(T):....... DETERMINE BLOCKS LOCATION
.A...P1.0:. V.0 . 2:. U.0 . 2:. T.0 . 2:
A.AD.T.24.U.640.V.304:. 170:. Q("1B00").
P1,A2:. Q("1B00").P1.1,A1.....A.A.160:. 
170:. Q("1A00").P1,A2:. Q("1A00").P1.1,A
1:P1.P1.2:. T,U,V... .. 190.Q...A1..(A.2
56):A2.A.256.A1:....... CLR SCRN & DRAW 
SMALL BLOCKS.  ... 0,1:. 1,8:. 2,10:. 3,
9:. 4,1:. 4,0,19.T H.. TZ.1 . 6:. T1.1 .
 Z(TZ):X.X(TZ,T1):Y.Y(TZ,T1).E R.. 1,X,Y
,X.7,Y.7,,1:. T.1 . 3:. 3,X.T,Y.T . 7;90
:. 2,X.7.T,Y.T . 7;180:.:. 0,X,Y . 7;90 
. 7;180 . 4;45:.:.:.&.. ... SET COLORS A
ND NUMBERS.. ..X.68:. Y.0 . 13..!... 1,8
:. 1,0,X.Y.8 . 79;90.4!... 1,C1:. 1,80,X
.Y.8 . 79;90.S!... 2,10:. 2,0,X.Y.8 . 79
;90.S!... 2,C2:. 2,80,X.Y.8 . 79;90..!..
. 3,9:. 3,0,X.Y.8 . 79;90..!".. 3,C3:. 3
,80,X.Y.8 . 79;90.L!,.. 0,0,X.Y.8 . 159;
90:...!6.. ZB.1 . 6:. 320:.:ZA.0:ZC.12:.
 350.."@.. 1,14:. 1,L(ZB),4,N$(ZB):. 1,2
:..?"J.. 1,3:. 1,L(ZB),4,N$(ZB):. 1,2:..
R"T.. INSTRUCTIONS.."^... 0,19,39,24,1:.
"..THE OBJECT OF THIS GAME IS TO USE THE
SE BLOCK SECTIONS";.."H.AA.1:. ZB.1 . 6:
. ZB".,";:. 330:. 620:. N.1 . 4:. 400:. 
640:.:. N.1 . 4:. 400:. 660.3#R..:. N.1 
. 4:. 400:. 680:.:. 400:. 320:.:."..":. 
400.`#|...6)"TO MAKE THIS 3X3X3 CUBE":. 
550:.. 5..#...Q("15E1"):. 550:. T.1 . 6:
ZE(T).0:. U.1 . Z(T):. ZD(T).V(T,U),T.1:
.:.:ZB.0:. 420.I#... X.0 . 50:.:...#... 
DISPLAY MENU..$.... 0,19,39,24,1:."...R.
ETREIVE FROM CUBE".25)"..M.OVE TO CUBE".
D$..."..P.LACE IN CUBE".29)".7. 8 9".Q$.
.."..X.,.Y.,OR .Z. ROTATION".29)"..4   6
"..$B.."..1. THRU .6. SECTION".29)"..1 2
 .3".G$L.."..C.ANCEL THIS MOVE".27)".CON
TROLS";..$V.. T.0 . 31:. Q("19D0").T,0:.
:ZB.0:. 640:AA.0..%... MAKE X,Y,Z ROTATI
ON BORDERS.N%... 1,15:. 1,19,13,"Y":. 1,
28,18,"X":. 1,25,7,"Z"..%... 1,2:. 1,90,
136 . 34;90 . 36;45 . 48;0 . 35;270 . 36
;225 . 48;180..%... MAKE SELECTION FOR S
ECTION..%... Y$..%... Y$."0" . Y$."7" . 
ZB.E(Y$):. 620:. 520:U . Y$."0" . 550.,&
... T("RXYZM",Y$). 580,640,680,660,560:.
 520.P&&.ZB.0:. Q("1486"):. AA . .:U 500
.|&0.. ZB.0 . ZE(ZB). Z 2,800,20:. 520:U
 720..&:.. RETREIVE SECTION FROM CUBE.J&
D.. ZB..0 . ZE(ZB). 590:U Z 3,400,30:. 5
20..'N.. T.0 . 26:. B(ZD(0).T).ZB.1 . . 
ZD(0).T,0:. ZD(ZB).T,ZB.1:. 610. 'X.. ZD
(ZB).T,0.X'B..:. 620:ZE(ZB).0:. 320:. Q(
"14B2"),176:. Q("14B1"):. Q("14B2"),16:.
 Q("1486"):. 500..'L.Z 1,60000,10:. Q("1
4C6"),ZB(ZB):. Q("14B1"):. Q("14BD"):..V
'V.. X,Y,Z ROTATIONAL ROUTINES..(... 700
:Z 1,50000,1:. Q("13AA"):. AA . .:. ROTA
TE 'Y' DIR...(... 500.Z(... 700:Z 2,2500
0,1:. Q("13DF"):. AA . .:. ROTATE 'Z' DI
R..D(... 500..(... 700:Z 3,25000,1:. Q("
141E"):. AA . .:. ROTATE 'X' DIR...(... 
500..(... Q("1466"),ZB(ZB):. Q("1478"),Z
A(ZB):. Q("145E"),ZC(ZB):...)F.. PLACE S
ECTION IN CUBE.D)P.SP.Z(ZB):ZZ.SP:. Z.0 
. 2:. Y.0 . 2:. X.0 . 2:PS.Z.9.Y.3.X..)Z
.. B(ZD(ZB).PS) . .. SP,72.X.24.Z.12,129
.Y.16.Z.8:BZ(SP).Z:BY(SP).Y:BX(SP).X:SP.
SP.1..)... X,Y,Z:. Q("D015"),2.ZZ.1..*..
Z 2,40000,100,1,300,100,0:. T.1 . 159 . 
4:. U.1 . ZZ:.. U,.4,.0:.:.:A2.40. *..Z 
1,400.A2,20:A2.1.G*... MOVE SECTION TO D
ESIRED LOCATION.I*..VP..(VP.0):. Q("D01B
"),VP.255..*... Y$:. T("462819PC",Y$). 8
00,820,840,860,880,900,920,940:. 780.M* 
.. T.1 . ZZ:. BX(T).1.0 . 760..**..:. T.
1 . ZZ:BX(T).BX(T).1:..T,.24,.0:.:. 780.
 +4.. T.1 . ZZ:. BX(T).1.2 . 760.R+>..:.
 T.1 . ZZ:BX(T).BX(T).1:..T,.24,.0:.:. 7
80.S+H.. T.1 . ZZ:. BY(T).1.0 . 760..+R.
.:. T.1 . ZZ:BY(T).BY(T).1:.. T,.0,.16:.
:. 780.G+\.. T.1 . ZZ:. BY(T).1.2 . 760.
.+F..:. T.1 . ZZ:BY(T).BY(T).1:.. T,.0,.
16:.:. 780..,P.. T.1 . ZZ:. BZ(T).1.2 . 
760.N,Z..:. T.1 . ZZ:BZ(T).BZ(T).1:.. T,
.12,.8:.:. 780.O,... T.1 . ZZ:. BZ(T).1.
0 . 760..,...:. T.1 . ZZ:BZ(T).BZ(T).1:.
. T,.12,.8:.:. 780..,... T.1 . ZZ:BU(T).
BZ(T).9.BY(T).3.BX(T):. B(ZD(0).BU(T)) .
 760.V-...:. Q("D015"),0:. T.1 . ZZ:. ZD
(0).BU(T),ZB.1:.:ZE(ZB).1:. Q("14B1"):. 
Q("1486"):Z 2,5000,20:. 330:ZB.0:. 970.N
-... Q("D015"),0:. 500..-... Q("1466"),Z
B(ZB):. Q("1478"),ZA(ZB):. Q("145E"),ZC(
ZB):..L-... CHECK FOR COMPLETED CUBE..-J
.. T.1 . 6:. ZE(T) . .:U 500.V.T... 0,19
,39,24,1:."...    CONGRATULATIONS, CUBIX
OR    ":.". PRESS ANY KEY FOR A NEW GAME
":. . Y$:. 350.L.... ROTATIONAL DATA. ..
.. 18,0,9,3,0,6,21,9,12,12,3,15,24,18,15
,21,6,24.U.... 6,0,7,3,8,6,15,9,16,12,17
,15,24,18,25,21,26,24../... 18,0,21,3,24
,6,19,9,22,12,25,15,20,18,23,21,26,24.%/
... SMALL BLOCKS DATA../... 4,0,8,3,8,8,
4,16,8,5,12,12,14,4,37,16,12,29,8,13,37,
8,10,33,20,19,4,54,16,13,54,8,14,62,8,10
,50,20,19../... 5,78,16,9,78,8,12,86,8,1
3,94,8,14,74,20,18,5,116,8,7,104,20,16,1
12,20,12,112,12,13,100,24,21.-0$.. 5,132
,16,12,140,16,13,148,16,14,140,8,16,128,
20,21.J0...  * NUMBERS AND LOC.  *.L08..
 1,2,2,8,3,13,4,20,5,27,6,36..0B.. 8,0,7
,3,6,6,5,9,4,12,3,15,2,18,1,21,0,24....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL