Global ScrX=800,ScrY=600
Graphics ScrX,ScrY,32,2
Dim Sets(1000)



TIDa(20,0,0,4,0,0,20)
TIDa(22,0,5,0,0,0,40)
AppTitle TIDa(22,0,5,0,0,0,-1)


;TIDb(20,0,0,4,0,0,20)              <
;TIDb(22,0,5,0,0,0,40)              <Hier fehler
;AppTitle TIDb(22,0,5,0,0,0,-1)  <



SetBuffer BackBuffer()
Repeat


Flip
Until KeyDown(1)
End

Function TIDa(S,U,X,Y,F,D,W)
U=U*4:X=X*4:Y=Y*4:F=F*4:D=D*4
Select Sets(S):Case 0:Sets(S)=CreateBank(500):End Select

B1=PeekInt(Sets(S),U)
Select B1:Case 0:B1=CreateBank(500):PokeInt(Sets(S),U,B1):End Select


B2=PeekInt(B1,X)
Select B2:Case 0:B2=CreateBank(500):PokeInt(B1,X,B2):End Select


B3=PeekInt(B2,Y)
Select B3:Case 0:B3=CreateBank(500):PokeInt(B2,Y,B3):End Select


B4=PeekInt(B2,Y)
Select B4:Case 0:B4=CreateBank(500):PokeInt(B3,F,B4):End Select

Select W:Case -1:Return PeekInt(B4,D):Default:PokeInt(B4,D,W):End Select
End Function 






Function TIDb(S,U,X,Y,F,D,W)
U=U*4:X=X*4:Y=Y*4:F=F*4:D=D*4
Select Sets(S):Case 0:Sets(S)=CreateBank(4):End Select
Select U=>BankSize(Sets(S)):Case 1:ResizeBank(Sets(S),U+4):End Select

B1=PeekInt(Sets(S),U)
Select B1:Case 0:B1=CreateBank(4):PokeInt(Sets(S),U,B1):End Select
Select X=>BankSize(B1):Case 1:ResizeBank(B1,X+4):End Select

B2=PeekInt(B1,X)
Select B2:Case 0:B2=CreateBank(4):PokeInt(B1,X,B2):End Select
Select Y=>BankSize(B2):Case 1:ResizeBank(B2,Y+4):End Select

B3=PeekInt(B2,Y)
Select B3:Case 0:B3=CreateBank(4):PokeInt(B2,Y,B3):End Select
Select F=>BankSize(B3):Case 1:ResizeBank(B3,F+4):End Select

B4=PeekInt(B2,Y)
Select B4:Case 0:B4=CreateBank(4):PokeInt(B3,F,B4):End Select
Select D=>BankSize(B4):Case 1:ResizeBank(B4,D+4):End Select
Select W:Case -1:Return PeekInt(B4,D):Default:PokeInt(B4,D,W):End Select
End Function