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
Próxima revisiónAmbos lados, revisión siguiente
es:santa_s_grotto [2016/11/27 02:48] – creado jevicaces:santa_s_grotto [2017/01/22 14:27] – jevicac
Línea 1: Línea 1:
-====== Santa´s Grotto ======+====== SANTA'S GROTTO ======
  
 ===== Ficha ===== ===== Ficha =====
- +{{:otros:Santa_Grotto_p1.jpg?690|}} 
-^ Autor |        | +^ Autor | Phil Lawson       | 
-^ Computadora | Amstrad PCW 8256 / 8512 / 9512 | +^ Compatibilidad | Amstrad PCW 8256 / 8512 / 9512 | 
-^ Año |                              | +^ Año | ????                              | 
-^ Género |                                 |+^ Género | Arcade                                |
 ^ Controles | Teclado                           | ^ Controles | Teclado                           |
-^ Lenguajes |                             |+^ Idioma | Holandé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 ===== +Un juego de arcade con gráficos brillantes. A divertirse
- +
-     +
-===== Programa ===== +
  
 ===== 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 =====
  
  
 ===== Descarga ===== ===== Descarga =====
 +
 +  * {{:otros:Santa's Grotto (Basic).zip|Santa's Grotto }}(juego en formato dsk, comprimido con zip)
  
 ===== Enlaces ===== ===== Enlaces =====
  
 +  * [[https://www.youtube.com/watch?v=oW752yBtzjI|Video del juego Santa's Grotto]]
es/santa_s_grotto.txt · Última modificación: 2022/06/29 15:27 por jevicac