| Opens |
open (unit = TempUnit,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/infobank/programs/keep/dictionary_styles.keep')
|
| Reads |
read (TempUnit, '(q,a)', end = 99)
* NameLength(StyleCount), Names(StyleCount)
read (TempUnit, '(q,a)', end = 99)
* PathLength(StyleCount), Paths(StyleCount)
read (TempUnit, '(q,a,/)', end = 99)
* StyleLength(StyleCount), Styles(StyleCount)
|