MV - CPCEMU / 29 Mar 98 00:23 (Track-Info  R)))))))))3DLAB BASq --------------------------------- DATASF a-z MAP(2,L)P x  L &Z  2(, ,))d () map( , )fn ,     salt( )    ( ) ;x ""; ""; ""; ""; ""; ""; ""; ""; ""; ""; ""; ""; ""; ""; ""; ""; "";" "";, "";6 "";@ "";J "";T "";^ "";h "";r "";| ""; ""; ""; ""3DLAB BASp77Q **************************************************************************Q* LABERINTO TRIDIMENSIONAL POR: Pablo Quintero Fernandez *Q* AUTOMATIC CROWN 1992 *Q(**************************************************************************2 B,, Q<-----------------------------------Track-Info  R; ""; ""; ""; ""; ""; ""; ""; ""; "";\ "";f ""Lp 324,264,210,162,120,84,53,30,12,0,"Norte.","Este. ","Sur. ","Oeste."Rz-----------------------------------------------------------------Dibuja lab^ ,  "Direccion:";   ( orien)   , "X:";   "##"; x;T   " Y:";  "##"; y map( x, y) ,,  ,,9 x y"; ""; ""; ""; "";& "";0 "";: "";D "";N " orien   :  x& yD orien   @ fina S   CEN( ) S$ S FINA FINA.    fina y+  & finaL y#  FINA salt( ) salt( )ffff x salt( ) y salt( )ffff x  y  xn x x yn y y+ ";X "";b "";l "";v ""; ""; ""; ""; "";  f  f,   f  fa IZ( ) FINA x,  xn, y x, y xn, yn IZ( ) f FINA xn, y xn, yn x, yn x, y x,  x, y xn, y] de( ) FINA ,  x, y , y x, yn de( ) f FINA x, y x, yn , yn ""; ""; ""; ""; ""; ""; ""; ""; " , y ,  , y x, y$ iz( )  fina x salt( ) x x x x, xffff , xffffp. de( )  fina x salt( ) x, xffff , xffff8 iz( fina) de( fina) fina x, y xn, y xn, yn x, ynB iz( fina)  de( fina) fina x"; "";  ""; "";  "";* "";4 "";> "";H "";R "Track-Info  R, y x, y x, yn x, ynL iz( fina)  de( fina) fina xn, y x, y x, yn xn, yn xn, yV iz( fina)  de( fina) fina x, y , y x, yn , yn!`  x y,j  fina t   .t x xn xf x y y@~ xn, y xn, yn x, yn pas x, y orien pas y0 x) orien pas2 x0 yA orien pasL y orien "1 cont y y pas x iz( cont) map( x, ) cen( cont) map( x, ) de( cont) map( x, )% cont cont  z" orien J,, cont x x pasx6 iz( cont) map( , y) cen(  x, yne bu   xn, salt( bu)ffff, x, salt( bu)ffff,J xn, salt()ffff, x, salt( bu)ffff,K xn, salt( )ffff, x, salt( )ffff,6 x xn x( x) y y& x xn x xn y y$ x, x, y, ,: x, y ( x), y x x,$ x,  ( X), cont) map( , y) de( cont) map( , y)%@ cont cont  zJ orien r,T cont y y pasx^ iz( cont) map( x, ) cen( cont) map( x, ) de( cont) map( x, )%h cont cont  z1r cont x x pas x| iz( cont) map( , y) cen( cont) map( , y) de( cont) map( , y)% cont N x, x, y, xf, y xf, x, y # x, y xf, y,.     0   & K Q -------------------------------------------------------- ESPERA MOVIMIENTOQ () orien orien orien orien   Q () orien orien orien orien   0( () orien  02 () cont  zQ----------------------------------------------------------- MENU PRINCIPAL    ,    ,  , , , ,  , , ,  ,  ,   ,  ,   , , , , L #,, ,,  #,,!,,   , "Automatic Crown"  , "presenta"+  , "Laberinto Tridimensional"   , "POR:",  ,  "Pablo Quintero Fernandez".  , "ENTRADA:"; orien  0< () orien  0F () orien  0P () orien  0Z () orien  0d () orien  0n () orien  x ( ) N (<) L ()x ()x     ,  , , ,     {     ,  "No puedes.";  "1" 2  , "[RETURN]";  " para Jugar."P""C "" "." "-" "+" "&" 2 ()  , "1" $  , "2"  ( ) & ()"L" p  T&   , , , , #,,(,, #,,(,,  #, 0 xjum@ >,j:  & x& K yK orien   x  y orien/D    , " CCE. ";  {(,);" ";   ~ & K   ,  "No puedes.";    , " CCE. ";  {(,);" "; K  map( , )  ,  "No puedes.";    , " CCE. ";  {(,);" "; x y  7 x y map( x, y)Q----------------------------------------------------------ORIENTA EL PLANOL x  y  pas x orieTrack-Info  R   , "CCE. ";  {(,) QN--------------------------------------------------------------Imprime Mapa7X orien   orien 7b orien   orien 'l c x c x(v c y c y  c c c6 c68# c c c c< x y #, #,( ); 2 map( , ) 0) #, ,  19,50,106,253,40,1,1,4,89,239,30,95,319,50,106,253,40  ; ,190,30,1,1,4,89,239,30,95,319,50,106,253,40Qp--------------------------------------------------------------------- LOAD`z #,,,, # #,  #,"N. Load:",nam nam"" (nam) zD nam".lab" #, , , orien x  y ? @ #, n(u(,)) n(y(,)) map( n, n) #, #,();1 map( , ) #, #,();* map( , ) #,( );   ( )   Q-------------------------------------------------------------------- FINAL` ,,,   ,,E(,,, ,,E(,,,  E ,   ,,@,],Q,Y,Q,@, ,,,J,j,Z,J,, ,,,t,,g,,, ,,,,,,,, , ,0,\,z,_,>,0, 1()()c   , , , , #,,(,, #,,(,,  #,  >, DQ--------------------------------------------------------------------- SAVEL ,   "N. Save:",nam nam"" (nam) L nam".lab" #, x, y, orien  L  2! map( , ) V nx (  ) nx nx  ny (  ) ny ny K( nx0)( nx0)( ny0)( ny()()()5 ,,,,,,2 ,,X,,,,      j +  ,d  ;  ;=* ,d {(, );  ,d "Por FIN!";54 f ,,, ,,,  ,,,,,,>  H n, n, 2R , n, ,, , n, ,, ,,,W\    ,,,,, ,?,,,, ,,,,, Pf 60,239,60,80,190,20,71,179,20,80,190,20,1,1,40,60,239,60,80,190,20,71,179,20,80,190,20,1,1,10,80,190,10,80,190,10,71,179,20,80,190,20,1,1,10,80,190,10,80,190,10,71,179,20,80,190,30,1,1,4,89,239,30,95,319,50,106,253,40Qp--------------------------------------------------------------------- LOAD`z #,,,, # #,  #,"N. Load:",nam nam"" (nam) zD nam".lab" #, , , orien x  y ? @ #, n(u(,)) n(y(,)) map( n, n)c   , , , , #,,(,, #,,(,,  #,  >, DQ--------------------------------------------------------------------- SAVEL ,   "N. Save:",nam nam"" (nam) L nam".lab" #, x, y, orien  L  2! map( , ) V nx (  ) nx nx  ny (  ) ny ny K( nx0)( nx0)( ny0)( nyTrack-Info  RTrack-Info  RTrack-Info  RTrack-Info  RTrack-Info  RTrack-Info  R         Track-Info  R         Track-Info  R         Track-Info  R         Track-Info  R         Track-Info  RTrack-Info  RTrack-Info  RTrack-Info  RTrack-Info  RTrack-Info  RTrack-Info  RTrack-Info  RTrack-Info  RTrack-Info  RTrack-Info  RTrack-Info  RTrack-Info  RTrack-Info  RTrack-Info  RTrack-Info  RTrack-Info  RTrack-Info  RTrack-Info  R         Track-Info ! R!!!!!!!!!Track-Info " R"""""""""Track-Info # R#########Track-Info $ R$$$$$$$$$Track-Info % R%%%%%%%%%Track-Info & R&&&&&&&&&Track-Info ' R'''''''''