home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 35.dms / 35.adf / bounce.bas < prev    next >
Encoding:
BASIC Source File  |  1988-05-22  |  768 b   |  29 lines
  1. 5     scnclr
  2. 6     b%=2:c%=3
  3. 7     pena b%
  4. 8     peno c%
  5. 10    dx% = 2: dy% = 2
  6. 30    x% = 1 : y% = 1
  7. 100   box(x%,y%;x%+10,y%+10),1
  8. 105   ask window wx%, wy%
  9. 106   b%=((b%-2) mod 12) + 3
  10. 107   pena b%
  11. 108   c%=b% 'c%=((c%-2) mod 12) + 3
  12. 109   peno c%
  13. 110   if x%<=0 then dx%=2
  14. 115   if x%+10>=wx% then dx%=-3
  15. 120   if y%<=0 then dy%=3
  16. 125   if y%+10>=wy% then dy%=-2
  17. 130   x% = x% + dx%
  18. 140   y% = y% + dy%
  19. 145   get a$
  20. 146   if a$<>"" then goto 10000
  21. 150   goto 100
  22. 10000 ask rgb 3, r%,g%,b%
  23. 10010 for i% = 15 to 3 step -1
  24. 10020 ask rgb i%, r1%,g1%,b1%
  25. 10030 rgb i% ,r%,g%,b%
  26. 10040 r%=r1% : b% = b1% : g% = g1%
  27. 10050 next
  28. 10060 goto 10000
  29.