home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l009 / 1.img / DISK6A.DSK / BOXES.bas next >
Encoding:
BASIC Source File  |  1990-11-28  |  454 b   |  16 lines
  1. 10  HCOLOR= 3
  2. 20 SX =  RND(1) *280
  3. 30 SY =  RND(1) *192
  4. 40 DX = (2 -4 *(SX >140)) *( RND(1) *2 +1)
  5. 50 DY = (2 -4 *(SY >86)) *( RND(1) *2 +1)
  6. 60 LX = ( RND(0) *10 +5) *DX
  7. 70 LY = ( RND(0) *10 +5) *DY
  8. 80  HGR2 
  9. 90  HPLOT SX,SY TO SX +LX,SY
  10. 100  HPLOT  TO SX +LX,SY +LY
  11. 110  HPLOT  TO SX,SY +LY
  12. 120  HPLOT  TO SX,SY
  13. 130 LX = LX +DX:LY = LY +DY
  14. 140 SX = SX +DX:SY = SY +DY
  15. 150  IF SX +LX <0  OR SX +LX >280  OR SY +LY <0  OR SY +LY >191  THEN 20
  16. 160  GOTO 90