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 >
Wrap
BASIC Source File
|
1988-05-22
|
137b
|
8 lines
4 scnclr
5 pena 2
6 peno 1
10 ask mouse x%, y%, b%
15 if b% = 0 goto 10
20 box(x%-5,y%-5;x%+5,y%+5),1
30 goto 10