--------
 WUDANG
--------

(c) 2020 Ariel Ruiz

PROGRAMA BASIC
--------------
0 GO TO VAL "8900":DEF FN u$(r)=p$(CODE p$(r*4+505)+256*CODE p$(r*4+506) TO CODE p$(r*4+507)+256*CODE p$(r*4+508))
3 IF SCREEN$ (a+1,b)=" " THEN IF SCREEN$ (a+1,b+1)=" " THEN POKE 23606,0:GO TO 2000
4 IF POINT (IN j,s) THEN POKE 23606,0:GO TO 350+15*w
5 LET n=POINT (IN g,i):LET f=POINT (IN h,d):IF f THEN IF SCREEN$ (a,b+w)=" " THEN LET p=NOT p:POKE 23606,16 AND p:PRINT AT a-2,b;" ()";AT a-1,b;" 89";AT a,b;" GH":LET b=b+1:GO TO 2
6 IF n THEN IF SCREEN$ (a,b-n*NOT w)=" " THEN LET b=b-1:LET p=NOT p:POKE 23606,16 AND p:PRINT AT a-2,b;"$% ";AT a-1,b;"45 ";AT a,b;"CD ":GO TO 2
10 POKE 23606,0:IF n AND w THEN LET w=0:GO TO 19
11 IF f AND NOT w THEN LET w=2:GO TO 19
13 LET f=2*f-n:IF f THEN LET j$=SCREEN$ (a,b+f):GO TO 1500
15 IF INKEY$ ="<12/delete>" THEN GO TO VAL "9e3"
19 LET p=1:PRINT AT a-2,b;"$%" AND NOT w;"()" AND w;AT a-1,b;"45" AND NOT w;"89" AND w;AT a,b;"ST" AND NOT w;"UV" AND w:GO TO 2
90 LET x=VAL "5":LET v=VAL "-43"
92 LET x=x-SGN PI :IF NOT x THEN LET v=VAL "-42":LET x=VAL "7+INT (RND *(9-ve+sk))":LET z=VAL "a-1-INT (RND *2)":LET q=VAL "6":PRINT AT z,q;"<21/over><1><19/bright><1>|"
93 GO TO 100
94 IF q<= b-2 THEN PRINT AT z,q;"<21/over><1>|<8 left>}" AND q=6;AT z,q;"<17/paper><0><21/over><1>}<17/paper><1><19/bright><1><16/ink><5>}"<17/paper><0><16/ink><7><19/bright><0><21/over><0>:LET q=q+1:GO TO 100
96 BEEP 0.01,NOT PI :BEEP 0.01,VAL "15":LET v=VAL "-43":PRINT AT z,q;"<17/paper><0> " AND VAL "e<= 2" AND q=b-SGN PI :IF a-z<> 3-e THEN GO TO VAL "2500"
101 IF e THEN GO TO 2*e+128
103 IF POINT (IN l,r) THEN LET p=1:LET n=RND >0.5:PRINT AT a-2,b;"!#";AT a-1,b;"-" AND NOT n;"5" AND n;".";AT a,b;"@A":BEEP 0.005,30:LET e=3:GO TO 150
106 IF POINT (IN j,s) THEN PRINT AT a-2,b;"($";AT a-1,b;":;";AT a,b;"HI":LET e=1:LET p=e:GO TO 150
108 IF POINT (IN k,c) THEN PRINT AT a-2,b;")*";AT a-1,b;"<21/over><0><=";AT a,b;" J":LET e=2:GO TO 150
111 IF POINT (IN h,d) THEN IF SCREEN$ (a,b+2)=" " THEN LET p=NOT p:PRINT AT a-2,b;"<21/over><1>+<21/over><0>+,";AT a-1,b;"<21/over><1>><21/over><0>>?";AT a,b;" MN" AND NOT p;" KL" AND p:LET b=b+1:GO TO 150
113 IF b>t+3 THEN IF POINT (IN g,i) THEN LET b=b-1:LET p=NOT p:PRINT AT a-2,b;"<21/over><1>+<21/over><0>, ";AT a-1,b;"<21/over><1>><21/over><0>? ";AT a,b;"MN " AND NOT p;"KL " AND p
129 LET e=0:GO TO 150
130 IF POINT (IN j,s) THEN GO TO 150
131 PRINT AT a-2,b;"<21/over><1>($<8 left><8 left>+,";AT a-1,b;"<21/over><0>>?";AT a,b;"KL":LET e=0:LET p=1:GO TO 150
132 IF POINT (IN k,c) THEN GO TO 150
133 PRINT AT a-2,b;"+,";AT a-1,b;"<21/over><0><21/over><1><=<8 left><8 left>>?<21/over><0>";AT a,b;"KL":LET e=0:LET p=1:GO TO 150
134 PRINT AT a-2,b;"$ ";AT a-1,b-1;"<21/over><1>/<21/over><0>01" AND NOT n;"<21/over><1>6<21/over><0>71" AND n;AT a,b-1;"<21/over><1>B<21/over><0>CD":BEEP 0.005,40:LET e=4:GO TO 150
136 PRINT AT a-2,b-2;"<21/over><1>%&<21/over><0>," AND NOT n;"<21/over><1> &<21/over><0>," AND n;AT a-1,b-2;"<21/over><1> /<8 left>2<21/over><0>31<8 left>4" AND NOT n;"<21/over><1>86<8 left>9<21/over><0>34" AND n;AT a,b-1;"<21/over><1>B<8 left>E<21/over><0>FG":BEEP 0.005,40:LET e=5:IF b=t+3 AND v<> n+1 THEN GO SUB 400:IF z>20 THEN GO TO 2
137 GO TO 150
138 LET p=1:LET e=-11:PRINT AT a-2,b-2;"<21/over><1>%&<21/over><0>+," AND NOT n;"<21/over><1> &<21/over><0>+," AND n;AT a-1,b-2;"<21/over><1> 2<21/over><0>>?" AND NOT n;"<21/over><1>89<21/over><0>>?" AND n;AT a,b-1;"<21/over><1>E<21/over><0>KL":GO TO 150
150 IF v THEN GO TO 2*v+178
160 IF RND *sk>ve THEN GO TO 100
165 IF t=b-3 THEN GO TO 170
168 IF e<3 THEN LET x=NOT x:PRINT AT z-2,t;" W<21/over><1>X";AT z-1,t;"<21/over><0> j<21/over><1>k";AT z,t;"<21/over><0> z<21/over><1>{" AND NOT x;"<21/over><0> x<21/over><1>y"<21/over><0> AND x:LET t=t+1
169 GO TO 100
171 IF e>= 3 THEN GO TO 176
173 IF q<1 THEN LET f=(e=1)+(INT (RND *2) AND (e=0 OR e>2)):PRINT AT z-2,t;"OP";AT z-1,t;"YZ" AND NOT f;"Ya" AND f;AT z,t;"lm":BEEP 0.005,0:LET v=7-4*POINT (IN l,r):LET q=3+sk/3:GO TO 100
176 LET q=0:IF NOT n THEN PRINT AT z-2,t;"  ";AT z-1,t;"fg";AT z,t;"tu":LET v=1:GO TO 100
178 PRINT AT z-2,t;"UV";AT z-1,t;"hi";AT z,t;"vw":LET v=2:GO TO 100
180 IF e>2 AND NOT n THEN GO TO 100
181 PRINT AT z-2,t;"<21/over><1>WX<21/over><0>";AT z-1,t;"fg<8 left><8 left>jk";AT z,t;"<21/over><0>xy":LET p=1:LET v=0:GO TO 100
182 IF e>2 AND n THEN GO TO 100
183 PRINT AT z-2,t;"<21/over><1>UV<8 left><8 left>WX<21/over><0>";AT z-1,t;"fg<8 left><8 left>jk";AT z,t;"<21/over><0>xy":LET p=1:LET v=0:GO TO 100
184 PRINT AT z-2,t;" Q";AT z-1,t;"[/<21/over><1>]" AND NOT f;"<21/over><0>[b<21/over><1>c" AND f;AT z,t;"<21/over><0>no<21/over><1>p"<21/over><0>:BEEP 0.005,40:LET v=4:GO TO 100
186 PRINT AT z-2,t;" R<21/over><1>ST" AND NOT f;"<21/over><0> R<21/over><1>S" AND f;AT z-1,t;"<21/over><0>^_<21/over><1><ukp><8 left>]" AND NOT f;"<21/over><0>^_<21/over><1>c<8 left>de" AND f;AT z,t;"<21/over><0>qr<21/over><1>p<8 left>s"<21/over><0>:BEEP 0.005,40:LET v=5:IF t=b-3 AND e<> f+1 THEN GO TO 2500
187 LET q=4*(RND >(bd/3)) AND (e=f+1):GO TO 100
188 LET x=1:LET q=q+1:LET v=6:PRINT AT z-2,t;"WX<21/over><1>ST" AND NOT f;"<21/over><0>WX<21/over><1>S" AND f;AT z-1,t;"<21/over><0>jk<21/over><1><ukp>" AND NOT f;"<21/over><0>jk<21/over><1>de" AND f;AT z,t;"<21/over><0>xy<21/over><1>s"<21/over><0>:GO TO 100
190 LET q=q-1:LET v=v AND (q>0):GO TO 100+60*(RND >0.9)
192 LET q=q-1:LET v=7-(4 AND (q<1)):GO TO 100
201 IF e THEN GO TO 2*e+228
203 IF POINT (IN l,r) THEN LET p=1:LET n=RND >0.5:PRINT AT a-2,b;"!#";AT a-1,b;"-";"." AND NOT n;"5" AND n;AT a,b;"@A":BEEP 0.005,30:LET e=3:GO TO 250
206 IF POINT (IN j,s) THEN PRINT AT a-2,b;"$(";AT a-1,b;":;";AT a,b;"HI":LET e=1:LET p=e:GO TO 250
208 IF POINT (IN k,c) THEN PRINT AT a-2,b;")*";AT a-1,b;"<21/over><0><=";AT a,b;"J ":LET e=2:LET p=1:GO TO 250
211 IF b<= t-4 THEN IF POINT (IN h,d) THEN LET p=NOT p:PRINT AT a-2,b;" +<21/over><1>,";AT a-1,b;"<21/over><0> ><21/over><1>?<21/over><0>";AT a,b;" MN" AND NOT p;" KL" AND p:LET b=b+1:GO TO 250
213 IF POINT (IN g,i) THEN IF SCREEN$ (a,b-1)=" " THEN LET b=b-1:LET p=NOT p:PRINT AT a-2,b;"+,<21/over><1>,";AT a-1,b;"<21/over><0>>?<21/over><1>?<21/over><0>";AT a,b;"MN " AND NOT p;"KL " AND p:GO TO 250
229 LET e=0:GO TO 250
230 IF POINT (IN j,s) THEN GO TO 250
231 PRINT AT a-2,b;"<21/over><1>$(<8 left><8 left>+,";AT a-1,b;"<21/over><0>>?";AT a,b;"KL":LET e=0:GO TO 250
232 IF POINT (IN k,c) THEN GO TO 250
233 PRINT AT a-2,b;"+,";AT a-1,b;"<21/over><1><=<8 left><8 left>>?<21/over><0>";AT a,b;"KL":LET e=0:GO TO 250
234 PRINT AT a-2,b;" $";AT a-1,b;"/0<21/over><1>1" AND NOT n;"/6<21/over><1>7" AND n;AT a,b;"<21/over><0>BC<21/over><1>D":BEEP 0.005,40:LET e=4:GO TO 250
236 PRINT AT a-2,b;" %<21/over><1>&," AND NOT n;" %<21/over><1>&" AND n;AT a-1,b;"<21/over><0>23<21/over><1>1<8 left>4" AND NOT n;"<21/over><0>23<21/over><1>7<8 left>89" AND n;AT a,b;"<21/over><0>EF<21/over><1>D<8 left>G":BEEP 0.005,40:LET e=5:IF b=t-3 AND v<> n+1 THEN GO SUB 420:IF z>20 THEN GO TO 2
237 GO TO 250
238 LET e=-11:PRINT AT a-2,b;"+,<21/over><1>&," AND NOT n;"+,<21/over><1>&" AND n;AT a-1,b;"<21/over><0>>?<21/over><1>4" AND NOT n;"<21/over><0>>?<21/over><1>89" AND n;AT a,b;"<21/over><0>KL<21/over><1>G":GO TO 250
250 IF v THEN GO TO 2*v+278
260 IF RND *sk>ve THEN GO TO 200
265 IF t=b+3 THEN GO TO 270
268 IF e<3 THEN LET t=t-1:LET x=NOT x:PRINT AT z-2,t;"WX ";AT z-1,t;"jk ";AT z,t;"z{ " AND NOT x;"xy " AND x
269 GO TO 200
271 IF e>= 3 THEN GO TO 276
273 IF q<1 THEN LET f=(e=1)+(INT (RND *2) AND (e=0 OR e>2)):PRINT AT z-2,t;"OP";AT z-1,t;"YZ" AND NOT f;"aZ" AND f;AT z,t;"lm":BEEP 0.005,0:LET v=7-4*POINT (IN l,r):LET q=3+sk/3:GO TO 200
276 LET q=0:IF NOT n THEN PRINT AT z-2,t;"<21/over><1>WX";AT z-1,t;"<21/over><0>fg";AT z,t;"tu":LET v=1:GO TO 200
278 PRINT AT z-2,t;"<21/over><1>WX<8 left><8 left>UV";AT z-1,t;"<21/over><0>hi";AT z,t;"xy":LET v=2:GO TO 200
280 IF e>2 AND NOT n THEN GO TO 200
281 PRINT AT z-2,t;"<21/over><1>WX";AT z-1,t;"<21/over><0>jk";AT z,t;"xy":LET v=0:LET x=1:GO TO 200
282 IF e>2 AND n THEN GO TO 200
283 PRINT AT z-2,t;"<21/over><1>UV<8 left><8 left>WX";AT z-1,t;"<21/over><1>hi<8 left><8 left>jk<21/over><0>":LET x=1:LET v=0:GO TO 200
284 PRINT AT z-2,t;"Q ";AT z-1,t-1;"<21/over><1>[<21/over><0>/]" AND NOT f;"<21/over><1>b<21/over><0>c]" AND f;AT z,t-1;"<21/over><1>n<21/over><0>op":BEEP 0.005,40:LET v=4:GO TO 200
286 PRINT AT z-2,t-2;"<21/over><1>RS<21/over><0>T " AND NOT f;"<21/over><1> S<21/over><0>T" AND f;AT z-1,t-2;"<21/over><1> [<8 left>^<21/over><0>_<ukp>" AND NOT f;"<21/over><1>db<8 left>e<21/over><0>_<ukp>" AND f;AT z,t-1;"<21/over><1>n<8 left>q<21/over><0>rs":BEEP 0.005,40:LET v=5:IF t=b+3 AND e<> f+1 THEN GO TO 2500
287 LET q=4*(RND >(bd/3)) AND (e=f+1):GO TO 200
288 LET x=1:LET v=6:LET q=q+1:PRINT AT z-2,t-2;"<21/over><1>RS<21/over><0>WX" AND NOT f;"<21/over><1> S<21/over><0>WX" AND f;AT z-1,t-2;"<21/over><1> ^<21/over><0>jk" AND NOT f;"<21/over><1>de<21/over><0>jk" AND f;AT z,t-1;"<21/over><1>q<21/over><0>xy":GO TO 200
290 LET q=q-1:LET v=v AND (q>NOT PI ):GO TO 200+60*(RND >0.9)
292 LET q=q-1:LET v=7-(4 AND (q<1)):GO TO 200
355 IF NOT POINT (IN j,s) THEN GO TO 2
356 IF POINT (IN h,d) THEN LET w=2:GO TO 382
360 IF SCREEN$ (a-3,b-1)=" " THEN IF SCREEN$ (a-3,b)=" " THEN IF SCREEN$ (a-2,b-1)=" " THEN IF SCREEN$ (a-1,b-1)=" " THEN LET a=a-1:LET b=b-1:PRINT AT a-2,b;",-";AT a-1,b;"<7 ";AT a,b;"KL ";AT a+1,b+1;"  ":GO TO 355
365 IF SCREEN$ (a,b-1)="!" THEN LET j$=",-<7KL":GO TO 2600
370 IF SCREEN$ (a-3,b+1)=" " THEN IF SCREEN$ (a-3,b)=" " THEN IF ni<> 11 THEN LET a=a-1:LET p=NOT p:PRINT AT a-2,b;"kl";AT a-1,b;"op" AND p;"qr" AND NOT p;AT a,b;"wx" AND p;"yz" AND NOT p;AT a+1,b;"  ":GO TO 350
371 IF SCREEN$ (a-3,b)=" " THEN IF SCREEN$ (a-3,b+1)=" " THEN LET a=a-1:PRINT AT a-2,b;",-";AT a-1,b;"<7";AT a,b;"KL";AT a+1,b;"  ":GO TO 350
375 GO TO 390
380 IF NOT POINT (IN j,s) THEN GO TO 2
381 IF POINT (IN g,i) THEN LET w=0:GO TO 360
382 IF SCREEN$ (a-3,b+1)=" " THEN IF SCREEN$ (a-3,b+2)=" " THEN IF SCREEN$ (a-2,b+2)=" " THEN IF SCREEN$ (a-1,b+2)=" " THEN LET a=a-1:PRINT AT a-2,b+1;"./";AT a-1,b;" =>";AT a,b;" MN";AT a+1,b;"  ":LET b=b+1:GO TO 380
384 IF SCREEN$ (a,b+2)="!" THEN LET j$="./=>MN":GO TO 2600
385 IF SCREEN$ (a-3,b)=" " THEN IF SCREEN$ (a-3,b+1)=" " THEN IF ni<> 11 THEN LET a=a-1:LET p=NOT p:PRINT AT a-2,b;"mn";AT a-1,b;"st" AND p;"uv" AND NOT p;AT a,b;"{|" AND p;"}~" AND NOT p;AT a+1,b;"  ":GO TO 380
386 IF SCREEN$ (a-3,b)=" " THEN IF SCREEN$ (a-3,b+1)=" " THEN LET a=a-1:PRINT AT a-2,b;"./";AT a-1,b;"=>";AT a,b;"MN";AT a+1,b;"  ":GO TO 380
390 IF SCREEN$ (a-3,b)="!" THEN IF SCREEN$ (a-3,b+1)="!" THEN LET j$=SCREEN$ (a-2,b):GO TO 2850
398 GO TO 19
420 BEEP 0.01,0:BEEP 0.01,20:IF v>= NOT PI  THEN GO SUB VAL "2110+w"
430 IF v<NOT PI  THEN GO SUB VAL "2130"
470 LET ve=ve-SGN PI :GO SUB VAL "3000":GO SUB VAL "9994+w":IF ve THEN RETURN 
475 LET z=a:PRINT AT z-3,t;"  " AND v<0;AT z-2,t;"  ";AT z-1,t;"  ";AT z,t;"  "
480 IF VAL "CODE o$(ni)>= 2 AND CODE o$(ni)<= 7" THEN LET n=VAL "6":GO SUB VAL "9991":PRINT INK CODE o$(ni);AT z-2,t+(w<> NOT PI );"Y";AT z-1,t+(w<> 0);"Z":GO SUB VAL "9998":POKE VAL "23236+CODE o$(ni)",VAL "CODE o$(ni)":FOR f=VAL "-5" TO VAL "15":BEEP 0.01,f:NEXT f:PRINT AT z-2,t;"  ";AT z-1,t;"  "
485 IF CODE o$(ni)=SGN PI  THEN LET vi=PEEK VAL "65533":GO SUB VAL "3000":GO SUB VAL "9997":PRINT AT z-SGN PI ,t+(w<> NOT PI );"<20/inverse><1>E<20/inverse><0>":FOR f=VAL "5" TO VAL "25":BEEP 0.01,f:NEXT f:GO SUB VAL "9998":PRINT AT z-SGN PI ,t;"  "
490 LET o$(ni)=CHR$ NOT PI :LET z=CODE "0":RETURN 
1510 IF j$="!" THEN LET j$=("()89UV" AND w)+("$%45ST" AND NOT w):GO TO VAL "2600"
1520 IF j$="#" THEN IF PEEK (VAL "23236"+ATTR (a,b+f))=ATTR (a,b+f) THEN GO TO VAL "4000"
1590 IF f<0 THEN IF SCREEN$ (a-1,b+f)=" " THEN LET p=NOT p:POKE 23606,16 AND p:PRINT AT a-3,b-1;"$%";AT a-2,b-1;"45 ";AT a-1,b-1;"CD ";AT a,b;"  ":LET a=a-1:LET b=b-1:GO TO 2
1595 IF f>0 THEN IF SCREEN$ (a-1,b+f)=" " THEN LET p=NOT p:POKE 23606,16 AND p:PRINT AT a-3,b+1;"()";AT a-2,b;" 89";AT a-1,b;" GH";AT a,b;"  ":LET a=a-1:LET b=b+1:GO TO 2
1599 GO TO 19
2000 LET p=1:IF w THEN GO TO 2030
2005 FOR n=a TO 19:LET f=b:LET e=POINT (IN g,i):IF e THEN IF SCREEN$ (n-1,b-1)=" " THEN IF SCREEN$ (n,b-1)=" " THEN IF SCREEN$ (n+1,b-1)=" " THEN LET b=b-1:PRINT AT n-2,b+1;"  ";AT n-1,b;"01 ";AT n,b;"?@ ";AT n+1,b;"OP ":IF SCREEN$ (n+2,b)=" " THEN IF SCREEN$ (n+2,b+1)=" " THEN NEXT n
2006 IF e THEN IF SCREEN$ (n,b-1)="!" THEN LET j$=SCREEN$ (n+1,b):LET a=n+(j$<> " "):LET j$="01?@OP":GO TO 2600
2007 IF POINT (IN h,d) THEN PRINT AT n-2,f;"  ";AT n-1,b;"01";AT n,b;"?@";AT n+1,b;"OP":IF SCREEN$ (n+2,b)=" " THEN IF SCREEN$ (n+2,b+1)=" " THEN IF a<18 THEN LET a=n+1:LET w=2:GO TO 2035
2009 PRINT AT n-2,f;"  ";AT n-1,b;"01";AT n,b;"?@";AT n+1,b;"OP":IF SCREEN$ (n+2,b)=" " THEN IF SCREEN$ (n+2,b+1)=" " THEN NEXT n
2010 GO TO 2040
2035 FOR n=a TO 19:LET f=b:LET e=POINT (IN h,d):IF e THEN IF SCREEN$ (n-1,b+2)=" " THEN IF SCREEN$ (n,b+2)=" " THEN IF SCREEN$ (n+1,b+2)=" " THEN PRINT AT n-2,b;"  ";AT n-1,b;" 23";AT n,b;" AB";AT n+1,b;" QR":LET b=b+1:IF SCREEN$ (n+2,b)=" " THEN IF SCREEN$ (n+2,b+1)=" " THEN NEXT n
2036 IF e THEN IF SCREEN$ (a,b+2)="!" THEN LET j$=SCREEN$ (n+1,b):LET a=n+(j$<> " "):LET j$="23ABQR":GO TO 2600
2037 IF POINT (IN g,i) THEN PRINT AT n-2,f;"  ";AT n-1,b;"23";AT n,b;"AB";AT n+1,b;"QR":IF SCREEN$ (n+2,b)=" " THEN IF SCREEN$ (n+2,b+1)=" " THEN IF a<18 THEN LET a=n+1:LET w=0:GO TO 2005
2038 PRINT AT n-2,f;"  ";AT n-1,b;"23";AT n,b;"AB";AT n+1,b;"QR":IF SCREEN$ (n+2,b)=" " THEN IF SCREEN$ (n+2,b+1)=" " THEN NEXT n
2040 LET a=n+1:IF a=19 THEN GO TO 2800
2041 BEEP 0.005,-10:IF a=z-3 AND b>= t-1 AND b<= t+1 THEN GO SUB 2200:GO TO 2000
2043 PRINT AT a-2,b;"()" AND w;"$%" AND NOT w;AT a-1,b;"89" AND w;"45" AND NOT w;AT a,b;"UV" AND w;"ST" AND NOT w
2045 IF z=a THEN IF CODE o$(ni) AND ABS (b-t)<x THEN GO TO 2060
2059 GO TO 2
2060 BEEP 0.005,15:BEEP 0.005,20:BEEP 0.005,5:LET w=VAL "(b<t)*2":GO SUB VAL "9994+w":IF ABS (b-t)<= 2 THEN GO SUB VAL "w+2110"
2070 PRINT AT a-2,b;"+,";AT a-1,b;">?";AT a,b;"KL":LET q=NOT PI :LET e=q:GO TO VAL "100+100*(b<t)"
2110 LET j$=SCREEN$ (a,b+2):LET b=b+(j$=" "):LET j$=SCREEN$ (z,t-1):LET t=t-(j$=" "):PRINT AT a-2,b-1;" +,";AT z-2,t;"WX  ";AT a-1,b-1;" >?";AT z-1,t;"jk  ";AT a,b-1;" KL";AT z,t;"xy  ":LET v=NOT PI :LET e=v:LET q=v:LET p=SGN PI :LET x=p:RETURN 
2120 LET j$=SCREEN$ (a,b-1):LET b=b-(j$=" "):LET j$=SCREEN$ (z,t+2):LET t=t+(j$=" "):LET x=0:PRINT AT a-2,b;"+,  ";AT z-2,t-1;" WX";AT a-1,b;">?  ";AT z-1,t-1;" jk";AT a,b;"KL  ";AT z,t-1;" xy":LET v=NOT PI :LET e=v:LET q=v:LET p=SGN PI :LET x=p:RETURN 
2130 GO SUB VAL "9998":LET j$=SCREEN$ (a,b+2):LET e=(b-t)>3:LET b=b+(j$=" "):PRINT AT a-2,t;"<17/paper><0>YZ";AT a-2,b-2-e;" " AND e;"  $%";AT a-1,t;"ab";AT a-1,b-2-e;" " AND e;"  45";AT a,t;"gh";AT a,b-2;"  ST":GO SUB VAL "9994":LET e=NOT PI :LET p=SGN PI :LET v=-CODE "+":LET x=x+SGN PI: RETURN 
2210 IF b>t THEN GO TO 2250
2220 IF SCREEN$ (z,b+3)=" " THEN IF SCREEN$ (z,t+2)=" " THEN GO TO 2260
2225 PRINT AT z-2,t;"  ";AT z-2,b-2;"[/";AT z-1,t;"  ";AT z-1,b-2;"cd";AT z,t;"  ";AT z,b-2;"ij":LET t=b-2:RETURN 
2255 IF SCREEN$ (z,b-2)=" " THEN IF SCREEN$ (z,t-1)=" " THEN GO TO 2225
2260 PRINT AT z-2,t;"  ";AT z-2,b+2;"WX";AT z-1,t;"  ";AT z-1,b+2;"_<ukp>";AT z,t;"  ";AT z,b+2;"ef":LET t=b+2:RETURN 
2510 BORDER VAL "2":LET vi=vi-SGN PI :GO SUB VAL "3000":BEEP VAL ".1",VAL "-30":BORDER NOT PI :GO SUB VAL "9994+w":IF v>NOT PI  THEN GO SUB VAL "2110+w"
2515 IF v<NOT PI  THEN GO SUB VAL "2130"
2520 IF vi THEN GO TO VAL "100+(w>0)*100"
2589 PRINT AT a-2,b;"  ";AT a-1,b;"  ";AT a,b;"  ":GO SUB VAL "9997":PRINT FN u$(VAL "9"):GO SUB VAL "3000":GO SUB VAL "5000":GO TO VAL "9000"
2610 IF VAL "b<= 1" THEN LET b=VAL "29":LET ni=ni-SGN PI :GO TO VAL "2710"
2620 IF VAL "b>= 29" THEN LET b=SGN PI :LET ni=ni+SGN PI :GO TO VAL "2710"
2622 IF VAL "ni=14" THEN GO TO VAL "8500"
2624 IF VAL "ni=4" THEN GO TO VAL "8000"
2630 LET f=VAL "(ni>= 10 AND ni<= 18) OR ni>= 28":LET ni=VAL "ni-(9 AND f)+(9 AND NOT f)"
2700 LET f=VAL "(ni-1)*14":LET a=VAL "CODE p$(f+13)":LET b=VAL "CODE p$(f+14)":LET w=VAL "2*NOT w":LET j$=("()89UV" AND w)+("$%45ST" AND NOT w)
2710 GO SUB VAL "7000":IF j$(1)>= "," AND j$(1)<= "/" THEN GO TO VAL "350+15*w"
2720 GO TO VAL "2045"
2810 IF (ni-1)/9=INT ((ni-1)/9) THEN IF b<8 THEN LET b=8
2820 LET j$=("01?@OP" AND NOT w)+("23ABQR" AND w):LET a=INT PI :LET ni=ni-VAL "9":GO SUB VAL "7000":GO TO PI 
2860 LET j$=(",-<7KL" AND NOT w AND j$<> "k")+("klopwx" AND j$="k")+("./=>MN" AND w AND j$<> "m")+("mnst{|" AND j$="m"):LET a=VAL "18":LET ni=ni+VAL "9":GO SUB VAL "7000":GO TO VAL "4"
3010 GO SUB VAL "9997":PRINT #NOT PI ;PAPER VAL "7";BRIGHT SGN PI ;INK NOT PI ;AT INT PI ,INT PI -(PEEK VAL "65533">VAL "9");"0" AND (PEEK VAL "65533">VAL "9") AND (vi<= VAL "9");vi;AT INT PI ,VAL "17";INK PI +PI ;PAPER VAL "2";ve:GO SUB VAL "9998":RETURN 
4000 PRINT INK 8;AT a-INT PI ,b+f;" ";AT a-VAL "2",b+f;" ";AT a-SGN PI ,b+f;" ";AT a,b+f;" ":FOR f=NOT PI  TO VAL "-10" STEP -SGN PI :BEEP 0.01,f:NEXT f:LET d$(ni)=" ":IF VAL "ni=5" THEN PAPER NOT PI :GO SUB VAL "9997":PRINT FN u$(PEEK VAL "65532"):GO SUB VAL "9200":GO SUB VAL "5000":GO TO VAL "9000"
4010 IF z=a AND CODE o$(VAL "ni-2*(ni>= 35)") THEN GO TO VAL "2060"
4020 GO TO PI 
5010 IF INKEY$ <> "" THEN GO TO VAL "5010"
5020 LET j$=INKEY$ :IF j$="" THEN GO TO VAL "5020"
5030 BEEP 0.01,10:BEEP 0.01,25:RETURN 
7110 RANDOMIZE :LET f=1+(ni-1)*14:LET z=CODE p$(f+8):LET t=CODE p$(f+9):LET x=CODE p$(f+10):LET ve=(CODE o$(ni)<> 0)*(CODE p$(f+11)):LET n=CODE p$(f+6):GO SUB 9991:LET n=CODE p$(f+4):LET v=CODE p$(f+5)
7200 PAPER 8:PRINT AT NOT PI ,NOT PI ;p$((CODE p$(f)+256*CODE p$(f+1)) TO (CODE p$(f+2)+256*CODE p$(f+3))):IF d$(ni)=" " THEN PRINT AT n,v;" ";AT n+1,v;" ";AT n+2,v;" ";AT n+3,v;" "
7210 IF ni=21 THEN PRINT AT 19,14;"    ":FOR f=23011 TO 23107 STEP 32:POKE f,4:NEXT f
7220 IF ni=22 THEN FOR f=23036 TO 23132 STEP 32:POKE f,7:NEXT f
7230 IF ni=4 THEN FOR f=23043 TO 23107 STEP 32:POKE f,2:NEXT f
7300 GO SUB 9998:IF t<> 4 THEN IF CODE o$(ni) THEN LET v=NOT PI :LET f=VAL "t<15":PRINT AT z-2,t;"[/" AND f;"WX" AND NOT f;AT z-1,t;"cd" AND f;"_<ukp>" AND NOT f;AT z,t;"ij" AND f;"ef" AND NOT f
7301 IF t=4 THEN IF CODE o$(ni) THEN PRINT AT z-3,t;"]^";AT z-2,t;"YZ";AT z-1,t;"ab";AT z,t;"gh":LET v=-44
7305 PRINT AT a-2,b;j$(1 TO 2);AT a-1,b;j$(3 TO 4);AT a,b;j$(5 TO 6):LET p=SGN PI :LET e=NOT PI :LET sk=13-ve-3*bd:GO SUB 3e3:RETURN 
7800 POKE 23659,2:LET n=6:GO SUB 9991:PRINT FN u$(3):LET n=2:GO SUB 9991:PRINT FN u$(11):GO SUB 9997:PRINT #0;FN u$(6):RETURN 
7900 POKE 23659,VAL "4":LET n=VAL "6":GO SUB VAL "9991":PRINT #NOT PI ;FN u$(NOT PI );AT NOT PI ,NOT PI ;INVERSE SGN PI ;OVER SGN PI ;CHR$ VAL "6"+CHR$ VAL "6" AND (VAL "g=31"):GO SUB VAL "9998":GO SUB VAL "3000":RETURN 
8000 RANDOMIZE VAL "(PEEK 23637+256*PEEK 23638)-23759":LET f=VAL "PEEK 23757+256*PEEK 23758":POKE 23757,PEEK 23670:POKE 23758,PEEK 23671:RANDOMIZE f:GO TO VAL "8130"
8010 IF POINT (IN g,i) THEN IF ATTR (9,t-1)=1 THEN LET t=t-1:PRINT AT 9,t;"<16/ink><4>jjj<16/ink><1>m"<16/ink><7>:GO TO 8030
8020 IF POINT (IN h,d) THEN IF ATTR (9,t+3)=1 THEN PRINT AT 9,t;"<16/ink><1>m<16/ink><4>jjj"<16/ink><7>:LET t=t+1
8030 IF POINT (IN j,s) THEN IF ATTR (z-1,15)=1 THEN LET z=z-1:PRINT AT z,15;"<16/ink><4>i";AT z+1,15;"i";AT z+2,15;"i";AT z+3,15;"<16/ink><1>m":GO TO 8050
8040 IF POINT (IN k,c) THEN IF ATTR (z+3,15)=1 THEN PRINT AT z,15;"<16/ink><1>m";AT z+1,15;"<16/ink><4>i";AT z+2,15;"i";AT z+3,15;"i":LET z=z+1
8050 LET f=ATTR (a+w,b+p):LET e=ATTR (a+w,b):LET v=ATTR (a,b+p)
8060 IF f+e+v=3 THEN LET a=a+w:LET b=b+p:PRINT AT a-w,b-p;"<16/ink><1>m";AT a,b;"<16/ink><7>p":GO TO 8010
8070 BEEP 0.005,20:IF f=2 OR e=2 OR v=2 THEN IF e<> 4 THEN BORDER VAL "2":BEEP VAL ".1",VAL "-40":LET ve=ve-SGN PI :PRINT AT VAL "19",ve;" ":BORDER NOT PI :IF NOT ve THEN GO SUB VAL "8190":GO SUB VAL "7000":GO TO PI 
8080 IF e<> 1 THEN LET w=-w:IF e<> 4 AND e<> 2 THEN PRINT AT a-w,1+2*INT ((b-1)/2);"<16/ink><1>mm":LET q=q-1
8090 IF v<> 1 THEN LET p=-p:IF v<> 4 AND v<> 2 THEN PRINT AT a,1+2*INT ((b-p-1)/2);"<16/ink><1>mm":LET q=q-1
8100 IF e+v=2 THEN LET w=-w:LET p=-p:IF f<> 4 AND f<> 2 THEN PRINT AT a-w,1+2*INT ((b-p-1)/2);"<16/ink><1>mm":LET q=q-1
8110 IF q THEN GO TO 8010
8120 LET ve=NOT PI :GO SUB VAL "8190":GO SUB VAL "8200":GO SUB VAL "7000":GO TO PI 
8130 PAPER NOT PI :LET n=INT PI :GO SUB VAL "9991":LET j$="<16/ink><4>jjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjj":PRINT AT NOT PI ,NOT PI ;j$:FOR f=SGN PI  TO VAL "17":PRINT "<16/ink><4>i<16/ink><1>mmmmmmmmmmmmmmmmmmmmmmmmmmmmmm<16/ink><4>i":NEXT f:PRINT j$;"<16/ink><4><16/ink><7>pppppppppppppppppppppppppppppppp"
8140 FOR f=SGN PI  TO VAL "14" STEP VAL "13":FOR n=SGN PI  TO VAL "23" STEP VAL "22":PRINT AT f,n;"<16/ink><2><19/bright><1>kl<16/ink><6/comma>kl<16/ink><4>kl<16/ink><5>kl";AT f+SGN PI ,n;"<16/ink><1>kl<16/ink><7>kl<16/ink><3>kl<16/ink><6/comma>kl";AT f+VAL "2",n;"kl<16/ink><4>kl<16/ink><5>kl<16/ink><2>kl";AT f+PI ,n;"<16/ink><6/comma><16/ink><7>kl<16/ink><1>kl<16/ink><3>kl<16/ink><6/comma>kl":NEXT n:NEXT f
8150 LET q=VAL "64":LET z=PI +PI :LET t=VAL "14":LET a=VAL "10":LET b=VAL "15":LET w=SGN PI :LET p=w:LET ve=CODE " ":PRINT AT z,b;"<16/ink><4>i";AT z+SGN PI ,b;"i";AT z+VAL "2",b;"i";AT VAL "9",t;"jjj";AT VAL "9",VAL "4";"<16/ink><2>no";AT VAL "9",VAL "26";"no":GO TO VAL "8010"
8190 LET a=VAL "18":LET b=VAL "5":LET w=VAL "2":LET j$="()89UV"
8191 POKE 23757,PEEK 23670:POKE 23758,PEEK 23671:RETURN 
8200 LET d$(ni)=" ":POKE VAL "65533",PEEK VAL "65533"+INT PI :LET vi=PEEK VAL "65533":GO SUB VAL "3e3":FOR f=NOT PI  TO CODE " ":BEEP 0.01,f:NEXT f:GO SUB VAL "9998":RETURN 
8500 IF j$(SGN PI )>= "," THEN GO TO PI 
8501 LET n=SGN PI :GO SUB VAL "9991":LET z=VAL "a-1":LET t=b+f:LET x=ATTR (a,b+f):PRINT AT a,b+f;" ":LET f=SGN f
8510 IF VAL "z<19" THEN IF SCREEN$ (z+SGN PI ,t)=" " THEN LET z=z+SGN PI :PRINT AT z-SGN PI ,t;" ";AT z,t;"u" AND f<NOT PI ;"w" AND f>NOT PI :GO TO VAL "8510"
8515 IF VAL "z>= 19 OR ATTR (z+1,t)=x" THEN PRINT AT z,t;" ";AT z+VAL "z<19",t;" ":BEEP VAL ".01",VAL "10":BEEP VAL ".01",CODE " ":GO SUB VAL "9998":GO TO PI 
8520 IF SCREEN$ (z,t+f)=" " THEN LET t=t+f:PRINT AT z,t-f;" ";AT z,t;"u" AND f<NOT PI ;"w" AND f>NOT PI :GO TO VAL "8510"
8530 IF ATTR (z,t+f)=CODE "G" THEN PRINT AT z,t+f;"  ":GO SUB VAL "8200":GO TO PI 
8540 LET f=-f:GO TO VAL "8510"
8910 GO SUB VAL "9200":PAUSE CODE "2":POKE 23739,CODE "POKE ":BORDER NOT PI :PAPER NOT PI :INK VAL "7":BRIGHT NOT PI :POKE 23658,VAL "8":POKE 23675,PEEK 64750:POKE 23676,PEEK 64751
8930 GO SUB VAL "7800":GO SUB VAL "9997":PRINT FN u$(VAL "10")
8940 GO SUB VAL "5e3":LET f=CODE j$-CODE "0":POKE 65532,f:IF VAL "f<1 OR f>2" THEN GO TO VAL "8940"
9005 PAPER NOT PI :GO SUB VAL "7800":GO SUB VAL "9997":PRINT FN u$(VAL "3+PEEK 65532"):IF a THEN GO SUB VAL "9200"
9100 GO SUB 5e5000:IF j$>= "1" AND j$<= "3" THEN LET bd=CODE j$-CODE "1":POKE 65533,9:LET d$="AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA":LET ve=0:LET j$="()89UV":LET w=2:LET a=18:LET b=5:LET vi=9:LET ni=10:FOR f=0 TO 35:LET o$(f+1)=p$(f*14+8):NEXT f:GO SUB 7900:GO SUB 7E7000:GO TO 2
9105 IF j$<> "4" THEN GO TO VAL "9100"
9110 GO SUB VAL "7800":GO SUB VAL "9997":PRINT FN u$(VAL "11+PEEK 65532")
9115 GO SUB VAL "5e3":IF j$<"1" OR j$>"5" THEN GO TO VAL "9115"
9120 LET n=VAL "5*(CODE j$-49)":IF VAL "n<20" THEN GO TO VAL "9170"
9160 PRINT FN u$(VAL "6+PEEK 65532"):FOR f=SGN PI  TO VAL "5":PRINT AT VAL "9+(f*2)",VAL "23";"<18/flash><1> <18/flash><0>"
9165 GO SUB VAL "5e3":IF ((j$<> CHR$ VAL "13") AND (j$<> " ") AND j$<"0") OR (j$>"9" AND j$<"A") OR j$>"Z" THEN GO TO VAL "9165"
9168 PRINT AT VAL "9+(f*2)",VAL "23";(" " AND j$=CHR$ VAL "13");j$ AND j$<> CHR$ VAL "13":LET t$(f)=j$:NEXT f:LET n=NOT PI 
9170 GO SUB VAL "9190":LET g=a:LET i=b:GO SUB VAL "9190":LET h=a:LET d=b:GO SUB VAL "9190":LET j=a:LET s=b:GO SUB VAL "9190":LET k=a:LET c=b:GO SUB VAL "9190":LET l=a:LET r=b:LET a=NOT PI :GO TO VAL "9e3"
9190 LET n=n+SGN PI :IF t$(n)=" " THEN LET a=VAL "32766":LET b=VAL "8":RETURN 
9191 IF t$(n)=CHR$ VAL "13" THEN LET a=VAL "49150":LET b=VAL "8":RETURN 
9199 LET f=VAL "(PEEK 64742+256*PEEK 64743)+2*(CODE t$(n)-48)":LET a=VAL "(254+256*PEEK f)*(31<> PEEK f)+(PEEK f)*(31=PEEK f)":LET b=VAL "PEEK (f+1)":RETURN 
9200 LET q=VAL "(PEEK 23637+256*PEEK 23638)-23759":RANDOMIZE q:LET a=VAL "PEEK 23757+256*PEEK 23758":POKE VAL "23757",PEEK VAL "23670":POKE VAL "23758",PEEK VAL "23671":POKE 23621,CODE "IF ":POKE 23623,-SGN PI :FOR b=VAL "PEEK 64766+256*PEEK 64767" TO VAL "256+PEEK 64764+256*PEEK 64765" STEP VAL "2"
9210 BEEP 0.01*PEEK b,PEEK (b+1):IF INKEY$ ="" THEN NEXT b
9220 RANDOMIZE a:POKE 23757,PEEK 23670:POKE 23758,PEEK 23671:LET a=NOT PI :RETURN 
9991 LET n=64766-2*n:POKE 23606,PEEK n:POKE 23607,PEEK (n+1):RETURN 
9994 LET n=VAL "9":GO TO VAL "9991"
9996 LET n=VAL "10":GO TO VAL "9991"
9997 LET n=VAL "7":GO TO VAL "9991"
9998 LET n=VAL "11":GO TO VAL "9991"


VARIABLES
---------
Var b: Num = 0
Var p: Num = 0
Var a: Num = 0
Var w: Num = 0
Var g: Num = 57342
Var h: Num = 57342
Var i: Num = 9
Var d: Num = 8
Var j: Num = 64510
Var k: Num = 65022
Var l: Num = 32766
Var s: Num = 8
Var c: Num = 8
Var r: Num = 8
Var z: Num = 0
Var t: Num = 0
Var e: Num = 0
Var v: Num = 0
Var x: Num = 0
Var q: Num = 0
Var bd: Num = 0
Var ve: Num = 0
Var vi: Num = 0
Var ni: Num = 0
Var sk: Num = 0
Var t$: Str = "OPQA :;<=>6798058760"
Var p$:

La variable p$ contiene datos de las pantallas y localización de sprites

Tabla de pantallas, significado de los datos:

 DESP INICIO PANTALLA
 DESP FIN PANTALLA
 POS L,C PUERTA    
 FONT
 OBJETO UTIL
 POS L,C ENEM
 ORIENTACION ENEM
 ENERGIA ENEM
 SPAWN PUERTA        
 
INIPAK                  
               W_SC01-INIPAK+1,W_SC02-INIPAK: 000,000,002,006,010,005,015,005,000,000
               W_SC02-INIPAK+1,W_SC03-INIPAK: 000,000,002,001,018,007,007,005,000,000
               W_SC03-INIPAK+1,W_SC04-INIPAK: 000,000,002,001,018,008,008,004,018,025
               W_SC04-INIPAK+1,W_SC05-INIPAK: 015,003,002,001,018,025,008,004,000,000
               W_SC05-INIPAK+1,W_SC06-INIPAK: 000,000,001,001,018,019,016,009,000,000
               W_SC06-INIPAK+1,W_SC07-INIPAK: 000,000,001,000,000,000,000,000,000,000
               W_SC07-INIPAK+1,W_SC08-INIPAK: 000,000,001,000,000,000,000,000,005,012
               W_SC08-INIPAK+1,W_SC09-INIPAK: 000,000,001,000,000,000,000,000,000,000
               W_SC09-INIPAK+1,W_SC10-INIPAK: 000,000,001,001,013,011,032,006,000,000
            
               W_SC10-INIPAK+1,W_SC11-INIPAK: 014,028,005,000,000,000,000,000,000,000
               W_SC11-INIPAK+1,W_SC12-INIPAK: 000,000,004,004,005,025,030,003,000,000
               W_SC12-INIPAK+1,W_SC13-INIPAK: 000,000,004,001,012,005,016,003,018,021
               W_SC13-INIPAK+1,W_SC14-INIPAK: 000,000,001,003,018,003,016,008,000,000
               W_SC14-INIPAK+1,W_SC15-INIPAK: 015,003,001,000,000,000,000,000,000,000
               W_SC15-INIPAK+1,W_SC16-INIPAK: 015,003,001,001,010,020,016,007,000,000
               W_SC16-INIPAK+1,W_SC17-INIPAK: 000,000,001,000,000,000,000,000,018,005
               W_SC17-INIPAK+1,W_SC18-INIPAK: 000,000,001,001,018,005,030,006,000,000
               W_SC18-INIPAK+1,W_SC19-INIPAK: 014,003,005,001,018,025,030,005,000,000
            
               W_SC19-INIPAK+1,W_SC20-INIPAK: 000,000,005,000,000,000,000,000,000,000
               W_SC20-INIPAK+1,W_SC23-INIPAK: 000,000,004,000,000,000,000,000,008,025
               W_SC24-INIPAK+1,W_SC25-INIPAK: 015,003,005,000,000,000,000,000,000,000
               W_SC25-INIPAK+1,W_SC26-INIPAK: 015,028,005,001,018,008,020,007,000,000
               W_SC23-INIPAK+1,W_SC24-INIPAK: 000,000,003,000,000,000,000,000,005,004
               W_SC24-INIPAK+1,W_SC25-INIPAK: 015,003,005,001,018,022,019,007,000,000
               W_SC25-INIPAK+1,W_SC26-INIPAK: 015,028,005,001,018,008,020,005,000,000
               W_SC26-INIPAK+1,W_SC27-INIPAK: 000,000,003,000,000,000,000,000,005,025
               W_SC27-INIPAK+1,W_SC28-INIPAK: 015,003,005,000,000,000,000,000,000,000
            
               W_SC28-INIPAK+1,W_SC29-INIPAK: 015,028,005,000,000,000,000,000,000,000
               W_SC29-INIPAK+1,W_SC30-INIPAK: 000,000,004,002,018,004,032,005,013,026
               W_SC30-INIPAK+1,W_SC31-INIPAK: 000,000,005,000,000,000,000,000,000,000
               W_SC31-INIPAK+1,W_SC32-INIPAK: 000,000,005,000,000,000,000,000,000,000
               W_SC32-INIPAK+1,W_SC35-INIPAK: 000,000,003,005,018,006,008,009,013,006
               W_SC30-INIPAK+1,W_SC31-INIPAK: 000,000,005,000,000,000,000,000,000,000
               W_SC31-INIPAK+1,W_SC32-INIPAK: 000,000,005,000,000,000,000,000,000,000
               W_SC35-INIPAK+1,W_SC36-INIPAK: 000,000,003,007,018,004,032,009,013,025
               W_SC36-INIPAK+1,W_MARK-INIPAK: 015,003,005,000,000,000,000,000,000,000

TABLA CON DESPLAZAMIENTOS DE OTROS TEXTOS IMPRIMIBLES:
            
               W_MARK-INIPAK+1, W_FINES-INIPAK
               W_FINES-INIPAK+1,W_FINEN-INIPAK
               W_FINEN-INIPAK+1,W_TITULO-INIPAK
               W_TITULO-INIPAK+1,W_MENUES-INIPAK
               W_MENUES-INIPAK+1,W_MENUEN-INIPAK
               W_MENUEN-INIPAK+1,W_WORLDXXI-INIPAK
               W_WORLDXXI-INIPAK+1,W_RKEYES-INIPAK
               W_RKEYES-INIPAK+1,W_RKEYEN-INIPAK
               W_RKEYEN-INIPAK+1,W_GOVER-INIPAK
               W_GOVER-INIPAK+1,W_LANG-INIPAK
               W_LANG-INIPAK+1,W_MCTRLES-INIPAK 
               W_MENU-INIPAK+1,W_SC05-INIPAK
               W_MCTRLES-INIPAK+1,W_MCTRLEN-INIPAK 
               W_MCTRLEN-INIPAK+1,FINPAK-INIPAK 

            (datos de las 36 pantallas, menu y marcador)
W_SC01      
W_SC02      
W_SC03      
W_MENU
W_SC04      
W_SC05      
W_SC06      
W_SC07      
W_SC08      
W_SC09      
W_SC10      
W_SC11      
W_SC12      
W_SC13      
W_SC14      
W_SC15      
W_SC16      
W_SC17      
W_SC18      
W_SC19      
W_SC20      
W_SC23      
W_SC24      
W_SC25      
W_SC26      
W_SC27      
W_SC28      
W_SC29      
W_SC30      
W_SC31      
W_SC32      
W_SC35      
W_SC36      
W_MARK      022,000,000
            (datos marcador)
            
            
W_FINES     022,008,000
            019,001,016,000,017,007
            006,006
            023,008,000
            ">LO CONSEGUISTE!",006
            006,006
            "  LUEGO DE RESCATAR A TU AMIGO,",006
            "     EL HONOR DE WUDANG FUE",006
            "    RECUPERADO Y EL EMPERADOR",006
            "    ABANDONAR# LA PERSECUCI&N",006
            023,010,000,"DEL TAO%SMO.",006
            006,006

W_FINEN     022,008,000
            019,001,016,000,017,007
            006,006
            023,011,000
            "YOU MADE IT!",006
            006,006
            "   BY SAVING YOUR FRIEND, THE",006
            "  HONOR OF WUDANG WAS RESTORED",006
            "  AND THE EMPEROR WILL STOP THE",006
            "     PERSECUTION OF TAOISM.",006
            006,006
W_TITULO
            022,000,000
            016,007
            019,001
            023,009,000,"./01 23456789",006
            023,009,000,"CDEFGHIJKLMNO",006


W_MENUES    016,005
            022,005,010,"1-F#CIL"
            022,006,010,"2-NORMAL"
            022,007,010,"3-DIF%CIL"
            022,009,010,"4-CONTROLES"


W_MENUEN    016,005
            022,005,010,"1-EASY"
            022,006,010,"2-NORMAL"
            022,007,010,"3-HARD"
            022,009,010,"4-CONTROLS"

W_WORLDXXI  
            022,000,000
            016,002
            006,006
            "     2020 WORLD XXI SOFT INC. "
W_RKEYES    
            016,005
            022,011,009,"IZQUIERDA",023,023,000
            022,012,009,023,023,000
            022,013,009,"DERECHA",023,023,000
            022,014,009,023,023,000
            022,015,009,"ARRIBA",023,023,000
            022,016,009,023,023,000
            022,017,009,"ABAJO",023,023,000
            022,018,009,023,023,000
            022,019,009,"DISPARO",023,023,000
            022,020,009,023,023,000
W_RKEYEN    
            016,005

            022,011,009,"LEFT",023,023,000
            022,012,009,023,023,000
            022,013,009,"RIGHT",023,023,000
            022,014,009,023,023,000
            022,015,009,"UP",023,023,000
            022,016,009,023,023,000
            022,017,009,"DOWN",023,023,000
            022,018,009,023,023,000
            022,019,009,"FIRE",023,023,000
            022,020,009,023,023,000

W_GOVER     
            016,000,017,006,019,000
            022,010,010,023,021,000
            022,011,010," GAME OVER "
            022,012,010,023,021,000
W_LANG      
            022,006,010
            016,005
            "1 - ESPA'OL"
            022,008,010
            "2 - ENGLISH"

W_MCTRLES   016,005
            022,004,011,"1-TECLADO"
            022,005,011,"2-KEMPSTON"
            022,006,011,"3-SINCLAIR"
            022,007,011,"4-CURSOR"
            022,008,011,"5-DEFINIR"
            022,009,013,"TECLAS"

W_MCTRLEN   016,005
            022,004,011,"1-KEYBOARD"
            022,005,011,"2-KEMPSTON"
            022,006,011,"3-SINCLAIR"
            022,007,011,"4-CURSOR"
            022,008,011,"5-DEFINE"
            022,009,013,"KEYS"
FINPAK            



Contenidos de dirección 57800 en adelante
-----------------------------------------
W_MUSIC
            60,26
            8,21
            8,24
            60,26
            8,21
            8,24
            60,26
            8,21
            8,24
            60,26
            8,21
            8,24
            8,26
            8,24
            8,21
            8,24
            8,26
            8,24
            8,21
            8,24
            8,26
            8,24
            8,21
            8,24
            8,26
            8,24
            8,21
            8,24
            18,26
            8,24
            8,26
            18,26
            8,24
            8,26
            18,26
            8,24
            8,26
            18,26
            8,24
            8,26
            18,14
            18,21
            18,17
            18,14
            18,21
            18,26
            18,24
            18,21
            8,19
            8,21
            8,19
            8,17
            8,19
            8,21
            8,19
            8,17
            8,19
            8,21
            8,19
            8,17
            8,19
            8,21
            8,19
            8,17
            18,14
            18,21
            18,17
            18,14
            18,21
            18,26
            18,24
            18,21
            8,19
            8,21
            8,19
            8,17
            8,19
            8,21
            8,19
            8,17
            8,19
            8,21
            8,19
            8,17
            8,19
            8,21
            8,19
            8,17
            60,19
            8,14
            8,17
            60,19
            8,14
            8,17
            60,19
            8,14
            8,17
            60,19
            8,14
            8,17
            8,19
            8,21
            8,19
            8,17
            8,19
            8,21
            8,19
            8,17
            8,19
            8,21
            8,19
            8,17
            8,19
            8,21
            8,19
            8,17
            18,19
            8,17
            8,19
            18,19
            8,17
            8,19
            18,19
            8,17
            8,19
            18,19
            8,17
            8,19
            39,14
            39,26
            39,24
            39,21
            39,19
            39,24
            39,21
            39,17
            39,14
            39,26
            39,24
            39,21
            39,19
            39,24
            39,21
            39,17
            60,14
            8,17
            8,19
            60,14
            8,17
            8,19
            60,14
            8,17
            8,19
            60,14
            8,17
            8,19
            8,14
            8,19
            8,17
            8,19
            8,14
            8,19
            8,17
            8,19
            8,14
            8,19
            8,17
            8,19
            8,14
            8,19
            8,17
            8,19
            39,14
            18,14
            18,14
            81,14
            39,21
            29,26
            8,29
            60,24
            18,21
            18,24
            18,26
            5,29
            5,33
            5,29
            5,33
            5,29
            5,33
            5,29
            5,33
            81,26
            39,21
            29,26
            8,29
            60,24
            18,21
            18,19
            18,21
            18,26
            5,24
            5,28
            5,24
            5,28
            81,21
            39,24
            29,26
            8,29
            60,17
            18,14
            18,19
            18,21
            18,26
            5,24
            5,28
            5,24
            5,28
            60,21
            18,19
            18,17
            18,19
            18,21
            18,24
            39,26
            39,14
            18,19
            18,21
            18,17
            5,21
            5,17
            5,21
            5,17
            81,14
            18,21
            8,21
            8,21
            18,26
            18,29
            18,24
            8,24
            8,24
            18,24
            18,21
            18,24
            8,24
            8,26
            18,29
            8,31
            8,29
            18,26
            8,26
            8,26
            18,26
            18,14
            18,21
            8,21
            8,21
            18,26
            18,29
            18,24
            8,24
            8,24
            18,24
            18,21
            18,19
            8,19
            8,21
            18,26
            18,24
            18,21
            8,21
            8,24
            18,21
            18,14
            18,24
            8,24
            8,24
            18,26
            18,29
            18,17
            8,17
            8,17
            18,17
            18,14
            18,19
            8,19
            8,21
            18,26
            18,24
            18,21
            8,21
            8,24
            18,21
            18,19
            8,17
            8,14
            8,17
            8,19
            8,21
            8,19
            8,21
            8,24
            8,26
            8,24
            8,26
            8,29
            8,24
            8,26
            8,24
            8,21
            8,19
            8,21
            8,19
            8,17
            8,19
            8,17
            8,14
            8,17
            39,14
            12,26
            
W_G_CAVERN  (font caverna)
W_G_BOSQUE  (font bosque)
W_G_FEUDAL  (font feudal)
W_G_TEMPLO  (font templo)
W_G_TECHOS  (font techos)
W_G_UDGSCR  (udgs universales)
W_G_MARCAD  (font marcador)
W_G_FONT    (font letras)
W_G_SPRCIZ  (font combate izquierda)
W_G_SPRCDE  (font combate derecha)

W_G_KEYB    (definicion de teclas, semifilas, lineas)
            239,39-39+8
            247,39-39+8
            247,39-38+8
            247,39-37+8
            247,39-36+8
            247,39-35+8
            239,39-35+8
            239,39-36+8
            239,39-37+8
            239,39-38+8
            031,009
            031,008
            031,011
            031,010
            031,012
            0,0
            0,0
            253,39-39+8
            127,39-35+8
            254,39-36+8
            253,39-37+8
            251,39-37+8
            253,39-36+8
            253,39-35+8
            191,39-35+8
            223,39-37+8
            191,39-36+8
            191,39-37+8
            191,39-38+8
            127,39-37+8
            127,39-36+8
            223,39-38+8
            223,39-39+8
            251,39-39+8
            251,39-36+8
            253,39-38+8
            251,39-35+8
            223,39-36+8
            254,39-35+8
            251,39-38+8
            254,39-37+8
            223,39-35+8
            254,39-38+8
            
            
            (tabla de desplazamientos en dos bytes)

            65536-(FINGRAF-W_G_KEYB)		; ELEMENTO 12
            65536-(FINGRAF-W_G_SPRROA)-256	; ELEMENTO 11
            65536-(FINGRAF-W_G_SPRCDE)-256
            65536-(FINGRAF-W_G_SPRCIZ)-256
            65536-(FINGRAF-W_G_UDGSCR)
            65536-(FINGRAF-W_G_FONT)-256
            65536-(FINGRAF-W_G_MARCAD)-256 	;ELEMENTO 6
            65536-(FINGRAF-W_G_TECHOS)-256
            65536-(FINGRAF-W_G_TEMPLO)-256
            65536-(FINGRAF-W_G_FEUDAL)-256
            65536-(FINGRAF-W_G_BOSQUE)-256
            65536-(FINGRAF-W_G_CAVERN)-256              
            65536-(FINGRAF-W_MUSIC)        	; ELEMENTO 0
            
W_G_SPRROA  (font sprites fuera de combate)
W_G_SPRROAL 
FINGRAF

