Ultimate Game Collection/XULTI.ISO/396/plot.rpp

Text File | 1996-11-01 | 336b | 22 lines

{PLOT.RPP - Test #2}

var x: number; {declare x as a number}

randomize;     {seed random generator}

loop(x=1 to 10000)
  setcolor(rand(1, 255));
  plot(rand(0, maxx), rand(0, maxy));

  {end program with <SPACE> or <RIGHT>}
  if(kbcode(57) or (kbcode(77)))
    end;
  endif;
endl;

println("I am the man!");