home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / BIBLIOTE / TREKTRIK.BAS < prev    next >
Encoding:
BASIC Source File  |  1992-05-27  |  1.0 KB  |  46 lines
  1.  
  2.  
  3.     'open a graphical window and display startrek ships
  4.  
  5.     drawX = 40
  6.     drawY = 40
  7.  
  8.     WindowWidth = 300
  9.     WindowHeight = 250
  10.     open "TREK SHIPS" for graphics as #1
  11.     print #1, "fill black"
  12.     print #1, "color white"
  13.  
  14.     for x = 1 to 5
  15.         for y = 1 to 3
  16.             gosub [Enterprise]
  17.             drawY = drawY + 40
  18.             angle = angle + 15
  19.         next y
  20.         drawY = 40
  21.         drawX = drawX + 40
  22.     next x
  23.  
  24.     input r$
  25.  
  26.  end
  27.  
  28.  
  29. [Enterprise]
  30.  
  31.     print #1, "color white"
  32.     print #1, "place "; drawX; " "; drawY
  33.     print #1, "north; turn "; angle; "; down; turn 275; go 8; turn 85; go 10; turn 180; size 3; go 14"
  34.     print #1, "size 1"
  35.     print #1, "place "; drawX; " "; drawY
  36.     print #1, "north; turn "; angle; "; turn 85; go 8; turn 275; go 10; turn 180; size 3; go 14"
  37.     print #1, "size 1"
  38.     print #1, "place "; drawX; " "; drawY
  39.     print #1, "north; turn "; angle; "; turn 180; go 10; size 12; go 0"
  40.     print #1, "flush"
  41.  
  42.     print #1, "size 1"
  43.  
  44.     return
  45.  
  46.