home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 36.dms / 36.adf / cutpaste.bas < prev    next >
BASIC Source File  |  1988-05-22  |  429b  |  19 lines
  1. 10    dim a%(1000)
  2. 20    ask mouse x%,y%,b%
  3. 30    if b%=0% then 20
  4. 40    print "upper left";x%;y%
  5. 50    for i=1 to 1000 : next i
  6. 60    ask mouse x2%,y2%,b%
  7. 70    if b%=0% then 60
  8. 80    print "Lower right";x2%,y2%
  9. 90    sshape(x%,y%;x2%,y2%),a%()
  10. 100   drawmode 2
  11. 110   box(x%,y%;x2%,y2%)
  12. 120   drawmode 0
  13. 130   for i=1 to 1000
  14. 140   next i
  15. 150   ask mouse x%,y%,b%
  16. 160   if b%=0% then 150
  17. 170   gshape(x%,y%),a%()
  18. 180   goto 150
  19.