HEROKIT2 /8􅏩8 21 49899肼:""  9996 ' ;23658j\,8:0:7:1:1: q醅0,0;" ";2;"A";6;"L";4;"E";5;"A";7;"soft 1992.CREADOR DE RETOS" (4醅1,0;" DE HEROQUEST PARA SPECTRUM 48K" 2*醅3,9 ;3;"ELIJA OPCION" <醅5,6;"1-VER MAPA.";6,6;"2-VER TEXTO.";7,6;"3-EDITAR MAPA.";8,6;"4-EDITAR TEXTO.";9 ,6;"5-GRABAR RETO.";10 ,6;"6-CARGAR RETO.";11 ,6;"7-NUEVO RETO.";12 ,6;"8-ACABAR SESION." F馡$=:鶬$<"1"臝$>"8"遂70F P鶬$="4"隧1000:21 Z 鶬$="8"蒜 d 鶬$="2"隧1300:1200 n鶬$="5"隧1400x:21 x鶬$="6"隧1700 鶬$="1"隧3000 鶬$="3"隧4000  21  &0:7:1:1:  1300 駃$= aI$=4笋DIR=DIRINI:鬌IR,251:鬌IR+1,3:鬌IR+2,250 :1000 Ri$=14唆dir,95_:馾ir=dir+1:" ";:.05|L烫,0:1030 L鷌$="."唆dir,58::馾ir=dir+1:".";:.05|L烫,0:1030  L鷌$=","唆dir,59;:馾ir=dir+1:",";:.05|L烫,0:1030 $\i$>64@漂i$<91[缩i$;:鬱ir,(痠$):馾ir=dir+1:.05|L烫,0 :1030 .\i$>47/漂i$<58:缩i$;:鬱ir,(痠$):馾ir=dir+1:.05|L烫,0 :1030 84I$=5唆DIR,250:馜IRFIN=DIR:1200 L鶬$="`"隧1140t VI$=172隧1160 `踣1;" ";8; j 1030 t27:0:馡$=:鶬$<"0"纽>"7"遂1140t ~A鬌IR,251:鬌IR+1,癐$:馜IR=DIR+2:1:侔I$: "COL-";CL;" FIL-";FL ;鶦L>31臗L<0臚L>21臚L<0遂1160  " ";現L,CL; 鬌IR,255:鬌IR+1,CL:鬌IR+2,FL:馜IR=DIR+3: " ":馜IR=DIRFIN 癆#0;7;" PULSE UNA TECLA PARA CONTINUA ":0: :隺=5120052000 : .a=251笋dir=a::馜IRINI=DIR:1310 Y骯:醅0,0;1;" TEXTO NO ENCONTRADO EN DATOS ":1200::30 DIR=250 笋DIRFIN=DIR: (=DIR=251速(DIR+1):馜IR=DIR+2:1310 2NDIR=255缩(DIR+2),(DIR+1);:馜IR=DIR+3:1310 <2DIR=95_缩" ";:馜IR=DIR+1:1310 >2DIR=59;缩",";:馜IR=DIR+1:1310 @2DIR=58:缩".";:馜IR=DIR+1:1310 F'趼(綝IR);:馜IR=DIR+1:1310 x 7: 4醅0,0;" GRABACION DE RETO CREADO. " ,49986B,251:49987C,3 朜醅2,0;"INTRODUCE EL NOMBRE.(MAX 8 car.)""";1;" ";8; 隺=18 駃$=:鷌$=""遂1450 .05|L烫,0 確i$=12 芶>1笋A=A-1:" ";8;8;1;" ";8;:1450 綨i$=14缩" ";1;" ";8;:49987C+a,95_:1510 菼鷌$"Z"苅$"A"缩i$;1;" ";8;:49987C+a,痠$:1510 襂鷌$"9"苅$"0"缩i$;1;" ";8;:49987C+a,痠$:1510  1450  骯:"""" 49996L,250 鷠49998N,(DIRFIN-49999O)-256*((DIRFIN-49999O)/256):49999O,((DIRFIN-49999O)/256) I醅5,0;"INTRODUZCA N' MISION.(00-13):";1;" ";8; !馡$=:鶬$"1"艻$"0"遂1550 M鮅$;1;" ";8;:.05|L烫,0:馞=0:鶬$="1"笋F=10 ",馡$=:鶩=0塌I$<"0"臝$>"9"遂1570" ,'鶩=10 塌I$<"0"臝$>"3"遂1570" 6+鮅$:.05|L烫,0:馞=F+(疘$-480) @49997M,F A9#0;" PREPARE LA CINTA Y PULSE INTRO ":0:瞌 J|49901砺,46.:49903锫,14:49904鹇,0:49907舐,66B:49908袈,195:49900炻 T階=1100d:驛:馧=DIRFIN-49999O:49901砺,47/:49903锫,N-256*(N/256):49904鹇,(N/256):49907舐,80P:49908袈,195:49900炻 ^ $:醅0,9 ;"CARGANDO RETO" 甈醅2,2;"INSERTE LA CINTA EN EL LUGAR Y PULSE PLAY EN EL CASSETE" 竱49914,46.:49916,14:49917,0:49920,66B:49921,195:49913 : 49986B251啪49987C3遂1720 (7:醅5,0;"CARGANDO "; 階=49988D49995K A=95_缩" ";:1780 趼(続); 驛 " MISION-";49997M  49914,47/:49916,49998N:49917,49999O:49920,80P:49921,195:49913  1200 0:7:0: 3醅0,0;" ALEAsoft 1992 MAPA HEROQUEST" 脛醅4,5;3;"ELIGE OPCION";7;6,6;"1-HABITACIONES ACTIVAS.";8,6;"2-MAPA DE PUERTAS." 馡$= 鶬$"1"塌I$"2"遂3012 芌鶬$="1"粟1::醅0,0;" ALEAsoft 1992 MAPA HEROQUEST":3020 3300 蘈馜IR=50000P:0:8:階 =119:隑=126 :DIR0缩0;6;1+A,1+B;" " 8dir删(dir-1)缩琣+1,b+1;1;"" .鶥=1缩1;琣+1,b+1;"" /鷅=26缩1;琣+1,b+2;"" :鷄=1缩1;琣+1,b+1;"":3080 9dir删(dir-26)缩琣+1,b+1;1;"" /鷄=19缩1;琣+2,b+1;"" )馜IR=DIR+1:驜:驛:7:0 馾ir=50000P &,8:8:馽ol=0:駀il=0 00醅2+fil,2+col;1;1;" " :馾at=(dir+(fil*26)+col) D醅1,0;"TIPO-"; N&鷇at=0缩"NADA"," ":3180l X#鷇at<21缩"PASILLO ";dat," " b.鷇at>20缩"HABITACION ";dat-20;" " l,駃$=:i$<8漂i$>11 遂3180l vwi$=8芻ol>0缩2+fil,2+col;1;" ";琭il+2,col+1;1;" ":馽ol=col-1 xi$=9 芻ol<25缩琭il+2,col+2;1;" ";琭il+2,col+3;1;" ":馽ol=col+1 妜i$=11 苀il>0缩琭il+2,col+2;1;" ";琭il+1,col+2;1;" ":駀il=fil-1 攜i$=10 苀il<19缩琭il+2,col+2;1;" ";琭il+3,col+2;1;" ":駀il=fil+1 i$=13 遂1200 3130: 5:醅0,0;" ALEAsoft 1992 MAPA HEROQUEST" 頛馜IR=50512P:8:8:階 =119:隑=126 7鶤=1艬=1缩2,2;"":3450z #鶥=1缩珹+1,2;"" %鶥=26缩珹+1,28;"" #鶤=1缩2,B+1;"" %鶤=19缩21,B+1;"" 9DIR=192啪DIR=193缩珹+1,B+1;"" 7DIR=64@啪DIR=65A缩珹+1,B+1;"" 9DIR=128啪DIR=129缩珹+1,B+1;"" QDIR=32 啪DIR=33!缩珹+1,B+1;"";1;珹,B+1;"" *+DIR=24缩珹+1,B;1;"湌" 4+DIR=16缩珹+1,B;1;"洈" >CDIR=41)缩珹+1,B+1;"";1;珹,B+1;"" H,DIR=144缩珹+1,B;1;"洏" RDDIR=96 `缩珹+1,B+1;"";1;珹,B+1;"" \EDIR=104 h缩珹+1,B+1;"";1;珹,B+1;"" z)馜IR=DIR+1:驜:驛:7:0 1200 0:7:0: 3醅0,0;" ALEAsoft 1992 MAPA HEROQUEST" 磩醅4,5;3;"ELIGE OPCION";7;6,6;"1-HABITACIONES ACTIVAS.";8,6;"2-MAPA DE PUERTAS." 馡$= 鶬$"1"塌I$"2"遂4030 襌鶬$="1"粟1::醅0,0;" ALEAsoft 1992 MAPA HEROQUEST":4070  4500 鍸馜IR=50000P:0:8:階 =119:隑=126 ,踬0;1;1+A,1+B;" " :DIR0缩0;6;1+A,1+B;" " :鶥=1缩1;琣+1,b+1;"":4110 8dir删(dir-1)缩琣+1,b+1;1;"" /鶥=26缩1;琣+1,b+2;"" :鷄=1缩1;琣+1,b+1;"":4140, "9dir删(dir-26)缩琣+1,b+1;1;"" ,/鷄=19缩1;琣+2,b+1;"" 6)馜IR=DIR+1:驜:驛:7:0 @馾ir=50000P J,8:8:馽ol=0:駀il=0 T0醅2+fil,2+col;1;1;" " ^&馜IR=(50000P+(fil*26)+col) c 馾at=綿ir h醅1,0;"TIPO-"; r&鷇at=0缩"NADA"," ":4240 |#鷇at<21缩"PASILLO ";dat," " .鷇at>20缩"HABITACION ";dat-20;" " 恅駃$=:鶬$陕4塌I$陕13 塌I$"N"塌I$"H"塌I$"P"塌痠$<8塌痠$>11 遂4240 殑i$=8芻ol>0缩2+fil,2+col;1;" ";琭il+2,col+1;1;" ":馽ol=col-1: 4190^ i$=9 芻ol<25缩琭il+2,col+2;1;" ";琭il+2,col+3;1;" ":馽ol=col+1:4190^ 畡i$=11 苀il>0缩琭il+2,col+2;1;" ";琭il+1,col+2;1;" ":駀il=fil-1:4190^ 竻i$=10 苀il<19缩琭il+2,col+2;1;" ";琭il+3,col+2;1;" ":駀il=fil+1:4190^ 鶬$=13 遂4070 鶬$=5遂1200 (鶬$="N"俗.05|L烫,0:鬌IR,0 .鶬$="P"俗.05|L烫,0:4350:鬌IR,N 7鶬$="H"俗.05|L烫,0:4350:鬌IR,N+20  4240 﨔醅1,0,,1,0;" NUMERO:";1;" ";8; !馡$=:鶬$<"0"臝$>"2"遂4360 ..05|L烫,0:鮅$;1;" ";8; 馧=10  *癐$ &!馡$=:鶬$<"0"臝$>"9"遂4390& 0-.05|L烫,0:鮅$;" ":馧=N+癐$: 5:醅0,0;" ALEAsoft 1992 MAPA HEROQUEST" 濴馜IR=50512P:8:8:階 =119:隑=126 7鶤=1艬=1缩2,2;"":4670> #鶥=1缩珹+1,2;"" %鶥=26缩珹+1,28;"" #鶤=1缩2,B+1;"" %鶤=19缩21,B+1;"" 9DIR=192啪DIR=193缩珹+1,B+1;"" 7DIR=64@啪DIR=65A缩珹+1,B+1;"" 9DIR=128啪DIR=129缩珹+1,B+1;"" 鳴DIR=32 啪DIR=33!缩珹+1,B+1;"";1;珹,B+1;"" +DIR=24缩珹+1,B;1;"湌"  +DIR=16缩珹+1,B;1;"洈" CDIR=41)缩珹+1,B+1;"";1;珹,B+1;""  ,DIR=144缩珹+1,B;1;"洏" *DDIR=96 `缩珹+1,B+1;"";1;珹,B+1;"" 4EDIR=104 h缩珹+1,B+1;"";1;珹,B+1;"" >)馜IR=DIR+1:驜:驛:7:0 HB醅2,2;1;1;" ":馛OL=0:馞IL=0 R馡$=:=""遂4690R \$馜IR=50512P+(FIL*26)+COL fi$=8芻ol>0缩2+fil,2+col;1;" ";琭il+2,col+1;1;" ":馽ol=col-1: 4690R pi$=9 芻ol<25缩琭il+2,col+2;1;" ";琭il+2,col+3;1;" ":馽ol=col+1:4690R zi$=10 苀il<19缩琭il+2,col+2;1;" ";琭il+3,col+2;1;" ":駀il=fil+1:4690R 剟i$=11 苀il>0缩琭il+2,col+2;1;" ";琭il+1,col+2;1;" ":駀il=fil-1:4690R I$=5遂1200 巻鶬$="W"(綝IR=128啪DIR=129)唆DIR,32 :醅FIL+2,COL+2;"";1;現IL+1,COL+2;"":4690R 槄鶬$="W"(綝IR=32 啪DIR=33!)唆DIR,128:醅FIL+2,COL+2;"";1;現IL+1,COL+2;"":4690R 鶬$="W"凭DIR=192唆DIR,96`:醅FIL+2,COL+2;"";1;現IL+1,COL+2;"":4690R 瑄鶬$="W"凭DIR=96`唆DIR,192:醅FIL+2,COL+2;"";1;現IL+1,COL+2;"":4690R 秳鶬$="A"(綝IR=65A啪DIR=64@)唆DIR,16:醅FIL+2,COL+2;"";1;現IL+2,COL+1;"":4690R 纓鶬$="A"凭DIR=16唆DIR,65A:醅FIL+2,COL+2;"";1;現IL+2,COL+1;"":4690R 蕍鶬$="A"凭DIR=192唆DIR,144:醅FIL+2,COL+2;"";1;現IL+2,COL+1;"":4690R 詖鶬$="A"凭DIR=144唆DIR,192:醅FIL+2,COL+2;"";1;現IL+2,COL+1;"":4690R $ 4690R ' &隺=49900炻49926:鉨:鬭,b:骯 ' 62>,46.,17,14,0,221,33!,66B,195,205,194,4,201,62>,46.,17,14,0,221,33!,66B,195,557,205,86V,5,201 '?隻=115:鉧$:隺=07:鉩:衾a$+a,c:骯:骲: '"a",255,0,0,0,0,0,0,0,"b",255,171,213,171,213,171,213,255,"c",128,128,192,128,128,192,128,128,"d",128,128,128,128,128,128,128,128,"e",128,128,192,192,192,192,128,128,"f",255,60<,0,0,0,0,0,0,"g",255,36$,0,0,0,0,0,0,"h",255,128,128,128,128,128,128,128,"I",255,128,192,192,192,192,128,128,"J",0,0,0,0,0,0,0,36$,"K",0,0,0,0,0,0,0,60<,"L",0,0,1,1,1,1,0,0,"M",0,0,1,0,0,1,0,0,"N",255,188,128,128,128,128,128,128,"O",255,164,128,128,128,128,128,128 vn I .LEVEL_HO / /    !!"" !!"" !!"" &&&&%%%%&&&&%%%%&&&&%%%%&&&&%%%%&&&&纮A@纮纮悁A@@A@A@@A@@@@A@@纮 纮 @@ @@@@@@@@@@纮@@ @``@@@纮@@@@@@@@@@` 纮纮@@A@@A@A@@2>.       0 0 089:;@000000000000 0 0 0 000 000UN_JITUFO_EN_BUSCA_DEL PITUFO:::PUESRESULTA_DIJO_EL_NOMOQUEHABBITAAAELPAIS;UHI_PERDON UN_PEQUENYO_NOMO_QUE_YA_ME_ ESTOY_LAANDO_DE__CUENTO: BUENOS_DAAS_Y_SUERTE:::a 0[ 49899肼:""  9996 ' ;23658j\,8:0:7:1:1: q醅0,0;" ";2;"A";6;"L";4;"E";5;"A";7;"soft 1992.CREADOR DE RETOS" (4醅1,0;" DE HEROQUEST PARA SPECTRUM 48K" 2*醅3,9 ;3;"ELIJA OPCION" <醅5,6;"1-VER MAPA.";6,6;"2-VER TEXTO.";7,6;"3-EDITAR MAPA.";8,6;"4-EDITAR TEXTO.";9 ,6;"5-GRABAR RETO.";10 ,6;"6-CARGAR RETO.";11 ,6;"7-NUEVO RETO.";12 ,6;"8-ACABAR SESION." F馡$=:鶬$<"1"臝$>"8"遂70F P鶬$="4"隧1000:21 Z 鶬$="8"蒜 d 鶬$="2"隧1300:1200 n鶬$="5"隧1400x:21 x鶬$="6"隧1700 鶬$="1"隧3000  21  &0:7:1:1:  1300 駃$= aI$=4笋DIR=DIRINI:鬌IR,251:鬌IR+1,3:鬌IR+2,250 :1000 Ri$=14唆dir,95_:馾ir=dir+1:" ";:.05|L烫,0:1030 L鷌$="."唆dir,58::馾ir=dir+1:".";:.05|L烫,0:1030  L鷌$=","唆dir,59;:馾ir=dir+1:",";:.05|L烫,0:1030 $\i$>64@漂i$<91[缩i$;:鬱ir,(痠$):馾ir=dir+1:.05|L烫,0 :1030 .\i$>47/漂i$<58:缩i$;:鬱ir,(痠$):馾ir=dir+1:.05|L烫,0 :1030 84I$=5唆DIR,250:馜IRFIN=DIR:1200 L鶬$="`"隧1140t VI$=172隧1160 `踣1;" ";8; j 1030 t27:0:馡$=:鶬$<"0"纽>"7"遂1140t ~A鬌IR,251:鬌IR+1,癐$:馜IR=DIR+2:1:侔I$: "COL-";CL;" FIL-";FL ;鶦L>31臗L<0臚L>21臚L<0遂1160  " ";現L,CL; 鬌IR,255:鬌IR+1,CL:鬌IR+2,FL:馜IR=DIR+3:  馜IR=DIRFIN 癋" ":#0;7;" PULSE UNA TECLA PARA CONTINUA ":0: :隺=51273I52000 : .a=251笋dir=a::馜IRINI=DIR:1310 Y骯:醅0,0;1;" TEXTO NO ENCONTRADO EN DATOS ":1200::30 DIR=250 笋DIRFIN=DIR: (=DIR=251速(DIR+1):馜IR=DIR+2:1310 2NDIR=255缩(DIR+2),(DIR+1);:馜IR=DIR+3:1310 <2DIR=95_缩" ";:馜IR=DIR+1:1310 >2DIR=59;缩",";:馜IR=DIR+1:1310 @2DIR=58:缩".";:馜IR=DIR+1:1310 F'趼(綝IR);:馜IR=DIR+1:1310 x 7: 4醅0,0;" GRABACION DE RETO CREADO. " ,49986B,251:49987C,3 朜醅2,0;"INTRODUCE EL NOMBRE.(MAX 8 car.)""";1;" ";8; 隺=18 駃$=:鷌$=""遂1450 .05|L烫,0 確i$=12 芶>1笋A=A-1:" ";8;8;1;" ";8;:1450 綨i$=14缩" ";1;" ";8;:49987C+a,95_:1510 菼鷌$"Z"苅$"A"缩i$;1;" ";8;:49987C+a,痠$:1510 襂鷌$"9"苅$"0"缩i$;1;" ";8;:49987C+a,痠$:1510  1450  骯:"""" 49996L,250 鷠49998N,(DIRFIN-49999O)-256*((DIRFIN-49999O)/256):49999O,((DIRFIN-49999O)/256) I醅5,0;"INTRODUZCA N' MISION.(00-13):";1;" ";8; !馡$=:鶬$"1"艻$"0"遂1550 M鮅$;1;" ";8;:.05|L烫,0:馞=0:鶬$="1"笋F=10 ",馡$=:鶩=0塌I$<"0"臝$>"9"遂1570" ,'鶩=10 塌I$<"0"臝$>"3"遂1570" 6+鮅$:.05|L烫,0:馞=F+(疘$-480) @49997M,F A9#0;" PREPARE LA CINTA Y PULSE INTRO ":0:瞌 J|49901砺,46.:49903锫,14:49904鹇,0:49907舐,66B:49908袈,195:49900炻 T階=1100d:驛:馧=DIRFIN-49999O:49901砺,47/:49903锫,N-256*(N/256):49904鹇,(N/256):49907舐,80P:49908袈,195:49900炻 ^ $:醅0,9 ;"CARGANDO RETO" 甈醅2,2;"INSERTE LA CINTA EN EL LUGAR Y PULSE PLAY EN EL CASSETE" 竱49914,46.:49916,14:49917,0:49920,66B:49921,195:49913 : 49986B251啪49987C3遂1720 (7:醅5,0;"CARGANDO "; 階=49988D49995K A=95_缩" ";:1780 趼(続); 驛 " MISION-";49997M  49914,47/:49916,49998N:49917,49999O:49920,80P:49921,195:49913  1200 0:7:0: 3醅0,0;" ALEAsoft 1992 MAPA HEROQUEST" 蘈馜IR=50000P:8:8:階 =119:隑=126 :DIR0缩0;6;1+A,1+B;" " :鷅=1缩1;琣+1,b+1;"":3050 鄡dir删(dir-1)塌綿ir>21啪(dir-1)>21啪dir=0啪(dir-1)=0缩琣+1,b+1;1;"" /鷅=26缩1;琣+1,b+2;"" :鷄=1缩1;琣+1,b+1;"":3080 䥺dir删(dir-26)塌綿ir>21啪(dir-26)>21啪dir=0啪(dir-26)=0缩琣+1,b+1;1;"" /鷄=19缩1;琣+2,b+1;"" )馾ir=dir+1:骲:骯:7:0 L馜IR=50512P:8:8:階 =119:隑=126 8醅A+1,B+1;(32 +綝IR):馜IR=DIR+1 驜:驛 馾ir=50512P &,8:8:馽ol=0:駀il=0 00醅2+fil,2+col;1;1;" " :馾at=(dir+(fil*26)+col) D/醅1,0;"TIPO-";DAT;" ":3180l N&鷇at=0缩"NADA"," ":3180l X#鷇at<21缩"PASILLO ";dat," " b.鷇at>20缩"HABITACION ";dat-20;" " l,駃$=:i$<8漂i$>11 遂3180l vwi$=8芻ol>0缩2+fil,2+col;1;" ";琭il+2,col+1;1;" ":馽ol=col-1 xi$=9 芻ol<25缩琭il+2,col+2;1;" ";琭il+2,col+3;1;" ":馽ol=col+1 妜i$=11 苀il>0缩琭il+2,col+2;1;" ";琭il+1,col+2;1;" ":駀il=fil-1 攜i$=10 苀il<19缩琭il+2,col+2;1;" ";琭il+3,col+2;1;" ":駀il=fil+1 i$=13 遂1200 3130: ' &隺=49900炻49926:鉨:鬭,b:骯 ' 62>,46.,17,14,0,221,33!,66B,195,205,194,4,201,62>,46.,17,14,0,221,33!,66B,195,557,205,86V,5,201 '>隻=12:鉧$:隺=07:鉩:衾a$+a,c:骯:骲: '"a",255,0,0,0,0,0,0,0,"b",255,"d",128,128,128,128,128,128,128,128   cAdPI