bank=CreateBank(12)
pokestring(bank,0,"Hallo")
PokeInt(bank,0,12345)
pokestring(bank,0,"Hallöle")
pokestring(bank,4,"ich kann Strings in banks speichern")
pokestring(bank,8,"und du jetzt auch.")
Print peekstring(bank,0)
Print peekstring(bank,4)
Print peekstring(bank,8)


Function PokeString(bank,pos,inp$)
   If PeekInt(bank,pos)<>0 Then FreeBank PeekInt(bank,pos)
   Local bank2=CreateBank()
   Local i
   PokeInt(bank,pos,bank2)
   ResizeBank(bank2,Len(inp))
   DebugLog Len(inp)
   For i=1 To Len(inp)
     DebugLog i
      PokeByte(bank2,i-1,Asc(Mid(inp,i,1)))
   Next
End Function

Function PeekString$(bank,pos)
   Local output$
   Local i
   bank=PeekInt(bank,pos)
   For i=0 To BankSize(bank)-1
      DebugLog i
      output=output+Chr(PeekByte(bank,i))
   Next
   Return output   
End Function
   

Graphics 800,600,16,2
b=CreateBank(100)
t$=Input("> ")
Print "Länge des Textes: "+Len(t)
Print "Schreiben..."
Print "Zur Offsetvariable für die Bank hinzuaddieren (Zurückgegebener Wert von 'PokeString'): "+PokeString(b,0,t,1);hier könnt ihr mal die '1' zur '0' machen und sehen was passiert :)
Print "Länge von '"+t+"' (von der Funktion 'BankStringLen' zurückgegeben): "+BankStringLen(b,0)
Print "Lesen..."
Print PeekString(b,0)
WaitKey()
End;So viel zum Beispiel, ich denke es sollte klar sein was das macht.

Function PokeString(bank,offset,txt$,returnlen=0)
   Local ln=Len(txt),offset2=offset;offset2 um nachher den Wert zu errechnen, den man zur Offsetvariable addieren sollte (sehe oben, da stehts auch)
   PokeByte bank,offset2,ln
   offset2=offset2+1
   For c=1 To ln
      PokeByte bank,offset2,Asc(Mid(txt,c,1))
      offset2=offset2+1
   Next
   If returnlen;Wenn man die Länge zurückgegeben haben will
      Return offset2-offset
   EndIf
End Function
Function BankStringLen(bank,offset)
   Return PeekByte(bank,offset)
End Function
Function PeekString$(bank,offset);Zum Lesen, funktioniert eigentlich genauso wie die anderen Befehle
   Local offset2=offset;,ret$
   ln=PeekByte(bank,offset2)
   offset2=offset2+1
   ret$=""
   For c=1 To ln
      ret=ret+Chr(PeekByte(bank,offset2))
      offset2=offset2+1
   Next
   Return ret
End Function