home *** CD-ROM | disk | FTP | other *** search
/ Interplay's Learn to Program Basic (Review Copy) / Learn to Program Basic Review Copy (Interplay)(June 23, 1998).ISO / pc / ltpbasic / exercise / paint200.bas < prev    next >
Encoding:
BASIC Source File  |  1998-04-07  |  670 b   |  47 lines
  1. cls
  2.  
  3. color 219
  4. fillrect 50,220 to 70, 239
  5. color 54
  6. fillrect 90,220 to 110,239
  7. color 96
  8. fillrect 130,220 to 150,239
  9. color 155
  10. fillrect 170,220 to 190,239
  11. color 21 
  12. fillrect 210,220 to 230,239
  13. rect 250,220 to 270,239
  14.  
  15. while true
  16. if mouseY < 200 then
  17. if button then
  18. fillcircle mouseX, mouseY, 5
  19. endif
  20. endif
  21.  
  22. if mouseY > 200 then
  23. if clickrect (50,220 to 70, 239) then
  24. color 219
  25. endif
  26. if clickrect (90,220 to 110,239) then
  27. color 54
  28. endif
  29. if clickrect (130,220 to 150,239) then
  30. color 96
  31. endif
  32. if clickrect (170,220 to 190,239) then
  33. color 155
  34. endif
  35. if clickrect (210,220 to 230,239) then
  36. color 21
  37. endif
  38. if clickrect (250,220 to 270,239) then
  39. color 233
  40. endif
  41.  
  42. endif
  43. wend
  44.  
  45.  
  46. end