home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / bbs / dev / ace-2.0.lha / ACE-2.0 / prgs / Turtle / torus.b < prev    next >
Encoding:
Text File  |  1994-01-19  |  205 b   |  24 lines
  1. '..Torus
  2.  
  3. defint a-z
  4.  
  5. screen 1,640,200,1,2
  6.  
  7. penup
  8. setxy 280,110
  9. pendown
  10.  
  11. for i=1 to 36
  12.  for j=1 to 72
  13.    forward 5
  14.    turnright 5
  15.  next
  16.  forward 3
  17.  turnright 10
  18. next
  19.  
  20. while inkey$=""
  21. wend 
  22.  
  23. screen close 1
  24.