Welcome to the new Logic Basic forum!

Window PointSize = 10Shoot(5, 5, 20, 70) 'Shoot from initial Line, initial Column to final line, final columnEndProgramFunction Shoot(L1 Integer, C1 Integer, L2 Integer, C2 Integer) Var DL Integer, DC Integer Var Steps Integer, LIncrement Decimal, CIncrement Decimal Var L Decimal, C Decimal, V Integer L = L1; C = C1 If L2 > L1 DL = L2 - L1 Else DL = L1 - L2 EndIf If C2 > C1 DC = C2 - C1 Else DC = C1 - C2 EndIf If DL > DC Steps = DL Else Steps = DC EndIf LIncrement = DL / Steps CIncrement = DC / Steps If L1 > L2; Lincrement = Lincrement * (-1); EndIf If C1 > C2; Cincrement = Cincrement * (-1); EndIf V = 0 While V < Steps Cls L += LIncrement C += CIncrement Point L, C, Blue Wait Events V++ LoopEndFunction