0 FORY=0TO18:FORX=0TO18:P=ABS(X-9):Q=ABS(Y-9):A=1234+Y*40+X
1 IFP=0ORQ=0ORP=QANDP<8THENPOKEA,42
2 IFP>QTHENT=P:P=Q:Q=T
3 D=Q-P:IFP<3AND(D=0ORD=3ORD=6)ORP=5ANDQ>5ANDQ<8THENPOKEA,42
4 NEXT
5 NEXT
