32 Dambusters
360 IF RND>0.6 THEN F=F+INT(RND*1.5)—INT (RND*1.5)
370 IF F<0 THEN F=0
380 IF RND<0.4 THEN G=G+INT(RND*1.5 AND G(18)—INT(RND*1.5)
390 IF Y=HT THEN P=P+1:D=1:A=A+1
400 IF Y=P THEN SOUND 1,180,4:A=A+1:D=-1 :HT=HT-3
410 IF A=7 THEN 490
420 GOTO 250
430 PLOT 90,112,2:DRAW (F+1)*16+54,(24— G)*16+8,2:PLOT 546,110,2:DRAW (F+1)*16+5 4,(24—G)*16+8,2
440 S=S+1
450 PLOT 90,112,0:DRAW (F+1)*16+54,(24—G )*16+8,0:PLOT 546,110,0:DRAW (F+I)*16+54 ,(24—G)*16+8,0
460 IF G=Y THEN IF X=F THEN 480
470 RETURN
400 SC=SC+10: LOCATE 7,1:PRINT SC;:LOCAT
E F+1,G+I:PRINT CHR$(238);:SOUND 1,180,4 :SOUND 1,I20,4:SOUND 1,90,4:SOUND 1,50,4 :LOCATE F+1,G+1:PRINT" ";: GOTO 170
490 FOR A=1 TO 5:SOUND 1,220,4:SOUND 1,9 0,4:NEXT A:LOCATE X+1,20:CALL 360:K= PEE K(367):IF K=32 THEN 510
500 LOCATE X+1,20:PRINT" ";:GOTO 170 510 LOCATE X+1,21:CALL 360:K=PEEK(367):I
F K<>58 THEN 540
520 LEEK=LEEK +1
530 LOCATE X+1,21:PRINT" ";:LOCATE X+1,2 2:PRINT CHR$(237);:GOTO 170
540 LET LEEK = LEEK +2:LOCATE X,20:PRINT " ";:LOCATE X,2I:PRINT" ";:LOCATE X, 22:PRINT CHR$(237);CHR$(237);CHR$(237);: GOTO 170
550 LOCATE 6,11:PRINT"—GAME OVER
—":LOCATE 3,14:PRINT"PRESS ANY KEY TO P LAY AGAIN": FOR F= 1 TO 20:SOUND 1,(F+10 0),4:NEXT
560 IF SC>HS THEN HS=SC
570 LOSS=0:SC=0:LEEK=0
580 IF INKEY$<>"" THEN 580
590 IF INKEY$ = "" THEN 590