home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d0xx / d013 / basicprogs.lha / mouse.bas < prev    next >
Encoding:
BASIC Source File  |  1986-02-22  |  137 b   |  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.