tanks

program

 1100 100 set-speed!
 2
 3( Always set turret to 180 degrees )
 4180 set-turret!
 5
 6( Vary walk 1/8 of the time )
 78 random
 80 =
 9{
10  2 random
11  0 =
12  { 70 100 set-speed! }
13  { 100 70 set-speed! }
14  ifelse
15}
16if
17
18( If you see something, shoot it )
190 sensor?
20{ fire! }
21if
22
23( Turn, if trouble lies ahead )
241 sensor?
25{ 0 100 set-speed! }
26if