[i]SNAKE

[i]Sprite Data goes here

[i]Initialize Stuff
Lbl MAINMENU
det(0
det(5,0
det(74,1,1

[i]Main Menu
det(21,254
det(18,"SNAKE BETA          v1.0          By: TheGeekyScientist",0,230
det(74,2,2
0->G
Repeat K=9 or K=15
   getKey->K
    det(21,254-248*not(G
    det(18,"PLAY",130,125
    det(21,254-248*not(G-1
    det(18,"SCORES",113,145
    det(21,254-248*not(G-2
    det(18,"SKINS",121,165
    If K=1 and G!=2
        G+1->G
    End
    If K=4 and G
        G-1->G
   End
End

If not(G
   det(1
   Return
   End

If G=1
   det(1
   Return
   End

If G=2
    [i]Initialize Stuff
    det(0
    det(5,0
    det(74,2,2

    [i]Display Skins
    det(62,2,35,30,16,160
    det(62,1,35,65,16,160
    det(62,3,35,100,16,160
    det(62,4,35,135,16,160
    det(62,0,35,170,16,160

    [i]Skin Menu
    det(21,36
    det(18,"SKINS",121,10

    0->G
    Repeat K=9 or K=15
       getKey->K
       det(21,254-248*not(G
       det(18,">",25,30
       det(21,254-248*not(G-1
       det(18,">",25,65
       det(21,254-248*not(G-2
       det(18,">",25,100
       det(21,254-248*not(G-3
       det(18,">",25,135
       det(21,254-248*not(G-4
       det(18,">",25,170
       If K=1 and G!=4
            G+1->G
        End
        If K=4 and G
            G-1->G
       End
    End

    If G=1
       det(1
       Return
       End

    If G=2
       det(1
       Return
       End

    If G=3
       det(1
       Return
       End

    If G=4
       det(1
       Return
       End

    If G=5
       det(1
       Return
       End
End