Bubble Sort in Liberty BASIC

Max = 5
REDIM Arr(Max)
FOR I = 1 TO Max
 Arr(I) = INT(RND(1) * 100) + 1
 PRINT Arr(I); SPACE$(1);
NEXT I
PRINT "(Initial array)"
P = 1
Time = 0
WHILE (Time = 0)
  NS = 1
  FOR I = 1 TO (Max - P)
    IF Arr(I) > Arr(I + 1) THEN
      Temp = Arr(I)
      Arr(I) = Arr(I + 1)
      Arr(I + 1) = Temp
      NS = 0
      FOR J = 1 TO Max
        PRINT Arr(J); SPACE$(1);
      NEXT J
      PRINT
    END IF
  NEXT I
  IF NS = 1 THEN
    Time = 1
  END IF
WEND

FOR I = 1 TO Max
 PRINT Arr(I); SPACE$(1);
NEXT I
PRINT "(Sorted array)"
END