'FreeSNAKE v0.4
'Maxwell Hansen
'12/30/2010

SCREEN 16

LOCATE 10,17
PRINT "FreeSNAKE Practice Edition"

GOUP$ = "w"
GODOWN$ = "s"
GOLEFT$ = "a"
GORIGHT$ = "d"
GOQUIT$ = "q"
NOTHING$ = ""

COUNT% = 1
X% = 50
Y% = 50
SCORE% = 0

'MAIN GAME LOOP
DO

    'GET KEY AND ADJUST SNAKE DIRECTION ACCORDINGLY
    K$ = INKEY$

    IF (K$ <> "") THEN
        TMP$ = K$
    ENDIF

    SELECT CASE K$
        CASE GOUP$
            Y% = Y% - 5
        CASE GODOWN$
            Y% = Y% + 5
        CASE GORIGHT$
            X% = X% + 5
        CASE GOLEFT$
            X% = X% - 5
        CASE NOTHING$
            IF (COUNT% = 2) THEN
                SELECT CASE TMP$

                    CASE GOUP$
                        Y% = Y% - 16
                    CASE GODOWN$
                        Y% = Y% + 16
                    CASE GORIGHT$
                        X% = X% + 16
                    CASE GOLEFT$
                        X% = X% - 16
                END SELECT
            END IF
    END SELECT

    CIRCLE (X%, Y%), 1, 2
    COUNT% = COUNT% + 1
'END LOOP IF INKEY$ RETURNED THE QUIT SEQUENCE
LOOP UNTIL K$ = GOQUIT$

SCORE% = COUNT%
PRINT COUNT%