Graphics 800,600,32,2
Dim Zahlen(100)
SeedRnd(MilliSecs())


For I=0 To 30
  Zahlen(I)=Rand(31)
  Text 10,I*15,Zahlen(I)
Next





Bank=Packen(5,29) ;---Bits/MaxWerte

For I=0 To 20 Zahlen(I)=0 Next ;Zahlen Löchen

Entpacken(Bank,5,29) ;---Bits/MaxWerte





For I=0 To 30
  Text 40,I*15,Zahlen(I)
Next



Flip
WaitKey()















Function Packen(Bit,MaxWerte)
Bank=CreateBank(1000)
For I=0 To MaxWerte


   If BOfset>32-Bit Then
     Rest=(32-BOfset)
     WN=BBuffer+(Zahlen(I) Shr (Bit-Rest))
     PokeInt(Bank,BPos,WN):BPos=BPos+4

     BBuffer=Zahlen(I) Shl (32-Bit-BOfset)
     BOfset=BOfset-32
   Else
     BBuffer=BBuffer+Zahlen(I) Shl (32-Bit-BOfset)
   End If


   BOfset=BOfset+Bit
Next
PokeInt(Bank,BPos,BBuffer)
Return Bank
End Function




Function Entpacken(Bank,Bit,MaxWerte)

BBuffer=PeekInt(Bank,0):BPos=4

For I=0 To MaxWerte
  Wert=(BBuffer Shl BOfset) Shr (32-Bit)

   If BOfset+Bit>32 Then
      Rest=(32-Bit-BOfset)
      BBuffer=PeekInt(Bank,BPos) 
       BPos=BPos+4
      Wert=Wert+(BBuffer Shr Rest)
      BOfset=BOfset-32
   End If

Zahlen(I)=Wert
BOfset=BOfset+Bit
Next

End Function