Diferencias

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

--- es:chomp [2022/07/01 12:46] – [Ficha] jevicac
+++ es:chomp [2022/07/01 13:12] (actual) – [Descripción] jevicac
@@ Línea 14: / Línea 14: @@
 ===== Capturas =====
-{{:otros:Kingdom_of_craal_screenshot01.png?220}} {{:otros:Kingdom_of_craal_screenshot02.png?220}} {{:otros:Kingdom_of_craal_screenshot03.png?220}} {{:otros:Kingdom_of_craal_screenshot04.png?220}}
+{{:otros:Chomp_screenshot01.png?220}} {{:otros:Chomp_screenshot02.png?220}} {{:otros:Chomp_screenshot03.png?220}} {{:otros:Chomp_screenshot04.png?220}}
 ===== Descripción =====
-Muy lejos, más allá de las Montañas de Hielo, se encuentra el extraño y maravilloso Reino de Craal con su magnífico palacio y su bosque encantado.
+Chomp es un juego con una variación del tema del clásico Ahorcado. Sin embargo, esta versión de un viejo favorito definitivamente es anti-pena capital y, en cambio, ve un castigo, una batalla entre una araña voraz y una oruga que parece bastante preocupada.
-Es una tierra pacífica, gobernada durante muchos años felices por el rey Meek, respetado por la mayoría de sus súbditos.
+El objetivo del jugador, es adivinar una palabra oculta, siendo éste el Verdugo. Se han relacionado todas las palabras de esta versión con animales. También son todas palabras sueltas, no hay frases, aunque esto podría no ser una mala adición al programa si realmente desea comenzar a evaluar a sus amigos o hijos.
-Sin embargo, había un personaje que no era parte de este abrumadora admiración: Vadham, el mago malvado.
+Cada vez que se elige una letra incorrecta, se le informa del hecho y una araña desciende un poco más por su hilo desde la parte superior derecha de la pantalla, lista para partir a la oruga en dos. Cada vez que se elige una letra correcta, la oruga está un paso más cerca de la libertad. Si se encuentra la palabra completa, la oruga sale corriendo del escenario solo para verse obligada a regresar, ya sea que quieras jugar otro juego o no. Tiene siete oportunidades para dar con la respuesta correcta; podría haber sido una idea tratar de proporcionar un nivel de habilidad con un mayor o menor número de intentos.
-Hace muchos años, fue desterrado a las mazmorras del castillo por intentar robar la daga chapada en oro del rey.
+Lo que hace que esta versión del juego sea tan atractiva es el hecho de que se han considerado todas las opciones. No tienes que reiniciar CHOMP.BAS cada vez que quieras un juego nuevo; ni tienes que jugar a través de un conjunto de juegos antes de poder escapar. La araña se mueve con gran suavidad al igual que su presa. Otra opción pensada
+es el hecho de que el juego recuerda qué letras tienes ya elegidas y nos advierte del hecho de que está intentando reutilizar una. En general, CHOMP.BAS sería un buen descanso de unos minutos para los adultos y sus hijos que serviría como una herramienta educativa por excelencia.
-En su tiempo libre cuando no estaba mezclando hechizos o jugando con pócimas, convertía la mazmorra en un laberinto de desesperación, donde solo los valientes tenían el coraje de entrar.
-Naciste en Craal el guapo hijo de un zapatero y hace muchos años decidiste buscar fortuna en tierras lejanas.
-Regresaste muchas veces a lo largo de los años para visitar a tus ancianos padres y pasar en ocasiones un tiempo feliz en compañía de la hija del rey, Andrea.
-Por desgracia, en esta última visita encontraste al rey muerto y el palacio alborotado.
-El mago había aprovechado una oportunidad enviada por el cielo y, cuando el rey abrió la puerta de las mazmorras para dejar salir al Moggie del castillo, agarró su magnífica corona de oro y desapareció en su escondite en las profundidades.
-Tú, con tu típica actitud juvenil, solo estabas interesado en tu futura esposa, Andrea. Los guardias de palacio, los lacayos, las cortesanas e incluso Ethel la limpiadora, sin embargo, no quedó impresionada con sus servicios para recuperar la corona.
-Te arrojaron de cabeza por los escalones de la mazmorra con la advertencia de que si regresas con las manos vacías perderás todas tus queridas posesiones.
-En esta seria aventura tienes a tu disposición seis comandos de una sola letra. Estos son n,s,e,w,l e i — para las cuatro direcciones de la brújula, mirar e inventariar respectivamente.
-El programa también aceptará otros comandos de aventura estándar, como tomar, soltar, golpear y decir. Estas palabras son inteligentes, lo que significa que si tiene una llave y la quiere en una cerradura, todo lo que necesita decir es 'soltar la llave'. Entrará automáticamente en la cerradura.
-Ahora no tiene mucho sentido que escribas una aventura y encuentres, como lo haces, todas las soluciones dentro de la lista. Por lo tanto, para ocultar las pistas, he escrito los mensajes importantes en código y todos están en las declaraciones de datos al final del programa.
-No hay nada inteligente en lo que he hecho, y estoy seguro de que pronto te darás cuenta que todo el texto impreso ha sido desplazado por tres letras. La subrutina que comienza en la línea 530 lo decodifica todo y lo convierte en inglés sensato con el producto terminado.
-Es imperativo que tenga mucho cuidado al ingresar estas líneas de datos si desea disfrutar del resultado de sus esfuerzos.
+Los nombres de los animales se han guardado en las líneas de DATOS al final del programa. Obviamente, estos pueden cambiarse o extenderse cuando se considere oportuno y se aburra con el juego. El alcance de este juego es muy amplio y proporcionará a muchas personas un pasatiempo agradables.
 ===== Listado =====
-  * **__Listado - KC.BAS__**
+  * **__Listado - CHOMP.BAS__**
 <file>
- REM           By Mike Noels
- REM (c) Computing With The Amstrad
+' Chomp by M.A. Owen
- REM PCW
+'     8000 Plus
-DEFINT a-z:PRINT CHR$(27);"E";CHR$(27)"H":GOTO 180
+'
-DIM d(10,4)
+clock=256*PEEK(2)-10
-h$=SPACE$(25):c$=h$:o$=h$:h$="":c$="":o$=""
+GOSUB 600
-hh$=SPACE$(255):oo$=h$:hh$="":oo$=""
+ PRINT cl$:ERASE l$:DIM l$(26):c=0:w=0
- FOR i=1 TO 10: FOR j=1 TO 4
+PRINT FNp$(85,0);CHR$(200);CHR$(201);FNp$(85,1);CHR$(202);CHR$(203)
-READ d(i,j)
+PRINT FNp$(84,30);CHR$(204);CHR$(205);CHR$(206);CHR$(207);e$+"H"
-NEXT:NEXT
+ FOR f=0 TO 27:PRINT FNp$(82,f);CHR$(149):NEXT f
-n=12:t=7:m=51
+PRINT FNp$(0,24)STRING$(82,154)CHR$(157)
-DIM j$(n):DIM o(n):DIM m$(m)
+PRINT FNp$(0,28);STRING$(82,154);CHR$(153);e$+"H"
-FOR i=1 TO n:READ hh$:READ cc$:GOSUB 530:j$(i)=oo$:hh$=cc$:GOSUB 530:o(i)=VAL(oo$):NEXT
+PRINT FNp$(37-LEN(h$)\2,2);e$+"r";"Guess ";h$;e$+"u"
-FOR i=1 TO m:READ m$(i):NEXT
+ PRINT FNp$(0,10);"What is this :"FNp$(18,10);:choice=1+INT(n*RND)
- h$="":c$="":o$=""
+ IF d$(choice,1)="1" THEN choice=choice+1+n*(choice=n):GOTO 100
-b=-1:d=-1:e=-1:s=0:l=0:a=-1:g=0:ff=-1
+d$(choice,1)="1":le=0:FOR f=1 TO LEN(d$(choice,0))
-r=2:x=3:GOTO 250
+IF MID$(d$(choice,0),f,1)=" " THEN PRINT "   ";:GOTO 140
-PRINT"On a visit to the palace of Craal, you find the place in uproar. The king is dead and his"
+PRINT CHR$(154);CHR$(154);" ";:le=le+1
- PRINT"crown stolen by a wicked wizard who's fled to his den in the palace dungeons. By paying"
+NEXT f:t=t+1
-PRINT"rather too much attention to the ex-king's daughter, you find yourself volunteered to"
+PRINT FNp$(0,16);"Choose a letter";SPACE$(50)
-PRINT"recover it.":PRINT
+i$=LOWER$(INKEY$):IF i$<"a" OR i$>"z" THEN 160
-PRINT "You are thrown into the dungeons and told not to come back without the crown."
+IF l$(ASC(i$)-96)="" THEN 190
-PRINT:PRINT "Here begins the adventure....":PRINT
+ PRINT FNp$(0,16)"You have tried that one."CHR$(7):GOSUB 390:GOTO 150
-GOTO 50
+l$(ASC(i$)-96)="1":PRINT FNp$(1+2*(ASC(i$)-96),26);i$;e$+"H"
-WHILE NOT g
+found=0:FOR f=1 TO LEN(d$(choice,0))
-IF r<>x THEN GOSUB 610
+IF MID$(d$(choice,0),f,1)<>i$ THEN 230
-x=r:c=0:WHILE c=0:GOSUB 380:WEND
+ PRINT FNp$(15+3*f,10);i$;"  ":c=c+1:found=1
-ON c GOSUB 810,850,880,930,1090,610,1000,960,1030,1180
+NEXT f:IF found=1 AND c<le THEN 150
-WEND
+ IF found=1 THEN 360 ELSE w=w+1
-PRINT
+PRINT FNp$(0,16);"Sorry! That letter isn't in the word."
- IF o(8)=1 THEN GOTO 330 ELSE m=31:GOSUB 2160
+GOSUB 390:IF w<8 THEN GOSUB 380:GOTO 150
-m=32:GOSUB 2160:PRINT:GOTO 350
+PRINT FNc$(8):GOSUB 390:PRINT FNc$(4):GOSUB 390
-m=29:GOSUB 2160:PRINT
+PRINT FNc$(10):GOSUB 390:PRINT FNp$(84,28)"    ";e$+"H"
-m=30:GOSUB 2160:END
+PRINT FNp$(85,29);CHR$(200);CHR$(201);FNp$(85,30);
-PRINT:m=51:GOSUB 2160
+PRINT CHR$(202);CHR$(203);e$+"H":GOSUB 390
-a$="":WHILE a$="":a$=INKEY$:WEND
+ PRINT FNp$(0,16)"You lost that one"SPACE$(40)
-a$=UPPER$(a$):IF a$="N" THEN END ELSE RUN
+ PRINT FNp$(0,18)"The correct word was :   ";d$(choice,0)
-PRINT:PRINT"What now?"
+ PRINT FNp$(0,22)"Do you want another go? (y or n)"
-c$="":WHILE c$="":INPUT "===>",c$:WEND:c$=LOWER$(c$)
+i$=INKEY$:IF i$="n" THEN PRINT cl$;e$+"e":END
- IF LEN(c$)<>1 THEN 420
+ IF i$<>"y" THEN 340 ELSE IF t<n THEN 20 ELSE RUN
-c=INSTR("nsewil",c$): IF c<>0 THEN RETURN ELSE PRINT"I don't recognise this single letter command - only n,s,e,w,i,l.":RETURN
+ PRINT FNp$(0,16)"Well done."SPACE$(40)FNc$(8)
-sx=INSTR(c$," "): IF sx=0 THEN PRINT "I don't understand - put a space between command and object, please.":c=0:RETURN
+GOSUB 390:PRINT FNc$(9):GOSUB 390:CALL ctr:GOTO 330
-verb$=LEFT$(c$,SX-1):o$=" "+MID$(c$,SX+1):WHILE LEFT$(o$,1)=" ":o$=RIGHT$(o$,LEN(o$)-1):WEND
+PRINT FNc$(8):CALL spid:PRINT FNc$(4):RETURN
-c=INSTR("droptakesayhit",verb$)
+FOR g=1 TO 1000:NEXT g:RETURN
-IF c<>1 AND c<>5 AND c<>9 AND c<>12 THEN PRINT"I don't understand your command.":c=0:RETURN
+ DATA 01,67,e0,18,08,01,4c,e0,18,03,01,40
- IF c=1 THEN c=7 ELSE IF c=5 THEN c=8 ELSE IF c=12 THEN c=10 ELSE IF c=9 THEN RETURN
+ DATA e0,c5,2a,01,00,01,57,00,09,22,1a,e0
-z=0:i=1:m=0:WHILE m<>1 AND i<>n+1
+ DATA c1,cd,00,00,e9,00,c9,d5,5e,23,56,e1
-IF LEFT$(o$,4)=LEFT$(j$(i),4) THEN m=1
+ DATA eb,7d,e6,07,4f,7d,e6,f8,cb,27,cb,14
-i=i+1
+ DATA b1,6f,c9,db,f8,e6,40,28,fa,db,f8,e6
-WEND
+ DATA 40,28,f4,c9,21,00,ee,11,40,be,01,58
-IF m=1 THEN z=i-1 ELSE PRINT"I don't understand the object you mean.":c=0:RETURN
+ DATA 00,ed,b0,c9,06,58,c5,cd,33,e0,21,e0
-RETURN
+ DATA b7,cd,1f,e0,e5,01,08,00,09,d1,01,c0
-oo$=""
+ DATA 02,ed,b0,c1,10,e8,c9,06,20,c5,21,e0
-FOR jj=1 TO LEN(hh$)
+ DATA b7,e5,cd,1f,e0,01,a8,02,09,eb,06,f0
-rr=ASC(MID$(hh$,jj,1))-3
+DATA cd,33,e0,e1,2b,2b,e5,c5,cd,1f,e0,01
-IF rr=38 OR rr=41 OR rr=34 THEN rr=rr+3
+DATA a8,02,09,e5,7e,12,01,08,00,09,eb,09
-oo$=oo$+CHR$(rr)
+DATA 1a,77,d1,c1,10,e5,e1,c1,10,cf,c9,*
-NEXT
+DATA &hd2,01,87,78,14,f2,11,f4,12,00,c2,3c,50,9e
-RETURN
+DATA 10,5e,90,69,87,88,0a,09,07,09,04
-END
+DATA 2c,c2,22,a0,20,c0,20,40,24,7e,81
-in=-1:m=r-1:GOSUB 2110
+DATA a5,81,99,42,3c,00,00,00,ff,00,ff,92,92
- PRINT:PRINT:PRINT"You can see around you :-"
+DATA 00,00,00,ff,00,ff,49,49,00,00,00,fe,01
-f=0
+DATA fe,24,24,24,7e,a5,81,81,99,42,3c
-FOR i=1 TO n
+DATA 24,7e,a5,81,a5,bd,42,3c,24,7e,81,81,a5,99,66,3c,*,&h79
- IF o(i)<>r THEN 670 ELSE f=-1
+MEMORY 57343!:RANDOMIZE (PEEK(clock+1)+60*PEEK(clock+2)):e$=CHR$(27)
-GOSUB 1400
+cl$=e$+"E"+e$+"H":init=57354!:spid=57344!:ctr=57349!
-NEXT
+DEF FNp$(x,y)=e$+"Y"+CHR$(32+y)+CHR$(32+x):PRINT e$+"f"
- IF NOT f THEN PRINT"Nothing of interest."
+DIM d$(200,1),l$(26):DEF FNc$(x)=FNp$(84,30)+CHR$(200+x)+e$+"H"
- PRINT
+RESTORE 710:f=1:READ h$,i$:WHILE i$<>"*":d$(f,0)=i$:d$(f,1)="":READ i$
- RETURN
+f=f+1:WEND:t=0:n=f-1
- DATA 0,0,0,0
+ IF (PEEK(init)=1) AND (PEEK(init+1)=64) THEN RETURN
- DATA 3,9,0,0
+RESTORE 400:add=spid:FOR g=1 TO 2:f=0:cs=0:READ d$:WHILE d$<>"*"
- DATA 0,2,4,0
+ m=VAL("&h"+d$):POKE add+f,m:f=f+1:cs=cs+m+256*((cs+m)>255):READ d$
- DATA 0,0,5,3
+WEND:READ d$:IF cs<>VAL(d$) THEN PRINT "Mistyped code.":STOP
- DATA 0,0,0,4
+add=60928!:NEXT g:CALL init:RETURN
- DATA 0,7,0,0
+ DATA an Animal
- DATA 6,0,0,8
+DATA ass,badger,bat,bear,beaver,bison,boar,buffalo,caribou
- DATA 0,0,7,9
+DATA cat,coypu,deer,dolphin,dormouse,elk,ferret,fox,hamster
- DATA 2,0,8,0
+DATA hare,hedgehog,horse,jackal,lemming,lynx,mink,mole,mongoose
- DATA 0,0,0,0
+ DATA moose,mouse,otter,ox,polecat,porcupine,porpoise,rabbit
-IF d(r,1)=0 THEN PRINT" Not allowed":PRINT:RETURN
+ DATA raccoon,rat,reindeer,seal,sheep,shrew,squirrel,stoat,vole
-IF r=7 AND a THEN m=33:GOSUB 2160:PRINT:RETURN
+ DATA walrus,weasel,whale,wolf,donkey,cow,goat,dog,monkey,elephant
-r=d(r,1)
+ DATA lion,snake,lizard,frog,tiger,zebra,giraffe,*
-RETURN
-IF d(r,2)=0 THEN PRINT" Not allowed":PRINT:RETURN
-r=d(r,2)
-RETURN
-IF d(r,3)=0 THEN PRINT" Not allowed":PRINT:RETURN
-IF d(r,3)=8 AND ff THEN m=34:GOSUB 2160:ff=0
-IF d(r,3)=7 AND o(7)=0 THEN o(7)=8:m=35:GOSUB 2160:PRINT
-r=d(r,3)
-RETURN
-IF d(r,4)=0 THEN PRINT" Not allowed":PRINT:RETURN
-r=d(r,4)
-RETURN
-IF o(z)=1 THEN PRINT"You already have it":RETURN
-IF o(z)<>r THEN PRINT"It's not here":RETURN
-IF z<t THEN PRINT"You can't take that" ELSE o(z)=1
-RETURN
-IF o(z)=1 THEN o(z)=R ELSE PRINT "You don't have it":RETURN
-ON (r-1) GOSUB 1250,1270,1260,1310,1260,1260,1330,1260,1260
-RETURN
-h$="":FOR i=LEN(o$) TO 1 STEP -1
-h$=h$+MID$(o$,i,1)
-NEXT
-IF o$=h$ THEN g=-1:m=50:GOSUB 2160:RETURN
-PRINT"Okay,"+CHR$(34)+o$+CHR$(34)
-RETURN
-PRINT"Your inventory contains:-"
- f=0
-FOR i=t TO n
-IF o(i)<>1 THEN 1140 ELSE f=-1
-GOSUB 1400
-NEXT
-IF NOT f THEN PRINT"Nothing at all."
-PRINT
-RETURN
-IF o(z)<>r THEN PRINT"It wasn't here to hit":RETURN
-IF o(11)<>1 THEN m=36:GOTO 2160
-IF z<>6 AND z<>3 THEN PRINT"This has no effect whatsoever."
-IF z=6 AND a THEN a=0:m=37:GOSUB 2160:PRINT:o(6)=0:RETURN
-IF z=3 AND s=0 THEN m=38:GOSUB 2160:s=-1:o(8)=2:RETURN
- IF z=3 AND s=-1 THEN m=39:GOTO 2160
-RETURN
-IF z=8 AND e THEN m=40:GOSUB 2160:o(z)=0:e=NOT e:o(11)=1
-RETURN
-IF z=7 AND NOT b AND l THEN m=41:GOSUB 2160:PRINT:l=0
-IF z=9 THEN m=42:GOSUB 2160:o(z)=0:o(12)=3
-IF z=10 THEN d=0
- RETURN
-IF o(7)=5 AND o(12)=5 THEN m=43:GOSUB 2160:b=0:o(12)=0:o(7)=1
-RETURN
-IF z<>10 THEN 1370
-IF d THEN m=44:GOSUB 2160:GOTO 350
-IF (NOT l) OR (o(7)<>8 AND o(7)<>1) THEN m=45:GOSUB 2160:GOTO 350
-IF o(2)=0 THEN m=46:GOSUB 2160:o(1)=0:o(2)=8:o(8)=8
-IF z=7 AND NOT b THEN l=-1:m=47:GOSUB 2160:PRINT
-IF z=9 OR z=12 THEN m=48:GOSUB 2160:PRINT:m=49:GOSU6 2160:GOTO 350
-RETURN
-IF i=1 THEN m=10:GOSUB 2110
-IF i=2 THEN m=11:GOSUB 2110
-IF i=3 AND NOT s THEN m=12:GOSUB 2110
-IF i=3 AND s THEN m=14:GOSUB 2110
-IF i=4 THEN m=15:GOSUB 2110:m=16:GOSUB 2160:m=17:GOSUB 2160
-IF i=5 THEN m=18:GOSUB 2110
-IF i=6 THEN m=19:GOSUB 2110
-IF i=7 AND NOT b AND NOT l THEN m=21:GOSUB 2110
-IF i=7 AND NOT b AND l THEN m=22:GOSUB 2110
-IF i=7 AND b THEN m=23:GOSUB 2110
-IF i=8 THEN m=20:GOSUB 2110
-IF i=9 THEN m=24:GOSUB 2110
-IF i=10 AND d THEN m=25:GOSUB 2110
- IF i=10 AND NOT d THEN m=28:GOSUB 2110
-IF i=11 AND NOT a THEN m=26:GOSUB 2110
-IF i=11 AND a THEN crip$="a "+j$(i):PRINT crip$
-IF i=12 THEN m=27:GOSUB 2110
-PRINT
- RETURN
- DATA iluh,;,sloh#ri#dvkhv,3,yhqglqj#pdfklqh,5,pluuru,9,wuroo,8,gzdui,":",odps,3,frlq,3,sdufkphqw,7,fxuwdlq,<,vzrug,3,yrxfkhu,3
-DATA "d#udwkhu#vsduvh,#xqiulhqgo#urrp#zlwk#wkh#dssduhqwo#lqh{solfdeoh#vljq#########*Duprxu*#rq#wkh#zdoo1"
- DATA "d#ydvw#fdyhuq#zlwk#d#odujh#srro#ri#zdwhu1#D#sdwk#ohdgv#dorqj#lwv#hgjh1"
-DATA "dq#h{wuhpho#wljkw,#Hdvw#0#Zhvw#wxqqho1"
-DATA "d#vkrs1#Ryhu#wkh#frxqwhu#lv#dvljq=#Hehqhh}hu*v#Hqwhusulvhv1"
-DATA "d#vpdoo#fkdpehu,#lwv#zdoov#lulghvfhqw#zlwk#vsdunolqj#fuvwdov,#vdyh#rqh1"
-DATA "d#udwkhu#jorrp#fdyh,#uhplqlvfhqw#ri#rog#plqh#zrunlqjv1"
-DATA "zkdw#orrnv#olnh#d#khuplw*v#fhoo1"
-DATA "dq#rog#gluw#fkdpehu#wkdw#orrnv#wr#kdyh#ehhq#sloodjhg#orqj#djr1"
-DATA "wkh#zl}dug*v#fkdpehu1#Dv#qr#rqh#kdv#hyhu#vxuylyhg#wklv#h{shulhqfh,#wkhuh#lv#qr##h{wdqw#ghvfulswlrq1111"
-DATA "exuqlqj#eulooldqwo#lq#d#fruqhu1"
-DATA "qrz#txlwh#frro1"
-DATA "zlwk#d#qrwlfh#*qr#krw#prqh#ru#frxqwhuihlw#frlqv*1"
-DATA "zlwk#d#qrwlfh#*hpsw*#rq#lw1"
-DATA "lq#elwv#rq#wkh#iorru1"
-DATA "hqjudyhg="
-DATA "*Vd#pluuru#zrug#wr#zl}dug#phhw,"
-DATA "Eh#vxuh#rx#kdyh#wkh#jrog#wr#juhhw1*"
-DATA "zlwk#d#exvlqhvv#olnh#dlu1"
-DATA "zhdulqj#gdun#jodvvhv1"
-DATA "zruwk#lwv#zhljkw#lq#jrog1"
-DATA "qrw#hw#olw1"
-DATA "exuqlqj#euljkwo1"
-DATA "lq#d#udwkhu#edwwhuhg#frqglwlrq1"
-DATA "gu#dv#d#erqh#dqg#frpsohwho#eodqn1"
-DATA "lq#txlwh#jrrg#frqglwlrq#0#dqg#qrw#dw#doo#gdps1"
-DATA "fryhuhg#lq#eorrg1"
-DATA "uhdglqj=#H{fkdqjh#wklv#yrxfkhu#wrjhwkhu#zlwk#dq#rog#odps#dqg#rx*oo#jhw#d#qhz###odps#iuhh$"
-DATA ",#zulqjlqj#zhw1"
- DATA "Wkh#zl}dug*v#hhv#oljkw#xs1#Kh#wdnhv#rxu#frlq#wr#ex#klpvhoi#d#gulqn#dqg#################glvdsshduv1"
-DATA "\rx#sxw#rq#wkh#furzq#kh*v#ohiw#ehklqg#dqg#ilqg#rxuvhoi#edfn#lq#wkh#sdodfh,#Nlqj#ri#Fuddo,dqg#kdss#hyhu#diwhu1"
-DATA "Rk#ghdu,#rx*yh#jrw#qr#prqh#0#dqg#wkh#zl}dug#zdv#krslqj#rx*g#ex#klp#d#slqw#ru#wzr1"
-DATA "Qdwxudoo#kh#nloov#rx1"
-DATA "Wkh#gzdui#uhixvhv#wr#ohw#rx#sdvw1"
-DATA "D#zrug#wr#wkh#zlvh=#\rx*uh#jrlqj#wr#wkh#rqo#urrp#lq#wkh#sodfh#zlwkrxw#lwv#rzq#qdwxudo####skrvskruhvfhqfh1"
-DATA "Dq#ludwh#gzdui,#lqixuldwhg#e#wkh#oljkw#rx*yh#ohw#lq,#wkurzv#klv#xqolw#odps#dw#rx1#Lw###odqgv,#lq#wkh#urrp#rx*yh#mxvw#ohiw,#vkdwwhuhg1"
-DATA "\rx#kdyhq*w#jrw#dqwklqj#ghfhqw#wr#klw#zlwk1#Jhw#d#vzrug1"
-DATA "Wkh#gzdui#idoov#ghdg,#wkhq#glvdsshduv#lq#iurqw#ri#rxu#hhv1"
- DATA "Wkh#yhqglqj#pdfklqh#vkdwwhuv1#D#frlq#gursv#rxw1"
-DATA "Judwxlwrxv#ylrohqfh#grhvq*w#khos#dqrqh1"
-DATA "Wkh#frlq#idoov#lqwr#wkh#vorw#lq#wkh#yhqglqj#pdfklqh1#\rx#duh#jlyhq#d#vzrug1#Wkdw*v#zk####lw*v#fdoohg#wkh#Duprxu$"
-DATA "Xqiruwxqdwho,#rxu#odps#jrhv#rxw1"
-DATA "Lqwhuhvwlqj$#Vrphwklqj*v#kdsshqlqj#wr#wkh#sdufkphqw1#Wdnh#d#orrn1111"
-DATA "\rx*yh#jrw#d#qhz#odps$"
-DATA "Wkh#fxuwdlq#ioduhv#xs1#\rx#glh#lq#wkh#eod}h1"
-DATA "Wdnlqj#dgydqwdjh#ri#wkh#vxgghq#soxqjh#lqwr#gdunqhvv,#wkh#gzdui#iurp#ch{w#grru#frphv#lq#dqgsrolvkhv#rx#rii1"
- DATA "Wkh#iluh#jrhv#rxw1#\rx#vhh#d#frlq#lq#lwv#dvkhv1"
-DATA "\rxu#odps#oljkwv1"
-DATA "Lw#exuvwv#lqwr#iodph$"
-DATA "\rx#vxgghqo#uhdolvh#wkdw#lw#zdv#ylwdo#wr#wkh#jdph1#Ryhufrph#zlwk#julhi,#rx#nloo#########rxuvhoi1"
-DATA "Wkh#pluuru#glvvroyhv#dqg#rx#ilqg#rxuvhoi#sxoohg#wkurxjk#wkh#jds#lw*v#ohiw#lqwr#wkh######zl}dug*v#urrp1"
-DATA "Zkdw#d#vkdph#0#dqg#rx#zhuh#grlqj#vr#zhoo#wrr1#Gr#rx#zdqw#dqrwkhu#jrB#+|2Q)"
-hh$=m$(m):GOSUB 530
-crip$="You are in "+oo$:IF in THEN PRINT:PRINT crip$;
-IF NOT in THEN crip$="a "+j$(i)+" "+oo$:PRINT crip$
-in=0
-RETURN
-hh$=m$(m):GOSUB 530:PRINT:PRINT oo$
-RETURN
- in THEN crip$="a "+j$(i)+" "+oo$:PRINT crip$
-in=0
-RETURN
-hh$=m$(m):GOSUB 530:PRINT:PRINT oo$
 </file>
@@ Línea 282: / Línea 122: @@
 ===== Controles =====
-        N = NORTE
+        Teclado del PCW
-        S = SUR
-        E = ESTE
-        W = OESTE
-        L = OBSERVAR
-        I = INVENTARIO
-        TOMAR, SALTAR, GOLPEAR, DECIR...
 ===== Carga del programa =====
 .- Introducir el disco CP/M por la cara 2
 .- Escribir BASIC y esperar a que cargue
-.- Retirar el disco CP/M e introducir el disco que contiene el juego Kingdom of Craal
+.- Retirar el disco CP/M e introducir el disco que contiene el juego Chomp
-.- Teclear run "KC" y pulsar la tecla "ENTER"
+.- Teclear run "CHOMP" y pulsar la tecla "ENTER"
 ===== Extras =====
@@ Línea 300: / Línea 134: @@
   * Listado del programa en revista de gran tirada de la época
-{{:otros:Kingdom_of_craal_01.jpg?170}} {{:otros:Kingdom_of_craal_02.jpg?170}}
+{{:otros:Chomp_01.jpg?170}} {{:otros:Chomp_02.jpg?170}} {{:otros:Chomp_03.jpg?170}}
 ===== Descarga =====
-  * {{:otros:Kingdom_of_craal.zip|Kingdom of Craal }}(juego en formato dsk, comprimido con zip)
+  * {{:otros:Chomp.zip|Chomp }}(juego en formato dsk, comprimido con zip)