home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 35.dms / 35.adf / box.bas < prev    next >
Encoding:
BASIC Source File  |  1988-05-22  |  362 b   |  18 lines
  1. 10    n% = &HFFFF
  2. 11    drawmode 1
  3. 12    ask window wx%, wy%
  4. 15    w = rnd * wx%
  5. 16    h = rnd * wy%
  6. 17    x = rnd * wx%
  7. 18    y = rnd * wy%
  8. 20    for i% = 0 to 7
  9. 30    a%(i%) = rnd * n%
  10. 40    next
  11. 45    pa% = rnd * 15
  12. 46    pb% = rnd * 15
  13. 47    if pb% = pa% then pb% = pa% + 1
  14. 50    pattern 8, a%()
  15. 55    pena pa% : penb pb%
  16. 60    box(w,h;x,y), 1
  17. 70    goto 12
  18.