home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / bus / glwtb.ba < prev    next >
Text File  |  2006-10-19  |  1KB  |  18 lines
  1. 0 'GLWTB.BA - BY J. KAPLAN
  2. 1 'CLUB 100 LIBRARY - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 2 MAXFILES=2:GOTO12
  4. 3 CLS:P=1:CLEAR2000:OPEN"wtb"FORINPUTAS1
  5. 4 IFEOF(1)GOTO6
  6. 5 LINEINPUT#1,Z$:N=N+1:GOTO4
  7. 6 DIMA$(N):CLOSE#1:OPEN"wtb"FORINPUTAS1:FORM=1TON:LINEINPUT#1,A$(M):NEXTM:CLOSE#1:CLS:PRINT@135,"SORTING":Q=1:GOTO8
  8. 7 F=0:PRINT@135,"PASS #"Q"  "
  9. 8 FORM=1TON:IFA$(M)<A$(M-1)THENF=1:T$=A$(M):A$(M)=A$(M-1):A$(M-1)=T$
  10. 9 PRINT@150,M:NEXTM:Q=Q+1:IFF=1GOTO7
  11. 10 OPEN"wtb"FOROUTPUTAS2:FORM=1TON:PRINT#2,A$(M):NEXT:CLS:MENU
  12. 11 PRINT#2,A$(N);",";B$(N);",";U(N);V(N);W(N);X(N);Y(N):RETURN
  13. 12 OPEN"wtb"FORAPPENDAS2
  14. 13 CLS:A$(1)="":B$(1)="":U(1)=0:PRINT@85,"E]nd Entries or <CR> 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)
  15. 14 IFA$(1)=""ORB$(1)=""THENCLS:PRINT@135,"CANCELED":FORJ=1TO300:NEXTJ:GOTO13
  16. 15 PRINT:PRINT"C]ancel":PRINT"<CR> to continue":ONINSTR("Cc",INPUT$(1))GOTO13,13:GOSUB11:GOTO13
  17. 16 CLOSE:GOTO3
  18.