[Angel Darkover]

Alternatively, you could create new traits (in a supplemental data file) to represent the split levels. Copy the base trait for Spoken only and make 4 copies. Then, to each copy, add the cost of the written level desired and modify the name extension accordingly.

For example,

Language (Written at None; Spoken at level), 1/2.3, page(B24), upto(3 LimitingTotal), mods(Language), levelnames([None], Broken, Accented, Native), cat(Mundane, Social, Language, Language Spoken, Social Background), taboo(Native Languages > 1),
    x(#InputToTagReplace("Specify the language here:", name, , "Language (Spoken)"))
Language (Written at Broken; Spoken at level), 2/3/4, page(B24), upto(3 LimitingTotal), mods(Language), levelnames([None], Broken, Accented, Native), cat(Mundane, Social, Language, Language Spoken, Social Background), taboo(Native Languages > 1),
    x(#InputToTagReplace("Specify the language here:", name, , "Language (Spoken)"))
Language (Written at Accented; Spoken at level), 3/4/5, page(B24), upto(3 LimitingTotal), mods(Language), levelnames([None], Broken, Accented, Native), cat(Mundane, Social, Language, Language Spoken, Social Background), taboo(Native Languages > 1),
    x(#InputToTagReplace("Specify the language here:", name, , "Language (Spoken)"))
Language (Written at Native; Spoken at level), 4/5/6, page(B24), upto(3 LimitingTotal), mods(Language), levelnames([None], Broken, Accented, Native), cat(Mundane, Social, Language, Language Spoken, Social Background), taboo(Native Languages > 1),
    x(#InputToTagReplace("Specify the language here:", name, , "Language (Spoken)"))

In this way, you still only have one leveled aspect but you get a single line in your printout, sacrificing multiple lines in the application instead. Hopefully, this solves your dilemma. Please note that it DOES mean that if the written level changes, you have to remove the old trait and replace it with a new trait, since you can't level the written trait and spoken trait simultaneously.