home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 36.dms / 36.adf / mouse1.bas < prev    next >
BASIC Source File  |  1988-05-22  |  202b  |  10 lines
  1. 10    scnclr
  2. 30    ask mouse x%, y%, b%
  3. 40    if x%=x1% and y%=y1% goto 30
  4. 45    peno 0
  5. 50    box(x1%-5,y1%-5;x1%+5,y1%+5)
  6. 55    peno 1
  7. 60    box(x%-5,y%-5;x%+5,y%+5)
  8. 70    x1%=x%: y1%=y%
  9. 80    goto 30
  10.