Global xStringBank = CreateBank(0), xIntegerBank = CreateBank(0), xFloatBank = CreateBank(0)
Global xStringBankSize%, xIntegerBankSize%, xFloatBankSize%

Function BankString$(xString$)
   Local xStrL% = Len(xString)
   Local xStrTemp% = xStringBankSize
   ResizeBank xStringBank, xStringBankSize+xStrL
   xStringBankSize = xStringBankSize + xStrL
   For x = xStrTemp To xStringBankSize-1
      y = y + 1
      PokeByte xStringBank,x, Asc(Mid(xString,y,1))
   Next
   Return xStrTemp + "|"+xStrL
End Function

Function ReadBankString$(BankPosition$)
   Local Begrenzung% = Instr(BankPosition,"|",1)
   Local xStrStart% = Int(Mid(BankPosition,1,Begrenzung-1))
   Local xStrLeng% = Int(Mid(BankPosition,Begrenzung+1,-1))
   Local xWort$
   For x = xStrStart To (xStrStart+xStrLeng)-1
      xWort = xWort + Str(Chr(PeekByte (xStringBank,x)))
   Next
   Return xWort
End Function

Graphics 800,600,32,2
SetBuffer BackBuffer()
;Include
Include "MakeITNew.bb"

time = MilliSecs()
For x = 1 To 10000
   b$ = BankString("Der Prozessorhersteller AMD wird nach einer Meldung von TweakTown bereits in der nächsten Woche ein neues Spitzenmodell präsentieren – den Phenom II X4 965. Entsprechend der Modellnummer wird die neue CPU mit einem Takt von 3,4 GHz erscheinen.")
   ;ReadBankString(b)
Next
Endtime = MilliSecs()
Print "BankSize: " + BankSize(xStringBank) + " | BankTime: " + (endtime-time)
time = MilliSecs()
Dim St$(10000)
For x = 1 To 10000
   St(x) = "Der Prozessorhersteller AMD wird nach einer Meldung von TweakTown bereits in der nächsten Woche ein neues Spitzenmodell präsentieren – den Phenom II X4 965. Entsprechend der Modellnummer wird die neue CPU mit einem Takt von 3,4 GHz erscheinen."
Next
endtime = MilliSecs()
Print "DimTime: " + (endtime-time)
Delay 100
Print "Fertigstellen. Bitte eine Taste drücken"
Flip
WaitKey