Power

Q 1993 Q MICRO CABIN

10 REM POWER CUBE SOLUTION BV R . 8 . S M I T H
20 d i m y . < 9 > , a $ < : 9 > , s x < s , 3 , 3 >
30 FORF-1T06:FORV=1T03:FORX=1T03
40 RERD V :Sy.<F ,Y,X>=V
50 NEXT:NEXT:NEXT
60 0 R T R 1 , 7 , 5 , 3 , 9 , 2 , 4 , 8 , 6
70 D R T R 4 , 3 , 5 , 8 , 6 , 9 , 2 , 1 , 7
30 D R T R 7 , S , 6 , 9 , 3 , 1 , 2 , 4 , 5
90 D R T R 2 , 4 , 7 , 1 , 5 , 3 , 6 , 9 , 3
100 D R T R 5 , 1 , 3 , 8 , 4 , 9 , 7 , 6 , 2
119 D R T R S , 3 , 4 , 2 , 9 , 6 , 7 , 1 , 5
120 R$<1> = "BLACK C I R C L E " : R * < 2 ) = "WHITE C I R C L E " : A * < 3 ) = "BLACK TRIRHGLE"
130 R^<4> = "WHITE TRIANGLE":A$<5)="BLACK SQUARE":R*<6>~"WHITE SQUARE"
140 R$ < 7>»"BLACK DIAMQND":A$<8> = "WHITE 01AMQND":A$ <9> = "HEXAGON"
150 FORX-1T09 : f\X < X > =X
160 F0RF=1T06
170 IF$'/.<F, 1 , 2 ) =XORS'/.<F,2, 1 > =XORSt