home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 20 / win_txl / beispiel / random.txl < prev    next >
Encoding:
Text File  |  1990-12-07  |  880 b   |  39 lines
  1. 002 rem cls; 
  2. 003 movewindow (0,0,640,320);
  3. 004 if "HOZahl nicht zu gro▀ wΣhlen WINDOWS     lΣ▀t sich Σu▀erst ungern aufhalten!";
  4. 005 list 
  5. 006 titlewindow "RANDOM BARS"; 
  6. 007 rem 
  7. 008 input "Wieviele DurchlΣufe ? :",cnt;
  8. 010 for x=0 to cnt;
  9. 015 let a=100+rnd*100;
  10. 020 let b=250+rnd*100;
  11. 030 let c=rnd*150;
  12. 040 let d=50+rnd*150;
  13. 050 let f=rnd*15;
  14. 055 let k=rnd*15;
  15. 058 setpencolor (k);
  16. 060 setcolor (f);
  17. 070 rectangle (a,c,b,d);
  18. 080 let a=100+rnd*100;
  19. 090 let b=250+rnd*100;
  20. 100 let c=rnd*150;
  21. 110 let d=50+rnd*150;
  22. 120 let f=rnd*15;
  23. 122 let k=rnd*15;
  24. 125 setpencolor (k);
  25. 130 setcolor (f);
  26. 140 ellipse (a,c,b,d);
  27. 150 let a=100+rnd*100;
  28. 160 let b=250+rnd*100;
  29. 170 let c=rnd*150;
  30. 180 let d=50+rnd*150;
  31. 190 let f=rnd*15
  32. 192 let k=rnd*15;
  33. 195 setpencolor (k);
  34. 200 setcolor (f);
  35. 210 roundrect (a,c,b,d,30,30);
  36. 220 next 
  37. 230 titlewindow 
  38. 240 end 
  39.