Shortest Path Algorithm in (Turbo)Pascal?

[relsoft]

Here:

All vars with P=Player, R=Rat

Code:

cls
screen 13


dx!=rx-px
dy!=ry-py

Leng!=(Dx!*dx!)+(dy!*dy!)
Leng!=Sqr(Leng!)

dx!=dx!/Leng!
dy!=dy!/Leng!

sx!=px
sy!=py
For I=0 to Leng!
        
      sx!=sx!+dx!
      sy!=sy!+dy!
      Pset(sx!,sy!),15

Next I