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