home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 35.dms / 35.adf / band.bas < prev    next >
Encoding:
BASIC Source File  |  1988-05-22  |  488 b   |  21 lines
  1. 10    dim a%(5000)
  2. 20    gosub 1000
  3. 30    sshape(x1%,y1%;x2%,y2%),a%()
  4. 35    ask mouse x%,y%,b%
  5. 37    if b% = 0 goto 35
  6. 40    gshape(x%,y%),a%()
  7. 50    goto 20
  8. 1000  drawmode 2
  9. 1010  ask mouse x1%,y1%,b%
  10. 1020  if b% = 0 goto 1010
  11. 1025  x2% = x1% : y2% = y1%
  12. 1030  ask mouse x%,y%,b%
  13. 1035  if x% = x2% and y% = y2% goto 1030
  14. 1040  box (x1%,y1%;x2%,y2%)
  15. 1045  x2% = x% : y2% = y%
  16. 1047  box(x1%,y1%;x2%,y2%)
  17. 1050  if b% <> 0 goto 1030
  18. 1065  box(x1%,y1%;x2%,y2%)
  19. 1067  drawmode 0
  20. 1070  return
  21.