Thanks. While it appears to work, it's clearly wrong. The formatting is still being done at the wrong place. The way I discovered this is to load a .apl file from a prior version of GNU APL. When I list the function, it's wrong. So, GNU APL is depending on the format in the file rather than having the del editor format it. For example:
)load Utils.apl
DUMPED 2019-10-27 12:10:43 (GMT-6)
∇Pin[⎕]∇
∇
[0] n←v Pin q;m;t
[1] ⍝ Input one or more numbers
[2] ⍝ v[1] = minimum value (inclusive)
[3] ⍝ v[2] = maximum value (inclusive)
[4] ⍝ v[3] = numeric increment (i.e. 1 = integer)
[5] ⍝ Remining values are optional
[6] ⍝ v[4] = minimum number of numbers
[7] ⍝ v[5] = maximum number of numbers
[8] ⍝ v[6] = default value of empty entry (or ¯1 means no default)
[9] ⍝ v[7+] = numbers the entered value cannot be
[10] ⍝ q is the prompt
[11] t←⍳0
[12] ⍎(3=⍴v)/'v←v,1 1'
[13] m←v[5]
[14] LP:→(m=⍴t)/EN3
[15] EN1:→(EHN n←CS PI q,'?')/0,0,EN2
[16] →(v[⍳5]Lck n)/EN1
[17] n[Omega n='-']←'¯'
[18] →(∨/(n←⍎n)∈6↓v)/ER1
[19] t←t,n
[20] v[5]←v[5]-⍴,n
[21] →LP
[22] EN2: →(0≠⍴t)/EN3
[23] →(5=⍴v)/0
[24] →(v[6]=¯1)/0
[25] t←v[,6]
[26] EN3:⍎'n←',((m=1)/'''''⍴'),'t'
[27] →0
[28] ER1:→EN1 ∆ ER(⍕n), ' already exists; Please reenter.'
∇
Thanks!
Blake