home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / QB4GRAF.ZIP / MOVETANK.BAS < prev    next >
Encoding:
BASIC Source File  |  1989-05-16  |  995 b   |  48 lines
  1. SCREEN 8, 0, 0, 0
  2. COLOR 4, 1
  3. CLS
  4.  LINE (100, 110)-(450, 110), 2
  5.  LINE (450, 110)-(495, 95), 2
  6.  LINE (495, 95)-(450, 80), 2
  7.  LINE (450, 80)-(120, 80), 2
  8.  LINE (120, 80)-(100, 105), 2
  9.  LINE (100, 105)-(100, 110), 2
  10.    PAINT (200, 90), 2, 2
  11. DRAW "bu 20"
  12. DRAW "br 200"
  13.  LINE (300, 80)-(360, 75), 2
  14.  LINE (360, 75)-(300, 60), 2
  15.  LINE (300, 60)-(230, 60), 2
  16.  LINE (230, 60)-(210, 75), 2
  17.  LINE (210, 75)-(225, 80), 2
  18.    PAINT (310, 75), 2, 2
  19.  LINE (225, 80)-(360, 80), 2
  20. DRAW "bu6"
  21.  LINE (357, 74)-(430, 74), 2
  22.  LINE (430, 74)-(430, 70), 2
  23.  LINE (430, 70)-(340, 70), 2
  24.    PAINT (360, 72), 2, 2
  25. pi = 3.141593
  26.   CIRCLE (110, 120), 28, 1.5, pi / 2, pi
  27.   CIRCLE (110, 120), 28, 2, pi, 3 * pi / 2
  28.   LINE (110, 132)-(410, 132), 2
  29.   CIRCLE (410, 119), 28, 2, 0, pi / 2
  30.   CIRCLE (410, 120), 28, 2, 3 * pi / 2, 0
  31. PAINT (400, 115), 6, 2
  32.  
  33.  DIM tank(5500)
  34.   GET (45, 65)-(495, 135), tank
  35.    CLS
  36.     FOR b = 10 TO 180 STEP 15
  37.  PUT (b, 75), tank, PSET
  38. NEXT
  39. END
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.