Diferencias

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

--- es:car_park [2017/01/27 12:34] – creado jevicac
+++ es:car_park [2022/06/30 10:27] (actual) – [Extras] jevicac
@@ Línea 1: / Línea 1: @@
 ====== CAR PARK ======
-===== Ficha =====
 {{:otros:Car_park_p1.jpg?690|}}
+===== Ficha =====
 ^ Autor | ????????       |
 ^ Compatibilidad | Amstrad PCW 8256 / 8512 / 9512 |
@@ Línea 27: / Línea 28: @@
 ===== Listado =====
-  * **__Listado - MARCIANO.BAS__**
+  * **__Listado - CAR.BAS__**
 <file>
-  ' *************************************************
+ OPTION RUN:GOSUB 1470:yes=-1:WHILE yes:play=-1:lives=5:floor=1:score=0:PRINT cls$
-  ' Tenemos visita
+WHILE play:GOSUB 1090:GOSUB 40:WEND:GOSUB 510:WEND
-  ' ---------------------------------------------
+PRINT e$"e"e$"1":MEMORY highmem!:RUN"menu
-  ' Mallard Basic
+go=-1:key=0:sc=0:shield=0:cx=12:cy=4:CALL pr(cx,cy,caru$)
-  ' =============================================
+gx=72:gy=22:POKE pen,85:CALL pr(gx,gy,caru$):POKE pen,255
-  ' Por; Juan Jose Perez Torres
+WHILE go:i$=LOWER$(INKEY$)
-  ' ---------------------------------------------
+IF i$="o" THEN GOSUB 180
-  ' Junio-Julio  de 1989
+IF i$="p" THEN GOSUB 210
-  ' *************************************************
+IF i$="s" THEN GOSUB 240
-'
+IF i$="x" THEN GOSUB 270
-'
+IF i$="q" THEN go=0:play=0:lives=0
-'
+GOSUB 340:IF shield=0 THEN IF cx=gx AND cy=gy THEN GOSUB 460
-'
+IF shield>0 THEN shield=shield-1:GOSUB 150
-'
+WEND:RETURN
-OPTION RUN:CLEAR:DIM pantalla(27,90)
+a$=STR$(shield):a$=RIGHT$(a$,LEN(a$)-1):a$=LEFT$("000",3-LEN(a$))+a$
- :
+POKE paper,85:x=62:y=25:CALL pr(x,y,a$):POKE paper,0:RETURN
-alienigena=0:cx=35:disparo=0:disparo1=0:per=1:puntos=0
+REM Move car
- :
+IF a(cx-2,cy,0)=1 OR a(cx-1,cy,0)=1 THEN RETURN
-BORRA$=CHR$(27)+"E"+CHR$(27)+"H"
+POKE pen,85:CALL pr(cx,cy,b$):POKE pen,255
-SUBRON$=CHR$(27)+"r":SUBROFF$=CHR$(27)+"u"
+c=1:c$=carl$:cx=cx-2:CALL pr(cx,cy,c$):GOSUB 300:RETURN
-CLARO$=CHR$(27)+"bb"+CHR$(27)+"cc":OSCURO$=CHR$(27)+"cb"+CHR$(27)+"bc"
+IF a(cx+2,cy,0)=1 OR a(cx+1,cy,0)=1 THEN RETURN
-CUROFF$=CHR$(27)+"f":CURON$=CHR$(27)+"e"
+POKE pen,85:CALL pr(cx,cy,b$):POKE pen,255
-VIDEON$=CHR$(27)+"p":VIDEOFF$=CHR$(27)+"q"
+c=2:c$=carr$:cx=cx+2:CALL pr(cx,cy,c$):GOSUB 300:RETURN
-DEF FNtab$(x,y,texto$)=CHR$(27)+"Y"+CHR$(32+x)+CHR$(32+y)+texto$
+IF a(cx,cy-1,0)=1 THEN RETURN
- :
+POKE pen,85:CALL pr(cx,cy,b$):POKE pen,255
-alienigena$(1)=CHR$(188)+CHR$(189)
+c=3:c$=caru$:cy=cy-1:CALL pr(cx,cy,c$):GOSUB 300:RETURN
-alienigena$(2)=CHR$(190)+CHR$(191)
+ IF a(cx,cy+1,0)=1 THEN RETURN
-alienigena$(3)=CHR$(192)+CHR$(193)
+POKE pen,85:CALL pr(cx,cy,b$):POKE pen,255
-alienigena$(4)=CHR$(194)+CHR$(195)
+c=4:c$=card$:cy=cy+1:CALL pr(cx,cy,c$):GOSUB 300:RETURN
-canon$=CHR$(32)+CHR$(197)+CHR$(32)
+a=a(cx,cy,1):IF a>2 AND a<20 THEN GOSUB 590
-'
+IF a>20 THEN ON a-20 GOSUB 910,930,1000,1010,1020
-'
+a(cx,cy,1)=2:RETURN
-'
+REM Move ghost car
-RESTORE 470
+POKE pen,85:IF a(gx,gy,0)=2 THEN g=INT(RND*4)+1
- :
+IF a(gx,gy,1)=2 THEN g$=b$ELSE g$=sp$
-PRINT BORRA$
+ON g GOSUB 370,390,410,430:POKE pen,255:RETURN
-MEMORY 62210!
+IF a(gx,gy-1,0)=1 THEN RETURN
-d=62928!:inic=d:GOSUB 440
+CALL pr(gx,gy,g$):gy=gy-1:CALL pr(gx,gy,caru$):RETURN
-d=62212!:bol=d:GOSUB 440
+IF a(gx,gy+1,0)=1 THEN RETURN
-GOTO 510
+CALL pr(gx,gy,g$):gy=gy+1:CALL pr(gx,gy,card$):RETURN
- :
+IF a(gx-1,gy,0)=1 OR a(gx-2,gy,0)=1 THEN RETURN
-READ a$:IF a$="$" THEN RETURN
+CALL pr(gx,gy,g$):gx=gx-2:CALL pr(gx,gy,carl$):RETURN
-byte=VAL("&H"+a$):POKE d,byte:d=d+1
+IF a(gx+1,gy,0)=1 OR a(gx+2,gy,0)=1 THEN RETURN
-GOTO 440
+CALL pr(gx,gy,g$):gx=gx+2:CALL pr(gx,gy,carr$):RETURN
-DATA 2A,01,00,11,57,00,19,22,02,F6,01,E3,F5,CD,01,F6,E9,00,C9,11,98,2C,21,00,B6,06,20,C5,06,08,73,23,72,23,13,10,F9,E5,EB,01,60,01,09,EB,E1,C1,10,EB,C9,C3,00,00,$
+REM Car and ghost collide
-DATA 7E,32,40,F3,21,40,F3,06,08,1A,23,77,13,13,10,F9,2A,01,00,11,57,00,19,22,3E,F3,01,27,F3,CD,3D,F3,E9,00,C9,2A,40,F3,26,00,29,29,29,11,00,B8,19,11,41,F3,EB,01,08,00,ED,B0,C9,C3,38,00,0B,00,B0,04,87,20,4C,44,49,$
+PRINT bleep$;:lives=lives-1:cx=12:cy=4:CALL pr(cx,cy,caru$):GOSUB 480
- :
+IF lives=0 THEN go=0:play=0:GOSUB 1070:RETURN ELSE RETURN
-CALL inic
+x=64:y=27:a$=STR$(lives):a$=RIGHT$(a$,LEN(a$)-1):IF LEN(a$)<2 THEN a$="0"+a$
-RESTORE 530:FOR d=1 TO 43:READ char$:char%=VAL(char$):FOR z%=0 TO 7:READ d$(z%):d%(z%)=VAL(d$(z%)):NEXT z%:CALL bol(char%,d%(0)):NEXT d
+POKE paper,85:CALL pr(x,y,a$):POKE paper,0:RETURN
- :
+REM End-of-game messages
-DATA 160,0,0,14,63,127,127,15,15
+PRINT cls$:POKE double,1:IF floor=6 THEN a$="WELL DONE!"ELSE a$="Hard luck!
- DATA 161,0,0,0,252,254,248,243,247
+x=10:y=6:CALL pr(x,y,a$)
- DATA 162,0,31,63,31,31,24,0,0
+IF floor=6 THEN a$="You have parked your car!"ELSE a$="No lives left!
- DATA 163,0,192,192,3,135,15,15,1
+ y=10:CALL pr(x,y,a$):y=14:a$="SCORE:"+STR$(score)+".":CALL pr(x,y,a$)
- DATA 164,0,0,1,255,255,255,255,255
+ y=20:a$="Play again?  (Y/N)":CALL pr(x,y,a$)
- DATA 165,0,240,255,255,255,255,255,255
+ WHILE i$<>"Y"AND i$<>"N":i$=UPPER$(INKEY$):WEND
- DATA 166,0,0,254,255,255,255,241,252
+ IF i$="N"THEN yes=0:RETURN ELSE RETURN
- DATA 167,31,63,63,63,63,63,63,30
+ REM Expose squares
- DATA 168,255,255,254,252,248,240,224,96
+ PRINT bleep$;:POKE pen,0:POKE paper,255
- DATA 169,15,31,31,127,112,28,255,255
+ z=INT(RND*15)+1:IF square(z)=1 THEN 600
- DATA 170,255,255,255,159,63,63,223,220
+ IF z=1 THEN x=14:y=5
- DATA 171,255,255,255,255,255,255,255,127
+ IF z=2 THEN x=26:y=5
- DATA 172,252,253,253,241,248,248,252,248
+ IF z=3 THEN x=38:y=5
- DATA 173,28,15,7,1,0,0,0,0
+ IF z=4 THEN x=50:y=5
- DATA 174,96,96,0,188,254,127,127,63
+ IF z=5 THEN x=62:y=5
- DATA 175,1,1,1,1,0,0,0,224
+ IF z=6 THEN x=14:y=11
- DATA 176,255,255,255,255,255,79,7,7
+ IF z=7 THEN x=26:y=11
- DATA 177,239,239,240,252,252,252,240,240
+ IF z=8 THEN x=38:y=11
- DATA 178,63,61,28,24,8,0,0,0
+ IF z=9 THEN x=50:y=11
- DATA 179,240,240,112,64,64,32,0,0
+ IF z=10 THEN x=62:y=11
- DATA 180,127,127,63,31,31,15,15,15
+ IF z=11 THEN x=14:y=17
- DATA 181,240,240,240,224,224,192,128,128
+ IF z=12 THEN x=26:y=17
- DATA 182,7,7,7,7,3,3,1,0
+ IF z=13 THEN x=38:y=17
-DATA 183,240,240,246,230,236,192,128,0
+ IF z=14 THEN x=50:y=17
- DATA 184,0,1,3,15,31,31,31,25
+ IF z=15 THEN x=62:y=17
- DATA 185,0,208,248,248,248,248,240,240
+a=x+2:a$=SPACE$(3):FOR b=y+1 TO y+3:CALL pr(a,b,a$):NEXT:POKE pen,255:POKE paper,0
- DATA 186,15,15,6,6,2,2,0,0
+ IF z MOD 4=0 THEN PRINT FNat$(x,y+2," "):FOR a=0 TO 4:a(x+a,y+2,0)=0:NEXT
- DATA 187,224,0,0,0,0,0,0,0
+ IF z MOD 4=1 THEN PRINT FNat$(x+9,y+2," "):FOR a=3 TO 9:a(x+a,y+2,0)=0:NEXT
- DATA 188,3,5,127,70,67,2,18,30
+ IF z MOD 4=2 THEN a=x+4:CALL pr(a,y,sp$):FOR b=0 TO 2:a(x+4,y+b,0)=0:NEXT
- DATA 189,194,162,254,96,192,64,72,120
+ IF z MOD 4=3 THEN a=x+4:b=y+4:CALL pr(a,b,sp$):FOR b=2 TO 4:a(x+4,y+b,0)=0:NEXT
-DATA 190,0,3,5,7,30,63,48,48
+ POKE pen,0:POKE paper,255:x=x+4:y=y+2
-DATA 191,0,192,160,224,120,252,12,12
+ ON a(cx,cy,1)-2 GOSUB 840,860,870,870,880,890,890,890,890,890,890,890,890,890,890
- DATA 192,99,101,127,6,3,127,96,96
+square(z)=1:POKE pen,255:POKE paper,0:RETURN
- DATA 193,198,166,254,96,192,254,6,6
+IF floor<5 THEN u$="^"ELSE u$=p$
- DATA 194,0,7,77,127,78,71,67,64
+ CALL pr(x,y,u$):a(x,y,1)=21:RETURN
- DATA 195,0,224,178,254,114,226,194,2
+ CALL pr(x,y,key$):a(x,y,1)=22:RETURN
- DATA 196,255,24,60,126,126,126,60,24
+ CALL pr(x,y,caru$):a(x,y,1)=23:RETURN
- DATA 197,60,60,60,60,60,60,255,255
+ CALL pr(x,y,caru$):a(x,y,1)=24:RETURN
- DATA 198,0,24,60,60,60,60,24,126
+ CALL pr(x,y,caru$):a(x,y,1)=25:RETURN
- DATA 199,126,24,60,60,60,60,24,0
+ REM Car triggers squares
-DATA 200,255,0,170,85,170,85,0,255
+ IF key THEN PRINT bleep$;:floor=floor+1:GOSUB 1030:go=0:GOSUB 1070:IF floor=6 THEN play=0:RETURN ELSE RETURN
- DATA 201,255,0,0,0,0,0,0,0
+ POKE pen,0:POKE paper,255:CALL pr(cx,cy,u$):GOSUB 950:RETURN
- DATA 202,0,0,0,0,0,0,0,255
+IF sc=10 THEN PRINT bleep$;:key=-1:GOSUB 1030:score=score+250:GOSUB 1050:RETURN
-  '
+ POKE pen,0:POKE paper,255:CALL pr(cx,cy,key$)
-  '
+ POKE paper,0:POKE pen,255:PRINT bleep$;:ON c GOSUB 960,970,980,990:CALL pr(cx,cy,c$):RETURN
-  ' Presentacion
+ cx=cx+2:RETURN
-  '
+ cx=cx-2:RETURN
-  '
+ cy=cy+1:RETURN
-  PRINT CUROFF$
+ cy=cy-1:RETURN
-a$=CHR$(160)+CHR$(161)+CHR$(162)+CHR$(163)+CHR$(164)+CHR$(165)+CHR$(166):x=3:y=2:GOSUB 1080
+ PRINT bleep$:shield=shield+175:GOSUB 1030:RETURN
- a$=CHR$(167)+CHR$(168)+CHR$(32)+CHR$(169)+CHR$(170)+CHR$(171)+CHR$(172):x=4:y=2:GOSUB 1080
+PRINT bleep$:lives=lives+2:GOSUB 480:GOSUB 1030:RETURN
-a$=CHR$(173)+CHR$(174)+CHR$(175)+CHR$(176)+CHR$(177)+CHR$(178)+CHR$(179):x=5:y=2:GOSUB 1080
+ PRINT bleep$;:sc=sc+1:score=score+100:GOSUB 1050:GOSUB 1030:RETURN
- a$=CHR$(32)+CHR$(180)+CHR$(181)+CHR$(182)+CHR$(183)+CHR$(32)+CHR$(184)+CHR$(185):x=6:y=2:GOSUB 1080
+ a$=SPACE$(3):a=cx-2:FOR b=cy-1 TO cy+1:CALL pr(a,b,a$):NEXT
- a$=CHR$(32)+CHR$(186)+STRING$(5,32)+CHR$(187):x=7:y=2:GOSUB 1080
+CALL pr(cx,cy,c$):RETURN
-GOTO 1090
+x=28:y=27:a$=STR$(score):a$=RIGHT$(a$,LEN(a$)-1):a$=LEFT$("0000",4-LEN(a$))+a$
-PRINT FNtab$(x,y,a$):RETURN
+POKE paper,85:CALL pr(x,y,a$):POKE paper,0:RETURN
-:
+FOR a=0 TO 2000:NEXT:RETURN
-frase$="TENEMOS VISITA ":GOSUB 1110:GOTO 1220
+REM Draw screen
-FOR I=90-LEN(frase$) TO 20 STEP -1
+POKE paper,85:POKE double,0:POKE pen,255:IF floor=1 THEN GOSUB 1100:GOSUB 1190:RETURN ELSE GOSUB 1190:RETURN
-PRINT FNtab$(3,I,frase$+CHR$(32))
+x=11:a$=STRING$(62,154)
-NEXT I
+a1$=CHR$(150)+a$+CHR$(156):PRINT FNat$(x,0,a1$);FNat$(x,24,a1$);
-PRINT SUBRON$
+x1=74:a1$=CHR$(149):PRINT FNat$(x,1,a1$);FNat$(x1,1,a1$);
- FOR I=1 TO LEN(frase$)-1
+FOR y=25 TO 27 STEP 2:PRINT FNat$(x,y,a1$);FNat$(x1,y,a1$);:NEXT
- PRINT FNtab$(3,19+I,MID$(frase$,I,1))
+a1$=CHR$(151)+a$+CHR$(157):PRINT FNat$(x,26,a1$);
-FOR TIME=1 TO 100:NEXT TIME
+a1$=CHR$(147)+a$+CHR$(153):PRINT FNat$(x,2,a1$);FNat$(x,28,a1$);
-NEXT I
+ a$=SPACE$(4)+carr$+" "+carr$+" C A R   P A R K "+carl$+" "+carl$+SPACE$(4)
-PRINT SUBROFF$
+ x=12:y=1:CALL pr(x,y,a$):a$=" Score:"+SPACE$(12)+"Lives:"+SPACE$(6)
-RETURN
+y=27:CALL pr(x,y,a$):GOSUB 480:GOSUB 1050:POKE paper,85:RETURN
-:
+a$=" Please wait..."+SPACE$(16):x=12:y=25:CALL pr(x,y,a$):POKE paper,0
- x=5:y=20:a$="El planeta Tierra, esta siendo invadido por seres extraterrestres.":GOSUB 1270
+a$=CHR$(150):x=11:y=3:PRINT FNat$(x,y,a$);:a(x,y,0)=1
- x=7:y=20:a$="El gobierno de los Estados Unidos, te ha elegido para acabar con esta ":GOSUB 1270
+a$=CHR$(154):FOR x=12 TO 73:PRINT FNat$(x,y,a$);:a(x,y,0)=1:NEXT
- x=9:y=20:a$="molesta visita. Si quieres que te sea sincero, ya puedes ir rezando":GOSUB 1270
+a$=CHR$(156):PRINT FNat$(x,y,a$);:a(x,y,0)=1
- x=11:y=20:a$="por tu propia vida.":GOSUB 1270
+ x=11:x1=74:a$=CHR$(149):a1$=SPACE$(62):FOR y=4 TO 22
-GOSUB 1320
+ PRINT FNat$(x,y,a$);FNat$(x+1,y,a1$);FNat$(x1,y,a$);:a(x,y,0)=1:a(x1,y,0)=1:NEXT
-FOR I=1 TO LEN(a$)
+a$=CHR$(147):PRINT FNat$(x,y,a$);:a(x,y,0)=1
- PRINT FNtab$(x,y+(I-1),MID$(a$,I,1))
+a$=CHR$(154):FOR x=12 TO 73:PRINT FNat$(x,y,a$);:a(x,y,0)=1:NEXT
-FOR R=1 TO 100:NEXT R
+a$=CHR$(153):PRINT FNat$(x,y,a$);:a(x,y,0)=1
-NEXT I
+ FOR x=14 TO 62 STEP 12:FOR y=5 TO 17 STEP 6
-RETURN
+a$=CHR$(150):PRINT FNat$(x,y,a$);:a(x,y,0)=1
-FOR I=5 TO 85:FOR J=5 TO 11
+a$=CHR$(154):FOR a=1 TO 8:PRINT FNat$(x+a,y,a$);:a(x+a,y,0)=1:NEXT
-pantalla(J,I)=0
+a$=CHR$(156):PRINT FNat$(x+a,y,a$);:a(x+a,y,0)=1
- NEXT J,I
+a$=CHR$(149):FOR a=1 TO 3:PRINT FNat$(x,y+a,a$);FNat$(x+9,y+a,a$);
-:
+FOR b=1 TO 8:a(x+b,y+a,0)=1:NEXT:a(x,y+a,0)=1:a(x+9,y+a,0)=1:NEXT
-frase$="Presenta, Juan Jose Perez Torres"
+a$=CHR$(147):PRINT FNat$(x,y+a,a$);:a(x,y+a,0)=1
-PRINT VIDEON$
+a$=CHR$(154):FOR b=1 TO 8:PRINT FNat$(x+b,y+a,a$);:a(x+b,y+a,0)=1:NEXT
- PRINT FNtab$(18,45,STRING$(LEN(frase$)+2,CHR$(32)))
+a$=CHR$(153):PRINT FNat$(x+b,y+a,a$);:a(x+b,y+a,0)=1:NEXT y,x
- PRINT FNtab$(19,45,CHR$(32)+frase$+CHR$(32))
+FOR x=12 TO 72 STEP 12:FOR y=4 TO 22:a(x,y,1)=1:NEXT y,x
- PRINT FNtab$(20,45,STRING$(LEN(frase$)+2,CHR$(32)))
+ FOR x=12 TO 72 STEP 2:FOR y=4 TO 22 STEP 6:a(x,y,1)=1:NEXT y,x
-PRINT VIDEOFF$
+FOR x=12 TO 72 STEP 12:FOR y=4 TO 22 STEP 6:a(x,y,0)=2:NEXT y,x
- FOR TIME=1 TO 6000:NEXT TIME
+FOR a=3 TO 17
-:
+x=INT(RND*31)*2+12:y=INT(RND*19)+4:IF a(x,y,1)<>1 THEN 1410
- FOR I=3 TO 20
+a(x,y,1)=a:NEXT:POKE paper,85
-FOR TIME=1 TO 150:NEXT TIME
+a$=" Floor:"+STR$(floor)+SPACE$(8)+"Shield: 000"+SPACE$(2)
- PRINT FNtab$(I,0,STRING$(90,32))
+x=12:y=25:CALL pr(x,y,a$):POKE paper,0
-NEXT I
+FOR a=1 TO 15:square(a)=0:NEXT:RETURN
-GOSUB 2320
+REM Set up
-'
+DEFINT a-z:highmem!=HIMEM:MEMORY &HCFFF:e$=CHR$(27):cls$=e$+"E"+e$+"H"
-'
+DEF FNat$(x,y,a$)=e$+"Y"+CHR$(32+y)+CHR$(32+x)+a$
-' Eleccion de alienigenas
+DIM a(74,23,1),square(15)
-'
+PRINT cls$e$"f"e$"0";:title$=" * * * C A R   P A R K * * * ":a=LEN(title$)
-'
+b=(90-a)/2:PRINT e$"p";FNat$(b,0,SPACE$(a));FNat$(b,1,title$);FNat$(b,2,SPACE$(a));e$"q
-vida=5:GOSUB 2590
+PRINT:PRINT TAB(8)"Welcome to the Car Park, where the aim of the game is to drive up to the":PRINT TAB(8)"fifth floor and park your car.":PRINT
-d=INT(RND*4)+1
+PRINT TAB(8)"Steer your vehicle by pressing 'o' to move left":PRINT TAB(39)"'p' to move right":PRINT TAB(39)"'s' to move up and":PRINT TAB(39)"'x' to move down.":PRINT TAB(8)"Press 'q' to quit the game.":PRINT
-IF d=alienigena THEN 1550
+ PRINT TAB(8)"Watch out for the ghost car on patrol.  He is easily hidden in your":PRINT TAB(8)"exhaust fumes!":PRINT
-alienigena=d
+PRINT TAB(8)"As you drive around you will pass over secret switches in the floor.  These":PRINT TAB(8)"will reveal the contents of the squares.  You must enter each square and":PRINT TAB(8)"collect the contents.":PRINT
-inv$=alienigena$(alienigena)
+ PRINT TAB(8)"An up arrow (^) takes you to the next floor, provided you have obtained a key.
-muertos=0
+ PRINT TAB(8)"The other squares all look the same, but their contents vary.  Some give you":PRINT TAB(8)"extra lives, others a limited shield against the ghost car, others more points.
-'
+PRINT TAB(8)"All the points must be collected before you can get a key.":PRINT
-'
+RESTORE 1750:address=&HE000
-' Pantalla de Juego
+READ code:WHILE code<256:POKE address,code:address=address+1:READ code:WEND
-'
+screen=&HE000:pr=&HE003:UDGs=&HD100:pen=&HD001:paper=&HD000:double=&HD006
-'
+RESTORE 1680:FOR i=0 TO 47:READ j:POKE udgs+i,j:NEXT
- FOR I=20 TO 70 STEP 4:FOR J=4 TO 15 STEP 2
+caru$=CHR$(0):card$=CHR$(1):carr$=CHR$(2):carl$=CHR$(3):key$=CHR$(4):p$=CHR$(5)
- PRINT FNtab$(J,I,inv$)
+RANDOMIZE PEEK(64504!):b$=CHR$(187):sp$=" ":bleep$=CHR$(7)
-pantalla(J,I)=1:pantalla(J,I+1)=1
+a$="p Press a key to play. ":PRINT:PRINT TAB((90-LEN(a$)+1)/2)e$a$e$"q":WHILE INKEY$="":WEND
-NEXT J,I
+CALL screen:RETURN
- PRINT FNtab$(21,cx,canon$)
+REM Graphics data
-'
+DATA 20,62,34,62,62,62,34,28
-'
+DATA 28,34,62,62,62,34,62,20
-' Movimiento del ca|on
+DATA 0,0,126,187,186,187,126,0
-'
+DATA 0,0,126,221,93,221,126,0
-'
+DATA 0,224,191,191,167,229,0,0
-D$=INKEY$
+DATA 255,129,189,165,189,161,161,255
-IF muertos=78 THEN bxx=0:byy=0:GOTO 1490
+REM Machine code
-IF D$=CHR$(1) AND cx>18 THEN cx=cx-1
+DATA 195,6,224,195,91,224,205,41,224,17,152,44,33,0,182,1,104,1,62
-IF D$=CHR$(6) AND cx<69 THEN cx=cx+1
+DATA 32,245,213,62,8,115,35,114,35,19,61,32,248,209,235,9,235,241,61
-IF D$=CHR$(13) AND disparo=0 THEN disparo=1:bx=21:by=cx+1
+DATA 32,236,201,193,205,90,252,233,0,201,102,26,111,34,2,208,10,50,16
-IF disparo=1 THEN GOSUB 1840
+DATA 208,3,10,111,3,10,103,237,75,16,208,6,0,17,19,208,237,176,42
-PRINT FNtab$(21,cx,canon$)
+DATA 2,208,205,252,224,34,4,208,33,19,208,34,17,208,201,205,48,224,205
-GOSUB 2010
+DATA 41,224,243,42,17,208,126,35,34,17,208,205,234,224,17,79,225,1,8
-GOTO 1750
+DATA 0,237,176,221,42,4,208,14,8,253,33,79,225,42,0,208,125,6,8
-'
+DATA 253,203,0,6,56,13,7,221,203,8,22,221,203,0,22,7,195,164,224
-'
+DATA 203,4,221,203,8,22,221,203,0,22,203,4,221,203,8,22,221,203,0
-' Disparo
+DATA 22,16,215,253,35,58,6,208,167,202,209,224,221,126,8,221,119,9,221
-'
+DATA 126,0,221,119,1,221,35,121,254,5,194,209,224,1,200,2,221,9,79
-'
+DATA 221,35,13,194,130,224,42,4,208,1,16,0,9,34,4,208,33,16,208
-bx=bx-1
+DATA 53,194,98,224,251,201,17,0,184,254,32,48,3,17,0,209,111,38,0
-PRINT FNtab$(bxx,byy,CHR$(32))
+DATA 41,41,41,25,201,92,38,0,84,203,37,1,15,225,9,78,35,70,235
- PRINT FNtab$(bx,by,CHR$(198))
+DATA 41,41,41,9,201,48,89,0,92,208,94,160,97,112,100,64,103,16,106
-byy=by:bxx=bx
+DATA 224,108,176,111,128,114,80,117,32,120,240,122,192,125,144,128,96,131,48
-IF bx=3 THEN disparo=0:PRINT FNtab$(bxx,byy,CHR$(32))
+DATA 134,0,137,208,139,160,142,112,145,64,148,16,151,224,153,176,156,128,159
-IF pantalla(bx,by)=1 THEN GOSUB 1960
+DATA 80,162,32,165,240,167,192,170,144,173,96,176,0,0,0,0,0,0,256
-RETURN
-IF pantalla(bx,by-1)=1 THEN ey=by-1 ELSE ey=by
-PRINT CHR$(7):PRINT FNtab$(bx,ey,STRING$(2,32)):pantalla(bx,ey)=0:pantalla(bx,ey+1)=0
-muertos=muertos+1:puntos=puntos+15:GOSUB 2610
-disparo=0
-RETURN
-'
-'
-' Disparos alienigenas
-'
-'
-IF disparo1=1 THEN GOSUB 2140
-IF disparo1=1 THEN RETURN
-dx=0
- FOR I=21 TO 4 STEP -1
-IF pantalla(I,cx+1)=1 AND dx=0 THEN dx=I:disparo1=1
- NEXT I
-dx(1)=dx+1:dy(1)=cx+1
-RETURN
-'
-'
-' Efectos de disparos alienigenas
-'
-'
-I=1
-IF per=1 THEN 2230
-IF dy(I)<=cx THEN dy(I)=dy(I)+1:IF pantalla(dx(I),dy(I))=1 THEN dy(I)=dy(1)-1
-IF dy(I)>cx+1 THEN dy(I)=dy(I)-1:IF pantalla(dx(I),dy(I))=1 THEN dy(I)=dy(I)+1
-IF pantalla(dx(I),dy(I))=1 THEN IF pantalla(dx(I),dy(I)-1)=0 THEN dy(I)=dy(I)-1 ELSE dy(I)=dy(I)+1
-PRINT FNtab$(dxx(I),dyy(I),CHR$(32))
-PRINT FNtab$(dx(I),dy(I),CHR$(199))
-dxx(I)=dx(I):dyy(I)=dy(I):dx(I)=dx(I)+1
-IF dy(I)=cx+1 AND dx(I)=22 THEN vida=vida-1:FOR ITY=1 TO 15:PRINT FNtab$(0,0,CHR$(7)):PRINT FNtab$(0,27,CLARO$):PRINT FNtab$(0,54,OSCURO$):NEXT ITY:GOSUB 2600
-IF dx(I)=22 THEN dx(I)=0:dy(I)=0:disparo1=0
-IF per=1 THEN per=0 ELSE per=1
-IF vida=0 THEN GOTO 2640
-RETURN
- '
- '
- ' Marcadores
- '
-'
-GOTO 2430
-FOR ppy=90 TO 0 STEP -1
- PRINT FNtab$(ppx,ppy,os$)
-NEXT ppy
-RETURN
- :
-ppx=23:os$=CHR$(202):GOSUB 2380
-ppx=25:os$=CHR$(200):GOSUB 2380
-ppx=27:os$=CHR$(201):GOSUB 2380
-:
-FOR alc=1 TO 4
-FOR ppy=80 TO alc*3 STEP -1
- PRINT FNtab$(26,ppy,alienigena$(alc)+CHR$(32))
-NEXT ppy
-NEXT alc
-GOTO 2540
- PRINT FNtab$(26,kl,CHR$(149)):RETURN
-kl=0:GOSUB 2530
-kl=20:GOSUB 2530
-kl=45:GOSUB 2530
-kl=90:GOSUB 2530
-PRINT FNtab$(24,1,"RETURN : Disparar."+CHR$(149)+CHR$(27)+CHR$(12)+" : Derecha."+CHR$(149)+CHR$(27)+CHR$(11)+" : Izquierda."+CHR$(149))
-:
-PRINT FNtab$(26,22,"Vidas : ");:PRINT USING "###";vida
- PRINT FNtab$(26,47,"Puntuacion : ");:PRINT USING"#############";puntos
- :
- RETURN
-'
-'
-' Juago Finalizado
-'
-'
-FOR TIME=1 TO 2800:NEXT TIME
-PRINT VIDEON$
-FOR I=90 TO 0 STEP -1
-PRINT FNtab$(26,I,CHR$(32))
-NEXT I
-frase$="   PUNTUACION FINAL :"+STR$(puntos)+"."
-PRINT FNtab$(24,47,frase$+STRING$(43-LEN(frase$),32))
-GOTO 2800
-FOR I=88-LEN(frase$) TO 2 STEP -1
-PRINT FNtab$(26,I,frase$)
-NEXT I
-RETURN
-frase$="J U E G O 	T E R M I N A D O ":GOSUB 2760
-FOR TIME=1 TO 3000:NEXT TIME
-frase$=CHR$(32):GOSUB 2760
-frase$="]DESEAS JUGAR OTRA VEZ (S/N)? ":GOSUB 2760
-RES$=INKEY$:RES$=UPPER$(RES$)
-IF RES$="N" THEN FOR I=1 TO 30:PRINT:NEXT I:PRINT CURON$;VIDEOFF$:NEW
-IF RES$="S" THEN GOTO 2880
-GOTO 2840
-bxx=0:byy=0:puntos=0
-disparo=0
-PRINT BORRA$;VIDEOFF$:GOTO 1480
 </file>
 ===== Controles =====
-        → = DERECHA
+        O = IZQUIERDA
-        ← = IZQUIERDA
+        P = DERECHA
-   RETURN = DISPARO
+        S = ARRIBA
+        X = ABAJO
+        Q = ABANDONAR
 ===== Carga del programa =====
@@ Línea 331: / Línea 237: @@
 .- 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 Tenemos visita
+.- Retirar el disco CP/M e introducir el disco que contiene el juego Car Park
-.- Teclear run "Marciano" y pulsar la tecla "ENTER"
+.- Teclear run "Car" y pulsar la tecla "ENTER"
-===== Extras =====
 ===== Descarga =====
-  * {{:otros:Tenemos visita (Basic).zip|Tenemos visita }}(juego en formato dsk, comprimido con zip)
+  * {{:otros:Car Park (Basic).zip|Car Park }}(juego en formato dsk, comprimido con zip)
-===== Enlaces =====