home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Complete Encyclopedia of Games 3
/
GAMES1000V3_d1.iso
/
arcade
/
rexdemo
/
color.rpp
< prev
next >
Wrap
Text File
|
1996-12-08
|
1KB
|
112 lines
{ Color by Keebler }
var i : number;
var x : number;
var y : number;
var direction : number;
var col_loop:number;
x:=0;
direction:=1;
cls(0);
loop (col_loop = 0 to 222)
setcursor(60,100);
setcolor(col_loop);
println("Welcome to the Color Zone !");
delay(20);
endl;
cls(0);
setcolor(1);
setcursor(120,120);
println("ESC to exit.");
delay(2000);
loop(y=0 to 199)
setcolor(y);
line(0,y,160,y);
setcolor(199-y);
line(161,y,319,y);
delay(8);
endl;
$Main {============ Main loop================}
loop (y = 0 to 199)
setcolor(y+x);
line(0,y,160,y);
setcolor(199-y+x);
line(161,y,319,y);
endl;
if (direction = 1)
x:= x+1;
endif;
if (direction = -1)
x:=x-1;
endif;
if(x>56)
x:=55;
direction:=-1;
endif;
if(x<1)
x:=1;
direction:=1;
endif;
if(kbcode(1))
goto $End
endif;
goto $Main {=====================================}
$End
cls(0);
setcursor(100,100);
setcolor(150);
println("Thanks for Playing !");
println("");
println("");
println("");
end;