10 MAXFILES=2:GOTO1100
20 CLS:P=1:CLEAR2000:OPEN"wtb"FORINPUTAS1
40 IFEOF(1)GOTO60
50 LINEINPUT#1,Z$:N=N+1:GOTO40
60 DIMA$(N):CLOSE#1:OPEN"wtb"FORINPUTAS1
70 FORM=1TON:LINEINPUT#1,A$(M):NEXTM:CLOSE#1:CLS:PRINT@135,"SORTING":Q=1:GOTO215
210 F=0:PRINT@135,"PASS #"Q"  "
215 FORM=1TON:IFA$(M)<A$(M-1)THENF=1:T$=A$(M):A$(M)=A$(M-1):A$(M-1)=T$
230 PRINT@150,M:NEXTM:Q=Q+1:IFF=1GOTO210
250 OPEN"wtb"FOROUTPUTAS2:FORM=1TON:PRINT#2,A$(M):NEXT:CLS:MENU
650 PRINT#2,A$(N);",";B$(N);",";U(N);V(N);W(N);X(N);Y(N):RETURN
1100 OPEN"wtb"FORAPPENDAS2
1110 CLS:A$(1)="":B$(1)="":U(1)=0:PRINT@85,"E]nd Entries or <CR> to input"
1120 ONINSTR("Ee",INPUT$(1))GOTO1200,1200
1130 N=1:CLS:PRINT"Enter Chart of Accounts":INPUT"Account #";A$(1):INPUT"Account Title";B$(1):PRINT"Opening Balance":INPUT"Debit -Credit  ";U(1)
1140 IFA$(1)=""ORB$(1)=""THENCLS:PRINT@135,"CANCELED":FORJ=1TO300:NEXTJ:GOTO1110
1150 PRINT:PRINT"C]ancel":PRINT"<CR> to continue":ONINSTR("Cc",INPUT$(1))GOTO1110,1110:GOSUB650:GOTO1110
1200 CLOSE:GOTO20