Crear cuenta
100 POKE 53280,0: 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+159
140 FOR Y=0 TO 8: N=N+2: E=E=0
150 FOR X=1 TO 20+E
160 M=E<0 OR X>1 AND X<20
170 FOR P=0 TO -M
180 POKE N,L: POKE N-D,207+40*P
190 F(N-A-160)=N-M-P-P: N=N+1
200 NEXT P,X,Y
210 FOR N=A+1 TO A+38
220 POKE N,11: POKE N-D,207
230 POKE N+960,0: POKE N+960-D,249
240 NEXT
250 FOR Y=0 TO 24: N=A+40*Y
260 POKE N,11: POKE N-D,207
270 POKE N+39,11: POKE N+39-D,207
280 NEXT
290 M=20: P=246: X=-1: Y=X
300 POKE B,0: B=B+40*Y+X
310 POKE B,5: POKE B-D,81
320 GOSUB 600
330 M=M+X: N=B+X: IF B-A<80 THEN Y=1
340 R=-1: IF M=1 OR M=38 THEN X=-X: R=1
350 IF PEEK(N)=L THEN X=X*R: GOSUB 500
360 N=B+40*Y
370 IF PEEK(N)=L THEN Y=-Y: GOSUB 500
380 N=N+X: E=E*PEEK(N)=L
390 IF E THEN X=X*R: Y=-Y: GOSUB 500
400 GOSUB 600
410 IF B<A+920 GOTO 300
420 Y=PEEK(N)=P OR PEEK(N-X)=P
430 GET E$
440 IF Y=0 THEN Y=E$=CHR$(13): GOTO 430
450 IF C-B=38 OR C-B=39 THEN X=0: R=1
460 IF R<0 THEN X=(C-B>39)-(C-B<38)
470 GOTO 300
500 POKE N,0: POKE F(N-A-160),0
510 E=0: RETURN
600 GET E$
610 IF E$<>"" THEN E=ASC(E$): GOTO 600
620 IF E=157 AND C>A+961 THEN C=C-1: POKE C,P: POKE C+4,0
630 IF E=29 AND C<A+995 THEN POKE C,0: POKE C+4,P: C=C+1
640 E=1: RETURN
No hay comentarios
