ZXTape! 0Created with BASin Release 13apacman  PAC-MAN E.MENA 1984 .1}L,30 "G.Def""a" ( 29999/u 2"laberinto"31000y <-n=60<0-5:.01z# >,n:n F4:4: P51;1;10 ,9 ;"PARA LA CINTA" Z 9000(# _ s=2 dx(s):y(s):a(s):b(s) nam=0:x=15:y=13 :a=x:b=y:m1=0:b$="":a$=b$:g=240:LET w$="" x300000u n=1s 8x(n)=(*29+1):y(n)=(*19+1) "(y(n),x(n))513140 a(n)=x(n):b(n)=y(n) n;6;y(n),x(n);"" .1}L,n*9 :n J(x,y)=1.01z# >,30:m=m+1:m=364l1000 7;6;b,a;" " 0;6;y,x;a$ a=x:b=y n=1s g Mx(n)=x(n)+1:g=240:(y(n),x(n))=33!x(n)=a(n):280 3106 Mx(n)=x(n)-1:g=260:(y(n),x(n))=33!x(n)=a(n):240  3106 My(n)=y(n)+1:g=280:(y(n),x(n))=33!y(n)=b(n):300, " 3106 ,My(n)=y(n)-1:g=300,:(y(n),x(n))=33!y(n)=b(n):260 6v=(y(n),x(n)) @*v=557w$=" ":i=7:350^ J*v=513w$="":i=3:350^ TV=4802000 ^'x(n)=0x(n)=31x(n)=a(n) cI;6;B(N),A(N);W$ hN;6;Y(N),X(N);"" rA(N)=X(N):B(N)=Y(N) |N =""420 '="2"y=y-1:B$="":410 '="s"y=y+1:b$="":410 '="q"x=x-1:b$="":410 ="e"x=x+1:b$="" (y,x)=33!x=a:y=b :m1=m1+1:m1=2m1=0:a$="":440 a$=b$ "x>31x=0:190 x<0x=31  190 ?7;1;1;10 ,8;"LO CONSEGUISTE"  N=1s -l=60<0-5:.01z# >,l:l n s=s+1:100d ,n=60<0-1:.1}L,n:n P:1;1;7;10 ,1;"TE HAN DEVORADO LOS FANTASMAS" 10 :.1}L,40( K2;7;1;20,3;"PULSA UNA TECLA PARA JUGAR" 0:95_ pgraficos definidos z<a1=11111111:a2=01111110~:a3=00111100< #6050:n=17:a$ %l=07:a:a$+l,a:l:n "G.Def""a",568 "a",a3,a2,a1,a1,a1,a1,a2,a3 7"b",a3,a2,a1,11111000,11110000,a1,a2,a3 7"c",a3,a2,a1,00011111,00001111,a1,a2,a3 7"d",a3,a2,a1,11011011,11011011,a1,a1,a1 ^"e",00100100$,01100110f,11100111,11100111,11110111,a1,a2,a3 ^"f",a3,a2,a1,11101111,11100111,11100111,01100110f,00100100$ K"g",0,0,00011000,a3,a3,00011000,0,0 X laberinto bh"11111111111111111111111111111111":"10000000011111111111111000000001":"10110101010000011000001010101101":"10000101000111000011100010100001":"11101101010000011000001010110111":"10000000010111011011101000000001":"10111101000000011000000010111101":"10000001111101000010111110000001":"11110100000001011010000000101111":"10000101011111000011111010100001" l10 ,0;"10101101000000011000000010110101":"00101101111011111111011110110100":"10000000000000011000000000000001":"11101111011011000011011011110111":"10000000000000011000000000000001":"10111011111110111101111111011101":"10001010000010000001000001010001":"10101010111000111100011101010101":"10100000000010000001000000000101":"10101011101110110101110111010101":"10001000000000000100000000010001":"11111111111111111111111111111111"; v(n=021:l=031 +(n,l)="1"1;n,l;" ":7060 3;6;n,l;"" l:n "laberinto": #'pintar laberinto #('9020<#:n=300000u30011;u #2 a:n,a:n: #