Dambusters 31
150 PLOT 64,64,3:DRAWR 0,32:DRAWR 8,0:DR AWR 16,16:DRAWR 4,— 4:DRAWR —16,—I6:DRAW R 0,-20
160 PLOT 572,64,3:DRAWR 0,32:DRAWR —8,0: DRAWR —16,16:DRAWR —4,-4:DRAWR I6,-16:DR AWR 0,-20
170 D=1:S=0:A=1:P=17
100 Y=9
190 X=INT(RND*20)+6
200 PRINT CHR$(22);CHR$(1);:FOR F=1 TO 5
STEP 2:PEN 1:LOCATE X+1,6:PRINT MID$(B$ ,F,1);MID$(B$,F+1,1);:SOUND 1,120,4:PEN 0:LOCATE X+1,6:PRINT MID$(B$,F,1);MID$(B $,(F4-1),1)::NEXT F
210 FOR F= 1 TO 4:PEN 1:LOCATE X+1,6—F: PRINT MID$(B$,5,1);MID$(B$,6,1):LOCATE X +1,6+F:PRINT CHR$(232);
220 SOUND 1,180,4:PEN 0:LOCATE X+1,6—F:P RINT MID$(B$,5,1);MID$(B$,6,1);: LOCATE X+1,6+F:PRINT CHR$(232);:NEXT F:PEN 1:PR INT CHR$(22);CHR$(0);
230 F=INT(RND*25)+3:G=5+INT(RND*11)
240 A$=CHR$(231)+CHR$(232)+CHR$(233)+CHR 4:(234)+CHR$(235)+CHR$(235)+CHR$(236):HT= 10
250 PEN 1: LOCATE X+1,Y+1:PRINT CHR$(22 );CHR$(1);MID$(A$,A,1);CHR$(22);CHR$(0); 260 F=F—(INKEY(1)=0 AND F<29)+(INKEY(8)= 0 AND F>2):G=G—(INKEY(2)=0 AND G<17)+(IN KEY(0)=0 AND G>3)
270 PEN 2:LOCATE F+1,G+1:PRINT CHR$(22); CHR$(1);"+";CHR$(22);CHR$(0);:PEN 1
:so LOSS=LOSS+LEEK
290 IF LOSS>1000 THEN 550
300 IF INKEY (47)=0 THEN IF S<10 THEN GO SUB 430
310 SOUND 1,100,4
320 PEN 0: LOCATE X+1,Y+1:PRINT CHR$(22) :CHR$(1);MID$(A$,A,1);CHR$(22);CHR$(0); 330 PEN 0: LOCATE F+1,G+1:PRINT CHR$(22) ;CHR$(1);"+";CHR$(22);CHR$(0);:PEN 1
340 PLOT 100,72,2:DRAWR 216,40:PLOT 532, 72:DRAWR —216,40
350 Y=Y+D