10 DEFFNS="DBsort"
   20 PROCa:MODE7:VDU23;8202;0;0;0;
   25 PROCd("Sort database by C.J.Richardson")
   30 *.
   40 PROCd("File to sort. RETURN for DBdat"):INPUTF$:IFF$="" F$="DBdat"
   50 F%=OPENIN F$:PROCd("LOADING. "+F$+" Please wait.")
   60 INPUT#F%,Q%
   70 DIM S$(11,Q%),N$(10)
   80 FORL%=0TO10:INPUT#F%,N$(L%):NEXT:FORL%=1TOQ%:INPUT#F%,S$(1,L%),S$(2,L%),S$(3,L%),S$(4,L%),S$(5,L%),S$(6,L%),S$(7,L%),S$(8,L%),S$(9,L%),S$(10,L%),S$(11,L%):NEXT:CLOSE#F%:CLS
   90 PRINTN$(0);S$(1,1)
  100 PRINTN$(1);S$(2,1)
  110 PRINTN$(2);S$(3,1)
  120 PRINTN$(3);S$(4,1)
  130 PRINTN$(4);S$(5,1)
  140 PRINTN$(5);S$(6,1)
  150 PRINTN$(6);S$(7,1)
  160 PRINTN$(7);S$(8,1)
  170 PRINTN$(8);S$(9,1)
  180 PRINTN$(9);S$(10,1)
  190 PRINTN$(10);S$(11,1)''
  200 PROCd("Sort by which field?"):REPEAT:A$=GET$:A%=VALA$
  210 UNTILA%>0 OR A$="A"ORA$="B"
  220 IFA$="A"A%=10
  230 IFA$="B"A%=11
  240 PROCs
  250 PROCsave
  260 CHAIN"DBASE"
  270 DEFPROCs:LOCALl%,l$,e%,i%:FORl%=1TOQ%:PRINTTAB(0,22);"‚SORTING "+STR$(l%)
  280 l$=FNc(S$(A%,l%)):e%=l%
  290 FOR i%=l%TOQ%:IF S$(1,i%)<>"" IFFNc(S$(A%,i%))<l$ l$=FNc(S$(A%,i%)):e%=i%
  310 NEXT
  320 FORI%=1TO11:l$=S$(I%,l%):S$(I%,l%)=S$(I%,e%):S$(I%,e%)=l$:NEXT:NEXT:ENDPROC
  330 DEFFNc($&C50):CALL&C00:=$&C50
  340 DEFPROCa:FORl%=0TO2STEP2:P%=&C00:[:OPT l%:LDY#&FF:.loop:INY:LDA&C50,Y:CMP#13:BEQout:CLC:SBC#96:BCCloop:ADC#64:STA&C50,Y:JMP loop:.out:RTS:]:NEXT:ENDPROC
  350 DEFPROCsave
  360 INPUT"�SAVE WHICH FILE?‚RETURN=dbdat "L$:IFL$=""L$="dbdat"
  370 F%=OPENOUT L$:PRINT#F%,Q%
  380 FORL%=0TO10:PRINT#F%,N$(L%):NEXT:FORL%=1TOQ%:PRINT#F%,S$(1,L%),S$(2,L%),S$(3,L%),S$(4,L%),S$(5,L%),S$(6,L%),S$(7,L%),S$(8,L%),S$(9,L%),S$(10,L%),S$(11,L%):NEXT:CLOSE#F%
  390 ENDPROC
  400 DEFPROCd(A$):A$=A$+STRING$(LENA$MOD2," "):FORL%=1TOLENA$:PRINTTAB(18-L%/2);"��";LEFT$(A$,L%/2);RIGHT$(A$,L%/2);TAB(18-L%/2);"�ƒ";LEFT$(A$,L%/2);RIGHT$(A$,L%/2):VDU11,11:NEXT:VDU10,10:ENDPROC