tutorial/group2/12.bas

   1 y = 10\r
   2 ys = 1\r
   3 \r
   4 1\r
   5 CLS\r
   6 y = y + ys\r
   7 IF y > 20 THEN ys = -1\r
   8 IF y < 2 THEN ys = 1\r
   9 LOCATE y\r
  10 PRINT "This is jumping text"\r
  11 SOUND y * 200 + 100, 1\r
  12 GOTO 1\r
  13 \r