1 RANDOMIZE 
100 CLS 
110 DIM A(5)
120 LET X=1:LET Y=5:LET XA=X:LET YA=Y
130 LET C=0:LET D=0:LET F=0
140 FOR N=1 TO 5:LET A(N)=INT (RND *25+3):NEXT N
150 PRINT  AT 21,0;"真真真真真真真真真真真真真真真真";
160 PRINT  AT YA,XA;" "; AT Y,X;"T"
170 FOR N=1 TO 5:IF A(N)=100 THEN GO TO 190
180 PRINT  AT 20,A(N);"QR"
190 NEXT N
200 LET XA=X:LET YA=Y
210 IF D THEN GO SUB 290
220 IF F THEN GO SUB 890
230 LET A$=INKEY$ :IF A$="" THEN GO TO 250
240 IF A$=" " AND D=0 THEN LET A=X:LET B=Y:LET D=1:LET AA=A:LET BA=B
245 IF Y<18 AND A$=CHR$ 13 THEN LET Y=Y+1
250 LET X=X+1:IF X=32 THEN LET X=0:LET Y=Y+2
260 IF X=20 AND Y=20 THEN BEEP 2,0:GO TO 550
265 LET W=INT (RND *5+1)
270 IF F=0 AND A(W)<100 AND Y<16 THEN LET L=A(W)*8:LET YY=16:LET F=1
280 GO TO 160
285 REM ********  BOMB  ******
290 LET B=B+1:IF B=21 THEN LET D=0:GO SUB 360:RETURN 
300 LET A=A+1:IF A=32 THEN LET A=0
330 PRINT  AT BA,AA;" ":LET BA=B:LET AA=A
340 PRINT  AT B,A;"S"
350 RETURN 
360 LET B=B-1:FOR N=1 TO 5:IF A=A(N) OR A=A(N)+1 THEN GO SUB 380
362 IF C=5 THEN BEEP .5,30:BEEP .1,40:BEEP .3,30:BEEP .5,0:GO TO 840
365 NEXT N
367 PRINT  AT 20,A;"FM"
370 BEEP .1,50:PRINT  AT 20,A;"  ":RETURN 
380 LET C$="AEIEIB"
390 LET D$="L    F"
400 LET E$="PG||KO"
410 LET F$="  ||  "
420 LET G$="MIEIEN"
430 PRINT  AT B,A-3;G$:BEEP .1,40
440 PRINT  AT B-1,A-3;F$:BEEP .1,40
450 PRINT  AT B-2,A-3;E$:BEEP .1,40
460 PRINT  AT B-3,A-3;D$:BEEP .1,40
470 PRINT  AT B-4,A-3;C$:BEEP 1,40
480 IF Y>15 THEN GO TO 530
490 FOR J=B TO B-4 STEP -1:PRINT  AT J,A-3;"      ":NEXT J
500 REM 
510 REM 
520 LET A(N)=100:LET C=C+1:RETURN 
530 PRINT  AT Y-1,X-1;"KNJ"; AT Y,X-1;"I*K"; AT Y+1,X-1;"OLP":BEEP .5,-10
540 PRINT  AT 5,0;"TUS ATOMOS HAN SIDO DISPERSADOS!";:BEEP .2,0:BEEP .2,5:BEEP .2,10:GO TO 840
550 LET A$="                     GK"
560 LET B$="                   GEGC"
570 LET C$="IKGEIKGEIKGEIKGEIKM M  "
580 LET D$="AE  AE  AE  AE  AE J   "
590 LET E$="L   L   L   L   L  L   "
600 LET F$="U   U   U   U   U  N   "
610 LET G$="H   H   H   H   H   P   "
620 LET H$="DK  DK  DK  DK  DK   IK "
630 PRINT  AT 5,5;"QUE VIENE EL GUSANO !!!"
640 FOR N=1 TO 16
650 PRINT  AT 13,0;A$(20-N TO ); AT 14,0;B$(20-N TO ); AT 15,0;C$(20-N TO );
660 PRINT  AT 16,0;D$(20-N TO );
670 PRINT  AT 17,0;E$(20-N TO ); AT 18,0;F$(20-N TO );
680 PRINT  AT 19,0;G$(20-N TO ); AT 20,0;H$(20-N TO )
690 NEXT N
700 PRINT  AT 20,20;"T":BEEP .5,30
710 PRINT  AT 13,15;"      "; AT 14,15;"       "; AT 15,15;"G--EN"
720 PRINT  AT 16,15;" G--E"; AT 17,15;"M      "
730 PRINT  AT 18,15;"IK___"; AT 19,15;"    O"; AT 20,15;"  GE   "
740 PRINT OVER 1; AT 18,19;"T":BEEP .5,30
750 PRINT  AT 14,15;"  _ "
760 PRINT  AT 15,15;"GE IB"
770 PRINT  AT 16,15;"    F"
780 PRINT  AT 17,15;"    _U"
790 PRINT  AT 18,15;"  -E U"
800 PRINT  AT 19,15;"    O"
810 PRINT  AT 20,15;"  AE "
820 PRINT  AT 5,5;"TE DEVORO EL GUSANAZO!!"
830 BEEP .3,30:BEEP .5,10:BEEP .6,1
840 INPUT  AT 22,0; AT 7,0;"QUIERES JUGAR OTRA VEZ? (S/N) ";LINE A$
850 IF A$="s" THEN RUN 
860 IF A$="n" THEN STOP 
870 GO TO 840
880 REM ******  FLAK *******
890 IF YY>=175-Y*8 THEN GO TO 970
900 LET WW=(RND >.7)
910 PLOT INVERSE 1;L,YY
920 LET QQ=(175-YY)/8:LET QW=L/8:LET YY=YY+5
930 IF WW=1 THEN LET L=L+3*(L<X*8)-3*(L>X*8)
940 IF L-20<0 OR L+20>255 OR YY-20<0 OR YY+20>175 THEN RETURN 
950 PLOT L,YY
960 RETURN 
970 FOR K=1 TO 20 STEP 3
980 PLOT L-K,YY:PLOT L+K,YY:PLOT L,YY-K:PLOT L,YY+K
990 PLOT L-K/2,YY-K/2:PLOT L+K/2,YY+K/2:PLOT L+K/2,YY-K/2:PLOT L-K/2,YY+K/2
1000 NEXT K
1020 FOR K=1 TO 20 STEP 3
1030 PLOT INVERSE 1;L-K,YY:PLOT INVERSE 1;L+K,YY:PLOT INVERSE 1;L,YY-K:PLOT INVERSE 1;L,YY+K
1040 PLOT INVERSE 1;L-K/2,YY-K/2:PLOT INVERSE 1;L+K/2,YY+K/2:PLOT INVERSE 1;L+K/2,YY-K/2:PLOT INVERSE 1;L-K/2,YY+K/2:PLOT INVERSE 1;L,YY
1044 LET EXP=ABS (x-(L/8)):IF EXP<3 THEN GO TO 1070
1050 NEXT K
1060 LET F=0:RETURN 
1070 RESTORE :FOR N=Y TO 20:READ A$,B$:IF A$="E" THEN RESTORE :GO TO 1110
1080 PRINT  AT N-1,X;A$; AT N,X;B$;"T":BEEP .01,N*3
1090 PRINT  AT N-1,X;" "; AT N,X;"  "
1100 LET X=X+1:IF X=31 THEN LET X=0
1110 NEXT N
1115 IF EXP>1.5 THEN GO TO 1500
1120 RESTORE :FOR K=1 TO 18:READ A$,B$
1130 PRINT  AT 20,X;A$;B$:BEEP .01,INT (RND *60)
1135 NEXT K
1140 BEEP .5,0:BEEP 1,40:BEEP .5,30:GO TO 840
1150 DATA "K","G","N","I","K","O"
1160 DATA "F","E","N","K","K","M"
1170 DATA "K","G","N","I","K","O"
1180 DATA "F","E","N","K","K","M"
1190 DATA "K","G","N","I","K","O"
1200 DATA "F","E","N","K","K","M"
1500 REM      GUZANAZO   
1505 IF X=20 THEN GO TO 1530
1510 LET X=X+1:IF X=31 THEN LET X=0
1520 PRINT  AT 20,XA;" "; AT 20,X;"T":LET XA=X:BEEP .001,x+30:GO TO 1505
1530 GO TO 550
9998 LOAD ""CODE :RUN 
9999 SAVE "DUNE"LINE 9998:SAVE "DUNE UDG"CODE USR "A",168