Crear cuenta
100 POKE 53280,0: POKE 53281,0
110 PRINT CHR$(0) CHR$(147)
120 DIM A(3,6,3,3),C(7,3,3)
130 DIM G(3,3),D(249),Q(249)
140 DIM B(11),E(255),Y(24)
150 X(0)=10: X(1)=1: X(2)=-1
160 E(29)=1: E(157)=2: E(145)=3
170 Q=55280: P=INT(RND(0)*7)+1
180 FOR A=1 TO 7: B(A)=A: NEXT
190 FOR X=0 TO 2: G(X,3)=X+1
200 FOR G=0 TO 3: G(G,X)=G: NEXT G,X
210 FOR Y=0 TO 24: Q=Q+30
220 POKE Q+10,11: POKE Q-54262,207
230 FOR X=0 TO 9240 IF X*Y<1 OR Y=24 THEN D(C)=11
250 POKE Q,D(C): POKE Q-54272,207
260 Q(C)=Q: C=C+1: Q=Q+1
270 NEXT X,Y280 FOR G=0 TO 3: C=G<1
290 FOR A=0 TO 6: N=0
300 FOR Y=-C TO 3+C
310 FOR X=0 TO 3320 IF C THEN READ A(G,A,Y,X)
330 IF A(G,A,Y,X)<1 GOTO 370
340 A(G(G,3),A,X,3-Y)=1
350 C(A+1,G,N)=X+10*Y
360 N=N+1
370 NEXT X,Y,A,G
380 REM ***** Inicio *****
390 FOR N=0 TO 3400 C=4+C(P,0,N)
410 IF D(C) GOTO 410
420 POKE Q(C),P: POKE Q(C)+172,0
430 V(N)=C: D(C)=-1
440 NEXT
450 A=P: C=4: G=0
460 P=INT(RND(0)*7)+1
470 FOR N=0 TO 3480 Q=Q(C(P,0,N))+176
490 POKE Q,P: POKE Q-54272,207
500 NEXT
510 REM ***** Rutina *****
520 GET E$
530 IF E$<>"" THEN N=ASC(E$): GOTO 520
540 X=E(N): C=C+X(X)
550 Y=G: G=G(G,X): N=3
560 W(N)=C+C(A,G,N)
570 IF D(W(N))>0 GOTO 700
580 IF N THEN N=N-1: GOTO 560
590 FOR N=0 TO 3600 IF D(W(N))=0 THEN POKE Q(W(N)),A
610 D(W(N))=D(W(N))-1
620 NEXT
630 FOR N=0 TO 3640 D(V(N))=D(V(N))+1
650 IF D(V(N))=0 THEN POKE Q(V(N)),0
660 V(N)=W(N)
670 NEXT
680 GOTO 520
690 REM ***** Lineas *****
700 IF X THEN C=C-X(X): G=Y: GOTO 520
710 FOR N=0 TO 3720 Y=INT(V(N)/10)
730 Y(Y)=Y(Y)+1
740 D(V(N))=A
750 NEXT
760 IF Y(Y)<1 GOTO 390
770 IF Y(Y)<9 THEN Y=Y-1: GOTO 760
780 X=Y+1: C=10*X
790 FOR N=0 TO 8: C=C-1
800 D(C)=B(D(C-10))
810 POKE Q(C),D(C)
820 NEXT
830 X=X-1: Y(X)=Y(X-1)
840 IF Y(X) THEN C=C-1: GOTO 790
850 GOTO 760
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