home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 20 / win_txl / beispiel / rect.txl < prev    next >
Encoding:
Text File  |  1990-12-10  |  749 b   |  39 lines
  1. 001 movewindow (0,0,600,320);
  2. 003 titlewindow "Rechtecke";
  3. 004 setcolor (4);
  4. 010 let x=320;
  5. 020 let y=150;
  6. 030 let x1=340;
  7. 040 let y1=160;
  8. 050 rectangle (x,y,x1,y1);
  9. 060 let x=x-10;
  10. 070 let y=y-10;
  11. 080 let y1=y1+10;
  12. 090 let x1=x1+10;
  13. 100 if y>80;
  14. 110 goto 50
  15. 115 setcolor (15);
  16. 120 rectangle (x,y,x1,y1);
  17. 130 let x=x+10;
  18. 140 let y=y+10;
  19. 150 let x1=x1-10;
  20. 160 let y1=y1-10;
  21. 170 if y<160;
  22. 180 goto 120
  23. 185 setcolor (2);
  24. 190 rectangle (x,y,x1,y1);
  25. 200 let x=x-10;
  26. 210 let y=y-10;
  27. 220 let y1=y1+10;
  28. 230 let x1=x1+10;
  29. 240 if y>80;
  30. 250 goto 190
  31. 255 setcolor (15);
  32. 260 rectangle (x,y,x1,y1);
  33. 270 let x=x+10;
  34. 280 let y=y+10;
  35. 290 let x1=x1-10;
  36. 300 let y1=y1-10;
  37. 310 if y<160;
  38. 320 goto 260
  39. 340 movewindow 350 titlewindow