tutorial/group3/10.bas

   1 SCREEN 13\r
   2 \r
   3 FOR i = 0 TO 320 STEP 10\r
   4   LINE (0, i)-(319, i), 5\r
   5   LINE (i, 0)-(i, 199), 5\r
   6 NEXT i\r
   7 \r
   8 LINE (0, 100)-(319, 100), 10\r
   9 \r
  10 PRINT "press a key..."\r
  11 a$ = INPUT$(1)\r
  12 \r
  13 y = 100\r
  14 ys = -1\r
  15 FOR t = 0 TO 300\r
  16   PSET (t, y), 14\r
  17   ys = ys + .01\r
  18   y = y + ys\r
  19   SOUND 300 - y, .1\r
  20 NEXT t\r
  21 \r