home *** CD-ROM | disk | FTP | other *** search
- getline env:selector.settings opa " font "
- chopword opa epa
- chopword opa epa1
- chopword opa epa2
- selectorfont >env:epa $epa1 $epa2
-
- if not "$epa" EQ ""
- setenv opa "font $epa"
- changeline env:selector.settings opa " font "
- endif