@Darwin: Du kannst das auch so machen
Code:
dim tabelle[juchuu]  as byte
dim addresse as word

declare sub anzeigen(addr as word)

Aufruf:  
       addresse = varptr (tabelle(xx)) 
       call anzeigen(addresse)
............

sub anzeigen(addr as word)
Local Y As Byte 
Local D As Byte 

   Print "Von Suboutine aus :" 
   For Y = 1 To 5                                           ' einfache Schleife 
      Print "Folgender Wert ist in B_ar_werte("; 
      Print Y; 
      Print ") enthalten :"; 
      D = INP(addr)
      Print D                                      ' Inhalt des Arrays anzeigen. 
      Print 
     incr addr
   Next Y 
End Sub
Die Ecke mit VARPTR ist notwendig, weil sich Bascom aus formalen Gründen weigert.

Es ist nicht notwendig, byref hinzuschreiben, das nimmt er eh' an.