0 'GLWTB.BA - BY J. KAPLAN 1 'CLUB 100 LIBRARY - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 2 MAXFILES=2:GOTO12 3 CLS:P=1:CLEAR2000:OPEN"wtb"FORINPUTAS1 4 IFEOF(1)GOTO6 5 LINEINPUT#1,Z$:N=N+1:GOTO4 6 DIMA$(N):CLOSE#1:OPEN"wtb"FORINPUTAS1:FORM=1TON:LINEINPUT#1,A$(M):NEXTM:CLOSE#1:CLS:PRINT@135,"SORTING":Q=1:GOTO8 7 F=0:PRINT@135,"PASS #"Q" " 8 FORM=1TON:IFA$(M) to input":ONINSTR("Ee",INPUT$(1))GOTO16,16: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) 14 IFA$(1)=""ORB$(1)=""THENCLS:PRINT@135,"CANCELED":FORJ=1TO300:NEXTJ:GOTO13 15 PRINT:PRINT"C]ancel":PRINT" to continue":ONINSTR("Cc",INPUT$(1))GOTO13,13:GOSUB11:GOTO13 16 CLOSE:GOTO3