PcwWiki

Herramientas de usuario

Herramientas del sitio

Traza:
es:santa_s_grotto

Diferencias

Muestra las diferencias entre dos versiones de la página.

Enlace a la vista de comparación

Próxima revisión		Revisión previa
es:santa_s_grotto [2016/11/27 02:48] – creado jevicaces:santa_s_grotto [2022/06/29 15:27] (actual) – [Descripción] jevicac
Línea 1: Línea 1:
-====== Santa´s Grotto ======+====== SANTA'S GROTTO ======
  
-===== Ficha =====+{{:otros:Santa_Grotto_p1.jpg?690|}}
  
-^ Autor |        | +===== Ficha ===== 
-^ Computadora | Amstrad PCW 8256 / 8512 / 9512 | +^ Autor | Phil Lawson       | 
-^ Año |                              | +^ Compatibilidad | Amstrad PCW 8256 / 8512 / 9512 | 
-^ Género |                                 |+^ Año | 1987                              | 
 +^ Género | Arcade                                |
 ^ Controles | Teclado                           | ^ Controles | Teclado                           |
-^ Lenguajes |                             |+^ Idioma | Inglés                           |
 ^ Estado | [[preservado|Preservado]] | ^ Estado | [[preservado|Preservado]] |
  
 ===== Capturas ===== ===== Capturas =====
  
 +{{:otros:Santa's_Grotto_screenshot01.png?220}} {{:otros:Santa's_Grotto_screenshot02.png?220}} {{:otros:Santa's_Grotto_screenshot03.png?220}} {{:otros:Santa's_Grotto_screenshot04.png?220}}
  
 ===== Descripción ===== ===== Descripción =====
  
-===== Controles =====+Es Nochebuena y el pobre Papá Noel no recuerda dónde están todos los regalos. Esto significa que tú, como su ayudante más fiel, tienes que buscarlos en su red de cuevas subterráneas.
  
-     +Además de encontrar y recolectar 220 regalos, también debes limpiar el lugar de 130 toneladas de nieve que entraron mientras el techo estaba en reparación.
-===== Programa =====+
  
 +Para empeorar las cosas, la Sociedad Contra Disfrutar la Navidad tiene trampas explosivas en todo el lugar con bolas de nieve kamikaze y charcos de agua cubiertos con hielo delgado.
 +
 +Las bolas de nieve harán todo lo posible para aplastarte al caer desde arriba, mientras que pisar el hielo significará que caerás al agua helada de abajo. De cualquier manera, pierdes una vida, y como solo tienes tres para empezar, será mejor que tengas cuidado.
 +
 +Justo antes de emprender tu búsqueda, aparece Papá Noel y te dice que los muñecos de nieve mágicos que viven en la caverna te ayudarán contra las piscinas de hielo, pero también hay un efecto secundario desagradable. No puede recordar qué es eso, así que tendrás que averiguarlo por ti mismo. También menciona que las bolas de nieve se pueden empujar a un espacio vacío que permite el acceso a otras áreas.
 +
 +Al comienzo del juego, se le pedirá que ingrese las teclas que desea usar para izquierda, derecha, arriba, abajo y salir. El código de máquina y los datos de la pantalla se configuran y el juego comenzará. Si te encuentras en una situación imposible, la tecla salida hará que abandones el juego.
 +
 +Un juego de arcade con gráficos brillantes. A divertirse.
  
 ===== Listado ===== ===== Listado =====
 +
 +  * **__Listado - SANTA.BAS__**
  
 <file> <file>
-5 ' a sauver sous le nom VILLE.BAS +10 'KERSTMAN.003 (SANTA'S GROTTO). Auteur: Phil Lawson. Computing with the Amstrad PCW 
-6 ' +20 'Bewerkt en vertaald voor Utilities Disk 3 
-10 OPTION RUN +30 PRINT CHR$(27)+"E"+CHR$(27)+"H":PRINT "**************************************";CHR$(27)+"p";" KERSTMAN.003 ";CHR$(27)+"q";"************************************" 
-20 REM ******* VILLE INFERNALE ******* +40 PRINT "****************************************************************************************" 
-30 REM copyright FERNANDEZ michel  +50 PRINT:PRINT" Een arcade-game met schitterende grafische weergave. Zie voor spelregels de handleiding.":PRINT" ":PRINT:PRINT" Veel plezier...":PRINT" ";  
-40 MEMORY &HF605 +60 PRINT" ":PRINT" ":PRINT:PRINT" ":PRINT:PRINT" ";   
-50 code=HIMEM-400:ad.jeu=code-256*8 +70 PRINT" ":PRINT:PRINT:PRINT CHR$(27)+"p";"Press SPACE BAR to start.";CHR$(27)+"q" 
-60 MEMORY &HF605 +80 WHILE INKEY$ <>"":WEND:WHILE INKEY$ <>" ":WEND 
-70 echange.jeu=code+3 +90 REM        SANTA'S GROTTO 
-80 x$=CHR$(27):curson$=x$+"e":cursoff$=x$+"f" +100 REM       by Phil Lawson 
-90 cls$=x$+"E"+x$+"H":inv$=x$+"p":norm$=x$+"q" +110 REM (c) Computing With The Amstrad 
-100 DEF FNcu$ (li,co)=x$+"Y"+CHR$(32+li)+CHR$(32+co) +120 REM-------------- PCW ------------ 
-110 DEF FNfe$(li,co,nl,nc)=x$+"X"+CHR$(32+1i)+CHR$(32+co)+CHR$(31+nl)+CHR$(31+nc) +130 esc$=CHR$(27):cl$=esc$+"E"+esc$+"H" 
-120 PRINT FNfe$(0,0,32,90);cls$;cursoff$;FNcu$(0,19);"* *  L A  V I L L E  I N F E R N A L E  * * ":PRINT FNcu$(2,27);"copiright 1986 FERNANDEZ michel" +140 DEF FNat$(x%,y%,a$)=esc$+"Y"+CHR$(32+y%)+CHR$(32+x%)+a$ 
-130 PRINT:PRINT" ** REGLES DU JEU **":PRINT:PRINT" Au volant de votre voiture vous vous dirigez vers Paris.":PRINT"Vous abordez une ville inconnue, vous devez la traverser du SUD au NORD.":PRINT:PRINT"DANS CETTEVILLE DE 1600 CARREFOURS SONT REPARTIS:" +150 PRINT esc$+"f":PRINT cl$:RESTORE 1180 
-140 PRINT"80 banques; 80 postes de police, 90 garages, 90 postes d'essence.":PRINT:PRINT"POUR VOUS AIDEZ:":PRINT"Boussole, Niveaux (essence et argent)":PRINT"Alarmes (essence, argent, consommation, roue de secours)." +160 FOR a=1 TO 5:READ a$ 
-150 PRINT:PRINT"POUR VOUS GENER:":PRINT"Panne de boussole, Panne mécanique, Crevaisons, Agressions, Controles de police.":PRINT:PRINT"ARRETS POSSIBLES:":PRINT"Banque -> niveau argent remis au maximum.":PRINT"Essense -> plein du réservoir (â payer!)" +170 PRINT"Your key for: ";a$, 
-160 PRINT"Garage -> remise en état du véhicule (boussole, roue de secours, carburateur).":PRINT"Poste de police -> arret obligatoire si paneeau STOP (controle).":PRINT:PRINT" ATTENTION La ville n'est pas sure: vous pouvez vous faire dévaliser !" +180 d$(a)="":WHILE d$(a)="":d$(a)=INKEY$ 
-170 PRINT FNfe$(31,0,1,90);FNcu$(0,40);"PATIENTEZ"; +190 WEND:d$(a)=UPPER$(d$(a)):t=0 
-180 OPEN "i",1,"vcode.txt"  +200 IF a=1 THEN 230 ELSE FOR b=1 TO a-1 
-190 i=code:WHILE NOT (EOF(1)):INPUT #1,octet:POKE i,octet:i=i+1:WEND:CLOSE #1 +210 IF d$(a)=d$(b) THEN t=-1 
-200 carad=i:carceh=carad+9:POKE car ech+1,INT(ad.jeu/256):POKE carech,ad.jeu-256*PEEK (carech+1) +220 NEXT b:IF t THEN 180 
-210 OPEN "i",1,"vjeu.car" +230 PRINT d$(a):NEXT a 
-220 i=-1:FOR t=1 TO 128:INPUT #1,b$:FOR j=1 TO 31 STEP 2:i=i+1:m$=MID$(b$,j,2): POKE ad.jeu+i,195:CLOSE #1 +240 PRINT "Laad data... geduld a.u.b." 
-230 PRINT cls$;FNcu$(0,36);CHR$ (7); "PRESSEZ UNE TOUCHE"; +250 MEMORY &HDFFF:RESTORE 1880 
-240 WHILE INKEY$<>"":WEND: WHILE INKEY$="":WEND +260 addr=&HE719:lin=1780:READ a$,c$ 
-250 PRINT FNfe$(4,0,28,90);cls$;"** FIN DU JEU **":PRINT:PRINT"VOUS GAGNEZ SI vous ressortez de la ville coté NORD.":PRINT: PRINT"VOUS PERDEZ SI:":PRINT"Vous tombez en panne d'essence." +270 WHILE a$<>"END":lin=lin+10 
-260 PRINT"Vous n'avez pas assez d'argent pour payer (essence, réparations,contraventions).":PRINT"Vous nevous arretez pas au controle de police.":PRINT"Vous succombez á la fatigue (plus de 200 km.).":PRINT"Vous ressortez coté SUD." +280 chk=0:FOR a=1 TO 12 
-270 PRINT:PRINT"En fin de partie votre trajet vous est dévoilé avec possibilité de voir les emplacements des différents points d'arret.":PRINT:PRINT"LES COMMANDES:":PRINT" curseur gauche = tourner à gauche curseur droite = tourner à droite" +290 value=VAL("&H"+MID$(a$,a*2-1,2)) 
-280 PRINT"curseur haut = aller tout droit curseur bas = arret (pouressence, banque, garage, police)": PRINT:PRINT"QUELQUES CONSEILS:": PRINT"Passez souvent au garage (réparations garanties pour 10 km.)." +300 chk=chk+value 
-290 PRINT"Surveillez vos alarmes (si alarme argent, pas assez pour réparations)." +310 POKE addr,value:addr=addr+1:NEXT 
-300 PRINT:PRINT"N'hésitez pas à utiliser papier et crayon (le nord est vite perdu).":PRINT"Gardez votre calme (les bifurcations sont souvent défavorables).":PRINT:PRINT"     B O N N E    R O U T E" +320 IF HEX$(chk,3)<>c$ THEN PRINT"Fout in regel ";lin:END 
-310 PRINT FNfe$(31,0,1,90);FNcu$(0,40);"PATIENTEZ"; +330 READ a$,c$:WEND:addr=57350! 
-320 CALL echange.jeu  +340 FOR a=1 TO 4 
-330 CLOSE 1 +350 POKE addr+a,ASC(d$(a)):NEXT 
-340 CLEAR, 62981!: MEMORY 62981!: RUN"v1+360 lives=3:screen=&HE719 
 +370 PRINT cl$:CALL screen:GOSUB 1060 
 +380 PRINT FNat$(29,8,"Schermbewerking") 
 +390 PRINT FNat$(30,12,"Even geduld..") 
 +400 FOR a=&HE00B TO &HE5F2:POKE a,255 
 +410 NEXT:RESTORE 1510:FOR a=1 TO 288 
 +420 READ x:POKE &HE5F2+a,x:NEXT 
 +430 addr=57487!:RESTORE 1200 
 +440 PRINT esc$+"p":FOR a=1 TO 30 
 +450 READ a$ 
 +460 FOR b=1 TO 30:v=0:t$=MID$(a$,b,1) 
 +470 IF t$="W" THEN v=0:GOTO 560 
 +480 IF t$="S" THEN v=7:GOTO 560 
 +490 IF t$="B" THEN v=2:GOTO 560 
 +500 IF t$="G" THEN v=4:GOTO 560 
 +510 IF t$="I" THEN v=5:GOTO 560 
 +520 IF t$="P" THEN v=1:GOTO 560 
 +530 IF t$="M" THEN v=6:GOTO 560 
 +540 IF t$="X" THEN v=8:maddr=addr 
 +550 IF v=9 THEN PRINT"Fout in data":END 
 +560 POKE addr,v:addr=addr+1:NEXT 
 +570 addr=addr+12:NEXT 
 +580 WHILE INKEY$<>"":dum$=INKEY$:WEND 
 +590 t1=INT(maddr/256):t2=maddr-(t1*256) 
 +600 POKE &HE004,t2:POKE &HE005,t1 
 +610 POKE &HE718,3:GOSUB 1090 
 +620 FOR a=&HE713 TO &HE715:POKE a,0:NEXT 
 +630 PRINT FNat$(26,2,"PRESENTS  SNOW  ") 
 +640 speedup=&HE74A:CALL speedup 
 +650 game=&HE752:WHILE lives>0 
 +660 WHILE PEEK(&HE713)=0 
 +670 d$=UPPER$(INKEY$) 
 +680 IF d$="" THEN d$=" " 
 +690 IF d$=d$(5) THEN POKE &HE713,1 
 +700 POKE &HE006,ASC(d$):CALL game 
 +710 gi$=MID$(STR$(PEEK(&HE714)),2) 
 +720 sn$=MID$(STR$(PEEK(&HE715)),2) 
 +730 WHILE LEN(gi$)<3:gi$="0"+gi$:WEND 
 +740 WHILE LEN(sn$)<3:sn$="0"+sn$:WEND 
 +750 IF VAL(gi$)<>gi OR VAL(sn$)<>sn THEN PRINT FNat$(28,4,gi$+SPACE$(7)+sn$) 
 +760 gi=PEEK(&HE714):sn=PEEK(&HE715) 
 +770 IF gi>219 AND sn>129 THEN 880 
 +780 WEND:IF d$=d$(5) THEN lives=1 
 +790 lives=lives-1:POKE &HE713,0 
 +800 WHILE inkeys$<>"":WEND 
 +810 WEND:GOSUB 1060 
 +820 PRINT FNat$(30,10," T O U G H ") 
 +830 PRINT FNat$(30,16,"  LUCK  ") 
 +840 PRINT FNat$(20,26," SPACE = again    : K = stop  ") 
 +850 zz$="":WHILE zz$="":zz$=INKEY$:WEND 
 +860 IF UPPER$(zz$)="K" THEN STOP 
 +870 IF zz$=CHR$(32) THEN PRINT cls$:GOTO 360 ELSE GOTO 850 
 +880 REM spel afgelopen 
 +890 sprint=&HE813:a1=&HE004:a2=&HE005 
 +900 FOR b=57534! TO 57555! 
 +910 POKE a1,b-(INT(b/256))*256 
 +920 POKE a2,INT(b/256):CALL sprint:NEXT 
 +930 FOR b=57555! TO 58605! STEP 42 
 +940 POKE a1,b-(INT(b/256))*256 
 +950 POKE a2,INT(b/256):CALL sprint:NEXT 
 +960 FOR b=58605! TO 58584! STEP -1 
 +970 POKE a1,b-(INT(b/256))*256 
 +980 POKE a2,INT(b/256):CALL sprint:NEXT 
 +990 FOR b=58584! TO 57534! STEP -42 
 +1000 POKE a1,b-(INT(b/256))*256 
 +1010 POKE a2,INT(b/256):CALL sprint:NEXT 
 +1020 GOSUB 1060 
 +1030 PRINT FNat$(30,10," W E L L ") 
 +1040 PRINT FNat$(30,16," D O N E ") 
 +1050 GOTO 840 
 +1060 PRINT CHR$(27)+"p":FOR a=6 TO 27 
 +1070 PRINT FNat$(16,a,STRING$(39," ")) 
 +1080 NEXT:PRINT CHR$(27)+"q":RETURN 
 +1090 GOSUB 1060 
 +1100 RESTORE 1170:FOR a=1 TO 6:READ a$ 
 +1110 PRINT FNat$(72,(a*2)+5,a$):NEXT 
 +1120 PRINT FNat$(66,4,CHR$(134)+STRING$(16,CHR$(138))+CHR$(140)) 
 +1130 FOR a=5 TO 19:PRINT FNat$(66,a,CHR$(133)):PRINT FNat$(83,a,CHR$(133)):NEXT 
 +1140 PRINT FNat$(66,20,CHR$(131)+STRING$(16,CHR$(138))+CHR$(137)) 
 +1150 FOR a=1 TO 5:READ a$:PRINT FNat$(70,22+a,d$(a)+" - "+a$):NEXT 
 +1160 key=&HE950:CALL key:RETURN 
 +1170 DATA Wall, Snowball, Present,Snowman,Hole,Snow 
 +1180 DATA Left,Right,Up,Down,Stop 
 +1190 REM data voor display 
 +1200 DATA WWWWWWWWWWWWWWWWWWWWWWWWWWWWWW 
 +1210 DATA WBBWBMGWGMBPPWBIIGIBIBBBBBBSBW 
 +1220 DATA WSSISWMWGGWIIWBBIGIMIBBBBBSBSW 
 +1230 DATA WGGIIWIWWPWWIWSSIGISIBBBBSBSPW 
 +1240 DATA WBIIWWMWWPBWIWSIIGISIBBBSBSPPW 
 +1250 DATA WWIIIWGPWPGWIWISSGISIBBSBSPPGW 
 +1260 DATA WBGGIWPPWWGWIWPSSGISIBSBSPPGGW 
 +1270 DATA WSIIIWPGMWGWIWPSSGISISPSPPGGGW 
 +1280 DATA WSGGGWSWSWGWIWBSSGGGWWWWWWWWWW 
 +1290 DATA WSGGGWGWSWGWIWSSSPPPWIIBIBBIIW 
 +1300 DATA WSSSIWGWSWGWSWPPPIIPWIPSPSSGIW 
 +1310 DATA WGGGIWGWSWGWIWGWPIIPWIISIIIGGW 
 +1320 DATA WSSSIWGWSSSWSWIWPPPPWBWSSMIIGW 
 +1330 DATA WSGGGWGWSSSSSWIWGPPBBBWIIIIGPW 
 +1340 DATA WSSSGWGWWWWWWWIWGGPGGGPPPPPPPW 
 +1350 DATA WGGSSWGGGGGBBWIWWWWWPWWWWWWWWW 
 +1360 DATA WBGGSWIBBBIBBWIWGPPBPPPPGBBBBW 
 +1370 DATA WBIIBWIBBBIIIWIWGPSSWIIIPGBBBW 
 +1380 DATA WISSSWIIIIIGGWGWGPBIWIGISSGBBW 
 +1390 DATA WMWWWWPPPPPGGGGWGBIMWIIISSSGBW 
 +1400 DATA WSWSSSSBBBPPPPWWGWWWWWWWWWSSGW 
 +1410 DATA WSSBBBSSSSPPPBBWGSPBBBBBBWSSSW 
 +1420 DATA WSGGGGGPPGGSGIIWWSBBBBBBBWBBSW 
 +1430 DATA WWWWWWWWPWWWWWWWPPGGGGGGGWGGSW 
 +1440 DATA WIBBBBPPPPPBBBBWPSSSXSSSSWPPSW 
 +1450 DATA WIGGGGPWWWBGGGGWPSSSSSSSSWBPSW 
 +1460 DATA WISSSSPSSSSPPPPWPPPPPPPPPWSPGW 
 +1470 DATA WIGGGPPBBBPPGGPWGMBBBBBBBPPGGW 
 +1480 DATA WIWMMWIIIIIWMMWWGISSSSSSSSGGGW 
 +1490 DATA WWWWWWWWWWWWWWWWWWWWWWWWWWWWWW 
 +1500 REM Data voor figuren 
 +1510 DATA 223,223,223,0,253,253,253,0 
 +1520 DATA 223,223,223,0,253,253,253,0 
 +1530 DATA 223,223,223,0,253,253,253,0 
 +1540 DATA 223,223,223,0,253,253,253,0 
 +1550 DATA 0,0,0,0,0,0,0,0 
 +1560 DATA 0,0,0,0,0,0,0,0 
 +1570 DATA 0,0,0,0,0,0,0,0 
 +1580 DATA 0,0,0,0,0,0,0,0 
 +1590 DATA 0,7,31,62,117,106,213,234 
 +1600 DATA 0,224,248,188,94,174,87,171 
 +1610 DATA 213,234,117,122,61,31,7,0 
 +1620 DATA 87,175,86,174,92,248,224,0 
 +1630 DATA 0,7,31,62,117,106,213,234 
 +1640 DATA 0,224,248,188,94,174,87,171 
 +1650 DATA 213,234,117,122,61,31,7,0 
 +1660 DATA 87,175,86,174,92,248,224,0 
 +1670 DATA 0,0,0,6,9,8,4,3 
 +1680 DATA 0,0,0,48,72,136,144,224 
 +1690 DATA 63,48,48,63,48,48,63,0 
 +1700 DATA 254,134,134,254,134,134,254,0 
 +1710 DATA 0,60,127,127,127,63,63,31 
 +1720 DATA 0,60,254,254,254,252,252,248 
 +1730 DATA 31,63,63,127,127,127,60,0 
 +1740 DATA 248,252,252,254,254,254,60,0 
 +1750 DATA 7,8,18,16,8,7,15,6 
 +1760 DATA 224,16,72,8,16,224,248,28 
 +1770 DATA 33,64,65,64,65,64,32,31 
 +1780 DATA 132,2,130,2,130,2,4,248 
 +1790 DATA 170,85,170,85,170,85,170,85 
 +1800 DATA 170,85,170,85,170,85,170,85 
 +1810 DATA 170,85,170,85,170,85,170,85 
 +1820 DATA 170,85,170,85,170,85,170,85 
 +1830 DATA 3,12,18,16,12,3,1,127 
 +1840 DATA 192,48,72,8,48,192,128,254 
 +1850 DATA 7,7,7,7,6,6,6,31 
 +1860 DATA 224,224,224,224,96,96,96,120 
 +1870 REM Machinetaal 
 +1880 DATA CD3CE711982C2100B6016801,406 
 +1890 DATA 3E20F5D53E0873237223133D,3E9 
 +1900 DATA 20F8D1EB09EBF13D20ECC9C1,78C 
 +1910 DATA CD5AFCE900C9C1CD5AFCE000,799 
 +1920 DATA C926062E08CD43E7C9CD13E8,5B3 
 +1930 DATA CD5FE7CD82E7CD8FE8C93A06,796 
 +1940 DATA E00100002107E0BE20020BC9,39D 
 +1950 DATA 23BE200203C923BE200401D6,3AB 
 +1960 DATA FFC923BEC0012A00C978B1C8,64E 
 +1970 DATA 2A04E02202E0CD37E909FE00,506 
 +1980 DATA C8FE012825FE072814FE0428,47F 
 +1990 DATA 16FE022824FE032820FE0528,3D6 
 +2000 DATA 2EFE062847DD2115E71804DD,494 
 +2010 DATA 2114E7DD340036082204E0AF,420 
 +2020 DATA ED423601C979FE2AC8FED6C8,734 
 +2030 DATA 097EEE01C03602ED4218E3AF,547 
 +2040 DATA ED423C77093213E7CD3DE921,52B 
 +2050 DATA 18E73528092A02E02204E036,3AD 
 +2060 DATA 08C9F1C9E53601218FE011EC,634 
 +2070 DATA 047EFE042804FE052003EE01,3C5 
 +2080 DATA 771B237AB320EEE118A8F3CD,651 
 +2090 DATA 3CE7DD215070DDE52A04E001,5B2 
 +2100 DATA AF00AFED4206090E0FE57EFE,51A 
 +2110 DATA 082836FEFF20023E01878787,459 
 +2120 DATA 8787FD21F3E55F1600FD19C5,654 
 +2130 DATA CD72E81170FADD19C1E1230D,66A 
 +2140 DATA 20D7111B0019DDE111A005DD,48D 
 +2150 DATA 191002FBC9DDE518C2FD21F3,69C 
 +2160 DATA E6C5CD72E8360818D6FDE506,6E6 
 +2170 DATA 020E10FD7E00DD7700FD23DD,4EC 
 +2180 DATA 230D20F311C002DD1910EAFD,503 
 +2190 DATA E1C92175E511EC047E3D3D28,546 
 +2200 DATA 2B3D280B2B1B7AB320F2C936,41F 
 +2210 DATA 0318F5012A00CD37E9FE0828,456 
 +2220 DATA 41FE012804360218E33E0309,2E9 
 +2230 DATA 77EE02ED427718D8012A00CD,4F5 
 +2240 DATA 37E93D28D63D20CCAF3217E7,563 
 +2250 DATA 3A16E73D280CCD10E93A17E7,4A6 
 +2260 DATA A7CC2CE918B6CD2CE93A17E7,670 
 +2270 DATA A7CC10E918AA3E013213E777,510 
 +2280 DATA 093602CD3DE92118E7352809,3BA 
 +2290 DATA 2A02E02204E03608C9D1C923,4D6 
 +2300 DATA 7E2B3DC0012B00CD37E9FE01,4BE 
 +2310 DATA C03217E777093602AF3216E7,486 
 +2320 DATA ED42C92B7E23FE01C0012900,4AD 
 +2330 DATA 18E109AF7EED42C94E061036,4C1 
 +2340 DATA 08D9CD13E8D971D9CD13E8D9,76D 
 +2350 DATA 10F1C9CD3CE7FD21F3E5DD21,7AE 
 +2360 DATA 306CCD72E8114000FD19CD72,569 
 +2370 DATA E80604112000FD19FD19D5C5,4E9 
 +2380 DATA CD72E8C1D110F5C900000000,587 
 +2390 DATA END,END 
 +</file>
  
-10 ' La ville infernale - chargeur +===== Controles =====
-20 '  +
-30 ' CHARGEUR 1 - chargeur de RSX basic etendu +
-40 '  +
-50 MEMORY &HF3FF +
-60 DATA C5,D5,23,7E,32,B0,F4,23,7E,32,B1,F4,3E,80,32,B2,F4,3E,F4,32,B3,F4,11,B0,F4,0E,98,CD,05,00,11,80,F4,0E,13,CD,05,00,11,80,F4,0E,16,CD,05,00,E1,5E,23,56,E1,4E,23,46,D5,C5 +
-70 DATA ED,53,00,F4,ED,43,02,F4,0E,1A,11,00,F4,CD,05,00,0E,15,11,80,F4,CD,05,00,E1,29,24,44,D1,C5,D5,0E,1A,CD,05,00,11,80,F4,0E,15,CD,05,00,D1,EB,11,80,00,19,EB,C1,10,E7,11,80,F4,0E,10,CD,05,00,C9 +
-80 DATA D5,23,7E,32,B0,F4,23,7E,32,B1,F4,3E,80,32,B2,F4,3E,F4,32,B3,F4,11,B0,F4,0E,98,CD,05,00,11,80,F4,0E,0F,CD,05,00,FE,00,C0,11,00,F4,0E,1A,CD,05,00,11,80,F4,0E,14,CD,05,00 +
-90 DATA E1,5E,23,56,2A,02,F4,E5,29,44,D5,78,FE,00,28,18,C5,D5,0E,lA,CD,05,00,11,80,F4,0E,14,CD,05,00,E1,11,80,00,19,EB,C1,10,E8,D5,C1,EB,D1,AF,ED,52,EB,E1,ED,52,C5,E5,11,00,F4 +
-100 DATA 0E,1A,CD,05,00,11,80,F4,0E,14,CD,05,00,C1,21,00,F4,D1,ED,B0,11,80,F4,0E,10,CD,05,00,C9 +
-110 FOR i=1 TO 119:READ n$:n=VAL("&h"+n$):POKE &HF4DF+i,n:NEXT +
-120 FOR i=1 TO 141:READ n$:n=VAL("&h"+n$):POKE &HF556+i,n:NEXT +
-130 DELETE 50-130+
  
 +              ARRIBA = DEFINIDO POR EL USUARIO
 +               ABAJO = DEFINIDO POR EL USUARIO
 +             DERECHA = DEFINIDO POR EL USUARIO
 +           IZQUIERDA = DEFINIDO POR EL USUARIO
 +   ABANDONAR PARTIDA = DEFINIDO POR EL USUARIO
  
-</file> 
 ===== Carga del programa ===== ===== Carga del programa =====
 +
 +  1.- Introducir el disco CP/M por la cara 2
 +  2.- Escribir BASIC y esperar a que cargue
 +  3.- Retirar el disco CP/M e introducir el disco que contiene el juego Santa's Grotto
 +  4.- Teclear run "Santa" y pulsar la tecla "ENTER"
 +
 +===== Extras =====
 +
 +  * Listado del programa en una revista de gran tirada de la época
 +
 +{{:otros:Santas_grotto_01.jpg?170}} {{:otros:Santas_grotto_02.jpg?170}}
  
  
 ===== Descarga ===== ===== Descarga =====
  
-===== Enlaces =====+  * {{:otros:Santa's Grotto (Basic).zip|Santa's Grotto }}(juego en formato dsk, comprimido con zip) 
 + 
 +===== Vídeos ===== 
 + 
 +{{ youtube>oW752yBtzjI?large }}
  
es/santa_s_grotto.1480204139.txt.gz · Última modificación: 2016/11/27 02:48 por jevicac