home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Datafile PD-CD 4
/
DATAFILE_PDCD4.iso
/
languages
/
cdemos
/
c
/
ColTunnel
< prev
Wrap
Text File
|
1996-04-09
|
565b
|
30 lines
#INCLUDE <bbc.h>
/* This was written using The Serial Port's C Interpreter, and so I am not
* sure which header files need to be included */
main()
{
int start,finish,x,pause;
start=0;
finish=1250;
bbc_mode(15);
bbc_cursor(0);
bbc_gcol(0,38);
bbc_fill(640,512);
for(x=0; x!=126; x++)
{
bbc_gcol(0,x);
bbc_rectanglefill(start,x*5,finish,5);
pause=bbc_inkey(2);
start=start+5;
finish=finish-10;
}
for(x=127; x!=210; x++)
{
bbc_gcol(0,x-126);
bbc_rectanglefill(start,x*5,finish,5);
pause=bbc_inkey(1);
start=start+5;
finish=finish-10;
}
}