// This causes the ground fog to change color
GetContent
tmpargument = tmpargument + 512 & 65535
SetContent
tmpx = 32
tmpy = 192
tmpturn = tmpargument
tmpdistance = 16
Compass


tmpturn = tmpy     // red
tmpargument = tmpx // green
tmpdistance = 0    // blue
SetFogTAD


End					// All done
