0 IFABS(X-3)=9ORX=6ANDB=0THENA=NOTA+1
1 IFABS(Y)=9THENB=NOTB+1
2 POKE1651+40*Y+X,42:X=X+A+1:Y=Y+B+1:GOTO
