home *** CD-ROM | disk | FTP | other *** search
/ 1,000 Games / Disc1.iso / ARCADE / REXDEMO / LINE.RPP < prev    next >
Text File  |  1996-10-19  |  310b  |  23 lines
  1. {lines}
  2.  
  3. randomize;
  4.  
  5. line(0,0,319,199);
  6.  
  7.  
  8. var n: number;
  9. var x1: number;
  10. var y1: number;
  11. var x2: number;
  12. var y2: number;
  13.  
  14. loop(n=1 to 1000)
  15.   x1 := rand(0, 319);
  16.   y1 := rand(0, 199);
  17.   x2 := rand(0, 319);
  18.   y2 := rand(0, 199);
  19.   setcolor(rand(1, 255));
  20.   line(x1, y1, x2, y2);
  21.   
  22. endl;
  23.