Bomb5 by Szabolcs

Instructions:
Use joystick in PORT1 to control the shield.
Catch the bombs to score honor points.
The bomb will be faster every round, max speed at 10th round.
Story:
In the year 2999 humanity's only hope is a last line defens system: a SHIELD!
You are in command to catch and defuse incoming alien bombs!
Protect planet Earth and score honor points!
Let's rock!!!
Description:
-1-
PRINT "EH";S
Delete screen, set character color to white and print honor points.
P = 2004
Start position of your shield.
R = 1231 + INT(RND(0)*26)
R = randomize where the bomb appears.
E = 54272 
We will use voice 1 for sound effects.
POKE E+1,60
Sound's high byte, a high pitch "beep".
FOR X=0 TO 18
Main cycle starts here and ends when the bomb reaches the bottom of the screen.
POKE R,32
Deletes old bomb's drawing.
-2-
J = PEEK(56321)
Reads input from PORT1 joystick.
R = R+40
The bomb's position is shifted one screen line down.
IF R=P THEN POKE E+4,17
If you caught the bomb sound starts to play, this is the wave form option.
POKE R,160
Your shield changes as it defuses the bomb.
PRINT "SQNICE!"
Cursor jumps to the second line on the screen and displays "NICE!"
FOR Y=0 to 500:NEXT
A short pause while the shield unloads the defused bomb.
S = S+10
You get 10 honor points for protecting mankind!
GOTO 1
Jumps to the first line of code. Next bomb incoming!!!
-3-
POKE 53280,0
Sets the screen border color to black.
POKE 53280,1
Sets the screen color to black. You know, space...
POKE R,81
The bomb is drawn on the screen for the first time!
IF J=251 THEN POKE P,32
If you move the joystick to the left, the shield in the old position will be deleted.
P = P-1
Shield moves to the left.
POKE P,209
Shield appears in the new position.
-4-
POKE E+24,15
Sound volume to max.
POKE E+5,9
Duration of the "beep".
POKE E+4,16
Sound's wave form.
IF J=247 THEN POKE P,32
If you move the joystick to the right, the shield in the old position will be deleted.
P = P+1
Shield moves to the right.
POKE P,209
Shield appears in the new position.
-5-
FOR Z=0 TO 100-S:NEXT
A short pause before the next bomb drops, you can have negative numbers here, who knew? Not me.
NEXT
This is where our main cycle starts again.
PRINT "SQGAME OVER"
Cursor jumps to the second line on the screen and displays "NICE!"
You failed to deflect the bomb and doomed all mankind, no worries, just start again!
POKE E+1,11
Sound's high byte, a low pitch "beep" or a "buup".
POKE E+4,17
Sound's wave form.
FOR Y=0 TO 500:NEXT
A short pause.
RUN
Game restarts.