es:la_ville_infernale
Diferencias
Muestra las diferencias entre dos versiones de la página.
Ambos lados, revisión anteriorRevisión previa | Próxima revisiónAmbos lados, revisión siguiente | ||
es:la_ville_infernale [2016/11/30 20:41] – [Extras] jevicac | es:la_ville_infernale [2016/11/30 20:50] – [Listado] jevicac | ||
---|---|---|---|
Línea 21: | Línea 21: | ||
===== Listado ===== | ===== Listado ===== | ||
- | * **__Listado 1 - DAGOBA.BAS__** | + | * **__Listado 1 - VILLE.BAS__** |
< | < | ||
+ | 5 ' a sauver sous le nom VILLE.BAS | ||
+ | 6 ' | ||
+ | 10 OPTION RUN | ||
+ | 20 REM ******* VILLE INFERNALE ******* | ||
+ | 30 REM copyright FERNANDEZ michel | ||
+ | 40 MEMORY &HF605 [ 972 ] | ||
+ | 50 code=HIMEM-400: | ||
+ | 60 MEMORY &HF605 | ||
+ | 70 echange.jeu=code+3 | ||
+ | 80 x$=CHR$(27): | ||
+ | 90 cls$=x$+" | ||
+ | 100 DEF Fllcu$ (li, co)=x$+" | ||
+ | 110 DEF FNfe$(li, | ||
+ | 120 PRINT FNfe$(0, | ||
+ | 130 PRINT: | ||
+ | 140 PRINT" | ||
+ | 150 PRINT: | ||
+ | 160 PRINT" | ||
+ | 170 PRINT FNfe$(31, | ||
+ | 180 OPEN " | ||
+ | 190 i=code: | ||
+ | 200 carad=i: | ||
+ | 210 OPEN " | ||
+ | 220 i=-1:FOR t=1 TO 128:INPUT #1,b$:FOR j=1 TO 31 STEP 2: | ||
+ | 230 PRINT cls$; | ||
+ | 240 WHILE INKEY$<>"": | ||
+ | 250 PRINT FNfe$(4, | ||
+ | 260 PRINT" | ||
+ | 270 PRINT: | ||
+ | 280 PRINT" | ||
+ | 290 PRINT" | ||
+ | 300 PRINT: | ||
+ | 310 PRINT FNfe$(31, | ||
+ | 320 CALL echange.jeu | ||
+ | 330 CLOSE 1 | ||
+ | 340 CLEAR, 62981!: MEMORY 62981!: RUN"v1 | ||
+ | </ | ||
+ | * **__Listado 2 - V1.BAS__** | ||
+ | |||
+ | < | ||
+ | 10 ' La ville infernale | ||
+ | 20 ' | ||
+ | 30 ' a sauver sous le nom V1.BAS | ||
+ | 40 ' | ||
+ | 50 ' RSX basic etendu | ||
+ | 60 ' | ||
+ | 70 MEMORY & | ||
+ | 80 DATA C5, | ||
+ | 9O DATA ED, | ||
+ | 100 DATA D5, | ||
+ | 110 DATA E1, | ||
+ | 120 DATA 0E, | ||
+ | 130 FOR i=1 TO 119; READ n$: | ||
+ | 140 FOR i=1 TO l41: READ n$: | ||
+ | 150 RUN"v2 | ||
</ | </ | ||
+ | |||
+ | * **__Listado 3 - V2.BAS__** | ||
+ | |||
+ | < | ||
+ | 10 ' La ville infernale | ||
+ | 20 ' | ||
+ | 30 ' a sauver sous le nom V2.BAS | ||
+ | 40 ' | ||
+ | 50 ' RSX graphique | ||
+ | 60 ' | ||
+ | 70 bload%=& | ||
+ | 80 nom$=" | ||
+ | 90 DATA F09AF09EF0A4F0A8F0AEF0CDF0E6F0F5 | ||
+ | 100 DATA F100F10BF112F119F128F12BF17FF19A | ||
+ | 110 DATA F1A9F1CCF1F1F1F4F1F9F218F21BF220 | ||
+ | 120 DATA F22DF271F290 | ||
+ | 130 DATA F080F0CDF090F095F0D8F0DEF0F5F100F128F10BF19AF112 | ||
+ | 140 DATA F080F0D0F091F096F0DBF0DEF0F8F100F12BF1OBF19DF112 | ||
+ | 150 DIM table(51): | ||
+ | 160 FOR j=1 TO lena: | ||
+ | 170 m=m+1; | ||
+ | 180 FOR i=1 TO 27: | ||
+ | 190 df=PEEK(b+2)*256+PEEK(b+1)-adorig+dep%: | ||
+ | 200 df2=df-256*df1: | ||
+ | 210 m=& | ||
+ | 220 IF b2<0 THEN b2=b2+256 | ||
+ | 230 IF b1<0 THEN b1=B1+255 | ||
+ | 240 POKE m-1,b2:POKE m, | ||
+ | 250 m=& | ||
+ | 260 IF b2<0 THEN b2=b2+256 | ||
+ | 270 IF b1<O THEN b1=b1+255 | ||
+ | 280 POKE m,& | ||
+ | 290 RUN" | ||
+ | </ | ||
+ | |||
+ | * **__Listado 4 - V3.BAS__** | ||
+ | |||
+ | < | ||
+ | 1 ' a sauver sous le nom V3.BAS | ||
+ | 2 ' | ||
+ | 3 ' programme principal | ||
+ | 4 ' | ||
+ | 10 OPTION RUN | ||
+ | 20 REM ******* VILLE INFERNALE ************* | ||
+ | 30 REM copyright FERNANDEZ michel | ||
+ | 40 DEFINT a-d:DEFINT f-z:DIM vi$(7) | ||
+ | 50 DEF FNwp(x)=UNT(PEEK(x)+256*PEEK(x+1)) | ||
+ | 60 gcls=FNwp(& | ||
+ | 70 gvideo=FNwp(& | ||
+ | 80 gmove=FNwp(& | ||
+ | 90 gplotr=FNwp(& | ||
+ | 100 x$=CHR$(27): | ||
+ | 110 cls$=x$+" | ||
+ | 120 DEF FNcu$(li, | ||
+ | 130 DEF FNfe$(li, | ||
+ | 140 z1$=CHR$(170)+CHR$(165)+CHR$(165)+CHR$(172): | ||
+ | 150 z5$=CHR$(165)+CHR$(165)+CHR$(170): | ||
+ | 160 z8$=" " | ||
+ | 170 GOTO 1090 | ||
+ | 180 PRINT FNfe$(22, | ||
+ | 182 PRINT FNfe$(22, | ||
+ | 185 PRINT FNfe$(22, | ||
+ | 190 PRINT STRING$(12, | ||
+ | 200 PRINT STRING$(11, | ||
+ | 210 PRINT STRING$(10, | ||
+ | 220 PRINT STRING$(9, | ||
+ | 230 PRINT STRING$(8, | ||
+ | 240 RETURN | ||
+ | 250 PRINT STRING$(12, | ||
+ | 260 PRINT STRING$(12, | ||
+ | 270 PRINT STRING$(12, | ||
+ | 280 PRINT STRING$(12, | ||
+ | 290 PRINT STRING$(12, | ||
+ | 300 PRINT STRING$(12, | ||
+ | 310 PRINT STRING$(12, | ||
+ | 320 PRINT STRING$(l2, | ||
+ | 330 RETURN | ||
+ | 340 PRINT STRING$(20, | ||
+ | 350 PRINT STRING$(19, | ||
+ | 360 PRINT STRING$(18, | ||
+ | 370 PRINT STRING$(17, | ||
+ | 380 PRINT STRING$(16, | ||
+ | 390 PRINT STRING$(15, | ||
+ | 400 PRINT STRING$(14, | ||
+ | 410 PRINT STRING$(13, | ||
+ | 420 RETURN | ||
+ | 430 PRINT STRING$(12, | ||
+ | 440 PRINT STRING$(12, | ||
+ | 450 PRINT STRING$(12, | ||
+ | 460 PRINT STRING$(12, | ||
+ | 470 PRINT STRING$(12, | ||
+ | 480 PRINT STRING$(12, | ||
+ | 490 PRINT STRING$(12, | ||
+ | 500 PRINT STRING$(12, | ||
+ | 510 RETURN | ||
+ | 520 PRINT STRING$(20, | ||
+ | 530 PRINT STRING$(19, | ||
+ | 540 PRINT STRING$(18, | ||
+ | 550 PRINT STRING$(17, | ||
+ | 560 PRINT STRING$(16, | ||
+ | 570 PRINT STRING$(15, | ||
+ | 580 PRINT STRING$(14, | ||
+ | 590 PRINT STRING$(13, | ||
+ | 600 RETURN | ||
+ | 610 PRINT STRING$(12, | ||
+ | 620 PRINT STRING$(12, | ||
+ | 630 PRINT STRING$(12, | ||
+ | 640 PRINT STRING$(12, | ||
+ | 650 PRINT STRING$(12, | ||
+ | 660 PRINT STRING$(12, | ||
+ | 670 PRINT STRING$(12, | ||
+ | 680 PRINT STRING$(12, | ||
+ | 690 RETURN | ||
+ | 700 PRINT STRING$(12, | ||
+ | 710 PRINT STRING$(12, | ||
+ | 720 PRINT STRING$(12, | ||
+ | 730 PRINT STRING$(12, | ||
+ | 740 PRINT STRING$(12, | ||
+ | 750 PRINT STRING$(12, | ||
+ | 760 PRINT STRING$(12, | ||
+ | 770 PRINT STRING$(12, | ||
+ | 780 RETURN | ||
+ | 790 PRINT STRING$(16, | ||
+ | 800 PRINT STRING$(16, | ||
+ | 810 PRINT STRING$(16, | ||
+ | 820 PRINT STRING$(16, | ||
+ | 830 PRINT STRING$(16, | ||
+ | 840 PRINT STRING$(15, | ||
+ | 850 PRINT STRING$(14, | ||
+ | 860 PRINT STRING$(13, | ||
+ | 870 RETURN | ||
+ | 880 PRINT FNcu$(0, | ||
+ | 890 PRINT CHR$(161)+CHR$(189)+z5$+z5$+z5$+CHR$(172): | ||
+ | 900 PRINT CHR$(161)+CHR$(189)+STRING$(8, | ||
+ | 910 PRINT CHR$(161)+CHR$(189)+nm$+CHR$(162)+CHR$(162) | ||
+ | 920 PRINT CHR$(161)+CHR$(189)+" | ||
+ | 930 PRINT CHR$(161)+CHR$(189)+" | ||
+ | 940 PRINT CHR$(161)+CHR$(189)+CHR$(164)+CHR$(177)+STRING$(2, | ||
+ | 950 PRINT CHR$(161)+CHR$(184)+STRING$(10, | ||
+ | 960 PRINT CHR$(184)+STRING$(10, | ||
+ | 970 RETURN | ||
+ | 980 IF cl=1 THEN RETURN | ||
+ | 990 PRINT FNcu$(10, | ||
+ | 1000 PRINT FNcu$(11, | ||
+ | 1010 PRINT FNcu$(12, | ||
+ | 1020 PRINT FNcu$(13, | ||
+ | 1030 RETURN | ||
+ | 1040 PRINT CHR$(7); | ||
+ | 1050 WHILE INKEY$<>"": | ||
+ | 1060 q$=INKEY$: | ||
+ | 1070 IF q$="" | ||
+ | 1080 q$=UPPER$(q$): | ||
+ | 1090 PRINT FNfe$(31, | ||
+ | 1100 GOSUB 1800 | ||
+ | 1110 IF y<7 THEN y1=y-1:GOTO 1180 | ||
+ | 1120 IF y<13 THEN y1=y-7:GOTO 1180 | ||
+ | 1130 IF y<19 THEN y1-y-13: | ||
+ | 1140 IF y<25 THEN y1 y-19:GOTO 1180 | ||
+ | 1150 IF y<31 THEN y1=y-25: | ||
+ | 1160 IF y<37 THEN y1=y-31: | ||
+ | 1170 IF y<43 THEN y1=y-37 | ||
+ | 1180 LI=INT(y/ | ||
+ | 1190 z=VAL(MID$(vi$(li), | ||
+ | 1200 GOSUB 2200:GOSUB 2140 | ||
+ | 1210 IF ar=1 THEN ar=0:GOTO 1225 | ||
+ | 1220 PRINT FNfe$(2, | ||
+ | 1225 PRINT FNfe$(1, | ||
+ | 1230 IF z=0 THEN 1310 | ||
+ | 1240 ON z GOTO 1250, | ||
+ | 1250 nm$=" GARAGE ":GOTO 1300 | ||
+ | 1260 nm$=" ESSENCE": | ||
+ | 1270 nm$=" BANQUE ":GOTO 1300 | ||
+ | 1280 nm$=" POLICE ":GOTO 1290 | ||
+ | 1290 GOSUB 880:GOSUB 980:GOTO 1310 | ||
+ | 1300 GOSUB 880 | ||
+ | 1310 PRINT FNfe$(22, | ||
+ | 1320 WHILE INKEY$<>"" | ||
+ | 1330 FF=RND: | ||
+ | 1340 IF ASC(q$)=1 THEN q=1:GOTO 1390 | ||
+ | 1350 IF ASC(q$)=6 THEN q=2:GOTO 1390 | ||
+ | 1360 IF ASC(q$)=30 THEN q=3:GOTO 1390 | ||
+ | 1370 IF ASC(q$)=31 THEN q=4:GOTO 1390 | ||
+ | 1380 PRINT CHR$(7);; | ||
+ | 1390 PRINT cls$:IF z=4 AND cl=0 AND q<>3 THEN 2550 | ||
+ | 1400 IF (q=1 AND c2=2)OR(q=2 AND c3=2)OR(q=4 AND c1=2)THEN 2570 | ||
+ | 1410 IF q=3 THEN 2620 | ||
+ | 1420 d1=q: | ||
+ | 1430 IF e<0 THEN 2990 | ||
+ | 1440 PRINT FNfe$(0, | ||
+ | 1450 IF km=200 THEN 3060 | ||
+ | 1460 IF EN>0 OR km<4 THEN 1520 | ||
+ | 1470 J=INT(RND*30)+1 | ||
+ | 1480 IF J=23 AND P<5 THEN 2270 | ||
+ | 1490 IF J=11 AND P<10 AND AG<2 AND a>0 THEN 2390 | ||
+ | 1500 IF (J=5 OR J=16) AND CS-1 AND P<10 THEN 2460 | ||
+ | 1510 IF (J=8 OR J=27 OR J=2) AND BL=1 AND P<10 THEN 2510 | ||
+ | 1520 en=en-1 | ||
+ | 1530 ON d1 GOTO 1540, | ||
+ | 1540 D=D-1:IF D=0 THEN D=4 | ||
+ | 1550 GOTO 1570 | ||
+ | 1560 D=D+1: IF D=5 THEN D=1 | ||
+ | 1570 IF D=l THEN Y=Y-1: | ||
+ | 1580 IF D=2 THEN X=X+1: | ||
+ | 1590 IF D=3 THEN Y=Y+1: | ||
+ | 1600 IF D=4 THEN X=X-1: | ||
+ | 1610 P=P-1:IF P<0 THEN P=0 | ||
+ | 1620 IF Y=0 THEN 3020 | ||
+ | 1630 IF Y=41 THEN 3100 | ||
+ | 1640 GOTO 1100 | ||
+ | 1650 PRINT CURSOFF$; | ||
+ | 1660 PRINT FNfe$(1, | ||
+ | 1670 PRINT FNfe$(0, | ||
+ | 1680 PRINT CHR$(163)+" | ||
+ | 1690 PRINT CHR$(163)+" | ||
+ | 1700 PRINT CHR$(163)+" | ||
+ | 1710 PRINT STRING$(18, | ||
+ | 1720 PRINT FNcu$(4, | ||
+ | 1730 PRINT FNcu$(9, | ||
+ | 1740 PRINT FNcu$(11, | ||
+ | 1750 PRINT FNcu$(1, | ||
+ | 1760 PRINT FNcu$(5, | ||
+ | 1770 PRINT FNcuS(8, | ||
+ | 1780 PRINT FNCU$(12, | ||
+ | 1790 RETURN | ||
+ | 1800 IF BL=0 THEN 1820 | ||
+ | 1810 IF KM=O THEN K=1:RETURN | ||
+ | 1820 FF=INT(RND*20)+1 | ||
+ | 1830 IF FF=4 OR FF=8 OR FF=20 THEN K=1:GOTO 1900 | ||
+ | 1840 IF FF=7 OR FF=16 THEN K=2:GOTO 1900 | ||
+ | 1850 IF FF=1 OR FF=9 THEN K=3:GOTO 1900 | ||
+ | 1860 IF FF=3 OR FF=14 THEN K=4:GOTO 1900 | ||
+ | 1870 IF FF=5 OR FF=10 OR FF=13 THEN K=5;GOTO 1900 | ||
+ | 1880 IF FF=6 OR FF=12 OR FF=18 THEN K=7:GOTO 1900 | ||
+ | 1890 K=6 | ||
+ | 1900 IF K=1 THEN c1=3: | ||
+ | 1910 IF K=2 THEN c1=3; | ||
+ | 1920 IF K=3 THEN c1=3: | ||
+ | 1930 IF K=4 THEN c1=3: | ||
+ | 1940 IF K=5 THEN c1=2: | ||
+ | 1950 IF K=6 THEN c1=2: | ||
+ | 1960 IF K=7 THEN c1=2: | ||
+ | 1970 ON D GOTO 1980, | ||
+ | 1980 IF X=1 AND C2=3 THEN 1820 | ||
+ | 1990 IF X=40 AND C3=3 THEN 1820 | ||
+ | 2000 IF Y=1 AND(X<19 OR X>21) AND C1=3 THEN 1820 | ||
+ | 2010 RETURN | ||
+ | 2020 IF X=40 AND C1=3 THEN 1820 | ||
+ | 2030 IF Y=1 AND(X<19 OR X>21) AND C2=3 THEN 1820 | ||
+ | 2040 IF Y=40 AND(X<19 OR X>21) AND C3=3 THEN 1820 | ||
+ | 2050 RETURN | ||
+ | 2060 IF X=1 AND C3=3 THEN 1820 | ||
+ | 2070 IF X=40 AND C2=3 THEN 1820 | ||
+ | 2080 IF Y=40 AND(X<19 OR X>21) AND C1=3 THEN 1820 | ||
+ | 2090 RETURN | ||
+ | 2100 IF X=1 AND C1=3 THEN 1820 | ||
+ | 2110 IF Y=1 AND(X<19 OR X>21) AND C3=3 THEN 1820 | ||
+ | 2120 IF Y=40 AND(X<19 OR X>21) AND C2=3 THEN 1820 | ||
+ | 2130 RETURN | ||
+ | 2140 IF b1=0 THEN b$="?": | ||
+ | 2150 IF d=1 THEN b$=CHR$(131): | ||
+ | 2160 IF d=2 THEN b$=CHR$(132): | ||
+ | 2170 IF d=3 THEN b$=CHR$(133): | ||
+ | 2180 IF d=4 THEN b$=CHR$(134) | ||
+ | 2190 PRINT FNfe$(0, | ||
+ | 2200 IF E<10 THEN AL1$=" | ||
+ | 2210 IF A<20 THEN AL2$=" | ||
+ | 2220 IF CS=2 THEN AL3$=" | ||
+ | 2230 IF RS=0 THEN AL4$=" | ||
+ | 2240 PRINT FNfe$(0, | ||
+ | 2250 PRINT FNfe$(0, | ||
+ | 2260 PRINT FNfe$(0, | ||
+ | 2270 GOSUB 180:PRINT FNcu$(7, | ||
+ | 2280 PRINT" | ||
+ | 2290 IF RS<1 THEN 2350 | ||
+ | 2300 PRINT: | ||
+ | 2310 PRINT: | ||
+ | 2320 PRINT FNfe$(22, | ||
+ | 2330 EN=1:GOTO 1530 | ||
+ | 2340 PRINT FNfe$(22, | ||
+ | 2350 PRINT: | ||
+ | 2360 PRINT: | ||
+ | 2370 GOTO 2720 | ||
+ | 2390 GOSUB 180:PRINT FNcu$(7, | ||
+ | 2400 PRINT" | ||
+ | 2410 PRINT: | ||
+ | 2420 PRINT: | ||
+ | 2430 PRINT: | ||
+ | 2440 PRINT: | ||
+ | 2450 PRINT: | ||
+ | 2460 GOSUB 180:PRINT FNcu$(7, | ||
+ | 2470 PRINT" | ||
+ | 2480 PRINT: | ||
+ | 2490 PRINT: | ||
+ | 2500 GOTO 2320 | ||
+ | 2510 GOSUB 180:PRINT FNcu$(7, | ||
+ | 2520 PRINT" | ||
+ | 2530 PRINT: | ||
+ | 2540 PRINT: | ||
+ | 2550 GOSUB 180:PRINT FNcu$(7, | ||
+ | 2560 PRINT" | ||
+ | 2570 GOSUB 180:PRINT FNcu$(7, | ||
+ | 2580 PRINT" | ||
+ | 2590 PRINT: | ||
+ | 2600 PRINT: | ||
+ | 2610 GOTO 2720 | ||
+ | 2620 GOSUB 182: | ||
+ | 2630 IF Z>0 THEN 2660 | ||
+ | 2640 PRINT" | ||
+ | 2650 PRINT: | ||
+ | 2660 IF Z>1 THEN 2730 | ||
+ | 2670 PRINT" | ||
+ | 2680 PRINT: | ||
+ | 2690 IF A<0 THEN 2720 | ||
+ | 2700 PRINT: | ||
+ | 2710 RS=1: | ||
+ | 2720 PRINT:PRINT CHR$(7);" | ||
+ | 2730 IF Z>2 THEN 2810 | ||
+ | 2740 PRINT" | ||
+ | 2750 IF E=80 THEN 2790 | ||
+ | 2760 PRINT: | ||
+ | 2770 E=80-E: | ||
+ | 2780 PRINT: | ||
+ | 2790 PRINT: | ||
+ | 2800 A=A-5:IF A<0 THEN 2720 ELSE 2780 | ||
+ | 2810 IF Z>3 THEN 2860 | ||
+ | 2820 PRINT" | ||
+ | 2830 PRINT: | ||
+ | 2840 PRINT; | ||
+ | 2850 AG=O: | ||
+ | 2860 IF cl=1 THEN 2640 | ||
+ | 2870 PRINT" | ||
+ | 2880 IF P<5 THEN 2900 | ||
+ | 2890 PRINT: | ||
+ | 2900 FF=INT(RND*11)+1 | ||
+ | 2910 IF FF=5 OR FF=11 THEN 2890 | ||
+ | 2920 IF FF=2 OR FF=6 OR FF=9 THEN 2970 | ||
+ | 2930 IF FF=1 OR FF=7 OR FF=10 THEN 2980 | ||
+ | 2940 PRINT: | ||
+ | 2950 PRINT" | ||
+ | 2960 IF A<O THEN 2720 ELSE 2780 | ||
+ | 2970 PRINT: | ||
+ | 2980 PRINT: | ||
+ | 2990 GOSUB 185:PRINT FNcu$(7, | ||
+ | 3000 PRINT" | ||
+ | 3010 PRINT: | ||
+ | 3020 GOSUB 185:GOSUB 185:PRINT FNcu$(7, | ||
+ | 3030 PRINT" | ||
+ | 3040 PRINT: | ||
+ | 3050 PRINT: | ||
+ | 3060 GOSUB 185:PRINT FNcu$(7, | ||
+ | 3070 PRINT" | ||
+ | 3080 PRINT: | ||
+ | 3090 PRINT: | ||
+ | 3100 GOSUB 185:PRINT FNcu$(7, | ||
+ | 3110 PRINT" | ||
+ | 3120 PRINT: | ||
+ | 3130 PRINT FNfe$(22, | ||
+ | 3140 PRINT: | ||
+ | 3150 PRINT FNfe$(22, | ||
+ | 3160 PRINT CHR$(7); | ||
+ | 3170 WHILE INKEY$="": | ||
+ | 3180 FOR i=1 TO 7: | ||
+ | 3190 PRINT cls$:PRINT FNcu$(l0, | ||
+ | 3200 A=80: | ||
+ | 3210 K=1: | ||
+ | 3220 FOR I=1 TO 80 | ||
+ | 3230 X=INT(RND*1600)+1: | ||
+ | 3240 IF x=20 OR x=1580 THEN 3230 | ||
+ | 3250 MID$(vi$(li), | ||
+ | 3260 FOR I=1 TO 80 | ||
+ | 3270 X=INT(RND*1600)+1: | ||
+ | 3280 IF x=20 OR x=1580 THEN 3270 | ||
+ | 3290 MID$(vi$(li), | ||
+ | 3300 PRINT FNcu$(14, | ||
+ | 3310 FOR I=1 TO 90 | ||
+ | 3320 X=INT(RND*1600)+1: | ||
+ | 3330 IF x=20 OR x=1580 THEN 3320 | ||
+ | 3340 MID$(vi$(li), | ||
+ | 3350 FOR I=1 TO 90 | ||
+ | 3360 X=INT(RND*1600)+1: | ||
+ | 3370 IF x=20 OR x=1580 THEN 3360 | ||
+ | 3380 MID$(vi$(li), | ||
+ | 3390 X=20:Y=40 | ||
+ | 3400 PRINT CHR$(7): | ||
+ | 3410 CALL gcls:PRINT FNfe$(0, | ||
+ | 3420 CALL gdraw(a%, | ||
+ | 3430 CALL gmove(a%, | ||
+ | 3450 a%=0: | ||
+ | 3460 a%=388: | ||
+ | 347O PRINT FNcu$(1, | ||
+ | 3472 PRINT FNcu$(7, | ||
+ | 3475 ff=500: | ||
+ | 3480 a%=549: | ||
+ | 3490 a%=549: | ||
+ | 3500 ON j GOTO 3510, | ||
+ | 3510 b%=B%+4: | ||
+ | 3520 a%=a%+8: | ||
+ | 3530 b%=b%-4: | ||
+ | 3540 a%=a%-8 | ||
+ | 3550 GOSBUB 3420:FOR t=1 to ff:NEXT t:NEXT i: | ||
+ | 3560 PRINT FNfe$(24, | ||
+ | 3570 IF q$<>" | ||
+ | 3580 PRINT cls$;" | ||
+ | 3590 IF q$=" | ||
+ | 3600 IF q$=" | ||
+ | 3610 IF q$=" | ||
+ | 3620 IF q$=" | ||
+ | 3622 IF q$=" | ||
+ | 3624 GOTO 3560 | ||
+ | 3630 IF a$=" | ||
+ | 3632 IF MIDs(vi$(j), | ||
+ | 3635 IF MID$(vi$(j), | ||
+ | 3642 CALL gmove(a%, | ||
+ | 3650 PRINT cls$; | ||
+ | 3652 b%=205:FOR j=1 TO 7 | ||
+ | 3660 FOR i=1 TO 40: | ||
+ | 3662 NEXT: | ||
+ | 3670 FOR i=1 TO 40: | ||
+ | 3672 NEXT: | ||
+ | 3680 FOR i=1 TO 40: | ||
+ | 3682 NEXT: | ||
+ | 3690 FOR i=1 TO 40: | ||
+ | 3692 NEXT: | ||
+ | 3700 FOR i=1 TO 40: | ||
+ | 3702 NEXT: | ||
+ | 3710 FOR i=1 TO 40: | ||
+ | 3712 NEXT: | ||
+ | </ | ||
+ | |||
+ | * **__Listado 5 - CHARGE1.BAS__** | ||
+ | |||
+ | < | ||
+ | 10 ' La ville infernale - chargeur | ||
+ | 20 ' | ||
+ | 30 ' CHARGEUR 1 - chargeur de RSX basic etendu | ||
+ | 40 ' | ||
+ | 50 MEMORY &HF3FF | ||
+ | 60 DATA C5, | ||
+ | 70 DATA ED, | ||
+ | 80 DATA D5, | ||
+ | 90 DATA E1, | ||
+ | 100 DATA 0E, | ||
+ | 110 FOR i=1 TO 119:READ n$: | ||
+ | 120 FOR i=1 TO 141:READ n$: | ||
+ | 130 DELETE 50-130 | ||
+ | </ | ||
+ | |||
+ | * **__Listado 6 - CHARGE2.BAS__** | ||
+ | |||
+ | < | ||
+ | 10 ' La ville infernale - chargeur 2 | ||
+ | 20 ' | ||
+ | 30 ' CHARGEUR 2 - a effacer apres lancement | ||
+ | 40 ' | ||
+ | 50 ' chargeur de RSX graphique | ||
+ | 60 ' | ||
+ | 70 ' ATTENTION ce chargeur ne fonctionne qu' | ||
+ | 80 ' avoir lancé le RSX basic étend (vchargel) | ||
+ | 90 ' | ||
+ | 100 MEMORY & | ||
+ | 110 DATA 07CF079406AA07DC07E609460A1C0A36 | ||
+ | 120 DATA 09B00B48092A0974053805E006A6054E | ||
+ | 130 DATA 07170B420B5606B20B10062D097407F1 | ||
+ | 140 DATA 092E097E0A180AFE0A120805086A0886 | ||
+ | 150 DATA 0A7F098209EC0A61086F04FC04110553 | ||
+ | 160 DATA 0623 | ||
+ | 170 DATA CD5AFCC200AF2180F50630772310FCC9 | ||
+ | 180 DATA 7E3280F5C97E3D200AAF32C2F13C32BF | ||
+ | 190 DATA F11808AF32BFF13C32C2F101020621BD | ||
+ | 200 DATA F15EE5C5CD0500C1E12310F5C91B6300 | ||
+ | 210 DATA 1B62004E2346C5EB5E2356E1C9CDC3F1 | ||
+ | 220 DATA 2286F5ED5388F5C9ED5B82F51804ED5B | ||
+ | 230 DATA 84F5732372C9CDC3F1E52A88F519EBC1 | ||
+ | 240 DATA 2A86F509C9CDE6F12282F5ED5384F5C9 | ||
+ | 250 DATA CD19F22282F5ED5384F5C9CD19F2CD18 | ||
+ | 260 DATA F5C9CDl9F2CD1EF5C9CDC3F1E52A84F5 | ||
+ | 270 DATA 19EBC12A82F509C9CDE6F10134F2CD5A | ||
+ | 280 DATA FCE900C9E57B2F5FD5E5CB3FCB3FCB3F | ||
+ | 290 DATA 5F21005A06082930011910FAEBE1CB3C | ||
+ | 300 DATA CB1DCB3CCB1DCB3D190603CB25CB1410 | ||
+ | 310 DATA FA11305919D17BE60716005F19D17BE6 | ||
+ | 320 DATA 0720043E801807473E80CB3F10FC5ECD | ||
+ | 330 DATA 84F277C9573A80F5FE00280BFE012803 | ||
+ | 340 DATA 7AABC97A2FA3C97AB3C9CDE6F1EBD5E5 | ||
+ | 350 DATA E52A82F5B7ED52E5C1FABCF22A82F5EB | ||
+ | 360 DATA 2282F52A84F5E32284F51808210000B7 | ||
+ | 370 DATA ED42E5C1D12A84F5B7ED52EBF2E1F221 | ||
+ | 380 DATA 0000B7ED52E5D1B7ED42210100303118 | ||
+ | 390 DATA 0AD5E1B7ED4221FFFF301322B0F4C5E1 | ||
+ | 400 DATA AF32ABF332B8F33E2332C2F31826E52A | ||
+ | 410 DATA 82F5092282F52A84F5B7ED522284F5E1 | ||
+ | 420 DATA 22B0F4C5E1EB3EEB32ABF332B8F33E13 | ||
+ | 430 DATA 32C2F3AF32B2F413ED53B4F423CDCCF3 | ||
+ | 440 DATA 22B6F4ED53B8F4ED4BB4F4C5D1CB3ACB | ||
+ | 450 DATA 1BC5ED4BB6F42AB8F419EB2AB4F4B7ED | ||
+ | 460 DATA 52300719EBB7ED52EB03D53AB2F4B728 | ||
+ | 470 DATA 1D2A82F5E5D1092282F5E5C10B2A84F5 | ||
+ | 480 DATA E5CDABF3D12AB0F4192284F5181D2A84 | ||
+ | 490 DATA F5E5D1092284F5E5C10BEBED5B82F5D5 | ||
+ | 500 DATA CDABF3D12AB0F4192282F5D1C10B78B1 | ||
+ | 510 DATA 209FE12284F5E12282F5C9EBE5D56960 | ||
+ | 520 DATA B7ED524D4403E1D1EBC5D5E5CD18F5E1 | ||
+ | 530 DATA D1C1130BAFB920F1B820EEC9C5EB0601 | ||
+ | 540 DATA 7CB720097ABD3805652E0006097B957A | ||
+ | 550 DATA 9C3805042930F63F3F78444D2100003D | ||
+ | 560 DATA 2003181729F5781F47791F4F7B917A98 | ||
+ | 570 DATA 3805577B915F2CF13D20E937C1C9 | ||
+ | 580 DATA F09AF09EF0A4F0A8F0AEF0CDF0E6F0F5 | ||
+ | 590 DATA Fl00F10BF112F119F128F12BF17FF19A | ||
+ | 600 DATA F1A9F1CCF1F1F1F4F1F9F218F21BF220 | ||
+ | 610 DATA F22DF271F290 | ||
+ | 620 DIM test%(41): | ||
+ | 630 FOR j=1 TO lena: | ||
+ | 640 m=& | ||
+ | 650 FOR j=1 TO lena: | ||
+ | 660 IF tot<> | ||
+ | 670 NEXT i | ||
+ | 680 FOR i=1 TO 4:READ a$: | ||
+ | 690 FOR j=1 TO lena: | ||
+ | 700 POKE b+2, | ||
+ | 710 dep%=& | ||
+ | </ | ||
+ | |||
+ | * **__Listado 7 - CHARGE3.BAS__** | ||
+ | |||
+ | < | ||
+ | 10 ' La ville infernale - chargeur 3 | ||
+ | 20 ' | ||
+ | 30 ' CHARGEUR 3 - a effacer aprés lancement | ||
+ | 40 ' | ||
+ | 50 ' | ||
+ | 60' | ||
+ | 70 OPEN " | ||
+ | 80 FOR i=1 TO 11:READ a$:FOR j=1 TO 31 STEP 2: | ||
+ | 90 PRINT # | ||
+ | 100 DATA C395F4C3B2F4C3E7F4DD210100DD6E00 | ||
+ | 110 DATA DD660111570019113000010300EDB0C9 | ||
+ | 120 DATA CD7EF4019FF4F7E900C9DD2131F5DD5E | ||
+ | 130 DATA 00DD56012100E8010008EDB0C9CD7EF4 | ||
+ | 140 DATA 01BCF4F7E900C9DD2131F5DD5E00DD56 | ||
+ | 150 DATA 01D5DDE1FD2100B8010008FD6600DD6E | ||
+ | 160 DATA 00DD7400FD7500DD23FD230B3EFFB820 | ||
+ | 170 DATA EAC9CD7EF401F1F4F7E900C9DD2128F5 | ||
+ | 180 DATA DD6E002600292929EB2100B819E5DDE1 | ||
+ | 190 DATA FD2131F5FD6E00FD660119E5FDE10608 | ||
+ | 200 DATA DD6E00FD6600FD7500DD7400DD23FD23 | ||
+ | </ | ||
+ | |||
+ | * **__Listado 8 - CHARGE4.BAS__** | ||
+ | |||
+ | < | ||
+ | 10 ' La ville infernale - chargeur 4 | ||
+ | 20 ' | ||
+ | 30 ' ce chargeur est à effacer aprés utilisation | ||
+ | 40 ' | ||
+ | 50 ' | ||
+ | 60 ' | ||
+ | 70 OPEN " | ||
+ | 80 FOR i=1 TO 128:READ b$:PRINT #1,b$ | ||
+ | 90 NEXT i:PRINT # | ||
+ | 100 DATA 000066DBDBDB66003C42819981423C00 | ||
+ | 110 DATA FEC6C0C0C0C0C0001038386C6CC6FE00 | ||
+ | 120 DATA 3C42A599A5423C000000002418240000 | ||
+ | 130 DATA 000018007E0018000000181800666600 | ||
+ | 140 DATA FE6C6C6C6C6C6C00181818187E3C1800 | ||
+ | 150 DATA FEC6603060C6FE00002060FEFE602000 | ||
+ | 160 DATA 00080CFEFE0C08000018187E18187E00 | ||
+ | 170 DATA 002466FFFF6624007CC6C6C6C66GEE00 | ||
+ | 180 DATA 000073DECCDE73007CC6C6FCC6C6F8C0 | ||
+ | 190 DATA 66663C6666663C003C603C6666663C00 | ||
+ | 200 DATA 00001E307C301E00386CC6FEC6603800 | ||
+ | 210 DATA 00C06030386CC60000006666667C6060 | ||
+ | 220 DATA 0000FE6C6C6C6C0000003C66667C6060 | ||
+ | 230 DATA 00007ED8D8D870000073CE1818180C00 | ||
+ | 240 DATA 03063C66663C60C000E63C18386CC700 | ||
+ | 250 DATA 03066666663C60C0000066C3DBDB7EO0 | ||
+ | 260 DATA 00000000000000001818181818001800 | ||
+ | 270 DATA 6C6C6C00000000006C6CFE6CFE6C6C00 | ||
+ | 280 DATA 183E583C1A7C180000C6CC183066C600 | ||
+ | 290 DATA 386C3876DCCC76001818180000000000 | ||
+ | 300 DATA 0C18303030180C0030180C0C0C183000 | ||
+ | 310 DATA 00663CFF3C6600000018187E18180000 | ||
+ | 320 DATA 00000000001818300000007E00000000 | ||
+ | 330 DATA 0000000000181800060C183060C08000 | ||
+ | 340 DATA 386CCED6E66C38001838181818187E00 | ||
+ | 350 DATA 3C66063C60667E003C66061C06663COO | ||
+ | 360 DATA 1C3C6CCCFE0C1E007E62607C06663COO | ||
+ | 370 DATA 3C66607C66663C007E66060C18181800 | ||
+ | 380 DATA 3C66663C66663C003C66663E06663C00 | ||
+ | 390 DATA 00001818001818000000181800181830 | ||
+ | 400 DATA 0C1830603018C00000007E007E000000 | ||
+ | 410 DATA 6030180C183060003C66660C18001800 | ||
+ | 420 DATA 300C780C7CCC7600183C66667E666600 | ||
+ | 430 DATA FC66667C6666FC003C66C0C0C0663C00 | ||
+ | 440 DATA F86C6666666CF800FE6268786862FE00 | ||
+ | 450 DATA FE6268786860F0003C66C0C0CE663E00 | ||
+ | 460 DATA 6666667E666666007E18181818187E00 | ||
+ | 470 DATA 1E0C0C0CCCCC7800E6666C786C66E600 | ||
+ | 480 DATA F06060606266FE00C6EEFEFED6C6C600 | ||
+ | 490 DATA C6E6F6DECEC6C6007CC6C6C6C6C67C00 | ||
+ | 500 DATA FC66667C6060F0007CC6C6C6DACC7600 | ||
+ | 510 DATA FC66667C6C66E6003C66603C06663C00 | ||
+ | 520 DATA 7E5A181818183C006666666666663C00 | ||
+ | 530 DATA 66666666663C1800C6C6C6D6FEEEC600 | ||
+ | 540 DATA C66C38386CC6C6006666663C18183C00 | ||
+ | 550 DATA FEC68C183266FE003844380000000000 | ||
+ | 560 DATA 00003C60603C00181E30386C3818F000 | ||
+ | 570 DATA 183C7E181818180000000000000000FF | ||
+ | 580 DATA 30180C00000000000000780C7CCC7600 | ||
+ | 590 DATA E0607C666666DC0000003C6660663C00 | ||
+ | 600 DATA 1C0C7CCCCCCC760000003C667E603C00 | ||
+ | 610 DATA 1C3630783030780000003E66663E067C | ||
+ | 620 DATA E0607C666666E6001800381818183C00 | ||
+ | 630 DATA 06000E060666663CE060666C786CE600 | ||
+ | 640 DATA 3818181818183C0000006CFED6D6C600 | ||
+ | 650 DATA 0000DC666666660000003C6666663C00 | ||
+ | 660 DATA 0000DC66667C60F0000076CCCC7C0C1E | ||
+ | 670 DATA 0000DC766060F00000003C603C067C00 | ||
+ | 680 DATA 30307C3030361C000000666666663E00 | ||
+ | 690 DATA 00006666663C18000000C6D6D6FE6C00 | ||
+ | 700 DATA 0000C66C386CC60000006666663E067C | ||
+ | 710 DATA 00007E4C18327E000C303C667E603C00 | ||
+ | 720 DATA 300C006666663C00300C3C667E603C00 | ||
+ | 730 DATA 0066000000000000FF030300000303FF | ||
+ | 740 DATA FF0303000000000000000000000303FF | ||
+ | 750 DATA FF000000000000FF183C7EFF18181800 | ||
+ | 760 DATA 000C0EFFFF0E0C00181818FF7E3C1800 | ||
+ | 770 DATA 003070FFFF7030002424272020272424 | ||
+ | 780 DATA 242424E4E42424242424240404FC0000 | ||
+ | 790 DATA 0000FF0000FF00002424E70000FF0000 | ||
+ | 800 DATA 0000FC0404E424242424E40404E42424 | ||
+ | 810 DATA 0000FF0000E724242424E70000E72424 | ||
+ | 820 DATA 00000018180000001818181818000000 | ||
+ | 830 DATA 0000001F1F0000001818181F0F000000 | ||
+ | 840 DATA 00000018181818181818181818181818 | ||
+ | 850 DATA 0000000F1F1818lS18lS181F1F181818 | ||
+ | 860 DATA 000000F8F8000000181818F8F0000000 | ||
+ | 870 DATA 000000FFFF000000181818FFFF000000 | ||
+ | 880 DATA 000000F0F818l818l818l8F8F8181818 | ||
+ | 890 DATA 000000FFFF181818181818FFFF181818 | ||
+ | 900 DATA 8080A090888482800101050911214101 | ||
+ | 910 DATA 0303030303030303C0C0C0C0C0C0C0C0 | ||
+ | 920 DATA 00000000000000FFFF00000000000000 | ||
+ | 930 DATA 00000000000000030000000000000000 | ||
+ | 940 DATA C0000000000000000300000000000000 | ||
+ | 950 DATA FF01010101010101FF08080808080808 | ||
+ | 960 DATA FF03030303030303FFC0C0C0C0C0C0C0 | ||
+ | 970 DATA 0808080808080808C0C0C0FF00000000 | ||
+ | 980 DATA 030303FF00000000C0C0C0C0C0C0C0FF | ||
+ | 990 DATA 03030303030303FFFF80808080808080 | ||
+ | 1000 DATA FFFFFFFFFFFFFFFFFF18181818181818 | ||
+ | 1010 DATA 18181818181818FF8040A050A854AA55 | ||
+ | 1020 DATA 000102050A152A55AA55AA55AA55AA55 | ||
+ | 1030 DATA AA552A150A050201AA54A850A0408000 | ||
+ | 1040 DATA C0C0C0D0C8C4C2C00303030B13234303 | ||
+ | 1050 DATA 000000FF000000000102040810204080 | ||
+ | 1060 DATA 8040201008040201000000FF03030303 | ||
+ | 1070 DATA 000000FFC0C0C0C008O80808080808FF | ||
+ | 1080 DATA 030307070F0F1F1F8080C0C0E0E0F0F0 | ||
+ | 1090 DATA 0103070FlF3F7FFF80C0E0F0F8FCFEFF | ||
+ | 1100 DATA 18663C6666663C001866666666663C00 | ||
+ | 1110 DATA 300C183C667E6600300C7E607C607E00 | ||
+ | 1120 DATA 300C7E1818187E00300C3C6666663C00 | ||
+ | 1130 DATA 300C666666663C006600663C18181800 | ||
+ | 1140 DATA 6600183C667E660066007E607C607E00 | ||
+ | 1150 DATA 66007E1818187E0066003C6666663C00 | ||
+ | 1160 DATA 6600666666663C003C66C0C0663C0018 | ||
+ | 1170 DATA 3E78D8FED8D8DE001800183C667E6600 | ||
+ | 1180 DATA 7ACCCED6E666BC00324C0066766E6600 | ||
+ | 1190 DATA 324C003C667E6600324C3C6666663C00 | ||
+ | 1200 DATA C0300C30CC30C0000618601866180600 | ||
+ | 1210 DATA 060C7E187E3060000000324C007E0000 | ||
+ | 1220 DATA 0C30780C7CCC76000E18187018180E00 | ||
+ | 1230 DATA 0C30003818183C000C30003C66663C00 | ||
+ | 1240 DATA 0C30006666663E001866780C7CCC7600 | ||
+ | 1250 DATA 18663C667E603C001866003818183C00 | ||
+ | 1260 DATA 1866003C66663C001866006666663C00 | ||
+ | 1270 DATA 7CC6DEDEDEC07C007018180E18187000 | ||
+ | 1280 DATA 300C003818183C00300C003C66663C00 | ||
+ | 1290 DATA 181818181818180066006666663E067C | ||
+ | 1300 DATA 6600780C7CCC760066003C667E603C00 | ||
+ | 1310 DATA 6600381818183C006600003C66663C00 | ||
+ | 1320 DATA 6600006666663E00C06030180C060200 | ||
+ | 1330 DATA 00006C1A7ED86E001800780C7CCC7600 | ||
+ | 1340 DATA 00007ACCD666BC00324C00DC66666600 | ||
+ | 1350 DATA 324C780C7CCC7600000000FF08080808 | ||
+ | 1360 DATA F8F8F0F0E0E0C0C01F1F0F0F07070303 | ||
+ | 1370 DATA FFFEFCF8F0E0C080FF7F3F1F0F070301 | ||
+ | </ | ||
+ | |||
===== Controles ===== | ===== Controles ===== |
es/la_ville_infernale.txt · Última modificación: 2022/06/30 11:05 por jevicac