home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 35.dms / 35.adf / qbox.bas < prev    next >
Encoding:
BASIC Source File  |  1988-05-22  |  113 b   |  6 lines
  1. 5     pattern
  2. 10    ask window x%, y%
  3. 15    pena rnd * 15
  4. 20    box(x%*rnd,y%*rnd;x%*rnd,y%*rnd),1
  5. 30    goto 10
  6.