⍝ Interop Demo ⍝ ⎕AVU )clear )copy c:\temp\USCFN USCFN ⎕VR 'USCFN' 3 55⍴65↓⎕av ⎕AVU[97+⍳26]←9397+⍳26 3 55⍴65↓⎕av ⎕VR 'USCFN' )copy c:\temp\USCFN USCFN ⎕VR 'USCFN' )copy c:\temp\russian HelloWorld HelloWorld )copy avu Russian.⎕AVU )copy c:\temp\russian HelloWorld HelloWorld )clear 3 55⍴65↓⎕av ⍝ Files )copy avu Std.⎕AVU )copy c:\temp\uscfn ⎕FUNTIE ⎕FNUMS 'c:\temp\interop64' ⎕FSTIE 1 'U' 1 ⎕FPROPS 1 'US' ⎕FPROPS 1 ⎕FDROP 1,-/2↑⎕FSIZE 1 ⎕CMD 'C:\Program Files\Dyalog\Dyalog APL 12.0 Classic\dyalog.exe' '' ⎕CMD 'C:\Program Files\Dyalog\Dyalog APL 11.0\dyalog.exe' '' ⍝ Read each component from Classic and v11 as it is created +(⎕VR 'USCFN') ⎕FAPPEND 1 ⎕FREAD 1 1 )copy avu Std.⎕AVU ⍝ do the same in Classic now - and remember Std font! (⎕VR 'USCFN') ⎕FREPLACE 1 1 ('U' 0) ⎕FPROPS 1 ⍝ Untie and retie file in v11 (bug) (⎕VR 'USCFN') ⎕FREPLACE 1 1 ⎕FUNTIE 1 ⍝ Public workspace AVU )load avu )obs 'Alt' 'Std' 'Russian',[1.5] (Alt Std Russian).(3 50⍴65↓⎕AV)