Thank you both for the quick respose.
I just discovered: in the old basic (qbasic, qb qnd qb32) in dosbox it runs with:
Open file11$ For Random As #11 Len = (30):
with qb64 I get the error: Bad record lenght. so I found on the internet that I have to add two bytes more on the Len = (30) statement Len = (32)
But I Have to do this only on the open statement, and not on the get and put statement!

If this is correct then I have only to ad 2 spaces on the first line of the file. I hope it wil work! You can see my programs on youtube, search for zauberhaft1. The draughts and the language program dates from 1992, and it was a pleasure to make in that time. Took me more than a year, but I learned a lot. Now I will pick up with qb64. Ps the language program was first written on a Commodore C16, Later on a C64, en dan on an IBM 486. but enough for this day. it is : 00:18 hour here, so goodnight for now!

    file11$ = "engd0001"
    Open file11$ For Random As #11 Len = (32):
    e = Len(eng$): d = Len(dut$)
    en$ = Space$(15 - e): du$ = Space$(15 - d): eng$ = eng$ + en$: dut$ = dut$ + du$
    Taal$ = eng$ + dut$
    Put #11, I, Taal$
    eng$ = "": dut$ = ""
    Get #11, I, Taal$
    Locate 18, 5: Print Taal$
    Close #11: Close #12