Quote:
:DelVar CDelVar D8→A
:8→B
:Repeat K=45
:ClrHome
:Output(A,B,"X
:getKey→K
:If D
:Then
:Output(D,C,"^
:D-1→D
:End
:If (K=21) and (A≠1
:Then
:B→C
:A→D
:End
:B+(K=26)1→B
:B-(K=24)1→B
:A-(K=25)1→A
You're missing an "If" here
:Then
:A+1→A
:If A>8
:1→8
:End
:If A<1
:8→A
:End
:8→B
:Repeat K=45
:ClrHome
:Output(A,B,"X
:getKey→K
:If D
:Then
:Output(D,C,"^
:D-1→D
:End
:If (K=21) and (A≠1
:Then
:B→C
:A→D
:End
:B+(K=26)1→B
:B-(K=24)1→B
:A-(K=25)1→A
You're missing an "If" here
:Then
:A+1→A
:If A>8
:1→8
:End
:If A<1
:8→A
:End