// This initializes music and goes away
tmpargument = 4
tmpdistance = 0
PlayMusic

// 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

GoPoof
End					// All done
