506 CLEAR5000:DIMNN$(100)
508 FORJ=1TO2
510 CLS:I=1
512 IFJ=2THEN516
514 OPEN"STUFF1.DO"FORINPUTAS1:GOTO518
516 OPEN"STUFF2.DO"FORINPUTAS1
518 IFEOF(1)THEN526
520 LINEINPUT#1,NN$(I)
522 I=I+1
524 GOTO518
526 CLOSE#1
528 IFJ=2THEN532
530 OPEN"SORT1.DO"FOROUTPUTAS1:GOTO534
532 OPEN"SORT2.DO"FOROUTPUTAS1
534 CLS
536 PRINT@137,"SORTING"
538 I=I-1
540 X=0
542 X=X+1
544 IFX>ITHEN560
546 IFNN$(X)="ZZ"THEN542
548 FORY=1TOI
550 IFNN$(Y)<NN$(X)THENX=Y
552 NEXTY
554 PRINT#1,NN$(X)
556 NN$(X)="ZZ"
558 GOTO540
560 CLOSE#1
562 IFJ=2THEN568
564 NEXTJ
566 GOTO508
568 KILL"STUFF1.DO":KILL"STUFF2.DO"
570 NAME"SORT1.DO"AS"STUFF1.DO"
572 NAME"SORT2.DO"AS"STUFF2.DO"
598 PRINT@137,"FINISHED"