home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 36.dms / 36.adf / bounce.bas < prev    next >
BASIC Source File  |  1988-05-22  |  308b  |  14 lines
  1. 5     scnclr
  2. 6     pena 2 : peno 1
  3. 10    dx% = 2: dy% = 2
  4. 30    x% = 1 : y% = 1
  5. 100   box(x%,y%;x%+10,y%+10),1
  6. 105   ask window wx%, wy%
  7. 110   if x%<=0 then dx%=2
  8. 115   if x%+10>=wx% then dx%=-2
  9. 120   if y%<=0 then dy%=2
  10. 125   if y%+10>=wy% then dy%=-2
  11. 130   x% = x% + dx%
  12. 140   y% = y% + dy%
  13. 150   goto 100
  14.