FreeVBCode code snippet: A Nokia Snake II clone