home *** CD-ROM | disk | FTP | other *** search
/ PC User 2001 August / APC_Aug2001_CD2.iso / features / devtools / files / lb202win.exe / LB202W.EXE / GRAPHICS.BAS < prev    next >
Encoding:
BASIC Source File  |  2001-05-30  |  577 b   |  27 lines
  1.  
  2.     ' This is a turtle graphics demo
  3.     WindowWidth = 600
  4.     WindowHeight = 400
  5.     open "This is a turtle graphics window!" for graphics_nsb_nf as #1
  6.     print #1, "trapclose [quit]"
  7.  
  8.     print #1, "fill black ; home ; down ; north"
  9.  
  10.     for x = 1 to 100
  11.         print #1, "turn 54 ; go "; str$(x*3)
  12.         go$ = "turn 59 ; go "; str$(int(x/7))
  13.         print #1, "color "; 55 + (x * 2); " 0 "; max(x-20,0)*2
  14.         for y = 1 to 6
  15.             print #1, go$
  16.         next y
  17.     next x
  18.  
  19.     print #1, "flush"
  20.  
  21.     wait
  22.  
  23. [quit]
  24.  
  25.     close #1
  26.     end
  27.