Goto

550 ' Read Move Data into array M() 560 FOR I = 0 TO 303 :READ M(l) :NEXT I 570 ' Select manual or automatic operation 580 GOSUB 2910:

PRINT® 738,"Do you want to enter the moves"; 590 PRINT® 802,"manually, or let the computer"; 600 PRINT® 866,"automatically select them?"; 610 [email protected] 933,"Choose: (M)anual/(A)uto"; E$; 620 GOSUB 2410 :IF A = 65 GOTO 730 630 IF A< >77 GOTO 610 640 ' Manual moves 650 GOSUB 2910:

[email protected] 738,'Twelve moves are possible:"; 660 [email protected] 802,'T+ T- F+ F- L+ L- R+ R- B + B-"; 670 [email protected] 866,"C+ C-, A (Top Front Left Right"; 680 [email protected] 930,"Bottom, whole Cube, or Auto)"; 690 PRINT® 997, CHR$(30); "Your Move? "; E$; 700 GOSUB 2410 PRINT E$; :IF A = 65 GOTO 730 710 B=A :GOSUB 2410 :GOSUB 2460 :GOTO 690 720 ' Set computer operation 730 GOSUB 2910:

PRINT® 738,"Do you want computer to stop";

740 [email protected] 802,"& display each move (Y/N)? "; E$;:

0 0

Post a comment