Crear cuenta
100 POKE 53280,11: POKE 53281,0
110 PRINT CHR$(0) CHR$(147)
120 DIM F(399): A=55296: D=54272
130 B=A+940: C=B+40: L=248: N=A+120
140 FOR Y=0 TO 9: E=E=0
150 FOR X=0 TO 20+E
160 M=E<0 OR X>0 AND X<20
170 FOR P=0 TO -M
180 POKE N,L: POKE N-D,207+40*P
190 F(R)=M+P+P: N=N+1: R=R+1
200 NEXT P,X,Y
210 FOR N=A+960 TO A+999
220 POKE N,0: POKE N-D,249
230 NEXT
240 M=20: P=246: X=-1: Y=X
300 POKE B,0: B=B+40*Y+X
310 POKE B-D,81: POKE B,5
320 GOSUB 700
330 M=M+X: N=B-A: IF N<40 THEN Y=1
340 R=-1: IF M=0 OR M=39 THEN X=-X: R=1
350 N=B+X: IF PEEK(N)=L THEN X=X*R: GOSUB 600
360 N=B+40*Y: IF PEEK(N)=L THEN Y=-Y: GOSUB 600
370 N=N+X: IF E*PEEK(N)=L THEN X=X*R: Y=-Y: GOSUB 600
380 GOSUB 700
500 IF B<A+920 GOTO 300
510 Y=PEEK(N)=P OR PEEK(N-X)=P
520 IF Y=0 THEN GET E$: Y=E$=CHR$(13): GOTO 520
530 IF C-B=38 OR C-B=39 THEN X=0: R=1
540 IF R<0 THEN X=(C-B>39)-(C-B<38)
550 GOTO 300
600 POKE N,0: POKE N-F(N-A-120),0
610 E=0: RETURN
700 GET E$: IF E$<>"" THEN E=ASC(E$): GOTO 700
710 IF E=157 AND C>A+960 THEN C=C-1: POKE C,P: POKE C+4,0
720 IF E=29 AND C<A+996 THEN POKE C,0: POKE C+4,P: C=C+1
730 E=1: RETURN
No hay comentarios
