home *** CD-ROM | disk | FTP | other *** search
/ Ultimate Game Collection / XULTI.ISO / 396 / color.rpp < prev    next >
Text File  |  1996-12-08  |  1KB  |  112 lines
  1. { Color by Keebler }
  2.  
  3. var     i : number;
  4. var     x : number;
  5. var     y : number;
  6. var direction : number;
  7. var col_loop:number;
  8.  
  9.  
  10. x:=0;
  11. direction:=1;
  12.  
  13. cls(0);
  14.  
  15. loop (col_loop = 0 to 222)
  16.   setcursor(60,100);
  17.   setcolor(col_loop);
  18.   println("Welcome to the Color Zone !");
  19.   delay(20);
  20. endl;
  21.  
  22. cls(0);
  23. setcolor(1);
  24. setcursor(120,120);
  25. println("ESC to exit.");
  26. delay(2000);
  27.  
  28. loop(y=0 to 199)
  29.  setcolor(y);
  30.  line(0,y,160,y);
  31.  
  32.  setcolor(199-y);
  33.  line(161,y,319,y);
  34.  delay(8);
  35. endl;
  36.  
  37. $Main  {============ Main loop================}
  38.  
  39.  loop (y = 0 to 199)
  40.   setcolor(y+x);
  41.   line(0,y,160,y);
  42.  
  43.   setcolor(199-y+x);
  44.   line(161,y,319,y);
  45.  endl;
  46.  
  47. if (direction = 1)
  48.   x:= x+1;
  49. endif;
  50.  
  51. if (direction = -1) 
  52.   x:=x-1;
  53. endif;
  54.  
  55. if(x>56) 
  56.    x:=55;
  57.    direction:=-1;
  58. endif;
  59.  
  60. if(x<1)
  61.    x:=1;
  62.    direction:=1;
  63. endif;
  64.  
  65. if(kbcode(1))
  66.  goto $End
  67. endif;
  68.  
  69. goto $Main {=====================================}
  70.  
  71.  
  72.  
  73. $End
  74. cls(0);
  75. setcursor(100,100);
  76. setcolor(150);
  77. println("Thanks for Playing !");
  78. println("");
  79. println("");
  80. println("");
  81. end;
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  
  89.  
  90.  
  91.  
  92.  
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111.  
  112.