如何让蛇在TI-BASIC中生长

Question

我已经尝试让蛇在TI-基本几个小时，我有一个非常困难的时间让蛇的生长正常。到目前为止，我已经：

ClrHome
5->Y
4->X
0->L
256->dim(|LSNAKE
X->T
1->A
While 1
    ClrHome
    
    
    Output(Y,X,"O"
    
    
    
    If L>0:Then
        For(Z,1,L
            Output(|LSNAKE(V),|LSNAKE(Z),"O"
        End
    End
    
    A->V
    Y->|LSNAKE(A)
    A+1->A
    X->|LSNAKE(A)
    A->Z
    A+1->A
    Input D
    
    If D=25:Then
        Y-1->Y
    End
    
    If D=34:Then
        Y+1->Y
    End
    
    If D=24:Then
        X-1->X
    End
    
    If D=26:Then
        X+1->X
    End
    
    Output(7,1,|LSNAKE(1)
    Output(8,1,|LSNAKE(2)
    L+1->L
    
End

其思想是使用SNAKE变量将前一个坐标放入列表A中，V和Z将回忆这些值。但这不管用。唯一的蛇游戏，我可以在网上找到TI-BASIC是非常密集的，没有评论。所以我希望我能在这里得到帮助。

Answer 1

看上去你在用

Input D

当你想用

getKey->D

也许还有其他我没看到的问题。