@bluesmash

Wenn du deinen Code noch ein wenig shrinken willst, hätt ich einen Vorschlag (Du mußt ein wenig mitdenken, aber das hast du ja drauf)

Code:
Dim Lowchar As Byte
Dim Hichar As Byte
Dim Tabadr As Word

do 
   '........................
'   dein code von oben
   '........................

   Lowchar = 65
   Hichar = 90
   Tabadr = Loadlabel(abc_gross)
   Gosub Make_it

   Lowchar = 97
   Hichar = 122
   Tabadr = Loadlabel(abc_klein)
   Gosub Make_it

   Lowchar = 48
   Hichar = 57
   Tabadr = Loadlabel(123)
   Gosub Make_it

Loop

'-------------------------------------------------------
Make_it:
   If Zeichenasc >= Lowchar And Zeichenasc <= Hichar Then
     Index = Zeichenasc - Lowchar
     Index = Index * 5
     Tabadr = Tabadr + Index
     For I = 1 To 5
         Incr Stelle
         Spalte(stelle) = Cpeek(tabadr)
         Incr Tabadr
         Incr Index
     Next I
     Incr Stelle
     Spalte(stelle) = 255
     Incr Stelle
     Spalte(stelle) = 255
   End If
   Return