DIM I
 DIM Inner
 DIM Outer
 DIM Number
 DIM A$[101]
 
 PRINT "UnSorted ..."
 PRINT
 
 FOR I = 1 TO 100
   A$[I] = STR$(RND * 100)
   PRINT I, "  ", A$[I]
 NEXT
 
 PRINT
 
 PRINT "Sorting ..."
 
 Number = 100
 
 GOSUB Sort
 
 FOR I = 1 TO 100
   PRINT I, "  ", A$[I]
 NEXT
 
 END
 
 Sort:
 FOR Outer = 1 TO Number - 1
   FOR Inner = Outer + 1 TO Number
     IF A$[Inner] < A$[Outer] THEN SWAP A$[Inner], A$[Outer]
   NEXT
 NEXT
 RETURN

Result:

 UnSorted ...

 1   30.7502001523972
 2   12.5836446881294
 3   0.361891742795706
 4   70.9096252918243
 5   55.6984186172485
 6   68.9511060714722
 7   41.8136894702911
 8   27.5522798299789
 9   93.2966232299805
 10   19.2188709974289
 11   34.773463010788
 12   92.3383831977844
 13   82.8985691070557
 14   51.7249703407288
 15   97.735720872879
 16   84.5632791519165
 17   83.0920517444611
 18   5.17919883131981
 19   33.6604118347168
 20   86.3768041133881
 21   51.9260406494141
 22   36.2760782241821
 23   44.3548381328583
 24   86.4492893218994
 25   6.59729391336441
 26   18.6986938118935
 27   92.3373579978943
 28   69.5577085018158
 29   80.4263651371002
 30   23.853874206543
 31   38.2094949483871
 32   72.280365228653
 33   73.0410873889923
 34   28.2180398702621
 35   0.180456601083279
 36   94.0303683280945
 37   55.4339647293091
 38   50.0187695026398
 39   33.1548392772675
 40   56.5605640411377
 41   53.5438179969788
 42   63.1506681442261
 43   48.9100962877274
 44   96.8801736831665
 45   66.2645876407623
 46   58.9247703552246
 47   68.6829507350922
 48   73.3335971832275
 49   48.7325429916382
 50   89.9968862533569
 51   65.4178857803345
 52   7.67563506960869
 53   61.9831204414368
 54   95.3275978565216
 55   20.8984985947609
 56   72.8222012519836
 57   82.1355998516083
 58   60.8372390270233
 59   68.5757398605347
 60   21.523129940033
 61   10.3602282702923
 62   36.8458598852158
 63   44.3922579288483
 64   74.4657933712006
 65   25.3382086753845
 66   12.2862108051777
 67   32.2555750608444
 68   86.0999405384064
 69   64.4238948822021
 70   98.7885177135468
 71   99.0026116371155
 72   17.7112266421318
 73   52.4559438228607
 74   32.6132774353027
 75   93.4562742710114
 76   72.6866483688354
 77   15.596117079258
 78   85.9868168830872
 79   41.3688063621521
 80   78.5479009151459
 81   91.6662275791168
 82   87.7400815486908
 83   32.3376476764679
 84   97.8541135787964
 85   64.3953919410706
 86   34.5473438501358
 87   12.9683881998062
 88   36.2465679645538
 89   46.0952758789063
 90   0.598820485174656
 91   76.7659246921539
 92   58.4100961685181
 93   76.5057742595673
 94   93.2432949542999
 95   9.68718975782394
 96   4.46416735649109
 97   76.9590198993683
 98   17.8909242153168
 99   19.0979406237602
 100   8.38735997676849

Sorting ...
 1   0.18045660108327
 2   0.36189174279570
 3   0.59882048517465
 4   10.3602282702923
 5   12.286210805177
 6   12.583644688129
 7   12.968388199806
 8   15.596117079258
 9   17.7112266421317
 10   17.8909242153168
 11   18.6986938118932
 12   19.0979406237602
 13   19.2188709974288
 14   20.8984985947604
 15   21.523129940033
 16   23.8538742065435
 17   25.3382086753849
 18   27.5522798299785
 19   28.2180398702629
 20   30.7502001523971
 21   32.2555750608449
 22   32.337647676467
 23   32.6132774353029
 24   33.1548392772677
 25   33.6604118347164
 26   34.5473438501355
 27   34.7734630107888
 28   36.2465679645538
 29   36.2760782241822
 30   36.8458598852158
 31   38.2094949483878
 32   4.46416735649109
 33   41.3688063621521
 34   41.8136894702911
 35   44.3548381328581
 36   44.3922579288481
 37   46.0952758789063
 38   48.7325429916383
 39   48.9100962877272
 40   5.17919883131984
 41   50.0187695026393
 42   51.7249703407288
 43   51.9260406494141
 44   52.4559438228607
 45   53.5438179969788
 46   55.4339647293098
 47   55.6984186172481
 48   56.5605640411377
 49   58.4100961685181
 50   58.9247703552246
 51   6.59729391336441
 52   60.8372390270233
 53   61.9831204414368
 54   63.1506681442261
 55   64.3953919410706
 56   64.4238948822021
 57   65.4178857803345
 58   66.2645876407623
 59   68.5757398605347
 60   68.6829507350922
 61   68.9511060714725
 62   69.5577085018151
 63   7.67563506960869
 64   70.9096252918248
 65   72.2803652286532
 66   72.6866483688354
 67   72.8222012519836
 68   73.0410873889923
 69   73.3335971832275
 70   74.4657933712006
 71   76.5057742595673
 72   76.7659246921539
 73   76.9590198993683
 74   78.5479009151459
 75   8.38735997676849
 76   80.4263651371002
 77   82.1355998516083
 78   82.8985691070553
 79   83.0920517444617
 80   84.5632791519161
 81   85.9868168830872
 82   86.0999405384064
 83   86.3768041133881
 84   86.4492893218994
 85   87.7400815486908
 86   89.9968862533569
 87   9.68718975782394
 88   91.6662275791168
 89   92.3373579978943
 90   92.3383831977845
 91   93.2432949542999
 92   93.2966232299804
 93   93.4562742710114
 94   94.0303683280945
 95   95.3275978565216
 96   96.8801736831665
 97   97.7357208728795
 98   97.85411357879646
 99   98.78851771354689
 100   99.00261163711556