home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 20 / win_txl / beispiel / work.txl < prev   
Encoding:
Text File  |  1991-03-14  |  131 b   |  8 lines
  1. 010 let x=0;
  2. 020 let y=0;
  3. 030 setpixel (x,y,4);
  4. 040 let y=100+(sin(x*pi/180)*100);
  5. 050 let x=x+1;
  6. 060 if x<640;
  7. 070 goto 30
  8.