kapier ich jetzt nicht. ich häng mal ein bsp. an.
Evt. hilft das um mein Problem zu verdeutlichen. Das ist jetzt nur für 2 Bitmap
Code:
'-------------------- bitmap die 2te -------------------------------------------
bmp:
x = x1: y = y1                                                                  ' pos für set cursor

select case bmp

case 1
   HH = lookup(0,logoavr)                                                      ' byte horz.
   VV = lookup(1,logoavr)                                                      ' byte vert.
case 2
   HH = lookup(0,rahmen)
   VV = lookup(1,rahmen)
end select

G = 2
for V = 1 to VV
      gosub S1D_CSR_RW                                                          ' mit x, y startpos setzen
      cmd = &H42                                                                ' comando speicher schreiben
      gosub s1d_send_cmd
   for H = 1 to HH                                                             ' eine zeile schreiben

if bmp = 1 then par = lookup(G,logoavr)
if bmp = 2 then par = lookup(G,rahmen)
     gosub  S1D_SEND_PAR                                                       ' das G raus zum s1d
incr G                                                                          ' nächstes G
   next H                                                                    '
 x = x1
 incr y
next V

return