10 poke 53280,6: poke 53281,0
20 print chr$(31) chr$(147)
30 dim H(4,3,2,2), G(3,3)
40 dim C(999), P(999), Q(3)
50 dim A(370), X(370), Y(370)
60 dim D(3), S(3), I(3)
70 dim E(255), B(11), N(1)
100 c=698: B(10)=38: B(11)=-38
110 Q(1)=1: Q(2)=40: Q(3)=41
120 E(157)=1: E(17)=2: E(145)=3
130 G(0,1)=2: G(1,0)=2: G(1,3)=1
140 G(2,1)=3: G(3,0)=3: G(3,2)=1
150 I(0)=1: I(1)=-1: I(2)=40: I(3)=-40
200 for n=0 to 3: read D(n),S(n): next
210 for v=0 to 4
220 for w=0 to 3: read E$: n=0
230 for y=0 to 2
240 for x=0 to 2: n=n+1
250 H(v,w,y,x)=asc(mid$(E$,n))-48
260 next x,y,w,v
300 for y=0 to 24: read E$
310 for x=1 to 40
320 v=0: w=224: a=asc(mid$(E$,x))-47
330 if a>1 then e=e+1: A(e)=a-2: C(f)=e: Y(e)=y: X(e)=x
340 if a<0 then v=15: w=126: P(f-1)=1: P(f-40)=2: P(f-41)=3
350 if a then poke 55296+f,v
360 poke 1024+f,w
370 f=f+1
380 next x,y
500 y=Y(C(c)): x=X(C(c))
510 for n=0 to 3
520 e=S(n): a=A(C(e))
530 if a>8 goto 580
540 if a<4 then D(n)=G(a,D(n)): goto 580
550 v=Y(C(e))-y: if I(n)<0 then v=-v
560 w=X(C(e))-x: if n>1 then w=-w
570 D(n)=H(a-4,D(n),sgn(v)+1,sgn(w)+1)
580 f=e+I(D(n)): if C(f)=0 then f=e+B(a)
590 a=n+2: S(n)=f
600 poke 55296+e,0: poke 55297+e,0
610 poke 55336+e,0: poke 55337+e,0
620 if P(e) then poke 1024+Q(P(e))+e,126: poke 55296+Q(P(e))+e,15
630 if P(f) then poke 1024+Q(P(f))+f,224
640 poke 55296+f,a: poke 55297+f,a
650 poke 55336+f,a: poke 55337+f,a
660 if e=c or f=c goto 660
670 next
700 n=0: get E$: if E$="" goto 720
710 N(0)=asc(E$): goto 700
720 f=c+I(E(N(n))): if f<0 goto 740
730 if C(f) goto 760
740 if n=0 then n=1: goto 720
750 f=c+B(A(C(c))): if c=f goto 500
760 poke 55296+c,0: poke 55297+c,0
770 poke 55336+c,0: poke 55337+c,0
780 poke 55296+f,7: poke 55297+f,7
790 poke 55336+f,7: poke 55337+f,7
800 c=f: N(1)=N(n)
810 if P(f)=0 goto 500
820 e=f+Q(P(f)): poke 1024+e,224
830 P(e-1)=0: P(e-40)=0: P(e-41)=0
840 goto 500
1000 data 0,374,1,384,1,454,0,464
1100 data "000000000","222222333"
1110 data "022022022","033033033"
1120 data "222222333","000000000"
1130 data "221221221","331331331"
1140 data "222000000","222111111"
1150 data "000000000","001001001"
1160 data "000000333","111111333"
1170 data "001001001","000000000"
1180 data "222000333","222111333"
1190 data "021021021","031031031"
1200 data "1:::::7:::::::::20////1:::::::::7:::::20"
1210 data ":.0.0.:.0.0.0.0.:.////:.0.0.0.0.:.0.0.:."
1220 data ":0////:0////////:0////:0////////:0////:0"
1230 data "5:::::8:::::::::9:::::9:::::::::8:::::60"
1240 data ":.0.0.0.0.0.0.0.:.0.0.:.0.0.0.0.0.0.0.:."
1250 data ":0//////////////:0////:0//////////////:0"
1260 data "3:::::20//1:::::8:2:1:8:::::20//1:::::40"
1270 data "0.0.0.:.//:0000000:0:0000000:0//:.0.0.0."
1280 data "//////:0//:0//////:0:0//////:0//:0//////"
1290 data "//////:.//:0/1::::4:3::::20/:0//:.//////"
1300 data ";:::::9:::60/:00000000000:0/5:::9:::::<0"
1310 data "000000:.00:0/3:::::::::::40/:000:.000000"
1320 data "//////:0//:0/00000000000000/:0//:0//////"
1330 data "//////:.//:0////////////////:0//:.//////"
1340 data "1:::::60//3:::::20////1:::::40//5:::::20"
1350 data ":.0.0.:.//000000:0////:0000000//:.0.0.:."
1360 data ":0////:0////////:0////:0////////:0////:0"
1370 data "3:::::9:::7:::::8:::::8:::::7:::9:::::40"
1380 data "0.0.0.:.0.:.0.0.0.00000.0.0.:.0.:.0.0.0."
1390 data "//////:0//:0////////////////:0//:0//////"
1400 data "1:::::40//3:::::20////1:::::40//3:::::20"
1410 data ":.0.0.0.//0.0.0.:.////:.0.0.0.//0.0.0.:."
1420 data ":0//////////////:0////:0//////////////:0"
1430 data "3:::::::::::::::8:::::8:::::::::::::::40"
1440 data "0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0."
Comentarios sobre la versión: 1.4 (0)
No hay comentarios