Rosetta Code

Knight's tour: Difference between revisions

Page Discussion

Knight's tour (view source)

Revision as of 13:19, 25 May 2017

34 bytes added ,  7 years ago
m
→‎{{header|ANSI Standard BASIC}}
Line 906:
350 PLOT LINES: X*64+32,Y*64+32;
360 LET Total = Total + 1
370 LOOP UNTIL FNchoosemove(X, Y) = 0FALSE
380 IF Total <> 64 THEN STOP
390 END
400 !
410 EXTERNAL FUNCTION FNchoosemove(X1, Y1)
420 DECLARE EXTERNAL SUB PROCtrymove
430 LET M = 9
440 CALL PROCtrymove(XX1+1, YY1+2, M, newx, newy)
450 CALL PROCtrymove(XX1+1, YY1-2, M, newx, newy)
460 CALL PROCtrymove(XX1-1, YY1+2, M, newx, newy)
470 CALL PROCtrymove(XX1-1, YY1-2, M, newx, newy)
480 CALL PROCtrymove(XX1+2, YY1+1, M, newx, newy)
490 CALL PROCtrymove(XX1+2, YY1-1, M, newx, newy)
500 CALL PROCtrymove(XX1-2, YY1+1, M, newx, newy)
510 CALL PROCtrymove(XX1-2, YY1-1, M, newx, newy)
520 IF M=9 THEN
530 LET FNchoosemove = FALSE
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/183509"