Two-dimensional array

[Kernelpanic]

Ok, here is the whole program, the whole attempt:

Code: (Select All)

$Console:Only
Option _Explicit

Option Base 1
Dim As Integer zahlenFeld(4, 3), feld(12)

Dim As Integer a, i, j, z
Dim As Integer zeile, spalte

Locate 2, 2
For a = 1 To 12
  feld(a) = a
  Print Using "## "; feld(a),
Next

Locate 4, 2

'Muss natuerlich mit etwas gefuellt werden!
'i + j sind nur fuer die Schleifensteuerung da.
z = 1
For i = 1 To 4
  For j = 1 To 3
    zahlenFeld(i, j) = z
    Print Using "## "; zahlenFeld(i, j),
    z = z + 1
  Next
  Print: Locate , 2
Next

Locate CsrLin + 2, 2
Input "Zeige Wert in Zeile # : ", zeile
Locate CsrLin + 0, 2
Input "Und in Spalte       # : ", spalte

Locate CsrLin + 1, 2

'Fehler bei falscher Eingabe abfangen - aber nur hier
If zeile > 4 Or spalte > 3 Then
  Print "Falsche Eingabe!"
  Sleep 2
  'Kehrt zum System zuruek
  System
Else
  Print Using "Wert in Zeile # und in Spalte # ist: ## "; zeile, spalte, zahlenFeld(zeile, spalte)
End If


'Aktuelle Zeilenkoordinate plus 3 als Argument von Locate.
'Das "Druecken Sie eine Taste" steht dann 3 Zeilen
'unter der letzten Position.
Locate CsrLin + 3, 2

End

Example: