Celestin Apprentice 2/Apprentice-Release2.iso/Tools/Languages/Icon 8.1/mem/MPW Helpers/Scripts/sf

Text File | 1993-08-26 | 237 b | 9 lines | [TEXT/MPS ]

if "`SizeWindow "{Active}"`" =~ /?«10» ([0-9]+)®1≈/
  set width {®1}
else
  echo 'Couldn'∂''t match output from SizeWindow'
end
evaluate width = {width} ÷ 6 - 4
set NoLineFlush 1 ; export NoLineFlush
files {"Parameters"} | macsf {width}