home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
World of Shareware - Software Farm 2
/
wosw_2.zip
/
wosw_2
/
QBAS
/
BAS_SORT.ZIP
/
RIPLSORT.BAS
< prev
next >
Wrap
BASIC Source File
|
1989-07-20
|
26KB
|
450 lines
' ******************************************
' ** Name: RIPLSORT.BAS **
' ** Type: Main Module **
' ** Language Microsoft QuickBASIC 4.00 **
' ** Author: Mike Welch: Dallas, TX **
' ** Comments: The main module here is **
' ** provided simply to be used **
' ** as an example sort. **
' ******************************************
DECLARE SUB RiplSort (Ar$(), Elements%) ' this is the actual sort
DIM SHARED Ar$(0 TO 1000) ' dimension sort array
CLS ' clear screen
PRINT " *----------------------- Ripple Sort Test Run ------------------------*"
PRINT
PRINT " - A modification of Richard F. Ashwell III's Mentat sort algorithim."
PRINT
PRINT " You have 1 option in this test run. You may have the output go to any"
PRINT " of three devices; a disk file (any name), LPT1: (printer), or SCRN:,"
PRINT " (the screen). Note that if you want LPT1: or SCRN: you MUST include"
PRINT " the colon [:] or an error message will occur."
PRINT
PRINT " So, what'll it be? ([filename], [SCRN:], or [LPT1:]): ";
INPUT Device$ ' get output device
IF Device$ = "" THEN ' if user pressed ENTER
BEEP ' beep alert
PRINT " Error - program aborted" ' print quit message and
END ' end program
END IF
Device$ = UCASE$(Device$) ' convert to uppercase
PRINT " Okay, output will go to "; Device$; ' print reply
PRINT " Strike a key to continue"; ' print pause message
DO ' and wait for a key
LOCATE , , 1
LOOP WHILE INKEY$ = ""
' open Device$. BASIC will report any error messages as they occur.
OPEN Device$ FOR OUTPUT AS 1 ' open device (file, etc.)
PRINT
PRINT " Reading in data"
' Read the random data included as DATA statements below
' (1000 statements exist).
PRINT #1, "*-------------------- Unsorted Arrays ----------------------*"
FOR i% = 1 TO 1000 ' get 1000 strings to sort
READ Ar$(i%) ' put data into array to sort
PRINT #1, Ar$(i%) ' print non-sorted array to device
NEXT i%
PRINT
PRINT "Sorting...";
PRINT
BeginTime! = TIMER ' save beginning timer value
CALL RiplSort(Ar$(), 1000) ' call the sort routine
EndTime! = TIMER ' stop the clock!
SortTime! = EndTime! - BeginTime! ' determine time required to sort
PRINT
PRINT CHR$(7); "Sort complete!: "; SortTime!; "required to sort 1000 records!"
PRINT
PRINT "Strike a key to see sorted output to "; Device$; "...";
DO
LOCATE , , 1
LOOP WHILE INKEY$ = ""
PRINT #1, ""
PRINT #1, ""
PRINT #1, "*------------------------- Sorted Arrays ----------------------*"
FOR i% = 1 TO 1000
PRINT #1, Ar$(i%)
NEXT i%
PRINT
PRINT "Demo Finished"
END
' Sort data follows
DATA "DRHALO EXE", "PRESENTS EXE", "SETUP EXE"
DATA "CENTMED FON", "CURSBOLD FON", "CURSIVE FON", "CPU"
DATA "DISKETTE", "DRIVE", "SOFTWARE", "HARDWARE"
DATA "GRAPHICS", "MONITOR", "UTILITY", "BASCOM"
DATA "MICROSOF", "TRUMAN", "HISTORY", "GRETSORT"
DATA "F12X12 FON", "WEEKLY NEW", "UNDO CMD", "ABORT CMD"
DATA "PASTE CMD", "PRINT COL", "EXIT YOU", "DELETE THI"
DATA "UNCASH BIL", "WEAKSEAK DEK", "IBMBIO COM", "IBMDOS COM"
DATA "AUTOEXEC BAT", "COMMAND COM", "CONFIG SYS", "MAIN BAT"
DATA "B1 COM", "BENHMARK", "BIOS COM", "CHK-MHZ COM"
DATA "CK-ANSI BAT", "COLRTEST COM", "CORETEST COM", "CPU-ID COM"
DATA "CPU-NDP COM", "DIAG COM", "DISKTEST EXE", "MAIN MEN"
DATA "AUTOTEST EXE", "DMATEST EXE", "DRIVSPEC COM", "EQSTATUS COM"
DATA "EQUIP COM", "HD COM", "IW-BENCH EXE", "MEMORY EXE"
DATA "MENU ", "LS EXE", "OTHRCOPY LZH", "PATCH COM"
DATA "PROUNLOK COM", "DISKCOPY", "TELEDISK EXE", "VIEWDISK EXE"
DATA "ZORKTOOL COM", "CLONE EXE", "COPY-U EXE", "MARBLMAD ZIP"
DATA "ZORK-ALL ARC", "BULKERAS COM", "COPYIIPC EXE", "DISKSPED BAT"
DATA "NOGUARD COM", "NOKEY COM", "PARMS DOC", "COPYWDOC ZIP"
DATA "COPYWRIT COM", "RAMKEY COM", "COPYWRIT", "SOLOBOOT COM"
DATA "UNGUARD COM", "ZERODISK COM", "ASMGEN COM", "BUB-DASM LZH"
DATA "DASSEMBL EXE", "DUMP COM", "FILEDUMP COM", "DISASM"
DATA "SYMDEB EXE", "PCWATCH COM", "PCWATCH PRO", "PCWATCH SYS"
DATA "PCWATCH TBL", "PCWATCHT ZIP", "PCWATCH", "UFORMAT COM"
DATA "UOPT COM", "U-FORMAT", "UZAP COM", "UFILE COM"
DATA "UDOCS ZIP", "NEWEST ZIP", "PFSWUNP ZIP", "UNPROT"
DATA "ALF19UNP ZIP", "MENU BAT", "MENU2 ", "CPU"
DATA "DISKETTE", "DRIVE", "SOFTWARE", "HARDWARE"
DATA "GRAPHICS", "MONITOR", "UTILITY", "BASCOM"
DATA "MICROSOF", "MIPS COM", "PCS COM", "TELEDISK EXE"
DATA "VIEWDISK EXE", "ZORKTOOL COM", "CLONE EXE", "COPY-U EXE"
DATA "MARBLMAD ZIP", "ZORK-ALL ARC", "BULKERAS COM", "COPYIIPC EXE"
DATA "COPYIIPC", "DISKSPED BAT", "SDIR $$$", "SPEAKER COM"
DATA "SPEED COM", "SPINTEST COM", "SPINTIME COM", "SYS-INFO COM"
DATA "SYSID EXE", "V20TIMER COM", "VIDEOTST EXE", "XTDIAG COM"
DATA "DOSKNOWS EXE", "SCANNER EXE", "PCBENCH ZIP", "ANADISK EXE"
DATA "BASUPROT COM", "TELEDISK EXE", "VIEWDISK EXE", "ZORKTOOL COM"
DATA "CLONE EXE", "COPY-U EXE", "DISKTEST EXE", "MAIN MEN"
DATA "AUTOTEST EXE", "DMATEST EXE", "MARBLMAD ZIP", "ZORK-ALL ARC"
DATA "BULKERAS COM", "COPYIIPC EXE", "DISKSPED BAT", "INT13 COM"
DATA "SDIR $$$", "BLOAD BAS", "PRNSDIR BAS", "AEDIT BAT"
DATA "AUTOFORM BAT", "CCOPY BAT", "DELFILE BAT", "FINDDATE BAT"
DATA "GAME BAT", "SETDISK COM", "DOS", "GRAPHICS BAT"
DATA "LINE BAT", "MOUSE BAT", "MOVE BAT", "RAMDISK BAT"
DATA "SETPATH BAT", "UNC-ALL BAT", "ADATER COM", "ALARM COM"
DATA "CHMOD COM", "CLEAN COM", "CS COM", "TELEDISK EXE"
DATA "VIEWDISK EXE", "ZORKTOOL COM", "CLONE EXE", "COPY-U EXE"
DATA "MARBLMAD ZIP", "ZORK-ALL ARC", "BULKERAS COM", "COPYIIPC EXE"
DATA "DISKSPED BAT", "D COM", "DEBUG COM", "DECIDE COM"
DATA "DEFRAG COM", "ALTSROFF COM", "ASSIGN COM", "BASICA COM"
DATA "BROWSE COM", "CACHE COM", "CHD COM", "CHKDSK COM"
DATA "EDIT COM", "EPSONFX COM", "EXE2BIN COM", "EXE2COM COM"
DATA "F11F12 COM", "FACECLOK COM", "FORMTOOL HLP", "FORMTOOL MNU"
DATA "FORMTOOL", "FASTDRV COM", "TELEDISK EXE", "VIEWDISK EXE"
DATA "ZORKTOOL COM", "CLONE EXE", "COPY-U EXE", "MARBLMAD ZIP"
DATA "ZORK-ALL ARC", "BULKERAS COM", "MAKELABL BAS", "FASTBACK"
DATA "RECORD BAS", "GAME BAT", "GAME1 MEN", "GAME2 MEN"
DATA "GAME3 MEN", "GAMES", "TUNES MEN", "BCAT DAT"
DATA "COPYIIPC EXE", "DISKSPED BAT", "FATBACK COM", "FILESIZE COM"
DATA "FILLDISK COM", "FIND COM", "FINDDUPE COM", "FLUSHOT COM"
DATA "FORMAT COM", "FREERAM COM", "GCOPY COM", "CPU"
DATA "DISKETTE", "DRIVE", "SOFTWARE", "HARDWARE"
DATA "GRAPHICS", "MONITOR", "UTILITY", "BASCOM"
DATA "MICROSOF", "HOLD ", "DOC4PROG", "DIRENAME COM"
DATA "DIRSIZE COM", "DIRSORT COM", "DISCLOCK COM", "DISKCOMP COM"
DATA "DISKTYPE COM", "ED COM", "CONVERT DOC", "RPRN DOC"
DATA "BANNER COM", "DTP BAT", "BOLDL FON", "BOLDS FON"
DATA "F 001", "FINGPANT", "HERC FON", "WEEKLY NEW"
DATA "UNDO CMD", "ABORT CMD", "PASTE CMD", "PRINT COL"
DATA "EXIT YOU", "DELETE THI", "UNCASH BIL", "WEAKSEAK DEK"
DATA "MINI FON", "PAINT BAT", "PLAINL FON", "PLAINS FON"
DATA "ROMANL FON", "ROMANS FON", "MOUSE LZH", "PIC"
DATA "CFG BAK", "FORMTOOL DAT", "FORMTOOL EXE", "FORMTOOL TBL"
DATA "PC106 FNT", "PC106B FNT", "PRNTUTIL EXE", "TBL BAK"
DATA "ALLFORMS ZIP", "FORMMADE", "BLOD2PUT COM", "FONTMOVE COM"
DATA "FONTSDJ DIC", "FONTSDJ WID", "FONTSLJ WID", "FONTSLW DIC"
DATA "FP HLP", "FP", "FP CVT", "FPPRINT DEF"
DATA "GRAB2BAS BAS", "MASTER FNT", "MASTER DEF", "READMAC COM"
DATA "SMOOTH PS ", "SNAP2ART COM", "SNAPSHOT COM", "SYSTEM FNT"
DATA "UARTPAT2 PS ", "ALLPUB ZIP", "FP-MAPS ZIP", "PUB"
DATA "GRID PUB", "HALO CNF", "HALOIBM DEV", "HALOVRI DEV"
DATA "DRHALO EXE", "GRAB EXE", "PRESENTS EXE", "HALO"
DATA "SETUP EXE", "CENTITAL FON", "CENTMED FON", "CURSBOLD FON"
DATA "CURSIVE FON", "F12X12 FON", "F16X16 FON", "F18X28 FON"
DATA "F6X9 FON", "F8X8A FON", "F9X14 FON", "GOTHIC FON"
DATA "GREEK FON", "HALO201 FON", "HALO202 FON", "ITALIC FON"
DATA "ROMAN1 FON", "ROMAN2 FON", "ROMAN3 FON", "DRHALO HLP"
DATA "DISKSPED BAT", "D COM", "DEBUG COM", "DECIDE COM"
DATA "DEFRAG COM", "ALTSROFF COM", "ASSIGN COM", "BASICA COM"
DATA "BROWSE COM", "CACHE COM", "HALOEPSN PRN", "EXAMPLE PIC"
DATA "GOTHIC FNT", "HP7510A PAL", "HPG DIR", "HPG EXE"
DATA "HARVARD", "HPG CFG", "ITALIC1 FNT", "ITALIC2 FNT"
DATA "MPS2000 PAL", "ROMAN1 FNT", "ROMAN2 FNT", "SCRIPT1 FNT"
DATA "SCRIPT2 FNT", "SSERIF1 FNT", "SSERIF2 FNT", "VDI OVL"
DATA "5 ", "BARINCOM CHT", "MEATBIRD CHT", "MINCOME CHT"
DATA "MINCOME2 CHT", "GRAPH", "PIE-OW CHT", "HPG DIR"
DATA "BORDERS1 BIC", "BORDERS1 BNM", "BORDERS1 NUM", "BREMEN FNT"
DATA "CAFE FNT", "COMPUTER FNT", "CUSTOM SHP", "CUSTOM SDR"
DATA "PM", "DEVILLE FNT", "EDITOR FNT", "EXAMINER FNT"
DATA "FONTS1 FIC", "CPU", "DISKETTE", "DRIVE"
DATA "SOFTWARE", "HARDWARE", "GRAPHICS", "MONITOR"
DATA "UTILITY", "BASCOM", "MICROSOF", "FONTS1 FSZ"
DATA "FONTS4 FNM", "FONTS4 NUM", "FONTS4 FSZ", "GAMMON FNT"
DATA "GOTHIC FNT", "HAMPTON FNT", "JOYCE FNT", "LCD FNT"
DATA "MAIN SHP", "NEWS18 FNT", "NEWS18B FNT", "NEWS18I FNT"
DATA "OFFICE FNT", "OSLO20B FNT", "OSLO20BC FNT", "PARIS FNT"
DATA "PARK18 FNT", "PARK18B FNT", "PARK18I FNT", "PATTICON SHP"
DATA "PM EXE", "PM PRN", "PM-IMADE ZIP", "PMAG1 SDR"
DATA "PMAG1 SHP", "PMTOOLS EXE", "PMTOOLS DOC", "PUBDOM1 SHP"
DATA "PUBDOM1 SDR", "QUILL FNT", "RHODES FNT", "ROMAN FNT"
DATA "SCRIBE FNT", "SET UP ", "SMALLCAP FNT", "STANDARD SDR"
DATA "STANDARD SHP", "TRIBUNE FNT", "TWIG FNT", "UTOPIA FNT"
DATA "WESTERN FNT", "ARTCON14 DOC", "TOOLS", "ARTCON14 EXE"
DATA "SDIR $$$", "B-BACKUP BAT", "COMPBACK BAT", "DAYBACK BAT"
DATA "FASTBACK COM", "FRESTORE COM", "MAKELABL BAS", "FASTBACK"
DATA "RECORD BAS", "GAME BAT", "GAME1 MEN", "GAME2 MEN"
DATA "GAME3 MEN", "DRHALO EXE", "GRAB EXE", "PRESENTS EXE"
DATA "HALO", "SETUP EXE", "CENTITAL FON", "CENTMED FON"
DATA "CURSBOLD FON", "CURSIVE FON", "F12X12 FON", "GAMES"
DATA "TUNES MEN", "BCAT DAT", "GAME1", "1KPYMID"
DATA "CAT DAT", "RND DAT", "BO_TITLE EXE", "PYRAMID EXE"
DATA "BO_SCR PIC", "BO_SHP PIC", "FNT PIC", "PYRAMID1 PIC"
DATA "PYRAMID2 PIC", "PYRAMID3 PIC", "PYRAMID4 PIC", "WINNER PIC"
DATA "PYRAMID SCR", "PYMIDDOC ZIP", "CENTPEED COM", "CENTPEED"
DATA "CELL CGA", "EAGLE", "CHAR CGA", "ELEV CGA"
DATA "FINP CGA", "FONT CGA", "LOGO CGA", "STAT CGA"
DATA "START COM", "MAP0 DAT", "MAP1 DAT", "JOYSTICK CTP"
DATA "TOPTENA CTP", "MAPU DAT", "MUSC DAT", "MUSI DAT"
DATA "EAGLE EXE", "MONOCODE 001", "MONOCODE 003", "MONOGRAF GRA"
DATA "MONOPOLY", "MONOPOLY COM", "MORIA CNF", "MORIA"
DATA "JOYSTICK CTP", "TOPTENA CTP", "MORIA EXE", "MORIA SCR"
DATA "NATION EXE", "NATION", "MAP ", "BIMAGE1 DAT"
DATA "BIMAGE1B DAT", "BIMAGE2 DAT", "NINJA", "BIMAGE2B DAT"
DATA "FONT DAT", "FONT2 DAT", "FONT2B DAT", "FONTB DAT"
DATA "IMAGES DAT", "IMAGESB DAT", "PF DAT", "PFB DAT"
DATA "NINJA EXE", "NINJAX ZIP", "BIZERK COM", "BJTALK COM"
DATA "DRAGONS COM", "GO-MOKU COM", "HARDHAT COM", "HOPPER COM"
DATA "OTHERS", "MZPACMAN COM", "OFFROAD COM", "PACKMAN COM"
DATA "QUBERT COM", "SMINER COM", "SOLITARE COM", "WEEKLY NEW"
DATA "UNDO CMD", "ABORT CMD", "PASTE CMD", "PRINT COL"
DATA "EXIT YOU", "DELETE THI", "UNCASH BIL", "WEAKSEAK DEK"
DATA "GO-MOKU HLP", "DRAGONS HST", "BS SCO", "HOPPER SCO"
DATA "SMINERHS ZZZ", "PANGO COM", "PANGO", "PANGO HGH"
DATA "HISCORE ", "MAP BIN", "QUAKE", "QUAKE EXE"
DATA "BOARD ", "RISK EXE", "RISK", "HIGHSCOR DAT"
DATA "MISFAC DAT", "STRIKER", "STRIKER COM", "STRKLOGO DAT"
DATA "STRKPARM DAT", "TUNNELS DAT", "XONIX BIN", "XONIX COM"
DATA "BASRUN EXE", "XONIX", "HISCORES XNX", "TOPGUN COM"
DATA "3DEMON COM", "3DEMON", "3-DEMON HI1", "CASTLE COM"
DATA "CASTLE", "CASTLE RAN", "ABM COM", "SMGAME COM"
DATA "BABY COM", "BEAST COM", "CHESS1 COM", "GRAPHY COM"
DATA "JANITJOE COM", "JJ DAT", "MAXGAME COM", "MAXHEAD COM"
DATA "MAXHEAD2 DAT", "PITFALL COM", "ROUND42 EXE", "SHOAX COM"
DATA "TEM-INS EXE", "TEMPLE EXE", "TNUKE COM", "UNO COM"
DATA "READMAC COM", "GIFMAC", "ALLMAC ZIP", "GREY LZH"
DATA "ASTRO COM", "EM COM", "INVADERS COM", "LOCKERS"
DATA "OTHERS", "PARATROP COM", "TIMING COM", "PIANOMAN LZH"
DATA "PIANO", "CHACONNE COM", "CMINOR COM", "TUNES"
DATA "ENTERTAN COM", "FESTBERG COM", "INVENTN4 COM", "JBOND COM"
DATA "PYTHON COM", "QNAVEE COM", "REDROSE COM", "RKTYTKTY COM"
DATA "SYNCLOCK COM", "TURKISH COM", "TVTUNE COM", "WACHTAUF COM"
DATA "WILLOW COM", "WILLTELL COM", "PLAY DAT", "MAGIC COM"
DATA "MASTER COM", "PINBALL", "TOMATO COM", "TWILZONE COM"
DATA "APRIL COM", "BACKTALK COM", "BUG COM", "DECEIVE COM"
DATA "DRAIN COM", "PRANK", "DRIP COM", "DUMB COM"
DATA "EYE COM", "FAKE123 COM", "FIX COM", "FLIP COM"
DATA "FUNNYDOS EXE", "HELPME COM", "HOTBOOT COM", "MAC COM"
DATA "MRORGAN COM", "QQ EXE", "ATITDOC ZIP", "COVER SCR"
DATA "INST0 SCR", "INST1 SCR", "SCR0 SCR", "SCR4 SCR"
DATA "PARTS BAS", "N1 IMG", "N3 IMG", "TEXTSTUF ZIP"
DATA "TEXTFILE", "CRYPTOR ZIP", "DOCMAKER TXT", "DOCMAKER COM"
DATA "MIND COM", "POLSCALE COM", "TIMEDON FRM", "HOLDTANK"
DATA "DAZZLER COM", "MSG1 ", "OTHRHOLD LZH", "3DMENU ZIP"
DATA "BACKDATA BAT", "MAINDATA DAT", "MBASE", "MAINDATA EXE"
DATA "MBASE EXE", "PRNTDATA EXE", "MAINDATA KEY", "FRAMTEL BAS"
DATA "FRAMTEL BAT", "BUSINESS TEL", "RICHLAND TEL", "PHONE"
DATA "FRIEND TEL", "1RECORD ", "FINDALL BAS", "HIGHNUMB BAS"
DATA "FINDALL COM", "TESTDATA ZIP", "DEMO ZZZ", "TOOLS"
DATA "AUTODDC ASP", "CHKSUM COM", "CRC COM", "CRC2 COM"
DATA "DSZ COM", "GO BAT", "PCPLUS KEY", "PCPLUS PRM"
DATA "MODEM", "PCSETUP EXE", "PROCOMM DIR", "PROZ COM"
DATA "ALSCREEN ZIP", "LEN DOC", "LEN2 DOC", "SCREENS"
DATA "NPAD COM", "TINYPRT COM", "PD COM", "PRNAPPL LZH"
DATA "PRTFONT ARC", "SDIR $$$", "CONTROL", "SIDEWAYS COM"
DATA "TSR LZH", "BOXLABEL COM", "COVER COM", "LAB-DOC ZIP"
DATA "LBL COM", "LBL35V1 EXE", "LABEL", "STARLAB EXE"
DATA "RETLABEL DAT", "ADDLABEL DAT", "PROGRAM BAT", "A86STUFF LZH"
DATA "A86", "DOSBAS ZIP", "JUSTBASC", "BIGPROGS"
DATA "MICKEY BAS", "CALENDAR BAS", "CHECKERS BAS", "CLOCK BAS"
DATA "COMPAT BAS", "GRAPHIT BAS", "HANGMAN BAS", "ELECTION BAS"
DATA "MATCHIT BAS", "WEEKLY NEW", "UNDO CMD", "ABORT CMD"
DATA "PASTE CMD", "PRINT COL", "EXIT YOU", "DELETE THI"
DATA "UNCASH BIL", "WEAKSEAK DEK", "MENU BAS", "ORGAN BAS"
DATA "TICTAC BAS", "PCWORM2 BAS", "CARWARS BAS", "PCWORM BAS"
DATA "NOTES BAS", "ZAPEM BAS", "PUZZLE BAS", "READ-BAS COM"
DATA "BAS2FORT ZIP", "LINK EXE", "MASM EXE", "PROGLANG"
DATA "MASM", "ALLASM ZIP", "SOURCE.COD", "BOOK-ASM ZIP"
DATA "GMAKE COM", "MOUSE", "GMAKE1 EXE", "LOTUS GMK"
DATA "MENUS", "LOTUS MNU", "POP-UP GMK", "POP-UP MNU"
DATA "TXT2PAS COM", "TP BAT", "TURBO COM", "PASCAL"
DATA "CUBE PAS", "T2C ZIP", "MS-T2C", "EXAMPLES ZIP"
DATA "PAS-SOUR ZIP", "SOURCE.COD", "TINST MSG", "TINST DTA"
DATA "TURBO MSG", "TURBO.MSG", "ASM2PAS COM", "SCAN EXE"
DATA "PCMAC ASM", "COMPILE BAT", "TXT2C COM", "POWERC"
DATA "MIX EXE", "PC EXE", "PCL EXE", "PCO EXE"
DATA "ALLOC H ", "ASSERT H ", "BIOS H ", "CONIO H "
DATA "CTYPE H ", "DIR H ", "DIRECT H ", "DOS H "
DATA "ERRNO H ", "MERGE EXE", "COMPILED", "WORKS ZIP"
DATA "LOCKING H ", "STAT H ", "TIMEB H ", "SYS"
DATA "TYPES H ", "UTIME H ", "C-FILES ZIP", "QSORT C "
DATA "HOLD", "QSORT EXE", "GETPARM EXE", "GETAKEY EXE"
DATA "GETAKEY C ", "CCLS C ", "CCLS EXE", "CHILD C "
DATA "WORKSOK", "QSORT C ", "SHELL C ", "BARCHART C "
DATA "PIECHART EXE", "Q BAT", "BC EXE", "LIB EXE"
DATA "QB", "LINK EXE", "QB EXE", "MYLIB HED",
DATA "QB HLP", "QB INI", "NOCOM OBJ", "NOEM OBJ"
DATA "QB PIF", "INTRPT QLB", "MYLIB QLB", "MASSSORT BAS"
DATA "MAINDATA DAT", "RIPLSORT BAS", "1000RECS ", "DATA BAS"
DATA "HEX2BIN COM", "MISCBOOK ZIP", "QSORT2 SUB", "BOOK"
DATA "COOLGRID SUB", "CKDSKSPC SUB", "LOADPIC ZIP", "MISCSUBS ZIP"
DATA "HOLDSTUF ZIP", "PCSPELL LZH", "HOLDTANK", "LIBDEMO BAS"
DATA "WARMBOOT BAT", "FONT BAS", "BCOM40 LIB", "BQLB40 LIB"
DATA "BRUN40 LIB", "INTRPT LIB", "LIB", "MYLIB LIB"
DATA "ADVBAS LIB", "OBJECT ARC", "ADDLINE# COM", "BAS2C LZH"
DATA "BAS2SB COM", "BLOD2PUT COM", "CAPTURE DOC", "CAPTURE COM"
DATA "GRAB2BAS BAS", "GRID COM", "HELP DOC", "HELP COM"
DATA "OPTCALL LZH", "PRNTSUBS COM", "QBUTIL40 EXE", "QLBDUMP COM"
DATA "REMLINE COM", "SDIR $$$", "UNCOMGEN BAS", "SOURCE ZIP"
DATA "MYERS DAT", "PLOTTER BAS", "BAR BAS", "DBASELOC "
DATA "MBASE", "FIELD ", "DATA BAS", "EXAMDATA BAS"
DATA "FIXMDATA BAS", "HIGHNUMB BAS", "MAINDATA BAS", "MBASE BAS"
DATA "PRNTDATA BAS", "MAINDATA DAT", "PRNTDATA QBO", "PROGRUN XXX"
DATA "MBASESRC ZIP", "MWSORT BAS", "MWSORT EXE", "MWSORT2 EXE"
DATA "MWSORT TBO", "SORTS", "PROGRUN XXX", "MWSORT BAS"
DATA "MAINDATA DAT", "MWSORT EXE", "TB EXE", "TBCONFIG TB "
DATA "TBHELP TBH", "ADVBAS QLB", "ADVTEST BAS", "ADVBAS"
DATA "BUBBLEST BAS", "CSORT QB4", "CSORT BAS", "MNTSORT LZH"
DATA "MWMSORT BAS", "MWSORT QB4", "MWSSRT COM", "RIPLSORT BAS"
DATA "SPLITSRT BAS", "SPLIT2ST BAS", "DEFAULT ", "FIXQP BAS"
DATA "HDEFAULT ", "QP BAT", "QPRLDB OV2", "QUIKPRO"
DATA "QPRLDB SRT", "QUIKDOC3 ", "QUIKDOK ", "QUIKMENU "
DATA "QUIKPRO5 ", "QUIKPRT4 ", "QXDOC3 ", "RANDPRT "
DATA "RANDWRT ", "PHONEY FIL", "FAKE FIL", "JOKE THN"
DATA "ANOTHER FIL", "MAKETHIS UP", "EXTRA DAT", "MONEY4 NIL"
DATA "EXTRA CAS", "FREEWARE XXX", "XXX FRE", "GMWELCH FIL"
DATA "ANOTHER TWO", "WEEKLY NEW", "UNDO CMD", "ABORT CMD"
DATA "PASTE CMD", "PRINT COL", "EXIT YOU", "DELETE THI"
DATA "UNCASH BIL", "WEAKSEAK DEK", "MEEKLEAK FEK", "ONLYYOU SMO"
DATA "ADEREKFX DFJ", "EIRIELFK FEL", "FELDKFIE DFO", "FLDFIKSI LFE"
DATA "LSDFIOER KDP", "LIREEICX DME", "EEEMEEME FEO", "FIRELFDD ERE"
' ********************************************************************************
' ** Name: RiplSort **
' ** Type: SubProgram **
' ** Lang: MS-QuickBASIC or BASICA **
' ** Author: Mike Welch **
' ** Purpose: A really fast BASIC sort **
' ** History: Mike Shaffer (of Dallas) first introduced me to his **
' ** modification of the Mentat sort (ripple sort) by answering **
' ** a request for help in creating a fast QB sort. However, because **
' ** I am very particular about modular/top-down/structured (et al.) **
' ** code being in my programs, I decided to modify Mike's modification**
' ** of the Mentat sort. However, after spending 7-10 hours rewriting **
' ** the routine, the result was a sort algorithim that was slower than**
' ** the old faithful QSort. In sheer desperation, I managed to get **
' ** a copy of the MNTSORT itself; I made the necessary changes to **
' ** make the program truly structured. (The original contained 15+ **
' ** GOTO's and line labels). This sort is the end result of **
' ** 15 + hours of work. I think that it will prove to be the **
' ** fastest STRUCTURED sort for a BASIC program. My thanks to **
' ** both Mike Shaffer and Richard F. Ashwell III, author of the **
' ** MNTSORT (Mentat) sort. Yes friends, it blows the Qsort away. **
' ** Other: Mike Shaffer's MWSSRT.BAS sorting algorithim is copyright by **
' ** Mike Shaffer, as well as my modification of the MWSSRT--called **
' ** RIPLSOR2.BAS. However, since this code is a remake of the **
' ** original ripple sort as presented by R. Ashwell III, I reserve **
' ** the copyrights. I am copyrighting this RIPLSORT algorithim for **
' ** one reason: I don't want to be flipping through my favorite PC **
' ** magazine and see MY sort! I am currently in college and if anyone**
' ** needs the bucks from a magazine article, it's me. Otherwise... **
' ** This routine is FREE to whomever cares to use it. As you can **
' ** probably tell it is written for Microsoft's (C) QuickBASIC **
' ** compiler. However, with modification it could surely be used **
' ** in BASIC(a) as well. I invite your comments and improvements. **
' ** Keep the SHAREWARE idea alive by sending comments/improvements. **
' ** Coore: Send comments to: Mike Welch: PO Box 401011: Dallas, TX 75243. **
' ** Finals: Original author's address (a software company) below: **
' ** Mentat Software: Richard F. Ashwell III: 1830 Dover Rd.: Dover **
' ** Florida: 33527 **
' ********************************************************************************
'
'
SUB RiplSort (Ar$(), Elements%) STATIC
' Dimension array variables and initialize
DIM Plane%(0 TO 1000), Wave%(0 TO 1000)
CONST FALSE% = 0, TRUE% = NOT FALSE%
Y% = Elements%
' Begin the sort routine
DReg% = 1
Plane%(DReg%) = 1
Wave%(DReg%) = Y%
EReg% = 1
AReg% = Y%
DO
DO
EndLoop% = TRUE%
IF (AReg% - EReg%) < 9 THEN
IF (AReg% - EReg%) = 0 THEN
EReg% = Plane%(DReg%)
AReg% = Wave%(DReg%)
DReg% = DReg% - 1
IF NOT DReg% = 0 THEN
EndLoop% = FALSE%
ELSE
' < Sort ends here >
' < so erase the markers >
ERASE Plane%, Wave%
EXIT SUB
END IF
END IF
IF EndLoop% = TRUE% THEN
FOR BReg% = (EReg% + 1) TO AReg%
FOR CReg% = EReg% TO (BReg% - 1)
FReg% = BReg% - CReg% + EReg% - 1
IF NOT Ar$(FReg%) <= Ar$(FReg% + 1) THEN
SWAP Ar$(FReg%), Ar$(FReg% + 1)
END IF
NEXT CReg%
NEXT BReg%
END IF
END IF
LOOP UNTIL EndLoop% = TRUE%
BReg% = EReg%
CReg% = AReg%
DO
IF Ar$(BReg%) > Ar$(CReg%) THEN
SWAP Ar$(CReg%), Ar$(BReg%)
DO
BReg% = BReg% + 1
IF CReg% > BReg% THEN
IF Ar$(CReg%) < Ar$(BReg%) THEN
SWAP Ar$(CReg%), Ar$(BReg%)
EXIT DO
END IF
ELSE
EXIT DO
END IF
LOOP
END IF
CReg% = CReg% - 1
LOOP WHILE CReg% > BReg%
CReg% = CReg% + 1
DReg% = DReg% + 1
IF (BReg% - EReg%) < (AReg% - CReg%) THEN
Plane%(DReg%) = CReg%
Wave%(DReg%) = AReg%
AReg% = BReg%
ELSE
Plane%(DReg%) = EReg%
Wave%(DReg%) = BReg%
EReg% = CReg%
END IF
LOOP
END SUB
