3 x = 12 ' ball X coordinate
\r
4 y = 7 ' ball Y coordinate
\r
5 xs = 1 ' speed on X direction
\r
6 ys = 1 ' speed on Y direction
\r
9 LOCATE y, x ' erase ball
\r
12 x = x + xs ' calculate new ball coordinates
\r
15 LOCATE y, x ' draw ball
\r
19 IF x > 79 THEN xs = -1: SOUND 1000, 1 ' check for boundaries
\r
20 IF x < 2 THEN xs = 1: SOUND 1000, 1
\r
22 IF y > 22 THEN ys = -1: SOUND 1000, 1
\r
23 IF y < 2 THEN ys = 1: SOUND 1000, 1
\r