100 TEXT : PRINT CHR$(21): HOME : NORMAL : PRINT : PRINT : PRINT "SOME RANDOM WORDS...": PRINT : PRINT CHR$(4)"-QSORT"
150 N = 18
200 VTAB 1: HTAB 1
220 DIM A$(N -1)
250 FOR I = 0 TO N -1
260 RESTORE : FOR J = 1 TO INT( RND(1) *42) +1: READ A$(I): NEXT
265 IF I >0 THEN FOR K = 0 TO I -1: IF A$(I) < >A$(K) THEN NEXT : PRINT A$(I)" "; CHR$(1 +12 *( PEEK(36) >30));: CALL -868: GOTO 270
267 IF I >0 THEN 260
270 NEXT I: IF PEEK(36) THEN PRINT CHR$(8)"!"
300 PRINT : PRINT "SORTING STARTS WHEN YOU PRESS A KEY:";: GET A$: PRINT A$;: VTAB 5: HTAB 1: CALL -958
400 CALL 950,A$(0)
450 FOR I = 0 TO N -1: PRINT SPC( (I +1) <10)I +1". "A$(I): NEXT
460 VTAB 23: PRINT : PRINT "]RUN TO TRY AGAIN.";: VTAB 23: END
510 DATA OH,SOMEWHERE,IN,THIS,FAVORED,LAND,THE,SUN,IS,SHINING,BRIGHT,THE,BAND,IS,PLAYING,SOMEWHERE,AND,SOMEWHERE,HEARTS,ARE,LIGHT,AND,SOMEWHERE,MEN,ARE,LAUGHING,AND,SOMEWHERE,CHILDREN,SHOUT,BUT,THERE,IS,NO,JOY,IN,MUDVILLE,MIGHTY,CASEY,HAS