Binäre Datei und PassWord

[horsthorn]

Versuche mich endlich mal an einer binären Datei. Diese soll die normale CSV-Datei in einem Verschlüsselungsprogramm ersetzen. Hier habe ich aber ein Problem:
Der 1. Eintrag wird sauber angezeigt. Der 2. Eintrag wird nur verschlüsselt wieder gegeben.
Was mache ich falsch
Für Hilfe wie immer sehr dankbar - hier der Testcode:

DECLARE I%
DECLARE pfad$,uverz01$,datei$
pfad$=GETDIR$("@"):uverz01$="TEST_ORDNER":datei$="bi_testdatei.csv"
CASENOT DIREXISTS(pfad$+"\\"+uverz01$):MKDIR pfad$+"\\"+uverz01$
datei$=pfad$+"\\"+uverz01$+"\\"+datei$
DECLARE txt01&,txt02&
DECLARE txt01$,txt02$
DECLARE schreiben&,lesen&,aus&
'##############################################
txt01$="Achtung - jetzt kommt ein Karton"
txt02$="...und jetzt ist der Karton da !"
'################################################
PASSWORD "xprofan_11"
'###############################################
Window (%MaxX/2-400),(%MaxY/2-300) - 800,600
schreiben&=CREATE("BUTTON",%hwnd,"Schreiben",5,5,100,25)
lesen&=CREATE("BUTTON",%hwnd,"Lesen",200,5,100,25)
aus&=CREATE("BUTTON",%hwnd,"Beenden",680,5,100,25)
WHILE 1
WAITINPUT
Case CLICKED(schreiben&):SCHREIBEN
CASE CLICKED(lesen&):LESEN
Case Iskey(27) | CLICKED(aus&):END
ENDWHILE
'##########################################
PROC SCHREIBEN
ASSIGN #2,datei$
ERASE #2
CLOSE #2
ASSIGN #1,datei$
OpenRW #1
I%=LEN(txt01$)
Case I% < 100:txt01$=txt01$+MKSTR$(" ",(100-I%))
PutChar #1,PWD$(txt01$)
I%=LEN(txt02$)
Case I% < 100:txt02$=txt02$+MKSTR$(" ",(100-I%))
PutChar #1,PWD$(txt02$)
CLOSE #1
ENDPROC
'###############################################
PROC LESEN
ASSIGN #1,datei$
OpenRW #1
Seek #1,0
txt01$= GetChar$(#1,100)
DRAWTEXT 10,100, PWD$(txt01$)
Seek #1,101
txt02$= GetChar$(#1,100)
DRAWTEXT 10,150, PWD$(txt02$)
CLOSE #1
ENDPROC

[horsthorn]

Hab den Fehler gefunden.

Seek #1,101

Da ist der Startpunkt falsch angegeben.
Da Seek... bei Null anfängt, muss hier richtig stehen:

Seek #1,100

...und dann klappt's auch mit dem Einlesen !