RANDOMIZE TIMER
SCREEN 9
WINDOW (0, 10)-(15, 0)
                                                
DIM dat(6, 4)
' Matrix                                     
'a                                           
dat(1, 1) = 0
dat(1, 2) = .85
dat(1, 3) = .2
dat(1, 4) = -.15
'b                                           
dat(2, 1) = 0
dat(2, 2) = .04
dat(2, 3) = -.26
dat(2, 4) = .28
'c                                           
dat(3, 1) = 0
dat(3, 2) = -.04
dat(3, 3) = .23
dat(3, 4) = .26
'd                                           
dat(4, 1) = .16
dat(4, 2) = .85
dat(4, 3) = .22
dat(4, 4) = .24
'e                                           
dat(5, 1) = 0
dat(5, 2) = 0
dat(5, 3) = 0
dat(5, 4) = 0
'f                                           
dat(6, 1) = 0
dat(6, 2) = 1.6
dat(6, 3) = 1.6
dat(6, 4) = .44
                                                
                                                
                                                
DO
  bounce = bounce + 1
  r = RND
                                                
  SELECT CASE r
    CASE 0 TO .01
      use = 1
    CASE .01 TO .85
      use = 2
    CASE .87 TO .94
      use = 3
    CASE .95 TO 1
      use = 4
  END SELECT
                                                
  x = dat(1, use) * x + dat(2, use) * y + dat(5, use)
  y = dat(3, use) * x + dat(4, use) * y + dat(6, use)
                                                
                                                
  LINE (x, y)-(x, y), 2
  IF INKEY$ <> "" THEN END
LOOP