home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 36.dms / 36.adf / mouse.bas < prev    next >
BASIC Source File  |  1988-05-22  |  137b  |  8 lines
  1. 4     scnclr
  2. 5     pena 2
  3. 6     peno 1
  4. 10    ask mouse x%, y%, b%
  5. 15    if b% = 0 goto 10
  6. 20    box(x%-5,y%-5;x%+5,y%+5),1
  7. 30    goto 10
  8.