meine_bank=BANK_add_byte(meine_bank,15)

BANK_new_read(7)
repeat
    BANK_next_data(gegner_bank)
   gegner_art=peekbyte(gegner_bank,BANK_readpos)
    gegner_hp=peekint(gegner_bank,BANK_readpos+1)
    gegner_ammo=peekshort(gegner_bank,BANK_readpos+5)
until BANK_end=1

Function BANK_add_byte(lcl_bank%,lcl_data%)
   ;diese Funtion haengt an eine Bank ein byte an
   ;wenn es die bank nicht gibt, wird sie erstellt
   ;die Adresse der Bank wird zurueckgegeben
   If lcl_bank%=0 Then
      lcl_bank=CreateBank(1)   ;Wenn es die Bank nicht gibt, wird sie mit der Groesse 1 erstellt
   Else
      ResizeBank(lcl_bank,BankSize(lcl_bank)+1)   ;Wenn es sie gibt, wird ihre Groesse um 1 erhoeht
   End If
   PokeByte(lcl_bank,BankSize(lcl_bank)-1,lcl_data)   ;das Byte wird angehaengt
   Return lcl_bank      ;die Adresse der Bank wird zurueckgegeben
End Function

Function BANK_add_short(lcl_bank%,lcl_data%)
   ;diese Funtion haengt an eine Bank einen Short-Wert an
   ;wenn es die bank nicht gibt, wird sie erstellt
   ;die Adresse der Bank wird zurueckgegeben
   If lcl_bank%=0 Then
      lcl_bank=CreateBank(2)   ;Wenn es die Bank nicht gibt, wird sie mit der Groesse 2 erstellt
   Else
      ResizeBank(lcl_bank,BankSize(lcl_bank)+2)   ;Wenn es sie gibt, wird ihre Groesse um 2 erhoeht
   End If
   PokeShort(lcl_bank,BankSize(lcl_bank)-2,lcl_data)   ;der Short-Wert wird angehaengt
   Return lcl_bank      ;die Adresse der Bank wird zurueckgegeben
End Function

Function BANK_add_int(lcl_bank%,lcl_data%)
   ;diese Funtion haengt an eine Bank einen Int-Wert an
   ;wenn es die bank nicht gibt, wird sie erstellt
   ;die Adresse der Bank wird zurueckgegeben
   If lcl_bank%=0 Then
      lcl_bank=CreateBank(4)   ;Wenn es die Bank nicht gibt, wird sie mit der Groesse 4 erstellt
   Else
      ResizeBank(lcl_bank,BankSize(lcl_bank)+4)   ;Wenn es sie gibt, wird ihre Groesse um 4 erhoeht
   End If
   PokeInt(lcl_bank,BankSize(lcl_bank)-4,lcl_data)   ;der INT-Wert wird angehaengt
   Return lcl_bank      ;die Adresse der Bank wird zurueckgegeben
End Function

Function BANK_add_float(lcl_bank%,lcl_data#)
   ;diese Funtion haengt an eine Bank einen Float-Wert an
   ;wenn es die bank nicht gibt, wird sie erstellt
   ;die Adresse der Bank wird zurueckgegeben
   If lcl_bank%=0 Then
      lcl_bank=CreateBank(4)   ;Wenn es die Bank nicht gibt, wird sie mit der Groesse 4 erstellt
   Else
      ResizeBank(lcl_bank,BankSize(lcl_bank)+4)   ;Wenn es sie gibt, wird ihre Groesse um 4 erhoeht
   End If
   PokeFloat(lcl_bank,BankSize(lcl_bank)-4,lcl_data#)   ;der Float-Wert wird angehaengt
   Return lcl_bank      ;die Adresse der Bank wird zurueckgegeben
End Function

Global BANK_readpos      ;Wo lesen wir in Banks
Global BANK_data_size   ;Wie viele Byte ist ein Datensatz lang
Global BANK_end=0      ;sind wir schon am Ende der Bank angelangt

Function BANK_new_read(lcl_data_size%)
   ;startet einen neuen Lese-Vorgang aus einer Bank
   BANK_readpos=-lcl_data_size      ;setze die Leseposition der Bank auf 0
   BANK_data_size=lcl_data_size   ;die Groesse der Datensaetze wird festgelegt
   BANK_end=0            ;Wir sind noch nicht am Ende der Bank
End Function


Function BANK_next_data(lcl_bank%)
   ;setzt die Readpos auf den naechsten Dateneintrag in der Bank
   BANK_readpos=BANK_readpos+BANK_data_size   ;Erhoehe den Bank_read_pos
   If BANK_readpos>=(BankSize(lcl_bank)-BANK_data_size) Then BANK_end=1   ;Wenn die Bank zuende ist, wird BANK_end=1
End Function