Edit Box line mark

Hello, two questions:

1. The call EDIT_OPEN_LINE_MARK@ doesn't work, error: Illegal argument to edit_open_line_mark. What's wrong?

2. Is there a possibility that the cursor right stopps at position 4 after the char '4' , so that only the first 4 characters can be changed? The problem is, that I need a editor, where only the left half part can be changed.

Thanks for help.

winapp 0,0
program eb
implicit none
include<windows.ins>
 
character*10 buffer
integer*4 e(24),i

buffer = '1234567890'
buffer(10:10) = char(0)
      
call EDIT_OPEN_LINE_MARK@(e)

i=winio@('%fn[COURIER]&')
i=winio@('%mn[&Ausschneiden,Einfügen]&','CUT','PASTE')
i=winio@('%14.10`eb[vscrollbar,no_hscroll,alt_edit,read_only,no_cursor_snap]',buffer,14,e)

end

I think you have to call EDIT_OPEN_LINE_MARK@ after the editor has started. Try and modify this, there's no error message:

winapp
program eb 
implicit none 
include<windows.ins> 
  
character*10 buffer 
integer*4 e(24),i,zeile
external  zeile

common  /e_info/   e

e = 0

buffer = '1234567890' 
buffer(10:10) = char(0) 

i=winio@('%ca[Editor]&')
i=winio@('%fn[COURIER]&') 
i=winio@('%mn[&Ausschneiden,&Einfügen,&Zeile]&','CUT','PASTE',zeile) 
i=winio@('%14.10`eb[vscrollbar,no_hscroll,alt_edit,read_only,no_cursor_snap]',buffer,14,e) 

end 

integer function zeile()
include<windows.ins> 

integer*4 e(24)

common  /e_info/   e

call EDIT_OPEN_LINE_MARK@(e)
zeile = 1
end

Regards - Wilfried