Crear cuenta
100 POKE 53280,0: POKE 53281,0
110 POKE 646,0: PRINT CHR$(0) CHR$(147)
120 DIM E(255),D(249),H(249),Q(249)
130 DIM B(11),F(24),I(24),Y(24)
140 DIM A(3,6,3,3),C(6,3,3)
150 I(0)=9: I(24)=9
160 G(0)=1: G(1)=2: G(2)=3
170 X(0)=10: X(1)=1: X(2)=-1
180 E(29)=1: E(157)=2: E(145)=3
190 Q=55280: P=INT(RND(0)*7)
200 FOR A=1 TO 7: B(A)=A: NEXT
210 FOR Y=0 TO 24220 F(Y)=N: N=N+10: Q=Q+30
230 POKE Q+10,11: POKE Q-54262,207
240 FOR X=0 TO 9250 IF X<=I(Y) THEN POKE Q,11: D(C)=11
260 POKE Q-54272,207
270 H(C)=Y: Q(C)=Q
280 C=C+1: Q=Q+1
290 NEXT X,Y300 FOR G=0 TO 3: C=G<1
310 FOR A=0 TO 6: N=0
320 FOR Y=-C TO 3+C
330 FOR X=0 TO 3340 IF C THEN READ Q
350 IF G THEN Q=A(G,A,Y,X)
360 IF Q THEN C(A,G,N)=X+F(Y): N=N+1
370 IF Q>G THEN A(G+1,A,X,3-Y)=3
380 NEXT X,Y,A,G
390 REM ***** Inicio *****
400 FOR N=0 TO 3410 C=4+C(P,0,N)
420 IF D(C) GOTO 420
430 POKE Q(C),P+1: POKE Q(C)+172,0
440 V(N)=C: D(C)=-1
450 NEXT
460 A=P: C=4: G=0
470 P=INT(RND(0)*7)
480 FOR N=0 TO 3490 Q=Q(C(P,0,N))+176
500 POKE Q,P+1: POKE Q-54272,207
510 NEXT
520 REM ***** Rutina *****
530 GET E$
540 IF E$<>"" THEN N=ASC(E$): GOTO 530
550 X=E(N): C=C+X(X): N=3
560 Y=G: IF X>2 THEN G=G(Y)
570 W(N)=C+C(A,G,N)
580 IF D(W(N))>0 GOTO 710
590 IF N THEN N=N-1: GOTO 570
600 FOR N=0 TO 3610 IF D(W(N))=0 THEN POKE Q(W(N)),A+1
620 D(W(N))=D(W(N))-1
630 NEXT
640 FOR N=0 TO 3650 D(V(N))=D(V(N))+1
660 IF D(V(N))=0 THEN POKE Q(V(N)),0
670 V(N)=W(N)
680 NEXT
690 GOTO 530
700 REM ***** Lineas *****
710 C=C-X(X): G=Y
720 IF X GOTO 530
730 FOR N=0 TO 3740 D(V(N))=A+1
750 Y=H(V(N))
760 Y(Y)=Y(Y)+1
770 IF Y(Y)<9 GOTO 840
780 FOR C=F(Y)+1 TO F(Y+1)-1
790 D(C)=B(D(C-10))
800 POKE Q(C),D(C)
810 NEXT
820 Y(Y)=Y(Y-1): Y=Y-1
830 IF Y(Y) GOTO 780
840 NEXT
850 GOTO 400
860 REM ***** Datos *****
870 DATA 1,1,1,1,0,0,0,0
880 DATA 0,1,0,0,0,1,1,1
890 DATA 0,0,1,0,1,1,1,0
900 DATA 0,1,1,0,0,0,1,1
910 DATA 0,1,1,0,1,1,0,0
920 DATA 0,1,0,0,1,1,1,0
930 DATA 0,1,1,0,0,1,1,0
No hay comentarios