Guest User

Untitled

a guest
Jul 18th, 2018
76
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.26 KB | None | 0 0
  1. SCREEN 12: CLS : xs = 1: ys = 1: x = 25: y = 25
  2. 1 CIRCLE (xx, yy), 20, 0: CIRCLE (x, y), 20, 15
  3. DO: s = s + 1: IF s = 30 THEN s = 0: EXIT DO
  4. LOOP: xx = x: yy = y: x = x + xs: y = y + ys
  5. IF x < 25 OR x > 615 THEN xs = -xs
  6. IF y < 25 OR y > 455 THEN ys = -ys
  7. GOTO 1
Add Comment
Please, Sign In to add comment