home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / ANIVGA11.ZIP / RANDOM.PAL < prev    next >
Encoding:
Text File  |  1992-07-17  |  768 b   |  33 lines
  1. 
  2.  ,%3%%).;
  3.  24;
  4.  !4!:94%;
  5.     :!%(,%2:,/.').4;
  6.  
  7.  %24%,%3%.( "2,"3,"4,"1:94%);
  8.  ":94%;
  9.     
  10.  0/24$201:=0;
  11.  ":=0/24$201;
  12.  )& (" !.$ $80)<>0  "4:=1   "4:=0;
  13.  )& (" !.$ $40)<>0  "3:=1   "3:=0;
  14.  )& (" !.$ $20)<>0  "2:=1   "2:=0;
  15.  )& (" !.$ $10)<>0  "1:=1   "1:=0;
  16. ;
  17.  
  18.  3(/7(3,"2,"1,$:"94%);
  19.  /,$8,/,$9:94%;
  20.     
  21.  /,$8:=7(%2%8; /,$9:=7(%2%9; /4/(20,1);
  22.      (3,"2,"1,$); /4/(/,$8,/,$9);
  23. ;
  24.  
  25.      ,)%3%).94%:94%;
  26.  9.#(2/.)3!4)/.,)42,)41,5--9,!4%.:94%;
  27.     
  28.  ;!24% !5& $)% %234%. 2 !4%.")43=
  29.  
  30.  
  31.   %24%,%3%.(9.#(2/.)3!4)/.,)42,)41,5--9);
  32.        9.#(2/.)3!4)/.=1;
  33.  !4%.:=)42 3(, 1 + )41;
  34.        9.#(2/.)3!4)/.=1