Crear cuenta
(2)10 poke 53280,6: poke 53281,0
20 print chr$(31) chr$(147)
30 dim H(4,3,2,2), G(3,3), N(1)
40 dim C(1039), P(999), E(255)
50 dim A(370), X(370), Y(370)
60 dim B(11), J(3,1), K(3,1)
70 dim D(3), S(3), I(3)
80 dim V(3), W(3), T(3)
90 dim F(39), Q(15)
100 G(0,1)=2: G(1,0)=2: G(1,3)=1
110 G(2,1)=3: G(3,0)=3: G(3,2)=1
120 E(157)=1: E(17)=2: E(145)=3
130 Q(15)=5: B(10)=38: B(11)=-38
140 for n=0 to 5: read Q(n+5): next
150 for n=0 to 3: read I(n),T(n): next
160 for n=0 to 3: read V(n),W(n): next
170 for n=0 to 3: read D(n),S(n): next
180 for v=0 to 2 step 2190 for w=0 to 1: read J(v,w),K(v,w)
200 J(v+1,w)=K(v,w): K(v+1,w)=J(v,w)
210 next w,v220 for v=0 to 4230 for w=0 to 3: read E$: n=0
240 for y=0 to 2250 for x=0 to 2: n=n+1
260 H(v,w,y,x)=asc(mid$(E$,n))-48
270 next x,y,w,v
280 for y=0 to 24: read E$: f=41: e=0
290 for x=0 to 19300 F(x)=asc(mid$(E$,x+1))-44
310 e=e=0: f=f+e+e: n=Q(F(x))
320 if n then F(f-1)=9+n: n=sgn(n)
330 F(f+e)=F(x)+n
340 next
350 for x=0 to 39360 v=0: w=224
370 if P(c) then v=1: w=P(c)
380 on F(x) goto 410,420,450,440
390 d=d+1: A(d)=F(x)-5: C(c)=d
400 X(d)=x: Y(d)=y: goto 440
410 P(c+1)=123: P(c+40)=124: P(c+41)=126
420 v=1: w=w-116
430 C(c)=1-F(x): P(c)=w
440 poke 55296+c,v
450 poke 1024+c,w: c=c+1
460 next x,y470 poke 1424,96: poke 1463,96
480 poke 1464,96: poke 1503,96
490 C(300)=d+1: c=739
500 for n=0 to 3510 e=S(n): a=C(e)
520 d=D(n): t=T(n)
530 if A(a)>8 goto 600
540 if e=425 then T(n)=n+2
550 if A(a)<4 then d=G(A(a),d): goto 600
560 if t=1 then x=X(a)-20: y=Y(a)-7: goto 590
570 x=X(b)-X(a): y=Y(b)-Y(a)
580 if t<6 then x=x*V(n): y=y*W(n)
590 d=H(A(a)-4,d,sgn(y)+1,sgn(x)+1)
600 f=e+I(d): if C(f)=0 then f=e+B(A(a))
620 if e=c or f=c then T(n)=1: if t=n+2 goto 620
630 D(n)=d: S(n)=f
640 for v=0 to 1650 w=e-J(d,v): y=0
660 if P(w) then poke 1024+w,P(w): y=1
670 poke 55296+w,y
680 w=f-K(d,v)
690 poke 55296+w,t
700 if P(w) then poke 1024+w,224
710 next v,n800 n=0: x=0
810 get E$: if E$>"" then N(0)=asc(E$): goto 810
820 d=E(N(n)): f=c+I(d)
830 if C(f)>0 goto 860
840 if n=0 then n=1: goto 820
850 f=c+B(A(b)): if f=c then x=7
860 if P(f)=126 then gosub 1000
890 for v=0 to 1900 w=c-J(d,v): y=x
910 if P(w) then poke 1024+w,P(w): y=1
920 poke 55296+w,y
930 w=f-K(d,v)
940 poke 55296+w,7
950 if P(w) then poke 1024+w,224: if C(w)<0 then P(w)=0
960 next
970 N(1)=N(n): b=C(f): c=f
980 goto 500
1000 for v=0 to 31010 w=f-J(v,0): P(w)=0
1020 poke 1024+w,224
1030 T(v)=11
1040 next
1050 return
2000 data 5,-5,5,-5,5,-5
2010 data 1,2,-1,3,40,4,-40,5
2020 data -1,-1,-1,1,1,-1,1,1
2030 data 0,417,1,423,1,497,0,503
2040 data 1,40,41,0,41,0,40,1
2100 data "000000000","222222333"
2110 data "022022022","033033033"
2120 data "222222333","000000000"
2130 data "221221221","331331331"
2140 data "222000000","222111111"
2150 data "000000000","001001001"
2160 data "000000333","111111333"
2170 data "001001001","000000000"
2180 data "222000333","222111333"
2190 data "021021021","031031031"
2200 data ".0.0.0.0.0.0.0.0.0//"2210 data "01:::::7:::::::::2//"2220 data "0:////0:////////0://"2230 data "-:.0.0.:.0.0.0.0.:.0"2240 data "05:::::8:::::::::9::"2250 data "0://////////////0://"2260 data ".:.0.0.0//0000000:00"2270 data "03:::::2//01:::::8:2"2280 data "//////.://0://////0:"2290 data "//////0://0://00000:"2300 data "000000.:000://01:::4"2310 data "0;:::::9:::6//0:0000"2320 data "//////.://0://03::::"2330 data "//////0://0:////////"2340 data ".0.0.0.://0:000000//"2350 data "01:::::6//03:::::2//"2360 data "0:////0:////////0://"2370 data ".:.0.0.:.0.0.0.0.:00"2380 data "03:::::9:::7:::::8::"2390 data "//////0://0:////////"2400 data "-0.0.0.://.:.0.0.0//"2410 data "01:::::4//03:::::2//"2430 data "0://////////////0://"2440 data ".:.0.0.0.0.0.0.0.:.0"2450 data "03:::::::::::::::8::"
No hay comentarios
(1)