Jedno Liberty Basic i bubble sorting pitanje...

Code:

   For pass = 1 To 10
       For ctr = 1 To 9
          If (Values(ctr) > Values(ctr + 1)) Then
             t = Values(ctr)
             Values(ctr) = Values(ctr + 1)
             Values(ctr + 1) = t
          End If
       Next ctr
    Next pass

Code:
For pass = 1 To 9
             For ctr = pass + 1 To 10
                 If (Values(pass) > Values(ctr)) Then
                    t = Values(ctr)
                    Values(ctr) = Values(pass)
                    Values(pass) = t
                 End If
            Next ctr
        Next pass

Code:

 Gosub [AskForData]    ' Get user's list of numbers
 Gosub [SortData]      ' Sort the numbers
 Gosub [PrintData]     ' Print the numbers


End

[AskForData]         ' Gets 10 values from the user
   Print "** Number Sorting Program **"
   For i = 1 To 10
       Input "What is a number for the list? "; Value
       Values(i) = Value
   Next i
   Return

[SortData]           ' Sorts the 10 values
   For pass = 1 To 10
       For ctr = 1 To 9
          If (Values(ctr) > Values(ctr + 1)) Then
             t = Values(ctr)
             Values(ctr) = Values(ctr + 1)
             Values(ctr + 1) = t
          End If
       Next ctr
    Next pass
    Return

[PrintData]
    Print
    Print "After the sort:"
    For i = 1 To 10
       Print Values(i); " ";   ' Print list with a space between the
                               ' numbers
    Next i
    Return
End