3d.bas %Z%0:1:0: '3:8:a=714:a,9 ;" ":a:8:5,10 ;"___ ___ ___ ":6,8;"___|___|___|___":7,7;"__|___|___|___|___":8,8;"__";8,22;"__":9 ,7;"__|";9 ,22;"|__":10 ,8;"__";10 ,22;"__":11 ,7;"__|";11 ,22;"|__":12 ,8;"__";12 ,22;"__":13 ,7;"__|";13 ,22;"|__":14,8;"___|___|___|___":15,9 ;"|___|___|___|_" 0,29;6;"N";1,29;4;"|";6;2,27;"O";4;"-X-";6;"E";3,29;4;"|";4,29;6;"S" a(20,20) Hb=120:c=120:d=(*4):a(b,c)=d:c:b (a(8,7)=5 dinicializamos variables n/x=10 :y=10 :p=1:1000 xrutina movimiento s$= s$="a"141+p 150 *x=x-(a(x-1,y)<5):1000 *y=y-(a(x,y-1)<5):1000 *x=x+(a(x+1,y)<5):1000 *y=y+(a(x,y+1)<5):1000 s$="d"151+p 160 *x=x+(a(x+1,y)<5):1000 *y=y+(a(x,y+1)<5):1000 *x=x-(a(x-1,y)<5):1000 *y=y-(a(x,y-1)<5):1000 s$="w"161+p 170 *y=y-(a(x,y-1)<5):1000 *x=x+(a(x+1,y)<5):1000 *y=y+(a(x,y+1)<5):1000 *x=x-(a(x-1,y)<5):1000 s$="s"171+p 180 *y=y+(a(x,y+1)<5):1000 *x=x-(a(x-1,y)<5):1000 *y=y-(a(x,y-1)<5):1000 *x=x+(a(x+1,y)<5):1000 !s$="q"p=p-1:1000 !s$="e"p=p+1:1000 130 rutina de vision "x<3x=3:1090B "y<3y=3:1090B $x>17x=17:1090B $y>17y=17:1090B B 1092D D(1093E+p) Ep=4:1100L I 1100L J p=1 L(1100L+p) M0,29;6;"N";1,29;4;"|";6;2,27;"O";4;"-X-";6;"E";3,29;4;"|";4,29;6;"S":pa=(2010-(a(x-1,y-2))):pb=(2020-(a(x,y-2))):pc=(2030-(a(x+1,y-2))):pd=(2040-(a(x-1,y-1))):pe=(2050-(a(x+1,y-1))):pf=(2060 -(a(x,y-1))):pg=(2070-(a(x-1,y))):ph=(2080 -(a(x+1,y))):pj=(2090*-(a(x,y))):1200 N0,29;6;"O";1,29;4;"|";6;2,27;"S";4;"-X-";6;"N";3,29;4;"|";4,29;6;"E":pa=(2010-(a(x+2,y-1))):pb=(2020-(a(x+2,y))):pc=(2030-(a(x+2,y+1))):pd=(2040-(a(x+1,y-1))):pe=(2050-(a(x+1,y+1))):pf=(2060 -(a(x+1,y))):pg=(2070-(a(x,y-1))):ph=(2080 -(a(x,y+1))):pj=(2090*-(a(x,y))):1200 O0,29;6;"S";1,29;4;"|";6;2,27;"E";4;"-X-";6;"O";3,29;4;"|";4,29;6;"N":pa=(2010-(a(x+1,y+2))):pb=(2020-(a(x,y+2))):pc=(2030-(a(x-1,y+2))):pd=(2040-(a(x+1,y+1))):pe=(2050-(a(x-1,y+1))):pf=(2060 -(a(x,y+1))):pg=(2070-(a(x+1,y))):ph=(2080 -(a(x-1,y))):pj=(2090*-(a(x,y))):1200 P0,29;6;"E";1,29;4;"|";6;2,27;"N";4;"-X-";6;"S";3,29;4;"|";4,29;6;"O":pa=(2010-(a(x-2,y+1))):pb=(2020-(a(x-2,y))):pc=(2030-(a(x-2,y-1))):pd=(2040-(a(x-1,y+1))):pe=(2050-(a(x-1,y-1))):pf=(2060 -(a(x-1,y))):pg=(2070-(a(x,y+1))):ph=(2080 -(a(x,y-1))):pj=(2090*-(a(x,y)))  7 "8,10 ;" " "9 ,10 ;" "  6 #10 ,10 ;" " #11 ,10 ;" " #12 ,10 ;" " #13 ,10 ;" "  8 pa -9 ,13 ;3;" ":2010  2010 ,9 ,14;4;".":2010 @8,13 ;4;"";9 ,14;2;"" pb -9 ,15;3;" ":2020  2020 ,9 ,16;4;".":2020 @8,15;4;"";9 ,16;2;"" pc -9 ,17;3;" ":2030  2030 ,9 ,18;4;".":2030 @8,17;4;"";9 ,18;2;"" pd 8,10 ;3;3;" ";8;"";9 ,10 ;3;" ";10 ,10 ;" ";8;"";11 ,10 ;3;" ";8;""  2040 -11 ,13 ;4;"":2040 s8,10 ;4;"";9 ,10 ;"";10 ,11 ;2;"";11 ,11 ;"" pe 8,17;3;"";3;" ";9 ,17;" ";8;10 ,17;"";3;" ";11 ,18;8;"";3;" "  2050 -11 ,19;4;"":2050 s8,18;4;"";9 ,18;"";10 ,19;2;"";11 ,19;"" pf x8,13 ;3;" ";9 ,13 ;" ";10 ,13 ;" ";11 ,13 ;" "  2060   -11 ,16;4;"":2060   s8,14;4;"";9 ,14;"";10 ,15;2;"";11 ,15;""  pg 8,10 ;3;3;" ";9 ,10 ;" ";10 ,10 ;" ";11 ,10 ;" ";12 ,10 ;" ";8;"";13 ,10 ;3;"";8;""  2070 -13 ,12 ;4;"":2070 8,10 ;4;"";9 ,10 ;"";2;"";10 ,10 ;"";11 ,10 ;"";12 ,10 ;"";13 ,10 ;"" ph 8,19;3;3;" ";9 ,19;" ";10 ,19;" ";11 ,19;" ";12 ,19;8;"";3;" ";13 ,20;8;"";3;" "  2080  -13 ,20;4;"":2080  r8,19;4;"";9 ,19;"";10 ,20;2;"";11 ,21;""  Pj ' 2090* (-13 ,16;4;"":2090* )8,13 ;4;"";9 ,13 ;"";2;"";10 ,14;"";11 ,15;"";12 ,16;"";13 ,16;"" *_0,0;7;"X: ";x;" ";1,0;"Y: ";y;" ";2,0;"P: ";p 4 130 dxy p )S