tutorial/group2/13.bas

   1 CLS\r
   2 \r
   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
   7 \r
   8 1\r
   9 LOCATE y, x     ' erase ball\r
  10 PRINT " "\r
  11 \r
  12 x = x + xs      ' calculate new ball coordinates\r
  13 y = y + ys\r
  14 \r
  15 LOCATE y, x     ' draw ball\r
  16 PRINT "O"\r
  17 \r
  18 \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
  21 \r
  22 IF y > 22 THEN ys = -1: SOUND 1000, 1\r
  23 IF y < 2 THEN ys = 1: SOUND 1000, 1\r
  24 \r
  25 SOUND 0, 1      ' wait\r
  26 GOTO 1\r
  27 \r