home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 4 / DATAFILE_PDCD4.iso / languages / cdemos / c / ColTunnel < prev   
Encoding:
Text File  |  1996-04-09  |  565 b   |  30 lines
  1. #INCLUDE <bbc.h>
  2. /* This was written using The Serial Port's C Interpreter, and so I am not
  3.  * sure which header files need to be included */
  4. main()
  5. {
  6. int start,finish,x,pause;
  7. start=0;
  8. finish=1250;
  9. bbc_mode(15);
  10. bbc_cursor(0);
  11. bbc_gcol(0,38);
  12. bbc_fill(640,512);
  13. for(x=0; x!=126; x++)
  14.   {
  15.   bbc_gcol(0,x);
  16.   bbc_rectanglefill(start,x*5,finish,5);
  17.   pause=bbc_inkey(2);
  18.   start=start+5;
  19.   finish=finish-10;
  20.   }
  21. for(x=127; x!=210; x++)
  22.   {
  23.   bbc_gcol(0,x-126);
  24.   bbc_rectanglefill(start,x*5,finish,5);
  25.   pause=bbc_inkey(1);
  26.   start=start+5;
  27.   finish=finish-10;
  28.   }
  29. }
  30.