'Trying the xbasic knight trip program. Direcciones: DATA 1,-2: '0 - at one DATA 2,-1: '1 - at two DATA 2,1: '2 - at four DATA 1,2: '3 - at five DATA -1,2: '4- at seven DATA -2,1: '5- at eight DATA -2,-1: '6 - at ten DATA -1,-2: '7- At eleven Saltos: 'Imported from saltoscaballo.txt, generated by xbasic's xcaballo.bas DATA 2,1,2,3,4,3,6,0: ' DATA 0,5,2,4,5,0,0,0: ' DATA 5,0,5,2,0,5,4,4: ' DATA 1,2,4,6,5,6,0,0: ' DATA 0,3,0,5,6,4,2,7: ' DATA 4,3,4,1,0,6,7,1: ' DATA 4,4,3,2,0,7,4,4: ' DATA 7,1,0,3,4,2,1: ' DIM movimientox(0 TO 7) DIM movimientoy(0 TO 7) RESTORE Direcciones FOR f = 0 TO 7 READ movimientox(f), movimientoy(f) NEXT CLS FOR x = 0 TO 7 FOR y = 0 TO 7 LOCATE y * 2 + 1, x * 3 + 1 PRINT " |" LOCATE y * 2 + 2, x * 3 + 1 PRINT "---" NEXT y NEXT x RESTORE Saltos x = 0: y = 0 FOR f = 0 TO 63 LOCATE y * 2 + 1, x * 3 + 1 PRINT USING "##|"; f LOCATE y * 2 + 2, x * 3 + 1 PRINT "---" IF f < 63 THEN READ salto x = x + movimientox(salto) y = y + movimientoy(salto) SLEEP 0 NEXT f