Miner10 lines

CÓDIGO

1 POKE53280,0:POKE53281,1:PRINTRND(0)CHR$(142)CHR$(8)"":CP=20:LP=CP:X=20

2 FOR A=40 TO 959:MP=(INT(RND(1)*4)>2):POKE55296+A,1:POKE1024+A,32+8*(MP):NEXT

3 N=1024+CP:M=-(PEEK(N-40)=24)-(PEEK(N+40)=24)-(PEEK(N-1)=24)-(PEEK(N+1)=24)

4 PRINT""M:POKE55296+CP,14:POKE1024+CP,81:LP=CP:IFCP>=960THENPRINT"DONE!":GOTO10

5 GETA$:IFA$="E"THENCP=CP+40*(CP>39):IFPEEK(1024+CP)=24THENPRINT"BOOOM!":GOTO10

6 IFA$="D"THENCP=CP-40*(CP<960):IFPEEK(1024+CP)=24THENPRINT"BOOOM!!!":GOTO10

7 IFA$="O"THENCP=CP+1*(X>0):X=X+1*(X>0):IFPEEK(1024+CP)=24 THENPRINT"BOM!":GOTO10

8 IFA$="P"THENCP=CP-1*(X<39):X=X-1*(X<39):IFPEEK(1024+CP)=24THENPRINT"BOM!":GOTO10

9 POKE55296-LP*(LP<>CP),1-14*(LP<>CP):POKE1024-LP*(CP<>LP),32-128*(LP<>CP):GOTO3

10 FORA=55304TO55296+1000:POKEA,0:NEXT:POKE198,0:PRINT"PRESS A KEY!":WAIT198,1:RUN

DESCRIPCIÓN

Este juego es una versión en 10 líneas del mítico juego de Zx spectrum "Mined Out!" de Ian Andrew y Rich Shenfield

Serás capaz de cruzar el campo de minas sólo con la ayuda de tu lógica?? 

Cuentas con la ayuda de tu detector de minas (que cuenta las minas que te rodean, excepto las que están en tus diagonales) y con los controles para moverte (E arriba; D abajo; O izquierda, P derecha)

Plantar minas lleva un ratito...ten paciencia!!!

DESCRIPTION

This game is a 10-line version of the legendary ZX Spectrum game "Mined Out!" by Ian Andrew and Rich Shenfield.

Will you be able to cross the minefield using only your logic? You have the help of your mine detector (which counts the mines surrounding you, except those on your diagonals) and the controls to move (E up; D down; O left; P right).

Planting mines takes a little while...be patient!!!

LINKS TO CONTEST BASIC10LINER

https://www.homeputerium.de/

https://bunsen.itch.io/