Misión Triple R

3 INK 0 ,0 :INK 1,6 :INK 2,24!INK 3,10:BORDER 15pantal1a-1!GOSUB 63000
6 MODE 1
7 PAPER O
9 WINDOWM ,1 y40,1,1 iPAPERfcl ,3. C L S M •P E N M ,O: P R I N T M ," PUNTOS 5 O"
10 SYMBOL AFTER 90 ¡SYMBOL 221, kXO, kXO,kXl 10000, fcXl 10000, kX110000, kXl 1 i11 i,fcXl 111
11,kXO
13 SYMBOL 239, kXlOO,kXlOO,kXl 111110,kXl 110,kXl111111, kXl 1lililí» kXl0000001, kXl 10
10101
20 SYMBOL 222, kXO,kXO,kXO,kXO,kXl1100,kXl11111 i 1,kXl 1111111, kXO
30 DIM pos i(41):pos i(O)«O
40 FOR mn-1 TO 22
30 azar«INT(RND(l)*2+l)
60 posi<mn)«azar+posi(mn-1)
65 IF pos i(mn)>39 THEN posi(mn)-39
70 LOCATE posi(mn),23:PEN 2:PRINT CHR*(239>
80 NEXT
90 FOR ty-2 TO 24
100 lo-O
110 FOR kl-1 TO 39
120 CALL kBD19:LOCATE kl,tySCALL kBD19SPEN 1SPRINT ■ "|CHR*(221)♦CHR*(222)
130 IF lo-2 THEN 130
140 IF INKEY(7)»0 THEN lo-Ío«-lSdisparos-disparos+1:GOSUB 500:puntuacion»acisrtoS
P R I N T M ,• PUNTOS : •Ipuntuacion
130 NEXT kl
160 NEXT ty
170 GOSUB 62000
300 FOR ul-ty TO 23
510 CALL kBD19.LOCATE kl,ui-l¡CALL kBD19* PEN 3:PRINT * ■SLOCATE kl,uiSPRINT CHRS
(252)
320 NEXT ui
530 FOR Jkl-1 TO 39
'340 IF pos i (Jk 1)*k1 THEN acisrto-acisrto+lSposi(Jkl)«OSENV 1,100,3,1:SOUND 1,200
,10,7,1,1,3:GOTO 560
550 NEXT Jkl
560 IF acisrto-22 THEN 380
370 GOTO 390
580 GOSUB 60000:GOTO 1000
590 ENV 1,1,1,liSOUND 1,200,10,6,1,1,3: LOCATE kl,23iPRINT CHR*(207):FOR a-1 TO
10:NEXT:LOCATE k1,25¡PRINT • •
600 RETURN
1000 CLEAR:poiu-l ¡pantal la-2:G0TQ 1020
1010 disparoa-0:acisrto-0;poiu-2:pantal la—3
1020 DIM t (40);t(0>-0:DIM al t (40)•alt(O)“O
1030 MODE 1
1033 WINDOWM, 1,40, 1,1:P A P E R M ,3: C L S M !P R I N T M ,■ PUNTOS : -|ac tarto*
22: IF polu»2 THEN P R I N T M ,■ PUNTOS ¡ *I»*
cierto*22+39
1040 FOR y-1 TO 39
1050 t(y>-y
1060 NEXT
1070 FOR u-1 TO 39
1080 •It(u)-INT(RND<1>*9+1>
1090 LOCATE u,25-alt(u)¡PEN 2¡PRINT CHRS(239)
1100 NEXT
1120 FOR g-2 TO 24
1130 n-O
1140 FOR k-1 TO 39
1143 IF g-25-alt(k) THEN 1210
1150 CALL kBD19:LOCATE k,g:CALL kBD19¡PEN 1 SPRINT ■ "ICHR*(221)♦CHRS(222)
1160 IF potu-1 THEN balas-3:GOTO 1163
1162 balas-2