! MAT_Abmessungen.obas (c) Andre Koppel Software 2012
! Dieses kleine Programm dokumentiert, wie man die
! Abmessungen einer Matrix ermittelt
DIMOPTION ON
DIMOPTIONBASE 1
INIT VARSPACE
DIM Matrix(2 ; 3) , Abmessung(2)

CLRSCR
! Wir initialisieren die gesamte Matrix mit 1
MAT Matrix = CON
! Bei Bedarf redimensioniert die folgende Anweisung den
! Ergebnisvektor. Das erste Element enthält die Anzahl der
! Abmessungen der Matrix. Ab dem zweiten Element folgen die
! einzelnen Dimensionsangaben
MAT Abmessung  = GETDIM Matrix
n=Abmessung(1)
DISP USING "KZKL" : "Die Matrix hat " n " Dimensionen"
! In einer Schleife zeigen wir die einzelnen Dimensionen an
FOR i=1 TO n
  vl=Abmessung(i+1)
  DISP USING "K4DKZKL" : "Dimension " i " enthaelt " vl " Elemente"
NEXT