*********************** * *( * CUBE FOR EINSTEIN *2 * *< * BY PETE HEFFERNAN *F * *P ***********************Zd0:::0n(20): Turn cursor off)x@5,3;"****************************")@5,4;"* INSTRUCTIONS *")@5,5;"* FOR THE CUBE *")@5,6;"****************************".@3,8;"ONLY THREE FACES OF THE CUBE WILL"%@3,9;"BE DISPLAYED AT ANY TIME"{@3,10;"THE LETTERS AROUND THE CUBE INDICATE THE ROW TO BE ADJUSTED.AFTER THE PROMT(WHAT MOVE)YOU INPUT THE"x@3,13;"LETTER OF YOUR CHOICE,AT WHICH POINT YOU WILL BE ASKED FOR A DIRECTION ie UP^ DOWN: RIGHT] LEFT[."A@3,17;"NOTE THE DIRECTION KEYS ARE NOT THE CURSOR KEYS"$@3,21;"PRESS ANY KEY TO START"K~K}0s 240 0,00 Set up initial colours;F1~15 :F2~15:F3~15:F4~15:F5~15:F6~15:F7~15:F8~15:F9~151"L1~7:L2~7:L3~7:L4~7:L5~7:L6~7:L7~7:L8~7:L9~71,R1~4:R2~4:R3~4:R4~4:R5~4:R6~4:R7~4:R8~4:R9~4:6S1~12:S2~12:S3~12:S4~12:S5~12:S6~12:S7~12:S8~12:S9~12:@T1~10:T2~10:T3~10:T4~10:T5~10:T6~10:T7~10:T8~10:T9~101JB1~6:B2~6:B3~6:B4~6:B5~6:B6~6:B7~6:B8~6:B9~6T+^ Set up alpha letters around the cubehr1,84,88,3,65|2,84,57,5,663,84,28,9,674,100,8,11,685,127,8,6,696,154,8,15,707,177,12,4,718,193,24,12,729,209,36,14,73@1,9;"PRESS"@1,11;"(R)TO RESET"@1,13;"(X)TO EXIT"@1,15;"(T)TO TURN"@1,16;"WHOLE CUBE"Q~0! Draw and colour front face& 0F1:0,0: 760 DF2N27,0:760 XF3b54,0:760 lF5v27,u31:760 F40,u31:760 F654,u31:760 F70,u62:760 F827,u62:760 F954,u62:760 0,0 780/93,96r113,96r113,72r93,72r93,96:100,80  Draw and colour top face  *T74u6,2:1000 >T8H22,2:1000 RT9\50,2:1000 fT4p8,16:1000 zT536,16:1000 T665,16:1000 T123,30:1000 T251,30:1000 T379,30:10000,0:7:10508102,102r112,112r132,112r122,102r102,102:110,106  Draw and colour side face S1$ 5,u2:1240 .S485,u33:1240 BS7L5,u65:1240 V S2`20,11:1240 j S5t20,u20:1240 ~S820,u51:1240 S335,26:1240  S635,u6:1240 S935,u37:12400,0:12605169,100r169,76r178,85r178,109r169,100:175,90@1,2;"WHAT MOVE(A-I)"P~P~66s1550: B MOVE P~70s2060: F MOVEP~69s1940: E MOVEP~72s2340: H MOVE(P~68s1810: D MOVE2P~71s2200: G MOVE<P~65s1410: A MOVEFP~67s1670: C MOVEPP~73s2460: I MOVEZP~84s2620: T MOVEdP~88s2600: X EXIT PROGnP~82s :240: RESET R x1270  A MOVE@1,3;"LEFT([)OR RIGHT(])"S~S~91s1510S~93s1470 1430  RIGHTA.T7,T1:T1,T3:T3,T9:T4,T2:T2,T6:T6,T8CF1,L3:L3,R3:R3,S1:F2,L2:L2,R2:R2,S2:F3,L1:L1,R1:R1,S3Q~5s1640460 LEFT A.T7,T9:T9,T3:T3,T1:T8,T6:T6,T2:T2,T4CF1,S1:S1,R3:R3,L3:F2,S2:S2,R2:R2,L2:F3,S3:S3,R1:R1,L1Q~5s1610460  B MOVE@1,3;"LEFT([)OR RIGHT(])""S~,S~91s16106S~93s1640 @1570 J LEFT BCTF4,S4:S4,R6:R6,L6:F5,S5:S5,R5:R5,L5:F6,S6:S6,R4:R4,L4^Q~5s1730460h RIGHT BCrF4,L6:L6,R6:R6,S4:F5,L5:L5,R5:R5,S5:F6,L4:L4,R4:R4,S6|Q~5s1770460  C MOVE@1,3;"LEFT([)OR RIGHT(])"S~S~91s1730S~93s1770 1570 RIGHT C.B7,B9:B9,B3:B3,B1:B8,B6:B6,B2:B2,B4CF7,S7:S7,R9:R9,L9:F8,S8:S8,R8:R8,L8:F9,S9:S9,R7:R7,L7  460  LEFT C.B7,B1:B1,B3:B3,B9:B4,B2:B2,B6:B6,B8CF9,L7:L7,R7:R7,S9:F8,L8:L8,R8:R8,S8:F7,L9:L9,R9:R9,S7 460  D MOVE@1,3;"UP(^)OR DOWN(:)"&S~0S~94s1900:S~58s1870 D1830.NL7,L1:L1,L3:L3,L9:L4,L2:L2,L6:L6,L8CXF1,T1:T1,R7:R7,B7:F4,T4:T4,R4:R4,B4:F7,T7:T7,R1:R1,B1bQ~5s2000460 l D UP.vL7,L9:L9,L3:L3,L1:L8,L6:L6,L2:L2,L4CF1,B7:B7,R7:R7,T1:F4,B4:B4,R4:R4,T4:F7,B1:B1,R1:R1,T7Q~5s2030460  E MOVE@1,3;"UP(^)OR DOWN(:)"S~S~94s2030S~58s2000 1960  E DOWNCF2,T2:T2,R8:R8,B8:F5,T5:T5,R5:R5,B5:F8,T8:T8,R2:R2,B2Q~5s2160460  E UPCF2,B8:B8,R8:R8,T2:F5,B5:B5,R5:R5,T5:F8,B2:B2,R2:R2,T8Q~5s2120460  F MOVE@1,3;"UP(^)OR DOWN(:)" S~*S~94s21204S~58s2160 >2080 H F UP.RS7,S9:S9,S3:S3,S1:S8,S6:S6,S2:S2,S4C\F3,B9:B9,R9:R9,T3:F6,B6:B6,R6:R6,T6:F9,B3:B3,R3:R3,T9 f 460 p F DOWN.zS7,S1:S1,S3:S3,S9:S4,S2:S2,S6:S6,S8CF3,T3:T3,R9:R9,B9:F6,T6:T6,R6:R6,B6:F9,T9:T9,R3:R3,B3  460  G MOVE@1,3;"UP(^)OR DOWN(:)"S~S~94s2260S~58s2300 2220  G UP.F7,F1:F1,F3:F3,F9:F4,F2:F2,F6:F6,F8CS1,B9:B9,L7:L7,T7:S4,B8:B8,L4:L4,T8:S7,B7:B7,L1:L1,T9 460  G DOWN. F7,F9:F9,F3:F3,F1:F8,F6:F6,F2:F2,F4C S1,T7:T7,L7:L7,B9:S4,T8:T8,L4:L4,B8:S7,T9:T9,L1:L1,B7  460 $ H MOVE. @1,3;"UP(^)OR DOWN(:)"8 S~B S~94s2400L S~58s2430 V 2360 ` H UPCj S2,B6:B6,L8:L8,T4:S5,B5:B5,L5:L5,T5:S8,B4:B4,L2:L2,T6 t 460 ~ H DOWNC S2,T4:T4,L8:L8,B6:S5,T5:T5,L5:L5,B5:S8,T6:T6,L2:L2,B4 460 I MOVE @1,3;"UP(^)OR DOWN(:)" S~ S~94s2520 S~58s2560 2480 I UP. R7,R1:R1,R3:R3,R9:R4,R2:R2,R6:R6,R8C S3,B3:B3,L9:L9,T1:S6,B2:B2,L6:L6,T2:S9,B1:B1,L3:L3,T3 460 I DOWN. R7,R9:R9,R3:R3,R1:R8,R6:R6,R2:R2,R4C S3,T1:T1,L9:L9,B3:S6,T2:T2,L6:L6,B2:S9,T3:T3,L3:L3,B1  460( X (EXIT PROG)2 :::4:< TURN CUBEF Q~5P @1,3;"LEFT([)OR RIGHT(])"Z @1,5;"UP(^)OR DOWN(:)"d S~n S~91s1510x S~93s1470 S~94s1900 S~58s1870 2640