home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 123 / af123a.adf / af123a2.lzx / Selector / pref / changepat < prev    next >
Encoding:
AmigaDOS Script File  |  1999-03-04  |  574 b   |  30 lines
  1. .key a
  2. .bra {
  3. .ket }
  4.  
  5. getline env:selector.settings opa " pattern {a} "
  6.  
  7. chopword opa epa
  8. chopword opa epa
  9. chopword opa epa
  10.  
  11. failat 21
  12.  
  13. if "$epa" EQ ""
  14.     list >env:opapath lformat %F /patterns/4.gravel
  15.     if warn
  16.         setenv opapath env:patterns
  17.     endif
  18.     setenv opaname ""
  19. else
  20.     enclose epa
  21.     filename >env:opapath -nofnutts -pathonly $epa
  22.     filename >env:opaname -nofnutts -nopath $epa
  23. endif
  24.  
  25.  
  26. requestfile >env:opa drawer "$opapath" file "$opaname" title "Select pattern"
  27. if not warn
  28.     setenv epa pattern {a} $opa orDefault
  29.     changeline env:selector.settings epa " pattern {a} "
  30. endif