home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
World of Shareware - Software Farm 2
/
wosw_2.zip
/
wosw_2
/
QBAS
/
QB4GRAF.ZIP
/
MOVETANK.BAS
< prev
next >
Wrap
BASIC Source File
|
1989-05-16
|
995b
|
48 lines
SCREEN 8, 0, 0, 0
COLOR 4, 1
CLS
LINE (100, 110)-(450, 110), 2
LINE (450, 110)-(495, 95), 2
LINE (495, 95)-(450, 80), 2
LINE (450, 80)-(120, 80), 2
LINE (120, 80)-(100, 105), 2
LINE (100, 105)-(100, 110), 2
PAINT (200, 90), 2, 2
DRAW "bu 20"
DRAW "br 200"
LINE (300, 80)-(360, 75), 2
LINE (360, 75)-(300, 60), 2
LINE (300, 60)-(230, 60), 2
LINE (230, 60)-(210, 75), 2
LINE (210, 75)-(225, 80), 2
PAINT (310, 75), 2, 2
LINE (225, 80)-(360, 80), 2
DRAW "bu6"
LINE (357, 74)-(430, 74), 2
LINE (430, 74)-(430, 70), 2
LINE (430, 70)-(340, 70), 2
PAINT (360, 72), 2, 2
pi = 3.141593
CIRCLE (110, 120), 28, 1.5, pi / 2, pi
CIRCLE (110, 120), 28, 2, pi, 3 * pi / 2
LINE (110, 132)-(410, 132), 2
CIRCLE (410, 119), 28, 2, 0, pi / 2
CIRCLE (410, 120), 28, 2, 3 * pi / 2, 0
PAINT (400, 115), 6, 2
DIM tank(5500)
GET (45, 65)-(495, 135), tank
CLS
FOR b = 10 TO 180 STEP 15
PUT (b, 75), tank, PSET
NEXT
END