Diferencias

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

--- es:chomp [2022/07/01 12:47] – [Descripción] jevicac
+++ es:chomp [2022/07/01 12:49] – [Descarga] jevicac
@@ Línea 21: / Línea 21: @@
 ===== 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 250: / Línea 112: @@
 ===== 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 272: / Línea 128: @@
 ===== 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)