home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / libbasic / graphics.bas < prev    next >
BASIC Source File  |  1992-03-27  |  456b  |  22 lines
  1.  
  2.     ' This is a turtle graphics demo
  3.  
  4.     button #1, Test, Test, LR, 5, 5
  5.     open "This is a turtle graphics window!" for graphics as #1
  6.  
  7.     print #1, "home ; down ; north"
  8.  
  9.     for x = 1 to 100
  10.         print #1, "turn 54 ; go "; str$(x*2)
  11.         go$ = "turn 59 ; go "; str$(int(x/10))
  12.         for y = 1 to 6
  13.             print #1, go$
  14.         next y
  15.     next x
  16.  
  17.     print #1, "flush"
  18.  
  19.     input "press 'return'" ; r$
  20.  
  21.     close #1
  22.