home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / dev / basic / ace / prgs / turtle / torus.b < prev    next >
Encoding:
Text File  |  1994-09-17  |  252 b   |  26 lines
  1. '..Torus
  2.  
  3. defint a-z
  4.  
  5. screen 1,640,200,1,2
  6. window 1,,(0,10)-(640,200),32,1
  7.  
  8. penup
  9. setxy 280,110
  10. pendown
  11.  
  12. for i=1 to 36
  13.  for j=1 to 72
  14.    forward 5
  15.    turnright 5
  16.  next
  17.  forward 3
  18.  turnright 10
  19. next
  20.  
  21. while inkey$=""
  22. wend 
  23.  
  24. window close 1
  25. screen close 1
  26.