Backpacker 1 (Norsk)/backpacker.iso/pc/backpack.exe/backpack.DXR/00002.ls

Text File | 1995-11-16 | 399 b | 18 lines

on FixPath thePath
  if the machineType = 256 then
    set takeAwaySign to ":"
    set putInSign to "\"
    set T to char 1 to 2 of thePath
    repeat with i = 3 to length(thePath)
      set TT to char i of thePath
      if TT = takeAwaySign then
        set T to T & putInSign
        next repeat
      end if
      set T to T & TT
    end repeat
    set thePath to T
  end if
  return thePath
end