The clapping song

[Kernelpanic]

Time really does stand still here – a little experiment for a change of pace: passing an entire array to a procedure, with the output being letters. 

PS: Correction. Redundant line removed. - I need a Poer! 
PS-2: Nothing special, just the reversed version; I should have thought of that right away.

Code: (Select All)

Sub Feldausgabe (buchstabenFeld$())



  Dim As Integer i, zeile, spalte



  zeile = 4: spalte = 3

  For i = 20 To 1 Step -1

    Locate zeile, spalte

    Print buchstabenFeld$(i)



    spalte = spalte + 2

  Next

End Sub

Code: (Select All)

Option _Explicit



Declare Sub Feldausgabe(bFeld As String)



Dim As String buchstabenFeld(20)

Dim As Integer i, zeile, spalte



zeile = 2: spalte = 3

For i = 1 To 20

  buchstabenFeld(i) = Chr$(i + 64)

  Locate zeile, spalte

  Print buchstabenFeld(i)



  spalte = spalte + 2  

Next



'Nur die Zeile um 2 nach unten

Locate CsrLin + 2



'Uebergabe eines ganzen Feldes: Feld()

Call Feldausgabe(buchstabenFeld())



End



'Bei Uebergabe von Strings ist "$" zwingend.

Sub Feldausgabe (buchstabenFeld$())



  Dim As Integer i, zeile, spalte



  zeile = 4: spalte = 3

  For i = 1 To 20

    Locate zeile, spalte

    Print buchstabenFeld$(i)



    spalte = spalte + 2    

  Next

End Sub

Suitable for it