100 POKE 53280,0: POKE 53281,0
110 PRINT CHR$(0) CHR$(147)
120 DIM F(399): A=55296: D=54272
130 C=A: B=A+940: N=A+159: L=248
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 TO A+39
220 POKE N,11: POKE N-D,207
230 POKE N+960,0: POKE N+960-D,249
240 NEXT
250 FOR Y=1 TO 23: C=C+40
260 POKE C,11: POKE C-D,207
270 POKE C+39,11: POKE C+39-D,207
280 NEXT
290 C=B+40: M=20: P=246: X=-1: Y=-40
300 POKE B,0: B=B+Y+X
310 POKE B,5: POKE B-D,81
320 GOSUB 500
330 M=M+X: N=B-A: IF N<80 THEN Y=40
340 R=-1: IF M=1 OR M=38 THEN X=-X: R=1
350 IF PEEK(B+X)=L THEN POKE B+X,0: POKE F(N+X-160),0: X=-X
360 IF PEEK(B+Y)=L THEN POKE B+Y,0: POKE F(N+Y-160),0: Y=-Y
370 IF PEEK(B+Y+X)=L THEN POKE B+Y+X,0: POKE F(N+Y+X-160),0: Y=-Y: X=X*R
380 GOSUB 500
390 IF N<920 GOTO 300
400 N=PEEK(B+Y)=P OR PEEK(B+Y+X)=P
410 IF N=0 THEN GOSUB 500: GOTO 400
420 X=(C<B+38)*R-(C>B+39)*R
430 Y=-40: GOTO 300
500 GET E$: IF E$<>"" THEN E=ASC(E$): GOTO 500
510 IF E=29 AND C<A+996 THEN POKE C,0: POKE C+4,P: C=C+1
520 IF E=157 AND C>A+960 THEN C=C-1: POKE C,P: POKE C+4,0
530 E=0: RETURN
Crear cuenta
Comentarios sobre la versión: 1.3 (0)
No hay comentarios