home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Complete Encyclopedia of Games 3
/
GAMES1000V3_d1.iso
/
arcade
/
rexdemo
/
plot.rpp
< prev
next >
Wrap
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!");