home *** CD-ROM | disk | FTP | other *** search
/ 1,000 Games / Disc1.iso / ARCADE / REXDEMO / STARS.RPP < prev    next >
Text File  |  1996-12-08  |  2KB  |  200 lines
  1. { Stars by Keebler }
  2.  
  3. var x1 : number;
  4. var x2 : number;
  5. var x3 : number;
  6. var x4 : number;
  7. var x5 : number;
  8.  
  9. var x6 : number;
  10. var x7 : number;
  11. var x8 : number;
  12. var x9 : number;
  13. var x10: number;
  14.  
  15. var x11: number;
  16. var x12: number;
  17. var x13: number;
  18. var x14: number;
  19. var x15: number;
  20.  
  21.  
  22. x1 :=20;
  23. x2 :=300;
  24. x3 :=100;
  25. x4 :=160;
  26. x5 :=240;
  27.  
  28. x6 :=10;
  29. x7 :=310;
  30. x8 :=150;
  31. x9 :=80;
  32. x10:=230;
  33.  
  34. x11:=30;
  35. x12:=80;
  36. x13:=160;
  37. x14:=230;
  38. x15:=310;
  39.  
  40.  
  41.  
  42. $Start
  43. cls(0);
  44. setcolor(1);
  45. println("Starfield");
  46. println("");
  47. println("ESC to exit");
  48. delay(2000);
  49. cls(0);
  50.  
  51.  
  52. $Loop  {============== Main Loop ==================}
  53.  
  54.  delay(20);
  55.  
  56.  
  57. setcolor(0);
  58. plot(x1 ,30);
  59. plot(x2 ,100);
  60. plot(x3 ,120);
  61. plot(x4 ,170);
  62. plot(x5 ,60);
  63.  
  64. plot(x6 ,35);
  65. plot(x7 ,175);
  66. plot(x8 ,115);
  67. plot(x9 ,58);
  68. plot(x10,96);
  69.  
  70. plot(x11,26);
  71. plot(x12,55);
  72. plot(x13,100);
  73. plot(x14,140);
  74. plot(x15,180);
  75.  
  76.    
  77.  
  78. x1 :=x1 +1;
  79. x2 :=x2 +1;
  80. x3 :=x3 +1;
  81. x4 :=x4 +1;
  82. x5 :=x5 +1;
  83.  
  84. x6 :=x6 +3;
  85. x7 :=x7 +3;
  86. x8 :=x8 +3;
  87. x9 :=x9 +3;
  88. x10:=x10+3;
  89.  
  90. x11:=x11+2;
  91. x12:=x12+2;
  92. x13:=x13+2;
  93. x14:=x14+2;
  94. x15:=x15+2;
  95.  
  96.  
  97.  
  98.  
  99. if(x1>319)
  100.  x1:=x1-319;
  101. endif;
  102.  
  103. if(x2>319)
  104.  x2:=x2-319;
  105. endif;
  106.  
  107. if(x3>319)
  108.  x3:=x3-319;
  109. endif;
  110.  
  111. if(x4>319)
  112.  x4:=x4-319;
  113. endif;
  114.  
  115. if(x5>319)
  116.  x5:=x5-319;
  117. endif;
  118.  
  119. if(x6>319)
  120.  x6:=x6-319;
  121. endif;
  122.  
  123. if(x7>319)
  124.  x7:=x7-319;
  125. endif;
  126.  
  127. if(x8>319)
  128.  x8:=x8-319;
  129. endif;
  130.  
  131. if(x9>319)
  132.  x9:=x9-319;
  133. endif;
  134.  
  135. if(x10>319)
  136.  x10:=x10-319;
  137. endif;
  138.  
  139. if(x11>319)
  140.  x11:=x11-319;
  141. endif;
  142.  
  143. if(x12>319)
  144.  x12:=x12-319;
  145. endif;
  146.  
  147. if(x13>319)
  148.  x13:=x13-319;
  149. endif;
  150.  
  151. if(x14>319)
  152.  x14:=x14-319;
  153. endif;
  154.  
  155. if(x15>319)
  156.  x15:=x15-319;
  157. endif;
  158.  
  159.  
  160.  
  161.      setcolor(28);
  162.      plot(x1 ,30);
  163.      plot(x2 ,100);
  164.      plot(x3 ,120);
  165.      plot(x4 ,170);
  166.      plot(x5 ,60);
  167.  
  168.      setcolor(18);
  169.      plot(x6 ,35);
  170.      plot(x7 ,175);
  171.      plot(x8 ,115);
  172.      plot(x9 ,58);   
  173.      plot(x10,96);
  174.  
  175.      setcolor(23);
  176.      plot(x11,26);
  177.      plot(x12,55);
  178.      plot(x13,100);
  179.      plot(x14,140);
  180.      plot(x15,180);
  181.    
  182.  
  183.  
  184.  
  185.  
  186.  
  187. if (kbcode(1))
  188.   goto $End
  189. endif;
  190.  
  191.  
  192. goto $Loop
  193.  
  194.  
  195. $End
  196. setcolor(1);
  197. end;
  198.  
  199.  
  200.