1294 	end

  1294 	end

  1295 end;

  1295 end;

  1296 

  1296 

  1297 procedure DrawRope(Gear: PGear);

  1297 procedure DrawRope(Gear: PGear);

  1298 var roplen: LongInt;

  1298 var roplen: LongInt;

  1300 

  1300 

  1301 	procedure DrawRopeLine(X1, Y1, X2, Y2: LongInt);

  1301 	procedure DrawRopeLine(X1, Y1, X2, Y2: LongInt);

  1302 	var  eX, eY, dX, dY: LongInt;

  1302 	var  eX, eY, dX, dY: LongInt;

  1303 		i, sX, sY, x, y, d: LongInt;

  1303 		i, sX, sY, x, y, d: LongInt;

  1304 		b: boolean;

  1304 		b: boolean;