Next I

210 PRINT® 277,'Top"; :[email protected] 582,"Left";:

[email protected] 596,"Front";

220 PRINT® 611 ."Right"; :[email protected] 624,"Posterior";

230 [email protected] 916,"Bottom";:

240 ' Put display positions of cubie faces into array P()

260 FOR I = 1 TO 6 :N = N-177 :IF I =2 THEN N = N + 290

300 NEXT J,I

310 FOR I =0 TO 53 :[email protected] P(l),"?"; :NEXT I 320 ' Entry of colors of all cubie faces by user 330 [email protected] 738,"Enter color of each cubie face"; 340 PRINT® 802,"as a one-letter code. Be sure"; 350 [email protected] 866,'to correct errors. Move cursor"; 360 [email protected] 930,"backward or forward with < , >"; 370 I = 0 :NG =0 :FOR K = 0 TO 25 :T(K) =0 :NEXT K 380 GOSUB 2380

390 [email protected] P(I),F$; :A$ = INKEY$:[email protected] P(I),C$; : IFA$ = ""GOTO 390

400 A=ASC(A$) :IF A = 44 OR A = 46 GOSUB 2320 : GOTO 380

420 IF A >64 AND A<91 [email protected] P(l), A$; :l = l + 1

[email protected]," If all correct, press < ENTER >";

440 IF A = 13 GOSUB 2910 ELSE 380

450 ' Put cubie colors into array C() and check for errors

460 [email protected] 802,"Check entry & get arrays ready";

520 IF T(l) < >0 AND T(l) < >9 THEN NG = 1

540 IF NG [email protected] 993,"Entry error. Please correct it";:

0 0

Post a comment