HP Prime для всех

English  Русский 
Сокобан games-app screenshot}}
Название Сокобан
Описание Push the blocks into their storage locations without getting stuck by a wall. Lots of fun, and many levels.
Автор Ariel Palazzesi

Исходный код (скачать):

Исходный код отформатирован программными средствами сайта

Строки с ICON ресурсами были обрезаны.

//Ariel Palazzesi - Jan 2014 //Version: Beta 1.31 //---------------------------- loadgraph(); drawscreen(); emptyscreen(); menuscreen(); selectcontrol(); helpscreen(); menuppal(); selectsubnivel(); loadsubnivel(); winnerscreen(); byebyescreen(); abortgame(); EXPORT XX, YY, XXP, YYP, NIVEL, SUBNIVEL, NAJ, matriz; EXPORT CONTROLES, GAMEOVER, FINAL, ABORT; EXPORT MOVI, PUSH; EXPORT sokoban1() BEGIN local AA, M; local XX1, YY1, SUMA; local xmouse, ymouse, DX, DY; GAMEOVER := 0; ABORT := 0; PRINT(); DIMGROB_P(G1, 320, 240); RECT(); CONTROLES := 1; loadgraph(); WHILE GAMEOVER == 0 DO menuscreen(); IF GAMEOVER == 0 THEN loadsubnivel(); FINAL := 0; MOVI := 0; PUSH := 0; WHILE FINAL == 0 AND ABORT == 0 DO L0 := WAIT(-1); IF SIZE(L0) > 1 THEN IF L0(1) == #3d THEN xmouse := L0(2); ymouse := L0(3); IF xmouse < 80 AND ymouse > 60 AND ymouse < 180 AND XXP > 1 THEN IF matriz [YYP+1, XXP] == 0 THEN XXP := XXP-1; BLIT_P(G4, XXP*16, YYP*16); IF matriz [YYP+1, XXP+2] == 0 THEN BLIT_P(G5, (XXP+1) * 16, YYP*16); END; IF matriz [YYP+1, XXP+2] == 3 THEN BLIT_P(G3, (XXP+1) * 16, YYP*16); END; MOVI := MOVI + 1; ELSE IF matriz [YYP+1, XXP] == 3 THEN XXP := XXP-1; BLIT_P(G4, XXP*16, YYP*16); IF matriz [YYP+1, XXP+2] == 0 THEN BLIT_P(G5, (XXP+1) * 16, YYP*16); END; IF matriz [YYP+1, XXP+2] == 3 THEN BLIT_P(G3, (XXP+1) * 16, YYP*16); END; MOVI := MOVI + 1; ELSE IF (matriz [YYP+1, XXP] == 2) AND (matriz [YYP+1, XXP-1] == 0) THEN XXP := XXP-1; BLIT_P(G4, XXP*16, YYP*16); BLIT_P(G2, (XXP-1) * 16, YYP*16); IF matriz [YYP+1, XXP+2] == 0 THEN BLIT_P(G5, (XXP+1) * 16, YYP*16); END; IF matriz [YYP+1, XXP+2] == 3 THEN BLIT_P(G3, (XXP+1) * 16, YYP*16); END; matriz [YYP+1, XXP] := 2; matriz [YYP+1, XXP+1] := 0; MOVI := MOVI + 1; PUSH := PUSH + 1; ELSE //----------------------------------- IF (matriz [YYP+1, XXP] == 2) AND (matriz [YYP+1, XXP-1] == 3) THEN XXP := XXP-1; BLIT_P(G4, XXP*16, YYP*16); BLIT_P(G2, (XXP-1) * 16, YYP*16); IF matriz [YYP+1, XXP+2] == 0 THEN BLIT_P(G5, (XXP+1) * 16, YYP*16); END; IF matriz [YYP+1, XXP+2] == 3 THEN BLIT_P(G3, (XXP+1) * 16, YYP*16); END; matriz [YYP+1, XXP] := 5; matriz [YYP+1, XXP+1] := 0; MOVI := MOVI + 1; PUSH := PUSH + 1; ELSE IF (matriz [YYP+1, XXP] == 5) AND (matriz [YYP+1, XXP-1] == 0) THEN XXP := XXP-1; BLIT_P(G4, XXP*16, YYP*16); BLIT_P(G2, (XXP-1) * 16, YYP*16); IF matriz [YYP+1, XXP+2] == 0 THEN BLIT_P(G5, (XXP+1) * 16, YYP*16); END; IF matriz [YYP+1, XXP+2] == 3 THEN BLIT_P(G3, (XXP+1) * 16, YYP*16); END; matriz [YYP+1, XXP] := 2; matriz [YYP+1, XXP+1] := 3; MOVI := MOVI + 1; PUSH := PUSH + 1; ELSE //----------------------------------- IF (matriz [YYP+1, XXP] == 5) AND (matriz [YYP+1, XXP-1] == 3) THEN XXP := XXP-1; BLIT_P(G4, XXP*16, YYP*16); BLIT_P(G2, (XXP-1) * 16, YYP*16); IF matriz [YYP+1, XXP+2] == 0 THEN BLIT_P(G5, (XXP+1) * 16, YYP*16); END; IF matriz [YYP+1, XXP+2] == 3 THEN BLIT_P(G3, (XXP+1) * 16, YYP*16); END; matriz [YYP+1, XXP] := 5; matriz [YYP+1, XXP+1] := 3; MOVI := MOVI + 1; PUSH := PUSH + 1; END; END; END; END; END; END; END; IF xmouse > 240 AND ymouse > 60 AND ymouse < 180 AND XXP < 18 THEN IF matriz [YYP+1, XXP+2] == 0 THEN XXP := XXP+1; BLIT_P(G4, XXP*16, YYP*16); IF matriz [YYP+1, XXP] == 0 THEN BLIT_P(G5, (XXP-1) * 16, YYP*16); END; IF matriz [YYP+1, XXP] == 3 THEN BLIT_P(G3, (XXP-1) * 16, YYP*16); END; MOVI := MOVI + 1; ELSE IF matriz [YYP+1, XXP+2] == 3 THEN XXP := XXP+1; BLIT_P(G4, XXP*16, YYP*16); IF matriz [YYP+1, XXP] == 0 THEN BLIT_P(G5, (XXP-1) * 16, YYP*16); END; IF matriz [YYP+1, XXP] == 3 THEN BLIT_P(G3, (XXP-1) * 16, YYP*16); END; MOVI := MOVI + 1; ELSE IF (matriz [YYP+1, XXP+2] == 2) AND (matriz [YYP+1, XXP+3] == 0) THEN XXP := XXP+1; BLIT_P(G4, XXP*16, YYP*16); BLIT_P(G2, (XXP+1) * 16, YYP*16); IF matriz [YYP+1, XXP] == 0 THEN BLIT_P(G5, (XXP-1) * 16, YYP*16); END; IF matriz [YYP+1, XXP] == 3 THEN BLIT_P(G3, (XXP-1) * 16, YYP*16); END; matriz [YYP+1, XXP+2] := 2; matriz [YYP+1, XXP+1] := 0; MOVI := MOVI + 1; PUSH := PUSH + 1; ELSE IF (matriz [YYP+1, XXP+2] == 2) AND (matriz [YYP+1, XXP+3] == 3) THEN XXP := XXP+1; BLIT_P(G4, XXP*16, YYP*16); BLIT_P(G2, (XXP+1) * 16, YYP*16); IF matriz [YYP+1, XXP] == 0 THEN BLIT_P(G5, (XXP-1) * 16, YYP*16); END; IF matriz [YYP+1, XXP] == 3 THEN BLIT_P(G3, (XXP-1) * 16, YYP*16); END; matriz [YYP+1, XXP+2] := 5; matriz [YYP+1, XXP+1] := 0; MOVI := MOVI + 1; PUSH := PUSH + 1; ELSE IF (matriz [YYP+1, XXP+2] == 5) AND (matriz [YYP+1, XXP+3] == 0) THEN XXP := XXP+1; BLIT_P(G4, XXP*16, YYP*16); BLIT_P(G2, (XXP+1) * 16, YYP*16); IF matriz [YYP+1, XXP] == 0 THEN BLIT_P(G5, (XXP-1) * 16, YYP*16); END; IF matriz [YYP+1, XXP] == 3 THEN BLIT_P(G3, (XXP-1) * 16, YYP*16); END; matriz [YYP+1, XXP+2] := 2; matriz [YYP+1, XXP+1] := 3; MOVI := MOVI + 1; PUSH := PUSH + 1; ELSE IF (matriz [YYP+1, XXP+2] == 5) AND (matriz [YYP+1, XXP+3] == 3) THEN XXP := XXP+1; BLIT_P(G4, XXP*16, YYP*16); BLIT_P(G2, (XXP+1) * 16, YYP*16); IF matriz [YYP+1, XXP] == 0 THEN BLIT_P(G5, (XXP-1) * 16, YYP*16); END; IF matriz [YYP+1, XXP] == 3 THEN BLIT_P(G3, (XXP-1) * 16, YYP*16); END; matriz [YYP+1, XXP+2] := 5; matriz [YYP+1, XXP+1] := 3; MOVI := MOVI + 1; PUSH := PUSH + 1; END; END; END; END; END; END; END; IF xmouse > 80 AND xmouse < 240 AND ymouse < 60 AND YYP > 1 THEN IF matriz [YYP, XXP+1] == 0 THEN YYP := YYP-1; BLIT_P(G4, XXP*16, YYP*16); IF matriz [YYP+2, XXP+1] == 0 THEN BLIT_P(G5, XXP*16, (YYP+1) * 16); END; IF matriz [YYP+2, XXP+1] == 3 THEN BLIT_P(G3, XXP*16, (YYP+1) * 16); END; MOVI := MOVI + 1; ELSE IF matriz [YYP, XXP+1] == 3 THEN YYP := YYP-1; BLIT_P(G4, XXP*16, YYP*16); IF matriz [YYP+2, XXP+1] == 0 THEN BLIT_P(G5, XXP*16, (YYP+1) * 16); END; IF matriz [YYP+2, XXP+1] == 3 THEN BLIT_P(G3, XXP*16, (YYP+1) * 16); END; MOVI := MOVI + 1; ELSE IF (matriz [YYP, XXP+1] == 2) AND (matriz [YYP-1, XXP+1] == 0) THEN YYP := YYP-1; BLIT_P(G4, XXP*16, YYP*16); BLIT_P(G2, XXP*16, (YYP-1) * 16); IF matriz [YYP+2, XXP+1] == 0 THEN BLIT_P(G5, XXP*16, (YYP+1) * 16); END; IF matriz [YYP+2, XXP+1] == 3 THEN BLIT_P(G3, XXP*16, (YYP+1) * 16); END; matriz [YYP, XXP+1] := 2; matriz [YYP+1, XXP+1] := 0; MOVI := MOVI + 1; PUSH := PUSH + 1; ELSE IF (matriz [YYP, XXP+1] == 2) AND (matriz [YYP-1, XXP+1] == 3) THEN YYP := YYP-1; BLIT_P(G4, XXP*16, YYP*16); BLIT_P(G2, XXP*16, (YYP-1) * 16); IF matriz [YYP+2, XXP+1] == 0 THEN BLIT_P(G5, XXP*16, (YYP+1) * 16); END; IF matriz [YYP+2, XXP+1] == 3 THEN BLIT_P(G3, XXP*16, (YYP+1) * 16); END; matriz [YYP, XXP+1] := 5; matriz [YYP+1, XXP+1] := 0; MOVI := MOVI + 1; PUSH := PUSH + 1; ELSE IF (matriz [YYP, XXP+1] == 5) AND (matriz [YYP-1, XXP+1] == 0) THEN YYP := YYP-1; BLIT_P(G4, XXP*16, YYP*16); BLIT_P(G2, XXP*16, (YYP-1) * 16); IF matriz [YYP+2, XXP+1] == 0 THEN BLIT_P(G5, XXP*16, (YYP+1) * 16); END; IF matriz [YYP+2, XXP+1] == 3 THEN BLIT_P(G3, XXP*16, (YYP+1) * 16); END; matriz [YYP, XXP+1] := 2; matriz [YYP+1, XXP+1] := 3; MOVI := MOVI + 1; PUSH := PUSH + 1; ELSE IF (matriz [YYP, XXP+1] == 5) AND (matriz [YYP-1, XXP+1] == 3) THEN YYP := YYP-1; BLIT_P(G4, XXP*16, YYP*16); BLIT_P(G2, XXP*16, (YYP-1) * 16); IF matriz [YYP+2, XXP+1] == 0 THEN BLIT_P(G5, XXP*16, (YYP+1) * 16); END; IF matriz [YYP+2, XXP+1] == 3 THEN BLIT_P(G3, XXP*16, (YYP+1) * 16); END; matriz [YYP, XXP+1] := 5; matriz [YYP+1, XXP+1] := 3; MOVI := MOVI + 1; PUSH := PUSH + 1; END; END; END; END; END; END; END; IF xmouse > 80 AND xmouse < 240 AND ymouse > 180 AND YYP < 14 THEN IF matriz [YYP+2, XXP+1] == 0 THEN YYP := YYP+1; BLIT_P(G4, XXP*16, YYP*16); IF matriz [YYP, XXP+1] == 0 THEN BLIT_P(G5, XXP*16, (YYP-1) * 16); END; IF matriz [YYP, XXP+1] == 3 THEN BLIT_P(G3, XXP*16, (YYP-1) * 16); END; MOVI := MOVI + 1; ELSE IF matriz [YYP+2, XXP+1] == 3 THEN YYP := YYP+1; BLIT_P(G4, XXP*16, YYP*16); IF matriz [YYP, XXP+1] == 0 THEN BLIT_P(G5, XXP*16, (YYP-1) * 16); END; IF matriz [YYP, XXP+1] == 3 THEN BLIT_P(G3, XXP*16, (YYP-1) * 16); END; MOVI := MOVI + 1; ELSE IF (matriz [YYP+2, XXP+1] == 2) AND (matriz [YYP+3, XXP+1] == 0) THEN YYP := YYP+1; BLIT_P(G4, XXP*16, YYP*16); BLIT_P(G2, XXP*16, (YYP+1) * 16); IF matriz [YYP, XXP+1] == 0 THEN BLIT_P(G5, XXP*16, (YYP-1) * 16); END; IF matriz [YYP, XXP+1] == 3 THEN BLIT_P(G3, XXP*16, (YYP-1) * 16); END; matriz [YYP+2, XXP+1] := 2; matriz [YYP+1, XXP+1] := 0; MOVI := MOVI + 1; PUSH := PUSH + 1; ELSE IF (matriz [YYP+2, XXP+1] == 2) AND (matriz [YYP+3, XXP+1] == 3) THEN YYP := YYP+1; BLIT_P(G4, XXP*16, YYP*16); BLIT_P(G2, XXP*16, (YYP+1) * 16); IF matriz [YYP, XXP+1] == 0 THEN BLIT_P(G5, XXP*16, (YYP-1) * 16); END; IF matriz [YYP, XXP+1] == 3 THEN BLIT_P(G3, XXP*16, (YYP-1) * 16); END; matriz [YYP+2, XXP+1] := 5; matriz [YYP+1, XXP+1] := 0; MOVI := MOVI + 1; PUSH := PUSH + 1; ELSE IF (matriz [YYP+2, XXP+1] == 5) AND (matriz [YYP+3, XXP+1] == 0) THEN YYP := YYP+1; BLIT_P(G4, XXP*16, YYP*16); BLIT_P(G2, XXP*16, (YYP+1) * 16); IF matriz [YYP, XXP+1] == 0 THEN BLIT_P(G5, XXP*16, (YYP-1) * 16); END; IF matriz [YYP, XXP+1] == 3 THEN BLIT_P(G3, XXP*16, (YYP-1) * 16); END; matriz [YYP+2, XXP+1] := 2; matriz [YYP+1, XXP+1] := 3; MOVI := MOVI + 1; PUSH := PUSH + 1; ELSE IF (matriz [YYP+2, XXP+1] == 5) AND (matriz [YYP+3, XXP+1] == 3) THEN YYP := YYP+1; BLIT_P(G4, XXP*16, YYP*16); BLIT_P(G2, XXP*16, (YYP+1) * 16); IF matriz [YYP, XXP+1] == 0 THEN BLIT_P(G5, XXP*16, (YYP-1) * 16); END; IF matriz [YYP, XXP+1] == 3 THEN BLIT_P(G3, XXP*16, (YYP-1) * 16); END; matriz [YYP+2, XXP+1] := 5; matriz [YYP+1, XXP+1] := 3; MOVI := MOVI + 1; PUSH := PUSH + 1; END; END; END; END; END; END; END; IF xmouse < 20 AND ymouse < 20 THEN abortgame(); END; RECT_P(G0, 20, 223, 300, 238, #000000, #FFFFFF); TEXTOUT_P("LEVEL: "+NIVEL+"-"+SUBNIVEL+" MOVES: PUSHES: ", 25, 224); TEXTOUT_P(MOVI, 153, 224); TEXTOUT_P(PUSH, 250, 224); SUMA := 0; FOR YY FROM 0 TO 14 DO FOR XX FROM 0 TO 19 DO IF matriz [YY+1, XX+1] == 2 THEN SUMA := SUMA + 1; END; END; END; IF SUMA == 0 THEN winnerscreen(); FINAL := 1; END; END; END; END; ELSE byebyescreen(); END; END; END; drawscreen() BEGIN FOR YY FROM 0 TO 14 DO FOR XX FROM 0 TO 19 DO IF matriz [YY+1, XX+1] == 0 THEN BLIT_P(G5, XX*16, YY*16); END; IF matriz [YY+1, XX+1] == 1 THEN BLIT_P(G1, XX*16, YY*16); END; IF matriz [YY+1, XX+1] == 2 THEN BLIT_P(G2, XX*16, YY*16); END; IF matriz [YY+1, XX+1] == 3 THEN BLIT_P(G3, XX*16, YY*16); END; IF matriz [YY+1, XX+1] == 4 THEN XXP := XX; YYP := YY; BLIT_P(G4, XX*16, YY*16); matriz [YY+1, XX+1] := 0; END; END; END; END; loadgraph() BEGIN DIMGROB_P(G3, 16, 16, {#6000600060006:64, #6000600060006:64, #6000600060006:64, #6000600060006:64, #7EE07EE000060006:64,… DIMGROB_P(G2, 16, 16, {#6000600060006:64, #6000600060006:64, #6000600060006:64, #6000600060006:64, #51806E4051800006:64,… DIMGROB_P(G1, 16, 16, {#1084108451C74186:64, #1084108410841084:64, #1084108410841084:64, #312651C710841084:64, #10841084DIMGROB_P(G5, 16, 16, {#312651C751C74186:64, #3126312631263126:64, #3126312641864186:64, #312651C751C74186:64, #31264186DIMGROB_P(G4, 16, 16, {#1084312631263126:64, #1084108410841084:64, #1084108410841084:64, #3126312631261084:64, #31263126END; emptyscreen() BEGIN FOR YY FROM 0 TO 14 DO FOR XX FROM 0 TO 19 DO BLIT_P(G5, XX*16, YY*16); END; END; FOR YY FROM 1 TO 14 DO BLIT_P(G1, 8, YY*16-8); BLIT_P(G1, 18.5*16, YY*16-8); END; FOR XX FROM 2 TO 18 DO BLIT_P(G1, XX*16-8, 8); BLIT_P(G1, XX*16-8, 13.5*16); END; TEXTOUT_P("Sokoban for HP Prime", G0, 47, 20, 7, #000000); TEXTOUT_P("Sokoban for HP Prime", G0, 48, 21, 7, #000000); TEXTOUT_P("Sokoban for HP Prime", G0, 49, 22, 7, #F2D855); TEXTOUT_P("Sokoban for HP Prime", G0, 50, 23, 7, #F2D855); TEXTOUT_P("Beta 1.3 - Ariel Palazzesi (Jan/2014)", G0, 29, 200, 2, #000000); TEXTOUT_P("Beta 1.3 - Ariel Palazzesi (Jan/2014)", G0, 30, 201, 2, #DDDDAA); END; menuscreen() BEGIN LOCAL M, TECLA; emptyscreen(); menuppal(); M := 0; WHILE M == 0 DO TECLA := GETKEY; IF TECLA == 42 THEN M := 1; END; IF TECLA == 43 THEN M := 2; END; IF TECLA == 44 THEN M := 3; END; IF TECLA == 37 THEN M := 4; END; IF TECLA == 38 THEN selectcontrol(); emptyscreen(); menuppal(); END; IF TECLA == 39 THEN helpscreen(); emptyscreen(); menuppal(); END; IF (TECLA == 4) OR (TECLA == 32) THEN M := 7; GAMEOVER := 1; FINAL := 1; END; END; IF M > 0 AND M < 5 THEN NIVEL := M; selectsubnivel(); NAJ := NIVEL *10 + SUBNIVEL; ABORT := 0; END; END; selectcontrol() BEGIN LOCAL M, TECLA; emptyscreen(); TEXTOUT_P("1 - Touch screen", G0, 70, 55, 4, #F2D855); TEXTOUT_P("2 - Cursor keys", G0, 70, 75, 4, #F2D855); TEXTOUT_P("3 - Exit", G0, 70, 95, 4, #F2D855); FOR YY FROM 1 TO 3 DO BLIT_P(G2, 50, YY*20+37); END; M := 0; WHILE M == 0 DO TECLA := GETKEY; IF TECLA == 42 THEN M := 1; END; IF TECLA == 43 THEN M := 2; END; IF (TECLA == 4) OR (TECLA == 44) THEN M := 3; END; END; IF M < 3 THEN CONTROLES := M; END; END; helpscreen() BEGIN LOCAL M, TECLA; emptyscreen(); TEXTOUT_P("Tap de edges of the screen to move", G0, 30, 55 , 4, #F2D855); TEXTOUT_P("the pusher and push the boxes to", G0, 30, 75 , 4, #F2D855); TEXTOUT_P("their platforms.", G0, 30, 95 , 4, #F2D855); TEXTOUT_P("Touch the top left corner to quit the", G0, 30, 115 , 4, #F2D855); TEXTOUT_P("game.", G0, 30, 135 , 4, #F2D855); TEXTOUT_P("(The keyboard control does not work in this version)", G0, 35, 160 , 1, #F2D855); TEXTOUT_P("(Press any key to exit)", G0, 75, 175, 4, #F2D855); Wait(); END; byebyescreen() BEGIN emptyscreen(); TEXTOUT_P("Thanks for playing Sokoban!", G0, 27, 80, 6, #000000); TEXTOUT_P("Thanks for playing Sokoban!", G0, 28, 81, 6, #000000); TEXTOUT_P("Thanks for playing Sokoban!", G0, 29, 82, 6, #F2D855); TEXTOUT_P("Thanks for playing Sokoban!", G0, 30, 83, 6, #F2D855); TEXTOUT_P("(Press any key to exit)", G0, 75, 140, 4, #F2D855); TEXTOUT_P("Beta 1.3 - Ariel Palazzesi (Jan/2014)", G0, 29, 200, 2, #000000); TEXTOUT_P("Beta 1.3 - Ariel Palazzesi (Jan/2014)", G0, 30, 201, 2, #DDDDAA); Wait(); END; winnerscreen() BEGIN LOCAL M, TECLA; emptyscreen(); TEXTOUT_P("Board Solved!", G0, 87, 68, 7, #000000); TEXTOUT_P("Board Solved!", G0, 88, 69, 7, #000000); TEXTOUT_P("Board Solved!", G0, 89, 70, 7, #F2D855); TEXTOUT_P("Board Solved!", G0, 90, 71, 7, #F2D855); TEXTOUT_P("You has solved the", G0, 30, 110, 4, #F2D855); TEXTOUT_P(NIVEL+" - "+SUBNIVEL+" board using", G0, 165, 110, 4, #F2D855); TEXTOUT_P(MOVI+" moves and "+PUSH+" pushes.", G0, 40, 130, 4, #F2D855); TEXTOUT_P("(Press any key to exit)", G0, 75, 170, 4, #F2D855); TEXTOUT_P("Beta 1.3 - Ariel Palazzesi (Jan/2014)", G0, 29, 200, 2, #000000); TEXTOUT_P("Beta 1.3 - Ariel Palazzesi (Jan/2014)", G0, 30, 201, 2, #DDDDAA); Wait(); END; abortgame() BEGIN LOCAL M, XX2, YY2, TECLA; emptyscreen(); TEXTOUT_P("Abandon level?", G0, 87, 50, 6, #000000); TEXTOUT_P("Abandon level?", G0, 88, 51, 6, #000000); TEXTOUT_P("Abandon level?", G0, 89, 52, 6, #F2D855); TEXTOUT_P("Abandon level?", G0, 90, 53, 6, #F2D855); TEXTOUT_P("1 - No", G0, 135, 110, 4, #F2D855); TEXTOUT_P("2 - Yes", G0, 135, 130, 4, #F2D855); FOR YY FROM 1 TO 2 DO BLIT_P(G2, 115, YY*20+90); END; M := 0; WHILE M == 0 DO TECLA := GETKEY; IF TECLA == 42 THEN M := 1; END; IF TECLA == 43 THEN M := 2; END; END; ABORT := M-1; IF ABORT == 0 THEN XX2 := XXP; YY2 := YYP; drawscreen(); XXP := XX2; YYP := YY2; BLIT_P(G4, XXP*16, YYP*16); END; END; menuppal() BEGIN FOR YY FROM 1 TO 7 DO BLIT_P(G2, 50, YY*20+37); END; TEXTOUT_P("1 - Play Beginner Mode", G0, 70, 55, 4, #F2D855); TEXTOUT_P("2 - Play Intermediate Mode", G0, 70, 75, 4, #F2D855); TEXTOUT_P("3 - Play Advanced Mode", G0, 70, 95, 4, #F2D855); TEXTOUT_P("4 - Play Expert Mode", G0, 70, 115, 4, #F2D855); IF CONTROLES == 1 THEN TEXTOUT_P("5 - Settings (Touch screen)", G0, 70, 135, 4, #F2D855); ELSE TEXTOUT_P("5 - Settings (Cursor keys)", G0, 70, 135, 4, #F2D855); END; TEXTOUT_P("6 - Help", G0, 70, 155, 4, #F2D855); TEXTOUT_P("7 - Exit", G0, 70, 175, 4, #F2D855); END; selectsubnivel() BEGIN LOCAL M, TECLA; emptyscreen(); FOR YY FROM 0 TO 4 DO BLIT_P(G2, 35, YY*20+70); BLIT_P(G2, 165, YY*20+70); END; TEXTOUT_P("0 - Level 0", G0, 55, 70, 4, #F2D855); TEXTOUT_P("1 - Level 1", G0, 55, 90, 4, #F2D855); TEXTOUT_P("2 - Level 2", G0, 55, 110, 4, #F2D855); TEXTOUT_P("3 - Level 3", G0, 55, 130, 4, #F2D855); TEXTOUT_P("4 - Level 4", G0, 55, 150, 4, #F2D855); TEXTOUT_P("5 - Level 5", G0, 185, 70, 4, #F2D855); TEXTOUT_P("6 - Level 6", G0, 185, 90, 4, #F2D855); TEXTOUT_P("7 - Level 7", G0, 185, 110, 4, #F2D855); TEXTOUT_P("8 - Level 8", G0, 185, 130, 4, #F2D855); TEXTOUT_P("9 - Level 9", G0, 185, 150, 4, #F2D855); M := -2; WHILE M == -2 DO TECLA := GETKEY; IF TECLA == 47 THEN M := 0; END; IF TECLA == 42 THEN M := 1; END; IF TECLA == 43 THEN M := 2; END; IF TECLA == 44 THEN M := 3; END; IF TECLA == 37 THEN M := 4; END; IF TECLA == 38 THEN M := 5; END; IF TECLA == 39 THEN M := 6; END; IF TECLA == 32 THEN M := 7; END; IF TECLA == 33 THEN M := 8; END; IF TECLA == 34 THEN M := 9; END; IF TECLA == 4 THEN M := 0; END; END; SUBNIVEL := M END; loadsubnivel() BEGIN CASE IF NAJ == 10 THEN matriz := [ [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 4, 0, 1, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 1, 0, 2, 2, 0, 0, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 2, 0, 0, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 3, 3, 3, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] ]; END; IF NAJ == 11 THEN matriz := [ [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0], [0, 0, 1, 3, 0, 1, 1, 1, 0, 0, 1, 4, 1, 0, 0, 0, 0, 0, 0, 0], [0, 0, 1, 3, 0, 0, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1, 0, 0, 0, 0], [0, 0, 1, 3, 0, 0, 0, 0, 0, 1, 1, 0, 1, 0, 0, 1, 0, 0, 0, 0], [0, 0, 1, 1, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 2, 1, 0, 0, 0, 0], [0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 1, 1, 1, 0, 1, 1, 0, 0, 0], [0, 0, 0, 1, 1, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0], [0, 0, 0, 1, 0, 2, 1, 0, 1, 0, 1, 0, 2, 0, 0, 0, 1, 0, 0, 0], [0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0], [0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] ]; END; IF NAJ == 12 THEN matriz := [ [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0], [0, 0, 1, 4, 0, 0, 0, 1, 1, 1, 1, 0, 0, 1, 0, 0, 0, 1, 0, 0], [0, 0, 1, 1, 1, 0, 2, 0, 0, 0, 1, 2, 0, 0, 0, 2, 0, 1, 0, 0], [0, 0, 1, 3, 3, 0, 0, 2, 0, 0, 1, 0, 0, 1, 1, 1, 1, 1, 0, 0], [0, 0, 1, 3, 3, 0, 0, 1, 0, 0, 1, 2, 0, 0, 0, 3, 3, 1, 0, 0], [0, 0, 1, 3, 3, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 3, 3, 1, 0, 0], [0, 0, 1, 1, 1, 0, 0, 1, 2, 0, 0, 0, 0, 1, 0, 1, 1, 1, 0, 0], [0, 0, 1, 0, 2, 2, 0, 1, 0, 0, 0, 2, 0, 0, 0, 2, 0, 1, 0, 0], [0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0], [0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] ]; END; IF NAJ == 13 THEN matriz := [ [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0], [0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0], [0, 0, 1, 0, 0, 2, 0, 2, 0, 2, 0, 2, 0, 2, 0, 2, 0, 1, 0, 0], [0, 0, 1, 0, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 0, 0], [0, 0, 1, 0, 1, 0, 0, 2, 0, 2, 0, 1, 3, 3, 3, 3, 3, 1, 0, 0], [0, 0, 1, 0, 1, 4, 2, 0, 2, 0, 2, 0, 3, 0, 0, 0, 3, 1, 0, 0], [0, 0, 1, 0, 1, 2, 0, 2, 0, 2, 0, 1, 3, 0, 3, 0, 3, 1, 0, 0], [0, 0, 1, 0, 0, 0, 2, 0, 2, 0, 2, 0, 3, 0, 0, 0, 3, 1, 0, 0], [0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 1, 3, 3, 3, 3, 3, 1, 0, 0], [0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] ]; END; IF NAJ == 14 THEN matriz := [ [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1, 0, 0, 0], [0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 0, 0, 1, 0, 0, 0], [0, 0, 1, 0, 0, 3, 3, 3, 1, 0, 0, 0, 0, 0, 2, 0, 1, 0, 0, 0], [0, 0, 1, 0, 1, 3, 1, 1, 1, 0, 0, 1, 1, 1, 0, 0, 1, 0, 0, 0], [0, 0, 1, 0, 3, 0, 0, 2, 0, 0, 1, 1, 1, 1, 0, 1, 1, 0, 0, 0], [0, 0, 1, 1, 1, 0, 0, 4, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0], [0, 0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 0, 0, 1, 1, 1, 2, 1, 1, 0, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 0, 2, 1, 1, 1, 0, 1, 1, 0, 1, 1, 0, 0, 0], [0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 1, 0, 0, 0], [0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 1, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] ]; END; IF NAJ == 15 THEN matriz := [ [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 2, 3, 2, 0, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 0, 0, 3, 1, 0, 3, 0, 0, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 0, 0, 3, 1, 2, 4, 2, 1, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] ]; END; IF NAJ == 16 THEN matriz := [ [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 3, 0, 3, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 1, 1, 1, 0, 1, 2, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0], [0, 0, 0, 0, 1, 0, 3, 2, 0, 0, 0, 2, 0, 0, 0, 0, 1, 0, 0, 0], [0, 0, 1, 1, 1, 0, 2, 3, 2, 3, 0, 3, 2, 0, 0, 0, 1, 0, 0, 0], [0, 0, 1, 3, 0, 0, 2, 4, 3, 2, 3, 1, 1, 3, 0, 0, 1, 0, 0, 0], [0, 0, 1, 1, 2, 1, 0, 2, 1, 1, 0, 0, 1, 0, 2, 1, 1, 0, 0, 0], [0, 0, 0, 1, 0, 0, 1, 0, 0, 1, 1, 0, 1, 1, 0, 1, 0, 0, 0, 0], [0, 0, 0, 1, 1, 0, 0, 0, 3, 1, 0, 2, 0, 0, 3, 1, 0, 0, 0, 0], [0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] ]; END; IF NAJ == 17 THEN matriz := [ [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 1, 1, 0, 0, 0, 0, 1, 1, 0, 0, 0, 1, 1, 1, 1, 0, 0], [0, 0, 0, 1, 0, 2, 1, 1, 0, 0, 1, 1, 1, 1, 1, 0, 0, 1, 0, 0], [0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 3, 3, 0, 1, 1, 2, 0, 1, 0, 0], [0, 0, 0, 1, 0, 2, 1, 0, 0, 0, 3, 3, 0, 0, 0, 0, 0, 1, 0, 0], [0, 0, 0, 1, 0, 0, 0, 2, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 0, 0], [0, 0, 0, 1, 1, 0, 0, 0, 1, 0, 0, 1, 1, 4, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] ]; END; IF NAJ == 18 THEN matriz := [ [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 1, 3, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 1, 0, 1, 0, 1, 2, 1, 1, 1, 0, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 1, 2, 1, 2, 2, 0, 0, 3, 0, 0, 1, 1, 0, 0, 0, 0], [0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 3, 1, 0, 0, 0, 0], [0, 0, 0, 0, 1, 0, 0, 0, 2, 0, 1, 0, 1, 2, 1, 1, 0, 0, 0, 0], [0, 0, 0, 0, 1, 3, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0], [0, 0, 0, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 3, 4, 0, 3, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] ]; END; IF NAJ == 19 THEN matriz := [ [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0], [0, 0, 1, 3, 0, 0, 3, 1, 1, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0], [0, 0, 1, 3, 0, 0, 2, 0, 0, 0, 0, 0, 2, 0, 0, 2, 0, 1, 0, 0], [0, 0, 1, 3, 1, 3, 2, 0, 2, 0, 2, 0, 0, 2, 2, 1, 0, 1, 0, 0], [0, 0, 1, 3, 1, 1, 1, 1, 1, 2, 1, 1, 0, 0, 2, 0, 0, 1, 0, 0], [0, 0, 1, 3, 0, 0, 0, 0, 0, 2, 0, 0, 0, 1, 0, 2, 0, 1, 0, 0], [0, 0, 1, 3, 0, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 0, 0, 1, 0, 0], [0, 0, 1, 3, 0, 0, 0, 0, 0, 2, 0, 2, 0, 3, 1, 3, 3, 1, 0, 0], [0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 3, 1, 4, 3, 1, 0, 0], [0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] ]; END; IF NAJ == 20 THEN matriz := [ [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 0, 4, 0, 2, 1, 0, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 0, 1, 3, 3, 3, 3, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 1, 2, 0, 2, 0, 2, 0, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 0, 0, 1, 1, 1, 0, 1, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] ]; END; IF NAJ == 21 THEN matriz := [ [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0], [0, 0, 0, 0, 1, 4, 0, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0], [0, 0, 0, 0, 1, 0, 0, 0, 2, 1, 2, 0, 0, 0, 2, 1, 0, 0, 0, 0], [0, 0, 0, 0, 1, 1, 0, 0, 0, 1, 3, 3, 1, 0, 0, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 3, 3, 1, 0, 0, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 3, 3, 1, 0, 0, 1, 1, 0, 0, 0], [0, 0, 0, 0, 0, 1, 2, 0, 0, 0, 0, 2, 1, 2, 0, 0, 1, 0, 0, 0], [0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0], [0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] ]; END; IF NAJ == 22 THEN matriz := [ [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 1, 0, 0, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 0, 0, 0], [0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 2, 0, 2, 0, 0, 0, 1, 0, 0, 0], [0, 0, 1, 0, 0, 0, 0, 1, 0, 2, 0, 0, 3, 3, 3, 3, 1, 1, 0, 0], [0, 0, 1, 0, 2, 0, 1, 0, 1, 1, 1, 1, 2, 1, 3, 3, 0, 1, 0, 0], [0, 0, 1, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0], [0, 0, 0, 1, 0, 2, 2, 0, 2, 2, 4, 0, 1, 3, 3, 3, 1, 1, 0, 0], [0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0], [0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] ]; END; IF NAJ == 23 THEN matriz := [ [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 1, 3, 3, 3, 3, 0, 4, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 3, 0, 0, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 0, 0, 1, 2, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 0, 2, 0, 0, 0, 1, 0, 1, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 1, 1, 2, 0, 1, 1, 0, 0, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 2, 2, 0, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] ]; END; IF NAJ == 24 THEN matriz := [ [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 1, 1, 1, 1, 0, 1, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0], [0, 0, 0, 1, 0, 0, 1, 1, 1, 2, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0], [0, 0, 0, 1, 0, 0, 3, 0, 0, 3, 3, 0, 3, 3, 2, 0, 1, 0, 0, 0], [0, 0, 0, 1, 0, 0, 3, 0, 1, 1, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0], [0, 0, 0, 1, 1, 1, 1, 0, 1, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0], [0, 0, 0, 0, 0, 1, 1, 2, 0, 1, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0], [0, 0, 0, 0, 0, 1, 0, 2, 0, 2, 2, 0, 0, 0, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 0, 4, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] ]; END; IF NAJ == 25 THEN matriz := [ [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0], [0, 0, 0, 1, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0], [0, 0, 0, 1, 0, 2, 2, 2, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0], [0, 0, 0, 1, 1, 3, 3, 3, 1, 0, 1, 2, 2, 2, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 1, 3, 3, 3, 1, 0, 1, 3, 3, 3, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 1, 2, 2, 2, 0, 0, 1, 3, 3, 3, 1, 1, 0, 0, 0, 0], [0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 1, 2, 2, 2, 0, 1, 0, 0, 0, 0], [0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 4, 0, 0, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] ]; END; IF NAJ == 26 THEN matriz := [ [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 0, 4, 0, 1, 1, 1, 0, 0, 0, 1, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 2, 0, 0, 0, 0, 0, 1, 0, 0, 0], [0, 0, 0, 1, 1, 1, 1, 0, 1, 2, 0, 2, 0, 1, 1, 1, 1, 0, 0, 0], [0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 2, 0, 2, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 1, 0, 1, 1, 1, 0, 2, 0, 2, 0, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 1, 3, 3, 3, 3, 3, 3, 3, 1, 0, 1, 1, 0, 0, 0, 0, 0], [0, 0, 0, 1, 1, 1, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] ]; END; IF NAJ == 27 THEN matriz := [ [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 0, 1, 3, 2, 3, 2, 3, 1, 0, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 0, 0, 2, 3, 2, 3, 2, 0, 0, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 0, 1, 3, 2, 4, 2, 3, 1, 0, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 0, 0, 2, 3, 2, 3, 2, 0, 0, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 0, 1, 3, 2, 3, 2, 3, 1, 0, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] ]; END; IF NAJ == 28 THEN matriz := [ [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 0, 0, 4, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 0, 2, 3, 2, 0, 1, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 1, 3, 2, 3, 1, 1, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 1, 0, 2, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 0, 2, 3, 2, 0, 1, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 0, 3, 2, 3, 0, 1, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 0, 3, 2, 3, 0, 1, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] ]; END; IF NAJ == 29 THEN matriz := [ [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 1, 0, 1, 1, 1, 1, 0, 0, 0], [0, 0, 0, 0, 0, 1, 0, 2, 0, 2, 2, 0, 2, 0, 2, 0, 1, 0, 0, 0], [0, 0, 0, 0, 0, 1, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 1, 0, 0, 0], [0, 0, 0, 0, 0, 1, 0, 2, 0, 2, 0, 2, 2, 0, 2, 0, 1, 0, 0, 0], [0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 1, 0, 1, 1, 1, 1, 1, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 4, 0, 1, 0, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] ]; END; IF NAJ == 30 THEN matriz := [ [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, … [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, … IF NAJ == 31 THEN matriz := [ [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 1, 1, 1, 3, 1, 1, 1, 1, 3, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 1, 0, 0, 2, 0, 2, 0, 2, 0, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 1, 0, 1, 3, 3, 3, 3, 3, 3, 1, 1, 1, 0, 0, 0, 0], [0, 0, 0, 0, 1, 0, 1, 2, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0], [0, 0, 0, 0, 1, 0, 1, 3, 0, 1, 4, 1, 0, 1, 0, 1, 0, 0, 0, 0], [0, 0, 0, 0, 1, 0, 2, 2, 1, 1, 0, 1, 2, 1, 0, 1, 0, 0, 0, 0], [0, 0, 0, 0, 1, 0, 0, 2, 0, 0, 0, 2, 0, 0, 0, 1, 0, 0, 0, 0], [0, 0, 0, 0, 1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0], [0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] ]; END; IF NAJ == 32 THEN matriz := [ [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 0, 0, 3, 0, 1, 0, 1, 1, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 0, 2, 3, 0, 2, 0, 2, 0, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 0, 1, 3, 1, 1, 0, 2, 0, 1, 0, 0, 0, 0, 0], [0, 0, 0, 1, 1, 1, 4, 1, 3, 3, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0], [0, 0, 0, 1, 0, 0, 0, 1, 1, 3, 1, 0, 0, 1, 1, 0, 0, 0, 0, 0], [0, 0, 0, 1, 0, 2, 0, 2, 0, 3, 1, 0, 2, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 1, 1, 0, 1, 1, 1, 3, 1, 1, 0, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] ]; END; IF NAJ == 33 THEN matriz := [ [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 1, 1, 0, 3, 2, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 1, 0, 3, 2, 3, 2, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 1, 0, 2, 3, 2, 3, 2, 0, 0, 1, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 1, 0, 0, 2, 3, 4, 3, 2, 0, 0, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 1, 1, 0, 0, 2, 3, 2, 3, 2, 0, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 1, 0, 0, 2, 3, 2, 3, 0, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 2, 3, 0, 1, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] ]; END; IF NAJ == 34 THEN matriz := [ [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0], [0, 0, 0, 1, 1, 1, 3, 0, 0, 3, 2, 3, 0, 0, 3, 1, 1, 1, 0, 0], [0, 0, 0, 0, 1, 1, 0, 2, 0, 0, 2, 0, 0, 2, 0, 1, 1, 0, 0, 0], [0, 0, 0, 0, 0, 1, 1, 0, 3, 3, 2, 3, 3, 0, 1, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 1, 2, 1, 2, 1, 2, 1, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 1, 3, 2, 0, 2, 3, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 4, 0, 0, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 1, 0, 2, 0, 2, 0, 1, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 3, 0, 0, 2, 0, 0, 3, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 3, 0, 1, 1, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] ]; END; IF NAJ == 35 THEN matriz := [ [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 1, 1, 0, 0, 0, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 0, 4, 0, 0, 0, 0, 0, 2, 0, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 1, 2, 1, 1, 2, 2, 1, 2, 1, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 3, 3, 1, 0, 0, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 2, 0, 1, 3, 3, 3, 0, 0, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 3, 3, 1, 0, 0, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 1, 0, 1, 1, 2, 1, 1, 1, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] ]; END; IF NAJ == 36 THEN matriz := [ [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 0, 2, 3, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 1, 2, 3, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 1, 0, 3, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 1, 2, 3, 2, 1, 1, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 1, 4, 3, 2, 0, 0, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 1, 2, 3, 2, 3, 0, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] ]; END; IF NAJ == 37 THEN matriz := [ [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 0, 0, 0, 4, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 1, 1, 0, 1, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 1, 0, 0, 1, 1, 0, 0, 0, 2, 0, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 1, 0, 2, 1, 1, 0, 1, 1, 0, 1, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 1, 0, 2, 0, 3, 2, 3, 2, 2, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 1, 1, 2, 3, 3, 3, 3, 3, 0, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 0, 3, 1, 2, 1, 3, 2, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 0, 3, 3, 2, 3, 3, 0, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 2, 2, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] ]; END; IF NAJ == 38 THEN matriz := [ [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 1, 0, 3, 2, 3, 0, 1, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 1, 1, 0, 0, 2, 3, 2, 0, 0, 1, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 1, 0, 3, 2, 3, 2, 3, 2, 3, 0, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 1, 0, 2, 3, 2, 4, 2, 3, 2, 0, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 1, 0, 3, 2, 3, 2, 3, 2, 3, 0, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 1, 1, 0, 0, 2, 3, 2, 2, 0, 1, 1, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 1, 0, 3, 2, 3, 0, 0, 0, 0, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] ]; END; IF NAJ == 39 THEN matriz := [ [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 1, 0, 0, 1, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0], [0, 0, 1, 1, 0, 0, 1, 0, 0, 1, 3, 3, 3, 1, 1, 1, 0, 0, 0, 0], [0, 0, 1, 0, 0, 2, 1, 0, 0, 1, 3, 3, 3, 0, 0, 1, 0, 0, 0, 0], [0, 0, 1, 0, 2, 0, 1, 2, 2, 0, 3, 3, 3, 0, 0, 1, 0, 0, 0, 0], [0, 0, 1, 0, 0, 2, 1, 0, 0, 1, 3, 3, 3, 0, 3, 1, 0, 0, 0, 0], [0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0], [0, 0, 1, 1, 2, 0, 0, 0, 0, 0, 0, 0, 2, 0, 2, 0, 1, 0, 0, 0], [0, 0, 1, 1, 0, 0, 1, 0, 0, 2, 2, 0, 1, 0, 0, 0, 1, 0, 0, 0], [0, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 2, 2, 4, 1, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] ]; END; IF NAJ == 40 THEN matriz := [ [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 1, 2, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 1, 1, 1, 0, 0, 2, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 1, 0, 0, 2, 0, 2, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 1, 1, 1, 0, 1, 0, 1, 1, 0, 1, 0, 0, 0, 1, 1, 1, 1, 1, 1], [0, 1, 0, 0, 0, 1, 0, 1, 1, 0, 1, 1, 1, 1, 1, 0, 0, 3, 3, 1], [0, 1, 0, 2, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 3, 3, 1], [0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 0, 1, 4, 1, 1, 0, 0, 3, 3, 1], [0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1], [0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] ]; END; IF NAJ == 41 THEN matriz := [ [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0], [0, 0, 1, 3, 3, 0, 0, 1, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0], [0, 0, 1, 3, 3, 0, 0, 1, 0, 2, 0, 0, 2, 0, 0, 1, 0, 0, 0, 0], [0, 0, 1, 3, 3, 0, 0, 1, 2, 1, 1, 1, 1, 0, 0, 1, 0, 0, 0, 0], [0, 0, 1, 3, 3, 0, 0, 0, 0, 4, 0, 1, 1, 0, 0, 1, 0, 0, 0, 0], [0, 0, 1, 3, 3, 0, 0, 1, 0, 1, 0, 0, 2, 0, 1, 1, 0, 0, 0, 0], [0, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 2, 0, 2, 0, 1, 0, 0, 0, 0], [0, 0, 0, 0, 1, 0, 2, 0, 0, 2, 0, 2, 0, 2, 0, 1, 0, 0, 0, 0], [0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0], [0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] ]; END; IF NAJ == 42 THEN matriz := [ [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 4, 1, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 2, 1, 2, 0, 1, 1, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 2, 0, 0, 2, 1, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 2, 0, 2, 0, 1, 0, 0, 0], [0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 2, 0, 1, 0, 1, 1, 1, 0], [0, 0, 1, 3, 3, 3, 3, 0, 0, 1, 1, 0, 2, 0, 0, 2, 0, 0, 1, 0], [0, 0, 1, 1, 3, 3, 3, 0, 0, 0, 0, 2, 0, 0, 2, 0, 0, 0, 1, 0], [0, 0, 1, 3, 3, 3, 3, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0], [0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] ]; END; IF NAJ == 43 THEN matriz := [ [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 3, 3, 3, 3, 1, 0], [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 3, 3, 3, 3, 1, 0], [1, 0, 0, 0, 0, 1, 0, 0, 2, 0, 2, 0, 0, 0, 3, 3, 3, 3, 1, 0], [1, 0, 2, 2, 2, 1, 2, 0, 0, 2, 0, 1, 0, 0, 3, 3, 3, 3, 1, 0], [1, 0, 0, 2, 0, 0, 0, 0, 0, 2, 0, 1, 0, 0, 3, 3, 3, 3, 1, 0], [1, 0, 2, 2, 0, 1, 0, 0, 2, 0, 2, 1, 1, 1, 1, 1, 1, 1, 1, 0], [1, 0, 0, 2, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0], [1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0], [1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0], [1, 0, 0, 0, 0, 0, 2, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0], [1, 0, 0, 2, 2, 1, 2, 2, 0, 0, 4, 1, 0, 0, 0, 0, 0, 0, 0, 0], [1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0], [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] ]; END; IF NAJ == 44 THEN matriz := [ [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 1, 1, 1, 1, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 2, 1, 1, 0, 0, 1, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 2, 0, 1, 0], [0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 0, 0, 0, 1, 0], [0, 0, 1, 3, 3, 3, 3, 0, 0, 1, 1, 0, 2, 0, 0, 2, 1, 1, 1, 0], [0, 0, 1, 3, 3, 3, 3, 0, 0, 0, 0, 2, 0, 2, 2, 0, 1, 1, 0, 0], [0, 0, 1, 3, 3, 3, 3, 0, 0, 1, 1, 2, 0, 0, 2, 0, 4, 1, 0, 0], [0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 2, 0, 0, 1, 1, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 2, 0, 2, 0, 0, 1, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 1, 1, 0, 1, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] ]; END; IF NAJ == 45 THEN matriz := [ [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 1, 3, 3, 0, 0, 1, 0, 1, 1, 4, 1, 1, 0, 0, 0, 0, 0], [0, 0, 0, 1, 3, 3, 0, 0, 1, 1, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0], [0, 0, 0, 1, 3, 3, 0, 0, 0, 0, 0, 2, 2, 0, 1, 0, 0, 0, 0, 0], [0, 0, 0, 1, 3, 3, 0, 0, 1, 0, 1, 0, 2, 0, 1, 0, 0, 0, 0, 0], [0, 0, 0, 1, 3, 3, 1, 1, 1, 0, 1, 0, 2, 0, 1, 0, 0, 0, 0, 0], [0, 0, 0, 1, 1, 1, 1, 0, 2, 0, 1, 2, 0, 0, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 0, 0, 2, 1, 0, 2, 0, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 0, 2, 0, 0, 2, 0, 0, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] ]; END; IF NAJ == 46 THEN matriz := [ [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0], [0, 0, 1, 1, 0, 1, 0, 4, 1, 1, 0, 2, 2, 0, 1, 0, 0, 0, 0, 0], [0, 0, 1, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0], [0, 0, 1, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0], [0, 0, 1, 1, 1, 0, 1, 1, 1, 1, 1, 2, 1, 1, 1, 0, 0, 0, 0, 0], [0, 0, 1, 0, 2, 0, 0, 1, 1, 1, 0, 3, 3, 1, 0, 0, 0, 0, 0, 0], [0, 0, 1, 0, 2, 0, 2, 0, 2, 0, 3, 3, 3, 1, 0, 0, 0, 0, 0, 0], [0, 0, 1, 0, 0, 0, 0, 1, 1, 1, 3, 3, 3, 1, 0, 0, 0, 0, 0, 0], [0, 0, 1, 0, 2, 2, 0, 1, 0, 1, 3, 3, 3, 1, 0, 0, 0, 0, 0, 0], [0, 0, 1, 0, 0, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0], [0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] ]; END; IF NAJ == 47 THEN matriz := [ [0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0], [0, 0, 0, 0, 1, 0, 0, 0, 0, 2, 0, 0, 0, 2, 0, 2, 0, 1, 0, 0], [0, 0, 0, 0, 1, 0, 2, 1, 0, 2, 0, 1, 0, 0, 2, 0, 0, 1, 0, 0], [0, 0, 0, 0, 1, 0, 0, 2, 0, 2, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0], [0, 0, 1, 1, 1, 0, 2, 1, 0, 1, 0, 0, 1, 1, 1, 1, 0, 1, 0, 0], [0, 0, 1, 4, 1, 2, 0, 2, 0, 2, 0, 0, 1, 1, 0, 0, 0, 1, 0, 0], [0, 0, 1, 0, 0, 0, 0, 2, 0, 1, 2, 1, 0, 0, 0, 1, 0, 1, 0, 0], [0, 0, 1, 0, 0, 0, 2, 0, 0, 0, 0, 2, 0, 2, 0, 2, 0, 1, 0, 0], [0, 0, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0], [0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0], [0, 0, 1, 3, 3, 3, 3, 3, 3, 3, 3, 3, 1, 0, 0, 0, 0, 0, 0, 0], [0, 0, 1, 3, 3, 3, 3, 3, 3, 3, 3, 3, 1, 0, 0, 0, 0, 0, 0, 0], [0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] ]; END; IF NAJ == 48 THEN matriz := [ [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 3, 3, 3, 1, 0, 0], [0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 3, 3, 3, 1, 0, 0], [0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 3, 0, 3, 1, 0, 0], [0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 1, 0, 0, 3, 3, 3, 1, 0, 0], [0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 3, 3, 3, 1, 0, 0], [0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0], [0, 0, 0, 0, 0, 0, 1, 0, 2, 2, 2, 0, 1, 1, 0, 0, 0, 0, 0, 0], [0, 0, 1, 1, 1, 1, 1, 0, 0, 2, 0, 2, 0, 1, 1, 1, 1, 1, 0, 0], [0, 1, 1, 0, 0, 0, 1, 2, 0, 2, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0], [0, 1, 4, 0, 2, 0, 0, 2, 0, 0, 0, 0, 2, 0, 0, 2, 0, 1, 0, 0], [0, 1, 1, 1, 1, 1, 1, 0, 2, 2, 0, 2, 0, 1, 1, 1, 1, 1, 0, 0], [0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] ]; END; IF NAJ == 49 THEN matriz := [ [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0], [0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0], [0, 0, 1, 0, 1, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 1, 0, 0], [0, 0, 1, 0, 1, 0, 0, 2, 0, 2, 0, 2, 0, 2, 1, 0, 0, 1, 0, 0], [0, 0, 1, 0, 1, 0, 0, 0, 2, 4, 2, 0, 0, 0, 1, 1, 0, 1, 1, 0], [0, 0, 1, 0, 1, 0, 1, 2, 0, 2, 0, 2, 1, 1, 1, 3, 3, 3, 1, 0], [0, 0, 1, 0, 1, 0, 0, 0, 2, 0, 2, 0, 0, 1, 1, 3, 3, 3, 1, 0], [0, 0, 1, 0, 1, 1, 1, 2, 2, 2, 0, 2, 0, 1, 1, 3, 3, 3, 1, 0], [0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 1, 0, 1, 1, 3, 3, 3, 1, 0], [0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 1, 1, 0, 1, 1, 3, 3, 3, 1, 0], [0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 1, 1, 1, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] ]; END; END; drawscreen(); RECT_P(G0, 20, 223, 300, 238, #000000, #FFFFFF); TEXTOUT_P("LEVEL: "+NIVEL+"-"+SUBNIVEL+" MOVES: PUSHES: ", 25, 224); END;

Комментарии