| 1 PRINT "base"
10 REM ***** base lunar alfa ***** 20 REM *************************** 30 REM **** AMSTRAD USER 1986 **** 40 REM *************************** 50 DEFINT a-p,r-z 60 MODE 1 70 INK 0,0:BORDER 0:PAPER 0:INK 1,24:INK 2,26:INK 3,15 80 LOCATE 11,12:PRINT"Base lunar Alfa" 90 FOR i=1 TO 300:NEXT i 100 DIM S2[10],n$[10] 110 r1=14:g1=127:g2=143:g3=251 120 uo=72:d5=73:l=74:r=75:l1=76 130 u1=0:d6=2:l0=8:r0=1:l2=9 140 SYMBOL 251,60,126,255,255,255,255,255,102 150 SYMBOL 252,31,63,127,225,127,63,31,0 160 SYMBOL 253,255,255,255,195,255,255,255,126 170 SYMBOL 254,248,252,254,135,254,252,248,0 180 SYMBOL 255,0,0,0,240,240,0,0,0 190 GOTO 230 200 MODE 1:PEN 1:PRINT"Te gustaria jugar de nuevo?" 210 IF NOT INKEY(46)THEN CALL &BC02:BORDER 1:PAPER 0:PEN 1:CALL &BB03:CLS:END 220 IF INKEY(43)THEN 210 230 CLS:PRINT" Eres un oficial cientifico y has sido"; 240 PRINT:PRINT "enviado a la base lunar Alfa. Una gran"; 250 PRINT:PRINT"erupcion solar es inminente, la situacion" 260 PRINT "es critica" 270 PRINT "Debes terminar la torre de la radio e" 280 PRINT:PRINT"introducir abundante equipo en el bunquer" 290 PRINT"antes de la segunda explosion" 300 PRINT"Solo puedes sobrevivir a las explosiones" 310 PRINT"en el bunquer asi que debes vigilar" 320 PRINT"las dos escenas." 330 LOCATE 20,23:PRINT"BUENA SUERTE." 340 GOSUB 3520 350 PRINT"Los controles se indican abajo,puedes usar el joystick o las teclas de cursor" 360 PRINT:PRINT" ";CHR$(242);" IZQUIERDA." 370 PRINT:PRINT" ";CHR$(243);" DERECHA." 380 PRINT:PRINT" ";CHR$(240);" ARRIBA" 390 PRINT:PRINT" ";CHR$(241);" ABAJO" 400 PRINT:PRINT" z MOTORES" 410 PRINT:PRINT" d PUERTA DE BUNQUER" 420 PRINT:PRINT" p PLANO" 430 GOSUB 3520 440 DIM s4[40,25] 450 s3=0:s=0:s0=0:s1=0:c=2 460 t1=0:y0=0:o5=0:a=3 470 e=-1:u=0:g=-1:s5=0:o=0:o6=0 480 v=0:o2=0:o1=1:o0=0:m0=3 490 a1=1:t2=24:d3=0:c0=1500:a0=0:d4=1:m=10000:f2=9000 500 CLS:GOSUB 3200 510 o4=19:FOR o3=19 TO 25 STEP 2:GOSUB 1780:NEXT o3 520 o4=18:o3=20:GOSUB 1820:o3=24:GOSUB 1820 530 o4=17:FOR o3=17 TO 25 STEP 4:GOSUB 1820:NEXT o3 540 o3=19:o4=15:GOSUB 1820 550 o4=16:FOR o3=17 TO 25 STEP 2:GOSUB 1780:NEXT o3 560 o4=24:FOR o3=6 TO 12 STEP 2:GOSUB 1890:NEXT o3 570 o4=23:FOR o3=6 TO 14 STEP 4:GOSUB 1820:NEXT o3 580 o4=22:FOR o3=7 TO 13 STEP 2:GOSUB 1890:NEXT o3 590 o3=14:o4=24:GOSUB 1780 600 o4=21:o3=7:GOSUB 1780:o3=10:GOSUB 1820 610 o4=17:o3=19:GOSUB 1890:o3=23:GOSUB 1890:o3=13:o4=21:GOSUB 1780 620 o3=23:o4=15:GOSUB 1890:o3=25:GOSUB 1890 630 PEN 3:x=21:y=24:GOSUB 990 640 GOSUB 2480:GOSUB 2320 650 EVERY 25,1 GOSUB 2240 660 IF NOT INKEY(27) THEN GOSUB 3500:GOSUB 1910 670 GOSUB 870 680 IF e=1 THEN IF g=1 THEN t3=1700-O0*500:f2=f2-10*O0 ELSE f2=f2-5:t3=1100:GOSUB 1700 690 IF f2<0 THEN f2=0 700 IF f2>0 THEN 720 710 e=-1:IF x<>37 OR y<>3 THEN GOSUB 1150:GOSUB 2530:IF d3=1 THEN s5=1:CLS:PRINT"Te has quedado sin fuel":GOTO 830 720 IF e=-1 THEN u=0 730 IF u=0 THEN GOSUB 1250 740 IF s5=1 THEN GOSUB 2950:GOTO 830 750 f1=0 760 IF x=37 THEN IF y=3 THEN IF e=-1 THEN f1=1:GOSUB 2290 770 GOSUB 1150 780 c0=c0-1:IF c0>0 THEN 660 790 y0=0:o5=0:c=c-1 800 FOR i=1 TO 20:INK 0,24:FOR j=1 TO 200:NEXT j:INK 0,0:NEXT i 810 GOSUB 3000 820 IF s5=0 AND c>0 THEN c0=1500:GOTO 660 830 GOSUB 3540:FOR i=1 TO 5000:NEXT i 840 GOSUB 2700:GOSUB 2550 850 ERASE s4 860 GOTO 200 870 IF e=-1 THEN 920 880 IF NOT INKEY(u0) OR NOT INKEY(u1) THEN v=0:IF u=0 THEN u=1:RETURN ELSE d2=1:GOSUB 1030:GOTO 960 890 IF NOT INKEY(d5)OR NOT INKEY(d6)THEN u=0:d2=2:IF g=-1 THEN GOSUB 1030:RETURN ELSE RETURN 900 IF NOT INKEY(l)OR NOT INKEY(l0) THEN v=0:u=1:d2=3:GOSUB 1030:GOTO 960 910 IF NOT INKEY(r)OR NOT INKEY(r0)THEN v=0:u=1:d2=4:GOSUB 1030:GOTO 960 920 IF NOT INKEY(71)AND f2>0 THEN e=e*-1:GOSUB 3500:RETURN 930 IF(NOT INKEY(l1)OR NOT INKEY(l2))AND s4[x,y+1]>0 AND s4[x,y+1]<4 THEN g=g*-1:o0=s4[x,y+1]:o3=x:o4=y+1:GOSUB 3500:RETURN 940 IF NOT INKEY(61)THEN GOSUB 3120:RETURN 950 RETURN 960 IF g=-1 THEN RETURN 970 IF d2<>2 THEN o2=0:GOSUB 1530:RETURN 980 GOSUB 1530:RETURN 990 LOCATE x-1,y:PRINT CHR$(252)+CHR$(253)+CHR$(254); 1000 RETURN 1010 LOCATE x-1,y:PRINT" "; 1020 RETURN 1030 PEN 3:GOSUB 1010 1040 ON d2 GOTO 1050,1070,1090,1110 1050 IF s4[x-1,y-1]>0 OR s4[x,y-1]>0 OR s4[x+1,y-1]>0 THEN 1140 1060 y=y-1:GOTO 1130 1070 IF s4[x-1,y+1]>0 OR s4[x,y+1]>0 OR s4[x+1,y+1]>0 THEN 1140 1080 y=y+1:GOTO 1130 1090 IF s4[x-2,y]>0 THEN 1140 1100 x=x-1:GOTO 1130 1110 IF s4[x+2,y]>0 THEN 1140 1120 x=x+1 1130 GOSUB 990:RETURN 1140 s5=1:RETURN 1150 PEN 1 1160 IF f1=0 THEN GOSUB 2340 1170 LOCATE 17,1:IF e=1 THEN PRINT CHR$(143);ELSE PRINT" "; 1180 LOCATE 25,1:IF g=1 THEN PRINT CHR$(143);ELSE PRINT" "; 1190 IF c0=99 THEN y0=1 1200 IF c0=49 THEN y0=0:o5=1 1210 LOCATE 33,1 1220 IF c0<50 THEN PEN 3:PRINT CHR$(143);:GOTO 1240 1230 IF c0<100 THEN PEN 1:PRINT CHR$(143);ELSE PRINT" "; 1240 RETURN 1250 PEN 3:IF g=1 THEN 1280 1260 IF s4[x-1,y+1]>0 OR s4[x,y+1]>0 OR s4[x+1,y+1]>0 THEN IF v>m0 THEN 1370 ELSE RETURN 1270 GOSUB 1010:y=y+1:GOSUB 990:v=v+1:RETURN 1280 ON o0 GOTO 1290,1330,1290 1290 IF s4[x-1,y+1]>0 OR s4[x,y+2]>0 OR s4[x+1,y+1]>0 THEN IF v>m0 THEN 1370 ELSE RETURN 1300 GOSUB 1010:y=y+1:GOSUB 990:v=v+1:s4[o3,o4]=0:o4=o4+1 1310 IF o0=1 THEN GOSUB 1780 ELSE GOSUB 1890 1320 RETURN 1330 IF s4[x-1,y+2]>0 OR s4[x,y+2]>0 OR s4[x+1,y+2]>0 THEN IF v>m0 THEN 1370 ELSE RETURN 1340 GOSUB 1010:y=y+1:GOSUB 990:v=v+1 1350 FOR i=o3-1 TO o3+1:s4[i,o4]=0:NEXT i 1360 o4=o4+1:GOSUB 1820:RETURN 1370 s5=1:RETURN 1380 PEN 3:e=-1 1390 IF xe<4 THEN xe=4 1400 IF xe>37 THEN xe=37 1410 FOR i=1 TO 3:FOR j=ye-1 TO ye+1 1420 LOCATE xe-3,j:PRINT SPACE$(7); 1430 FOR d=1 TO 100:NEXT d 1440 SOUND 1,200,5,15,0,0,15 1450 LOCATE xe-3,j:PRINT".:::::."; 1460 NEXT j:NEXT i 1470 FOR j=ye-1 TO ye+1 1480 LOCATE xe-3,j:PRINT SPACE$(7); 1490 s4[xe-3,j]=0:s4[xe-2,j]=0:s4[xe-1,j]=0:s4[xe,j]=0:s4[xe+1,j]=0:s4[xe+2,j]=0:s4[xe+3,j]=0 1500 NEXT j 1510 e=-1:y0=0:o5=0 1520 RETURN 1530 IF o0=3 THEN PEN 3 ELSE PEN 2 1540 ON o0 GOTO 1550,1640,1550 1550 GOSUB 1800:ON d2 GOTO 1560,1570,1590,1600 1560 o4=o4-1:GOTO 1580 1570 o4=o4+1 1580 IF o0=1 THEN GOSUB 1780:RETURN ELSE GOSUB 1890:RETURN 1590 o3=o3-1:GOTO 1610 1600 o3=o3+1 1610 LOCATE o3,o4:IF o0=1 THEN PRINT CHR$(g2):ELSE PRINT CHR$(g3); 1620 IF s4[o3,o4]>0 THEN s5=1 1630 s4[o3,o4]=o0:RETURN 1640 GOSUB 1860:ON d2 GOTO 1650,1660,1670,1680 1650 o4=o4-1:GOTO 1690 1660 o4=o4+1:GOTO 1690 1670 o3=o3-1:IF s4[o3-1,o4]>0 THEN s5=1:GOTO 1690 ELSE 1690 1680 o3=o3+1:IF s4[o3+1,o4]>0 THEN s5=1 1690 GOSUB 1820:RETURN 1700 PEN 2:ON o0 GOTO 1710,1750,1710 1710 IF o2>m0 AND s4[o3,o4+1]>0 THEN 1770 1720 IF s4[o3,o4+1]>0 THEN RETURN ELSE GOSUB 1800 1730 o4=o4+1:IF o0=1 THEN GOSUB 1780 ELSE GOSUB 1890 1740 o2=o2+1:RETURN 1750 IF s4[o3-1,o4+1]>0 OR s4[o3,o4+1]>0 OR s4[o3+1,o4+1]>0 THEN IF o2>m0 THEN 1770 ELSE RETURN 1760 GOSUB 1860:o4=o4+1:GOSUB 1820:o2=o2+1:RETURN 1770 SOUND 1,200,100,15,0,0,15:xe=o3:ye=o4:GOSUB 1380:s5=1:o=1:RETURN 1780 PEN 2:LOCATE o3,o4:PRINT CHR$(g2);:s4[o3,o4]=1 1790 RETURN 1800 LOCATE o3,o4:PRINT " ";:s4[o3,o4]=0 1810 RETURN 1820 PEN 2:LOCATE o3-1,o4:PRINT CHR$(127)+CHR$(233)+CHR$(127); 1830 FOR io=o3-1 TO o3+1:s4[io,o4]=r1:NEXT io 1840 s4[o3,o4]=2 1850 RETURN 1860 LOCATE o3-1,o4:PRINT SPACE$(3); 1870 FOR i=o3-1 TO o3+1:s4[i,o4]=0:NEXT i 1880 RETURN 1890 PEN 3:LOCATE o3,o4:PRINT CHR$(g3);:s4[o3,o4]=3 1900 RETURN 1910 CLS:GOSUB 3200:PEN 2 1920 LOCATE 6,24:PRINT CHR$(g2)+" "+CHR$(g2)+" "+CHR$(g2); 1930 LOCATE 6,23:PRINT CHR$(127)+CHR$(233)+CHR$(127)+CHR$(g2)+CHR$(127)+CHR$(233)+CHR$(127); 1940 FOR j=22 TO 8 STEP -2 1950 LOCATE 9,j:PRINT CHR$(g2); 1960 LOCATE 8,j-1:PRINT CHR$(127)+CHR$(233)+CHR$(127); 1970 NEXT j 1980 LOCATE 20,16:PRINT CHR$(127)+CHR$(233)+CHR$(127); 1990 PEN 3 2000 FOR i=20 TO 28 STEP 2:LOCATE i,24:PRINT CHR$(g3);:NEXT i 2010 LOCATE 28,23:PRINT CHR$(g3); 2020 LOCATE 20,15:PRINT CHR$(252)+CHR$(253)+CHR$(254); 2030 PEN 1 2040 LOCATE 30,22:PRINT " "; 2050 LOCATE 1,1:PRINT "PULSA LA BARRA ESPACIADORA" 2060 LOCATE 20,4:PRINT " FUEL---------"; 2070 LOCATE 21,22:PRINT "BUNKER"; 2080 LOCATE 11,11:PRINT "----TORRES"; 2090 IF INKEY(47) THEN 2090 2100 GOSUB 2120 2110 RETURN 2120 CLS:GOSUB 3200 2130 GOSUB 2480 2140 GOSUB 1150 2150 FOR i=1 TO 40:FOR j=2 TO 25 2160 ON s4[i,j] GOTO 2180,2190,2200 2170 GOTO 2210 2180 PEN 2:LOCATE i,j:PRINT CHR$(g2);:GOTO 2210 2190 o7=o3:o8=o4:o3=i:o4=j:GOSUB 1820:o3=o7:o4=o8:GOTO 2210 2200 PEN 3:LOCATE i,j:PRINT CHR$(g3); 2210 NEXT j:NEXT i 2220 PEN 3:GOSUB 990 2230 RETURN 2240 IF e=1 THEN SOUND 2,t3,50,4 2250 IF y0=0 AND o5=0 THEN RETURN 2260 IF a>0 THEN a=a-1:RETURN ELSE a=3 2270 IF y0=1 THEN SOUND 4,400,50,12:SOUND 4,300,50,12 ELSE SOUND 4,200,50,13:SOUND 4,100,50,12 2280 RETURN 2290 IF f2<m THEN f2=f2+100 ELSE SOUND 1,150,5,13 2300 GOSUB 2320 2310 RETURN 2320 PEN 1:LOCATE 7,1:PRINT STRING$(INT(f2*5/m),CHR$(154)); 2330 RETURN 2340 PEN 1:LOCATE 7,1 2350 IF f2=0 THEN PRINT SPACE$(5);:GOTO 2470 2360 ON f2/m*10 GOTO 2370,2380,2390,2400,2410,2420,2430,2440,2450,2460 2370 PRINT CHR$(255)+SPACE$(4);:GOTO 2470 2380 PRINT CHR$(154)+SPACE$(4);:GOTO 2470 2390 PRINT CHR$(154)+CHR$(255)+SPACE$(3);:GOTO 2470 2400 PRINT STRING$(2,CHR$(154))+SPACE$(3);:GOTO 2470 2410 PRINT STRING$(2,CHR$(154))+CHR$(255)+SPACE$(2);:GOTO 2470 2420 PRINT STRING$(3,CHR$(154))+SPACE$(2);:GOTO 2470 2430 PRINT STRING$(3,CHR$(154))+CHR$(255)+SPACE$(1);:GOTO 2470 2440 PRINT STRING$(4,CHR$(154))+SPACE$(1);:GOTO 2470 2450 PRINT STRING$(4,CHR$(154))+CHR$(255);:GOTO 2470 2460 PRINT STRING$(5,CHR$(154)); 2470 RETURN 2480 PEN 2:LOCATE 2,1:PRINT "FUEL"; 2490 LOCATE 13,1:PRINT "MOT"; 2500 LOCATE 19,1:PRINT "GRABS"; 2510 LOCATE 27,1:PRINT "ALARM"; 2520 RETURN 2530 IF t2>0 THEN t2=t2-1 ELSE d3=1 2540 RETURN 2550 CLS:CALL &BB03 2560 INPUT"CUAL ES TU NOMBRE";n0$:n0$=LEFT$(n0$,9):CLS 2570 FOR i=10 TO 1 STEP -1 2580 IF s2[i]>s3 THEN NEXT i:GOTO 2640 2590 FOR j=i TO 1 STEP -1 2600 t0=s2[j]:t$=n$[j] 2610 s2[j]=s3:n$[j]=n0$ 2620 s3=t0:n0$=t$ 2630 NEXT j 2640 PRINT "NOMBRE" SPACE$(7);"PUNTOS":PRINT 2650 FOR i=10 TO 1 STEP -1 2660 PRINT " ";n$[i],s2[i] 2670 NEXT i 2680 GOSUB 3520 2690 RETURN 2700 PEN 1:FOR i=19 TO 29:FOR j=21 TO 24 2710 IF s4[i,j]=3 THEN s3=s3+10 2720 NEXT j:NEXT i 2730 CLS:PRINT " ";s3:PRINT 2740 FOR i=6 TO 12 STEP 3 2750 IF s4[i,24]=1 THEN s0=s0+2 2760 NEXT i 2770 IF s0<6 THEN s=s0:GOTO 2880 ELSE s=s+s0:s0=0 2780 FOR i=6 TO 10 STEP 4 2790 IF s4[i,23]=14 AND s4[i+1,23]=2 AND s4[i+2,23]=14 THEN s0=s0+6 2800 NEXT i 2810 s=s+s0:IF s0<12 THEN 2880 ELSE s1=1 2820 IF s4[9,23]=1 THEN s=s+2 ELSE 2880 2830 IF s1=0 THEN 2880 2840 FOR j=22 TO 8 STEP -2 2850 IF s4[9,j]=1 THEN s=s+2 ELSE 2880 2860 IF s4[8,j-1]=14 AND s4[9,j-1]=2 AND s4[10,j-1]=14 THEN s=s+6 ELSE 2880 2870 NEXT j 2880 s3=s3+s 2890 PRINT "POR LOS TRABAJOS EN LA TORRE TU PUNTUACION ";s:PRINT 2900 IF s=84 THEN PRINT"FOR FINISHING TOWER YOU SCORED 300":PRINT:s3=s3+300 2910 IF s5=1 THEN PRINT"POR DESTRUIR LA NAVE 0" ELSE s3=s3+100:PRINT "POR SALVAR LA NAVE";SPACE$(6);"100" 2920 PRINT:PRINT:PRINT"TU PUNTUACION TOTAL ";SPACE$(12);s3 2930 GOSUB 3520 2940 RETURN 2950 xe=x:ye=y:GOSUB 1380:GOSUB 3540:CLS:PEN 1 2960 IF f2=0 THEN PRINT " TE HAS QUEDADO SIN FUEL":PRINT:RETURN 2970 IF o=1 THEN PRINT:PRINT"LA RADIACION HA DESTRUIDO TU NAVE.":RETURN 2980 PRINT "TE HAS ESTRELLADO." 2990 RETURN 3000 PEN 1:IF x<19 OR x>28 OR y<21 THEN o6=1:GOTO 3080 3010 FOR i=17 TO 30 3020 IF s4[i,20]<r1 OR s4[i,25]<r1 THEN 3080 3030 NEXT i 3040 FOR j=20 TO 25 3050 IF s4[17,j]<r1 OR s4[30,j]<r1 THEN 3080 3060 NEXT j 3070 IF c=0 THEN CLS:PRINT "FELICIDADES TU NAVE HA SOBREVIVIDO A ":PRINT:PRINT"LAS ERUPCIONES":RETURN ELSE RETURN 3080 s5=1:xe=x:ye=y:GOSUB 1380:CLS:PEN 1 3090 IF o6=1 THEN PRINT :PRINT"DESTRUIDO.":RETURN 3100 PRINT "EL BUNKER ABIERTO CUANDO ":PRINT:PRINT"LA E0":PRINT:PRINT"D0" 3110 RETURN 3120 IF d4=1 THEN 3150 3130 IF y<22 OR y>23 OR x<29 OR x>31 THEN IF s4[30,22]=0 AND s4[30,23]=0 THEN 3150 3140 RETURN 3150 GOSUB 3500:d4=d4*-1 3160 IF d4=1 THEN f0=143:f=14 ELSE f0=32:f=0 3170 s4[30,22]=f:s4[30,23]=f 3180 PEN 1:LOCATE 30,22:PRINT CHR$(f0);:LOCATE 30,23:PRINT CHR$(f0); 3190 RETURN 3200 PEN 1 3210 FOR i=1 TO 40:s4[i,1]=r1:s4[i,25]=r1:LOCATE i,25:PRINT CHR$(g1);:NEXT i 3220 FOR j=15 TO 25:s4[1,j]=r1:LOCATE 1,j:PRINT CHR$(g1);:NEXT j 3230 FOR i=2 TO 25:s4[1,i]=r1:s4[40,i]=r1:LOCATE 40,i:PRINT CHR$(g1);:NEXT i 3240 FOR i=36 TO 39:FOR j=2 TO 15:s4[i,j]=r1:LOCATE i,j:PRINT CHR$(g1);:NEXT j:NEXT i 3250 FOR i=27 TO 32:FOR j=6 TO 20:s4[i,j]=r1:LOCATE i,j:PRINT CHR$(g1);:NEXT j:NEXT i 3260 FOR j=16 TO 18:LOCATE 32,j:PRINT CHR$(32);:s4[32,j]=0:NEXT j 3270 LOCATE 33,19:PRINT CHR$(g1)+CHR$(g1)+CHR$(g1);:s4[33,19]=r1:s4[34,19]=r1:s4[35,19]=r1:s4[30,22]=0:s4[30,23]=0 3280 FOR j=8 TO 24:LOCATE 2,j:PRINT CHR$(g1);:s4[2,j]=r1:NEXT j 3290 LOCATE 16,24:PRINT CHR$(g1);:s4[16,24]=r1 3300 FOR j=19 TO 24:LOCATE 17,j:PRINT CHR$(g1);:s4[17,j]=r1:NEXT j 3310 LOCATE 17,18:PRINT CHR$(223);:s4[17,18]=r1 3320 FOR i=18 TO 26:LOCATE i,20:PRINT CHR$(g1);:s4[i,20]=r1:NEXT i 3330 LOCATE 18,21:PRINT CHR$(220);:s4[18,21]=r1 3340 LOCATE 18,19:PRINT CHR$(223);:s4[18,19]=r1 3350 LOCATE 26,19:PRINT CHR$(222);:s4[26,19]=r1 3360 LOCATE 15,24:PRINT CHR$(222);:s4[15,24]=r1 3370 LOCATE 16,23:PRINT CHR$(222);:s4[16,23]=r1 3380 LOCATE 18,24:PRINT CHR$(223);:s4[18,24]=r1 3390 LOCATE 30,21:PRINT CHR$(g1);:s4[30,21]=r1 3400 LOCATE 29,21:PRINT CHR$(221);:s4[29,21]=r1 3410 LOCATE 29,24:PRINT CHR$(222);:s4[29,24]=r1 3420 LOCATE 30,24:PRINT CHR$(g1);:s4[30,24]=r1 3430 LOCATE 6,25:PRINT CHR$(143);:LOCATE 9,25:PRINT CHR$(143);:LOCATE 12,25:PRINT CHR$(143); 3440 IF d4=1 THEN PEN 1:d4=-1:GOSUB 3120 3450 PEN 3 3460 FOR i=36 TO 39:LOCATE i,3:PRINT " ";:s4[i,3]=0:NEXT i 3470 LOCATE 36,4:PRINT CHR$(143)+CHR$(233)+CHR$(143); 3480 FOR i=36 TO 38:s4[i,4]=13:NEXT i:s4[37,4]=12:LOCATE 39,4:PRINT " ";:s4[39,4]=12 3490 RETURN 3500 FOR d1=1 TO 50 :NEXT d1:SOUND 1,200,10,13 3510 RETURN 3520 LOCATE 1,25:PRINT "PULSA ESPACIO PARA CONTINUAR" 3530 IF INKEY(47) THEN 3530 ELSE CLS:RETURN 3540 e=-1 :y0=0:o5=0 3550 RETURN |