'  _____ __           
' /_  _// /__ ____                 þ   SORT.BAS   þ
'  / / / _  //___/                 þ  taken from  þ
' /_/ /_//_//___/
'         ________  __    _____    _______  __  ______
'        / ____  / / /   /__   \  / _____/ /_/ / ____/
'       / /   / / / /__  ___/  / / /____  __  / /
'      / /   / / / __ / / __  / /____  / / / / /
'     / /___/ / / /_// / /_/ / _____/ / / / / /____
'    /____  _/ /____/ /_____/ /______/ /_/ /______/
'         \_\                              ____  ____   _____   _____
'                                         /__ / /_  /  / ___/  / ___/
'http://qbasic.com                       //_// __/ /  / /___  / /__
'mallard@qbasic.com                     / __/ /   /  / /_/ / / /___
'                                      /_/   /___/  /_____/ /_____/
'
'program information
'
'FILENAME: SORT.BAS
'AUTHOR  : David Zohrob
'DESCRIPTION: Sorts numbers for you with very little code.
'DATE ADDED: 24 Mar 1997
'SIZE      : 1,339 bytes
DIM number(15)
CLS
FOR i = 0 TO 14
number(i) = (RND * 10) + 1
PRINT number(i)
NEXT

DO WHILE INKEY$ = "": LOOP
CLS
FOR ctr1 = 0 TO 14
        FOR ctr2 = ctr1 + 1 TO 14
                        IF number(ctr1) > number(ctr2) THEN SWAP number(ctr1), number(ctr2)
        NEXT
NEXT

FOR i = 0 TO 14: PRINT number(i): NEXT