home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 37.dms / 37.adf / mo1.bas < prev    next >
BASIC Source File  |  1988-05-22  |  373b  |  11 lines
  1. 760   scnclr
  2. 765   x = 320 : y = 200 : c = x * rnd(0) : d = y * rnd (0)
  3. 770   a=0 : b=0 : j =0 : k=1 : n=2 : p=1
  4. 775   pena j : draw (a,j to c,d to a,y)
  5. 780   pena k : draw (a+k,j to c,d to a+k,y)
  6. 785   a=a+n : if a < x then 775
  7. 790   pena j : draw (j,b to c,d to x,b)
  8. 795   pena k : draw (j,b+k to c,d to x,b+k)
  9. 800   b=b+n : if b<y then 790
  10. 805   sleep 5*10^6 : goto 780
  11.