CCMF^UTEER FAIR F" F: COF/Fir 1 100 DATA 0 ,0, 2,0, 0 , 2 , :2 ,2 :REM CORNER 110 DATA 1 ,0, 0,1, 2 , 1 , 1 ,2 :REM EDGES 120 DATA 1 ,0, 1,4, kl ,2, 0 ,2, 0,4, 0,0:REM MOVE A 130 DATA 0 ,2, 0,6, 1 ,2 , 1 ,6 :REM MOVE B 140 DATA 1 ,2, 1,0, 0 ,2, 13 ,0 :REM MOVE C 150 DATA 13 ,6 , 1,2, 1 ,6 :REM MOVED 160 CI =400 :02=395 :C3=405 :C4="800 :C5=805 170 F0RX=1T04 180 ZZ%(X>=-1 190 NEXT X 200 SW=59467:V1=SW-1:CR=167 210 PRINT"3"CHR$(14);:E=80:S=33105:SQ=2 220 DIM G%<2,2) , B%(2,2) , T%(2,2) , D%(2,2) , R%<2,2) , L%(2,2) 230 DIM Gl%(2,2) ,B1%C2,2) ,T1%'::2,2) ,D1X<2,2:) ,R1XC2,2) ,LIXC2,2) 240 SVS59648: :CALL SETUP:CALL GUIDE 250 T$C5)="F" :T$C8)="T" :T$C4)="L" :T$(6) = "R" :T$C2)="D" :T$C0:) = "B" 260 V$( 1 ) = "5" :V$(2) = "8" :V$C3)="4" :V$C4)="6" :V$C5.) = "2" :V$C6>="0" 270 FOR X=l TO 4 280 READ CCXCX),CRX(X> 290 NEXT X 300 FOR X=l TO 4 310 READ ECXCX>,ERXCX) 320 NEXT X 330 FOR X=l TO 6 340 READ C1XCX),M1$CX) 350 NEXT X 360 FOR X=l TO 4 370 READ C2XCX:) ,M2$CX) 380 NEXT X 390 FOR X=l TO 4 400 READ C3X 410 NEXT X 420 FOR X=l TO 3 430 READ C4X(X),M4$(X> 440 NEXT X 460 D$=CHR$<13) 470 A$C0)="a" 480 LOOP 490 PRINT"3"TAB(18:>"a _ , | , ' * - , | - # x L * I -. T g" 500 CALL LINE 510 PRINTTAB<22>"|Y \ARK LOHGRIDGE, \ARCH 10, 1984" 520 pRiNT^amaagBaa"TAB(i7)"-o vou DEsiRE AH a-,xi_r-,-i-,r,-g To " - 530 PRINT"THIS PROGRAM? "; 540 CALL YES/NO 550 IF VB$="N" THEN CALL CUBE 560 DL=250:CALL DELAY 570 PR I NT "33 INTRODUCTION g" 580 PRINT 590 PRINT" |HE PROGRAM YOU SEE BEFORE YOU WAS DESIGNED TO SIMULATE A "; 600 PRINT"3 DIMENTIOHAL"D$"RUBIK'S CUBE. I HE MAIN FEATURE OF THIS PROGRAM " ; 610 PRINT"IS THE ALGORITHM TO SOLVE A"D$"CUBE, WHICH WAS DEVELOPED MY MYSELF 620 PRINT" |HE OBJECTIVE OF THIS PROGRAM WAS TO DEMONSTRATE THAT THE "; 630 PRINT"PRIHCIPLES USED IHCOHSTRUCTIHG SUCH AH,ALGORITHM WERE BASED LARGEL ; 640 PRINT"ON MATHEMATICAL ASPECTS OF ROTATION AND DUALITY. -OR EXAMPLE, " 650 PRINT"THE EDGE COMPONENTS OF THE CUBE ALWAYS HAVE AN EVEN NUMBER OF ";