StartColourDefinition
Seed(&B)
Phase(&2C)
Dithering(&2)
NoiseToBeFiltered(&FFFF)
LinearField(&75EF,&77)
OneDimensionalTransform
OneDimensionalEqualization
OneDimensionalStoreBufferTwo
LinearField(&D7,&58)
OneDimensionalStoreBufferOne
LinearField(&6009,&FFF5)
CreateColoursUsingHSVData
EndColourDefinition

Seed(&79)
Phase(&2C)
NoiseToBeFiltered(&7B)
CreateTwoDimensionalFilter(FractalNoise(&FCC3,&233))
TwoDimensionalTransform
TwoDimensionalEqualization
Dithering(&2000)
MakeSprite
Checksum(&735)
End







